diff options
| author | Vincent Ambo <v.ambo@me.com> | 2012-03-13T23·38+0100 |
|---|---|---|
| committer | Vincent Ambo <v.ambo@me.com> | 2012-03-13T23·38+0100 |
| commit | 36c4d7e84e1b2e18389eeda66c33d25fc7819f15 (patch) | |
| tree | 8d86d8efa9743d04ec31622c9fb8d30fe7b14315 /src/Blog.hs | |
| parent | e6746984f585168229d902096e22177a6e55a6c2 (diff) | |
* escaping comments
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 8e4c76b621e1..48b67a93b0d8 100644 --- 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 |