diff options
Diffstat (limited to 'Hash.hs')
-rw-r--r-- | Hash.hs | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -45,6 +45,12 @@ instance Hashable Entered where instance Hashable Seen where hash v = hash $ Tagged "Seen" [hash (seenData v)] +instance Hashable ControlAction where + hash (Rejected a) = hash $ Tagged "Rejected" a + hash (SessionKey pk) = hash $ Tagged "SessionKey" pk + hash (SessionKeyAccepted pk) = hash $ Tagged "SessionKeyAccepted" pk + hash (SessionKeyRejected pk) = hash $ Tagged "SessionKeyRejected" pk + instance Hashable Signature where hash (Ed25519Signature s) = hash $ Tagged "Ed25519Signature" s hash (OtherSignature s) = hash $ Tagged "OtherSignature" s |