module Network.Google.Resource.TagManager.Accounts.Containers.Variables.Create
(
AccountsContainersVariablesCreateResource
, accountsContainersVariablesCreate
, AccountsContainersVariablesCreate
, acvcContainerId
, acvcPayload
, acvcAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVariablesCreateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"variables" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Variable :> Post '[JSON] Variable
data AccountsContainersVariablesCreate = AccountsContainersVariablesCreate'
{ _acvcContainerId :: !Text
, _acvcPayload :: !Variable
, _acvcAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVariablesCreate
:: Text
-> Variable
-> Text
-> AccountsContainersVariablesCreate
accountsContainersVariablesCreate pAcvcContainerId_ pAcvcPayload_ pAcvcAccountId_ =
AccountsContainersVariablesCreate'
{ _acvcContainerId = pAcvcContainerId_
, _acvcPayload = pAcvcPayload_
, _acvcAccountId = pAcvcAccountId_
}
acvcContainerId :: Lens' AccountsContainersVariablesCreate Text
acvcContainerId
= lens _acvcContainerId
(\ s a -> s{_acvcContainerId = a})
acvcPayload :: Lens' AccountsContainersVariablesCreate Variable
acvcPayload
= lens _acvcPayload (\ s a -> s{_acvcPayload = a})
acvcAccountId :: Lens' AccountsContainersVariablesCreate Text
acvcAccountId
= lens _acvcAccountId
(\ s a -> s{_acvcAccountId = a})
instance GoogleRequest
AccountsContainersVariablesCreate where
type Rs AccountsContainersVariablesCreate = Variable
type Scopes AccountsContainersVariablesCreate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersVariablesCreate'{..}
= go _acvcAccountId _acvcContainerId (Just AltJSON)
_acvcPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVariablesCreateResource)
mempty