From e2c2a2ece0b2e26defa63928cd56d92be41d27f9 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Wed, 25 Sep 2002 23:06:30 +0000
Subject: [PATCH] [project @ 2002-09-25 23:06:30 by ross] (Hugs only) use
 StorableArray as a poor man's IOUArray.

---
 Data/Array/IO.hs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4