@@ -109,7 +109,7 @@ addBlock opts (Node _ BLOCK_QUOTE nodes) =
109109 (BlockQuote (addBlocks opts nodes) :)
110110addBlock opts (Node _ (HTML_BLOCK t) _)
111111 | isEnabled Ext_raw_html opts = (RawBlock (Format "html") (unpack t) :)
112− | otherwise = (Para [Str (unpack t)] :)
112+ | otherwise = id
113113-- Note: the cmark parser will never generate CUSTOM_BLOCK,
114114-- so we don't need to handle it:
115115addBlock _ (Node _ (CUSTOM_BLOCK _onEnter _onExit) _nodes) =
@@ -215,7 +215,7 @@ addInline opts (Node _ SOFTBREAK _)
215215 | otherwise = (SoftBreak :)
216216addInline opts (Node _ (HTML_INLINE t) _)
217217 | isEnabled Ext_raw_html opts = (RawInline (Format "html") (unpack t) :)
218− | otherwise = (Str (unpack t) :)
218+ | otherwise = id
219219-- Note: the cmark parser will never generate CUSTOM_BLOCK,
220220-- so we don't need to handle it:
221221addInline _ (Node _ (CUSTOM_INLINE _onEnter _onExit) _nodes) =