From dcf8d3d010a176bbff72ea52ac8ea153034e93d6 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Wed, 6 Feb 2019 17:46:12 +0100
Subject: [PATCH] Delete redundant <div id="contents"> in pages listing
 articles

---
 src/Dom.hs | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/Dom.hs b/src/Dom.hs
index c07e0b9..a955d42 100644
--- a/src/Dom.hs
+++ b/src/Dom.hs
@@ -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