diff options
Diffstat (limited to 'src/Builtins.hs')
| -rw-r--r-- | src/Builtins.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Builtins.hs b/src/Builtins.hs index dc80db4..843faa7 100644 --- a/src/Builtins.hs +++ b/src/Builtins.hs @@ -34,6 +34,7 @@ builtinEnv = M.fromList [ ("_", makeNonsenseAST ASTHole), ("otherwise", makeNonsenseAST ASTHole), builtinFatal, + builtinKind, -- reserved keywords reservedKeyword "\\", reservedKeyword "let!", @@ -230,3 +231,10 @@ builtinFatal = (name, makeNonsenseAST $ ASTFunction False fn1) where throwL (astPos ast1) $ str fn1 ast1 = throwL (astPos ast1) $ argError1 name ast1 + +builtinKind :: (String, AST) +builtinKind = (name, makeNonsenseAST $ ASTFunction True fn1) where + name = "kind" + fn1 AST { astNode = ASTRecord identifier _} = + return $ makeNonsenseAST $ ASTString identifier + fn1 ast1 = throwL (astPos ast1) $ argError1 name ast1 |