From 81107b8d6d8c62f90fb1fdcde31d3bac3739e356 Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Wed, 23 Apr 2003 14:29:51 +0000
Subject: [PATCH] [project @ 2003-04-23 14:29:51 by malcolm] Tweak #ifdefs to
 make it compile with nhc98.

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

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index cad4faf..0429797 100644
--- a/Data/HashTable.hs
+++ b/Data/HashTable.hs
@@ -52,18 +52,23 @@ import GHC.IOBase	( IO, IOArray, newIOArray, readIOArray, writeIOArray,
 			  unsafeReadIOArray, unsafeWriteIOArray,
 			  IORef, newIORef, readIORef, writeIORef )
 import GHC.Err		( undefined )
-#elif defined(__HUGS__)
+#else
 import Data.Char	( ord )
+import Data.IORef	( IORef, newIORef, readIORef, writeIORef )
+#  if defined(__HUGS__)
 import Hugs.IOArray	( IOArray, newIOArray, readIOArray, writeIOArray,
 			  unsafeReadIOArray, unsafeWriteIOArray )
-import Data.IORef	( IORef, newIORef, readIORef, writeIORef )
+#  elif defined(__NHC__)
+import NHC.IOExtras	( IOArray, newIOArray, readIOArray, writeIOArray)
+#  endif
 #endif
 import Control.Monad	( when, mapM, sequence_ )
 
+
 -----------------------------------------------------------------------
 myReadArray  :: IOArray Int32 a -> Int32 -> IO a
 myWriteArray :: IOArray Int32 a -> Int32 -> a -> IO ()
-#ifdef DEBUG
+#if defined(DEBUG) || defined(__NHC__)
 myReadArray  = readIOArray
 myWriteArray = writeIOArray
 #else
-- 
1.7.10.4