[project @ 2003-03-04 13:36:39 by ross]

add an #ifdef __GLASGOW_HASKELL__

diff --git a/Data/Array/IO.hs b/Data/Array/IO.hs
index 3bf4906..5644e58 100644 (file)
--- a/Data/Array/IO.hs
+++ b/Data/Array/IO.hs
@@ -19,7 +19,9 @@ module Data.Array.IO (
 
    -- * @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,