Propagate HasCallStack through fee calculation callers

Add HasCallStack to calcMinFeeRecursive, estimateOrCalculateBalancedTxBody,
and constructBalancedTx, which call balanceTxOuts, makeTransactionBodyAutoBalance,
estimateBalancedTxBody, and calculateMinimumUTxO that already carry the constraint.

Author: Jimbo4350

cardano-api/src/Cardano/Api/Experimental/Tx/Internal/Fee.hs

@@ -751,7 +751,8 @@ instance Error FeeCalculationError where
 -- In practice convergence occurs within 2–3 iterations.
 calcMinFeeRecursive
   :: forall era
-   . IsEra era
+   . HasCallStack
+  => IsEra era
   => L.Addr
   -- ^ Change address. Any surplus value (ADA and/or native tokens) is
   -- sent to a new output at this address, appended at the end of the

cardano-api/src/Cardano/Api/Tx/Internal/Convenience.hs

@@ -34,13 +34,15 @@ import Data.Map.Strict qualified as Map
 import Data.Set (Set)
 import Data.Text qualified as Text
 import GHC.Exts (IsList (..))
+import GHC.Stack (HasCallStack)
 
 -- | Construct a balanced transaction.
 -- See Cardano.Api.Query.Internal.Convenience.queryStateForBalancedTx for a
 -- convenient way of querying the node to get the required arguements
 -- for constructBalancedTx.
 constructBalancedTx
   :: ()
+  => HasCallStack
   => ShelleyBasedEra era
   -> TxBodyContent BuildTx era
   -> AddressInEra era

cardano-api/src/Cardano/Api/Tx/Internal/Fee.hs

@@ -124,7 +124,8 @@ instance Error (AutoBalanceError era) where
     AutoBalanceCalculationError e -> prettyError e
 
 estimateOrCalculateBalancedTxBody
-  :: ShelleyBasedEra era
+  :: HasCallStack
+  => ShelleyBasedEra era
   -> FeeEstimationMode era
   -> L.PParams (ShelleyLedgerEra era)
   -> TxBodyContent BuildTx era