Commits

Bryan O'Sullivan committed d330b00 Merge

Merge

Comments (0)

Files changed (2)

Data/Attoparsec/Combinator.hs

 
 import Control.Applicative (Alternative(..), Applicative(..), empty, liftA2,
                             (<|>), (*>), (<$>))
+#if !MIN_VERSION_base(4,2,0)
+import Control.Applicative (many)
+#endif
+
 #if __GLASGOW_HASKELL__ >= 700
 import Data.Attoparsec.Internal.Types (Parser)
 import qualified Data.Attoparsec.Zepto as Z

Data/Attoparsec/Internal/Types.hs

     (<|>) = plus
     {-# INLINE (<|>) #-}
 
+#if MIN_VERSION_base(4,2,0)
     many v = many_v
         where many_v = some_v <|> pure []
               some_v = (:) <$> v <*> many_v
         many_v = some_v <|> pure []
         some_v = (:) <$> v <*> many_v
     {-# INLINE some #-}
+#endif
 
 failDesc :: String -> Parser t a
 failDesc err = Parser (\i0 a0 m0 kf _ks -> kf i0 a0 m0 [] msg)