diff options
Diffstat (limited to 'Crypto.hs')
-rw-r--r-- | Crypto.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -30,8 +30,8 @@ class Signed t where instance Hashable a => Signed (Activity a) where getSignature = activitySignature - hashExceptSignature (Activity a mp mt _s) = hash $ - Tagged "Activity" [hash a, hash mp, hash mt] + hashExceptSignature (Activity a mpa mpe mt _s) = hash $ + Tagged "Activity" [hash a, hash mpa, hash mpe, hash mt] instance Signed Control where getSignature = controlSignature |