about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--src/Blog.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Blog.hs b/src/Blog.hs
index 3f1fe063cc03..f0760f0a0215 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -78,8 +78,8 @@ renderEntries showAll entries topText footerLinks = do
     H.span ! A.class_ "innerTitle" $ toHtml topText
     H.div ! A.class_ "innerContainer" $ do
         H.ul $ if' showAll
-            (sequence_ $ map showEntry entries)
-            (sequence_ . take 6 $ map showEntry entries)
+            (mapM_ showEntry entries)
+            (mapM_ showEntry $ take 6 entries)
         getFooterLinks footerLinks
     where
         showEntry :: Entry -> Html
@@ -123,7 +123,7 @@ renderCommentBox cLang cId = do
 
 renderComments :: [Comment] -> BlogLang -> Html
 renderComments [] lang = H.li $ toHtml $ noComments lang
-renderComments comments lang = sequence_ $ map showComment comments
+renderComments comments lang = mapM_ showComment comments
     where
         showComment :: Comment -> Html
         showComment (Comment{..}) = H.li $ do
@@ -222,7 +222,7 @@ adminEntryList :: [Entry] -> Html
 adminEntryList entries = adminTemplate "Entrylist" $
   H.div ! A.style "float: center;" $ do
     H.table $ do
-        sequence_ $ map showEntryItem entries
+        mapM_ showEntryItem entries
     adminFooter
   where
     showEntryItem :: Entry -> Html