module Network.Google.Resource.Monitoring.Projects.MonitoredResourceDescriptors.Get
(
ProjectsMonitoredResourceDescriptorsGetResource
, projectsMonitoredResourceDescriptorsGet
, ProjectsMonitoredResourceDescriptorsGet
, pmrdgXgafv
, pmrdgUploadProtocol
, pmrdgPp
, pmrdgAccessToken
, pmrdgUploadType
, pmrdgBearerToken
, pmrdgName
, pmrdgCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsMonitoredResourceDescriptorsGetResource
=
"v3" :>
Capture "name" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] MonitoredResourceDescriptor
data ProjectsMonitoredResourceDescriptorsGet = ProjectsMonitoredResourceDescriptorsGet'
{ _pmrdgXgafv :: !(Maybe Text)
, _pmrdgUploadProtocol :: !(Maybe Text)
, _pmrdgPp :: !Bool
, _pmrdgAccessToken :: !(Maybe Text)
, _pmrdgUploadType :: !(Maybe Text)
, _pmrdgBearerToken :: !(Maybe Text)
, _pmrdgName :: !Text
, _pmrdgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsMonitoredResourceDescriptorsGet
:: Text
-> ProjectsMonitoredResourceDescriptorsGet
projectsMonitoredResourceDescriptorsGet pPmrdgName_ =
ProjectsMonitoredResourceDescriptorsGet'
{ _pmrdgXgafv = Nothing
, _pmrdgUploadProtocol = Nothing
, _pmrdgPp = True
, _pmrdgAccessToken = Nothing
, _pmrdgUploadType = Nothing
, _pmrdgBearerToken = Nothing
, _pmrdgName = pPmrdgName_
, _pmrdgCallback = Nothing
}
pmrdgXgafv :: Lens' ProjectsMonitoredResourceDescriptorsGet (Maybe Text)
pmrdgXgafv
= lens _pmrdgXgafv (\ s a -> s{_pmrdgXgafv = a})
pmrdgUploadProtocol :: Lens' ProjectsMonitoredResourceDescriptorsGet (Maybe Text)
pmrdgUploadProtocol
= lens _pmrdgUploadProtocol
(\ s a -> s{_pmrdgUploadProtocol = a})
pmrdgPp :: Lens' ProjectsMonitoredResourceDescriptorsGet Bool
pmrdgPp = lens _pmrdgPp (\ s a -> s{_pmrdgPp = a})
pmrdgAccessToken :: Lens' ProjectsMonitoredResourceDescriptorsGet (Maybe Text)
pmrdgAccessToken
= lens _pmrdgAccessToken
(\ s a -> s{_pmrdgAccessToken = a})
pmrdgUploadType :: Lens' ProjectsMonitoredResourceDescriptorsGet (Maybe Text)
pmrdgUploadType
= lens _pmrdgUploadType
(\ s a -> s{_pmrdgUploadType = a})
pmrdgBearerToken :: Lens' ProjectsMonitoredResourceDescriptorsGet (Maybe Text)
pmrdgBearerToken
= lens _pmrdgBearerToken
(\ s a -> s{_pmrdgBearerToken = a})
pmrdgName :: Lens' ProjectsMonitoredResourceDescriptorsGet Text
pmrdgName
= lens _pmrdgName (\ s a -> s{_pmrdgName = a})
pmrdgCallback :: Lens' ProjectsMonitoredResourceDescriptorsGet (Maybe Text)
pmrdgCallback
= lens _pmrdgCallback
(\ s a -> s{_pmrdgCallback = a})
instance GoogleRequest
ProjectsMonitoredResourceDescriptorsGet where
type Rs ProjectsMonitoredResourceDescriptorsGet =
MonitoredResourceDescriptor
type Scopes ProjectsMonitoredResourceDescriptorsGet =
'["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
ProjectsMonitoredResourceDescriptorsGet'{..}
= go _pmrdgName _pmrdgXgafv _pmrdgUploadProtocol
(Just _pmrdgPp)
_pmrdgAccessToken
_pmrdgUploadType
_pmrdgBearerToken
_pmrdgCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy ::
Proxy
ProjectsMonitoredResourceDescriptorsGetResource)
mempty