aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-12-15 21:49:16 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2014-12-15 21:49:16 -0800
commit0eb3f8cff2c48150e9263b17faeacb636549ccdc (patch)
treee912c785e02a88cf3225e3543653968e37c6cfa1 /src/Text/Pandoc
parent9ea7164d81aed0d5a4b1295cb0937370249c9ddd (diff)
downloadpandoc-0eb3f8cff2c48150e9263b17faeacb636549ccdc.tar.gz
HTML writer: put newline btw img and caption paragraph.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 1760ee006..46974930e 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -438,7 +438,7 @@ blockToHtml opts (Para [Image txt (s,'f':'i':'g':':':tit)]) = do
then H5.figure $ mconcat
[nl opts, img, capt, nl opts]
else H.div ! A.class_ "figure" $ mconcat
- [nl opts, img, capt, nl opts]
+ [nl opts, img, nl opts, capt, nl opts]
blockToHtml opts (Para lst) = do
contents <- inlineListToHtml opts lst
return $ H.p contents