* proper comment escaping

2012-03-15 21:26:45 +01:00 · 2012-03-15 21:26:45 +01:00 · b8a045d163
commit b8a045d163
parent f591f6b4f7
2 changed files with 10 additions and 2 deletions
--- a/src/Blog.hs
+++ b/src/Blog.hs
@ -116,7 +116,7 @@ renderComments comments lang = sequence_ $ map showComment comments
        showComment :: Comment -> Html
        showComment (Comment{..}) = H.li $ do
            H.i $ toHtml $ T.append cauthor ": "
-            toHtml ctext
+            preEscapedText ctext
            H.p ! A.class_ "tt" $ toHtml $ timeString cdate
        timeString t = formatTime defaultTimeLocale (cTimeFormat lang) t