Avoid import and increase readability

IntersectMBO · Jun 5, 2023 · 5a7759b · 5a7759b
1 parent 7b86d68
commit 5a7759b
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/bench/tx-generator/src/Cardano/TxGenerator/PureExample.hs b/bench/tx-generator/src/Cardano/TxGenerator/PureExample.hs
@@ -7,7 +7,6 @@ module  Cardano.TxGenerator.PureExample
         (demo)
         where
 
-import           Control.Arrow ((|||))
 import           Control.Monad (foldM)
 import           Control.Monad.Trans.Except
 import           Control.Monad.Trans.State.Strict
@@ -97,14 +96,15 @@ generateTx ::
      TxEnvironment BabbageEra
   -> Generator (Either TxGenError (Tx BabbageEra))
 generateTx TxEnvironment{..} = do
-  consumeInputFunds
-    >>= (pure . Left) ||| \funds -> runExceptT
-                                      $ sourceToStoreTransaction
-                                          generator
-                                          funds
-                                          computeOutputValues
-                                          (makeToUTxOList $ repeat computeUTxO)
-                                          addNewOutputFunds
+  funds' <- consumeInputFunds
+  case funds' of
+    Left err -> pure $ Left err
+    Right funds -> runExceptT $ sourceToStoreTransaction
+                                    generator
+                                    funds
+                                    computeOutputValues
+                                    (makeToUTxOList $ repeat computeUTxO)
+                                    addNewOutputFunds
   where
     TxFeeExplicit _ fee = txEnvFee