projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c148796
)
FIX BUILD with GHC 6.4.x
author
Simon Marlow
<marlowsd@gmail.com>
Thu, 29 May 2008 13:25:44 +0000
(13:25 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Thu, 29 May 2008 13:25:44 +0000
(13:25 +0000)
compiler/utils/Fingerprint.hsc
patch
|
blob
|
history
diff --git
a/compiler/utils/Fingerprint.hsc
b/compiler/utils/Fingerprint.hsc
index
d5a2409
..
b2e2ddc
100644
(file)
--- a/
compiler/utils/Fingerprint.hsc
+++ b/
compiler/utils/Fingerprint.hsc
@@
-35,7
+35,10
@@
fingerprint0 :: Fingerprint
fingerprint0 = Fingerprint 0 0
instance Outputable Fingerprint where
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
-- useful for parsing the output of 'md5sum', should we want to do that.
readHexFingerprint :: String -> Fingerprint