module Network.Google.Resource.Monitoring.Projects.Categories.List
(
ProjectsCategoriesListResource
, projectsCategoriesList
, ProjectsCategoriesList
, pclParent
, pclXgafv
, pclUploadProtocol
, pclPp
, pclAccessToken
, pclUploadType
, pclBearerToken
, pclFilter
, pclPageToken
, pclPageSize
, pclCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsCategoriesListResource =
"v3" :>
Capture "parent" Text :>
"categories" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListCategoriesResponse
data ProjectsCategoriesList = ProjectsCategoriesList'
{ _pclParent :: !Text
, _pclXgafv :: !(Maybe Xgafv)
, _pclUploadProtocol :: !(Maybe Text)
, _pclPp :: !Bool
, _pclAccessToken :: !(Maybe Text)
, _pclUploadType :: !(Maybe Text)
, _pclBearerToken :: !(Maybe Text)
, _pclFilter :: !(Maybe Text)
, _pclPageToken :: !(Maybe Text)
, _pclPageSize :: !(Maybe (Textual Int32))
, _pclCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsCategoriesList
:: Text
-> ProjectsCategoriesList
projectsCategoriesList pPclParent_ =
ProjectsCategoriesList'
{ _pclParent = pPclParent_
, _pclXgafv = Nothing
, _pclUploadProtocol = Nothing
, _pclPp = True
, _pclAccessToken = Nothing
, _pclUploadType = Nothing
, _pclBearerToken = Nothing
, _pclFilter = Nothing
, _pclPageToken = Nothing
, _pclPageSize = Nothing
, _pclCallback = Nothing
}
pclParent :: Lens' ProjectsCategoriesList Text
pclParent
= lens _pclParent (\ s a -> s{_pclParent = a})
pclXgafv :: Lens' ProjectsCategoriesList (Maybe Xgafv)
pclXgafv = lens _pclXgafv (\ s a -> s{_pclXgafv = a})
pclUploadProtocol :: Lens' ProjectsCategoriesList (Maybe Text)
pclUploadProtocol
= lens _pclUploadProtocol
(\ s a -> s{_pclUploadProtocol = a})
pclPp :: Lens' ProjectsCategoriesList Bool
pclPp = lens _pclPp (\ s a -> s{_pclPp = a})
pclAccessToken :: Lens' ProjectsCategoriesList (Maybe Text)
pclAccessToken
= lens _pclAccessToken
(\ s a -> s{_pclAccessToken = a})
pclUploadType :: Lens' ProjectsCategoriesList (Maybe Text)
pclUploadType
= lens _pclUploadType
(\ s a -> s{_pclUploadType = a})
pclBearerToken :: Lens' ProjectsCategoriesList (Maybe Text)
pclBearerToken
= lens _pclBearerToken
(\ s a -> s{_pclBearerToken = a})
pclFilter :: Lens' ProjectsCategoriesList (Maybe Text)
pclFilter
= lens _pclFilter (\ s a -> s{_pclFilter = a})
pclPageToken :: Lens' ProjectsCategoriesList (Maybe Text)
pclPageToken
= lens _pclPageToken (\ s a -> s{_pclPageToken = a})
pclPageSize :: Lens' ProjectsCategoriesList (Maybe Int32)
pclPageSize
= lens _pclPageSize (\ s a -> s{_pclPageSize = a}) .
mapping _Coerce
pclCallback :: Lens' ProjectsCategoriesList (Maybe Text)
pclCallback
= lens _pclCallback (\ s a -> s{_pclCallback = a})
instance GoogleRequest ProjectsCategoriesList where
type Rs ProjectsCategoriesList =
ListCategoriesResponse
type Scopes ProjectsCategoriesList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring",
"https://www.googleapis.com/auth/monitoring.read"]
requestClient ProjectsCategoriesList'{..}
= go _pclParent _pclXgafv _pclUploadProtocol
(Just _pclPp)
_pclAccessToken
_pclUploadType
_pclBearerToken
_pclFilter
_pclPageToken
_pclPageSize
_pclCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy :: Proxy ProjectsCategoriesListResource)
mempty