@@ -1,5 +1,5 @@
11{-# LANGUAGE BangPatterns, CPP, FlexibleInstances, OverloadedStrings,
2− Rank2Types, RecordWildCards, TypeSynonymInstances #-}
2+ Rank2Types, RecordWildCards, TypeSynonymInstances, GADTs #-}
33{-# OPTIONS_GHC -fno-warn-orphans #-}
44-- |
55-- Module : Data.Attoparsec.Text.Internal
@@ -92,7 +92,7 @@ type Added = T.Added Text
9292type Failure r = T.Failure Text r
9393type Success a r = T.Success Text a r
9494
95−instance IsString (Parser Text) where
95+instance (a ~ Text) => IsString (Parser a) where
9696 fromString = string . T.pack
9797
9898lengthAtLeast :: T.Text -> Int -> Bool