X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=inline;f=compiler%2Fmain%2FTidyPgm.lhs;h=16f389bf142a66a67629c533022be6617318f571;hb=1246293616fc45787ecaed13aa31a2555510f7e3;hp=16f1402c83adde4095f7cf2b7394026b0bbacb3f;hpb=6084fb5517da34f65034370a3695e2af3b85ce2b;p=ghc-hetmet.git

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 16f1402..16f389b 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -142,6 +142,7 @@ mkBootModDetails hsc_env exports type_env insts fam_insts
 			     , md_insts     = insts'
 			     , md_fam_insts = fam_insts
 			     , md_rules     = []
+			     , md_anns      = []
 			     , md_exports   = exports
                              , md_vect_info = noVectInfo
                              })
@@ -260,6 +261,7 @@ tidyProgram hsc_env  (ModGuts { mg_module = mod, mg_exports = exports,
 				mg_rules = imp_rules,
                                 mg_vect_info = vect_info,
 				mg_dir_imps = dir_imps, 
+				mg_anns = anns,
                                 mg_deps = deps, 
 				mg_foreign = foreign_stubs,
 			        mg_hpc_info = hpc_info,
@@ -326,7 +328,8 @@ tidyProgram hsc_env  (ModGuts { mg_module = mod, mg_exports = exports,
 				md_insts     = tidy_insts,
 				md_fam_insts = fam_insts,
 				md_exports   = exports,
-                                md_vect_info = vect_info    -- is already tidy
+				md_anns      = anns,     -- are already tidy
+                                md_vect_info = vect_info --
                               })
 	}
 
@@ -353,7 +356,7 @@ tidyTypeEnv :: Bool 	-- Compiling without -O, so omit prags
 -- This truncates the type environment to include only the 
 -- exported Ids and things needed from them, which saves space
 
-tidyTypeEnv th omit_prags exports type_env final_ids 
+tidyTypeEnv omit_prags th exports type_env final_ids
  = let  type_env1 = filterNameEnv keep_it type_env
 	type_env2 = extendTypeEnvWithIds type_env1 final_ids
 	type_env3 | omit_prags = mapNameEnv (trimThing th exports) type_env2