From 561a879dd2838dd3ecb613853cb16016b86d3ee1 Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Fri, 18 Aug 2006 13:07:14 +0000
Subject: [PATCH] use correct names of IOArray operations for nhc98

---
 Data/HashTable.hs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index f78f0cc..ddbc24b 100644
--- a/Data/HashTable.hs
+++ b/Data/HashTable.hs
@@ -62,7 +62,7 @@ import Data.Int		( Int64 )
 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_ )
@@ -83,9 +83,9 @@ newMutArray   :: (Int32, Int32) -> a -> IO (MutArray a)
 #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
-- 
1.7.10.4