diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-07-13 23:37:21 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-07-13 23:37:21 +0200 |
| commit | 3a36441b617b9dff632eda0ac14ca26072e0730b (patch) | |
| tree | 5764066d50c283ae5e1f91961732a1f657b06145 /src/Text/Pandoc/Writers | |
| parent | 247257ed3e19fe4100c75bd9c8755e0c6db290af (diff) | |
| download | pandoc-3a36441b617b9dff632eda0ac14ca26072e0730b.tar.gz | |
Use foldrWithKey instead of deprecated foldWithKey.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs index 2047285eb..3f612f40a 100644 --- a/src/Text/Pandoc/Writers/Shared.hs +++ b/src/Text/Pandoc/Writers/Shared.hs @@ -84,7 +84,7 @@ metaToJSON' blockWriter inlineWriter (Meta metamap) = do renderedMap <- Traversable.mapM (metaValueToJSON blockWriter inlineWriter) metamap - return $ M.foldWithKey defField (Object H.empty) renderedMap + return $ M.foldrWithKey defField (Object H.empty) renderedMap -- | Add variables to JSON object, replacing any existing values. -- Also include @meta-json@, a field containing a string representation |