projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replace remaining uses of ioToIOEnv by liftIO, remove ioToIOEnv
[ghc-hetmet.git]
/
compiler
/
utils
/
IOEnv.hs
diff --git
a/compiler/utils/IOEnv.hs
b/compiler/utils/IOEnv.hs
index
222b42f
..
224147f
100644
(file)
--- a/
compiler/utils/IOEnv.hs
+++ b/
compiler/utils/IOEnv.hs
@@
-28,7
+28,6
@@
module IOEnv (
tryM, tryAllM, tryMostM, fixM,
-- I/O operations
tryM, tryAllM, tryMostM, fixM,
-- I/O operations
- ioToIOEnv,
IORef, newMutVar, readMutVar, writeMutVar, updMutVar
) where
#include "HsVersions.h"
IORef, newMutVar, readMutVar, writeMutVar, updMutVar
) where
#include "HsVersions.h"
@@
-133,9
+132,6
@@
unsafeInterleaveM (IOEnv m) = IOEnv (\ env -> unsafeInterleaveIO (m env))
instance MonadIO (IOEnv env) where
liftIO io = IOEnv (\ env -> io)
instance MonadIO (IOEnv env) where
liftIO io = IOEnv (\ env -> io)
-ioToIOEnv :: IO a -> IOEnv env a
-ioToIOEnv io = IOEnv (\ env -> io)
-
newMutVar :: a -> IOEnv env (IORef a)
newMutVar val = liftIO (newIORef val)
newMutVar :: a -> IOEnv env (IORef a)
newMutVar val = liftIO (newIORef val)