module Network.Google.Resource.TagManager.Accounts.Containers.Environments.Update
(
AccountsContainersEnvironmentsUpdateResource
, accountsContainersEnvironmentsUpdate
, AccountsContainersEnvironmentsUpdate
, aceuContainerId
, aceuFingerprint
, aceuPayload
, aceuAccountId
, aceuEnvironmentId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersEnvironmentsUpdateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"environments" :>
Capture "environmentId" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Environment :>
Put '[JSON] Environment
data AccountsContainersEnvironmentsUpdate = AccountsContainersEnvironmentsUpdate'
{ _aceuContainerId :: !Text
, _aceuFingerprint :: !(Maybe Text)
, _aceuPayload :: !Environment
, _aceuAccountId :: !Text
, _aceuEnvironmentId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersEnvironmentsUpdate
:: Text
-> Environment
-> Text
-> Text
-> AccountsContainersEnvironmentsUpdate
accountsContainersEnvironmentsUpdate pAceuContainerId_ pAceuPayload_ pAceuAccountId_ pAceuEnvironmentId_ =
AccountsContainersEnvironmentsUpdate'
{ _aceuContainerId = pAceuContainerId_
, _aceuFingerprint = Nothing
, _aceuPayload = pAceuPayload_
, _aceuAccountId = pAceuAccountId_
, _aceuEnvironmentId = pAceuEnvironmentId_
}
aceuContainerId :: Lens' AccountsContainersEnvironmentsUpdate Text
aceuContainerId
= lens _aceuContainerId
(\ s a -> s{_aceuContainerId = a})
aceuFingerprint :: Lens' AccountsContainersEnvironmentsUpdate (Maybe Text)
aceuFingerprint
= lens _aceuFingerprint
(\ s a -> s{_aceuFingerprint = a})
aceuPayload :: Lens' AccountsContainersEnvironmentsUpdate Environment
aceuPayload
= lens _aceuPayload (\ s a -> s{_aceuPayload = a})
aceuAccountId :: Lens' AccountsContainersEnvironmentsUpdate Text
aceuAccountId
= lens _aceuAccountId
(\ s a -> s{_aceuAccountId = a})
aceuEnvironmentId :: Lens' AccountsContainersEnvironmentsUpdate Text
aceuEnvironmentId
= lens _aceuEnvironmentId
(\ s a -> s{_aceuEnvironmentId = a})
instance GoogleRequest
AccountsContainersEnvironmentsUpdate where
type Rs AccountsContainersEnvironmentsUpdate =
Environment
type Scopes AccountsContainersEnvironmentsUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient
AccountsContainersEnvironmentsUpdate'{..}
= go _aceuAccountId _aceuContainerId
_aceuEnvironmentId
_aceuFingerprint
(Just AltJSON)
_aceuPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersEnvironmentsUpdateResource)
mempty