projects
/
haskell-directory.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5d30f34
)
use correct names of IOArray operations for nhc98
author
Malcolm.Wallace@cs.york.ac.uk
<unknown>
Fri, 18 Aug 2006 13:07:14 +0000
(13:07 +0000)
committer
Malcolm.Wallace@cs.york.ac.uk
<unknown>
Fri, 18 Aug 2006 13:07:14 +0000
(13:07 +0000)
Data/HashTable.hs
patch
|
blob
|
history
diff --git
a/Data/HashTable.hs
b/Data/HashTable.hs
index
f78f0cc
..
ddbc24b
100644
(file)
--- 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 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_ )
# 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
#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
freezeArray = return
thawArray = return
#else