module Network.Google.Resource.TagManager.Accounts.Containers.MoveFolders.Update
(
AccountsContainersMoveFoldersUpdateResource
, accountsContainersMoveFoldersUpdate
, AccountsContainersMoveFoldersUpdate
, acmfuContainerId
, acmfuTriggerId
, acmfuVariableId
, acmfuFolderId
, acmfuPayload
, acmfuAccountId
, acmfuTagId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersMoveFoldersUpdateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"move_folders" :>
Capture "folderId" Text :>
QueryParams "triggerId" Text :>
QueryParams "variableId" Text :>
QueryParams "tagId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Folder :> Put '[JSON] ()
data AccountsContainersMoveFoldersUpdate = AccountsContainersMoveFoldersUpdate'
{ _acmfuContainerId :: !Text
, _acmfuTriggerId :: !(Maybe [Text])
, _acmfuVariableId :: !(Maybe [Text])
, _acmfuFolderId :: !Text
, _acmfuPayload :: !Folder
, _acmfuAccountId :: !Text
, _acmfuTagId :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersMoveFoldersUpdate
:: Text
-> Text
-> Folder
-> Text
-> AccountsContainersMoveFoldersUpdate
accountsContainersMoveFoldersUpdate pAcmfuContainerId_ pAcmfuFolderId_ pAcmfuPayload_ pAcmfuAccountId_ =
AccountsContainersMoveFoldersUpdate'
{ _acmfuContainerId = pAcmfuContainerId_
, _acmfuTriggerId = Nothing
, _acmfuVariableId = Nothing
, _acmfuFolderId = pAcmfuFolderId_
, _acmfuPayload = pAcmfuPayload_
, _acmfuAccountId = pAcmfuAccountId_
, _acmfuTagId = Nothing
}
acmfuContainerId :: Lens' AccountsContainersMoveFoldersUpdate Text
acmfuContainerId
= lens _acmfuContainerId
(\ s a -> s{_acmfuContainerId = a})
acmfuTriggerId :: Lens' AccountsContainersMoveFoldersUpdate [Text]
acmfuTriggerId
= lens _acmfuTriggerId
(\ s a -> s{_acmfuTriggerId = a})
. _Default
. _Coerce
acmfuVariableId :: Lens' AccountsContainersMoveFoldersUpdate [Text]
acmfuVariableId
= lens _acmfuVariableId
(\ s a -> s{_acmfuVariableId = a})
. _Default
. _Coerce
acmfuFolderId :: Lens' AccountsContainersMoveFoldersUpdate Text
acmfuFolderId
= lens _acmfuFolderId
(\ s a -> s{_acmfuFolderId = a})
acmfuPayload :: Lens' AccountsContainersMoveFoldersUpdate Folder
acmfuPayload
= lens _acmfuPayload (\ s a -> s{_acmfuPayload = a})
acmfuAccountId :: Lens' AccountsContainersMoveFoldersUpdate Text
acmfuAccountId
= lens _acmfuAccountId
(\ s a -> s{_acmfuAccountId = a})
acmfuTagId :: Lens' AccountsContainersMoveFoldersUpdate [Text]
acmfuTagId
= lens _acmfuTagId (\ s a -> s{_acmfuTagId = a}) .
_Default
. _Coerce
instance GoogleRequest
AccountsContainersMoveFoldersUpdate where
type Rs AccountsContainersMoveFoldersUpdate = ()
type Scopes AccountsContainersMoveFoldersUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient
AccountsContainersMoveFoldersUpdate'{..}
= go _acmfuAccountId _acmfuContainerId _acmfuFolderId
(_acmfuTriggerId ^. _Default)
(_acmfuVariableId ^. _Default)
(_acmfuTagId ^. _Default)
(Just AltJSON)
_acmfuPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersMoveFoldersUpdateResource)
mempty