From 37e251578181213e49ba08d3de39f0b8b4f77427 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sat, 10 Dec 2022 21:08:30 +0200
Subject: Add char datatype

---
 src/Parser.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index be75ab3..5e94148 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -29,6 +29,7 @@ parseToken (Token token tr tc tf)
     | isTag token = let tok = tail token
                      in ast $ ASTTag (computeTagN tok) tok
     | isString token = ast $ ASTString $ removeQuotes token
+    | isChar token = ast $ ASTChar $ head $ removeQuotes token
     | isInteger token = ast $ ASTInteger (read token)
     | isDouble token = ast $ ASTDouble (read token)
     | isBoolean token = ast $ ASTBoolean $ asBoolean token
@@ -41,6 +42,7 @@ parseToken (Token token tr tc tf)
         isDouble :: String -> Bool
         isDouble t = t =~ doubleRegex
         isString t = "\"" `L.isPrefixOf` t
+        isChar t = "'" `L.isPrefixOf` t
         isTag t = ":" `L.isPrefixOf` t && length t > 1
         removeQuotes s = drop 1 s $> take (length s - 2)
         isBoolean t = t `elem` ["true", "false"]
-- 
cgit v1.3