X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=73d699ca63abddbac61d9ba27d48a0461efca21d;hp=9a7a255395a2aa03280c5c6fb017c2b7bca9ed46;hb=8102af4eac807ae4956a79b27f03fd890f8294c6;hpb=7fa5c11df9430fc35645bd7e74ad0f284e783d82

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index 9a7a255..73d699c 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -193,7 +193,7 @@ data HscChecked
         -- typechecked
         (Maybe (LHsBinds Id, GlobalRdrEnv, ModDetails))
         -- desugared
-        (Maybe [CoreBind])
+        (Maybe CoreModule)
 
 -- Status of a compilation to hard-code or nothing.
 data HscStatus
@@ -689,7 +689,11 @@ hscFileCheck hsc_env mod_summary compileToCore = do {
 				   (Just (tcg_binds tc_result,
 					  tcg_rdr_env tc_result,
 					  md))
-                                   (fmap mg_binds maybeModGuts)))
+                                   (fmap (\ mg ->
+                                            (CoreModule { cm_module = mg_module mg,
+                                                          cm_types  = mg_types mg,
+                                                          cm_binds  = mg_binds mg}))
+                                    maybeModGuts)))
 	}}}}