From ba613b2e9ee8c49b20d652ced066c98429bca3a2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 28 Mar 2019 14:10:00 -0700 Subject: Markdown writer: proper rendering of empty map in YAML metadata. Should be `{}` not empty string. Partially addresses #5398. --- src/Text/Pandoc/Writers/Markdown.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 4964fbad0..3850dccd2 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -149,7 +149,9 @@ jsonToYaml (Object hashmap) = (k', Array vec, x) | V.null vec -> empty | otherwise -> (k' <> ":") $$ x - (k', Object _, x) -> (k' <> ":") $$ nest 2 x + (k', Object hm, x) + | H.null hm -> k' <> ": {}" + | otherwise -> (k' <> ":") $$ nest 2 x (_, String "", _) -> empty (k', _, x) -> k' <> ":" <> space <> hang 2 "" x) $ sortBy (comparing fst) $ H.toList hashmap -- cgit v1.2.3