diff options
Diffstat (limited to 'Hash.hs')
-rw-r--r-- | Hash.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -53,7 +53,7 @@ instance Hashable Seen where instance Hashable ControlAction where hash (EnteredRejected h1 h2) = hash $ Tagged "EnteredRejected" [hash h1, hash h2] - hash (SessionKey pk) = hash $ Tagged "SessionKey" pk + hash (SessionKey pk v) = hash $ Tagged "SessionKey" [hash pk, hash v] 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] |