X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FUniqSupply.lhs;h=cb1a1fc69f11effb153baa990843575507a99a69;hp=774d2d2b20c11507f8d008888ca5e15b8c0933d7;hb=893a3c0ad6c39caf71ac28af900733513e1f153e;hpb=de8c33e4158b0f019da60d4b52ae2cbd7cb9fafc

diff --git a/compiler/basicTypes/UniqSupply.lhs b/compiler/basicTypes/UniqSupply.lhs
index 774d2d2..cb1a1fc 100644
--- a/compiler/basicTypes/UniqSupply.lhs
+++ b/compiler/basicTypes/UniqSupply.lhs
@@ -31,13 +31,7 @@ import FastTypes
 import MonadUtils
 import Control.Monad
 import Control.Monad.Fix
-#if __GLASGOW_HASKELL__ >= 607
 import GHC.IOBase (unsafeDupableInterleaveIO)
-#else
-import System.IO.Unsafe ( unsafeInterleaveIO )
-unsafeDupableInterleaveIO :: IO a -> IO a
-unsafeDupableInterleaveIO = unsafeInterleaveIO
-#endif
 
 \end{code}