aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-06-29 23:47:07 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2018-06-29 23:47:07 +0200
commit5d78ad12b2949d7c500acf8941a2077860da37b0 (patch)
tree7c7f5001d2fa13938d5893dd6bf02bfa5b144552
parente49b8304e43d8381a2c7693643ab648f32482359 (diff)
downloadpandoc-5d78ad12b2949d7c500acf8941a2077860da37b0.tar.gz
Fix compiler warnings.
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 9fe84013f..68f076e35 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -245,8 +245,8 @@ yamlMetaBlock = try $ do
case YAML.decodeStrict (UTF8.fromString rawYaml) of
Right (YAML.Mapping _ hashmap : _) -> do
let alist = M.toList hashmap
- mapM_ (\(k', v) ->
- case YAML.parseEither (YAML.parseYAML k') of
+ mapM_ (\(key, v) ->
+ case YAML.parseEither (YAML.parseYAML key) of
Left e -> fail e
Right k -> do
if ignorable k
@@ -315,8 +315,8 @@ yamlToMeta (YAML.Sequence _ xs) = do
return $ B.toMetaValue xs''
yamlToMeta (YAML.Mapping _ o) = do
let alist = M.toList o
- foldM (\m (k',v) ->
- case YAML.parseEither (YAML.parseYAML k') of
+ foldM (\m (key, v) ->
+ case YAML.parseEither (YAML.parseYAML key) of
Left e -> fail e
Right k -> do
if ignorable k