diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-07-30 22:02:45 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-07-30 22:02:59 -0700 |
| commit | cbb662ca07acf23ead5479ab4bd479883432c7d7 (patch) | |
| tree | e9096a49b94d1542e34d900487f6ea58613898a3 | |
| parent | 78dca68a0a484f3230535e91a98a30cb8090aee8 (diff) | |
| download | pandoc-cbb662ca07acf23ead5479ab4bd479883432c7d7.tar.gz | |
Use YAML.decode rather than YAML.decodeStrict.
(Minor)
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index e491f6276..a12437299 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -242,7 +242,7 @@ yamlMetaBlock = try $ do -- by including --- and ..., we allow yaml blocks with just comments: let rawYaml = unlines ("---" : (rawYamlLines ++ ["..."])) optional blanklines - case YAML.decodeStrict (UTF8.fromString rawYaml) of + case YAML.decode (UTF8.fromStringLazy rawYaml) of Right (YAML.Mapping _ hashmap : _) -> do let alist = M.toList hashmap mapM_ (\(key, v) -> |