diff options
| author | Simon-Kor <52245124+Simon-Kor@users.noreply.github.com> | 2024-03-28 16:38:57 +0100 |
|---|---|---|
| committer | Simon-Kor <52245124+Simon-Kor@users.noreply.github.com> | 2024-03-28 16:38:57 +0100 |
| commit | ffcd13eb8c12f820ec7a49afdcb4b55479443e0d (patch) | |
| tree | aa26a58598f79264eca248d14da921e9d931276f /source/Syntax/Token.hs | |
| parent | 442d732696ad431b84f6e5c72b6ee785be4fd968 (diff) | |
Allow Windows-style newlines
Diffstat (limited to 'source/Syntax/Token.hs')
| -rw-r--r-- | source/Syntax/Token.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/source/Syntax/Token.hs b/source/Syntax/Token.hs index 7c8606c..7a9a42d 100644 --- a/source/Syntax/Token.hs +++ b/source/Syntax/Token.hs @@ -431,7 +431,7 @@ lexeme p = do pure (Located start t) space :: Lexer () -space = void (Char.char ' ' <|> Char.char '\n') +space = void (Char.char ' ' <|> Char.char '\n' <|> Char.char '\r') <|> void (Char.string "\\ " <|> Char.string "\\\\" <|> Char.string "\\!" <|> Char.string "\\," <|> Char.string "\\:" <|> Char.string "\\;" <|> Char.string "\\;") whitespace :: Lexer () |