Support latest reflex
commit87878285a4d63a0123e1c03ca049c70e773cb2ad
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateFri 12 Jan 2018, 00:43 (9 years ago)
parenta7c7ab4
Reflex/Dom/Routing/Nested.hs+2
@@ -114,6 +114,8 @@ instance (DomBuilder t m, MonadHold t m, MonadFix m) => DomBuilder t (RouteT t s
114114 placeRawElement = lift . placeRawElement
115115 wrapRawElement e = lift . wrapRawElement e
116116
117+instance (Monad m, NotReady t m) => NotReady t (RouteT t segment m)
118+
117119instance MonadReader r m => MonadReader r (RouteT t segment m) where
118120 ask = lift ask
119121 local f (RouteT a) = RouteT $ mapReaderT (local f) a
Reflex/Dom/Routing/Writer.hs+2
@@ -91,6 +91,8 @@ instance (DomBuilder t m, MonadHold t m, MonadFix m) => DomBuilder t (RouteWrite
9191 placeRawElement = lift . placeRawElement
9292 wrapRawElement e = lift . wrapRawElement e
9393
94+instance (Monad m, NotReady t m) => NotReady t (RouteWriterT t segment m)
95+
9496deriving instance MonadReader r m => MonadReader r (RouteWriterT t segment m)
9597
9698instance RouteWriter t segment m => RouteWriter t segment (EventWriterT t w m) where