@@ -1,4 +1,6 @@
1−{-# LANGUAGE BangPatterns #-}
1+{-# LANGUAGE BangPatterns, FlexibleInstances, TypeSynonymInstances #-}
2+{-# OPTIONS_GHC -fno-warn-orphans #-}
3-- Module : Data.Attoparsec.Text
5-- Module : Data.Attoparsec.Text
4-- Copyright : Bryan O'Sullivan 2011
6-- Copyright : Bryan O'Sullivan 2011
@@ -102,12 +104,16 @@ import Data.Bits (Bits, (.|.), shiftL)
102import Data.Char (isAlpha, isDigit, isSpace, ord)
104import Data.Char (isAlpha, isDigit, isSpace, ord)
103import Data.Int (Int8, Int16, Int32, Int64)
105import Data.Int (Int8, Int16, Int32, Int64)
104import Data.Ratio ((%))
106import Data.Ratio ((%))
107+import Data.String (IsString(..))
105import Data.Text (Text)
108import Data.Text (Text)
106import Data.Word (Word8, Word16, Word32, Word64, Word)
109import Data.Word (Word8, Word16, Word32, Word64, Word)
107import qualified Data.Attoparsec.Internal.Types as T
110import qualified Data.Attoparsec.Internal.Types as T
108import qualified Data.Attoparsec.Text.Internal as I
111import qualified Data.Attoparsec.Text.Internal as I
109import qualified Data.Text as T
112import qualified Data.Text as T
114+instance IsString (Parser Text) where
115+ fromString = I.string . T.pack
111-- $parsec
117-- $parsec
113-- Compared to Parsec 3, Attoparsec makes several tradeoffs. It is
119-- Compared to Parsec 3, Attoparsec makes several tradeoffs. It is