From 05f5766abedbc7643cbefb94325a2d77830fa9db Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 20 Nov 2010 22:00:17 -0800
Subject: [PATCH] Biblio: Check for == rather than /=.
This is more perspicuous.
---
src/Text/Pandoc/Biblio.hs | 6 +++---
1 file 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)