1 files changed, 2 insertions, 2 deletions
diff --git a/Crypto.hs b/Crypto.hs
index d973034..e56db89 100644
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -25,8 +25,8 @@ class Signed t where
 
 instance Hashable a => Signed (Activity a) where
 	getSignature = activitySignature
-	hashExceptSignature (Activity a mp _s) = hash $
-		Tagged "Activity" [hash a, hash mp]
+	hashExceptSignature (Activity a mp mt _s) = hash $
+		Tagged "Activity" [hash a, hash mp, hash mt]
 
 instance Signed Control where
 	getSignature = controlSignature