diff options
Diffstat (limited to 'src/Text/Pandoc/Biblio.hs')
-rw-r--r-- | src/Text/Pandoc/Biblio.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index 934b9222e..e5b8fe197 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -111,10 +111,10 @@ getCitation i | Cite t _ <- i = [t] | otherwise = [] setHash :: Citation -> State Int Citation -setHash (Citation i p s cm nn _) = do +setHash c = do ident <- get put $ ident + 1 - return $ Citation i p s cm nn ident + return c{ citationHash = ident } toCslCite :: Citation -> CSL.Cite toCslCite c @@ -140,6 +140,7 @@ toCslCite c , CSL.citeNoteNumber = show $ citationNoteNum c , CSL.authorInText = fst citMode , CSL.suppressAuthor = snd citMode + , CSL.suppressParens = citationSuppressParens c , CSL.citeHash = citationHash c } |