module Network.Google.Resource.TagManager.Accounts.Containers.Folders.Update
(
AccountsContainersFoldersUpdateResource
, accountsContainersFoldersUpdate
, AccountsContainersFoldersUpdate
, acfuContainerId
, acfuFingerprint
, acfuFolderId
, acfuPayload
, acfuAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersFoldersUpdateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"folders" :>
Capture "folderId" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Folder :> Put '[JSON] Folder
data AccountsContainersFoldersUpdate = AccountsContainersFoldersUpdate'
{ _acfuContainerId :: !Text
, _acfuFingerprint :: !(Maybe Text)
, _acfuFolderId :: !Text
, _acfuPayload :: !Folder
, _acfuAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersFoldersUpdate
:: Text
-> Text
-> Folder
-> Text
-> AccountsContainersFoldersUpdate
accountsContainersFoldersUpdate pAcfuContainerId_ pAcfuFolderId_ pAcfuPayload_ pAcfuAccountId_ =
AccountsContainersFoldersUpdate'
{ _acfuContainerId = pAcfuContainerId_
, _acfuFingerprint = Nothing
, _acfuFolderId = pAcfuFolderId_
, _acfuPayload = pAcfuPayload_
, _acfuAccountId = pAcfuAccountId_
}
acfuContainerId :: Lens' AccountsContainersFoldersUpdate Text
acfuContainerId
= lens _acfuContainerId
(\ s a -> s{_acfuContainerId = a})
acfuFingerprint :: Lens' AccountsContainersFoldersUpdate (Maybe Text)
acfuFingerprint
= lens _acfuFingerprint
(\ s a -> s{_acfuFingerprint = a})
acfuFolderId :: Lens' AccountsContainersFoldersUpdate Text
acfuFolderId
= lens _acfuFolderId (\ s a -> s{_acfuFolderId = a})
acfuPayload :: Lens' AccountsContainersFoldersUpdate Folder
acfuPayload
= lens _acfuPayload (\ s a -> s{_acfuPayload = a})
acfuAccountId :: Lens' AccountsContainersFoldersUpdate Text
acfuAccountId
= lens _acfuAccountId
(\ s a -> s{_acfuAccountId = a})
instance GoogleRequest
AccountsContainersFoldersUpdate where
type Rs AccountsContainersFoldersUpdate = Folder
type Scopes AccountsContainersFoldersUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersFoldersUpdate'{..}
= go _acfuAccountId _acfuContainerId _acfuFolderId
_acfuFingerprint
(Just AltJSON)
_acfuPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersFoldersUpdateResource)
mempty