{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.IAM.Organizations.Roles.Delete
(
OrganizationsRolesDeleteResource
, organizationsRolesDelete
, OrganizationsRolesDelete
, ordXgafv
, ordEtag
, ordUploadProtocol
, ordAccessToken
, ordUploadType
, ordName
, ordCallback
) where
import Network.Google.IAM.Types
import Network.Google.Prelude
type OrganizationsRolesDeleteResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "etag" Bytes :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Role
data OrganizationsRolesDelete = OrganizationsRolesDelete'
{ _ordXgafv :: !(Maybe Xgafv)
, _ordEtag :: !(Maybe Bytes)
, _ordUploadProtocol :: !(Maybe Text)
, _ordAccessToken :: !(Maybe Text)
, _ordUploadType :: !(Maybe Text)
, _ordName :: !Text
, _ordCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
organizationsRolesDelete
:: Text
-> OrganizationsRolesDelete
organizationsRolesDelete pOrdName_ =
OrganizationsRolesDelete'
{ _ordXgafv = Nothing
, _ordEtag = Nothing
, _ordUploadProtocol = Nothing
, _ordAccessToken = Nothing
, _ordUploadType = Nothing
, _ordName = pOrdName_
, _ordCallback = Nothing
}
ordXgafv :: Lens' OrganizationsRolesDelete (Maybe Xgafv)
ordXgafv = lens _ordXgafv (\ s a -> s{_ordXgafv = a})
ordEtag :: Lens' OrganizationsRolesDelete (Maybe ByteString)
ordEtag
= lens _ordEtag (\ s a -> s{_ordEtag = a}) .
mapping _Bytes
ordUploadProtocol :: Lens' OrganizationsRolesDelete (Maybe Text)
ordUploadProtocol
= lens _ordUploadProtocol
(\ s a -> s{_ordUploadProtocol = a})
ordAccessToken :: Lens' OrganizationsRolesDelete (Maybe Text)
ordAccessToken
= lens _ordAccessToken
(\ s a -> s{_ordAccessToken = a})
ordUploadType :: Lens' OrganizationsRolesDelete (Maybe Text)
ordUploadType
= lens _ordUploadType
(\ s a -> s{_ordUploadType = a})
ordName :: Lens' OrganizationsRolesDelete Text
ordName = lens _ordName (\ s a -> s{_ordName = a})
ordCallback :: Lens' OrganizationsRolesDelete (Maybe Text)
ordCallback
= lens _ordCallback (\ s a -> s{_ordCallback = a})
instance GoogleRequest OrganizationsRolesDelete where
type Rs OrganizationsRolesDelete = Role
type Scopes OrganizationsRolesDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsRolesDelete'{..}
= go _ordName _ordXgafv _ordEtag _ordUploadProtocol
_ordAccessToken
_ordUploadType
_ordCallback
(Just AltJSON)
iAMService
where go
= buildClient
(Proxy :: Proxy OrganizationsRolesDeleteResource)
mempty