diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-08 13:16:16 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-08 13:16:32 +0200 |
| commit | 723fa29e5ceb2f7ee4a13632ccfe3acf5e8808c2 (patch) | |
| tree | 239124e9d389e65568c8527014521568e147fe41 /src/Builtins.hs | |
| parent | d91979adb9dc6eaa96f37ac0af337fed1aed08af (diff) | |
Add :tag AST, refactor core to use it
Diffstat (limited to 'src/Builtins.hs')
| -rw-r--r-- | src/Builtins.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Builtins.hs b/src/Builtins.hs index e87cb09..751be12 100644 --- a/src/Builtins.hs +++ b/src/Builtins.hs @@ -274,8 +274,8 @@ builtinFatal = (name, makeNonsenseAST $ ASTFunction Impure fn1) where builtinKind :: (String, AST) builtinKind = (name, makeNonsenseAST $ ASTFunction Pure fn1) where name = "kind" - fn1 AST { an = ASTRecord identifier _} = - return $ makeNonsenseAST $ ASTString identifier + fn1 AST { an = ASTRecord tagHash identifier _} = + return $ makeNonsenseAST $ ASTTag tagHash identifier fn1 ast1 = throwL (astPos ast1) $ argError1 name ast1 builtinReadFile :: (String, AST) |