diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-10-19 12:46:15 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-10-19 12:46:15 -0700 |
| commit | ec278d2b60e329040c712b51c32fddbcd180191b (patch) | |
| tree | e05ef4bd816c1c5e9afc5a8deed8b68f55865999 /src/Text/Pandoc/Citeproc.hs | |
| parent | fe137c9d403b78eb508c6514c9234eb8fe4d77d1 (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.hs | 7 |
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 |
