module Network.Google.Resource.CloudUserAccounts.Groups.AddMember
(
GroupsAddMemberResource
, groupsAddMember
, GroupsAddMember
, gamProject
, gamPayload
, gamGroupName
) where
import Network.Google.Prelude
import Network.Google.UserAccounts.Types
type GroupsAddMemberResource =
"clouduseraccounts" :>
"beta" :>
"projects" :>
Capture "project" Text :>
"global" :>
"groups" :>
Capture "groupName" Text :>
"addMember" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] GroupsAddMemberRequest :>
Post '[JSON] Operation
data GroupsAddMember = GroupsAddMember'
{ _gamProject :: !Text
, _gamPayload :: !GroupsAddMemberRequest
, _gamGroupName :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
groupsAddMember
:: Text
-> GroupsAddMemberRequest
-> Text
-> GroupsAddMember
groupsAddMember pGamProject_ pGamPayload_ pGamGroupName_ =
GroupsAddMember'
{ _gamProject = pGamProject_
, _gamPayload = pGamPayload_
, _gamGroupName = pGamGroupName_
}
gamProject :: Lens' GroupsAddMember Text
gamProject
= lens _gamProject (\ s a -> s{_gamProject = a})
gamPayload :: Lens' GroupsAddMember GroupsAddMemberRequest
gamPayload
= lens _gamPayload (\ s a -> s{_gamPayload = a})
gamGroupName :: Lens' GroupsAddMember Text
gamGroupName
= lens _gamGroupName (\ s a -> s{_gamGroupName = a})
instance GoogleRequest GroupsAddMember where
type Rs GroupsAddMember = Operation
type Scopes GroupsAddMember =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud.useraccounts"]
requestClient GroupsAddMember'{..}
= go _gamProject _gamGroupName (Just AltJSON)
_gamPayload
userAccountsService
where go
= buildClient
(Proxy :: Proxy GroupsAddMemberResource)
mempty