From 723fa29e5ceb2f7ee4a13632ccfe3acf5e8808c2 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Thu, 8 Dec 2022 13:16:16 +0200
Subject: Add :tag AST, refactor core to use it

---
 src/Builtins.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Builtins.hs')

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)
-- 
cgit v1.3