module Network.Google.Resource.TagManager.Accounts.Containers.Tags.Create
(
AccountsContainersTagsCreateResource
, accountsContainersTagsCreate
, AccountsContainersTagsCreate
, actccContainerId
, actccPayload
, actccAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersTagsCreateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"tags" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Tag :> Post '[JSON] Tag
data AccountsContainersTagsCreate = AccountsContainersTagsCreate'
{ _actccContainerId :: !Text
, _actccPayload :: !Tag
, _actccAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersTagsCreate
:: Text
-> Tag
-> Text
-> AccountsContainersTagsCreate
accountsContainersTagsCreate pActccContainerId_ pActccPayload_ pActccAccountId_ =
AccountsContainersTagsCreate'
{ _actccContainerId = pActccContainerId_
, _actccPayload = pActccPayload_
, _actccAccountId = pActccAccountId_
}
actccContainerId :: Lens' AccountsContainersTagsCreate Text
actccContainerId
= lens _actccContainerId
(\ s a -> s{_actccContainerId = a})
actccPayload :: Lens' AccountsContainersTagsCreate Tag
actccPayload
= lens _actccPayload (\ s a -> s{_actccPayload = a})
actccAccountId :: Lens' AccountsContainersTagsCreate Text
actccAccountId
= lens _actccAccountId
(\ s a -> s{_actccAccountId = a})
instance GoogleRequest AccountsContainersTagsCreate
where
type Rs AccountsContainersTagsCreate = Tag
type Scopes AccountsContainersTagsCreate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersTagsCreate'{..}
= go _actccAccountId _actccContainerId (Just AltJSON)
_actccPayload
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsContainersTagsCreateResource)
mempty