module Network.Google.Resource.TagManager.Accounts.Containers.Environments.Patch
(
AccountsContainersEnvironmentsPatchResource
, accountsContainersEnvironmentsPatch
, AccountsContainersEnvironmentsPatch
, acepContainerId
, acepFingerprint
, acepPayload
, acepAccountId
, acepEnvironmentId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersEnvironmentsPatchResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"environments" :>
Capture "environmentId" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Environment :>
Patch '[JSON] Environment
data AccountsContainersEnvironmentsPatch = AccountsContainersEnvironmentsPatch'
{ _acepContainerId :: !Text
, _acepFingerprint :: !(Maybe Text)
, _acepPayload :: !Environment
, _acepAccountId :: !Text
, _acepEnvironmentId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersEnvironmentsPatch
:: Text
-> Environment
-> Text
-> Text
-> AccountsContainersEnvironmentsPatch
accountsContainersEnvironmentsPatch pAcepContainerId_ pAcepPayload_ pAcepAccountId_ pAcepEnvironmentId_ =
AccountsContainersEnvironmentsPatch'
{ _acepContainerId = pAcepContainerId_
, _acepFingerprint = Nothing
, _acepPayload = pAcepPayload_
, _acepAccountId = pAcepAccountId_
, _acepEnvironmentId = pAcepEnvironmentId_
}
acepContainerId :: Lens' AccountsContainersEnvironmentsPatch Text
acepContainerId
= lens _acepContainerId
(\ s a -> s{_acepContainerId = a})
acepFingerprint :: Lens' AccountsContainersEnvironmentsPatch (Maybe Text)
acepFingerprint
= lens _acepFingerprint
(\ s a -> s{_acepFingerprint = a})
acepPayload :: Lens' AccountsContainersEnvironmentsPatch Environment
acepPayload
= lens _acepPayload (\ s a -> s{_acepPayload = a})
acepAccountId :: Lens' AccountsContainersEnvironmentsPatch Text
acepAccountId
= lens _acepAccountId
(\ s a -> s{_acepAccountId = a})
acepEnvironmentId :: Lens' AccountsContainersEnvironmentsPatch Text
acepEnvironmentId
= lens _acepEnvironmentId
(\ s a -> s{_acepEnvironmentId = a})
instance GoogleRequest
AccountsContainersEnvironmentsPatch where
type Rs AccountsContainersEnvironmentsPatch =
Environment
type Scopes AccountsContainersEnvironmentsPatch =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient
AccountsContainersEnvironmentsPatch'{..}
= go _acepAccountId _acepContainerId
_acepEnvironmentId
_acepFingerprint
(Just AltJSON)
_acepPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersEnvironmentsPatchResource)
mempty