X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fmain%2FTidyPgm.lhs;h=16f389bf142a66a67629c533022be6617318f571;hb=ef993c503ad58a18b7c2589a29f94c547b1c55f2;hp=01d47e6214d856722b3fa7d5c36d2a2a107b3a22;hpb=0624f27805fa902da84debb690be9284c7135a9f;p=ghc-hetmet.git

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 01d47e6..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 --
                               })
 	}