@@ -44,12 +44,12 @@ processBiblio cslfile r p
45 csl <- readCSLFile cslfile
45 csl <- readCSLFile cslfile
46 p' <- processWithM setHash p
46 p' <- processWithM setHash p
47− let (nts,grps) = if styleClass csl /= "note"
47+ let (nts,grps) = if styleClass csl == "note"
48− then (,) [] $ queryWith getCitation p'
49− else let cits = queryWith getCite p'
48+ then let cits = queryWith getCite p'
50 ncits = map (queryWith getCite) $ queryWith getNote p'
49 ncits = map (queryWith getCite) $ queryWith getNote p'
51 needNt = cits \\ concat ncits
50 needNt = cits \\ concat ncits
52 in (,) needNt $ getNoteCitations needNt p'
51 in (,) needNt $ getNoteCitations needNt p'
52+ else (,) [] $ queryWith getCitation p'
53 result = citeproc csl r (setNearNote csl $ map (map toCslCite) grps)
53 result = citeproc csl r (setNearNote csl $ map (map toCslCite) grps)
54 cits_map = M.fromList $ zip grps (citations result)
54 cits_map = M.fromList $ zip grps (citations result)
55 biblioList = map (renderPandoc' csl) (bibliography result)
55 biblioList = map (renderPandoc' csl) (bibliography result)