log JSON to debug-me.log (for now)

useful for debugging, etc

This commit was sponsored by Alexander Thompson on Patreon.

1 files changed, 14 insertions, 0 deletions

diff --git a/Types.hs b/Types.hs
index d1cb513..a439c7c 100644
--- a/Types.hs
+++ b/Types.hs
@@ -47,6 +47,20 @@ instance FromJSON (Activity Seen)
 instance ToJSON (Activity Entered)
 instance FromJSON (Activity Entered)
 
+-- | A log of Activity both Entered and Seen.
+data ActivityLog
+	= ActivitySeen
+		{ activitySeen :: Activity Seen
+		}
+	| ActivityEntered
+		{ activityEntered :: Activity Entered
+		, activityEnteredAccepted :: Bool
+		}
+	deriving (Show, Generic)
+
+instance ToJSON (ActivityLog)
+instance FromJSON (ActivityLog)
+
 newtype Signature = Signature Val
 	deriving (Show, Generic)