Commit 1d47f08d authored by Simon Marlow's avatar Simon Marlow
Browse files

FIX BUILD with GHC 6.4.x

parent c148796d
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment