X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FIOEnv.hs;h=224147f6671a6d40f2f100fc8536e520149ef3b5;hb=36fa8c4890e439fe8c2a4682df2a877fa2cc606b;hp=222b42f2a204d3adce6f1f91f25063ad00cd86f2;hpb=e57b4493db1aea6d3df0081481737148ab458904;p=ghc-hetmet.git

diff --git a/compiler/utils/IOEnv.hs b/compiler/utils/IOEnv.hs
index 222b42f..224147f 100644
--- a/compiler/utils/IOEnv.hs
+++ b/compiler/utils/IOEnv.hs
@@ -28,7 +28,6 @@ module IOEnv (
 	tryM, tryAllM, tryMostM, fixM, 
 
 	-- I/O operations
-	ioToIOEnv,
 	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)
 
-ioToIOEnv :: IO a -> IOEnv env a
-ioToIOEnv io = IOEnv (\ env -> io)
-
 newMutVar :: a -> IOEnv env (IORef a)
 newMutVar val = liftIO (newIORef val)