1 {-# OPTIONS_GHC -fno-implicit-prelude #-}
2 -----------------------------------------------------------------------------
5 -- Copyright : (c) The University of Glasgow 2005
6 -- License : BSD-style (see the file libraries/base/LICENSE)
8 -- Maintainer : libraries@haskell.org
10 -- Portability : portable
14 -----------------------------------------------------------------------------
22 #if __GLASGOW_HASKELL__
26 comparing :: (Ord a) => (b -> a) -> b -> b -> Ordering
27 comparing p x y = compare (p x) (p y)