maybe correct?

f-o-a-m · Oct 7, 2023 · 57c0f92 · 57c0f92
1 parent 809763e
commit 57c0f92
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
@@ -191,7 +191,7 @@ filterProducer cs@(MultiFilterStreamState currentState@{ windowSize, currentBloc
           nextAvailableBlock = over BlockNumber (_ - fromInt currentState.trailBy) chainHead
         in
           { nextEndBlock: min targetEnd nextAvailableBlock, finalBlock: Just targetEnd }
-    isFinished = maybe false (\final -> currentBlock >= final) finalBlock
+    isFinished = maybe false (\final -> currentBlock > final) finalBlock
   if isFinished then pure cs
   else if chainHead < currentBlock then waitForMoreBlocks
   else continueTo nextEndBlock
@@ -210,8 +210,7 @@ filterProducer cs@(MultiFilterStreamState currentState@{ windowSize, currentBloc
       modify :: forall (k :: Type) (e :: k). Filter e -> Filter e
       modify fltr =
         fltr # _fromBlock .~ BN currentBlock
-          # _toBlock
-              .~ BN endBlock
+          # _toBlock .~ BN endBlock
 
       fs' = hmap (ModifyFilter modify) currentFilters
     yieldT fs'