import Hugs.IOArray ( IOArray, newIOArray,
unsafeReadIOArray, unsafeWriteIOArray )
# elif defined(__NHC__)
-import NHC.IOExtras ( IOArray, newIOArray )
+import NHC.IOExtras ( IOArray, newIOArray, readIOArray, writeIOArray )
# endif
#endif
import Control.Monad ( mapM, mapM_, sequence_ )
#if defined(DEBUG) || defined(__NHC__)
type MutArray a = IOArray Int32 a
type HTArray a = MutArray a
-newMutArray = newArray
-readHTArray = readArray
-writeMutArray = writeArray
+newMutArray = newIOArray
+readHTArray = readIOArray
+writeMutArray = writeIOArray
freezeArray = return
thawArray = return
#else