Fix filtering of transactions for RewardAccount

`bfGetAccountWithdrawals` fetches all transactions, but we only want those that are within the range set by `bhFrom` and `bhTo`.

lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs

@@ -105,13 +105,15 @@ import Cardano.Wallet.Primitive.Types
     , TokenBundleMaxSize (..)
     , TxParameters (..)
     , WithOrigin (At)
+    , chainPointFromBlockHeader
     , emptyEraInfo
     , executionMemory
     , executionSteps
     , fromFederationPercentage
     , genesisParameters
     , getGenesisBlockDate
     , header
+    , toSlot
     )
 import Cardano.Wallet.Primitive.Types.Address
     ( Address )
@@ -580,7 +582,7 @@ blockfrostLightSyncSource
                                     <$> zip [0 ..] dcerts
                             )
                 ws <- bfGetAccountWithdrawals address
-                blockEventsWithdraw <-
+                blockEventsWithdrawUnfiltered <-
                     for ws \BF.AccountWithdrawal{..} -> do
                         (bftx@BF.Transaction{_transactionIndex}, tx) <-
                             fetchTransaction
@@ -594,8 +596,17 @@ blockfrostLightSyncSource
                             bftx
                             (unsafeMkSublist [((txIndex, 0), tx)])
                             (unsafeMkSublist [])
+                let inRange x = slotFrom <= slot x && slot x <= slotTo
+                    blockEventsWithdraw =
+                        filter inRange blockEventsWithdrawUnfiltered
                 pure $ blockEventsRegDeleg <> blockEventsWithdraw
       where
+        slotFromBlockHeader = toSlot . chainPointFromBlockHeader
+        (slotFrom, slotTo) =
+            ( slotFromBlockHeader bhFrom
+            , slotFromBlockHeader bhTo
+            )
+
         txBlockEvents ::
             BF.Transaction ->
             Sublist Tx ->