[project @ 2005-01-11 16:04:08 by simonmar]

[ghc-base.git] / Data / Word.hs

diff --git a/Data/Word.hs b/Data/Word.hs
index ff81405..e3a1ab9 100644 (file)
--- a/Data/Word.hs
+++ b/Data/Word.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Word
@@ -17,9 +17,7 @@ module Data.Word
   ( 
        -- * Unsigned integral types
 
-#ifndef __HUGS__
        Word,
-#endif
        Word8, Word16, Word32, Word64,
        
        -- * Notes
@@ -35,6 +33,12 @@ import GHC.Word
 import Hugs.Word
 #endif
 
+#ifdef __NHC__
+import NHC.FFI (Word8, Word16, Word32, Word64)
+import NHC.SizedTypes (Word8, Word16, Word32, Word64)  -- instances of Bits
+type Word = Word32
+#endif
+
 {- $notes
 
 * All arithmetic is performed modulo 2^n, where n is the number of