diff --git a/src/Foundation/SiteLayout.hs b/src/Foundation/SiteLayout.hs index 2aaede481..1d5bd7cde 100644 --- a/src/Foundation/SiteLayout.hs +++ b/src/Foundation/SiteLayout.hs @@ -141,6 +141,8 @@ siteLayout' :: ( BearerAuthSite UniWorX => Maybe (WidgetFor UniWorX ()) -- ^ `pageHeading` -> WidgetFor UniWorX () -> HandlerFor UniWorX Html siteLayout' overrideHeading widget = do + $(widgetFile "widgets/includeCss") + AppSettings { appUserDefaults = UserDefaultConf{..}, .. } <- getsYesod $ view appSettings isModal <- hasCustomHeader HeaderIsModal @@ -487,7 +489,7 @@ siteLayout' overrideHeading widget = do frontendI18n = toJSON (mr :: FrontendMessage -> Text) frontendDatetimeLocale <- toJSON <$> selectLanguage frontendDatetimeLocales - pc <- widgetToPageContent $ do + pc' <- widgetToPageContent $ do bundlerLinks_main StaticR bundlerLinks_polyfill StaticR toWidget $(juliusFile "templates/i18n.julius") @@ -505,6 +507,7 @@ siteLayout' overrideHeading widget = do | otherwise -> CssBuilder . LTB.fromLazyText $ "[data-uw-field-display=\"" <> fromStrict hpSecret <> "\"]{/*display:none!important*/}" $(widgetFile "default-layout") + let pc = pc'{ pageHead = pageHead pc' <> [hamlet||] } -- TODO replace href withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")