@@ -106,8 +106,7 @@ processCitations (Pandoc meta bs) = do
106 let citeIds = query getCiteId (Pandoc meta bs)
106 let citeIds = query getCiteId (Pandoc meta bs)
107 let idpred = if "*" `Set.member` nocites
107 let idpred = if "*" `Set.member` nocites
108 then const True
108 then const True
109− else (\c -> c `Set.member` citeIds ||
109+ else (`Set.member` citeIds)
110− c `Set.member` nocites)
111 refs <- map (linkifyVariables . legacyDateRanges) <$>
110 refs <- map (linkifyVariables . legacyDateRanges) <$>
112 case lookupMeta "references" meta of
111 case lookupMeta "references" meta of
113 Just (MetaList rs) -> return $ mapMaybe metaValueToReference rs
112 Just (MetaList rs) -> return $ mapMaybe metaValueToReference rs