X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FOrd.hs;h=9af4246e85e4762cff1c69e03e000cae6454eb39;hb=fdb4cee6ff91b59915eedba0afa3285681cbcab7;hp=2be636c213af963a494f8e6e3cfab534f90a2693;hpb=41f0208eabdb92852b6e463406aca68d32e08d8c;p=ghc-base.git

diff --git a/Data/Ord.hs b/Data/Ord.hs
index 2be636c..9af4246 100644
--- a/Data/Ord.hs
+++ b/Data/Ord.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Ord
@@ -15,7 +15,7 @@
 
 module Data.Ord (
    Ord(..),
-   Ordering,
+   Ordering(..),
    comparing,
  ) where
 
@@ -23,5 +23,12 @@ module Data.Ord (
 import GHC.Base
 #endif
 
+-- | 
+-- > comparing p x y = compare (p x) (p y)
+--
+-- Useful combinator for use in conjunction with the @xxxBy@ family
+-- of functions from "Data.List", for example:
+--
+-- >   ... sortBy (comparing fst) ...
 comparing :: (Ord a) => (b -> a) -> b -> b -> Ordering
 comparing p x y = compare (p x) (p y)