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

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

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

10
src/Dom.hs
View File

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