X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FWord.hs;h=e3a1ab9f7a7004679a3bbbb1ed575952aba2ee33;hb=e9e2a5412bb7cda8d13a063ac403d9f18ac97380;hp=630855628b0fda02abc9dea8622919c46713d4d4;hpb=4aa4c78edf3cf4607ddeb669f536d646395ae9f0;p=ghc-base.git

diff --git a/Data/Word.hs b/Data/Word.hs
index 6308556..e3a1ab9 100644
--- a/Data/Word.hs
+++ b/Data/Word.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Word
@@ -29,6 +29,16 @@ module Data.Word
 import GHC.Word
 #endif
 
+#ifdef __HUGS__
+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