* escaping comments

2012-03-14 00:38:58 +01:00 · 2012-03-14 00:38:58 +01:00 · 36c4d7e84e
commit 36c4d7e84e
parent e6746984f5
2 changed files with 2 additions and 2 deletions
--- a/src/Blog.hs
+++ b/src/Blog.hs
@ -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