X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDesugar.lhs;h=ab4ee74b4123dbb01524527c794244d6e94d79b2;hp=8fcaf9b93ac874e45606697bdd010e95a0d60777;hb=311b1cdfc9b1c311cc53482c461c18cba8885b2a;hpb=8a5d47de2b82d9cca86546a7bd89d915488934ef

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index 8fcaf9b..ab4ee74 100644
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -139,9 +139,10 @@ deSugar hsc_env
 	     le_dep_mod :: (ModuleName, IsBootInterface) -> (ModuleName, IsBootInterface) -> Bool	 
 	     le_dep_mod (m1,_) (m2,_) = moduleNameFS m1 <= moduleNameFS m2
 
-	     deps = Deps { dep_mods  = sortLe le_dep_mod dep_mods,
-			   dep_pkgs  = sortLe (<=)   pkgs,	
-			   dep_orphs = sortLe le_mod (imp_orphs imports) }
+	     deps = Deps { dep_mods   = sortLe le_dep_mod dep_mods,
+			   dep_pkgs   = sortLe (<=)   pkgs,	
+			   dep_orphs  = sortLe le_mod (imp_orphs  imports),
+			   dep_finsts = sortLe le_mod (imp_finsts imports) }
 		-- sort to get into canonical order
 
 	     mod_guts = ModGuts {