Add the missing actions

César López-Natarén · César López-Natarén · commit da9ec301b7a1 · 2014-08-02T16:50:35.000-07:00
diff --git a/Github/Data.hs b/Github/Data.hs
@@ -416,6 +416,10 @@ instance FromJSON PullRequestEventType where
   parseJSON (String "closed") = pure PullRequestClosed
   parseJSON (String "synchronize") = pure PullRequestSynchronized
   parseJSON (String "reopened") = pure PullRequestReopened
+  parseJSON (String "assigned") = pure PullRequestAssigned
+  parseJSON (String "unassigned") = pure PullRequestUnassigned
+  parseJSON (String "labeled") = pure PullRequestLabeled
+  parseJSON (String "unlabeled") = pure PullRequestUnlabeled
   parseJSON _ = fail "Could not build a PullRequestEventType"
 
 instance FromJSON PingEvent where
diff --git a/Github/Data/Definitions.hs b/Github/Data/Definitions.hs
@@ -532,6 +532,10 @@ data PullRequestEventType =
   | PullRequestClosed
   | PullRequestSynchronized
   | PullRequestReopened
+  | PullRequestAssigned
+  | PullRequestUnassigned
+  | PullRequestLabeled
+  | PullRequestUnlabeled
   deriving (Show, Data, Typeable, Eq, Ord)
 
 data PingEvent = PingEvent {
