From 0a56af62ffa95360587728b82c947a2936743a4c Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 27 Sep 2022 15:10:00 +0300
Subject: Add src position to data structures

---
 test/TestUtils.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'test/TestUtils.hs')

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 }
-- 
cgit v1.3