diff options
| -rw-r--r-- | compiler/cmm/PprC.hs | 2 | ||||
| -rw-r--r-- | compiler/ghci/ByteCodeAsm.lhs | 6 | ||||
| -rw-r--r-- | compiler/nativeGen/PprBase.hs | 2 |
3 files changed, 2 insertions, 8 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index cad5c89fb5..51b0031ad3 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -49,7 +49,7 @@ import qualified Data.Map as Map import Data.Word -- castSTUArray has moved to Data.Array.Unsafe -#if __GLASGOW_HASKELL__ >= 701 +#if __GLASGOW_HASKELL__ >= 703 import Data.Array.Unsafe( castSTUArray ) import Data.Array.ST hiding( castSTUArray ) #else diff --git a/compiler/ghci/ByteCodeAsm.lhs b/compiler/ghci/ByteCodeAsm.lhs index fa87543e6a..2ec6555a54 100644 --- a/compiler/ghci/ByteCodeAsm.lhs +++ b/compiler/ghci/ByteCodeAsm.lhs @@ -40,13 +40,7 @@ import Control.Monad.ST ( runST ) import Data.Array.MArray import Data.Array.Unboxed ( listArray ) import Data.Array.Base ( UArray(..) ) - --- castSTUArray has moved to Data.Array.Unsafe -#if __GLASGOW_HASKELL__ >= 701 import Data.Array.Unsafe( castSTUArray ) -#else -import Data.Array.ST ( castSTUArray ) -#endif import Foreign import Data.Char ( ord ) diff --git a/compiler/nativeGen/PprBase.hs b/compiler/nativeGen/PprBase.hs index 5781e89997..5b9000cfca 100644 --- a/compiler/nativeGen/PprBase.hs +++ b/compiler/nativeGen/PprBase.hs @@ -22,7 +22,7 @@ import CLabel import Pretty -- castSTUArray has moved to Data.Array.Unsafe -#if __GLASGOW_HASKELL__ >= 701 +#if __GLASGOW_HASKELL__ >= 703 import Data.Array.Unsafe( castSTUArray ) import Data.Array.ST hiding( castSTUArray ) #else |