Update cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Aeson.hs

Co-authored-by: Mateusz Galazyn <[email protected]>
IntersectMBO · Nov 9, 2023 · 855cd3c · 855cd3c
1 parent 2f50585
commit 855cd3c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Aeson.hs b/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Aeson.hs
@@ -24,12 +24,13 @@ import qualified Hedgehog.Extras as H
 -- For example. if @path@ contains @"{ "a":0, "b":1.0, "c": "foo"}"@,
 -- @hasKeys ["b", "a"] path@ succeeds.
 assertHasKeys :: ()
+  => HasCallStack
   => MonadTest m
   => MonadIO m
   => [Text]
   -> FilePath
   -> m ()
-assertHasKeys keys jsonFile = do
+assertHasKeys keys jsonFile = withFrozenCallStack $ do
   content <- liftIO $ LBS.readFile jsonFile
   case decode content of
     Nothing -> do