projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-09-25 23:06:30 by ross]
[ghc-base.git]
/
Data
/
Array
/
IO.hs
diff --git
a/Data/Array/IO.hs
b/Data/Array/IO.hs
index
82b6a22
..
0a2d7de
100644
(file)
--- 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
-- * @IO@ arrays with boxed elements
IOArray, -- instance of: Eq, Typeable
-#ifdef __GLASGOW_HASKELL__
-- * @IO@ arrays with unboxed elements
IOUArray, -- instance of: Eq, Typeable
-- * @IO@ arrays with unboxed elements
IOUArray, -- instance of: Eq, Typeable
+#ifdef __GLASGOW_HASKELL__
castIOUArray, -- :: IOUArray i a -> IO (IOUArray i b)
#endif
castIOUArray, -- :: IOUArray i a -> IO (IOUArray i b)
#endif
@@
-43,6
+43,7
@@
import Data.Dynamic
#ifdef __HUGS__
import Hugs.IOArray
#ifdef __HUGS__
import Hugs.IOArray
+import Data.Array.Storable
#endif
#ifdef __GLASGOW_HASKELL__
#endif
#ifdef __GLASGOW_HASKELL__
@@
-71,6
+72,8
@@
instance MArray IOArray e IO where
newArray = newIOArray
unsafeRead = unsafeReadIOArray
unsafeWrite = unsafeWriteIOArray
newArray = newIOArray
unsafeRead = unsafeReadIOArray
unsafeWrite = unsafeWriteIOArray
+
+type IOUArray = StorableArray
#endif /* __HUGS__ */
iOArrayTc :: TyCon
#endif /* __HUGS__ */
iOArrayTc :: TyCon