summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Citeproc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2022-10-19 12:46:15 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2022-10-19 12:46:15 -0700
commitec278d2b60e329040c712b51c32fddbcd180191b (patch)
treee05ef4bd816c1c5e9afc5a8deed8b68f55865999 /src/Text/Pandoc/Citeproc.hs
parentfe137c9d403b78eb508c6514c9234eb8fe4d77d1 (diff)
Text.Pandoc.Shared: remove `ordNub` [API change].
This is just `nubOrd` from Data.Containers.ListUtils.
Diffstat (limited to 'src/Text/Pandoc/Citeproc.hs')
-rw-r--r--src/Text/Pandoc/Citeproc.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs
index 082d79553..4830c4ef0 100644
--- a/src/Text/Pandoc/Citeproc.hs
+++ b/src/Text/Pandoc/Citeproc.hs
@@ -30,7 +30,8 @@ import Text.Pandoc.Error (PandocError(..))
import Text.Pandoc.Extensions (pandocExtensions)
import Text.Pandoc.Logging (LogMessage(..))
import Text.Pandoc.Options (ReaderOptions(..))
-import Text.Pandoc.Shared (stringify, ordNub, tshow)
+import Text.Pandoc.Shared (stringify, tshow)
+import Data.Containers.ListUtils (nubOrd)
import qualified Text.Pandoc.UTF8 as UTF8
import Text.Pandoc.Walk (query, walk, walkM)
import Control.Applicative ((<|>))
@@ -501,8 +502,8 @@ insertRefs refkvs refclasses refs (Pandoc meta bs) =
go (Div ("refs",cs,kvs) xs) = do
put True
-- refHeader isn't used if you have an explicit references div
- let cs' = ordNub $ cs ++ refclasses
- let kvs' = ordNub $ kvs ++ refkvs
+ let cs' = nubOrd $ cs ++ refclasses
+ let kvs' = nubOrd $ kvs ++ refkvs
return $ Div ("refs",cs',kvs') (xs ++ refs)
go x = return x