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