diff options
Diffstat (limited to 'compiler/utils/FastFunctions.lhs')
| -rw-r--r-- | compiler/utils/FastFunctions.lhs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/compiler/utils/FastFunctions.lhs b/compiler/utils/FastFunctions.lhs index aca5344bc8..86c89bd9c7 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 |