From c9958740743bd38f600d6b3d2f47af474def714f Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Wed, 14 Oct 2020 23:00:05 +0530
Subject: fix vector and bool interactions

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

(limited to 'src')

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
     return $ Vector x
 
 symbol :: Parser Char
-symbol = oneOf "!$%&|*+:/-=<?>@^_~"
+symbol = oneOf "!#$%&|*+:/-=<?>@^_~"
 
 parseId :: Parser Expr
 parseId = do
@@ -99,11 +99,11 @@ parseLispValue =
     parseString
     <|> try parseFloat
     <|> try parseInt
+    <|> try parseVector
     <|> try parseId
     <|> parseQuote
     <|> parseQuasiquote
     <|> parseUnquote
-    <|> parseVector
     -- handles lists and dotted lists
     <|> do
         char '(' >> optionalWhiteSpace
-- 
cgit v1.2.3