need to use toHtmlRaw to render html string

wilfreddenton · wilfreddenton · commit 570187f10b3c · 2020-01-19T16:51:24.000Z
diff --git a/src/Lib/Effects/Post.hs b/src/Lib/Effects/Post.hs
@@ -92,7 +92,7 @@ instance ToHtml Post where
   toHtml Post {..} = div_ [class_ "post"] $ do
     h1_ $ toHtml pTitle
     p_ [class_ "post-date"] . toHtml $ formatPostTime pCreatedAt
-    toHtml $ renderMarkdown pBody
+    toHtmlRaw $ renderMarkdown pBody
 
 instance ToHtml [Post] where
 
