module Network.Google.Resource.Monitoring.Projects.Categories.MetricAssociations.Create
(
ProjectsCategoriesMetricAssociationsCreateResource
, projectsCategoriesMetricAssociationsCreate
, ProjectsCategoriesMetricAssociationsCreate
, pcmacParent
, pcmacXgafv
, pcmacUploadProtocol
, pcmacPp
, pcmacAccessToken
, pcmacUploadType
, pcmacPayload
, pcmacBearerToken
, pcmacCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsCategoriesMetricAssociationsCreateResource
=
"v3" :>
Capture "parent" Text :>
"metricAssociations" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] MetricAssociation :>
Post '[JSON] MetricAssociation
data ProjectsCategoriesMetricAssociationsCreate = ProjectsCategoriesMetricAssociationsCreate'
{ _pcmacParent :: !Text
, _pcmacXgafv :: !(Maybe Xgafv)
, _pcmacUploadProtocol :: !(Maybe Text)
, _pcmacPp :: !Bool
, _pcmacAccessToken :: !(Maybe Text)
, _pcmacUploadType :: !(Maybe Text)
, _pcmacPayload :: !MetricAssociation
, _pcmacBearerToken :: !(Maybe Text)
, _pcmacCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsCategoriesMetricAssociationsCreate
:: Text
-> MetricAssociation
-> ProjectsCategoriesMetricAssociationsCreate
projectsCategoriesMetricAssociationsCreate pPcmacParent_ pPcmacPayload_ =
ProjectsCategoriesMetricAssociationsCreate'
{ _pcmacParent = pPcmacParent_
, _pcmacXgafv = Nothing
, _pcmacUploadProtocol = Nothing
, _pcmacPp = True
, _pcmacAccessToken = Nothing
, _pcmacUploadType = Nothing
, _pcmacPayload = pPcmacPayload_
, _pcmacBearerToken = Nothing
, _pcmacCallback = Nothing
}
pcmacParent :: Lens' ProjectsCategoriesMetricAssociationsCreate Text
pcmacParent
= lens _pcmacParent (\ s a -> s{_pcmacParent = a})
pcmacXgafv :: Lens' ProjectsCategoriesMetricAssociationsCreate (Maybe Xgafv)
pcmacXgafv
= lens _pcmacXgafv (\ s a -> s{_pcmacXgafv = a})
pcmacUploadProtocol :: Lens' ProjectsCategoriesMetricAssociationsCreate (Maybe Text)
pcmacUploadProtocol
= lens _pcmacUploadProtocol
(\ s a -> s{_pcmacUploadProtocol = a})
pcmacPp :: Lens' ProjectsCategoriesMetricAssociationsCreate Bool
pcmacPp = lens _pcmacPp (\ s a -> s{_pcmacPp = a})
pcmacAccessToken :: Lens' ProjectsCategoriesMetricAssociationsCreate (Maybe Text)
pcmacAccessToken
= lens _pcmacAccessToken
(\ s a -> s{_pcmacAccessToken = a})
pcmacUploadType :: Lens' ProjectsCategoriesMetricAssociationsCreate (Maybe Text)
pcmacUploadType
= lens _pcmacUploadType
(\ s a -> s{_pcmacUploadType = a})
pcmacPayload :: Lens' ProjectsCategoriesMetricAssociationsCreate MetricAssociation
pcmacPayload
= lens _pcmacPayload (\ s a -> s{_pcmacPayload = a})
pcmacBearerToken :: Lens' ProjectsCategoriesMetricAssociationsCreate (Maybe Text)
pcmacBearerToken
= lens _pcmacBearerToken
(\ s a -> s{_pcmacBearerToken = a})
pcmacCallback :: Lens' ProjectsCategoriesMetricAssociationsCreate (Maybe Text)
pcmacCallback
= lens _pcmacCallback
(\ s a -> s{_pcmacCallback = a})
instance GoogleRequest
ProjectsCategoriesMetricAssociationsCreate where
type Rs ProjectsCategoriesMetricAssociationsCreate =
MetricAssociation
type Scopes
ProjectsCategoriesMetricAssociationsCreate
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring"]
requestClient
ProjectsCategoriesMetricAssociationsCreate'{..}
= go _pcmacParent _pcmacXgafv _pcmacUploadProtocol
(Just _pcmacPp)
_pcmacAccessToken
_pcmacUploadType
_pcmacBearerToken
_pcmacCallback
(Just AltJSON)
_pcmacPayload
monitoringService
where go
= buildClient
(Proxy ::
Proxy
ProjectsCategoriesMetricAssociationsCreateResource)
mempty