From 60be62b63bf328407e4ba0f01221d87020e89f24 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Sun, 2 Aug 2020 10:40:35 +0200
Subject: [PATCH] fix(set-serializable): logging limit

---
 src/Utils/Sql.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Utils/Sql.hs b/src/Utils/Sql.hs
index eeb11c537..b3ad49706 100644
--- a/src/Utils/Sql.hs
+++ b/src/Utils/Sql.hs
@@ -37,7 +37,7 @@ setSerializable' policy act = do
              -> ReaderT SqlBackend m ()
     logRetry _ shouldRetry@False err status = $logErrorS "SQL.setSerializable" . pack $ defaultLogMsg shouldRetry err status
     logRetry (Just limit) shouldRetry err status
-      | fromIntegral limit >= rsIterNumber status = $logInfoS "SQL.setSerializable" . pack $ defaultLogMsg shouldRetry err status
+      | fromIntegral limit <= rsIterNumber status = $logInfoS "SQL.setSerializable" . pack $ defaultLogMsg shouldRetry err status
     logRetry _ shouldRetry err status = $logDebugS "SQL.setSerializable" . pack $ defaultLogMsg shouldRetry err status
 
     act' :: TVar Bool -> RetryStatus -> ReaderT SqlBackend m a