From: ross <unknown>
Date: Mon, 21 Apr 2003 16:32:39 +0000 (+0000)
Subject: [project @ 2003-04-21 16:32:39 by ross]
X-Git-Tag: nhc98-1-18-release~678
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bddc05c6079cf92ecc4ae571d2e282b05f6f3228;p=ghc-base.git

[project @ 2003-04-21 16:32:39 by ross]
adjust imports for Hugs's benefit.
---

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index 8c88f15..cad4faf 100644
--- a/Data/HashTable.hs
+++ b/Data/HashTable.hs
@@ -33,19 +33,31 @@ module Data.HashTable (
 -- This module is imported by Data.Dynamic, which is pretty low down in the
 -- module hierarchy, so don't import "high-level" modules
 
+#ifdef __GLASGOW_HASKELL__
 import GHC.Base
+#else
+import Prelude	hiding	( lookup )
+#endif
 import Data.Tuple	( fst )
 import Data.Bits
 import Data.Maybe
 import Data.List	( maximumBy, filter, length, concat )
+import Data.Int		( Int32 )
 
+#if defined(__GLASGOW_HASKELL__)
 import GHC.Num
-import GHC.Int  	( Int32 )
 import GHC.Real		( Integral(..), fromIntegral )
 
-import GHC.IOBase	( IO, IOArray, newIOArray, readIOArray, writeIOArray, unsafeReadIOArray, unsafeWriteIOArray,
+import GHC.IOBase	( IO, IOArray, newIOArray, readIOArray, writeIOArray,
+			  unsafeReadIOArray, unsafeWriteIOArray,
 			  IORef, newIORef, readIORef, writeIORef )
 import GHC.Err		( undefined )
+#elif defined(__HUGS__)
+import Data.Char	( ord )
+import Hugs.IOArray	( IOArray, newIOArray, readIOArray, writeIOArray,
+			  unsafeReadIOArray, unsafeWriteIOArray )
+import Data.IORef	( IORef, newIORef, readIORef, writeIORef )
+#endif
 import Control.Monad	( when, mapM, sequence_ )
 
 -----------------------------------------------------------------------