From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 29 May 2008 13:25:44 +0000 (+0000)
Subject: FIX BUILD with GHC 6.4.x
X-Git-Tag: 2008-06-01~7
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1d47f08d196252b4ee5f4d5b5af2fb4945720762;p=ghc-hetmet.git

FIX BUILD with GHC 6.4.x
---

diff --git a/compiler/utils/Fingerprint.hsc b/compiler/utils/Fingerprint.hsc
index d5a2409..b2e2ddc 100644
--- a/compiler/utils/Fingerprint.hsc
+++ b/compiler/utils/Fingerprint.hsc
@@ -35,7 +35,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