diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-11-20 22:00:17 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-11-20 22:00:17 -0800 |
| commit | 05f5766abedbc7643cbefb94325a2d77830fa9db (patch) | |
| tree | 66a12e51c50d9d21aa8e6583d0e2ccc73ac78f19 /src/Text/Pandoc/Biblio.hs | |
| parent | 3eef887dfa4e47095c4be9b2bdbf67c002e29f90 (diff) | |
| download | pandoc-05f5766abedbc7643cbefb94325a2d77830fa9db.tar.gz | |
Biblio: Check for == rather than /=.
This is more perspicuous.
Diffstat (limited to 'src/Text/Pandoc/Biblio.hs')
| -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) |