1 files changed, 4 insertions, 0 deletions
diff --git a/Types.hs b/Types.hs
index b7c5f32..fdd10a5 100644
--- a/Types.hs
+++ b/Types.hs
@@ -77,6 +77,10 @@ data ActivityLog
 		}
 	deriving (Show, Generic)
 
+activityLogHash :: ActivityLog -> Hash
+activityLogHash (ActivitySeen (_, h)) = h
+activityLogHash (ActivityEntered (_, h)) = h
+
 instance ToJSON (ActivityLog)
 instance FromJSON (ActivityLog)