Print estimated transaction fee in transaction build-estimate

Author: palas

cardano-cli/src/Cardano/CLI/EraBased/Transaction/Run.hs

@@ -510,7 +510,7 @@ runTransactionBuildEstimateCmd -- TODO change type
                 collectTxBodyScriptWitnesses sbe txBodyContent
             ]
 
-    BalancedTxBody _ balancedTxBody _ _ <-
+    BalancedTxBody _ balancedTxBody _ fee <-
       fromEitherCli $
         first TxCmdFeeEstimationError $
           estimateBalancedTxBody
@@ -535,6 +535,8 @@ runTransactionBuildEstimateCmd -- TODO change type
           then writeTxFileTextEnvelopeCanonical sbe txBodyOutFile noWitTx
           else writeTxFileTextEnvelope sbe txBodyOutFile noWitTx
 
+    liftIO . putStrLn . docToString $ "Estimated transaction fee:" <+> pretty fee
+
 -- TODO: Update type in cardano-api to be more generic then delete this
 toShelleyLedgerPParamsShim
   :: Exp.Era era -> L.PParams (Exp.LedgerEra era) -> L.PParams (ShelleyLedgerEra era)