X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FArray%2FST.hs;h=4982de8545b35a40d4dfc6e80732e32718f06a68;hb=68feabdf62717aee17512d2cf0cc928c9f6f7a60;hp=e71dece303c7f1c08079702140da79ac05ddf39f;hpb=4836cf1053a971fe823ba547a8268431745c5bce;p=ghc-base.git

diff --git a/Data/Array/ST.hs b/Data/Array/ST.hs
index e71dece..4982de8 100644
--- a/Data/Array/ST.hs
+++ b/Data/Array/ST.hs
@@ -2,32 +2,38 @@
 -- |
 -- Module      :  Data.Array.ST
 -- Copyright   :  (c) The University of Glasgow 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
 -- Stability   :  experimental
 -- Portability :  non-portable
 --
--- Mutable boxed and unboxed arrays in the ST monad.
+-- Mutable boxed and unboxed arrays in the 'ST' monad.
 --
 -----------------------------------------------------------------------------
 
 module Data.Array.ST (
-   module Data.Array.MArray,
+
+   -- * Boxed arrays
    STArray,		-- instance of: Eq, MArray
+
+   -- * Unboxed arrays
    STUArray,		-- instance of: Eq, MArray
    castSTUArray,	-- :: STUArray s i a -> ST s (STUArray s i b)
+
+   -- * Overloaded mutable array interface
+   module Data.Array.MArray,
  ) where
 
 import Prelude
 
 import Data.Array.MArray
-import Data.Array.Base
+import Data.Array.Base	( STUArray, castSTUArray )
 
-#ifdef __GLASGOW_HASKELL__
-import GHC.Arr
-import GHC.ST
+#ifdef __HUGS__
+import Hugs.ST		( STArray )
+#endif
 
-castSTUArray :: STUArray s ix a -> ST s (STUArray s ix b)
-castSTUArray (STUArray l u marr#) = return (STUArray l u marr#)
+#ifdef __GLASGOW_HASKELL__
+import GHC.Arr		( STArray )
 #endif