Merge branch 'master' of http://darcs.haskell.org/ghc
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 10 Jul 2012 15:04:30 +0000 (16:04 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Tue, 10 Jul 2012 15:04:30 +0000 (16:04 +0100)
Conflicts:
compiler/typecheck/TcRnDriver.lhs

1  2 
compiler/iface/MkIface.lhs
compiler/typecheck/TcErrors.lhs
compiler/typecheck/TcRnDriver.lhs

Simple merge
Simple merge
@@@ -1887,12 -1888,9 +1888,11 @@@ ppr_sigs id
  ppr_tydecls :: [TyCon] -> SDoc
  ppr_tydecls tycons
          -- Print type constructor info; sort by OccName
-   = vcat (map ppr_tycon (sortLe le_sig tycons))
+   = vcat (map ppr_tycon (sortBy (comparing getOccName) tycons))
    where
-     le_sig tycon1 tycon2 = getOccName tycon1 <= getOccName tycon2
 -    ppr_tycon tycon = ppr (tyThingToIfaceDecl (ATyCon tycon))
 +    ppr_tycon tycon = vcat [ ppr (tyConName tycon) <+> dcolon <+> ppr (tyConKind tycon)
 +                              -- Temporarily print the kind signature too
 +                           , ppr (tyThingToIfaceDecl (ATyCon tycon)) ]
  
  ppr_rules :: [CoreRule] -> SDoc
  ppr_rules [] = empty