X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelWord.lhs;h=d2e44debd77bd097beafb7e95ce682693434361b;hb=af32621e837d1a751abd2cb23e7163e362e003c9;hp=7848de2ebd1f8c20abdb205c8f3b06f77b958a4d;hpb=f3c0c2571a40d667cbe57ac1442b1d5ebaead0e0;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelWord.lhs b/ghc/lib/std/PrelWord.lhs
index 7848de2..d2e44de 100644
--- a/ghc/lib/std/PrelWord.lhs
+++ b/ghc/lib/std/PrelWord.lhs
@@ -629,7 +629,7 @@ foreign import "stg_shiftRL64"     unsafe shiftRL64#     :: Word64# -> Int# -> W
 
 #else
 
-data Word32 = W64# Word# deriving (Eq, Ord)
+data Word64 = W64# Word# deriving (Eq, Ord)
 
 instance Num Word64 where
     (W64# x#) + (W64# y#)  = W64# (x# `plusWord#` y#)