update parser to handle strings

write-you-a-scheme-v2 · Apr 17, 2016 · 05855b1 · 05855b1
1 parent e1e6cc7
commit 05855b1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Parser.hs b/src/Parser.hs
@@ -51,12 +51,16 @@ contents p = do
   return r
 
 parseString :: Parser LispVal
+parseString = do
+  x <- strLit
+  return $ String x
+{-
 parseString = do
   reservedOp "\""
   x <- strLit
   reservedOp "\""
   return $ String x
-
+-}
 parseAtom :: Parser LispVal
 parseAtom = do
   atom <- symbol