phadej · GitHub

Conversation

phadej

"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/

phadej

instance FromJSON Notification where
parseJSON = withObject "Notification" $ \o -> Notification
<$> o .: "id"
<$> (mkId undefined . read <$> o .: "id")

Closed

…nsEndpoint

Labels

None yet

Read the original on github.com ↗