compareBy

compareBy :: Ord b => (a -> b) -> a -> a -> Ordering
compareBy f x y = f x `compare` f y

Usage

sortBy (compareBy length) ["abc", "a", "ab"]
↪ ["a","ab","abc"]