aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index aba73a417..1faeeea80 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -245,9 +245,11 @@ elementToHtml opts (Sec level num id' title' elements) = do
else if writerSectionDivs opts
then if writerHtml5 opts
then tag "section" ! [prefixedId opts id']
- << intersperse (nl opts) stuff
+ << (nl opts : (intersperse (nl opts) stuff
+ ++ [nl opts]))
else thediv ! [prefixedId opts id'] <<
- intersperse (nl opts) stuff
+ (nl opts : (intersperse (nl opts) stuff
+ ++ [nl opts]))
else toHtmlFromList $ intersperse (nl opts) stuff
-- | Convert list of Note blocks to a footnote <div>.