Commit 8fe99c74 authored by Simon Jakobi's avatar Simon Jakobi Committed by Ben Gamari

Remove incorrect comment

Moving fingerprintByteString to GHC.Fingerprint would require
adding a dependency on bytestring to base.
parent 2ea93a7d
...@@ -42,7 +42,6 @@ readHexFingerprint s = Fingerprint w1 w2 ...@@ -42,7 +42,6 @@ readHexFingerprint s = Fingerprint w1 w2
[(w1,"")] = readHex s1 [(w1,"")] = readHex s1
[(w2,"")] = readHex (take 16 s2) [(w2,"")] = readHex (take 16 s2)
-- this can move to GHC.Fingerprint in GHC 8.6
fingerprintByteString :: BS.ByteString -> Fingerprint fingerprintByteString :: BS.ByteString -> Fingerprint
fingerprintByteString bs = unsafeDupablePerformIO $ fingerprintByteString bs = unsafeDupablePerformIO $
BS.unsafeUseAsCStringLen bs $ \(ptr, len) -> fingerprintData (castPtr ptr) len BS.unsafeUseAsCStringLen bs $ \(ptr, len) -> fingerprintData (castPtr ptr) len
Markdown is supported
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