Fix #302. Add issueEventLabel

Author: phadej

src/GitHub/Data/Definitions.hs

@@ -18,7 +18,7 @@ import qualified Data.Text         as T
 
 import GitHub.Data.Id   (Id)
 import GitHub.Data.Name (Name)
-import GitHub.Data.URL  (URL)
+import GitHub.Data.URL  (URL (..))
 
 -- | Errors have been tagged according to their source, so you can more easily
 -- dispatch and handle them.
@@ -254,5 +254,5 @@ instance Binary IssueLabel
 instance FromJSON IssueLabel where
     parseJSON = withObject "IssueLabel" $ \o -> IssueLabel
         <$> o .: "color"
-        <*> o .: "url"
+        <*> o .:? "url" .!= URL "" -- in events there aren't URL
         <*> o .: "name"

src/GitHub/Data/Issues.hs

@@ -21,7 +21,7 @@ data Issue = Issue
     , issueEventsUrl   :: !URL
     , issueHtmlUrl     :: !(Maybe URL)
     , issueClosedBy    :: !(Maybe SimpleUser)
-    , issueLabels      :: (Vector IssueLabel)
+    , issueLabels      :: !(Vector IssueLabel)
     , issueNumber      :: !Int
     , issueAssignees   :: !(Vector SimpleUser)
     , issueUser        :: !SimpleUser
@@ -122,6 +122,7 @@ data IssueEvent = IssueEvent
     , issueEventCreatedAt :: !UTCTime
     , issueEventId        :: !Int
     , issueEventIssue     :: !(Maybe Issue)
+    , issueEventLabel     :: !(Maybe IssueLabel)
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
@@ -137,6 +138,7 @@ instance FromJSON IssueEvent where
         <*> o .: "created_at"
         <*> o .: "id"
         <*> o .:? "issue"
+        <*> o .:? "label"
 
 instance FromJSON EventType where
     parseJSON = withText "EventType" $ \t -> case t of