module Network.Google.Resource.TagManager.Accounts.Containers.Environments.Create
(
AccountsContainersEnvironmentsCreateResource
, accountsContainersEnvironmentsCreate
, AccountsContainersEnvironmentsCreate
, acecContainerId
, acecPayload
, acecAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersEnvironmentsCreateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"environments" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Environment :>
Post '[JSON] Environment
data AccountsContainersEnvironmentsCreate = AccountsContainersEnvironmentsCreate'
{ _acecContainerId :: !Text
, _acecPayload :: !Environment
, _acecAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersEnvironmentsCreate
:: Text
-> Environment
-> Text
-> AccountsContainersEnvironmentsCreate
accountsContainersEnvironmentsCreate pAcecContainerId_ pAcecPayload_ pAcecAccountId_ =
AccountsContainersEnvironmentsCreate'
{ _acecContainerId = pAcecContainerId_
, _acecPayload = pAcecPayload_
, _acecAccountId = pAcecAccountId_
}
acecContainerId :: Lens' AccountsContainersEnvironmentsCreate Text
acecContainerId
= lens _acecContainerId
(\ s a -> s{_acecContainerId = a})
acecPayload :: Lens' AccountsContainersEnvironmentsCreate Environment
acecPayload
= lens _acecPayload (\ s a -> s{_acecPayload = a})
acecAccountId :: Lens' AccountsContainersEnvironmentsCreate Text
acecAccountId
= lens _acecAccountId
(\ s a -> s{_acecAccountId = a})
instance GoogleRequest
AccountsContainersEnvironmentsCreate where
type Rs AccountsContainersEnvironmentsCreate =
Environment
type Scopes AccountsContainersEnvironmentsCreate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient
AccountsContainersEnvironmentsCreate'{..}
= go _acecAccountId _acecContainerId (Just AltJSON)
_acecPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersEnvironmentsCreateResource)
mempty