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