@@ -42,7 +42,7 @@ import qualified Data.Some as Some
42import Data.Tuple
42import Data.Tuple
43import Data.Unique.Tag
43import Data.Unique.Tag
45−-- | 'MonadEventWriter' efficiently collects 'Event' values using 'tellEvent'
45+-- | 'EventWriter' efficiently collects 'Event' values using 'tellEvent'
46-- and combines them monoidally to provide an 'Event' result.
46-- and combines them monoidally to provide an 'Event' result.
47class (Monad m, Monoid w) => EventWriter t w m | m -> t w where
47class (Monad m, Monoid w) => EventWriter t w m | m -> t w where
48 tellEvent :: Event t w -> m ()
48 tellEvent :: Event t w -> m ()