@@ -44,12 +44,12 @@ processBiblio cslfile r p
4444 else do
4545 csl <- readCSLFile cslfile
4646 p' <- processWithM setHash p
47− let (nts,grps) = if styleClass csl /= "note"
48− then (,) [] $ queryWith getCitation p'
49− else let cits = queryWith getCite p'
47+ let (nts,grps) = if styleClass csl == "note"
48+ then let cits = queryWith getCite p'
5049 ncits = map (queryWith getCite) $ queryWith getNote p'
5150 needNt = cits \\ concat ncits
5251 in (,) needNt $ getNoteCitations needNt p'
52+ else (,) [] $ queryWith getCitation p'
5353 result = citeproc csl r (setNearNote csl $ map (map toCslCite) grps)
5454 cits_map = M.fromList $ zip grps (citations result)
5555 biblioList = map (renderPandoc' csl) (bibliography result)