From 3c4eaff845299dce05a371c246ea8c782f26d4ea Mon Sep 17 00:00:00 2001 From: Alexander Wood Date: Thu, 7 Dec 2023 12:58:06 +0000 Subject: [PATCH] fix tests --- test/Util.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/test/Util.hs b/test/Util.hs index eb2476c..89f108b 100644 --- a/test/Util.hs +++ b/test/Util.hs @@ -9,11 +9,13 @@ import JVM.Data.Convert.Instruction (convertInstructions, fullyRunCodeConverter) import JVM.Data.Convert.Monad (runConvertM) import JVM.Data.Raw.Instruction qualified as Raw import Test.Hspec (HasCallStack) +import Polysemy runConv :: (MonadTest m) => [Abs.Instruction] -> m ([Raw.Instruction], ConstantPoolState) runConv = withFrozenCallStack $ shouldBeRight + . run . runConvertM . fullyRunCodeConverter . convertInstructions