| By | fr33domlover |
| At | 2015-12-19 |
| Title | add a note event type |
| Description |
Edit file NEWS 33188 → 33188
12 12 13 13 New APIs, features and enhancements:
14 14 15 15 * Add file lists to Commit
16 16 * Add an issue event type
+ 17 * Add a note event type
17 18 18 19 Bug fixes:
19 20 20 21 * (None)
21 22 … … … … Edit file src/FunBot/ExtEvents.hs 33188 → 33188
20 20 ( Branch (..)
21 21 , Commit (..)
22 22 , Push (..)
23 23 , Tag (..)
24 24 , Issue (..)
+ 25 , Note (..)
25 26 , MergeRequest (..)
26 27 , NewsItem (..)
27 28 , Paste (..)
28 29 , ExtEvent (..)
29 30 )
… … … … 76 77 , issueUrl :: String
77 78 , issueAction :: String
78 79 }
79 80 deriving Show
80 81 + 82 data Note = Note
+ 83 { noteAuthor :: String+ 84 , noteRepo :: String
+ 85 , noteRepoOwner :: String
+ 86 , noteContent :: String
+ 87 , noteTarget :: String
+ 88 , noteUrl :: String
+ 89 }
+ 90 deriving Show
+ 91 + 92 instance FromJSON Note where
+ 93 parseJSON (Object o) =
+ 94 Note <$>
+ 95 o .: "author" <*>
+ 96 o .: "repo" <*>
+ 97 o .: "user" <*>
+ 98 o .: "content" <*>
+ 99 o .: "target" <*>
+ 100 o .: "url"
+ 101 parseJSON _ = mzero
+ 102 + 103 instance ToJSON Note where
+ 104 toJSON (Note author repo user content target url) = object
+ 105 [ "author" .= author
+ 106 , "repo" .= repo
+ 107 , "user" .= user
+ 108 , "content" .= content
+ 109 , "target" .= target
+ 110 , "url" .= url
+ 111 ]
+ 112 81 113 data MergeRequest = MergeRequest
82 114 { mrAuthor :: String83 115 , mrId :: Int
84 116 , mrRepo :: String
85 117 , mrRepoOwner :: String
… … … … 115 147 | GitTagEvent Tag
116 148 -- | An issue related event.
117 149 | IssueEvent Issue
118 150 -- | A merge request related event.
119 151 | MergeRequestEvent MergeRequest
+ 152 -- | A comment made on an issue or MR or some other object.
+ 153 | NoteEvent Note
120 154 -- | New news item published.
121 155 | NewsEvent NewsItem
122 156 -- | Paste related event in a paste server.
123 157 | PasteEvent Paste
124 158 -- | A new IRC user needs to be welcomed to a channel.
… … … …