git.iko.soy/typeable/pandoc
on master help sign in
Use YAML.decode rather than YAML.decodeStrict.
cbb662cJohn MacFarlane
src/Text/Pandoc/Readers/Markdown.hs+1−1
compare with master
unifiedsplit
@@ -242,7 +242,7 @@ yamlMetaBlock = try $ do
242 -- by including --- and ..., we allow yaml blocks with just comments:
242 -- by including --- and ..., we allow yaml blocks with just comments:
243 let rawYaml = unlines ("---" : (rawYamlLines ++ ["..."]))
243 let rawYaml = unlines ("---" : (rawYamlLines ++ ["..."]))
244 optional blanklines
244 optional blanklines
245− case YAML.decodeStrict (UTF8.fromString rawYaml) of
245+ case YAML.decode (UTF8.fromStringLazy rawYaml) of
246 Right (YAML.Mapping _ hashmap : _) -> do
246 Right (YAML.Mapping _ hashmap : _) -> do
247 let alist = M.toList hashmap
247 let alist = M.toList hashmap
248 mapM_ (\(key, v) ->
248 mapM_ (\(key, v) ->