Commits

Bryan O'Sullivan committed 589a6a6

Use overloaded strings, for tidiness.

Comments (0)

Files changed (1)

Data/Attoparsec/Internal.hs

-{-# LANGUAGE BangPatterns, Rank2Types, RecordWildCards #-}
+{-# LANGUAGE BangPatterns, Rank2Types, OverloadedStrings, RecordWildCards #-}
 -- |
 -- Module      :  Data.Attoparsec.Internal
 -- Copyright   :  Bryan O'Sullivan 2007-2010
 -- | 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 (B.pack "\r\n") >> return ())
+endOfLine = (word8 10 >> return ()) <|> (string "\r\n" >> return ())
 
 --- | Name the parser, in case failure occurs.
 (<?>) :: Parser a