pipes 4.1.7 → 4.1.8

raw patch · 3 files changed

+5/−5 lines, 3 filesdep ~basedep ~transformers

Dependency ranges changed: base, transformers

Files

pipes.cabal +2/−2
src/Pipes.hs +1/−1
src/Pipes/Internal.hs +2/−2

pipes.cabal view

@@ -1,5 +1,5 @@ Name: pipes
-Version: 4.1.7
+Version: 4.1.8
 Cabal-Version: >= 1.10
 Build-Type: Simple
 License: BSD3
@@ -44,7 +44,7 @@     HS-Source-Dirs: src
     Build-Depends:
         base         >= 4.4     && < 5  ,
-        transformers >= 0.2.0.0 && < 0.5,
+        transformers >= 0.2.0.0 && < 0.6,
         mmorph       >= 1.0.0   && < 1.1,
         mtl          >= 2.1     && < 2.3

src/Pipes.hs view

@@ -408,7 +408,7 @@         yield (f x) ) ) )
 
 instance (Monad m) => Monad (ListT m) where
-    return a = Select (yield a)
+    return   = pure
     m >>= f  = Select (for (enumerate m) (\a -> enumerate (f a)))
     fail _   = mzero

src/Pipes/Internal.hs view

@@ -84,10 +84,10 @@             Respond b  fb' -> Respond b  (\b' -> go (fb' b'))
             M          m   -> M (m >>= \p' -> return (go p'))
             Pure    f      -> fmap f px
-    (*>) = (>>)
+    m *> k = m >>= (\_ -> k)
 
 instance Monad m => Monad (Proxy a' a b' b m) where
-    return = Pure
+    return = pure
     (>>=)  = _bind
 
 _bind