diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2014-12-11 20:28:47 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2014-12-15 21:35:47 +0000 |
| commit | e6bd29e9b81ff40f59bb7f7cbca54d352a519576 (patch) | |
| tree | 22c31a04f83f64c6934288117bf4ccac42a31107 | |
| parent | a17f6f2f39c2bcd0bc1a788f49c1cc0c08102874 (diff) | |
| download | pandoc-e6bd29e9b81ff40f59bb7f7cbca54d352a519576.tar.gz | |
Text.Pandoc.Writers.RTF: Add blankline at end of output
Closes #1732
| -rw-r--r-- | src/Text/Pandoc/Writers/RTF.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs index 43405ce3c..dfad4b0e2 100644 --- a/src/Text/Pandoc/Writers/RTF.hs +++ b/src/Text/Pandoc/Writers/RTF.hs @@ -106,7 +106,9 @@ writeRTF options (Pandoc meta@(Meta metamap) blocks) = $ metadata in if writerStandalone options then renderTemplate' (writerTemplate options) context - else body + else case reverse body of + ('\n':_) -> body + _ -> body ++ "\n" -- | Construct table of contents from list of header blocks. tableOfContents :: [Block] -> String |