diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-03-09 17:23:00 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-03-09 17:23:00 +1100 |
| commit | e4a16824dc9fa0d85232d673c9925c226175ea85 (patch) | |
| tree | 8e8a8e0a1cb265917566ad834c034b43d0c8c6d9 | |
| parent | 6576f330a8bb66e269fd15e66850ee0082e08d10 (diff) | |
Fixed whitespace handling when removing comments
| -rw-r--r-- | Unlambda/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Unlambda/Parser.hs b/Unlambda/Parser.hs index 18012e7..d5b8889 100644 --- a/Unlambda/Parser.hs +++ b/Unlambda/Parser.hs @@ -50,7 +50,7 @@ removeComments = uline `sepEndBy` eol >>= (return . concat) uline = do - l <- many builtin + l <- many (builtin <|> (oneOf " \t" >>= return . (:[]))) optional (char '#' >> many (noneOf "\r\n")) return . concat $ l |