File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -16,7 +16,7 @@ import Data.Tuple (Tuple(..))
16
16
-- | Law:
17
17
-- |
18
18
-- | - `do { tell x ; tell y } = tell (x <> y)`
19
- class Monad m <= MonadTell w m | m -> w where
19
+ class ( Semigroup w , Monad m ) <= MonadTell w m | m -> w where
20
20
tell :: w -> m Unit
21
21
22
22
-- | An extension of the `MonadTell` class that introduces some operations on
@@ -33,7 +33,7 @@ class Monad m <= MonadTell w m | m -> w where
33
33
-- | - `do { tell x ; tell y } = tell (x <> y)`
34
34
-- | - `listen (pure a) = pure (Tuple a mempty)`
35
35
-- | - `listen (writer a x) = tell x $> Tuple a x`
36
- class MonadTell w m <= MonadWriter w m | m -> w where
36
+ class ( Monoid w , MonadTell w m ) <= MonadWriter w m | m -> w where
37
37
listen :: forall a . m a -> m (Tuple a w )
38
38
pass :: forall a . m (Tuple a (w -> w )) -> m a
39
39
You can’t perform that action at this time.
0 commit comments