diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-05-29 13:25:44 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-05-29 13:25:44 +0000 |
| commit | 1d47f08d196252b4ee5f4d5b5af2fb4945720762 (patch) | |
| tree | be207ad2f718270a36278b53acd0baec4bf2cc13 /compiler | |
| parent | c148796dad1a36849a62ad8f3838b428e65c9310 (diff) | |
| download | haskell-1d47f08d196252b4ee5f4d5b5af2fb4945720762.tar.gz | |
FIX BUILD with GHC 6.4.x
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/utils/Fingerprint.hsc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/utils/Fingerprint.hsc b/compiler/utils/Fingerprint.hsc index d5a2409a26..b2e2ddc407 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 |