git.iko.soy/reflex-dom
on develop help sign in
Update to move subscribeEvent into the new MonadSubscribeEvent class
commit013d0012504979e0c591cbd22af24a49e3f01a45 authorRyan Trinkle <ryan.trinkle@gmail.com> dateSat 25 Jul 2015, 17:26 (11 years ago) parent3b3c3a2
1 file changed+3−1
compare with develop
unifiedsplit
src/Reflex/Dom/Internal.hs+3−1
src/Reflex/Dom/Internal.hs+3−1
@@ -232,10 +232,12 @@ instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (WithWebView
232232 newEventWithTrigger = lift . newEventWithTrigger
233233 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
234234
235+instance MonadSubscribeEvent t m => MonadSubscribeEvent t (WithWebView m) where
236+ subscribeEvent = lift . subscribeEvent
237+
235238instance MonadReflexHost t m => MonadReflexHost t (WithWebView m) where
236239 type ReadPhase (WithWebView m) = ReadPhase m
237240 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
238− subscribeEvent = lift . subscribeEvent
239241 runHostFrame = lift . runHostFrame
240242
241243runWithWebView :: WithWebView m a -> WebView -> m a