Apply formatter

IntersectMBO · Sep 5, 2024 · 1285b4e · 1285b4e
1 parent 36c6e5c
commit 1285b4e
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 17 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs
@@ -284,15 +284,15 @@ runTransactionBuildCmd
                     & hoistMaybe (TxCmdTxNodeEraMismatchError $ NodeEraMismatchError era nodeEra)
 
                 scriptExecUnitsMap <-
-                  firstExceptT (TxCmdTxExecUnitsErr . AnyTxCmdTxExecUnitsErr)
-                    $ hoistEither
-                    $ evaluateTransactionExecutionUnitsShelley
-                      eon
-                      systemStart
-                      (toLedgerEpochInfo eraHistory)
-                      pparams
-                      txEraUtxo
-                      balancedTxBody
+                  firstExceptT (TxCmdTxExecUnitsErr . AnyTxCmdTxExecUnitsErr) $
+                    hoistEither $
+                      evaluateTransactionExecutionUnitsShelley
+                        eon
+                        systemStart
+                        (toLedgerEpochInfo eraHistory)
+                        pparams
+                        txEraUtxo
+                        balancedTxBody
 
                 let mScriptWits = forEraInEon era [] $ \sbe -> collectTxBodyScriptWitnesses sbe txBodyContent
 
@@ -307,9 +307,10 @@ runTransactionBuildCmd
                 liftIO $ LBS.writeFile (unFile fp) $ encodePretty scriptCostOutput
               OutputTxBodyOnly fpath ->
                 let
-                    noWitTx = ShelleyTx eon $ signTx useEra [] [] unsignedTx
-                 in lift (cardanoEraConstraints era $ writeTxFileTextEnvelopeCddl eon fpath noWitTx)
-                      & onLeft (left . TxCmdWriteFileError)
+                  noWitTx = ShelleyTx eon $ signTx useEra [] [] unsignedTx
+                 in
+                  lift (cardanoEraConstraints era $ writeTxFileTextEnvelopeCddl eon fpath noWitTx)
+                    & onLeft (left . TxCmdWriteFileError)
       )
       eon
 

diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs
@@ -94,11 +94,12 @@ renderTxCmdError = \case
     prettyError voteErr
   TxCmdConstitutionError constErr ->
     pshow constErr
-  TxCmdDeprecatedEra era -> mconcat
-    [ "The era "
-    , pshow (toCardanoEra era)
-    , " is deprecated. Please use the Conway era."
-    ]
+  TxCmdDeprecatedEra era ->
+    mconcat
+      [ "The era "
+      , pshow (toCardanoEra era)
+      , " is deprecated. Please use the Conway era."
+      ]
   TxCmdProposalError propErr ->
     pshow propErr
   TxCmdReadTextViewFileError fileErr ->