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 | |
| parent | e6746984f585168229d902096e22177a6e55a6c2 (diff) | |
* escaping comments
| -rw-r--r-- | TODO | 2 | ||||
| -rw-r--r-- | src/Blog.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/TODO b/TODO index 3de1a19190d3..b2b76bbbb82c 100644 --- a/TODO +++ b/TODO @@ -1,3 +1,3 @@ * handle BlogErrors * add readMore link -* Twitter: http://twitter.github.com/bootstrap/index.html \ No newline at end of file +* Bootstrap: http://twitter.github.com/bootstrap/index.html 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 |