X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FFastFunctions.lhs;h=5496ed051c6f4711af1ee308876d68241ecbebf8;hp=5d8ff23dbd145b93fbf63cacae9fabc5f8269794;hb=18691d440f90a3dff4ef538091c886af505e5cf5;hpb=206b4dec78250efef3cd927d64dc6cbc54a16c3d

diff --git a/compiler/utils/FastFunctions.lhs b/compiler/utils/FastFunctions.lhs
index 5d8ff23..5496ed0 100644
--- a/compiler/utils/FastFunctions.lhs
+++ b/compiler/utils/FastFunctions.lhs
@@ -12,7 +12,6 @@ module FastFunctions (
     global, Global
   ) where
 
-#define COMPILING_FAST_STRING
 #include "HsVersions.h"
 
 import FastTypes
@@ -23,18 +22,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.IO (IO(..), unsafeDupableInterleaveIO)
 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