diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-06 21:18:32 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-06 21:18:32 +0100 |
| commit | 13698e79680c656392aecc51a60cd1e6e19bdefa (patch) | |
| tree | 31f60eac9e6597d6013e6a39266c65a83f9ed8dc /src/Text/Pandoc | |
| parent | ddc2b9024fbe8be9c51ff1347caa6eef30adebe2 (diff) | |
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/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 2 |
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 |