diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-06 13:43:22 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-06 13:43:22 +0200 |
| commit | 64f2dbed84da98c4517cf725b088d870f4aadd98 (patch) | |
| tree | 9849e1cd42735f7ca8e809046c1ec193ec60fd23 /src | |
| parent | 25f03708f28ee6de49d22323fe4ff5fd7ee74960 (diff) | |
Fix string parsing issue
Diffstat (limited to 'src')
| -rw-r--r-- | src/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |