aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-06 21:18:32 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-06 21:18:32 +0100
commit13698e79680c656392aecc51a60cd1e6e19bdefa (patch)
tree31f60eac9e6597d6013e6a39266c65a83f9ed8dc /src
parentddc2b9024fbe8be9c51ff1347caa6eef30adebe2 (diff)
downloadpandoc-13698e79680c656392aecc51a60cd1e6e19bdefa.tar.gz
Markdown writer: Fixed false ordered lists in YAML metadata.
Now we properly escape things that would otherwise start ordered lists, such as --- title: 1. inline ... Closes #3492. Closes #1685.
Diffstat (limited to 'src')
-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 f665ec448..ad3eb62df 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -185,7 +185,7 @@ pandocToMarkdown opts (Pandoc meta blocks) = do
isPlain <- asks envPlain
metadata <- metaToJSON'
(fmap (render colwidth) . blockListToMarkdown opts)
- (fmap (render colwidth) . inlineListToMarkdown opts)
+ (fmap (render colwidth) . blockToMarkdown opts . Plain)
meta
let title' = maybe empty text $ getField "title" metadata
let authors' = maybe [] (map text) $ getField "author" metadata