module Network.Google.Resource.TagManager.Accounts.Containers.Versions.Undelete
(
AccountsContainersVersionsUndeleteResource
, accountsContainersVersionsUndelete
, AccountsContainersVersionsUndelete
, acvucContainerId
, acvucContainerVersionId
, acvucAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVersionsUndeleteResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"versions" :>
Capture "containerVersionId" Text :>
"undelete" :>
QueryParam "alt" AltJSON :>
Post '[JSON] ContainerVersion
data AccountsContainersVersionsUndelete = AccountsContainersVersionsUndelete'
{ _acvucContainerId :: !Text
, _acvucContainerVersionId :: !Text
, _acvucAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVersionsUndelete
:: Text
-> Text
-> Text
-> AccountsContainersVersionsUndelete
accountsContainersVersionsUndelete pAcvucContainerId_ pAcvucContainerVersionId_ pAcvucAccountId_ =
AccountsContainersVersionsUndelete'
{ _acvucContainerId = pAcvucContainerId_
, _acvucContainerVersionId = pAcvucContainerVersionId_
, _acvucAccountId = pAcvucAccountId_
}
acvucContainerId :: Lens' AccountsContainersVersionsUndelete Text
acvucContainerId
= lens _acvucContainerId
(\ s a -> s{_acvucContainerId = a})
acvucContainerVersionId :: Lens' AccountsContainersVersionsUndelete Text
acvucContainerVersionId
= lens _acvucContainerVersionId
(\ s a -> s{_acvucContainerVersionId = a})
acvucAccountId :: Lens' AccountsContainersVersionsUndelete Text
acvucAccountId
= lens _acvucAccountId
(\ s a -> s{_acvucAccountId = a})
instance GoogleRequest
AccountsContainersVersionsUndelete where
type Rs AccountsContainersVersionsUndelete =
ContainerVersion
type Scopes AccountsContainersVersionsUndelete =
'["https://www.googleapis.com/auth/tagmanager.edit.containerversions"]
requestClient AccountsContainersVersionsUndelete'{..}
= go _acvucAccountId _acvucContainerId
_acvucContainerVersionId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVersionsUndeleteResource)
mempty