Fixed Biblio for extra parameter on Citation.
commita23a8e8b670fbcedc3d8ce9f71491197a68bb40b
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateMon 22 Oct 2012, 09:30 (14 years ago)
parentcfab8ea
src/Text/Pandoc/Biblio.hs+2−2
@@ -111,10 +111,10 @@ getCitation i | Cite t _ <- i = [t]
111111 | otherwise = []
112112
113113setHash :: Citation -> State Int Citation
114−setHash (Citation i p s cm nn _) = do
114+setHash c = do
115115 ident <- get
116116 put $ ident + 1
117− return $ Citation i p s cm nn ident
117+ return c{ citationHash = ident }
118118
119119toCslCite :: Citation -> CSL.Cite
120120toCslCite c