OrdB package:extra

disjointOrdBy :: (a -> a -> Ordering) -> [a] -> [a] -> Bool
extra Data.List.Extra Extra
A version of disjointOrd with a custom predicate. 
disjointOrdBy (compare `on` (`mod` 7)) [1,2,3] [4,5] == True
disjointOrdBy (compare `on` (`mod` 7)) [1,2,3] [4,8] == False
nubOrdBy :: (a -> a -> Ordering) -> [a] -> [a]
extra Data.List.Extra Extra
A version of nubOrd with a custom predicate. 
nubOrdBy (compare `on` length) ["a","test","of","this"] == ["a","test","of"]
nubOrdBy :: (a -> a -> Ordering) -> NonEmpty a -> NonEmpty a
extra Data.List.NonEmpty.Extra
nubOrdBy for NonEmpty. Behaves the same as nubOrdBy. 
Data.List.NonEmpty.Extra.nubOrdBy (compare `on` Data.List.length) ("a" :| ["test","of","this"]) == "a" :| ["test","of"]