diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-11-04 11:10:49 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-11-04 11:10:49 -0800 |
| commit | 0bd6fb4745faed782673d3179f7e6cbb987380ea (patch) | |
| tree | 0e2ee9e5bd874c1f029a7d1796868f7841b6007f /src/Text/Pandoc/Citeproc.hs | |
| parent | a06b5583c7ef2851201485356b906bc735d012c1 (diff) | |
| download | pandoc-0bd6fb4745faed782673d3179f7e6cbb987380ea.tar.gz | |
Simplified idpred in citeproc.
Diffstat (limited to 'src/Text/Pandoc/Citeproc.hs')
| -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 |