pipes-transduce 0.4.3 → 0.4.3.1

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• pipes-transduce.cabal +1/−1
• src/Pipes/Transduce/Internal.hs +4/−4

@@ -1,5 +1,5 @@ Name: pipes-transduce-Version: 0.4.3+Version: 0.4.3.1 Cabal-Version: >=1.8.0.2 Build-Type: Simple License: BSD3

@@ -101,12 +101,12 @@       Other o -> Other (bimap f g o))  instance (S.Semigroup a) => S.Semigroup (Fold1 b e a) where-     s1 <> s2 = (<>) <$> s1 <*> s2+     s1 <> s2 = (S.<>) <$> s1 <*> s2      instance (Monoid a) => Monoid (Fold1 b e a) where    mempty = pure mempty #if !(MIN_VERSION_base(4,11,0))-   mappend = (<>) <$> s1 <*> s2+   mappend = (S.<>) #endif  nonexhaustiveCont :: Fold1_ b e a -> Producer b IO () -> IO (Either e a)@@ -505,12 +505,12 @@     Both fs <*> Second as = (\f ((),x) -> f x) <$> Both fs <*> separated_ (pure ()) as   instance (S.Semigroup a) => S.Semigroup (Fold2 b1 b2 e a) where-     s1 <> s2 = (<>) <$> s1 <*> s2+     s1 <> s2 = (S.<>) <$> s1 <*> s2  instance (Monoid a) => Monoid (Fold2 b1 b2 e a) where    mempty = pure mempty #if !(MIN_VERSION_base(4,11,0))-   mappend s1 s2 = (<>) <$> s1 <*> s2+   mappend = (S.<>) #endif  {-|