From cbb662ca07acf23ead5479ab4bd479883432c7d7 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 30 Jul 2018 22:02:45 -0700 Subject: Use YAML.decode rather than YAML.decodeStrict. (Minor) --- src/Text/Pandoc/Readers/Markdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') 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) -> -- cgit v1.2.3