Add EventWriter instance for ReaderT
commitc21d4cf21092ad80a18263c0f722d897fe64f5d0
authorDoug Beardsley <mightybyte@gmail.com>
dateWed 22 Feb 2017, 14:53 (10 years ago)
parent090b0e0
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