@@ -247,9 +247,12 @@ instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (WithWebView
247247 newEventWithTrigger = lift . newEventWithTrigger
248248 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
249249
250+instance MonadSubscribeEvent t m => MonadSubscribeEvent t (WithWebView x m) where
251+ subscribeEvent = lift . subscribeEvent
252+
250253instance MonadReflexHost t m => MonadReflexHost t (WithWebView x m) where
254+ type ReadPhase (WithWebView x m) = ReadPhase m
251255 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
252− subscribeEvent = lift . subscribeEvent
253256 runHostFrame = lift . runHostFrame
254257
255258runWithWebView :: WithWebView x m a -> WebViewSingleton x -> m a