From: ross <unknown>
Date: Wed, 25 Sep 2002 23:06:30 +0000 (+0000)
Subject: [project @ 2002-09-25 23:06:30 by ross]
X-Git-Tag: nhc98-1-18-release~838
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e2c2a2ece0b2e26defa63928cd56d92be41d27f9;p=ghc-base.git

[project @ 2002-09-25 23:06:30 by ross]
(Hugs only) use StorableArray as a poor man's IOUArray.
---

diff --git a/Data/Array/IO.hs b/Data/Array/IO.hs
index 82b6a22..0a2d7de 100644
--- a/Data/Array/IO.hs
+++ b/Data/Array/IO.hs
@@ -17,9 +17,9 @@ module Data.Array.IO (
    -- * @IO@ arrays with boxed elements
    IOArray,		-- instance of: Eq, Typeable
 
-#ifdef __GLASGOW_HASKELL__
    -- * @IO@ arrays with unboxed elements
    IOUArray,		-- instance of: Eq, Typeable
+#ifdef __GLASGOW_HASKELL__
    castIOUArray,	-- :: IOUArray i a -> IO (IOUArray i b)
 #endif
 
@@ -43,6 +43,7 @@ import Data.Dynamic
 
 #ifdef __HUGS__
 import Hugs.IOArray
+import Data.Array.Storable
 #endif
 
 #ifdef __GLASGOW_HASKELL__
@@ -71,6 +72,8 @@ instance MArray IOArray e IO where
     newArray    = newIOArray
     unsafeRead  = unsafeReadIOArray
     unsafeWrite = unsafeWriteIOArray
+
+type IOUArray = StorableArray
 #endif /* __HUGS__ */
 
 iOArrayTc :: TyCon