{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Monitoring.Projects.MonitoredResourceDescriptors.List
(
ProjectsMonitoredResourceDescriptorsListResource
, projectsMonitoredResourceDescriptorsList
, ProjectsMonitoredResourceDescriptorsList
, pmrdlXgafv
, pmrdlUploadProtocol
, pmrdlAccessToken
, pmrdlUploadType
, pmrdlName
, pmrdlFilter
, pmrdlPageToken
, pmrdlPageSize
, pmrdlCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsMonitoredResourceDescriptorsListResource
=
"v3" :>
Capture "name" Text :>
"monitoredResourceDescriptors" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
ListMonitoredResourceDescriptorsResponse
data ProjectsMonitoredResourceDescriptorsList = ProjectsMonitoredResourceDescriptorsList'
{ _pmrdlXgafv :: !(Maybe Xgafv)
, _pmrdlUploadProtocol :: !(Maybe Text)
, _pmrdlAccessToken :: !(Maybe Text)
, _pmrdlUploadType :: !(Maybe Text)
, _pmrdlName :: !Text
, _pmrdlFilter :: !(Maybe Text)
, _pmrdlPageToken :: !(Maybe Text)
, _pmrdlPageSize :: !(Maybe (Textual Int32))
, _pmrdlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsMonitoredResourceDescriptorsList
:: Text
-> ProjectsMonitoredResourceDescriptorsList
projectsMonitoredResourceDescriptorsList pPmrdlName_ =
ProjectsMonitoredResourceDescriptorsList'
{ _pmrdlXgafv = Nothing
, _pmrdlUploadProtocol = Nothing
, _pmrdlAccessToken = Nothing
, _pmrdlUploadType = Nothing
, _pmrdlName = pPmrdlName_
, _pmrdlFilter = Nothing
, _pmrdlPageToken = Nothing
, _pmrdlPageSize = Nothing
, _pmrdlCallback = Nothing
}
pmrdlXgafv :: Lens' ProjectsMonitoredResourceDescriptorsList (Maybe Xgafv)
pmrdlXgafv
= lens _pmrdlXgafv (\ s a -> s{_pmrdlXgafv = a})
pmrdlUploadProtocol :: Lens' ProjectsMonitoredResourceDescriptorsList (Maybe Text)
pmrdlUploadProtocol
= lens _pmrdlUploadProtocol
(\ s a -> s{_pmrdlUploadProtocol = a})
pmrdlAccessToken :: Lens' ProjectsMonitoredResourceDescriptorsList (Maybe Text)
pmrdlAccessToken
= lens _pmrdlAccessToken
(\ s a -> s{_pmrdlAccessToken = a})
pmrdlUploadType :: Lens' ProjectsMonitoredResourceDescriptorsList (Maybe Text)
pmrdlUploadType
= lens _pmrdlUploadType
(\ s a -> s{_pmrdlUploadType = a})
pmrdlName :: Lens' ProjectsMonitoredResourceDescriptorsList Text
pmrdlName
= lens _pmrdlName (\ s a -> s{_pmrdlName = a})
pmrdlFilter :: Lens' ProjectsMonitoredResourceDescriptorsList (Maybe Text)
pmrdlFilter
= lens _pmrdlFilter (\ s a -> s{_pmrdlFilter = a})
pmrdlPageToken :: Lens' ProjectsMonitoredResourceDescriptorsList (Maybe Text)
pmrdlPageToken
= lens _pmrdlPageToken
(\ s a -> s{_pmrdlPageToken = a})
pmrdlPageSize :: Lens' ProjectsMonitoredResourceDescriptorsList (Maybe Int32)
pmrdlPageSize
= lens _pmrdlPageSize
(\ s a -> s{_pmrdlPageSize = a})
. mapping _Coerce
pmrdlCallback :: Lens' ProjectsMonitoredResourceDescriptorsList (Maybe Text)
pmrdlCallback
= lens _pmrdlCallback
(\ s a -> s{_pmrdlCallback = a})
instance GoogleRequest
ProjectsMonitoredResourceDescriptorsList where
type Rs ProjectsMonitoredResourceDescriptorsList =
ListMonitoredResourceDescriptorsResponse
type Scopes ProjectsMonitoredResourceDescriptorsList
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring",
"https://www.googleapis.com/auth/monitoring.read",
"https://www.googleapis.com/auth/monitoring.write"]
requestClient
ProjectsMonitoredResourceDescriptorsList'{..}
= go _pmrdlName _pmrdlXgafv _pmrdlUploadProtocol
_pmrdlAccessToken
_pmrdlUploadType
_pmrdlFilter
_pmrdlPageToken
_pmrdlPageSize
_pmrdlCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy ::
Proxy
ProjectsMonitoredResourceDescriptorsListResource)
mempty