module Network.Google.Resource.CloudUserAccounts.Groups.RemoveMember
(
GroupsRemoveMemberResource
, groupsRemoveMember
, GroupsRemoveMember
, grmProject
, grmPayload
, grmGroupName
) where
import Network.Google.Prelude
import Network.Google.UserAccounts.Types
type GroupsRemoveMemberResource =
"clouduseraccounts" :>
"beta" :>
"projects" :>
Capture "project" Text :>
"global" :>
"groups" :>
Capture "groupName" Text :>
"removeMember" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] GroupsRemoveMemberRequest :>
Post '[JSON] Operation
data GroupsRemoveMember = GroupsRemoveMember'
{ _grmProject :: !Text
, _grmPayload :: !GroupsRemoveMemberRequest
, _grmGroupName :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
groupsRemoveMember
:: Text
-> GroupsRemoveMemberRequest
-> Text
-> GroupsRemoveMember
groupsRemoveMember pGrmProject_ pGrmPayload_ pGrmGroupName_ =
GroupsRemoveMember'
{ _grmProject = pGrmProject_
, _grmPayload = pGrmPayload_
, _grmGroupName = pGrmGroupName_
}
grmProject :: Lens' GroupsRemoveMember Text
grmProject
= lens _grmProject (\ s a -> s{_grmProject = a})
grmPayload :: Lens' GroupsRemoveMember GroupsRemoveMemberRequest
grmPayload
= lens _grmPayload (\ s a -> s{_grmPayload = a})
grmGroupName :: Lens' GroupsRemoveMember Text
grmGroupName
= lens _grmGroupName (\ s a -> s{_grmGroupName = a})
instance GoogleRequest GroupsRemoveMember where
type Rs GroupsRemoveMember = Operation
type Scopes GroupsRemoveMember =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud.useraccounts"]
requestClient GroupsRemoveMember'{..}
= go _grmProject _grmGroupName (Just AltJSON)
_grmPayload
userAccountsService
where go
= buildClient
(Proxy :: Proxy GroupsRemoveMemberResource)
mempty