on develop help sign in
Merge pull request #237 from reflex-frp/profile-static-widget

Make StaticWidget work with the Reflex profiler

commit105dd76021e8ab9568bbdac78daf1ba642d76e92 authorRyan Trinkle <ryan.trinkle@gmail.com> dateThu 20 Sep 2018, 16:03 (8 years ago) parente28f91bd81c8e2
1 file changed+3−3
reflex-dom-core/src/Reflex/Dom/Builder/Static.hs+3−3
reflex-dom-core/src/Reflex/Dom/Builder/Static.hs+3−3
@@ -42,13 +42,13 @@ import Data.Tuple
4242import GHC.Generics
4343import Reflex.Adjustable.Class
4444import Reflex.Class
45+import Reflex.Dom.Main (DomHost, DomTimeline, runDomHost)
4546import Reflex.Dom.Builder.Class
4647import Reflex.Dynamic
4748import Reflex.Host.Class
4849import Reflex.PerformEvent.Base
4950import Reflex.PerformEvent.Class
5051import Reflex.PostBuild.Base
51−import Reflex.Spider
5252import Reflex.TriggerEvent.Class
5353
5454data StaticDomBuilderEnv t = StaticDomBuilderEnv
@@ -288,12 +288,12 @@ instance SupportsStaticDomBuilder t m => DomBuilder t (StaticDomBuilderT t m) wh
288288 wrapRawElement () _ = return $ Element (EventSelector $ const never) ()
289289
290290--TODO: Make this more abstract --TODO: Put the WithWebView underneath PerformEventT - I think this would perform better
291−type StaticWidget x = PostBuildT Spider (StaticDomBuilderT Spider (PerformEventT Spider (SpiderHost Global)))
291+type StaticWidget x = PostBuildT DomTimeline (StaticDomBuilderT DomTimeline (PerformEventT DomTimeline DomHost))
292292
293293{-# INLINE renderStatic #-}
294294renderStatic :: StaticWidget x a -> IO (a, ByteString)
295295renderStatic w = do
296− runSpiderHost $ do
296+ runDomHost $ do
297297 (postBuild, postBuildTriggerRef) <- newEventWithTriggerRef
298298 let env0 = StaticDomBuilderEnv True Nothing
299299 ((res, bs), FireCommand fire) <- hostPerformEventT $ runStaticDomBuilderT (runPostBuildT w postBuild) env0