git.iko.soy/reflex-dom
on develop help sign in
More primed version of main functions
bd2a070Tom Smalley
reflex-dom-core/src/Reflex/Dom/Main.hs+7−3
compare with develop
unifiedsplit
@@ -153,9 +153,13 @@ runHydrationWidgetWithHeadAndBody switchoverAction app = withJSContextSingletonM
153 liftIO $ processAsyncEvents events fc
153 liftIO $ processAsyncEvents events fc
154
154
155{-# INLINABLE mainHydrationWidgetWithHeadImmediate #-}
155{-# INLINABLE mainHydrationWidgetWithHeadImmediate #-}
156+mainHydrationWidgetWithHeadImmediate :: (forall x. HydrationWidget x ()) -> (forall x. HydrationWidget x ()) -> JSM ()
157+mainHydrationWidgetWithHeadImmediate = mainHydrationWidgetWithHeadImmediate'
158+
159+{-# INLINABLE mainHydrationWidgetWithHeadImmediate' #-}
156−-- | Warning: `mainHydrationWidgetWithHeadImmediate` is provided only as performance tweak. It is expected to disappear in future releases.
160+-- | Warning: `mainHydrationWidgetWithHeadImmediate'` is provided only as performance tweak. It is expected to disappear in future releases.
157−mainHydrationWidgetWithHeadImmediate :: HydrationWidget () () -> HydrationWidget () () -> JSM ()
161+mainHydrationWidgetWithHeadImmediate' :: HydrationWidget () () -> HydrationWidget () () -> JSM ()
158−mainHydrationWidgetWithHeadImmediate head' body = do
162+mainHydrationWidgetWithHeadImmediate' head' body = do
159 runHydrationWidgetWithHeadAndBodyImmediate $ \appendHead appendBody -> do
163 runHydrationWidgetWithHeadAndBodyImmediate $ \appendHead appendBody -> do
160 appendHead head'
164 appendHead head'
161 appendBody body
165 appendBody body
reflex-dom/benchmarks/krausest.hs+1−1
@@ -27,7 +27,7 @@ main :: IO ()
27main = do
27main = do
28 seed <- randomIO
28 seed <- randomIO
29-- mainWidgetWithHead' (\_ -> headW, \_ -> bodyW seed) -- Immediate builder
29-- mainWidgetWithHead' (\_ -> headW, \_ -> bodyW seed) -- Immediate builder
30− mainHydrationWidgetWithHeadImmediate headW (bodyW seed) -- Hydration builder
30+ mainHydrationWidgetWithHeadImmediate' headW (bodyW seed) -- Hydration builder
31
31
32titleW :: DomBuilder t m => m ()
32titleW :: DomBuilder t m => m ()
33titleW = text "Reflex-dom keyed"
33titleW = text "Reflex-dom keyed"
reflex-dom/src/Reflex/Dom/Internal.hs+8−1
@@ -5,7 +5,7 @@
5{-# LANGUAGE TypeFamilies #-}
5{-# LANGUAGE TypeFamilies #-}
6module Reflex.Dom.Internal
6module Reflex.Dom.Internal
7 (module Main, run, mainWidget, mainWidgetWithHead, mainWidgetWithCss,
7 (module Main, run, mainWidget, mainWidgetWithHead, mainWidgetWithCss,
8− mainWidgetWithHead', mainWidgetInElementById, runApp', mainHydrationWidgetWithHead, mainHydrationWidgetWithHeadImmediate) where
8+ mainWidgetWithHead', mainWidgetInElementById, runApp', mainHydrationWidgetWithHead, mainHydrationWidgetWithHead', mainHydrationWidgetWithHeadImmediate, mainHydrationWidgetWithHeadImmediate') where
9
9
10import Data.ByteString (ByteString)
10import Data.ByteString (ByteString)
11import Data.Text (Text)
11import Data.Text (Text)
@@ -106,7 +106,14 @@ mainHydrationWidgetWithHead :: (forall x. HydrationWidget x ()) -> (forall x. Hy
106mainHydrationWidgetWithHead h b = run $ Main.mainHydrationWidget h b
106mainHydrationWidgetWithHead h b = run $ Main.mainHydrationWidget h b
107{-# INLINE mainHydrationWidgetWithHead #-}
107{-# INLINE mainHydrationWidgetWithHead #-}
108
108
109+mainHydrationWidgetWithHead' :: HydrationWidget () () -> HydrationWidget () () -> IO ()
110+mainHydrationWidgetWithHead' h b = run $ Main.mainHydrationWidget' h b
111+{-# INLINE mainHydrationWidgetWithHead' #-}
112+
109mainHydrationWidgetWithHeadImmediate :: (forall x. HydrationWidget x ()) -> (forall x. HydrationWidget x ()) -> IO ()
113mainHydrationWidgetWithHeadImmediate :: (forall x. HydrationWidget x ()) -> (forall x. HydrationWidget x ()) -> IO ()
110mainHydrationWidgetWithHeadImmediate h b = run $ Main.mainHydrationWidgetWithHeadImmediate h b
114mainHydrationWidgetWithHeadImmediate h b = run $ Main.mainHydrationWidgetWithHeadImmediate h b
111{-# INLINE mainHydrationWidgetWithHeadImmediate #-}
115{-# INLINE mainHydrationWidgetWithHeadImmediate #-}
112
116
117+mainHydrationWidgetWithHeadImmediate' :: HydrationWidget () () -> HydrationWidget () () -> IO ()
118+mainHydrationWidgetWithHeadImmediate' h b = run $ Main.mainHydrationWidgetWithHeadImmediate' h b
119+{-# INLINE mainHydrationWidgetWithHeadImmediate' #-}