From 76e5f047b0ef4c293687f9ddce62d601b23058a9 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 8 Jun 2021 08:20:22 -0600
Subject: [PATCH] Citeproc: avoid duplicate classes and attributes on refs div.
---
src/Text/Pandoc/Citeproc.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs
index de63aed1f..ad3b26c0f 100644
--- a/src/Text/Pandoc/Citeproc.hs
+++ b/src/Text/Pandoc/Citeproc.hs
@@ -49,7 +49,6 @@ import qualified Data.Text as T
import System.FilePath (takeExtension)
import Safe (lastMay, initSafe)
-
processCitations :: PandocMonad m => Pandoc -> m Pandoc
processCitations (Pandoc meta bs) = do
style <- getStyle (Pandoc meta bs)
@@ -499,7 +498,8 @@ insertRefs refkvs refclasses meta refs bs =
put True
-- refHeader isn't used if you have an explicit references div
let cs' = ordNub $ cs ++ refclasses
- return $ Div ("refs",cs' ++ refclasses,kvs ++ refkvs) (xs ++ refs)
+ let kvs' = ordNub $ kvs ++ refkvs
+ return $ Div ("refs",cs',kvs') (xs ++ refs)
go x = return x
refTitle :: Meta -> Maybe [Inline]