diff options
| author | Henry de Valence <hdevalence@hdevalence.ca> | 2013-12-19 20:28:53 -0500 |
|---|---|---|
| committer | Henry de Valence <hdevalence@hdevalence.ca> | 2013-12-19 20:28:53 -0500 |
| commit | c35f5ba42df094cef5f69a191315385a0a1e12b0 (patch) | |
| tree | 36fea6da6a2384c000d7238bdeb9d68ba1049551 /src/Text | |
| parent | 0c5e7cf8cb4fe6959d7e89880e8925afe6625414 (diff) | |
| download | pandoc-c35f5ba42df094cef5f69a191315385a0a1e12b0.tar.gz | |
HLint: Remove lambdas.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs index 9cb08803c..33091ea94 100644 --- a/src/Text/Pandoc/Writers/Shared.hs +++ b/src/Text/Pandoc/Writers/Shared.hs @@ -65,8 +65,7 @@ metaToJSON opts blockWriter inlineWriter (Meta metamap) renderedMap <- Traversable.mapM (metaValueToJSON blockWriter inlineWriter) metamap - return $ M.foldWithKey (\key val obj -> defField key val obj) - baseContext renderedMap + return $ M.foldWithKey defField baseContext renderedMap | otherwise = return (Object H.empty) metaValueToJSON :: Monad m |