diff options
| author | Vincent Ambo <v.ambo@me.com> | 2012-03-15T20·26+0100 |
|---|---|---|
| committer | Vincent Ambo <v.ambo@me.com> | 2012-03-15T20·26+0100 |
| commit | b8a045d163a50c138bfe6300fc39b5cddc40f5d1 (patch) | |
| tree | fce3f9d83ed150087b4dd7d4db92330f5bf6cbc8 /src/Blog.hs | |
| parent | f591f6b4f72a6a6989a7631b17fbd9ee5d7f6c6d (diff) | |
* proper comment escaping
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Blog.hs b/src/Blog.hs index 534803baa426..5914052f932e 100644 --- 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 |