From 8ba98a86805c886719057f9df0d5a74c58c6dabd Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 9 Dec 2022 18:55:21 +0200
Subject: Add do builtin

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

(limited to 'test/TestUtils.hs')

diff --git a/test/TestUtils.hs b/test/TestUtils.hs
index f023bb7..ff53310 100644
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -61,6 +61,8 @@ astFunctionCall :: [AST] -> AST
 astFunctionCall a = ast $ ASTFunctionCall a
 astHashMap :: M.Map AST AST -> AST
 astHashMap a = ast $ ASTHashMap a
+astRecord :: String -> LRecord -> AST
+astRecord a hmap = ast $ ASTRecord (computeTagN a) a hmap
 astUnit :: AST
 astUnit = ast $ ASTUnit
 astHole :: AST
-- 
cgit v1.3