summaryrefslogtreecommitdiffhomepage
path: root/Hash.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2017-04-28 17:00:17 -0400
committerJoey Hess <joeyh@joeyh.name>2017-04-28 17:00:17 -0400
commite683f156b7eb8e761c254704538914d86f309801 (patch)
treee239803c2f775cbb914a8c7db44189974728781a /Hash.hs
parente833b89e2a1a1c2acbc0eb8bed1760ef0e50f3c5 (diff)
downloaddebug-me-e683f156b7eb8e761c254704538914d86f309801.tar.gz
control window and chatting
Works!
Diffstat (limited to 'Hash.hs')
-rw-r--r--Hash.hs1
1 files changed, 1 insertions, 0 deletions
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