Improve output of Shelley calculate-min-fee command

IntersectMBO · Jul 7, 2020 · df09296 · df09296
1 parent da2d61d
commit df09296
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/Shelley/Run/Transaction.hs
@@ -233,16 +233,16 @@ runTxCalculateMinFee (TxBodyFile txbodyFile) nw pParamsFile
 
     pparams <- readProtocolParameters pParamsFile
 
-    let tx  = Api.makeSignedTransaction [] txbody
-        fee = Api.estimateTransactionFee
-                (fromMaybe Api.Mainnet nw)
-                (Shelley._minfeeB pparams) --TODO: do this better
-                (Shelley._minfeeA pparams)
-                tx
-                nInputs nOutputs
-                nByronKeyWitnesses nShelleyKeyWitnesses
-
-    liftIO $ putStrLn (show fee :: String)
+    let tx = Api.makeSignedTransaction [] txbody
+        Api.Lovelace fee = Api.estimateTransactionFee
+                             (fromMaybe Api.Mainnet nw)
+                             (Shelley._minfeeB pparams) --TODO: do this better
+                             (Shelley._minfeeA pparams)
+                             tx
+                             nInputs nOutputs
+                             nByronKeyWitnesses nShelleyKeyWitnesses
+
+    liftIO $ putStrLn $ (show fee :: String) <> " Lovelace"
 
 --TODO: eliminate this and get only the necessary params, and get them in a more
 -- helpful way rather than requiring them as a local file.