aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAkshay <[email protected]>2020-10-14 18:30:05 +0100
committerAkshay <[email protected]>2020-10-14 18:30:05 +0100
commitc9958740743bd38f600d6b3d2f47af474def714f (patch)
treec8aafe0b12064ffcd2fca6d41819ca013b65f076 /src
parent14ad0667bf25351e522faa7d9fbb3ff31619d92e (diff)
fix vector and bool interactions
Diffstat (limited to 'src')
-rw-r--r--src/Parser.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Parser.hs b/src/Parser.hs
index 69197b8..115203b 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -64,7 +64,7 @@ parseVector = do
64 return $ Vector x 64 return $ Vector x
65 65
66symbol :: Parser Char 66symbol :: Parser Char
67symbol = oneOf "!$%&|*+:/-=<?>@^_~" 67symbol = oneOf "!#$%&|*+:/-=<?>@^_~"
68 68
69parseId :: Parser Expr 69parseId :: Parser Expr
70parseId = do 70parseId = do
@@ -99,11 +99,11 @@ parseLispValue =
99 parseString 99 parseString
100 <|> try parseFloat 100 <|> try parseFloat
101 <|> try parseInt 101 <|> try parseInt
102 <|> try parseVector
102 <|> try parseId 103 <|> try parseId
103 <|> parseQuote 104 <|> parseQuote
104 <|> parseQuasiquote 105 <|> parseQuasiquote
105 <|> parseUnquote 106 <|> parseUnquote
106 <|> parseVector
107 -- handles lists and dotted lists 107 -- handles lists and dotted lists
108 <|> do 108 <|> do
109 char '(' >> optionalWhiteSpace 109 char '(' >> optionalWhiteSpace