diff options
Diffstat (limited to 'compiler/ghci/ByteCodeAsm.lhs')
| -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 |