-----------------------------------------------------------------------------

-- |

-- License : BSD-3-Clause

-- Maintainer : Oleg Grenrus <oleg.grenrus@iki.fi>

--

module GitHub.Data.Webhooks where

import GitHub.Data.Id (Id)

import GitHub.Data.URL (URL)

import GitHub.Internal.Prelude

import Prelude ()

import qualified Data.Map as M

import qualified Data.Text as T

data RepoWebhook = RepoWebhook

{ repoWebhookUrl :: !URL

, repoWebhookTestUrl :: !URL

, repoWebhookId :: !(Id RepoWebhook)

, repoWebhookName :: !Text

, repoWebhookActive :: !Bool

, repoWebhookEvents :: !(Vector RepoWebhookEvent)

, repoWebhookConfig :: !(M.Map Text Text)

, repoWebhookLastResponse :: !RepoWebhookResponse

, repoWebhookUpdatedAt :: !UTCTime

, repoWebhookCreatedAt :: !UTCTime

}

deriving (Show, Data, Typeable, Eq, Ord, Generic)

instance NFData RepoWebhook where rnf = genericRnf

instance Binary RepoWebhook

-- | See <https://developer.github.com/webhooks/#events>.

data RepoWebhookEvent

= WebhookWildcardEvent

| WebhookCheckRunEvent

| WebhookCheckSuiteEvent

| WebhookCommitCommentEvent

| WebhookContentReferenceEvent

| WebhookCreateEvent

| WebhookDeleteEvent

| WebhookDeployKeyEvent

| WebhookDeploymentEvent

| WebhookDeploymentStatusEvent

| WebhookDownloadEvent

| WebhookFollowEvent

| WebhookForkEvent

| WebhookForkApplyEvent

| WebhookGitHubAppAuthorizationEvent

| WebhookGistEvent

| WebhookGollumEvent

| WebhookInstallationEvent

| WebhookInstallationRepositoriesEvent

| WebhookIssueCommentEvent

| WebhookIssuesEvent

| WebhookLabelEvent

| WebhookMarketplacePurchaseEvent

| WebhookMemberEvent

| WebhookMembershipEvent

| WebhookMetaEvent

| WebhookMilestoneEvent

| WebhookOrganizationEvent

| WebhookOrgBlockEvent

| WebhookPageBuildEvent

| WebhookPingEvent

| WebhookProjectCardEvent

| WebhookProjectColumnEvent

| WebhookProjectEvent

| WebhookPublicEvent

| WebhookPullRequestEvent

| WebhookPullRequestReviewEvent

| WebhookPullRequestReviewCommentEvent

| WebhookPushEvent

| WebhookRegistryPackageEvent

| WebhookReleaseEvent

| WebhookRepositoryEvent

| WebhookRepositoryImportEvent

| WebhookRepositoryVulnerabilityAlertEvent

| WebhookSecurityAdvisoryEvent

| WebhookStarEvent

| WebhookStatusEvent

| WebhookTeamEvent

| WebhookTeamAddEvent

| WebhookWatchEvent

deriving (Show, Data, Typeable, Eq, Ord, Generic)

instance NFData RepoWebhookEvent where rnf = genericRnf

instance Binary RepoWebhookEvent

data RepoWebhookResponse = RepoWebhookResponse

{ repoWebhookResponseCode :: !(Maybe Int)

, repoWebhookResponseStatus :: !Text

, repoWebhookResponseMessage :: !(Maybe Text)

}

deriving (Show, Data, Typeable, Eq, Ord, Generic)

instance NFData RepoWebhookResponse where rnf = genericRnf

instance Binary RepoWebhookResponse

data PingEvent = PingEvent

{ pingEventZen :: !Text

, pingEventHook :: !RepoWebhook

, pingEventHookId :: !(Id RepoWebhook)

}

deriving (Show, Data, Typeable, Eq, Ord, Generic)

instance NFData PingEvent where rnf = genericRnf

instance Binary PingEvent

data NewRepoWebhook = NewRepoWebhook

{ newRepoWebhookName :: !Text

, newRepoWebhookConfig :: !(M.Map Text Text)

, newRepoWebhookEvents :: !(Maybe (Vector RepoWebhookEvent))

, newRepoWebhookActive :: !(Maybe Bool)

}

