diff options
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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) |