Add HasCallStack constraint to delegateToAlwaysNoConfidence and `te…

…stNoConfidenceProposal`
IntersectMBO · May 3, 2024 · 99fb0ac · 99fb0ac
1 parent df1fbd1
commit 99fb0ac
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/.../cardano-testnet-test/Cardano/Testnet/Test/LedgerEvents/Gov/PredefinedNoConfidenceDRep.hs b/.../cardano-testnet-test/Cardano/Testnet/Test/LedgerEvents/Gov/PredefinedNoConfidenceDRep.hs
@@ -30,7 +30,7 @@ import qualified Data.Map as Map
 import           Data.String (fromString)
 import qualified Data.Text as Text
 import           Data.Word (Word32)
-import           GHC.Stack (callStack)
+import           GHC.Stack (callStack, HasCallStack)
 import           Lens.Micro ((^.))
 import           System.FilePath ((</>))
 
@@ -318,7 +318,7 @@ makeUpdateConstitutionalCommitteeProposal execConfig epochStateView configuratio
   return (governanceActionTxId, governanceActionIndex)
 
 delegateToAlwaysNoConfidence
-  :: (MonadTest m, MonadIO m, H.MonadAssertion m, MonadCatch m)
+  :: (MonadTest m, MonadIO m, H.MonadAssertion m, MonadCatch m, HasCallStack)
   => H.ExecConfig
   -> EpochStateView
   -> FilePath
@@ -334,7 +334,7 @@ delegateToAlwaysNoConfidence execConfig epochStateView configurationFile socketP
                           "--always-no-confidence"
 
 testNoConfidenceProposal
-  :: (MonadTest m, MonadIO m, H.MonadAssertion m, MonadCatch m, Foldable t)
+  :: (MonadTest m, MonadIO m, H.MonadAssertion m, MonadCatch m, Foldable t, HasCallStack)
   => H.ExecConfig
   -> EpochStateView
   -> FilePath