[project @ 2001-01-18 12:54:16 by simonmar]

[ghc-hetmet.git] / ghc / compiler / rename / Rename.lhs

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 7a3ae9a..af9ccc6 100644 (file)
--- 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 ->