git.iko.soy/reflex-dom
on develop help sign in
mainWidgetWithHead
b450812ali abrar
src/Reflex/Dom/Internal.hs+7
compare with develop
unifiedsplit
@@ -172,6 +172,13 @@ mainWidget w = runWebGUI $ \webView -> do
172 Just body <- documentGetBody doc
172 Just body <- documentGetBody doc
173 attachWidget body w
173 attachWidget body w
174
174
175+mainWidgetWithHead h b = runWebGUI $ \webView -> do
176+ Just doc <- liftM (fmap castToHTMLDocument) $ webViewGetDomDocument webView
177+ Just head <- liftM (fmap castToHTMLElement) $ documentGetHead doc
178+ attachWidget head h
179+ Just body <- documentGetBody doc
180+ attachWidget body b
181+
175mainWidgetWithCss css w = runWebGUI $ \webView -> do
182mainWidgetWithCss css w = runWebGUI $ \webView -> do
176 Just doc <- liftM (fmap castToHTMLDocument) $ webViewGetDomDocument webView
183 Just doc <- liftM (fmap castToHTMLDocument) $ webViewGetDomDocument webView
177 Just head <- liftM (fmap castToHTMLElement) $ documentGetHead doc
184 Just head <- liftM (fmap castToHTMLElement) $ documentGetHead doc