module Network.Google.Resource.TagManager.Accounts.Containers.Update
(
AccountsContainersUpdateResource
, accountsContainersUpdate
, AccountsContainersUpdate
, acuContainerId
, acuFingerprint
, acuPayload
, acuAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersUpdateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Container :> Put '[JSON] Container
data AccountsContainersUpdate = AccountsContainersUpdate'
{ _acuContainerId :: !Text
, _acuFingerprint :: !(Maybe Text)
, _acuPayload :: !Container
, _acuAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersUpdate
:: Text
-> Container
-> Text
-> AccountsContainersUpdate
accountsContainersUpdate pAcuContainerId_ pAcuPayload_ pAcuAccountId_ =
AccountsContainersUpdate'
{ _acuContainerId = pAcuContainerId_
, _acuFingerprint = Nothing
, _acuPayload = pAcuPayload_
, _acuAccountId = pAcuAccountId_
}
acuContainerId :: Lens' AccountsContainersUpdate Text
acuContainerId
= lens _acuContainerId
(\ s a -> s{_acuContainerId = a})
acuFingerprint :: Lens' AccountsContainersUpdate (Maybe Text)
acuFingerprint
= lens _acuFingerprint
(\ s a -> s{_acuFingerprint = a})
acuPayload :: Lens' AccountsContainersUpdate Container
acuPayload
= lens _acuPayload (\ s a -> s{_acuPayload = a})
acuAccountId :: Lens' AccountsContainersUpdate Text
acuAccountId
= lens _acuAccountId (\ s a -> s{_acuAccountId = a})
instance GoogleRequest AccountsContainersUpdate where
type Rs AccountsContainersUpdate = Container
type Scopes AccountsContainersUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersUpdate'{..}
= go _acuAccountId _acuContainerId _acuFingerprint
(Just AltJSON)
_acuPayload
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsContainersUpdateResource)
mempty