@@ -49,7 +49,6 @@ import qualified Data.Text as T
4949import System.FilePath (takeExtension)
5050import Safe (lastMay, initSafe)
5151
52−
5352processCitations :: PandocMonad m => Pandoc -> m Pandoc
5453processCitations (Pandoc meta bs) = do
5554 style <- getStyle (Pandoc meta bs)
@@ -499,7 +498,8 @@ insertRefs refkvs refclasses meta refs bs =
499498 put True
500499 -- refHeader isn't used if you have an explicit references div
501500 let cs' = ordNub $ cs ++ refclasses
502− return $ Div ("refs",cs' ++ refclasses,kvs ++ refkvs) (xs ++ refs)
501+ let kvs' = ordNub $ kvs ++ refkvs
502+ return $ Div ("refs",cs',kvs') (xs ++ refs)
503503 go x = return x
504504
505505refTitle :: Meta -> Maybe [Inline]