From: simonm <unknown>
Date: Mon, 24 Nov 1997 15:58:59 +0000 (+0000)
Subject: [project @ 1997-11-24 15:58:59 by simonm]
X-Git-Tag: Approx_2487_patches~1281
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b9d01c5e82200a2c8e7640973c5c1a8bd11fe85c;p=ghc-hetmet.git

[project @ 1997-11-24 15:58:59 by simonm]
fix mistakes in last commit.
---

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)