Merge pull request haskell-github#65 from mulby/support-webhook-events

jwiegley · jwiegley · commit f455f454a428 · 2014-07-31T12:27:55.000-05:00
Support webhook events
diff --git a/Github/Data.hs b/Github/Data.hs
@@ -402,6 +402,29 @@ instance FromJSON PullRequestCommit where
                       <*> o .: "repo"
   parseJSON _ = fail "Could not build a PullRequestCommit"
 
+instance FromJSON PullRequestEvent where
+  parseJSON (Object o) =
+    PullRequestEvent <$> o .: "action"
+                     <*> o .: "number"
+                     <*> o .: "pull_request"
+                     <*> o .: "repository"
+                     <*> o .: "sender"
+  parseJSON _ = fail "Could not build a PullRequestEvent"
+
+instance FromJSON PullRequestEventType where
+  parseJSON (String "opened") = pure PullRequestOpened
+  parseJSON (String "closed") = pure PullRequestClosed
+  parseJSON (String "synchronize") = pure PullRequestSynchronized
+  parseJSON (String "reopened") = pure PullRequestReopened
+  parseJSON _ = fail "Could not build a PullRequestEventType"
+
+instance FromJSON PingEvent where
+  parseJSON (Object o) =
+    PingEvent <$> o .: "zen"
+              <*> o .: "hook"
+              <*> o .: "hook_id"
+  parseJSON _ = fail "Could not build a PingEvent"
+
 instance FromJSON SearchReposResult where
   parseJSON (Object o) =
     SearchReposResult <$> o .: "total_count"
diff --git a/Github/Data/Definitions.hs b/Github/Data/Definitions.hs
@@ -517,3 +517,24 @@ data RepoWebhookResponse = RepoWebhookResponse {
   ,repoWebhookResponseStatus :: String
   ,repoWebhookResponseMessage :: Maybe String
 } deriving (Show, Data, Typeable, Eq, Ord)
+
+data PullRequestEvent = PullRequestEvent {
+   pullRequestEventAction :: PullRequestEventType
+  ,pullRequestEventNumber :: Int
+  ,pullRequestEventPullRequest :: DetailedPullRequest
+  ,pullRequestRepository :: Repo
+  ,pullRequestSender :: GithubOwner
+} deriving (Show, Data, Typeable, Eq, Ord)
+
+data PullRequestEventType =
+    PullRequestOpened
+  | PullRequestClosed
+  | PullRequestSynchronized
+  | PullRequestReopened
+  deriving (Show, Data, Typeable, Eq, Ord)
+
+data PingEvent = PingEvent {
+   pingEventZen :: String
+  ,pingEventHook :: RepoWebhook
+  ,pingEventHookId :: Int
+} deriving (Show, Data, Typeable, Eq, Ord)
diff --git a/Github/Events.hs b/Github/Events.hs
@@ -0,0 +1,13 @@
+module Github.Events (
+ parseEvent
+) where
+
+import qualified Data.ByteString.Lazy.Char8 as LBS
+
+import Data.Aeson (FromJSON)
+
+import Github.Data.Definitions (Error(..))
+import Github.Private (parseJson)
+
+parseEvent :: (FromJSON b, Show b) => LBS.ByteString -> Either Error b
+parseEvent = parseJson
diff --git a/github.cabal b/github.cabal
@@ -123,6 +123,7 @@ Library
   Exposed-modules: Github.Auth,
                    Github.Data,
                    Github.Data.Definitions,
+                   Github.Events,
                    Github.Gists,
                    Github.Gists.Comments,
                    Github.GitData.Commits,
