fix mistake in retrying combinator

kadena-io · Oct 13, 2023 · 6022a7d · 6022a7d
1 parent 31c50cf
commit 6022a7d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/exec/TXG.hs b/exec/TXG.hs
@@ -444,7 +444,7 @@ loop confDepth tcut f = forever $ do
         case confTrackMempoolStat config of
           Nothing -> pure ()
           Just p -> do
-            let retrier = retrying policy (const (pure . isRight)) . const
+            let retrier = retrying policy (const (pure . isLeft)) . const
                 policy :: Monad m => RetryPolicyM m
                 policy =
                   exponentialBackoff (pollExponentialBackoffInitTime p)