{-# 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.UptimeCheckConfigs.List
(
ProjectsUptimeCheckConfigsListResource
, projectsUptimeCheckConfigsList
, ProjectsUptimeCheckConfigsList
, pucclParent
, pucclXgafv
, pucclUploadProtocol
, pucclAccessToken
, pucclUploadType
, pucclPageToken
, pucclPageSize
, pucclCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsUptimeCheckConfigsListResource =
"v3" :>
Capture "parent" Text :>
"uptimeCheckConfigs" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListUptimeCheckConfigsResponse
data ProjectsUptimeCheckConfigsList = ProjectsUptimeCheckConfigsList'
{ _pucclParent :: !Text
, _pucclXgafv :: !(Maybe Xgafv)
, _pucclUploadProtocol :: !(Maybe Text)
, _pucclAccessToken :: !(Maybe Text)
, _pucclUploadType :: !(Maybe Text)
, _pucclPageToken :: !(Maybe Text)
, _pucclPageSize :: !(Maybe (Textual Int32))
, _pucclCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsUptimeCheckConfigsList
:: Text
-> ProjectsUptimeCheckConfigsList
projectsUptimeCheckConfigsList pPucclParent_ =
ProjectsUptimeCheckConfigsList'
{ _pucclParent = pPucclParent_
, _pucclXgafv = Nothing
, _pucclUploadProtocol = Nothing
, _pucclAccessToken = Nothing
, _pucclUploadType = Nothing
, _pucclPageToken = Nothing
, _pucclPageSize = Nothing
, _pucclCallback = Nothing
}
pucclParent :: Lens' ProjectsUptimeCheckConfigsList Text
pucclParent
= lens _pucclParent (\ s a -> s{_pucclParent = a})
pucclXgafv :: Lens' ProjectsUptimeCheckConfigsList (Maybe Xgafv)
pucclXgafv
= lens _pucclXgafv (\ s a -> s{_pucclXgafv = a})
pucclUploadProtocol :: Lens' ProjectsUptimeCheckConfigsList (Maybe Text)
pucclUploadProtocol
= lens _pucclUploadProtocol
(\ s a -> s{_pucclUploadProtocol = a})
pucclAccessToken :: Lens' ProjectsUptimeCheckConfigsList (Maybe Text)
pucclAccessToken
= lens _pucclAccessToken
(\ s a -> s{_pucclAccessToken = a})
pucclUploadType :: Lens' ProjectsUptimeCheckConfigsList (Maybe Text)
pucclUploadType
= lens _pucclUploadType
(\ s a -> s{_pucclUploadType = a})
pucclPageToken :: Lens' ProjectsUptimeCheckConfigsList (Maybe Text)
pucclPageToken
= lens _pucclPageToken
(\ s a -> s{_pucclPageToken = a})
pucclPageSize :: Lens' ProjectsUptimeCheckConfigsList (Maybe Int32)
pucclPageSize
= lens _pucclPageSize
(\ s a -> s{_pucclPageSize = a})
. mapping _Coerce
pucclCallback :: Lens' ProjectsUptimeCheckConfigsList (Maybe Text)
pucclCallback
= lens _pucclCallback
(\ s a -> s{_pucclCallback = a})
instance GoogleRequest ProjectsUptimeCheckConfigsList
where
type Rs ProjectsUptimeCheckConfigsList =
ListUptimeCheckConfigsResponse
type Scopes ProjectsUptimeCheckConfigsList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring",
"https://www.googleapis.com/auth/monitoring.read"]
requestClient ProjectsUptimeCheckConfigsList'{..}
= go _pucclParent _pucclXgafv _pucclUploadProtocol
_pucclAccessToken
_pucclUploadType
_pucclPageToken
_pucclPageSize
_pucclCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy ::
Proxy ProjectsUptimeCheckConfigsListResource)
mempty