{-# 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.AppEngine.Apps.AuthorizedCertificates.Delete
(
AppsAuthorizedCertificatesDeleteResource
, appsAuthorizedCertificatesDelete
, AppsAuthorizedCertificatesDelete
, aacdAuthorizedCertificatesId
, aacdXgafv
, aacdUploadProtocol
, aacdAccessToken
, aacdUploadType
, aacdAppsId
, aacdCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsAuthorizedCertificatesDeleteResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"authorizedCertificates" :>
Capture "authorizedCertificatesId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data AppsAuthorizedCertificatesDelete = AppsAuthorizedCertificatesDelete'
{ _aacdAuthorizedCertificatesId :: !Text
, _aacdXgafv :: !(Maybe Xgafv)
, _aacdUploadProtocol :: !(Maybe Text)
, _aacdAccessToken :: !(Maybe Text)
, _aacdUploadType :: !(Maybe Text)
, _aacdAppsId :: !Text
, _aacdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsAuthorizedCertificatesDelete
:: Text
-> Text
-> AppsAuthorizedCertificatesDelete
appsAuthorizedCertificatesDelete pAacdAuthorizedCertificatesId_ pAacdAppsId_ =
AppsAuthorizedCertificatesDelete'
{ _aacdAuthorizedCertificatesId = pAacdAuthorizedCertificatesId_
, _aacdXgafv = Nothing
, _aacdUploadProtocol = Nothing
, _aacdAccessToken = Nothing
, _aacdUploadType = Nothing
, _aacdAppsId = pAacdAppsId_
, _aacdCallback = Nothing
}
aacdAuthorizedCertificatesId :: Lens' AppsAuthorizedCertificatesDelete Text
aacdAuthorizedCertificatesId
= lens _aacdAuthorizedCertificatesId
(\ s a -> s{_aacdAuthorizedCertificatesId = a})
aacdXgafv :: Lens' AppsAuthorizedCertificatesDelete (Maybe Xgafv)
aacdXgafv
= lens _aacdXgafv (\ s a -> s{_aacdXgafv = a})
aacdUploadProtocol :: Lens' AppsAuthorizedCertificatesDelete (Maybe Text)
aacdUploadProtocol
= lens _aacdUploadProtocol
(\ s a -> s{_aacdUploadProtocol = a})
aacdAccessToken :: Lens' AppsAuthorizedCertificatesDelete (Maybe Text)
aacdAccessToken
= lens _aacdAccessToken
(\ s a -> s{_aacdAccessToken = a})
aacdUploadType :: Lens' AppsAuthorizedCertificatesDelete (Maybe Text)
aacdUploadType
= lens _aacdUploadType
(\ s a -> s{_aacdUploadType = a})
aacdAppsId :: Lens' AppsAuthorizedCertificatesDelete Text
aacdAppsId
= lens _aacdAppsId (\ s a -> s{_aacdAppsId = a})
aacdCallback :: Lens' AppsAuthorizedCertificatesDelete (Maybe Text)
aacdCallback
= lens _aacdCallback (\ s a -> s{_aacdCallback = a})
instance GoogleRequest
AppsAuthorizedCertificatesDelete where
type Rs AppsAuthorizedCertificatesDelete = Empty
type Scopes AppsAuthorizedCertificatesDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsAuthorizedCertificatesDelete'{..}
= go _aacdAppsId _aacdAuthorizedCertificatesId
_aacdXgafv
_aacdUploadProtocol
_aacdAccessToken
_aacdUploadType
_aacdCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy ::
Proxy AppsAuthorizedCertificatesDeleteResource)
mempty