Merge pull request #5059 from input-output-hk/newhoggy/frozen-callsta…

…ck-for-checkTextEnvelopeFormat Frozen callstack for checkTextEnvelopeFormat function
IntersectMBO · Apr 6, 2023 · 8892f98 · 8892f98
2 parents 27f8437 + 1e24671
commit 8892f98
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