@@ -35,7 +35,7 @@ import Text.Pandoc.Shared (trimr)
3535import Text.Pandoc.Writers.Native (writeNative)
3636import Text.Printf
3737
38−test :: (ToString a, ToString b, ToString c)
38+test :: (ToString a, ToString b, ToString c, HasCallStack)
3939 => (a -> b) -- ^ function to test
4040 -> String -- ^ name of test case
4141 -> (a, c) -- ^ (input, expected value)