{-# htermination enumFrom :: Ordering -> [Ordering] #-}