@@ -438,7 +438,7 @@ blockToHtml opts (Para [Image txt (s,'f':'i':'g':':':tit)]) = do
438438 then H5.figure $ mconcat
439439 [nl opts, img, capt, nl opts]
440440 else H.div ! A.class_ "figure" $ mconcat
441− [nl opts, img, capt, nl opts]
441+ [nl opts, img, nl opts, capt, nl opts]
442442blockToHtml opts (Para lst) = do
443443 contents <- inlineListToHtml opts lst
444444 return $ H.p contents