pipes 4.3.5 → 4.3.6

raw patch · 3 files changed

+7/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGELOG.md +4/−0
pipes.cabal +1/−1
src/Pipes/Internal.hs +2/−2

CHANGELOG.md view

@@ -1,3 +1,7 @@+4.3.6++* Fix implementation of `pass` in `MonadWriter` instance for `Proxy`+ 4.3.5  * Support `Semigroup` being a super-class of `Monoid`

pipes.cabal view

@@ -1,5 +1,5 @@ Name: pipes-Version: 4.3.5+Version: 4.3.6 Cabal-Version: >= 1.10 Build-Type: Simple Tested-With: GHC == 7.4.2, GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.2, GHC == 8.0.1

src/Pipes/Internal.hs view

@@ -41,7 +41,7 @@ import Control.Monad.Catch (MonadThrow(..), MonadCatch(..)) import Control.Monad.Reader (MonadReader(..)) import Control.Monad.State (MonadState(..))-import Control.Monad.Writer (MonadWriter(..))+import Control.Monad.Writer (MonadWriter(..), censor) import Data.Void (Void)  #if MIN_VERSION_base(4,8,0)@@ -211,7 +211,7 @@             Request a' fa  -> Request a' (\a  -> go (fa  a ) w)             Respond b  fb' -> Respond b  (\b' -> go (fb' b') w)             M       m      -> M (do-                (p', w') <- listen m+                (p', w') <- censor (const mempty) (listen m)                 return (go p' $! mappend w w') )             Pure   (r, f)  -> M (pass (return (Pure r, \_ -> f w)))