diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-05-29 13:18:22 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-05-29 13:18:22 +0000 |
| commit | 1c83695b5b9ae3175c18908c1d58aeadb1f225ae (patch) | |
| tree | 31d3073656ae76ac32d0a4819c9bbfc6bd82ecd6 /compiler/utils/FastFunctions.lhs | |
| parent | 2675f2b68794ef6712e1ea0b9ec110c46c9e5ebf (diff) | |
| download | haskell-1c83695b5b9ae3175c18908c1d58aeadb1f225ae.tar.gz | |
Changes for the new IO library, mainly base-package modules moving around
Diffstat (limited to 'compiler/utils/FastFunctions.lhs')
| -rw-r--r-- | compiler/utils/FastFunctions.lhs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/compiler/utils/FastFunctions.lhs b/compiler/utils/FastFunctions.lhs index 86c89bd9c7..d6a282fcbe 100644 --- a/compiler/utils/FastFunctions.lhs +++ b/compiler/utils/FastFunctions.lhs @@ -22,8 +22,19 @@ import System.IO.Unsafe import GHC.Exts import GHC.Word -import GHC.IOBase (IO(..)) + +#if __GLASGOW_HASKELL__ >= 611 +import GHC.IO ( IO(..) ) +#else +import GHC.IOBase ( IO(..) ) +#endif + +#if __GLASGOW_HASKELL__ >= 611 +import GHC.IO (unsafeDupableInterleaveIO) +#else import GHC.IOBase (unsafeDupableInterleaveIO) +#endif + import GHC.Base (unsafeChr) -- Just like unsafePerformIO, but we inline it. |