[project @ 1997-11-24 15:58:59 by simonm]

[ghc-hetmet.git] / ghc / lib / glaExts / IOExts.lhs

diff --git a/ghc/lib/glaExts/IOExts.lhs b/ghc/lib/glaExts/IOExts.lhs
index 303de8c..9f108b1 100644 (file)
--- a/ghc/lib/glaExts/IOExts.lhs
+++ b/ghc/lib/glaExts/IOExts.lhs
@@ -39,11 +39,14 @@ import IOBase
 import STBase
 import Unsafe
 import GHC
+import ArrBase
+import Ix
 
 reallyUnsafePtrEq a b =
     case reallyUnsafePtrEquality# a b of
         0# -> False
         _  -> True
+\end{code}
 
 \begin{code}
 newtype IORef a = IORef (MutableVar RealWorld a) 
@@ -73,7 +76,7 @@ newIOArray ixs elt =
     stToIO (newArray ixs elt) >>= \arr -> 
     return (IOArray arr)
 
-boundsIOArray (IOArray arr) = boundsOfArray
+boundsIOArray (IOArray arr) = boundsOfArray arr
 
 readIOArray (IOArray arr) ix = stToIO (readArray arr ix)