diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-06-08 08:20:22 -0600 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-06-08 17:51:53 -0700 |
| commit | 76e5f047b0ef4c293687f9ddce62d601b23058a9 (patch) | |
| tree | d4518cb5d1306a6bda4560d878dc2d12ecc8ef63 /src/Text/Pandoc/Citeproc.hs | |
| parent | e66960fe4f3e49d33eefe56ff05ac4007a800cc5 (diff) | |
| download | pandoc-76e5f047b0ef4c293687f9ddce62d601b23058a9.tar.gz | |
Citeproc: avoid duplicate classes and attributes on refs div.
Diffstat (limited to 'src/Text/Pandoc/Citeproc.hs')
| -rw-r--r-- | src/Text/Pandoc/Citeproc.hs | 4 |
1 files 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] |