deriving (Eq, Ord, Show, Typeable, Data, Generic)

instance NFData NewRepoWebhook where rnf = genericRnf

instance Binary NewRepoWebhook

data EditRepoWebhook = EditRepoWebhook

{ editRepoWebhookConfig :: !(Maybe (M.Map Text Text))

, editRepoWebhookEvents :: !(Maybe (Vector RepoWebhookEvent))

, editRepoWebhookAddEvents :: !(Maybe (Vector RepoWebhookEvent))

, editRepoWebhookRemoveEvents :: !(Maybe (Vector RepoWebhookEvent))

, editRepoWebhookActive :: !(Maybe Bool)

}

deriving (Eq, Ord, Show, Typeable, Data, Generic)

instance NFData EditRepoWebhook where rnf = genericRnf

instance Binary EditRepoWebhook

-- JSON instances

instance FromJSON RepoWebhookEvent where

parseJSON = withText "RepoWebhookEvent" $ \t -> case T.toLower t of

"*" -> pure WebhookWildcardEvent

"check_run" -> pure WebhookCheckRunEvent

"check_suite" -> pure WebhookCheckSuiteEvent

"commit_comment" -> pure WebhookCommitCommentEvent

"content_reference" -> pure WebhookContentReferenceEvent

"create" -> pure WebhookCreateEvent

"delete" -> pure WebhookDeleteEvent

"deploy_key" -> pure WebhookDeployKeyEvent

"deployment" -> pure WebhookDeploymentEvent

"deployment_status" -> pure WebhookDeploymentStatusEvent

"download" -> pure WebhookDownloadEvent

"follow" -> pure WebhookFollowEvent

"fork" -> pure WebhookForkEvent

"fork_apply" -> pure WebhookForkApplyEvent

"github_app_authorization" -> pure WebhookGitHubAppAuthorizationEvent

"gist" -> pure WebhookGistEvent

"gollum" -> pure WebhookGollumEvent

"installation" -> pure WebhookInstallationEvent

"installation_repositories" -> pure WebhookInstallationRepositoriesEvent

"issue_comment" -> pure WebhookIssueCommentEvent

"issues" -> pure WebhookIssuesEvent

"label" -> pure WebhookLabelEvent

"marketplace_purchase" -> pure WebhookMarketplacePurchaseEvent

"member" -> pure WebhookMemberEvent

"membership" -> pure WebhookMembershipEvent

"meta" -> pure WebhookMetaEvent

"milestone" -> pure WebhookMilestoneEvent

"organization" -> pure WebhookOrganizationEvent

"org_block" -> pure WebhookOrgBlockEvent

"page_build" -> pure WebhookPageBuildEvent

"ping" -> pure WebhookPingEvent

"project_card" -> pure WebhookProjectCardEvent

"project_column" -> pure WebhookProjectColumnEvent

"project" -> pure WebhookProjectEvent

"public" -> pure WebhookPublicEvent

"pull_request" -> pure WebhookPullRequestEvent

"pull_request_review" -> pure WebhookPullRequestReviewEvent

"pull_request_review_comment" -> pure WebhookPullRequestReviewCommentEvent

"push" -> pure WebhookPushEvent

"registry_package" -> pure WebhookRegistryPackageEvent

"release" -> pure WebhookReleaseEvent

"repository" -> pure WebhookRepositoryEvent

"repository_import" -> pure WebhookRepositoryImportEvent

"repository_vulnerability_alert" -> pure WebhookRepositoryVulnerabilityAlertEvent

"security_advisory" -> pure WebhookSecurityAdvisoryEvent

"star" -> pure WebhookStarEvent

"status" -> pure WebhookStatusEvent

"team" -> pure WebhookTeamEvent

"team_add" -> pure WebhookTeamAddEvent

"watch" -> pure WebhookWatchEvent

_ -> fail $ "Unknown RepoWebhookEvent: " <> T.unpack t

instance ToJSON RepoWebhookEvent where

toJSON WebhookWildcardEvent = String "*"

toJSON WebhookCheckRunEvent = String "check_run"

toJSON WebhookCheckSuiteEvent = String "check_suite"

toJSON WebhookCommitCommentEvent = String "commit_comment"

toJSON WebhookContentReferenceEvent = String "content_reference"

toJSON WebhookCreateEvent = String "create"

