X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRename.lhs;h=af9ccc6e11b01ba0e287d04be0165db5b2e6d56c;hb=0ef29fb878dd6517d2716afb056bcf2536c2562e;hp=7a3ae9a3d14301889943ab0a9b4afd9c724ca1bb;hpb=fb2442c0498868330476f5fdde46339eab68e72d;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 7a3ae9a..af9ccc6 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -126,7 +126,7 @@ renameExpr dflags hit hst pcs this_module expr
 	      print_unqual = unQualInScope rdr_env
 	  in 
  
-	  initRnMS rdr_env emptyLocalFixityEnv SourceMode (rnExpr expr)	
+	  initRnMS rdr_env emptyLocalFixityEnv CmdLineMode (rnExpr expr)	
 						`thenRn` \ (e,fvs) -> 
 
 	  checkErrsRn				`thenRn` \ no_errs_so_far ->