diff options
| -rw-r--r-- | src/Text/Pandoc/Biblio.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index a60909e19..921cf54c5 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -44,12 +44,12 @@ processBiblio cslfile r p else do csl <- readCSLFile cslfile p' <- processWithM setHash p - let (nts,grps) = if styleClass csl /= "note" - then (,) [] $ queryWith getCitation p' - else let cits = queryWith getCite p' + let (nts,grps) = if styleClass csl == "note" + then let cits = queryWith getCite p' ncits = map (queryWith getCite) $ queryWith getNote p' needNt = cits \\ concat ncits in (,) needNt $ getNoteCitations needNt p' + else (,) [] $ queryWith getCitation p' result = citeproc csl r (setNearNote csl $ map (map toCslCite) grps) cits_map = M.fromList $ zip grps (citations result) biblioList = map (renderPandoc' csl) (bibliography result) |