diff options
| author | adelon <22380201+adelon@users.noreply.github.com> | 2024-03-28 16:40:50 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-03-28 16:40:50 +0100 |
| commit | eae0db671c00f8203c1a61b7a87a00f4e22363a3 (patch) | |
| tree | aa26a58598f79264eca248d14da921e9d931276f /source | |
| parent | 442d732696ad431b84f6e5c72b6ee785be4fd968 (diff) | |
| parent | ffcd13eb8c12f820ec7a49afdcb4b55479443e0d (diff) | |
Merge pull request #1 from Simon-Kor/main
Allow Windows-style newlines
Diffstat (limited to 'source')
| -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 () |