Commits

John Millikin  committed 390da6b

Fix build in GHC 6.10.

The functions (<*) and (*>) are not methods of class Applicative in base_4.1
or earlier.

  • Participants
  • Parent commits e25f43f

Comments (0)

Files changed (1)

File Data/Attoparsec/Internal/Types.hs

     (<*>)  = apP
     {-# INLINE (<*>) #-}
 
+#if MIN_VERSION_base(4,2,0)
     -- These definitions are equal to the defaults, but this
     -- way the optimizer doesn't have to work so hard to figure
     -- that out.
     {-# INLINE (*>) #-}
     x <* y = x >>= \a -> y >> return a
     {-# INLINE (<*) #-}
+#endif
 
 instance Monoid (Parser a) where
     mempty  = failDesc "mempty"