From 5c2ac28ce976a060ebce0d51b2eb60f28d88d603 Mon Sep 17 00:00:00 2001 From: Tissevert Date: Thu, 7 May 2020 22:52:06 +0200 Subject: [PATCH] Notice this has been generalized just above and use the generalization --- src/DOM.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)