module GitHub.Endpoints.Issues.Labels (
labelsOnRepo,
labelsOnRepo',
labelsOnRepoR,
label,
label',
labelR,
createLabel,
createLabelR,
updateLabel,
updateLabelR,
deleteLabel,
deleteLabelR,
labelsOnIssue,
labelsOnIssue',
labelsOnIssueR,
addLabelsToIssue,
addLabelsToIssueR,
removeLabelFromIssue,
removeLabelFromIssueR,
replaceAllLabelsForIssue,
replaceAllLabelsForIssueR,
removeAllLabelsFromIssue,
removeAllLabelsFromIssueR,
labelsOnMilestone,
labelsOnMilestone',
labelsOnMilestoneR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import GitHub.Request
import Prelude ()
labelsOnRepo :: Name Owner -> Name Repo -> IO (Either Error (Vector IssueLabel))
labelsOnRepo :: Name Owner -> Name Repo -> IO (Either Error (Vector IssueLabel))
labelsOnRepo = Maybe Auth
-> Name Owner -> Name Repo -> IO (Either Error (Vector IssueLabel))
labelsOnRepo' Maybe Auth
forall a. Maybe a
Nothing
labelsOnRepo' :: Maybe Auth -> Name Owner -> Name Repo -> IO (Either Error (Vector IssueLabel))
labelsOnRepo' :: Maybe Auth
-> Name Owner -> Name Repo -> IO (Either Error (Vector IssueLabel))
labelsOnRepo' auth :: Maybe Auth
auth user :: Name Owner
user repo :: Name Repo
repo =
Maybe Auth
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel)))
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> FetchCount
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
forall (k :: RW).
Name Owner
-> Name Repo -> FetchCount -> Request k (Vector IssueLabel)
labelsOnRepoR Name Owner
user Name Repo
repo FetchCount
FetchAll
labelsOnRepoR :: Name Owner -> Name Repo -> FetchCount -> Request k (Vector IssueLabel)
labelsOnRepoR :: Name Owner
-> Name Repo -> FetchCount -> Request k (Vector IssueLabel)
labelsOnRepoR user :: Name Owner
user repo :: Name Repo
repo =
Paths -> QueryString -> FetchCount -> Request k (Vector IssueLabel)
forall a (mt :: RW).
FromJSON a =>
Paths -> QueryString -> FetchCount -> Request mt (Vector a)
pagedQuery ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "labels"] []
label :: Name Owner -> Name Repo -> Name IssueLabel -> IO (Either Error IssueLabel)
label :: Name Owner
-> Name Repo -> Name IssueLabel -> IO (Either Error IssueLabel)
label = Maybe Auth
-> Name Owner
-> Name Repo
-> Name IssueLabel
-> IO (Either Error IssueLabel)
label' Maybe Auth
forall a. Maybe a
Nothing
label' :: Maybe Auth -> Name Owner -> Name Repo -> Name IssueLabel -> IO (Either Error IssueLabel)
label' :: Maybe Auth
-> Name Owner
-> Name Repo
-> Name IssueLabel
-> IO (Either Error IssueLabel)
label' auth :: Maybe Auth
auth user :: Name Owner
user repo :: Name Repo
repo lbl :: Name IssueLabel
lbl =
Maybe Auth
-> GenRequest 'MtJSON 'RO IssueLabel
-> IO (Either Error IssueLabel)
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO IssueLabel -> IO (Either Error IssueLabel))
-> GenRequest 'MtJSON 'RO IssueLabel
-> IO (Either Error IssueLabel)
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Name IssueLabel
-> GenRequest 'MtJSON 'RO IssueLabel
forall (k :: RW).
Name Owner -> Name Repo -> Name IssueLabel -> Request k IssueLabel
labelR Name Owner
user Name Repo
repo Name IssueLabel
lbl
labelR :: Name Owner -> Name Repo -> Name IssueLabel -> Request k IssueLabel
labelR :: Name Owner -> Name Repo -> Name IssueLabel -> Request k IssueLabel
labelR user :: Name Owner
user repo :: Name Repo
repo lbl :: Name IssueLabel
lbl =
Paths -> QueryString -> Request k IssueLabel
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "labels", Name IssueLabel -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name IssueLabel
lbl] []
createLabel :: Auth -> Name Owner -> Name Repo -> Name IssueLabel -> String -> IO (Either Error IssueLabel)
createLabel :: Auth
-> Name Owner
-> Name Repo
-> Name IssueLabel
-> String
-> IO (Either Error IssueLabel)
createLabel auth :: Auth
auth user :: Name Owner
user repo :: Name Repo
repo lbl :: Name IssueLabel
lbl color :: String
color =
Auth
-> GenRequest 'MtJSON 'RW IssueLabel
-> IO (Either Error IssueLabel)
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtJSON 'RW IssueLabel -> IO (Either Error IssueLabel))
-> GenRequest 'MtJSON 'RW IssueLabel
-> IO (Either Error IssueLabel)
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Name IssueLabel
-> String
-> GenRequest 'MtJSON 'RW IssueLabel
createLabelR Name Owner
user Name Repo
repo Name IssueLabel
lbl String
color
createLabelR :: Name Owner -> Name Repo -> Name IssueLabel -> String -> Request 'RW IssueLabel
createLabelR :: Name Owner
-> Name Repo
-> Name IssueLabel
-> String
-> GenRequest 'MtJSON 'RW IssueLabel
createLabelR user :: Name Owner
user repo :: Name Repo
repo lbl :: Name IssueLabel
lbl color :: String
color =
CommandMethod
-> Paths -> ByteString -> GenRequest 'MtJSON 'RW IssueLabel
forall a. CommandMethod -> Paths -> ByteString -> Request 'RW a
command CommandMethod
Post Paths
paths (ByteString -> GenRequest 'MtJSON 'RW IssueLabel)
-> ByteString -> GenRequest 'MtJSON 'RW IssueLabel
forall a b. (a -> b) -> a -> b
$ Value -> ByteString
forall a. ToJSON a => a -> ByteString
encode Value
body
where
paths :: Paths
paths = ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "labels"]
body :: Value
body = [Pair] -> Value
object ["name" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Name IssueLabel -> Text
forall entity. Name entity -> Text
untagName Name IssueLabel
lbl, "color" Text -> String -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String
color]
updateLabel :: Auth
-> Name Owner
-> Name Repo
-> Name IssueLabel
-> Name IssueLabel
-> String
-> IO (Either Error IssueLabel)
updateLabel :: Auth
-> Name Owner
-> Name Repo
-> Name IssueLabel
-> Name IssueLabel
-> String
-> IO (Either Error IssueLabel)
updateLabel auth :: Auth
auth user :: Name Owner
user repo :: Name Repo
repo oldLbl :: Name IssueLabel
oldLbl newLbl :: Name IssueLabel
newLbl color :: String
color =
Auth
-> GenRequest 'MtJSON 'RW IssueLabel
-> IO (Either Error IssueLabel)
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtJSON 'RW IssueLabel -> IO (Either Error IssueLabel))
-> GenRequest 'MtJSON 'RW IssueLabel
-> IO (Either Error IssueLabel)
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Name IssueLabel
-> Name IssueLabel
-> String
-> GenRequest 'MtJSON 'RW IssueLabel
updateLabelR Name Owner
user Name Repo
repo Name IssueLabel
oldLbl Name IssueLabel
newLbl String
color
updateLabelR :: Name Owner
-> Name Repo
-> Name IssueLabel
-> Name IssueLabel
-> String
-> Request 'RW IssueLabel
updateLabelR :: Name Owner
-> Name Repo
-> Name IssueLabel
-> Name IssueLabel
-> String
-> GenRequest 'MtJSON 'RW IssueLabel
updateLabelR user :: Name Owner
user repo :: Name Repo
repo oldLbl :: Name IssueLabel
oldLbl newLbl :: Name IssueLabel
newLbl color :: String
color =
CommandMethod
-> Paths -> ByteString -> GenRequest 'MtJSON 'RW IssueLabel
forall a. CommandMethod -> Paths -> ByteString -> Request 'RW a
command CommandMethod
Patch Paths
paths (Value -> ByteString
forall a. ToJSON a => a -> ByteString
encode Value
body)
where
paths :: Paths
paths = ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "labels", Name IssueLabel -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name IssueLabel
oldLbl]
body :: Value
body = [Pair] -> Value
object ["name" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Name IssueLabel -> Text
forall entity. Name entity -> Text
untagName Name IssueLabel
newLbl, "color" Text -> String -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String
color]
deleteLabel :: Auth -> Name Owner -> Name Repo -> Name IssueLabel -> IO (Either Error ())
deleteLabel :: Auth
-> Name Owner
-> Name Repo
-> Name IssueLabel
-> IO (Either Error ())
deleteLabel auth :: Auth
auth user :: Name Owner
user repo :: Name Repo
repo lbl :: Name IssueLabel
lbl =
Auth -> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtUnit 'RW () -> IO (Either Error ()))
-> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo -> Name IssueLabel -> GenRequest 'MtUnit 'RW ()
deleteLabelR Name Owner
user Name Repo
repo Name IssueLabel
lbl
deleteLabelR :: Name Owner -> Name Repo -> Name IssueLabel -> GenRequest 'MtUnit 'RW ()
deleteLabelR :: Name Owner
-> Name Repo -> Name IssueLabel -> GenRequest 'MtUnit 'RW ()
deleteLabelR user :: Name Owner
user repo :: Name Repo
repo lbl :: Name IssueLabel
lbl =
CommandMethod -> Paths -> ByteString -> GenRequest 'MtUnit 'RW ()
forall (mt :: MediaType *) a.
CommandMethod -> Paths -> ByteString -> GenRequest mt 'RW a
Command CommandMethod
Delete ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "labels", Name IssueLabel -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name IssueLabel
lbl] ByteString
forall a. Monoid a => a
mempty
labelsOnIssue :: Name Owner -> Name Repo -> Id Issue -> IO (Either Error (Vector IssueLabel))
labelsOnIssue :: Name Owner
-> Name Repo -> Id Issue -> IO (Either Error (Vector IssueLabel))
labelsOnIssue = Maybe Auth
-> Name Owner
-> Name Repo
-> Id Issue
-> IO (Either Error (Vector IssueLabel))
labelsOnIssue' Maybe Auth
forall a. Maybe a
Nothing
labelsOnIssue' :: Maybe Auth -> Name Owner -> Name Repo -> Id Issue -> IO (Either Error (Vector IssueLabel))
labelsOnIssue' :: Maybe Auth
-> Name Owner
-> Name Repo
-> Id Issue
-> IO (Either Error (Vector IssueLabel))
labelsOnIssue' auth :: Maybe Auth
auth user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid =
Maybe Auth
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel)))
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id Issue
-> FetchCount
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
forall (k :: RW).
Name Owner
-> Name Repo
-> Id Issue
-> FetchCount
-> Request k (Vector IssueLabel)
labelsOnIssueR Name Owner
user Name Repo
repo Id Issue
iid FetchCount
FetchAll
labelsOnIssueR :: Name Owner -> Name Repo -> Id Issue -> FetchCount -> Request k (Vector IssueLabel)
labelsOnIssueR :: Name Owner
-> Name Repo
-> Id Issue
-> FetchCount
-> Request k (Vector IssueLabel)
labelsOnIssueR user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid =
Paths -> QueryString -> FetchCount -> Request k (Vector IssueLabel)
forall a (mt :: RW).
FromJSON a =>
Paths -> QueryString -> FetchCount -> Request mt (Vector a)
pagedQuery ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "issues", Id Issue -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id Issue
iid, "labels"] []
addLabelsToIssue :: Foldable f
=> Auth
-> Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> IO (Either Error (Vector IssueLabel))
addLabelsToIssue :: Auth
-> Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> IO (Either Error (Vector IssueLabel))
addLabelsToIssue auth :: Auth
auth user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid lbls :: f (Name IssueLabel)
lbls =
Auth
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtJSON 'RW (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel)))
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
forall (f :: * -> *).
Foldable f =>
Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
addLabelsToIssueR Name Owner
user Name Repo
repo Id Issue
iid f (Name IssueLabel)
lbls
addLabelsToIssueR :: Foldable f
=> Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> Request 'RW (Vector IssueLabel)
addLabelsToIssueR :: Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
addLabelsToIssueR user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid lbls :: f (Name IssueLabel)
lbls =
CommandMethod
-> Paths
-> ByteString
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
forall a. CommandMethod -> Paths -> ByteString -> Request 'RW a
command CommandMethod
Post Paths
paths ([Name IssueLabel] -> ByteString
forall a. ToJSON a => a -> ByteString
encode ([Name IssueLabel] -> ByteString)
-> [Name IssueLabel] -> ByteString
forall a b. (a -> b) -> a -> b
$ f (Name IssueLabel) -> [Name IssueLabel]
forall (t :: * -> *) a. Foldable t => t a -> [a]
toList f (Name IssueLabel)
lbls)
where
paths :: Paths
paths = ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "issues", Id Issue -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id Issue
iid, "labels"]
removeLabelFromIssue :: Auth -> Name Owner -> Name Repo -> Id Issue -> Name IssueLabel -> IO (Either Error ())
removeLabelFromIssue :: Auth
-> Name Owner
-> Name Repo
-> Id Issue
-> Name IssueLabel
-> IO (Either Error ())
removeLabelFromIssue auth :: Auth
auth user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid lbl :: Name IssueLabel
lbl =
Auth -> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtUnit 'RW () -> IO (Either Error ()))
-> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id Issue
-> Name IssueLabel
-> GenRequest 'MtUnit 'RW ()
removeLabelFromIssueR Name Owner
user Name Repo
repo Id Issue
iid Name IssueLabel
lbl
removeLabelFromIssueR :: Name Owner -> Name Repo -> Id Issue -> Name IssueLabel -> GenRequest 'MtUnit 'RW ()
removeLabelFromIssueR :: Name Owner
-> Name Repo
-> Id Issue
-> Name IssueLabel
-> GenRequest 'MtUnit 'RW ()
removeLabelFromIssueR user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid lbl :: Name IssueLabel
lbl =
CommandMethod -> Paths -> ByteString -> GenRequest 'MtUnit 'RW ()
forall (mt :: MediaType *) a.
CommandMethod -> Paths -> ByteString -> GenRequest mt 'RW a
Command CommandMethod
Delete ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "issues", Id Issue -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id Issue
iid, "labels", Name IssueLabel -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name IssueLabel
lbl] ByteString
forall a. Monoid a => a
mempty
replaceAllLabelsForIssue :: Foldable f
=> Auth
-> Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> IO (Either Error (Vector IssueLabel))
replaceAllLabelsForIssue :: Auth
-> Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> IO (Either Error (Vector IssueLabel))
replaceAllLabelsForIssue auth :: Auth
auth user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid lbls :: f (Name IssueLabel)
lbls =
Auth
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtJSON 'RW (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel)))
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
forall (f :: * -> *).
Foldable f =>
Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
replaceAllLabelsForIssueR Name Owner
user Name Repo
repo Id Issue
iid f (Name IssueLabel)
lbls
replaceAllLabelsForIssueR :: Foldable f
=> Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> Request 'RW (Vector IssueLabel)
replaceAllLabelsForIssueR :: Name Owner
-> Name Repo
-> Id Issue
-> f (Name IssueLabel)
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
replaceAllLabelsForIssueR user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid lbls :: f (Name IssueLabel)
lbls =
CommandMethod
-> Paths
-> ByteString
-> GenRequest 'MtJSON 'RW (Vector IssueLabel)
forall a. CommandMethod -> Paths -> ByteString -> Request 'RW a
command CommandMethod
Put Paths
paths ([Name IssueLabel] -> ByteString
forall a. ToJSON a => a -> ByteString
encode ([Name IssueLabel] -> ByteString)
-> [Name IssueLabel] -> ByteString
forall a b. (a -> b) -> a -> b
$ f (Name IssueLabel) -> [Name IssueLabel]
forall (t :: * -> *) a. Foldable t => t a -> [a]
toList f (Name IssueLabel)
lbls)
where
paths :: Paths
paths = ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "issues", Id Issue -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id Issue
iid, "labels"]
removeAllLabelsFromIssue :: Auth -> Name Owner -> Name Repo -> Id Issue -> IO (Either Error ())
removeAllLabelsFromIssue :: Auth -> Name Owner -> Name Repo -> Id Issue -> IO (Either Error ())
removeAllLabelsFromIssue auth :: Auth
auth user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid =
Auth -> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtUnit 'RW () -> IO (Either Error ()))
-> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall a b. (a -> b) -> a -> b
$ Name Owner -> Name Repo -> Id Issue -> GenRequest 'MtUnit 'RW ()
removeAllLabelsFromIssueR Name Owner
user Name Repo
repo Id Issue
iid
removeAllLabelsFromIssueR :: Name Owner -> Name Repo -> Id Issue -> GenRequest 'MtUnit 'RW ()
removeAllLabelsFromIssueR :: Name Owner -> Name Repo -> Id Issue -> GenRequest 'MtUnit 'RW ()
removeAllLabelsFromIssueR user :: Name Owner
user repo :: Name Repo
repo iid :: Id Issue
iid =
CommandMethod -> Paths -> ByteString -> GenRequest 'MtUnit 'RW ()
forall (mt :: MediaType *) a.
CommandMethod -> Paths -> ByteString -> GenRequest mt 'RW a
Command CommandMethod
Delete ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "issues", Id Issue -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id Issue
iid, "labels"] ByteString
forall a. Monoid a => a
mempty
labelsOnMilestone :: Name Owner -> Name Repo -> Id Milestone -> IO (Either Error (Vector IssueLabel))
labelsOnMilestone :: Name Owner
-> Name Repo
-> Id Milestone
-> IO (Either Error (Vector IssueLabel))
labelsOnMilestone = Maybe Auth
-> Name Owner
-> Name Repo
-> Id Milestone
-> IO (Either Error (Vector IssueLabel))
labelsOnMilestone' Maybe Auth
forall a. Maybe a
Nothing
labelsOnMilestone' :: Maybe Auth -> Name Owner -> Name Repo -> Id Milestone -> IO (Either Error (Vector IssueLabel))
labelsOnMilestone' :: Maybe Auth
-> Name Owner
-> Name Repo
-> Id Milestone
-> IO (Either Error (Vector IssueLabel))
labelsOnMilestone' auth :: Maybe Auth
auth user :: Name Owner
user repo :: Name Repo
repo mid :: Id Milestone
mid =
Maybe Auth
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel)))
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
-> IO (Either Error (Vector IssueLabel))
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id Milestone
-> FetchCount
-> GenRequest 'MtJSON 'RO (Vector IssueLabel)
forall (k :: RW).
Name Owner
-> Name Repo
-> Id Milestone
-> FetchCount
-> Request k (Vector IssueLabel)
labelsOnMilestoneR Name Owner
user Name Repo
repo Id Milestone
mid FetchCount
FetchAll
labelsOnMilestoneR :: Name Owner -> Name Repo -> Id Milestone -> FetchCount -> Request k (Vector IssueLabel)
labelsOnMilestoneR :: Name Owner
-> Name Repo
-> Id Milestone
-> FetchCount
-> Request k (Vector IssueLabel)
labelsOnMilestoneR user :: Name Owner
user repo :: Name Repo
repo mid :: Id Milestone
mid =
Paths -> QueryString -> FetchCount -> Request k (Vector IssueLabel)
forall a (mt :: RW).
FromJSON a =>
Paths -> QueryString -> FetchCount -> Request mt (Vector a)
pagedQuery ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "milestones", Id Milestone -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id Milestone
mid, "labels"] []