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

Delete redundant <div id="contents"> in pages listing articles

Browse source
This commit is contained in:
Tissevert 2019-02-06 17:46:12 +01:00
parent 7e875efc57
commit dcf8d3d010
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Dom.hs
View file

@ -38,12 +38,10 @@ instance Page ArticlesList where
blogName <- Blog.get name blogName <- Blog.get name
makeCard (maybe blogName ((blogName ++ " - ") ++) $ tagged al) (pageTitle al) makeCard (maybe blogName ((blogName ++ " - ") ++) $ tagged al) (pageTitle al)
content al@(ArticlesList {featured}) = content al@(ArticlesList {featured}) = do
div_ [id_ "contents"] (do
h2_ . toHtml . pack $ pageTitle al h2_ . toHtml . pack $ pageTitle al
p_ . a_ [href_ . pack $ otherUrl al] . toHtml . pack $ otherLink al p_ . a_ [href_ . pack $ otherUrl al] . toHtml . pack $ otherLink al
div_ [class_ "articles"] (mapM_ previewArticle featured) div_ [class_ "articles"] (mapM_ previewArticle featured)
)
makeCard :: String -> String -> HtmlGenerator () makeCard :: String -> String -> HtmlGenerator ()
makeCard title description = do makeCard title description = do