diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-05-24 20:44:12 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-05-24 20:44:12 +0000 |
| commit | 893a3c0ad6c39caf71ac28af900733513e1f153e (patch) | |
| tree | 9f5611d6da315eaab7ac1edb6a025d5094a1d361 /compiler/utils/FastFunctions.lhs | |
| parent | de8c33e4158b0f019da60d4b52ae2cbd7cb9fafc (diff) | |
| download | haskell-893a3c0ad6c39caf71ac28af900733513e1f153e.tar.gz | |
Remove legacy code that isn't used now that we require GHC >= 6.8
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 |