From: sof <unknown>
Date: Sun, 8 Sep 2002 02:35:34 +0000 (+0000)
Subject: [project @ 2002-09-08 02:35:33 by sof]
X-Git-Tag: nhc98-1-18-release~868
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c39b06a2f4dd90de7981af27d073e247250ab5c;p=ghc-base.git

[project @ 2002-09-08 02:35:33 by sof]
Hugs updates + fixes
---

diff --git a/Data/Char.hs b/Data/Char.hs
index feadb18..505d735 100644
--- a/Data/Char.hs
+++ b/Data/Char.hs
@@ -45,6 +45,8 @@ import GHC.Read (readLitChar, lexLitChar)
 #endif
 
 #ifdef __HUGS__
+import PrelImpl
+
 isLatin1 c = True
 #endif
 
diff --git a/Data/Word.hs b/Data/Word.hs
index 3bcc8a7..ff81405 100644
--- a/Data/Word.hs
+++ b/Data/Word.hs
@@ -17,7 +17,9 @@ module Data.Word
   ( 
 	-- * Unsigned integral types
 
+#ifndef __HUGS__
 	Word,
+#endif
 	Word8, Word16, Word32, Word64,
 	
 	-- * Notes
diff --git a/Foreign/C/String.hs b/Foreign/C/String.hs
index b1603c3..656b18f 100644
--- a/Foreign/C/String.hs
+++ b/Foreign/C/String.hs
@@ -53,6 +53,7 @@ import GHC.Num
 import GHC.IOBase
 import GHC.Base
 #else
+import Char ( chr, ord )
 #define unsafeChr chr
 #endif
 
diff --git a/Foreign/Storable.hs b/Foreign/Storable.hs
index 43fae68..e5d5202 100644
--- a/Foreign/Storable.hs
+++ b/Foreign/Storable.hs
@@ -51,6 +51,7 @@ import Foreign.Ptr
 #endif
 
 #ifdef __HUGS__
+import PrelImpl
 import Hugs.Storable
 #endif
 
diff --git a/Numeric.hs b/Numeric.hs
index 75c7b47..1b16963 100644
--- a/Numeric.hs
+++ b/Numeric.hs
@@ -58,6 +58,7 @@ import qualified Text.Read.Lex as L
 #endif
 
 #ifdef __HUGS__
+import PrelImpl
 import Hugs.Numeric
 #endif