From a57faddd25e429714274b8c3182c8d2c6c46b251 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@googlemail.com>
Date: Fri, 23 Mar 2012 22:52:54 +0100
Subject: [PATCH] * sequence_ $ map to mapM_

---
 src/Blog.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Blog.hs b/src/Blog.hs
index 3f1fe063c..f0760f0a0 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