module Network.Google.Resource.TagManager.Accounts.Containers.Tags.Update
(
AccountsContainersTagsUpdateResource
, accountsContainersTagsUpdate
, AccountsContainersTagsUpdate
, actucContainerId
, actucFingerprint
, actucPayload
, actucAccountId
, actucTagId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersTagsUpdateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"tags" :>
Capture "tagId" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Tag :> Put '[JSON] Tag
data AccountsContainersTagsUpdate = AccountsContainersTagsUpdate'
{ _actucContainerId :: !Text
, _actucFingerprint :: !(Maybe Text)
, _actucPayload :: !Tag
, _actucAccountId :: !Text
, _actucTagId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersTagsUpdate
:: Text
-> Tag
-> Text
-> Text
-> AccountsContainersTagsUpdate
accountsContainersTagsUpdate pActucContainerId_ pActucPayload_ pActucAccountId_ pActucTagId_ =
AccountsContainersTagsUpdate'
{ _actucContainerId = pActucContainerId_
, _actucFingerprint = Nothing
, _actucPayload = pActucPayload_
, _actucAccountId = pActucAccountId_
, _actucTagId = pActucTagId_
}
actucContainerId :: Lens' AccountsContainersTagsUpdate Text
actucContainerId
= lens _actucContainerId
(\ s a -> s{_actucContainerId = a})
actucFingerprint :: Lens' AccountsContainersTagsUpdate (Maybe Text)
actucFingerprint
= lens _actucFingerprint
(\ s a -> s{_actucFingerprint = a})
actucPayload :: Lens' AccountsContainersTagsUpdate Tag
actucPayload
= lens _actucPayload (\ s a -> s{_actucPayload = a})
actucAccountId :: Lens' AccountsContainersTagsUpdate Text
actucAccountId
= lens _actucAccountId
(\ s a -> s{_actucAccountId = a})
actucTagId :: Lens' AccountsContainersTagsUpdate Text
actucTagId
= lens _actucTagId (\ s a -> s{_actucTagId = a})
instance GoogleRequest AccountsContainersTagsUpdate
where
type Rs AccountsContainersTagsUpdate = Tag
type Scopes AccountsContainersTagsUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersTagsUpdate'{..}
= go _actucAccountId _actucContainerId _actucTagId
_actucFingerprint
(Just AltJSON)
_actucPayload
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsContainersTagsUpdateResource)
mempty