module Network.Google.Resource.TagManager.Accounts.Containers.ReauthorizeEnvironments.Update
(
AccountsContainersReauthorizeEnvironmentsUpdateResource
, accountsContainersReauthorizeEnvironmentsUpdate
, AccountsContainersReauthorizeEnvironmentsUpdate
, acreuContainerId
, acreuPayload
, acreuAccountId
, acreuEnvironmentId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersReauthorizeEnvironmentsUpdateResource
=
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"reauthorize_environments" :>
Capture "environmentId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Environment :>
Put '[JSON] Environment
data AccountsContainersReauthorizeEnvironmentsUpdate = AccountsContainersReauthorizeEnvironmentsUpdate'
{ _acreuContainerId :: !Text
, _acreuPayload :: !Environment
, _acreuAccountId :: !Text
, _acreuEnvironmentId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersReauthorizeEnvironmentsUpdate
:: Text
-> Environment
-> Text
-> Text
-> AccountsContainersReauthorizeEnvironmentsUpdate
accountsContainersReauthorizeEnvironmentsUpdate pAcreuContainerId_ pAcreuPayload_ pAcreuAccountId_ pAcreuEnvironmentId_ =
AccountsContainersReauthorizeEnvironmentsUpdate'
{ _acreuContainerId = pAcreuContainerId_
, _acreuPayload = pAcreuPayload_
, _acreuAccountId = pAcreuAccountId_
, _acreuEnvironmentId = pAcreuEnvironmentId_
}
acreuContainerId :: Lens' AccountsContainersReauthorizeEnvironmentsUpdate Text
acreuContainerId
= lens _acreuContainerId
(\ s a -> s{_acreuContainerId = a})
acreuPayload :: Lens' AccountsContainersReauthorizeEnvironmentsUpdate Environment
acreuPayload
= lens _acreuPayload (\ s a -> s{_acreuPayload = a})
acreuAccountId :: Lens' AccountsContainersReauthorizeEnvironmentsUpdate Text
acreuAccountId
= lens _acreuAccountId
(\ s a -> s{_acreuAccountId = a})
acreuEnvironmentId :: Lens' AccountsContainersReauthorizeEnvironmentsUpdate Text
acreuEnvironmentId
= lens _acreuEnvironmentId
(\ s a -> s{_acreuEnvironmentId = a})
instance GoogleRequest
AccountsContainersReauthorizeEnvironmentsUpdate where
type Rs
AccountsContainersReauthorizeEnvironmentsUpdate
= Environment
type Scopes
AccountsContainersReauthorizeEnvironmentsUpdate
=
'["https://www.googleapis.com/auth/tagmanager.publish"]
requestClient
AccountsContainersReauthorizeEnvironmentsUpdate'{..}
= go _acreuAccountId _acreuContainerId
_acreuEnvironmentId
(Just AltJSON)
_acreuPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy
AccountsContainersReauthorizeEnvironmentsUpdateResource)
mempty