X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FFastFunctions.lhs;h=86c89bd9c73f5221d2365690c4ebd6e28397cb9d;hp=aca5344bc89addf6f7fde035e3a6899e1ef5471c;hb=893a3c0ad6c39caf71ac28af900733513e1f153e;hpb=de8c33e4158b0f019da60d4b52ae2cbd7cb9fafc

diff --git a/compiler/utils/FastFunctions.lhs b/compiler/utils/FastFunctions.lhs
index aca5344..86c89bd 100644
--- a/compiler/utils/FastFunctions.lhs
+++ b/compiler/utils/FastFunctions.lhs
@@ -23,17 +23,9 @@ import System.IO.Unsafe
 import GHC.Exts
 import GHC.Word
 import GHC.IOBase (IO(..))
---why not import it at __GLASGOW_HASKELL__==606 ?
-#if __GLASGOW_HASKELL__ >= 607
 import GHC.IOBase (unsafeDupableInterleaveIO)
-#endif
 import GHC.Base (unsafeChr)
 
-#if __GLASGOW_HASKELL__ < 607
-unsafeDupableInterleaveIO :: IO a -> IO a
-unsafeDupableInterleaveIO = unsafeInterleaveIO
-#endif
-
 -- Just like unsafePerformIO, but we inline it.
 {-# INLINE inlinePerformIO #-}
 inlinePerformIO :: IO a -> a