module Network.Google.Resource.IAM.Roles.QueryGrantableRoles
(
RolesQueryGrantableRolesResource
, rolesQueryGrantableRoles
, RolesQueryGrantableRoles
, rqgrXgafv
, rqgrUploadProtocol
, rqgrPp
, rqgrAccessToken
, rqgrUploadType
, rqgrPayload
, rqgrBearerToken
, rqgrCallback
) where
import Network.Google.IAM.Types
import Network.Google.Prelude
type RolesQueryGrantableRolesResource =
"v1" :>
"roles:queryGrantableRoles" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] QueryGrantableRolesRequest :>
Post '[JSON] QueryGrantableRolesResponse
data RolesQueryGrantableRoles = RolesQueryGrantableRoles'
{ _rqgrXgafv :: !(Maybe Text)
, _rqgrUploadProtocol :: !(Maybe Text)
, _rqgrPp :: !Bool
, _rqgrAccessToken :: !(Maybe Text)
, _rqgrUploadType :: !(Maybe Text)
, _rqgrPayload :: !QueryGrantableRolesRequest
, _rqgrBearerToken :: !(Maybe Text)
, _rqgrCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
rolesQueryGrantableRoles
:: QueryGrantableRolesRequest
-> RolesQueryGrantableRoles
rolesQueryGrantableRoles pRqgrPayload_ =
RolesQueryGrantableRoles'
{ _rqgrXgafv = Nothing
, _rqgrUploadProtocol = Nothing
, _rqgrPp = True
, _rqgrAccessToken = Nothing
, _rqgrUploadType = Nothing
, _rqgrPayload = pRqgrPayload_
, _rqgrBearerToken = Nothing
, _rqgrCallback = Nothing
}
rqgrXgafv :: Lens' RolesQueryGrantableRoles (Maybe Text)
rqgrXgafv
= lens _rqgrXgafv (\ s a -> s{_rqgrXgafv = a})
rqgrUploadProtocol :: Lens' RolesQueryGrantableRoles (Maybe Text)
rqgrUploadProtocol
= lens _rqgrUploadProtocol
(\ s a -> s{_rqgrUploadProtocol = a})
rqgrPp :: Lens' RolesQueryGrantableRoles Bool
rqgrPp = lens _rqgrPp (\ s a -> s{_rqgrPp = a})
rqgrAccessToken :: Lens' RolesQueryGrantableRoles (Maybe Text)
rqgrAccessToken
= lens _rqgrAccessToken
(\ s a -> s{_rqgrAccessToken = a})
rqgrUploadType :: Lens' RolesQueryGrantableRoles (Maybe Text)
rqgrUploadType
= lens _rqgrUploadType
(\ s a -> s{_rqgrUploadType = a})
rqgrPayload :: Lens' RolesQueryGrantableRoles QueryGrantableRolesRequest
rqgrPayload
= lens _rqgrPayload (\ s a -> s{_rqgrPayload = a})
rqgrBearerToken :: Lens' RolesQueryGrantableRoles (Maybe Text)
rqgrBearerToken
= lens _rqgrBearerToken
(\ s a -> s{_rqgrBearerToken = a})
rqgrCallback :: Lens' RolesQueryGrantableRoles (Maybe Text)
rqgrCallback
= lens _rqgrCallback (\ s a -> s{_rqgrCallback = a})
instance GoogleRequest RolesQueryGrantableRoles where
type Rs RolesQueryGrantableRoles =
QueryGrantableRolesResponse
type Scopes RolesQueryGrantableRoles =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient RolesQueryGrantableRoles'{..}
= go _rqgrXgafv _rqgrUploadProtocol (Just _rqgrPp)
_rqgrAccessToken
_rqgrUploadType
_rqgrBearerToken
_rqgrCallback
(Just AltJSON)
_rqgrPayload
iAMService
where go
= buildClient
(Proxy :: Proxy RolesQueryGrantableRolesResource)
mempty