remove commented section

Author: kepano

src/Text/Pandoc/Readers/Markdown.hs

@@ -486,13 +486,6 @@ addBlockId (id', classes, kvs) st =
     Nothing -> (id', classes, kvs)
     Just bid -> (if T.null id' then bid else id', classes, kvs)
 
--- blockTransclusion :: PandocMonad m => MarkdownParser m (F Blocks)
--- blockTransclusion = try $ do
---   guardEnabled Ext_wikilink_block_transclusions
---   char '!'
---   res <- wikilink B.linkWith
---   return $ B.divWith ("", ["block-transclusion"], []) . B.para <$> res
-
 parseBlocks :: PandocMonad m => MarkdownParser m (F Blocks)
 parseBlocks = mconcat <$> manyTill block eof