use strictly less than

f-o-a-m · Oct 7, 2023 · 99cd398 · 99cd398
1 parent c3a6484
commit 99cd398
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Network/Ethereum/Web3/Contract/Events.purs b/src/Network/Ethereum/Web3/Contract/Events.purs
@@ -192,8 +192,7 @@ filterProducer cs@(MultiFilterStreamState currentState) = do
         modify :: forall (k :: Type) (e :: k). Filter e -> Filter e
         modify fltr =
           fltr # _fromBlock .~ BN currentState.currentBlock
-            # _toBlock
-                .~ BN endBlock
+               # _toBlock .~ BN endBlock
 
         fs' = hmap (ModifyFilter modify) currentState.filters
       yieldT fs'
@@ -213,7 +212,7 @@ filterProducer cs@(MultiFilterStreamState currentState) = do
       let
         targetEnd' = min targetEnd $ over BlockNumber (_ - fromInt currentState.trailBy) chainHead
       in
-        if currentState.currentBlock <= targetEnd' then
+        if currentState.currentBlock < targetEnd' then
           continueTo targetEnd'
         else
           pure cs