X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=05dcfb49930943e9e251853b04074bc6df49a5fd;hb=d8a22a2b98e2ccb3a49d6524583fbad636c7d81d;hp=f5e239a2df20f71614b96cddfbc7be920cb601d7;hpb=11047b5e250ae889a642429a8d39ec0991cd26da;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index f5e239a..05dcfb4 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -638,7 +638,7 @@ compileExpr :: HscEnv
 	    -> TypecheckedHsExpr
 	    -> IO HValue
 
-compileExpr hsc_env pcs this_mod type_env rdr_env tc_expr
+compileExpr hsc_env pcs this_mod rdr_env type_env tc_expr
   = do	{ let dflags = hsc_dflags hsc_env
 
 	 	-- Desugar it