fix mistakes in last commit.
import STBase
import Unsafe
import GHC
import STBase
import Unsafe
import GHC
+import ArrBase
+import Ix
reallyUnsafePtrEq a b =
case reallyUnsafePtrEquality# a b of
0# -> False
_ -> True
reallyUnsafePtrEq a b =
case reallyUnsafePtrEquality# a b of
0# -> False
_ -> True
\begin{code}
newtype IORef a = IORef (MutableVar RealWorld a)
\begin{code}
newtype IORef a = IORef (MutableVar RealWorld a)
stToIO (newArray ixs elt) >>= \arr ->
return (IOArray arr)
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)
readIOArray (IOArray arr) ix = stToIO (readArray arr ix)