aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2020-10-05 21:15:20 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2020-10-05 21:15:20 -0700
commit3e7ca707c9514c30a02786e45646ce0c6eb3abe7 (patch)
tree1c3ce3ac1bdabe484c2533ebd260ade013464536 /src/Text/Pandoc/Writers
parent6a32ea71ea9af8613b8585e874fef8d5f29665fa (diff)
downloadpandoc-3e7ca707c9514c30a02786e45646ce0c6eb3abe7.tar.gz
Removed the idpred from metaValueToReference.
This isn't really necessary; we do filtering at other points now.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/CslJson.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/CslJson.hs b/src/Text/Pandoc/Writers/CslJson.hs
index 4f4fad212..3a8f6f5b1 100644
--- a/src/Text/Pandoc/Writers/CslJson.hs
+++ b/src/Text/Pandoc/Writers/CslJson.hs
@@ -48,7 +48,7 @@ writeCslJson _opts (Pandoc meta _) = do
Right l -> return l
case lookupMeta "references" meta of
Just (MetaList rs) -> return $ (UTF8.toText $
- toCslJson locale (mapMaybe (metaValueToReference (const True)) rs))
+ toCslJson locale (mapMaybe metaValueToReference rs))
<> "\n"
_ -> throwError $ PandocAppError "No references field"