[project @ 2003-05-12 10:12:52 by ross]

[ghc-base.git] / Data / Array / ST.hs

diff --git a/Data/Array/ST.hs b/Data/Array/ST.hs
index cd81d83..0db90e1 100644 (file)
--- a/Data/Array/ST.hs
+++ b/Data/Array/ST.hs
@@ -17,11 +17,9 @@ module Data.Array.ST (
    -- * Boxed arrays
    STArray,            -- instance of: Eq, MArray
 
-#ifdef __GLASGOW_HASKELL__
    -- * Unboxed arrays
    STUArray,           -- instance of: Eq, MArray
    castSTUArray,       -- :: STUArray s i a -> ST s (STUArray s i b)
-#endif
 
    -- * Overloaded mutable array interface
    module Data.Array.MArray,
@@ -30,19 +28,13 @@ module Data.Array.ST (
 import Prelude
 
 import Data.Array.MArray
+import Data.Array.Base hiding (MArray(..))
+
 #ifdef __HUGS__
 import Hugs.ST
-#else
-import Data.Array.Base hiding (MArray(..))
 #endif
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Arr
 import GHC.ST
-
--- | Casts an 'STUArray' with one element type into one with a
--- different element type.  All the elements of the resulting array
--- are undefined (unless you know what you\'re doing...).
-castSTUArray :: STUArray s ix a -> ST s (STUArray s ix b)
-castSTUArray (STUArray l u marr#) = return (STUArray l u marr#)
 #endif