diff options
Diffstat (limited to 'test/TestUtils.hs')
| -rw-r--r-- | test/TestUtils.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |