Skip to content
Browse files

Merge pull request #1 from kowey/bugfix

Recognise whitespace after last list item.
  • Loading branch information...
2 parents 0562e16 + 162c453 commit 30b4374e455284de57db74fd9d6d8dce5e98e4b4 @nominolo committed Aug 16, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Data/AttoLisp.hs
View
2 Data/AttoLisp.hs
@@ -658,7 +658,7 @@ terminatingChar c =
list_ :: A.Parser Lisp
list_ = do
skipSpace
- elems <- (lisp `sepBy` skipSpace) <* char ')'
+ elems <- (lisp `sepBy` skipSpace) <* skipSpace <* char ')'
return (List elems)
doubleQuote :: Word8

0 comments on commit 30b4374

Please sign in to comment.
Something went wrong with that request. Please try again.