module Network.Google.Resource.TagManager.Accounts.Containers.Folders.Create
(
AccountsContainersFoldersCreateResource
, accountsContainersFoldersCreate
, AccountsContainersFoldersCreate
, acfcContainerId
, acfcPayload
, acfcAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersFoldersCreateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"folders" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Folder :> Post '[JSON] Folder
data AccountsContainersFoldersCreate = AccountsContainersFoldersCreate'
{ _acfcContainerId :: !Text
, _acfcPayload :: !Folder
, _acfcAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersFoldersCreate
:: Text
-> Folder
-> Text
-> AccountsContainersFoldersCreate
accountsContainersFoldersCreate pAcfcContainerId_ pAcfcPayload_ pAcfcAccountId_ =
AccountsContainersFoldersCreate'
{ _acfcContainerId = pAcfcContainerId_
, _acfcPayload = pAcfcPayload_
, _acfcAccountId = pAcfcAccountId_
}
acfcContainerId :: Lens' AccountsContainersFoldersCreate Text
acfcContainerId
= lens _acfcContainerId
(\ s a -> s{_acfcContainerId = a})
acfcPayload :: Lens' AccountsContainersFoldersCreate Folder
acfcPayload
= lens _acfcPayload (\ s a -> s{_acfcPayload = a})
acfcAccountId :: Lens' AccountsContainersFoldersCreate Text
acfcAccountId
= lens _acfcAccountId
(\ s a -> s{_acfcAccountId = a})
instance GoogleRequest
AccountsContainersFoldersCreate where
type Rs AccountsContainersFoldersCreate = Folder
type Scopes AccountsContainersFoldersCreate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersFoldersCreate'{..}
= go _acfcAccountId _acfcContainerId (Just AltJSON)
_acfcPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersFoldersCreateResource)
mempty