maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* added TODO file

Browse source
This commit is contained in:
Vincent Ambo 2012-03-03 04:05:19 +01:00
parent 7114876693
commit 485e271475
3 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Blog.hs
View file

@ -77,7 +77,7 @@ renderEntries entries topText = H.div ! A.class_ "innerBox" $ do
H.div ! A.class_ "innerBoxTop" $ toHtml topText
H.div ! A.class_ "innerBoxMiddle" $ do
H.ul $
sequence_ $ reverse $ map showEntry entries
sequence_ . reverse $ map showEntry entries
where
showEntry :: Entry -> Html
showEntry e = H.li $ do