[project @ 2003-08-30 23:01:48 by ross]

[haskell-directory.git] / Data / Array / ST.hs

diff --git a/Data/Array/ST.hs b/Data/Array/ST.hs
index 6c4b416..507ba60 100644 (file)
--- a/Data/Array/ST.hs
+++ b/Data/Array/ST.hs
@@ -8,7 +8,7 @@
 -- Stability   :  experimental
 -- Portability :  non-portable
 --
--- Mutable boxed and unboxed arrays in the 'ST' monad.
+-- Mutable boxed and unboxed arrays in the 'Control.Monad.ST.ST' monad.
 --
 -----------------------------------------------------------------------------
 
@@ -28,15 +28,12 @@ module Data.Array.ST (
 import Prelude
 
 import Data.Array.MArray
-import Data.Array.Base hiding (MArray(..))
+import Data.Array.Base ( STUArray, castSTUArray )
+
+#ifdef __HUGS__
+import Hugs.ST         ( STArray )
+#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#)
+import GHC.Arr         ( STArray )
 #endif