X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FHashTable.hs;h=ddbc24b288e7f6531c8d81677babe4d444be5f53;hb=561a879dd2838dd3ecb613853cb16016b86d3ee1;hp=f78f0ccfa507ab24b45137fc325a7ba2f374511c;hpb=f88611fc62d1cc0e36d1be78c64ad66198c63a4c;p=haskell-directory.git

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