diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-12-15 21:49:16 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-12-15 21:49:16 -0800 |
| commit | 0eb3f8cff2c48150e9263b17faeacb636549ccdc (patch) | |
| tree | e912c785e02a88cf3225e3543653968e37c6cfa1 /src | |
| parent | 9ea7164d81aed0d5a4b1295cb0937370249c9ddd (diff) | |
| download | pandoc-0eb3f8cff2c48150e9263b17faeacb636549ccdc.tar.gz | |
HTML writer: put newline btw img and caption paragraph.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
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 |