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

* escaping comments

Browse source
This commit is contained in:
Vincent Ambo 2012-03-14 00:38:58 +01:00
parent e6746984f5
commit 36c4d7e84e
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
TODO
View file

@ -1,3 +1,3 @@
* handle BlogErrors
* add readMore link
* Twitter: http://twitter.github.com/bootstrap/index.html
* Bootstrap: http://twitter.github.com/bootstrap/index.html

2
src/Blog.hs
View file

@ -110,7 +110,7 @@ renderComments comments lang = sequence_ $ map showComment comments
showComment :: Comment -> Html
showComment (Comment{..}) = H.li $ do
H.i $ toHtml $ T.append cauthor ": "
preEscapedText $ ctext
toHtml ctext
H.p ! A.class_ "tt" $ toHtml $ timeString cdate
timeString t = formatTime defaultTimeLocale (cTimeFormat lang) t