1 files changed, 3 insertions, 0 deletions
diff --git a/test/TestUtils.hs b/test/TestUtils.hs
index 7247ef5..5206d27 100644
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -28,3 +28,6 @@ expectErrorL lc =
         case res of
             Left (LException err) -> return err
             Right val -> error $ "unexpected success: " ++ show val
+
+wrapAST :: ASTNode -> AST
+wrapAST node = AST { astNode = node }