From e683f156b7eb8e761c254704538914d86f309801 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 28 Apr 2017 17:00:17 -0400 Subject: control window and chatting Works! --- Hash.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Hash.hs') diff --git a/Hash.hs b/Hash.hs index 3cc8d94..43dd597 100644 --- a/Hash.hs +++ b/Hash.hs @@ -50,6 +50,7 @@ instance Hashable ControlAction where hash (SessionKey pk) = hash $ Tagged "SessionKey" pk hash (SessionKeyAccepted pk) = hash $ Tagged "SessionKeyAccepted" pk hash (SessionKeyRejected pk) = hash $ Tagged "SessionKeyRejected" pk + hash (ChatMessage u m) = hash $ Tagged "ChatMessage" [hash u, hash m] instance Hashable Signature where hash (Ed25519Signature s) = hash $ Tagged "Ed25519Signature" s -- cgit v1.2.3