X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscTypes.lhs;h=244b312127b36624ba7f01ea43496e73324c9e35;hp=c9ea1f7c4fe3f62ef1498db3a4c59f784ad17f55;hb=d83e1ac43a43dc30c7e4f5b64f7b77e32d31886d;hpb=0d80489c9b9f2421f65d8dd86c1e50c6bb429715

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index c9ea1f7..244b312 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -206,6 +206,10 @@ data HscEnv
                 -- by limiting the number of transformations,
                 -- we can use binary search to help find compiler bugs.
 
+        hsc_type_env_var :: Maybe (Module, IORef TypeEnv),
+                -- Used for one-shot compilation only, to initialise
+                -- the IfGblEnv.  See TcRnTypes.TcGblEnv.tcg_type_env_var
+
         hsc_global_rdr_env :: GlobalRdrEnv,
         hsc_global_type_env :: TypeEnv
  }