[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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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