diff options
| author | Vincent Ambo <tazjin@googlemail.com> | 2012-03-23T21·52+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@googlemail.com> | 2012-03-23T21·52+0100 |
| commit | a57faddd25e429714274b8c3182c8d2c6c46b251 (patch) | |
| tree | c8e7e616ed4a931528d40ede23fb96346b60272c /src/Blog.hs | |
| parent | 2738271e6733a9f24b4c09110ca98a0b56689f0f (diff) | |
* sequence_ $ map to mapM_
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 8 |
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 |