do notation style

cardano-foundation · Jul 12, 2019 · 29b867b · 29b867b
1 parent a8f8849
commit 29b867b
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/lib/core/src/Cardano/Wallet.hs b/lib/core/src/Cardano/Wallet.hs
@@ -545,15 +545,15 @@ newWalletLayer
         -> WalletId
         -> BlockHeader
         -> IO ()
-    restoreSleep t wid slot =
-        let halfSlotLengthDelay = fromIntegral (diffTimeToPicoseconds slotLength `div` 2000000) in do
-            threadDelay halfSlotLengthDelay
-            runExceptT (networkTip nw) >>= \case
-                Left e -> do
-                    logError t $ "Failed to get network tip: " +|| e ||+ ""
-                    restoreSleep t wid slot
-                Right tip ->
-                    restoreStep t wid (slot, tip)
+    restoreSleep t wid slot = do
+        let halfSlotLengthDelay = fromIntegral (diffTimeToPicoseconds slotLength `div` 2000000)
+        threadDelay halfSlotLengthDelay
+        runExceptT (networkTip nw) >>= \case
+            Left e -> do
+                logError t $ "Failed to get network tip: " +|| e ||+ ""
+                restoreSleep t wid slot
+            Right tip ->
+                restoreStep t wid (slot, tip)
 
     -- | Apply the given blocks to the wallet and update the wallet state,
     -- transaction history and corresponding metadata.