Commit 1679a75e authored by Simon Peyton Jones's avatar Simon Peyton Jones

Fix import DEPRECATE failures for castSTUArray

parent 5dedffb3
......@@ -48,7 +48,14 @@ import Data.Map (Map)
import qualified Data.Map as Map
import Data.Word
-- castSTUArray has moved to Data.Array.Unsafe
#if __GLASGOW_HASKELL__ >= 701
import Data.Array.Unsafe( castSTUArray )
import Data.Array.ST hiding( castSTUArray )
#else
import Data.Array.ST
#endif
import Control.Monad.ST
#if defined(alpha_TARGET_ARCH) || defined(mips_TARGET_ARCH) || defined(mipsel_TARGET_ARCH) || defined(arm_TARGET_ARCH)
......
......@@ -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
......
......@@ -21,7 +21,14 @@ import qualified Outputable
import CLabel
import Pretty
-- castSTUArray has moved to Data.Array.Unsafe
#if __GLASGOW_HASKELL__ >= 701
import Data.Array.Unsafe( castSTUArray )
import Data.Array.ST hiding( castSTUArray )
#else
import Data.Array.ST
#endif
import Control.Monad.ST
import Data.Word
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment