X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FMonad%2FST.hs;h=4260d0e86eef10b5c78938a97a8f36864010dcb7;hb=8afc9fecd586d3c4f7ef9c69fb1686a79e5f441d;hp=b77966484f6786632721ed8d5ef35f4a87255069;hpb=2b2397221c29a275630c62d4982caedc2c7cd987;p=ghc-base.git

diff --git a/Control/Monad/ST.hs b/Control/Monad/ST.hs
index b779664..4260d0e 100644
--- a/Control/Monad/ST.hs
+++ b/Control/Monad/ST.hs
@@ -32,8 +32,6 @@ module Control.Monad.ST
         unsafeSTToIO            -- :: ST s a -> IO a
       ) where
 
-import Prelude
-
 import Control.Monad.Fix
 
 #include "Typeable.h"
@@ -57,7 +55,7 @@ unsafeInterleaveST =
 #ifdef __GLASGOW_HASKELL__
 import GHC.ST           ( ST, runST, fixST, unsafeInterleaveST )
 import GHC.Base         ( RealWorld )
-import GHC.IOBase       ( stToIO, unsafeIOToST, unsafeSTToIO )
+import GHC.IO           ( stToIO, unsafeIOToST, unsafeSTToIO )
 #endif
 
 instance MonadFix (ST s) where