diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-07-22 10:22:19 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-07-22 10:22:19 +0000 |
| commit | 428eac5caec93bc48249bcc6a320de43eb28be82 (patch) | |
| tree | 4d27f88fa85e4f3029300c42a13ad5f557dd0a21 | |
| parent | 872bd77dda95ff67340588ee5b5653a9f289d369 (diff) | |
| download | haskell-428eac5caec93bc48249bcc6a320de43eb28be82.tar.gz | |
thenIO, bindIO, returnIO moved to GHC.Base
| -rw-r--r-- | compiler/prelude/PrelNames.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index 4c13965c13..af3a1d0498 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 |