Fixed Biblio for extra parameter on Citation.

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