diff options
Diffstat (limited to 'Hash.hs')
-rw-r--r-- | Hash.hs | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -40,8 +40,8 @@ instance Hashable a => Hashable (Tagged a) where hash (Tagged b a) = hash [hash b, hash a] instance Hashable a => Hashable (Activity a) where - hash (Activity a mp mt s) = hash $ Tagged "Activity" - [hash a, hash mp, hash mt, hash s] + hash (Activity a mps mpe mt s) = hash $ Tagged "Activity" + [hash a, hash mps, hash mpe, hash mt, hash s] instance Hashable Entered where hash v = hash $ Tagged "Entered" @@ -51,7 +51,8 @@ instance Hashable Seen where hash v = hash $ Tagged "Seen" [hash (seenData v)] instance Hashable ControlAction where - hash (Rejected a) = hash $ Tagged "Rejected" a + hash (EnteredRejected h1 h2) = hash $ Tagged "EnteredRejected" + [hash h1, hash h2] hash (SessionKey pk) = hash $ Tagged "SessionKey" pk hash (SessionKeyAccepted pk) = hash $ Tagged "SessionKeyAccepted" pk hash (SessionKeyRejected pk) = hash $ Tagged "SessionKeyRejected" pk |