@@ -1,3 +1,6 @@
1+{-# LANGUAGE FlexibleInstances #-}
2+{-# OPTIONS_GHC -fno-warn-orphans #-}
3+
14-- |
25-- Module : Data.Attoparsec.Char8
36-- Copyright : Bryan O'Sullivan 2007-2010
@@ -86,6 +89,7 @@ import Data.Attoparsec.Combinator
8689import Data.Attoparsec.FastSet (charClass, memberChar)
8790import Data.Attoparsec.Internal (Parser, (<?>))
8891import Data.ByteString.Internal (c2w, w2c)
92+import Data.String (IsString(..))
8993import Data.Word (Word8)
9094import Prelude hiding (takeWhile)
9195import qualified Data.Attoparsec as A
@@ -93,6 +97,9 @@ import qualified Data.Attoparsec.Internal as I
9397import qualified Data.ByteString as B8
9498import qualified Data.ByteString.Char8 as B
9599
100+instance IsString (Parser B.ByteString) where
101+ fromString = I.string . B.pack
102+
96103-- $encodings
97104--
98105-- This module is intended for parsing text that is