From d73352f848b79224a94e531bb651897321064998 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Apr 2017 16:35:38 -0400 Subject: initial Crypto Will use Ed25519 because it's from DJB and well regarded and in common use now. --- Hash.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Hash.hs') diff --git a/Hash.hs b/Hash.hs index ed4513b..2577c6b 100644 --- a/Hash.hs +++ b/Hash.hs @@ -50,7 +50,8 @@ instance Hashable Seen where hash v = hash $ Tagged "Seen" [hash (seenData v)] instance Hashable Signature where - hash (Signature s) = hash $ Tagged "Signature" s + hash (Ed25519 s) = hash $ Tagged "Ed25519" s + hash Unsigned = hash $ Tagged "Unsigned" (mempty :: B.ByteString) -- | Hash a list of hashes by hashing the concacenation of the hashes. instance Hashable [Hash] where -- cgit v1.2.3