module GitHub.Types.Events where
import Control.Applicative
import Control.Monad
import Data.Aeson
import Data.Aeson.Types
import Data.Monoid
import Data.Text
import GitHub.Types.Base
import GitHub.Types.Repository
data Event
= CommitCommentEventType CommitCommentEvent
| DeploymentEventType DeploymentEvent
| DeploymentStatusEventType DeploymentStatusEvent
deriving (Eq, Show)
eventParser :: Text -> Value -> Parser Event
eventParser "commit_comment" x = CommitCommentEventType <$> parseJSON x
eventParser "deployment" x = DeploymentEventType <$> parseJSON x
eventParser "deployment_status" x = DeploymentStatusEventType <$> parseJSON x
eventParser eventType _ = fail $ "Unknown event type: " <> unpack eventType
data CommitCommentEvent = CommitCommentEvent
{ commitCommentEventRepository :: Repository
} deriving (Eq, Show)
instance FromJSON CommitCommentEvent where
parseJSON (Object x) = CommitCommentEvent
<$> x .: "repository"
parseJSON _ = fail "CommitCommentEvent"
data DeploymentEvent = DeploymentEvent
{ deploymentEventDeployment :: Deployment
, deploymentEventRepository :: Repository
} deriving (Eq, Show)
instance FromJSON DeploymentEvent where
parseJSON (Object x) = DeploymentEvent
<$> x .: "deployment"
<*> x .: "repository"
parseJSON _ = fail "DeploymentEvent"
data DeploymentStatusEvent = DeploymentStatusEvent
{ deploymentStatusEventDeploymentStatus :: DeploymentStatus
, deploymentStatusEventDeployment :: Deployment
, deploymentStatusEventRepository :: Repository
} deriving (Eq, Show)
instance FromJSON DeploymentStatusEvent where
parseJSON (Object x) = DeploymentStatusEvent
<$> x .: "deployment_status"
<*> x .: "deployment"
<*> x .: "repository"
parseJSON _ = fail "DeploymentStatusEvent"