X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FWord.hs;h=3a0a795292eb028ad184a66f750b675c22dba628;hb=17c3536d93b3d35082ac025bb35176168c359165;hp=3bcc8a76c5708f26c2b8e505b4c6e39cb14fabc6;hpb=be6e35beee0026910c157d6f91bcaa62d08e42c9;p=ghc-base.git

diff --git a/Data/Word.hs b/Data/Word.hs
index 3bcc8a7..3a0a795 100644
--- a/Data/Word.hs
+++ b/Data/Word.hs
@@ -33,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