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 11cabal-version : 2.4
22name : github
3- version : 0.29.1
3+ version : 0.30
44synopsis : Access to the GitHub API, v3.
55category : Network
66description :
Original file line number Diff line number Diff line change @@ -122,6 +122,7 @@ instance Binary IssueState
122122-- | 'GitHub.Data.Issues.Issue' state reason
123123data IssueStateReason
124124 = StateReasonCompleted
125+ | StateReasonDuplicate
125126 | StateReasonNotPlanned
126127 | StateReasonReopened
127128 deriving
@@ -130,12 +131,14 @@ data IssueStateReason
130131instance ToJSON IssueStateReason where
131132 toJSON = String . \ case
132133 StateReasonCompleted -> " completed"
134+ StateReasonDuplicate -> " duplicate"
133135 StateReasonNotPlanned -> " not_planned"
134136 StateReasonReopened -> " reopened"
135137
136138instance FromJSON IssueStateReason where
137139 parseJSON = withText " IssueStateReason" $ \ t -> case T. toLower t of
138140 " completed" -> pure StateReasonCompleted
141+ " duplicate" -> pure StateReasonDuplicate
139142 " not_planned" -> pure StateReasonNotPlanned
140143 " reopened" -> pure StateReasonReopened
141144 _ -> fail $ " Unknown IssueStateReason: " <> T. unpack t
You can’t perform that action at this time.
0 commit comments