From: simonmar <unknown>
Date: Tue, 23 Apr 2002 08:40:52 +0000 (+0000)
Subject: [project @ 2002-04-23 08:40:52 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2119
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=3408a36674b002bfce16750d8af782ca40b47856;p=ghc-hetmet.git

[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
--- 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