From a23a8e8b670fbcedc3d8ce9f71491197a68bb40b Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 22 Oct 2012 09:30:05 -0700
Subject: Fixed Biblio for extra parameter on Citation.

---
 src/Text/Pandoc/Biblio.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3