[project @ 2004-11-10 03:20:31 by wolfgang]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsMonad.lhs

diff --git a/ghc/compiler/deSugar/DsMonad.lhs b/ghc/compiler/deSugar/DsMonad.lhs
index fe0645e..b5b8598 100644 (file)
--- a/ghc/compiler/deSugar/DsMonad.lhs
+++ b/ghc/compiler/deSugar/DsMonad.lhs
@@ -29,16 +29,15 @@ module DsMonad (
 
 import TcRnMonad
 import HsSyn           ( HsExpr, HsMatchContext, Pat )
-import IfaceEnv                ( tcIfaceGlobal )
+import TcIface         ( tcIfaceGlobal )
 import HscTypes                ( TyThing(..), TypeEnv, HscEnv, 
-                         IsBootInterface,
                          tyThingId, tyThingTyCon, tyThingDataCon  )
 import Bag             ( emptyBag, snocBag, Bag )
 import DataCon         ( DataCon )
 import TyCon           ( TyCon )
 import DataCon         ( DataCon )
 import Id              ( mkSysLocal, setIdUnique, Id )
-import Module          ( Module, ModuleName, ModuleEnv )
+import Module          ( Module )
 import Var             ( TyVar, setTyVarUnique )
 import Outputable
 import SrcLoc          ( noSrcSpan, SrcSpan )
@@ -102,14 +101,12 @@ data DsMetaVal
 
 initDs  :: HscEnv
        -> Module -> TypeEnv
-       -> ModuleEnv (ModuleName,IsBootInterface)       
        -> DsM a
        -> IO (a, Bag DsWarning)
 
-initDs hsc_env mod type_env is_boot thing_inside
+initDs hsc_env mod type_env thing_inside
   = do         { warn_var <- newIORef emptyBag
-       ; let { if_env = IfGblEnv { if_rec_types = Just (mod, return type_env),
-                                   if_is_boot = is_boot }
+       ; let { if_env = IfGblEnv { if_rec_types = Just (mod, return type_env) }
              ; gbl_env = DsGblEnv { ds_mod = mod, 
                                     ds_if_env = if_env, 
                                     ds_warns = warn_var }