diff --git a/src/DOM.hs b/src/DOM.hs index 91912ed..66f83ac 100644 --- a/src/DOM.hs +++ b/src/DOM.hs @@ -93,7 +93,7 @@ page aPage = script_ [src_ "/js/hablo.js"] empty optional faviconLink =<< (asks $skin.$favicon) optional (Card.make aPage) =<< (asks $urls.$cards) - (asks $skin.$head) >>= maybe (toHtml empty) toHtmlRaw + optional toHtmlRaw =<< (asks $skin.$head) ) body_ (do maybe defaultBanner toHtmlRaw =<< (asks $skin.$banner)