aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAkshay <[email protected]>2020-10-12 10:28:53 +0100
committerAkshay <[email protected]>2020-10-12 10:28:53 +0100
commit4842ab6362077a62893ac79b752c7da5578292b9 (patch)
treeb869dfb36562a513fb2dec1a2ba2f34a3f40cf20 /src
parentc5d07ee83d1522b5ee9753d379dc1daf09600c08 (diff)
fix dotted lists again
Diffstat (limited to 'src')
-rw-r--r--src/Parser.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Parser.hs b/src/Parser.hs
index 0ac8b54..1242645 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -97,7 +97,7 @@ parseLispValue =
97 char '(' >> spaces 97 char '(' >> spaces
98 x <- sepEndBy parseLispValue whiteSpace 98 x <- sepEndBy parseLispValue whiteSpace
99 spaces 99 spaces
100 t <- optionMaybe $ space >> char '.' >> space >> parseLispValue 100 t <- optionMaybe $ char '.' >> space >> parseLispValue
101 spaces >> char ')' 101 spaces >> char ')'
102 return $ maybe (List x) (DottedList x) t 102 return $ maybe (List x) (DottedList x) t
103 <?> "lisp value" 103 <?> "lisp value"