diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-02 13:34:06 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-02 13:34:06 +0100 |
| commit | 1679a75ecb6ed1136cceeea57f43690515418366 (patch) | |
| tree | c0326ac881b2289498265f03605c97be8116b030 /compiler/ghci | |
| parent | 5dedffb3b314bb93ec4d0cf2b5da98297333f201 (diff) | |
| download | haskell-1679a75ecb6ed1136cceeea57f43690515418366.tar.gz | |
Fix import DEPRECATE failures for castSTUArray
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/ByteCodeAsm.lhs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/compiler/ghci/ByteCodeAsm.lhs b/compiler/ghci/ByteCodeAsm.lhs index af9fbe9049..fa87543e6a 100644 --- a/compiler/ghci/ByteCodeAsm.lhs +++ b/compiler/ghci/ByteCodeAsm.lhs @@ -40,7 +40,14 @@ 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 ) import Data.List |