From 4842ab6362077a62893ac79b752c7da5578292b9 Mon Sep 17 00:00:00 2001 From: Akshay Date: Mon, 12 Oct 2020 14:58:53 +0530 Subject: fix dotted lists again --- src/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 = char '(' >> spaces x <- sepEndBy parseLispValue whiteSpace spaces - t <- optionMaybe $ space >> char '.' >> space >> parseLispValue + t <- optionMaybe $ char '.' >> space >> parseLispValue spaces >> char ')' return $ maybe (List x) (DottedList x) t "lisp value" -- cgit v1.2.3