1 files changed, 2 insertions, 2 deletions
diff --git a/Hash.hs b/Hash.hs
index 4174d5f..f2b8d75 100644
--- a/Hash.hs
+++ b/Hash.hs
@@ -26,8 +26,8 @@ instance Hashable [HashPointer] where
 	hash = hash . B.concat . map (val . hashValue)
 
 instance Hashable a => Hashable (Activity a) where
-	hash (Activity a p s) = hash [hash a, p, hash s]
-	hash (StartActivity a s) = hash [hash a, hash s]
+	hash (Activity a (Just p) s) = hash [hash a, p, hash s]
+	hash (Activity a Nothing s) = hash [hash a, hash s]
 
 instance Hashable Entered where
 	hash v = hash [hash (enteredData v), hash (echoData v)]