diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2020-07-25 20:38:58 +0200 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2020-07-25 20:38:58 +0200 |
| commit | d5ab8f4939a4af51c7a9e1c2cd73c8352f8345b4 (patch) | |
| tree | ded561d83a26b6ae3c967c556b231b20f44518a7 | |
| parent | 5b15f056d1a52d6d05f9441d44bf0b50ae480229 (diff) | |
Allow hanging indent in parser
| -rw-r--r-- | parser/CC/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parser/CC/Parser.hs b/parser/CC/Parser.hs index 3183dea..bbabe3c 100644 --- a/parser/CC/Parser.hs +++ b/parser/CC/Parser.hs @@ -147,7 +147,7 @@ emptyLines :: Parser () emptyLines = (try (whitespace >> newline) >> emptyLines) <|> try (whitespace >> eof) <|> return () whitespace :: Parser () -whitespace = void (many (char ' ')) +whitespace = void (many (void (char ' ') <|> void (try (string "\n ")))) getPosition :: Parser SourcePos getPosition = do |