-- | Compute the checksum of some serializable object.
checksum :: (Serialize s) => s -> String
checksum = showDigest . sha1 . BL.fromStrict . encode
checksum :: (Serialize s) => s -> String
checksum = showDigest . sha1 . BL.fromStrict . encode
checksum = showDigest . sha1 . BL.fromStrict . encode