From 5d78ad12b2949d7c500acf8941a2077860da37b0 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 29 Jun 2018 23:47:07 +0200 Subject: Fix compiler warnings. --- src/Text/Pandoc/Readers/Markdown.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Text') 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 -- cgit v1.2.3