Merge pull request #95 from reflex-frp/eventwriter-readert
Add EventWriter instance for ReaderT
commitd78ba4318c425ca9b942dc387d7c5c7ab2d2e095
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateWed 22 Feb 2017, 18:18 (10 years ago)
parent090b0e0c21d4cf
src/Reflex/EventWriter.hs+3
@@ -63,6 +63,9 @@ runEventWriterT (EventWriterT a) = do
6363instance (Reflex t, Monad m, Monoid w) => EventWriter t w (EventWriterT t w m) where
6464 tellEvent w = EventWriterT $ modify (|> w)
6565
66+instance EventWriter t w m => EventWriter t w (ReaderT r m) where
67+ tellEvent = lift . tellEvent
68+
6669instance MonadTrans (EventWriterT t w) where
6770 lift = EventWriterT . lift
6871