From f943fc17e5f80f92d20c86de5ea499bbfbe0cd75 Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Tue, 13 Oct 2020 18:07:29 +0530
Subject: allow multiline expressions

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

(limited to 'src')

diff --git a/src/Parser.hs b/src/Parser.hs
index 1242645..dc754d3 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -69,7 +69,10 @@ parseId = do
                _    -> Id atom
 
 whiteSpace :: Parser ()
-whiteSpace = skipMany1 space
+whiteSpace = skipMany1 $ oneOf [' ', '\n']
+
+optionalWhiteSpace :: Parser ()
+optionalWhiteSpace = skipMany $ oneOf [' ', '\n']
 
 type Alias = String
 parseModifier :: Char -> Alias -> Parser Expr
@@ -98,7 +101,7 @@ parseLispValue =
         x <- sepEndBy parseLispValue whiteSpace
         spaces
         t <- optionMaybe $ char '.' >> space >> parseLispValue
-        spaces >> char ')'
+        optionalWhiteSpace >> char ')'
         return $ maybe (List x) (DottedList x) t
     <?> "lisp value"
 
-- 
cgit v1.2.3