From 0bd6fb4745faed782673d3179f7e6cbb987380ea Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 4 Nov 2020 11:10:49 -0800
Subject: [PATCH] Simplified idpred in citeproc.
---
src/Text/Pandoc/Citeproc.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs
index 8976ae560..892e49c22 100644
--- a/src/Text/Pandoc/Citeproc.hs
+++ b/src/Text/Pandoc/Citeproc.hs
@@ -106,8 +106,7 @@ processCitations (Pandoc meta bs) = do
let citeIds = query getCiteId (Pandoc meta bs)
let idpred = if "*" `Set.member` nocites
then const True
- else (\c -> c `Set.member` citeIds ||
- c `Set.member` nocites)
+ else (`Set.member` citeIds)
refs <- map (linkifyVariables . legacyDateRanges) <$>
case lookupMeta "references" meta of
Just (MetaList rs) -> return $ mapMaybe metaValueToReference rs