diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-16 00:07:06 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-16 00:07:06 +0100 |
| commit | 3e7034f6d19f3826548b485aa3216a1b08756db7 (patch) | |
| tree | ffe0605381f8510f3f70dbd05a2c4210066629ee /compiler/utils/Fingerprint.hsc | |
| parent | dac600d9c4fcf4b20768e3245c8a6e94675c8805 (diff) | |
| download | haskell-3e7034f6d19f3826548b485aa3216a1b08756db7.tar.gz | |
Remove a workaround for GHC 6.4.2
Diffstat (limited to 'compiler/utils/Fingerprint.hsc')
| -rw-r--r-- | compiler/utils/Fingerprint.hsc | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/utils/Fingerprint.hsc b/compiler/utils/Fingerprint.hsc index 3aef4d6b28..0b8c02cf7b 100644 --- a/compiler/utils/Fingerprint.hsc +++ b/compiler/utils/Fingerprint.hsc @@ -91,10 +91,7 @@ foreign import ccall unsafe "MD5Final" ##endif instance Outputable Fingerprint where - 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 + ppr (Fingerprint w1 w2) = text (printf "%016x%016x" w1 w2) -- useful for parsing the output of 'md5sum', should we want to do that. readHexFingerprint :: String -> Fingerprint |