projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 2003-05-13 11:42:47 by simonpj]
[ghc-base.git]
/
Control
/
Monad
/
Writer.hs
diff --git
a/Control/Monad/Writer.hs
b/Control/Monad/Writer.hs
index
79ec97e
..
b941e65
100644
(file)
--- a/
Control/Monad/Writer.hs
+++ b/
Control/Monad/Writer.hs
@@
-59,7
+59,7
@@
class (Monoid w, Monad m) => MonadWriter w m | m -> w where
listen :: m a -> m (a, w)
pass :: m (a, w -> w) -> m a
-listens :: (MonadWriter w m) => (w -> w) -> m a -> m (a, w)
+listens :: (MonadWriter w m) => (w -> b) -> m a -> m (a, b)
listens f m = do
(a, w) <- listen m
return (a, f w)