module Network.Google.Resource.TagManager.Accounts.Containers.Triggers.Get
(
AccountsContainersTriggersGetResource
, accountsContainersTriggersGet
, AccountsContainersTriggersGet
, actgcContainerId
, actgcTriggerId
, actgcAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersTriggersGetResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"triggers" :>
Capture "triggerId" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Trigger
data AccountsContainersTriggersGet = AccountsContainersTriggersGet'
{ _actgcContainerId :: !Text
, _actgcTriggerId :: !Text
, _actgcAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersTriggersGet
:: Text
-> Text
-> Text
-> AccountsContainersTriggersGet
accountsContainersTriggersGet pActgcContainerId_ pActgcTriggerId_ pActgcAccountId_ =
AccountsContainersTriggersGet'
{ _actgcContainerId = pActgcContainerId_
, _actgcTriggerId = pActgcTriggerId_
, _actgcAccountId = pActgcAccountId_
}
actgcContainerId :: Lens' AccountsContainersTriggersGet Text
actgcContainerId
= lens _actgcContainerId
(\ s a -> s{_actgcContainerId = a})
actgcTriggerId :: Lens' AccountsContainersTriggersGet Text
actgcTriggerId
= lens _actgcTriggerId
(\ s a -> s{_actgcTriggerId = a})
actgcAccountId :: Lens' AccountsContainersTriggersGet Text
actgcAccountId
= lens _actgcAccountId
(\ s a -> s{_actgcAccountId = a})
instance GoogleRequest AccountsContainersTriggersGet
where
type Rs AccountsContainersTriggersGet = Trigger
type Scopes AccountsContainersTriggersGet =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersTriggersGet'{..}
= go _actgcAccountId _actgcContainerId
_actgcTriggerId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersTriggersGetResource)
mempty