projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix a bug with standalone deriving of Generic instances.
[ghc-hetmet.git]
/
compiler
/
utils
/
Fingerprint.hsc
diff --git
a/compiler/utils/Fingerprint.hsc
b/compiler/utils/Fingerprint.hsc
index
d5a2409
..
20b3ee9
100644
(file)
--- 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 Foreign
import Foreign.C
import Text.Printf
-import Data.Word
import Numeric ( readHex )
-- Using 128-bit MD5 fingerprints for now.
import Numeric ( readHex )
-- Using 128-bit MD5 fingerprints for now.
@@
-35,7
+34,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