diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-10-22 09:30:05 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-10-22 09:30:05 -0700 |
| commit | a23a8e8b670fbcedc3d8ce9f71491197a68bb40b (patch) | |
| tree | d7e40206f3a77f6eda1c0f1a3ed84246682b08c5 /src | |
| parent | cfab8eaecb77f8c3a50bc7725d2cb4f2f3eca225 (diff) | |
| download | pandoc-a23a8e8b670fbcedc3d8ce9f71491197a68bb40b.tar.gz | |
Fixed Biblio for extra parameter on Citation.
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 |