File tree Expand file tree Collapse file tree 2 files changed +4
-1
lines changed Expand file tree Collapse file tree 2 files changed +4
-1
lines changed Original file line number Diff line number Diff line change 1
1
cabal-version : 2.4
2
2
name : github
3
- version : 0.29.1
3
+ version : 0.30
4
4
synopsis : Access to the GitHub API, v3.
5
5
category : Network
6
6
description :
Original file line number Diff line number Diff line change @@ -122,6 +122,7 @@ instance Binary IssueState
122
122
-- | 'GitHub.Data.Issues.Issue' state reason
123
123
data IssueStateReason
124
124
= StateReasonCompleted
125
+ | StateReasonDuplicate
125
126
| StateReasonNotPlanned
126
127
| StateReasonReopened
127
128
deriving
@@ -130,12 +131,14 @@ data IssueStateReason
130
131
instance ToJSON IssueStateReason where
131
132
toJSON = String . \ case
132
133
StateReasonCompleted -> " completed"
134
+ StateReasonDuplicate -> " duplicate"
133
135
StateReasonNotPlanned -> " not_planned"
134
136
StateReasonReopened -> " reopened"
135
137
136
138
instance FromJSON IssueStateReason where
137
139
parseJSON = withText " IssueStateReason" $ \ t -> case T. toLower t of
138
140
" completed" -> pure StateReasonCompleted
141
+ " duplicate" -> pure StateReasonDuplicate
139
142
" not_planned" -> pure StateReasonNotPlanned
140
143
" reopened" -> pure StateReasonReopened
141
144
_ -> fail $ " Unknown IssueStateReason: " <> T. unpack t
You can’t perform that action at this time.
0 commit comments