fix(lexer): handle crlf in newline

Do we support windows 🤔
This commit is contained in:
Primrose 2025-09-24 18:35:15 +08:00
parent 39cfe2035d
commit fdb9070e99
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
2 changed files with 6 additions and 2 deletions

View file

@ -152,7 +152,7 @@ delimitedSymmetric :: Parser a -> Token -> Token -> Parser [LocatedToken]
delimitedSymmetric s t1 t2 = delimited s s t1 t2
eol :: Parser ()
eol = void "\n" <|> Parsec.eof
eol = void "\n" <|> void "\r\n" <|> Parsec.eof
header1 :: Lexer
header1 = delimitedMaybe (void $ "= ") eol (Header One) Nothing