From a44c16874666823f228c2635189e56cde7353879 Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <jonathan.knowles@iohk.io>
Date: Thu, 30 Jul 2020 08:37:21 +0000
Subject: [PATCH] Introduce value `timeToExit`.

---
 lib/core/src/Cardano/Wallet.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/core/src/Cardano/Wallet.hs b/lib/core/src/Cardano/Wallet.hs
index ef66f3e7c64..fd67be5002d 100644
--- 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