diff options
| author | Akshay <[email protected]> | 2020-10-12 10:28:53 +0100 |
|---|---|---|
| committer | Akshay <[email protected]> | 2020-10-12 10:28:53 +0100 |
| commit | 4842ab6362077a62893ac79b752c7da5578292b9 (patch) | |
| tree | b869dfb36562a513fb2dec1a2ba2f34a3f40cf20 /src | |
| parent | c5d07ee83d1522b5ee9753d379dc1daf09600c08 (diff) | |
fix dotted lists again
Diffstat (limited to 'src')
| -rw-r--r-- | src/Parser.hs | 2 |
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" |