From 1aeeba9ecb7fc79062c16e00536ec8500632aab2 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Sun, 13 Mar 2022 16:42:30 +0100 Subject: Shared: define ordNub as alias for nubOrd from containers package (#7963) This requires at least containers 0.6.0.1, which ships with the oldest GHC version currently supported by pandoc (GHC 8.6). --- src/Text/Pandoc/Shared.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 26c922a04..95a422287 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -105,6 +105,7 @@ import qualified Data.Bifunctor as Bifunctor import Data.Char (isAlpha, isLower, isSpace, isUpper, toLower, isAlphaNum, generalCategory, GeneralCategory(NonSpacingMark, SpacingCombiningMark, EnclosingMark, ConnectorPunctuation)) +import Data.Containers.ListUtils (nubOrd) import Data.List (find, intercalate, intersperse, sortOn, foldl') import qualified Data.Map as M import Data.Maybe (mapMaybe, fromMaybe) @@ -174,14 +175,12 @@ splitAt' n xs | n <= 0 = ([],xs) splitAt' n (x:xs) = (x:ys,zs) where (ys,zs) = splitAt' (n - charWidth x) xs +-- | Remove duplicates from a list. ordNub :: (Ord a) => [a] -> [a] -ordNub l = go Set.empty l - where - go _ [] = [] - go s (x:xs) = if x `Set.member` s then go s xs - else x : go (Set.insert x s) xs +ordNub = nubOrd +{-# INLINE ordNub #-} --- | Returns the last element in a foldable structure for that the +-- | Returns the first element in a foldable structure for that the -- monadic predicate holds true, and @Nothing@ if no such element -- exists. findM :: forall m t a. (Monad m, Foldable t) -- cgit v1.2.3