aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-10-22 09:30:05 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-10-22 09:30:05 -0700
commita23a8e8b670fbcedc3d8ce9f71491197a68bb40b (patch)
treed7e40206f3a77f6eda1c0f1a3ed84246682b08c5 /src
parentcfab8eaecb77f8c3a50bc7725d2cb4f2f3eca225 (diff)
downloadpandoc-a23a8e8b670fbcedc3d8ce9f71491197a68bb40b.tar.gz
Fixed Biblio for extra parameter on Citation.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Biblio.hs4
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