[project @ 2002-04-23 08:40:52 by simonmar]

Need to pull in thenIO when compiling a stmt now.

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 8ccf276..c2c6762 100644 (file)
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -45,7 +45,7 @@ import PrelNames      ( mkUnboundName,
                          boolTyConName, funTyConName,
                          unpackCStringName, unpackCStringFoldrName, unpackCStringUtf8Name,
                          eqStringName, printName, 
-                         bindIOName, returnIOName, failIOName
+                         bindIOName, returnIOName, failIOName, thenIOName
                        )
 import TysWiredIn      ( unitTyCon )   -- A little odd
 import FiniteMap
@@ -420,7 +420,8 @@ mentioned explicitly, but which might be needed by the type checker.
 
 \begin{code}
 getImplicitStmtFVs     -- Compiling a statement
-  = returnRn (mkFVs [printName, bindIOName, returnIOName, failIOName]
+  = returnRn (mkFVs [printName, bindIOName, thenIOName, 
+                    returnIOName, failIOName]
              `plusFV` ubiquitousNames)
                -- These are all needed implicitly when compiling a statement
                -- See TcModule.tc_stmts