Added "\r" to the valid line terminators. ...

"\r" still exists in many places in the wild, mainly because of Mac
OS. For instance we recently hit a case where Gmail would export "\r"
delimited CSV when exporting contacts.

Author: Rick Owens

Data/Attoparsec/ByteString/Internal.hs

@@ -429,7 +429,10 @@ peekWord8' = T.Parser $ \t pos more lose succ ->
 -- | Match either a single newline character @\'\\n\'@, or a carriage
 -- return followed by a newline character @\"\\r\\n\"@.
 endOfLine :: Parser ()
-endOfLine = (word8 10 >> return ()) <|> (string "\r\n" >> return ())
+endOfLine = 
+  (string "\r\n" >> return ())
+  <|> (word8 10 >> return ())
+  <|> (word8 13 >> return ())
 
 -- | Terminal failure continuation.
 failK :: Failure a

Data/Attoparsec/Text/Internal.hs

@@ -431,7 +431,10 @@ peekChar' = do
 -- | Match either a single newline character @\'\\n\'@, or a carriage
 -- return followed by a newline character @\"\\r\\n\"@.
 endOfLine :: Parser ()
-endOfLine = (char '\n' >> return ()) <|> (string "\r\n" >> return ())
+endOfLine =
+  (string "\r\n" >> return ())
+  <|> (char '\n' >> return ())
+  <|> (char '\r' >> return ())
 
 -- | Terminal failure continuation.
 failK :: Failure a