diff options
| author | David Terei <davidterei@gmail.com> | 2011-05-19 00:57:12 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-06-17 20:39:56 -0700 |
| commit | c84ddf85ed52609d5468101d38958503b092c269 (patch) | |
| tree | b345e73a157cd446b8f77f01d5b93caa2b48ffa2 /compiler/utils/FastFunctions.lhs | |
| parent | e0eb7e7de292ba2bb0aa5ca261b7b41169b58af0 (diff) | |
| download | haskell-c84ddf85ed52609d5468101d38958503b092c269.tar.gz | |
SafeHaskell: Update to work with safe base
Diffstat (limited to 'compiler/utils/FastFunctions.lhs')
| -rw-r--r-- | compiler/utils/FastFunctions.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/utils/FastFunctions.lhs b/compiler/utils/FastFunctions.lhs index 5496ed051c..0734240287 100644 --- a/compiler/utils/FastFunctions.lhs +++ b/compiler/utils/FastFunctions.lhs @@ -22,9 +22,10 @@ import System.IO.Unsafe import GHC.Exts import GHC.Word -import GHC.IO (IO(..), unsafeDupableInterleaveIO) import GHC.Base (unsafeChr) +import GhcIO (IO(..), unsafeDupableInterleaveIO) + -- Just like unsafePerformIO, but we inline it. {-# INLINE inlinePerformIO #-} inlinePerformIO :: IO a -> a |