initial Crypto

Will use Ed25519 because it's from DJB and well regarded and in common
use now.

1 files changed, 2 insertions, 1 deletions

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