module Network.Google.Resource.TagManager.Accounts.Containers.Get
(
AccountsContainersGetResource
, accountsContainersGet
, AccountsContainersGet
, acgContainerId
, acgAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersGetResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Container
data AccountsContainersGet = AccountsContainersGet'
{ _acgContainerId :: !Text
, _acgAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersGet
:: Text
-> Text
-> AccountsContainersGet
accountsContainersGet pAcgContainerId_ pAcgAccountId_ =
AccountsContainersGet'
{ _acgContainerId = pAcgContainerId_
, _acgAccountId = pAcgAccountId_
}
acgContainerId :: Lens' AccountsContainersGet Text
acgContainerId
= lens _acgContainerId
(\ s a -> s{_acgContainerId = a})
acgAccountId :: Lens' AccountsContainersGet Text
acgAccountId
= lens _acgAccountId (\ s a -> s{_acgAccountId = a})
instance GoogleRequest AccountsContainersGet where
type Rs AccountsContainersGet = Container
type Scopes AccountsContainersGet =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersGet'{..}
= go _acgAccountId _acgContainerId (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsContainersGetResource)
mempty