组成两个比较函数？

Question

我想用一个属性，然后由另一排序（如果第一个属性是一样的。）

什么在Haskell组成两个比较函数的惯用方式，即用sortBy使用的功能？

鉴于

f :: Ord a => a -> a -> Ordering 
g :: Ord a => a -> a -> Ordering 

组成f和g会产生：

h x y = case v of 
      EQ -> g x y 
      otherwise -> v 
     where v = f x y 

Answer 1

维斯特指出的Monoid为Ordering非常酷的实例。如果需要用实例结合起来instance Monoid b => Monoid (a -> b)事实证明你的作文功能仅仅是（准备）：

mappend 

检查出来：

Prelude Data.Monoid> let f a b = EQ 
Prelude Data.Monoid> let g a b = LT 
Prelude Data.Monoid> :t f `mappend` g 
f `mappend` g :: t -> t1 -> Ordering 
Prelude Data.Monoid> (f `mappend` g) undefined undefined 
LT 
Prelude Data.Monoid> let f a b = GT 
Prelude Data.Monoid> (f `mappend` g) undefined undefined 
GT 

+1功能强大且简单的抽象