module Network.Google.Resource.TagManager.Accounts.Containers.Versions.Create
(
AccountsContainersVersionsCreateResource
, accountsContainersVersionsCreate
, AccountsContainersVersionsCreate
, aContainerId
, aPayload
, aAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVersionsCreateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"versions" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
CreateContainerVersionRequestVersionOptions
:> Post '[JSON] CreateContainerVersionResponse
data AccountsContainersVersionsCreate = AccountsContainersVersionsCreate'
{ _aContainerId :: !Text
, _aPayload :: !CreateContainerVersionRequestVersionOptions
, _aAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVersionsCreate
:: Text
-> CreateContainerVersionRequestVersionOptions
-> Text
-> AccountsContainersVersionsCreate
accountsContainersVersionsCreate pAContainerId_ pAPayload_ pAAccountId_ =
AccountsContainersVersionsCreate'
{ _aContainerId = pAContainerId_
, _aPayload = pAPayload_
, _aAccountId = pAAccountId_
}
aContainerId :: Lens' AccountsContainersVersionsCreate Text
aContainerId
= lens _aContainerId (\ s a -> s{_aContainerId = a})
aPayload :: Lens' AccountsContainersVersionsCreate CreateContainerVersionRequestVersionOptions
aPayload = lens _aPayload (\ s a -> s{_aPayload = a})
aAccountId :: Lens' AccountsContainersVersionsCreate Text
aAccountId
= lens _aAccountId (\ s a -> s{_aAccountId = a})
instance GoogleRequest
AccountsContainersVersionsCreate where
type Rs AccountsContainersVersionsCreate =
CreateContainerVersionResponse
type Scopes AccountsContainersVersionsCreate =
'["https://www.googleapis.com/auth/tagmanager.edit.containerversions"]
requestClient AccountsContainersVersionsCreate'{..}
= go _aAccountId _aContainerId (Just AltJSON)
_aPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVersionsCreateResource)
mempty