module Network.Google.Resource.TagManager.Accounts.Containers.Triggers.Create
(
AccountsContainersTriggersCreateResource
, accountsContainersTriggersCreate
, AccountsContainersTriggersCreate
, actcContainerId
, actcPayload
, actcAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersTriggersCreateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"triggers" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Trigger :> Post '[JSON] Trigger
data AccountsContainersTriggersCreate = AccountsContainersTriggersCreate'
{ _actcContainerId :: !Text
, _actcPayload :: !Trigger
, _actcAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersTriggersCreate
:: Text
-> Trigger
-> Text
-> AccountsContainersTriggersCreate
accountsContainersTriggersCreate pActcContainerId_ pActcPayload_ pActcAccountId_ =
AccountsContainersTriggersCreate'
{ _actcContainerId = pActcContainerId_
, _actcPayload = pActcPayload_
, _actcAccountId = pActcAccountId_
}
actcContainerId :: Lens' AccountsContainersTriggersCreate Text
actcContainerId
= lens _actcContainerId
(\ s a -> s{_actcContainerId = a})
actcPayload :: Lens' AccountsContainersTriggersCreate Trigger
actcPayload
= lens _actcPayload (\ s a -> s{_actcPayload = a})
actcAccountId :: Lens' AccountsContainersTriggersCreate Text
actcAccountId
= lens _actcAccountId
(\ s a -> s{_actcAccountId = a})
instance GoogleRequest
AccountsContainersTriggersCreate where
type Rs AccountsContainersTriggersCreate = Trigger
type Scopes AccountsContainersTriggersCreate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersTriggersCreate'{..}
= go _actcAccountId _actcContainerId (Just AltJSON)
_actcPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersTriggersCreateResource)
mempty