Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Use YAML.decode rather than YAML.decodeStrict.

Browse source 
(Minor)
This commit is contained in:
John MacFarlane 2018-07-30 22:02:45 -07:00
parent 78dca68a0a
commit cbb662ca07
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -242,7 +242,7 @@ yamlMetaBlock = try $ do
-- by including --- and ..., we allow yaml blocks with just comments: -- by including --- and ..., we allow yaml blocks with just comments:
let rawYaml = unlines ("---" : (rawYamlLines ++ ["..."])) let rawYaml = unlines ("---" : (rawYamlLines ++ ["..."]))
optional blanklines optional blanklines
case YAML.decodeStrict (UTF8.fromString rawYaml) of case YAML.decode (UTF8.fromStringLazy rawYaml) of
Right (YAML.Mapping _ hashmap : _) -> do Right (YAML.Mapping _ hashmap : _) -> do
let alist = M.toList hashmap let alist = M.toList hashmap
mapM_ (\(key, v) -> mapM_ (\(key, v) ->