ensure that markdown renderer will allow raw html

Author: wilfreddenton

src/Lucid/Extended.hs

@@ -15,14 +15,14 @@ module Lucid.Extended
   )
 where
 
-import CMark (Node (..), NodeType (..), commonmarkToHtml, commonmarkToNode)
+import CMark (Node (..), NodeType (..), commonmarkToHtml, commonmarkToNode, optUnsafe)
 import qualified Data.Text as T
 import Lucid hiding (button_, col_)
 import Lucid.Base (makeAttribute)
 import Protolude
 
 renderMarkdown :: Text -> Text
-renderMarkdown = commonmarkToHtml []
+renderMarkdown = commonmarkToHtml [optUnsafe]
 
 nodeToText :: Node -> Text
 nodeToText (Node _ nodeType children) = case nodeType of

test/Spec/Markdown.hs

@@ -1,6 +1,6 @@
 module Spec.Markdown (markdownSpec) where
 
-import Lucid.Extended (extractMetaDescription)
+import Lucid.Extended (extractMetaDescription, renderMarkdown)
 import Protolude
 import Test.Tasty.Hspec (Spec, describe, it, shouldReturn)
 
@@ -27,3 +27,7 @@ markdownSpec = do
   describe "Meta Description Truncation" $ do
     it "returns without broken word" $
       pure (extractMetaDescription 6 "foo bar") `shouldReturn` "foo..."
+  describe "Markdown to HTML" $ do
+    let runRenderMarkdown = pure . renderMarkdown
+    it "returns raw html" $
+      runRenderMarkdown "<video></video>" `shouldReturn` "<p><video></video></p>\n"