github-tools-0.1.2: src/GitHub/Types/Events/PullRequestEvent.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards   #-}
{-# LANGUAGE StrictData        #-}
module GitHub.Types.Events.PullRequestEvent where

import           Data.Aeson                (FromJSON (..), ToJSON (..), object)
import           Data.Aeson.Types          (Value (..), (.:), (.:?), (.=))
import           Data.Text                 (Text)
import           Test.QuickCheck.Arbitrary (Arbitrary (..))

import           GitHub.Types.Base
import           GitHub.Types.Event


data PullRequestEvent = PullRequestEvent
    { pullRequestEventInstallation      :: Maybe Installation
    , pullRequestEventOrganization      :: Organization
    , pullRequestEventRepository        :: Repository
    , pullRequestEventSender            :: User

    , pullRequestEventAction            :: Text
    , pullRequestEventAfter             :: Maybe Text
    , pullRequestEventAssignee          :: Maybe User
    , pullRequestEventBefore            :: Maybe Text
    , pullRequestEventChanges           :: Maybe Changes
    , pullRequestEventLabel             :: Maybe Label
    , pullRequestEventNumber            :: Int
    , pullRequestEventPullRequest       :: PullRequest
    , pullRequestEventRequestedReviewer :: Maybe User
    , pullRequestEventRequestedTeam     :: Maybe Team
    } deriving (Eq, Show, Read)

instance Event PullRequestEvent where
    typeName = TypeName "PullRequestEvent"
    eventName = EventName "pull_request"

instance FromJSON PullRequestEvent where
    parseJSON (Object x) = PullRequestEvent
        <$> x .:? "installation"
        <*> x .: "organization"
        <*> x .: "repository"
        <*> x .: "sender"

        <*> x .: "action"
        <*> x .:? "after"
        <*> x .:? "assignee"
        <*> x .:? "before"
        <*> x .:? "changes"
        <*> x .:? "label"
        <*> x .: "number"
        <*> x .: "pull_request"
        <*> x .:? "requested_reviewer"
        <*> x .:? "requested_team"

    parseJSON _ = fail "PullRequestEvent"

instance ToJSON PullRequestEvent where
    toJSON PullRequestEvent{..} = object
        [ "installation"       .= pullRequestEventInstallation
        , "organization"       .= pullRequestEventOrganization
        , "repository"         .= pullRequestEventRepository
        , "sender"             .= pullRequestEventSender

        , "action"             .= pullRequestEventAction
        , "after"              .= pullRequestEventAfter
        , "assignee"           .= pullRequestEventAssignee
        , "before"             .= pullRequestEventBefore
        , "changes"            .= pullRequestEventChanges
        , "label"              .= pullRequestEventLabel
        , "number"             .= pullRequestEventNumber
        , "pull_request"       .= pullRequestEventPullRequest
        , "requested_reviewer" .= pullRequestEventRequestedReviewer
        , "requested_team"     .= pullRequestEventRequestedTeam
        ]


instance Arbitrary PullRequestEvent where
    arbitrary = PullRequestEvent
        <$> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary

        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary