X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FFingerprint.hsc;h=20b3ee9da4c4b345abc271e67132b2d73c735796;hp=d5a2409a26839e04a88099a9053dd262e27025da;hb=86add45dbfb6f962b65e371143dd467ae783f9e7;hpb=526c3af1dc98987b6949f4df73c0debccf9875bd

diff --git a/compiler/utils/Fingerprint.hsc b/compiler/utils/Fingerprint.hsc
index d5a2409..20b3ee9 100644
--- a/compiler/utils/Fingerprint.hsc
+++ b/compiler/utils/Fingerprint.hsc
@@ -22,7 +22,6 @@ import Outputable
 import Foreign
 import Foreign.C
 import Text.Printf
-import Data.Word
 import Numeric          ( readHex )
 
 -- Using 128-bit MD5 fingerprints for now.
@@ -35,7 +34,10 @@ fingerprint0 :: Fingerprint
 fingerprint0 = Fingerprint 0 0
 
 instance Outputable Fingerprint where
-  ppr (Fingerprint w1 w2) = text (printf "%016x%016x" w1 w2)
+  ppr (Fingerprint w1 w2) = text (printf "%016x%016x" i1 i2)
+    where i1 = fromIntegral w1 :: Integer
+          i2 = fromIntegral w2 :: Integer
+          -- printf in GHC 6.4.2 didn't have Word64 instances
 
 -- useful for parsing the output of 'md5sum', should we want to do that.
 readHexFingerprint :: String -> Fingerprint