aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-08 12:47:39 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-08 12:47:39 +0100
commitbcfb77e2ab832d97b66e0bd06c35a9a13be437da (patch)
tree62185141a31c50195d0a8178b8579a9972591be7 /src/Text
parentb6e7bfaf1d9fdec88aa81d7c7fa7431358706002 (diff)
downloadpandoc-bcfb77e2ab832d97b66e0bd06c35a9a13be437da.tar.gz
Markdown writer: Avoid spurious blanklines at end of document...
after tables and list, for example.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 782d0d085..ab986208d 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -214,7 +214,7 @@ pandocToMarkdown opts (Pandoc meta blocks) = do
body <- blockListToMarkdown opts blocks'
notesAndRefs' <- notesAndRefs opts
let render' :: Doc -> String
- render' = render colwidth
+ render' = render colwidth . chomp
let main = render' $ body <> notesAndRefs'
let context = defField "toc" (render' toc)
$ defField "body" main