Fix spurious dots in markdown_mmd metadata output

Closes #6133 (regression).
2020-02-10 08:59:19 -08:00 · 2020-02-10 08:59:19 -08:00 · 114d77c2ab
commit 114d77c2ab
parent 689cb7128f
2 changed files with 13 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@ -125,7 +125,7 @@ mmdTitleBlock (Context hashmap) =
               (k', SimpleVal x)
                      | isEmpty x -> empty
                      | otherwise -> k' <> ":" <> space <>
-                                     nest 2 (chomp (removeBlankLines x))
+                                     nest 2 (removeBlankLines (chomp x))
               _                  -> empty
        removeBlankLines BlankLines{} = cr <> text "." <> cr
        removeBlankLines (Concat x y) = removeBlankLines x <>
--- a/test/command/6133.md
+++ b/test/command/6133.md
@ -0,0 +1,12 @@
+```
+% pandoc -f markdown_mmd -t markdown_mmd -s
+author: Author
+title: Title
+
+Some text
+^D
+author: Author
+title: Title
+
+Some text
+```