Refactor finally expr to use do syntax

input-output-hk · Mar 28, 2024 · 33ca6d3 · 33ca6d3
1 parent 2811039
commit 33ca6d3
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/hydra-cluster/src/Hydra/Cluster/Scenarios.hs b/hydra-cluster/src/Hydra/Cluster/Scenarios.hs
@@ -211,9 +211,9 @@ singlePartyHeadFullLifeCycle ::
   IO ()
 singlePartyHeadFullLifeCycle tracer workDir node hydraScriptsTxId =
   ( `finally`
-      ( returnFundsToFaucet tracer node Alice
-          >> returnFundsToFaucet tracer node AliceFunds
-      )
+      do
+        returnFundsToFaucet tracer node Alice
+        returnFundsToFaucet tracer node AliceFunds
   )
     $ do
       refuelIfNeeded tracer node Alice 25_000_000