diff --git a/src/Lexer.hs b/src/Lexer.hs index e12324b..87f0ee0 100644 --- a/src/Lexer.hs +++ b/src/Lexer.hs @@ -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 diff --git a/test/Spec.hs b/test/Spec.hs index 0a7653d..fb9d8b2 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -107,11 +107,15 @@ maths = do ] escaping :: Expectation -escaping = +escaping = do "\\(" `shouldLexTo` [ (1, 1, Escape) , (1, 2, Token "(") ] + "\\(\r\n" + `shouldLexTo` [ (1, 1, Escape) + , (1, 2, Token "(") + ] unicode :: Expectation unicode =