@@ -84,10 +84,22 @@ tell :: Monad m => proxy tag -> w -> WriterT tag w m ()
84tell t w = writer t ((), w)
84tell t w = writer t ((), w)
86-- | Executes an action and adds its accumulator to the value of the computation.
86-- | Executes an action and adds its accumulator to the value of the computation.
88+#if __GLASGOW_HASKELL__ < 800
89+ :: (Monad m, Monoid w)
87−listen :: (Monoid w, Monad m) => proxy tag -> WriterT tag w m a -> WriterT tag w m (a, w)
93+ => proxy tag -> WriterT tag w m a -> WriterT tag w m (a, w)
88listen _ = pack . Trans.listen . unpack
94listen _ = pack . Trans.listen . unpack
90-- | Executes an action which returns a value and a function, and returns the
96-- | Executes an action which returns a value and a function, and returns the
91-- value, applying the function to the accumulator.
97-- value, applying the function to the accumulator.
99+#if __GLASGOW_HASKELL__ < 800
100+ :: (Monad m, Monoid w)
92−pass :: (Monoid w, Monad m) => proxy tag -> WriterT tag w m (a, w -> w) -> WriterT tag w m a
104+ => proxy tag -> WriterT tag w m (a, w -> w) -> WriterT tag w m a
93pass _ = pack . Trans.pass . unpack
105pass _ = pack . Trans.pass . unpack