toJSON WebhookDeleteEvent = String "delete"

toJSON WebhookDeployKeyEvent = String "deploy_key"

toJSON WebhookDeploymentEvent = String "deployment"

toJSON WebhookDeploymentStatusEvent = String "deployment_status"

toJSON WebhookDownloadEvent = String "download"

toJSON WebhookFollowEvent = String "follow"

toJSON WebhookForkEvent = String "fork"

toJSON WebhookForkApplyEvent = String "fork_apply"

toJSON WebhookGitHubAppAuthorizationEvent = String "github_app_authorization"

toJSON WebhookGistEvent = String "gist"

toJSON WebhookGollumEvent = String "gollum"

toJSON WebhookInstallationEvent = String "installation"

toJSON WebhookInstallationRepositoriesEvent = String "installation_repositories"

toJSON WebhookIssueCommentEvent = String "issue_comment"

toJSON WebhookIssuesEvent = String "issues"

toJSON WebhookLabelEvent = String "label"

toJSON WebhookMarketplacePurchaseEvent = String "marketplace_purchase"

toJSON WebhookMemberEvent = String "member"

toJSON WebhookMembershipEvent = String "membership"

toJSON WebhookMetaEvent = String "meta"

toJSON WebhookMilestoneEvent = String "milestone"

toJSON WebhookOrganizationEvent = String "organization"

toJSON WebhookOrgBlockEvent = String "org_block"

toJSON WebhookPageBuildEvent = String "page_build"

toJSON WebhookPingEvent = String "ping"

toJSON WebhookProjectCardEvent = String "project_card"

toJSON WebhookProjectColumnEvent = String "project_column"

toJSON WebhookProjectEvent = String "project"

toJSON WebhookPublicEvent = String "public"

toJSON WebhookPullRequestEvent = String "pull_request"

toJSON WebhookPullRequestReviewEvent = String "pull_request_review"

toJSON WebhookPullRequestReviewCommentEvent = String "pull_request_review_comment"

toJSON WebhookPushEvent = String "push"

toJSON WebhookRegistryPackageEvent = String "registry_package"

toJSON WebhookReleaseEvent = String "release"

toJSON WebhookRepositoryEvent = String "repository"

toJSON WebhookRepositoryImportEvent = String "repository_import"

toJSON WebhookRepositoryVulnerabilityAlertEvent = String "repository_vulnerability_alert"

toJSON WebhookSecurityAdvisoryEvent = String "security_advisory"

toJSON WebhookStarEvent = String "star"

toJSON WebhookStatusEvent = String "status"

toJSON WebhookTeamEvent = String "team"

toJSON WebhookTeamAddEvent = String "team_add"

toJSON WebhookWatchEvent = String "watch"

instance FromJSON RepoWebhook where

parseJSON = withObject "RepoWebhook" $ \o -> RepoWebhook

<$> o .: "url"

<*> o .: "test_url"

<*> o .: "id"

<*> o .: "name"

<*> o .: "active"

<*> o .: "events"

<*> o .: "config"

<*> o .: "last_response"

<*> o .: "updated_at"

<*> o .: "created_at"

instance FromJSON RepoWebhookResponse where

parseJSON = withObject "RepoWebhookResponse" $ \o -> RepoWebhookResponse

<$> o .: "code"

<*> o .: "status"

<*> o .: "message"

instance ToJSON NewRepoWebhook where

toJSON (NewRepoWebhook { newRepoWebhookName = name

, newRepoWebhookConfig = config

, newRepoWebhookEvents = events

, newRepoWebhookActive = active

}) = object

[ "name" .= name

, "config" .= config

, "events" .= events

, "active" .= active

]

instance ToJSON EditRepoWebhook where

toJSON (EditRepoWebhook { editRepoWebhookConfig = config

, editRepoWebhookEvents = events

, editRepoWebhookAddEvents = addEvents

, editRepoWebhookRemoveEvents = removeEvents

, editRepoWebhookActive = active

}) = object

[ "config" .= config

, "events" .= events

, "add_events" .= addEvents

, "remove_events" .= removeEvents

, "active" .= active

]

instance FromJSON PingEvent where

parseJSON = withObject "PingEvent" $ \o -> PingEvent

<$> o .: "zen"

<*> o .: "hook"

<*> o .: "hook_id"