Conversation
| "state_change" -> pure StateChangeReason | ||
| "subscribed" -> pure SubscribedReason | ||
| "team_mention" -> pure TeamMentionReason | ||
| _ -> fail $ "Unknown EventType " ++ show t |
|
|
||
| import GitHub.Data.Repos (Repo) | ||
| import GitHub.Data.Id (Id) | ||
| import GitHub.Data.Repos (RepoRef, Repo) |
| data RW | ||
| = RO -- ^ /Read-only/, doesn't necessarily requires authentication | ||
| | RA -- ^ /Read autenticated/ | ||
| | RA -- ^ /Read authenticated/ |
| instance FromJSON Notification where | ||
| parseJSON = withObject "Notification" $ \o -> Notification | ||
| <$> o .: "id" | ||
| <$> (mkId undefined . read <$> o .: "id") |
Closed
Labels
None yet