git.iko.soy/reflex-dom
on develop help sign in
More primed version of main functions
commitbd2a070bc5ef1d4e71653256e1c3ce048bda60ef authorTom Smalley <tfsmalley@gmail.com> dateThu 10 Jan 2019, 15:09 (8 years ago) parent32f4b45
3 files changed+16−5
compare with develop
unifiedsplit
reflex-dom-core/src/Reflex/Dom/Main.hs+7−3 reflex-dom/benchmarks/krausest.hs+1−1 reflex-dom/src/Reflex/Dom/Internal.hs+8−1
reflex-dom-core/src/Reflex/Dom/Main.hs+7−3
@@ -153,9 +153,13 @@ runHydrationWidgetWithHeadAndBody switchoverAction app = withJSContextSingletonM
153153 liftIO $ processAsyncEvents events fc
154154
155155{-# INLINABLE mainHydrationWidgetWithHeadImmediate #-}
156−-- | Warning: `mainHydrationWidgetWithHeadImmediate` is provided only as performance tweak. It is expected to disappear in future releases.
157−mainHydrationWidgetWithHeadImmediate :: HydrationWidget () () -> HydrationWidget () () -> JSM ()
158−mainHydrationWidgetWithHeadImmediate head' body = do
156+mainHydrationWidgetWithHeadImmediate :: (forall x. HydrationWidget x ()) -> (forall x. HydrationWidget x ()) -> JSM ()
157+mainHydrationWidgetWithHeadImmediate = mainHydrationWidgetWithHeadImmediate'
158+
159+{-# INLINABLE mainHydrationWidgetWithHeadImmediate' #-}
160+-- | Warning: `mainHydrationWidgetWithHeadImmediate'` is provided only as performance tweak. It is expected to disappear in future releases.
161+mainHydrationWidgetWithHeadImmediate' :: HydrationWidget () () -> HydrationWidget () () -> JSM ()
162+mainHydrationWidgetWithHeadImmediate' head' body = do
159163 runHydrationWidgetWithHeadAndBodyImmediate $ \appendHead appendBody -> do
160164 appendHead head'
161165 appendBody body
reflex-dom/benchmarks/krausest.hs+1−1
@@ -27,7 +27,7 @@ main :: IO ()
2727main = do
2828 seed <- randomIO
2929-- mainWidgetWithHead' (\_ -> headW, \_ -> bodyW seed) -- Immediate builder
30− mainHydrationWidgetWithHeadImmediate headW (bodyW seed) -- Hydration builder
30+ mainHydrationWidgetWithHeadImmediate' headW (bodyW seed) -- Hydration builder
3131
3232titleW :: DomBuilder t m => m ()
3333titleW = text "Reflex-dom keyed"
reflex-dom/src/Reflex/Dom/Internal.hs+8−1
@@ -5,7 +5,7 @@
55{-# LANGUAGE TypeFamilies #-}
66module Reflex.Dom.Internal
77 (module Main, run, mainWidget, mainWidgetWithHead, mainWidgetWithCss,
8− mainWidgetWithHead', mainWidgetInElementById, runApp', mainHydrationWidgetWithHead, mainHydrationWidgetWithHeadImmediate) where
8+ mainWidgetWithHead', mainWidgetInElementById, runApp', mainHydrationWidgetWithHead, mainHydrationWidgetWithHead', mainHydrationWidgetWithHeadImmediate, mainHydrationWidgetWithHeadImmediate') where
99
1010import Data.ByteString (ByteString)
1111import Data.Text (Text)
@@ -106,7 +106,14 @@ mainHydrationWidgetWithHead :: (forall x. HydrationWidget x ()) -> (forall x. Hy
106106mainHydrationWidgetWithHead h b = run $ Main.mainHydrationWidget h b
107107{-# INLINE mainHydrationWidgetWithHead #-}
108108
109+mainHydrationWidgetWithHead' :: HydrationWidget () () -> HydrationWidget () () -> IO ()
110+mainHydrationWidgetWithHead' h b = run $ Main.mainHydrationWidget' h b
111+{-# INLINE mainHydrationWidgetWithHead' #-}
112+
109113mainHydrationWidgetWithHeadImmediate :: (forall x. HydrationWidget x ()) -> (forall x. HydrationWidget x ()) -> IO ()
110114mainHydrationWidgetWithHeadImmediate h b = run $ Main.mainHydrationWidgetWithHeadImmediate h b
111115{-# INLINE mainHydrationWidgetWithHeadImmediate #-}
112116
117+mainHydrationWidgetWithHeadImmediate' :: HydrationWidget () () -> HydrationWidget () () -> IO ()
118+mainHydrationWidgetWithHeadImmediate' h b = run $ Main.mainHydrationWidgetWithHeadImmediate' h b
119+{-# INLINE mainHydrationWidgetWithHeadImmediate' #-}