@@ -63,6 +63,9 @@ runEventWriterT (EventWriterT a) = do
63instance (Reflex t, Monad m, Monoid w) => EventWriter t w (EventWriterT t w m) where
63instance (Reflex t, Monad m, Monoid w) => EventWriter t w (EventWriterT t w m) where
64 tellEvent w = EventWriterT $ modify (|> w)
64 tellEvent w = EventWriterT $ modify (|> w)
66+instance EventWriter t w m => EventWriter t w (ReaderT r m) where
67+ tellEvent = lift . tellEvent
66instance MonadTrans (EventWriterT t w) where
69instance MonadTrans (EventWriterT t w) where
67 lift = EventWriterT . lift
70 lift = EventWriterT . lift