module Network.Google.Resource.TagManager.Accounts.Containers.Versions.Update
(
AccountsContainersVersionsUpdateResource
, accountsContainersVersionsUpdate
, AccountsContainersVersionsUpdate
, acccContainerId
, acccFingerprint
, acccContainerVersionId
, acccPayload
, acccAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVersionsUpdateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"versions" :>
Capture "containerVersionId" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ContainerVersion :>
Put '[JSON] ContainerVersion
data AccountsContainersVersionsUpdate = AccountsContainersVersionsUpdate'
{ _acccContainerId :: !Text
, _acccFingerprint :: !(Maybe Text)
, _acccContainerVersionId :: !Text
, _acccPayload :: !ContainerVersion
, _acccAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVersionsUpdate
:: Text
-> Text
-> ContainerVersion
-> Text
-> AccountsContainersVersionsUpdate
accountsContainersVersionsUpdate pAcccContainerId_ pAcccContainerVersionId_ pAcccPayload_ pAcccAccountId_ =
AccountsContainersVersionsUpdate'
{ _acccContainerId = pAcccContainerId_
, _acccFingerprint = Nothing
, _acccContainerVersionId = pAcccContainerVersionId_
, _acccPayload = pAcccPayload_
, _acccAccountId = pAcccAccountId_
}
acccContainerId :: Lens' AccountsContainersVersionsUpdate Text
acccContainerId
= lens _acccContainerId
(\ s a -> s{_acccContainerId = a})
acccFingerprint :: Lens' AccountsContainersVersionsUpdate (Maybe Text)
acccFingerprint
= lens _acccFingerprint
(\ s a -> s{_acccFingerprint = a})
acccContainerVersionId :: Lens' AccountsContainersVersionsUpdate Text
acccContainerVersionId
= lens _acccContainerVersionId
(\ s a -> s{_acccContainerVersionId = a})
acccPayload :: Lens' AccountsContainersVersionsUpdate ContainerVersion
acccPayload
= lens _acccPayload (\ s a -> s{_acccPayload = a})
acccAccountId :: Lens' AccountsContainersVersionsUpdate Text
acccAccountId
= lens _acccAccountId
(\ s a -> s{_acccAccountId = a})
instance GoogleRequest
AccountsContainersVersionsUpdate where
type Rs AccountsContainersVersionsUpdate =
ContainerVersion
type Scopes AccountsContainersVersionsUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containerversions"]
requestClient AccountsContainersVersionsUpdate'{..}
= go _acccAccountId _acccContainerId
_acccContainerVersionId
_acccFingerprint
(Just AltJSON)
_acccPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVersionsUpdateResource)
mempty