module Network.Google.Resource.Monitoring.Projects.Categories.Create
(
ProjectsCategoriesCreateResource
, projectsCategoriesCreate
, ProjectsCategoriesCreate
, pccParent
, pccXgafv
, pccUploadProtocol
, pccPp
, pccAccessToken
, pccUploadType
, pccPayload
, pccBearerToken
, pccCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsCategoriesCreateResource =
"v3" :>
Capture "parent" Text :>
"categories" :>
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] Category :> Post '[JSON] Category
data ProjectsCategoriesCreate = ProjectsCategoriesCreate'
{ _pccParent :: !Text
, _pccXgafv :: !(Maybe Xgafv)
, _pccUploadProtocol :: !(Maybe Text)
, _pccPp :: !Bool
, _pccAccessToken :: !(Maybe Text)
, _pccUploadType :: !(Maybe Text)
, _pccPayload :: !Category
, _pccBearerToken :: !(Maybe Text)
, _pccCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsCategoriesCreate
:: Text
-> Category
-> ProjectsCategoriesCreate
projectsCategoriesCreate pPccParent_ pPccPayload_ =
ProjectsCategoriesCreate'
{ _pccParent = pPccParent_
, _pccXgafv = Nothing
, _pccUploadProtocol = Nothing
, _pccPp = True
, _pccAccessToken = Nothing
, _pccUploadType = Nothing
, _pccPayload = pPccPayload_
, _pccBearerToken = Nothing
, _pccCallback = Nothing
}
pccParent :: Lens' ProjectsCategoriesCreate Text
pccParent
= lens _pccParent (\ s a -> s{_pccParent = a})
pccXgafv :: Lens' ProjectsCategoriesCreate (Maybe Xgafv)
pccXgafv = lens _pccXgafv (\ s a -> s{_pccXgafv = a})
pccUploadProtocol :: Lens' ProjectsCategoriesCreate (Maybe Text)
pccUploadProtocol
= lens _pccUploadProtocol
(\ s a -> s{_pccUploadProtocol = a})
pccPp :: Lens' ProjectsCategoriesCreate Bool
pccPp = lens _pccPp (\ s a -> s{_pccPp = a})
pccAccessToken :: Lens' ProjectsCategoriesCreate (Maybe Text)
pccAccessToken
= lens _pccAccessToken
(\ s a -> s{_pccAccessToken = a})
pccUploadType :: Lens' ProjectsCategoriesCreate (Maybe Text)
pccUploadType
= lens _pccUploadType
(\ s a -> s{_pccUploadType = a})
pccPayload :: Lens' ProjectsCategoriesCreate Category
pccPayload
= lens _pccPayload (\ s a -> s{_pccPayload = a})
pccBearerToken :: Lens' ProjectsCategoriesCreate (Maybe Text)
pccBearerToken
= lens _pccBearerToken
(\ s a -> s{_pccBearerToken = a})
pccCallback :: Lens' ProjectsCategoriesCreate (Maybe Text)
pccCallback
= lens _pccCallback (\ s a -> s{_pccCallback = a})
instance GoogleRequest ProjectsCategoriesCreate where
type Rs ProjectsCategoriesCreate = Category
type Scopes ProjectsCategoriesCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring"]
requestClient ProjectsCategoriesCreate'{..}
= go _pccParent _pccXgafv _pccUploadProtocol
(Just _pccPp)
_pccAccessToken
_pccUploadType
_pccBearerToken
_pccCallback
(Just AltJSON)
_pccPayload
monitoringService
where go
= buildClient
(Proxy :: Proxy ProjectsCategoriesCreateResource)
mempty