diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-09 18:55:21 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-09 18:55:21 +0200 |
| commit | 8ba98a86805c886719057f9df0d5a74c58c6dabd (patch) | |
| tree | 8bb5a0890f9a69c01ff219553750058b5da82476 /test/TestUtils.hs | |
| parent | cff5a0dfa89ab3a7f95512382cedf88f8e1709d1 (diff) | |
Add do builtin
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 |