From 3c7d3b3a2088cfe3698c3b055822c2b9fa67468a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 26 Apr 2017 17:31:30 -0400 Subject: gpg sign developer session key And part of what we need to have users verify them. This commit was sponsored by andrea rota. --- Hash.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Hash.hs') diff --git a/Hash.hs b/Hash.hs index c9b45e0..3bfb5a2 100644 --- a/Hash.hs +++ b/Hash.hs @@ -56,12 +56,15 @@ instance Hashable Signature where hash (OtherSignature s) = hash $ Tagged "OtherSignature" s instance Hashable PublicKey where - hash (PublicKey v gpgsig) = hash $ Tagged "PublicKey" - [hash v, hash gpgsig] + hash (PublicKey v) = hash $ Tagged "PublicKey" v instance Hashable GpgSig where hash (GpgSig v) = hash $ Tagged "GpgSig" v +instance Hashable a => Hashable (PerhapsSigned a) where + hash (GpgSigned a sig) = hash $ Tagged "GpgSigned" [hash a, hash sig] + hash (UnSigned a) = hash $ Tagged "UnSigned" a + instance Hashable ElapsedTime where hash (ElapsedTime n) = hash $ Tagged "ElapsedTime" $ C8.pack $ show n -- cgit v1.2.3