@@ -1,4 +1,4 @@
1−{-# LANGUAGE BangPatterns, Rank2Types, RecordWildCards #-}
1+{-# LANGUAGE BangPatterns, Rank2Types, OverloadedStrings, RecordWildCards #-}
22-- |
33-- Module : Data.Attoparsec.Internal
44-- Copyright : Bryan O'Sullivan 2007-2010
@@ -483,7 +483,7 @@ endOfInput = Parser $ \st0@S{..} kf ks ->
483483-- | Match either a single newline character @\'\\n\'@, or a carriage
484484-- return followed by a newline character @\"\\r\\n\"@.
485485endOfLine :: Parser ()
486−endOfLine = (word8 10 >> return ()) <|> (string (B.pack "\r\n") >> return ())
486+endOfLine = (word8 10 >> return ()) <|> (string "\r\n" >> return ())
487487
488488--- | Name the parser, in case failure occurs.
489489(<?>) :: Parser a