diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-10-29 12:45:37 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-29 12:45:37 -0700 |
| commit | 8e5e8746d8f114d81b38f8a5d4ac5322937cb5a5 (patch) | |
| tree | 8ea92cae0f3965693e1d1d1ccfbd72e56b465e6a /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | f76e9c1104e6f6a1c093a62713d80573f0e0b0e9 (diff) | |
| download | pandoc-8e5e8746d8f114d81b38f8a5d4ac5322937cb5a5.tar.gz | |
More hlint fixes.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 69e70f9f5..2a88b39ec 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -241,7 +241,7 @@ yamlMetaBlock = try $ do case Yaml.decodeEither' $ UTF8.fromString rawYaml of Right (Yaml.Object hashmap) -> do let alist = H.toList hashmap - mapM_ (\(k, v) -> + mapM_ (\(k, v) -> if ignorable k then return () else do @@ -320,7 +320,7 @@ yamlToMeta (Yaml.Array xs) = do return $ B.toMetaValue xs'' yamlToMeta (Yaml.Object o) = do let alist = H.toList o - foldM (\m (k,v) -> + foldM (\m (k,v) -> if ignorable k then return m else do |