From 3408a36674b002bfce16750d8af782ca40b47856 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 23 Apr 2002 08:40:52 +0000
Subject: [PATCH] [project @ 2002-04-23 08:40:52 by simonmar] Need to pull in
 thenIO when compiling a stmt now.

---
 ghc/compiler/rename/RnEnv.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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