projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make record selectors into ordinary functions
[ghc-hetmet.git]
/
compiler
/
utils
/
Fingerprint.hsc
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