X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=93ce6ad5a73760e7c92a3d6199d18fce47ba260c;hb=c245355e6f2c7b7c95e9af910c4d420e13af9413;hp=1b7df1ba626a0632bbd5e0101d184ba437a4c5e5;hpb=a28f108105065f926702dd03d737b60f298cfa3c;p=ghc-hetmet.git

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index 1b7df1b..93ce6ad 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -40,7 +40,6 @@ import ByteCodeGen	( byteCodeGen, coreExprToBCOs )
 import Linker		( HValue, linkExpr )
 import CoreTidy		( tidyExpr )
 import CorePrep		( corePrepExpr )
-import Flattening	( flattenExpr )
 import Desugar          ( deSugarExpr )
 import SimplCore        ( simplifyExpr )
 import TcRnDriver	( tcRnStmt, tcRnExpr, tcRnType ) 
@@ -961,11 +960,8 @@ compileExpr hsc_env srcspan ds_expr
   = do	{ let { dflags  = hsc_dflags hsc_env ;
 		lint_on = dopt Opt_DoCoreLinting dflags }
 	      
-		-- Flatten it
-	; flat_expr <- flattenExpr hsc_env ds_expr
-
 		-- Simplify it
-	; simpl_expr <- simplifyExpr dflags flat_expr
+	; simpl_expr <- simplifyExpr dflags ds_expr
 
 		-- Tidy it (temporary, until coreSat does cloning)
 	; let tidy_expr = tidyExpr emptyTidyEnv simpl_expr