From b9d01c5e82200a2c8e7640973c5c1a8bd11fe85c Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 24 Nov 1997 15:58:59 +0000
Subject: [PATCH] [project @ 1997-11-24 15:58:59 by simonm] fix mistakes in
 last commit.

---
 ghc/lib/glaExts/IOExts.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ghc/lib/glaExts/IOExts.lhs b/ghc/lib/glaExts/IOExts.lhs
index 303de8c..9f108b1 100644
--- 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)
 
-- 
1.7.10.4