module Network.Google.Resource.TagManager.Accounts.Containers.Tags.List
(
AccountsContainersTagsListResource
, accountsContainersTagsList
, AccountsContainersTagsList
, actlContainerId
, actlAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersTagsListResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"tags" :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListTagsResponse
data AccountsContainersTagsList = AccountsContainersTagsList'
{ _actlContainerId :: !Text
, _actlAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersTagsList
:: Text
-> Text
-> AccountsContainersTagsList
accountsContainersTagsList pActlContainerId_ pActlAccountId_ =
AccountsContainersTagsList'
{ _actlContainerId = pActlContainerId_
, _actlAccountId = pActlAccountId_
}
actlContainerId :: Lens' AccountsContainersTagsList Text
actlContainerId
= lens _actlContainerId
(\ s a -> s{_actlContainerId = a})
actlAccountId :: Lens' AccountsContainersTagsList Text
actlAccountId
= lens _actlAccountId
(\ s a -> s{_actlAccountId = a})
instance GoogleRequest AccountsContainersTagsList
where
type Rs AccountsContainersTagsList = ListTagsResponse
type Scopes AccountsContainersTagsList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersTagsList'{..}
= go _actlAccountId _actlContainerId (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsContainersTagsListResource)
mempty