From 64f2dbed84da98c4517cf725b088d870f4aadd98 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 6 Dec 2022 13:43:22 +0200
Subject: Fix string parsing issue

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

diff --git a/src/Parser.hs b/src/Parser.hs
index fa806fd..3779fe5 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -26,9 +26,9 @@ validateBalance allowed asts = do
 
 parseToken :: Token -> AST
 parseToken (Token token tr tc tf)
+    | isString token = ast $ ASTString $ removeQuotes token
     | isInteger token = ast $ ASTInteger (read token)
     | isDouble token = ast $ ASTDouble (read token)
-    | isString token = ast $ ASTString $ removeQuotes token
     | isBoolean token = ast $ ASTBoolean $ asBoolean token
     | otherwise = ast $ ASTSymbol token
     where
-- 
cgit v1.3