Include Entered in the Activity chain

So when the developer makes 2 keypresses close together, they send the
second Activity Entered with the first Activity Entered as its HashPointer.
This allows the developer to prove the order they did things.

This commit was sponsored by Peter Hogg on Patreon.

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)