Introduce value timeToExit.

cardano-foundation · Aug 3, 2020 · 6fd15c1 · 6fd15c1
1 parent d9eecff
commit 6fd15c1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/core/src/Cardano/Wallet.hs b/lib/core/src/Cardano/Wallet.hs
@@ -2155,7 +2155,8 @@ withMinimumExecutionTimeOnFailure minimumExecutionTime action = do
     timeAtStart <- liftIO getCurrentTime
     lift (runExceptT action) >>= \case
         Left failure -> do
-            waitUntil (minimumExecutionTime `addUTCTime` timeAtStart)
+            let timeToExit = minimumExecutionTime `addUTCTime` timeAtStart
+            waitUntil timeToExit
             throwE failure
         Right result ->
             pure result