@@ -247,9 +247,12 @@ instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (WithWebView
247 newEventWithTrigger = lift . newEventWithTrigger
247 newEventWithTrigger = lift . newEventWithTrigger
248 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
248 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
250+instance MonadSubscribeEvent t m => MonadSubscribeEvent t (WithWebView x m) where
251+ subscribeEvent = lift . subscribeEvent
250instance MonadReflexHost t m => MonadReflexHost t (WithWebView x m) where
253instance MonadReflexHost t m => MonadReflexHost t (WithWebView x m) where
254+ type ReadPhase (WithWebView x m) = ReadPhase m
251 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
255 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
252− subscribeEvent = lift . subscribeEvent
253 runHostFrame = lift . runHostFrame
256 runHostFrame = lift . runHostFrame
255runWithWebView :: WithWebView x m a -> WebViewSingleton x -> m a
258runWithWebView :: WithWebView x m a -> WebViewSingleton x -> m a