@@ -81,7 +81,7 @@ type DomCoreWidget x = PostBuildT DomTimeline (WithJSContextSingleton x (Perform
8181--TODO: Rename
8282{-# INLINABLE attachWidget''' #-}
8383attachWidget'''
84− :: (EventChannel -> PerformEventT DomTimeline (SpiderHost Global) (IORef (Maybe (EventTrigger DomTimeline ()))))
84+ :: (EventChannel -> PerformEventT DomTimeline DomHost (IORef (Maybe (EventTrigger DomTimeline ()))))
8585 -> IO ()
8686attachWidget''' w = runDomHost $ do
8787 events <- liftIO newChan
@@ -151,10 +151,10 @@ runFrontend validFullEncoder frontend = do
151151 mapRoutedT (mapSetRouteT appendBody) $ _frontend_body frontend
152152
153153renderFrontendHtml
154− :: (t ~ SpiderTimeline Global)
154+ :: (t ~ DomTimeline)
155155 => r
156− -> RoutedT t r (SetRouteT t r' (PostBuildT Spider (StaticDomBuilderT Spider (PerformEventT Spider (SpiderHost Global))))) ()
157− -> RoutedT t r (SetRouteT t r' (PostBuildT Spider (StaticDomBuilderT Spider (PerformEventT Spider (SpiderHost Global))))) ()
156+ -> RoutedT t r (SetRouteT t r' (PostBuildT DomTimeline (StaticDomBuilderT DomTimeline (PerformEventT DomTimeline DomHost)))) ()
157+ -> RoutedT t r (SetRouteT t r' (PostBuildT DomTimeline (StaticDomBuilderT DomTimeline (PerformEventT DomTimeline DomHost)))) ()
158158 -> IO ByteString
159159renderFrontendHtml route headWidget bodyWidget = do
160160 --TODO: We should probably have a "NullEventWriterT" or a frozen reflex timeline