module Network.Google.Resource.TagManager.Accounts.Containers.Variables.Get
(
AccountsContainersVariablesGetResource
, accountsContainersVariablesGet
, AccountsContainersVariablesGet
, acvgContainerId
, acvgVariableId
, acvgAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVariablesGetResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"variables" :>
Capture "variableId" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Variable
data AccountsContainersVariablesGet = AccountsContainersVariablesGet'
{ _acvgContainerId :: !Text
, _acvgVariableId :: !Text
, _acvgAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVariablesGet
:: Text
-> Text
-> Text
-> AccountsContainersVariablesGet
accountsContainersVariablesGet pAcvgContainerId_ pAcvgVariableId_ pAcvgAccountId_ =
AccountsContainersVariablesGet'
{ _acvgContainerId = pAcvgContainerId_
, _acvgVariableId = pAcvgVariableId_
, _acvgAccountId = pAcvgAccountId_
}
acvgContainerId :: Lens' AccountsContainersVariablesGet Text
acvgContainerId
= lens _acvgContainerId
(\ s a -> s{_acvgContainerId = a})
acvgVariableId :: Lens' AccountsContainersVariablesGet Text
acvgVariableId
= lens _acvgVariableId
(\ s a -> s{_acvgVariableId = a})
acvgAccountId :: Lens' AccountsContainersVariablesGet Text
acvgAccountId
= lens _acvgAccountId
(\ s a -> s{_acvgAccountId = a})
instance GoogleRequest AccountsContainersVariablesGet
where
type Rs AccountsContainersVariablesGet = Variable
type Scopes AccountsContainersVariablesGet =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersVariablesGet'{..}
= go _acvgAccountId _acvgContainerId _acvgVariableId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVariablesGetResource)
mempty