From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 22 Jul 2009 10:22:19 +0000 (+0000)
Subject: thenIO, bindIO, returnIO moved to GHC.Base
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=428eac5caec93bc48249bcc6a320de43eb28be82;p=ghc-hetmet.git

thenIO, bindIO, returnIO moved to GHC.Base
---

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index 4c13965..af3a1d0 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -742,9 +742,9 @@ ioTyConName, ioDataConName, thenIOName, bindIOName, returnIOName,
     failIOName :: Name
 ioTyConName	  = tcQual  gHC_TYPES (fsLit "IO") ioTyConKey
 ioDataConName     = conName gHC_TYPES (fsLit "IO") ioDataConKey
-thenIOName	  = varQual gHC_IO (fsLit "thenIO") thenIOIdKey
-bindIOName	  = varQual gHC_IO (fsLit "bindIO") bindIOIdKey
-returnIOName	  = varQual gHC_IO (fsLit "returnIO") returnIOIdKey
+thenIOName	  = varQual gHC_BASE (fsLit "thenIO") thenIOIdKey
+bindIOName	  = varQual gHC_BASE (fsLit "bindIO") bindIOIdKey
+returnIOName	  = varQual gHC_BASE (fsLit "returnIO") returnIOIdKey
 failIOName	  = varQual gHC_IO (fsLit "failIO") failIOIdKey
 
 -- IO things