X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDesugar.lhs;h=84b7216edd31a8453d8850393cf2cb5764d6d2dc;hb=4e3255388e8b99ccdae290bfcb6cd666b8c93d4a;hp=e2fe1f31c2b1dd48c7e608bbd578cec0d6edc39c;hpb=d32c5227315009f38355fe3233f0f4e5b1f61dc6;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index e2fe1f3..84b7216 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -73,8 +73,7 @@ deSugar hsc_env
   = do	{ showPass dflags "Desugar"
 
 	-- Do desugaring
-	; let { is_boot = imp_dep_mods imports }
-	; (results, warnings) <- initDs hsc_env mod type_env is_boot $
+	; (results, warnings) <- initDs hsc_env mod type_env $
 				 dsProgram ghci_mode tcg_env
 
 	; let { (ds_binds, ds_rules, ds_fords) = results
@@ -145,9 +144,7 @@ deSugarExpr hsc_env this_mod rdr_env type_env tc_expr
 	; us <- mkSplitUniqSupply 'd'
 
 	-- Do desugaring
-	; let { is_boot = emptyModuleEnv }	-- Assume no hi-boot files when
-						-- doing stuff from the command line
-	; (core_expr, ds_warns) <- initDs hsc_env this_mod type_env is_boot $
+	; (core_expr, ds_warns) <- initDs hsc_env this_mod type_env $
 				   dsLExpr tc_expr
 
 	-- Display any warnings