From 99cd3982a7baba3c96ef414d12e948e339df90d5 Mon Sep 17 00:00:00 2001
From: martyall <blinky@foam.space>
Date: Sat, 7 Oct 2023 10:17:20 -0700
Subject: [PATCH] use strictly less than

---
 src/Network/Ethereum/Web3/Contract/Events.purs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Network/Ethereum/Web3/Contract/Events.purs b/src/Network/Ethereum/Web3/Contract/Events.purs
index b22be46..167c0ca 100644
--- 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