Add HasCallStack to some functions

Co-authored-by: Mateusz Galazyn <[email protected]>
IntersectMBO · Jul 26, 2024 · 15c80e1 · 15c80e1
1 parent ba1ae0d
commit 15c80e1
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/cardano-testnet/src/Testnet/Process/Cli/Transaction.hs b/cardano-testnet/src/Testnet/Process/Cli/Transaction.hs
@@ -54,7 +54,8 @@ data TxOutAddress = PKAddress PaymentKeyInfo
 -- Returns the generated @File TxBody In@ file path to the created unsigned
 -- transaction file.
 buildTransferTx
-  :: Typeable era
+  :: HasCallStack
+  => Typeable era
   => H.MonadAssertion m
   => MonadTest m
   => MonadCatch m
@@ -106,7 +107,8 @@ buildTransferTx execConfig epochStateView sbe work prefix srcWallet txOutputs =
 -- Returns the generated @File TxBody In@ file path to the created unsigned
 -- transaction file.
 buildSimpleTransferTx
-  :: Typeable era
+  :: HasCallStack
+  => Typeable era
   => H.MonadAssertion m
   => MonadTest m
   => MonadCatch m