diff options
| -rw-r--r-- | src/Text/Pandoc/Citeproc.hs | 3 |
1 files changed, 1 insertions, 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 |