diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Biblio.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index 934b9222e..1554d1861 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 |