module Network.Google.Resource.Logging.Projects.Metrics.List
(
ProjectsMetricsListResource
, projectsMetricsList
, ProjectsMetricsList
, pmlXgafv
, pmlUploadProtocol
, pmlPp
, pmlAccessToken
, pmlUploadType
, pmlBearerToken
, pmlProjectName
, pmlPageToken
, pmlPageSize
, pmlCallback
) where
import Network.Google.Logging.Types
import Network.Google.Prelude
type ProjectsMetricsListResource =
"v2beta1" :>
Capture "projectName" Text :>
"metrics" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListLogMetricsResponse
data ProjectsMetricsList = ProjectsMetricsList'
{ _pmlXgafv :: !(Maybe Text)
, _pmlUploadProtocol :: !(Maybe Text)
, _pmlPp :: !Bool
, _pmlAccessToken :: !(Maybe Text)
, _pmlUploadType :: !(Maybe Text)
, _pmlBearerToken :: !(Maybe Text)
, _pmlProjectName :: !Text
, _pmlPageToken :: !(Maybe Text)
, _pmlPageSize :: !(Maybe (Textual Int32))
, _pmlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsMetricsList
:: Text
-> ProjectsMetricsList
projectsMetricsList pPmlProjectName_ =
ProjectsMetricsList'
{ _pmlXgafv = Nothing
, _pmlUploadProtocol = Nothing
, _pmlPp = True
, _pmlAccessToken = Nothing
, _pmlUploadType = Nothing
, _pmlBearerToken = Nothing
, _pmlProjectName = pPmlProjectName_
, _pmlPageToken = Nothing
, _pmlPageSize = Nothing
, _pmlCallback = Nothing
}
pmlXgafv :: Lens' ProjectsMetricsList (Maybe Text)
pmlXgafv = lens _pmlXgafv (\ s a -> s{_pmlXgafv = a})
pmlUploadProtocol :: Lens' ProjectsMetricsList (Maybe Text)
pmlUploadProtocol
= lens _pmlUploadProtocol
(\ s a -> s{_pmlUploadProtocol = a})
pmlPp :: Lens' ProjectsMetricsList Bool
pmlPp = lens _pmlPp (\ s a -> s{_pmlPp = a})
pmlAccessToken :: Lens' ProjectsMetricsList (Maybe Text)
pmlAccessToken
= lens _pmlAccessToken
(\ s a -> s{_pmlAccessToken = a})
pmlUploadType :: Lens' ProjectsMetricsList (Maybe Text)
pmlUploadType
= lens _pmlUploadType
(\ s a -> s{_pmlUploadType = a})
pmlBearerToken :: Lens' ProjectsMetricsList (Maybe Text)
pmlBearerToken
= lens _pmlBearerToken
(\ s a -> s{_pmlBearerToken = a})
pmlProjectName :: Lens' ProjectsMetricsList Text
pmlProjectName
= lens _pmlProjectName
(\ s a -> s{_pmlProjectName = a})
pmlPageToken :: Lens' ProjectsMetricsList (Maybe Text)
pmlPageToken
= lens _pmlPageToken (\ s a -> s{_pmlPageToken = a})
pmlPageSize :: Lens' ProjectsMetricsList (Maybe Int32)
pmlPageSize
= lens _pmlPageSize (\ s a -> s{_pmlPageSize = a}) .
mapping _Coerce
pmlCallback :: Lens' ProjectsMetricsList (Maybe Text)
pmlCallback
= lens _pmlCallback (\ s a -> s{_pmlCallback = a})
instance GoogleRequest ProjectsMetricsList where
type Rs ProjectsMetricsList = ListLogMetricsResponse
type Scopes ProjectsMetricsList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only",
"https://www.googleapis.com/auth/logging.admin",
"https://www.googleapis.com/auth/logging.read"]
requestClient ProjectsMetricsList'{..}
= go _pmlProjectName _pmlXgafv _pmlUploadProtocol
(Just _pmlPp)
_pmlAccessToken
_pmlUploadType
_pmlBearerToken
_pmlPageToken
_pmlPageSize
_pmlCallback
(Just AltJSON)
loggingService
where go
= buildClient
(Proxy :: Proxy ProjectsMetricsListResource)
mempty