diff options
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 6 |
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>. |