module Network.Google.Resource.TagManager.Accounts.Containers.Versions.Publish
(
AccountsContainersVersionsPublishResource
, accountsContainersVersionsPublish
, AccountsContainersVersionsPublish
, acvpContainerId
, acvpFingerprint
, acvpContainerVersionId
, acvpAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVersionsPublishResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"versions" :>
Capture "containerVersionId" Text :>
"publish" :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
Post '[JSON] PublishContainerVersionResponse
data AccountsContainersVersionsPublish = AccountsContainersVersionsPublish'
{ _acvpContainerId :: !Text
, _acvpFingerprint :: !(Maybe Text)
, _acvpContainerVersionId :: !Text
, _acvpAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVersionsPublish
:: Text
-> Text
-> Text
-> AccountsContainersVersionsPublish
accountsContainersVersionsPublish pAcvpContainerId_ pAcvpContainerVersionId_ pAcvpAccountId_ =
AccountsContainersVersionsPublish'
{ _acvpContainerId = pAcvpContainerId_
, _acvpFingerprint = Nothing
, _acvpContainerVersionId = pAcvpContainerVersionId_
, _acvpAccountId = pAcvpAccountId_
}
acvpContainerId :: Lens' AccountsContainersVersionsPublish Text
acvpContainerId
= lens _acvpContainerId
(\ s a -> s{_acvpContainerId = a})
acvpFingerprint :: Lens' AccountsContainersVersionsPublish (Maybe Text)
acvpFingerprint
= lens _acvpFingerprint
(\ s a -> s{_acvpFingerprint = a})
acvpContainerVersionId :: Lens' AccountsContainersVersionsPublish Text
acvpContainerVersionId
= lens _acvpContainerVersionId
(\ s a -> s{_acvpContainerVersionId = a})
acvpAccountId :: Lens' AccountsContainersVersionsPublish Text
acvpAccountId
= lens _acvpAccountId
(\ s a -> s{_acvpAccountId = a})
instance GoogleRequest
AccountsContainersVersionsPublish where
type Rs AccountsContainersVersionsPublish =
PublishContainerVersionResponse
type Scopes AccountsContainersVersionsPublish =
'["https://www.googleapis.com/auth/tagmanager.publish"]
requestClient AccountsContainersVersionsPublish'{..}
= go _acvpAccountId _acvpContainerId
_acvpContainerVersionId
_acvpFingerprint
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVersionsPublishResource)
mempty