-- * @IO@ arrays with unboxed elements
IOUArray, -- instance of: Eq, Typeable
-#ifdef __GLASGOW_HASKELL__
castIOUArray, -- :: IOUArray i a -> IO (IOUArray i b)
-#endif
-- * Overloaded mutable array interface
module Data.Array.MArray,
#ifdef __HUGS__
import Hugs.IOArray
+import Hugs.IOExts ( unsafeCoerce )
import Data.Array.Storable
#endif
unsafeWrite = unsafeWriteIOArray
type IOUArray = StorableArray
+
+castIOUArray :: IOUArray i a -> IO (IOUArray i b)
+castIOUArray marr = return (unsafeCoerce marr)
#endif /* __HUGS__ */
iOArrayTc :: TyCon