Frozen callstack for checkTextEnvelopeFormat function

IntersectMBO · Apr 5, 2023 · 1e24671 · 1e24671
1 parent 27f8437
commit 1e24671
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cardano-cli/test/Test/OptParse.hs b/cardano-cli/test/Test/OptParse.hs
@@ -44,7 +44,7 @@ checkTextEnvelopeFormat
   -> FilePath
   -> FilePath
   -> m ()
-checkTextEnvelopeFormat tve reference created = do
+checkTextEnvelopeFormat tve reference created = GHC.withFrozenCallStack $ do
   eRefTextEnvelope <- liftIO $ readTextEnvelopeOfTypeFromFile tve reference
   refTextEnvelope <- handleTextEnvelope eRefTextEnvelope
 
@@ -59,9 +59,9 @@ checkTextEnvelopeFormat tve reference created = do
    handleTextEnvelope (Right refTextEnvelope) = return refTextEnvelope
    handleTextEnvelope (Left fileErr) = failWithCustom GHC.callStack Nothing . displayError $ fileErr
 
-   typeTitleEquivalence :: MonadTest m => TextEnvelope -> TextEnvelope -> m ()
+   typeTitleEquivalence :: (MonadTest m, HasCallStack) => TextEnvelope -> TextEnvelope -> m ()
    typeTitleEquivalence (TextEnvelope refType refTitle _)
-                        (TextEnvelope createdType createdTitle _) = do
+                        (TextEnvelope createdType createdTitle _) = GHC.withFrozenCallStack $ do
      equivalence refType createdType
      equivalence refTitle createdTitle