lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-27 01:45:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

Biblio: Check for == rather than /=.

Browse Source 
This is more perspicuous.
This commit is contained in:
John MacFarlane
2010-11-20 22:00:17 -08:00
parent 3eef887dfa
commit 05f5766abe
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Biblio.hs
+3 -3
View File
@@ -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)