Tissevert/hablo
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Notice this has been generalized just above and use the generalization

Browse source
This commit is contained in:
Tissevert 2020-05-07 22:52:06 +02:00
parent 58d2f3c1c2
commit 5c2ac28ce9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/DOM.hs
View file

@ -93,7 +93,7 @@ page aPage =
script_ [src_ "/js/hablo.js"] empty script_ [src_ "/js/hablo.js"] empty
optional faviconLink =<< (asks $skin.$favicon) optional faviconLink =<< (asks $skin.$favicon)
optional (Card.make aPage) =<< (asks $urls.$cards) optional (Card.make aPage) =<< (asks $urls.$cards)
(asks $skin.$head) >>= maybe (toHtml empty) toHtmlRaw optional toHtmlRaw =<< (asks $skin.$head)
) )
body_ (do body_ (do
maybe defaultBanner toHtmlRaw =<< (asks $skin.$banner) maybe defaultBanner toHtmlRaw =<< (asks $skin.$banner)