Flatten figures in HTML.

Author: argent0

src/Text/Pandoc/Writers/HTML.hs

@@ -993,7 +993,7 @@ blockToHtml opts (DefinitionList lst) = do
   defList opts contents
 blockToHtml opts (Table attr caption colspecs thead tbody tfoot) =
   tableToHtml opts (Ann.toTable attr caption colspecs thead tbody tfoot)
-blockToHtml _ (Figure {}) = return mempty
+blockToHtml opts (Figure attrs _ body) = blockToHtml opts $ Div attrs body
 
 tableToHtml :: PandocMonad m
             => WriterOptions