X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=88695bcf9dd96526cf46eb418f550a027c65dab7;hp=2afe8900513d8de36363abdfade72590d620e171;hb=e1cae1230d5b334c045d0c568d5bf7d02a26dbd7;hpb=1bf423f505cc14b4f022fce79f22de7202a673b3

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 2afe890..88695bc 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -82,6 +82,7 @@ import Outputable
 import DataCon
 import Type
 import Class
+import Data.List ( sortBy )
 
 #ifdef GHCI
 import Linker
@@ -1470,8 +1471,16 @@ pprTcGblEnv (TcGblEnv { tcg_type_env  = type_env,
 	 , ppr_fam_insts fam_insts
 	 , vcat (map ppr rules)
 	 , ppr_gen_tycons (typeEnvTyCons type_env)
-	 , ptext (sLit "Dependent modules:") <+> ppr (eltsUFM (imp_dep_mods imports))
-	 , ptext (sLit "Dependent packages:") <+> ppr (imp_dep_pkgs imports)]
+	 , ptext (sLit "Dependent modules:") <+> 
+		ppr (sortBy cmp_mp $ eltsUFM (imp_dep_mods imports))
+	 , ptext (sLit "Dependent packages:") <+> 
+		ppr (sortBy stablePackageIdCmp $ imp_dep_pkgs imports)]
+  where		-- The two uses of sortBy are just to reduce unnecessary
+		-- wobbling in testsuite output
+    cmp_mp (mod_name1, is_boot1) (mod_name2, is_boot2)
+	= (mod_name1 `stableModuleNameCmp` mod_name2)
+		  `thenCmp`	
+	  (is_boot1 `compare` is_boot2)
 
 pprModGuts :: ModGuts -> SDoc
 pprModGuts (ModGuts { mg_types = type_env,