@@ -248,6 +248,7 @@ instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (WithWebView
248 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
248 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
250instance MonadReflexHost t m => MonadReflexHost t (WithWebView x m) where
250instance MonadReflexHost t m => MonadReflexHost t (WithWebView x m) where
251+ type ReadPhase (WithWebView x m) = ReadPhase m
251 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
252 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
252 subscribeEvent = lift . subscribeEvent
253 subscribeEvent = lift . subscribeEvent
253 runHostFrame = lift . runHostFrame
254 runHostFrame = lift . runHostFrame