{-# 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.Patch
(
AppsAuthorizedCertificatesPatchResource
, appsAuthorizedCertificatesPatch
, AppsAuthorizedCertificatesPatch
, aacpAuthorizedCertificatesId
, aacpXgafv
, aacpUploadProtocol
, aacpUpdateMask
, aacpAccessToken
, aacpUploadType
, aacpPayload
, aacpAppsId
, aacpCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsAuthorizedCertificatesPatchResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"authorizedCertificates" :>
Capture "authorizedCertificatesId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "updateMask" GFieldMask :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AuthorizedCertificate :>
Patch '[JSON] AuthorizedCertificate
data AppsAuthorizedCertificatesPatch = AppsAuthorizedCertificatesPatch'
{ _aacpAuthorizedCertificatesId :: !Text
, _aacpXgafv :: !(Maybe Xgafv)
, _aacpUploadProtocol :: !(Maybe Text)
, _aacpUpdateMask :: !(Maybe GFieldMask)
, _aacpAccessToken :: !(Maybe Text)
, _aacpUploadType :: !(Maybe Text)
, _aacpPayload :: !AuthorizedCertificate
, _aacpAppsId :: !Text
, _aacpCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsAuthorizedCertificatesPatch
:: Text
-> AuthorizedCertificate
-> Text
-> AppsAuthorizedCertificatesPatch
appsAuthorizedCertificatesPatch pAacpAuthorizedCertificatesId_ pAacpPayload_ pAacpAppsId_ =
AppsAuthorizedCertificatesPatch'
{ _aacpAuthorizedCertificatesId = pAacpAuthorizedCertificatesId_
, _aacpXgafv = Nothing
, _aacpUploadProtocol = Nothing
, _aacpUpdateMask = Nothing
, _aacpAccessToken = Nothing
, _aacpUploadType = Nothing
, _aacpPayload = pAacpPayload_
, _aacpAppsId = pAacpAppsId_
, _aacpCallback = Nothing
}
aacpAuthorizedCertificatesId :: Lens' AppsAuthorizedCertificatesPatch Text
aacpAuthorizedCertificatesId
= lens _aacpAuthorizedCertificatesId
(\ s a -> s{_aacpAuthorizedCertificatesId = a})
aacpXgafv :: Lens' AppsAuthorizedCertificatesPatch (Maybe Xgafv)
aacpXgafv
= lens _aacpXgafv (\ s a -> s{_aacpXgafv = a})
aacpUploadProtocol :: Lens' AppsAuthorizedCertificatesPatch (Maybe Text)
aacpUploadProtocol
= lens _aacpUploadProtocol
(\ s a -> s{_aacpUploadProtocol = a})
aacpUpdateMask :: Lens' AppsAuthorizedCertificatesPatch (Maybe GFieldMask)
aacpUpdateMask
= lens _aacpUpdateMask
(\ s a -> s{_aacpUpdateMask = a})
aacpAccessToken :: Lens' AppsAuthorizedCertificatesPatch (Maybe Text)
aacpAccessToken
= lens _aacpAccessToken
(\ s a -> s{_aacpAccessToken = a})
aacpUploadType :: Lens' AppsAuthorizedCertificatesPatch (Maybe Text)
aacpUploadType
= lens _aacpUploadType
(\ s a -> s{_aacpUploadType = a})
aacpPayload :: Lens' AppsAuthorizedCertificatesPatch AuthorizedCertificate
aacpPayload
= lens _aacpPayload (\ s a -> s{_aacpPayload = a})
aacpAppsId :: Lens' AppsAuthorizedCertificatesPatch Text
aacpAppsId
= lens _aacpAppsId (\ s a -> s{_aacpAppsId = a})
aacpCallback :: Lens' AppsAuthorizedCertificatesPatch (Maybe Text)
aacpCallback
= lens _aacpCallback (\ s a -> s{_aacpCallback = a})
instance GoogleRequest
AppsAuthorizedCertificatesPatch where
type Rs AppsAuthorizedCertificatesPatch =
AuthorizedCertificate
type Scopes AppsAuthorizedCertificatesPatch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsAuthorizedCertificatesPatch'{..}
= go _aacpAppsId _aacpAuthorizedCertificatesId
_aacpXgafv
_aacpUploadProtocol
_aacpUpdateMask
_aacpAccessToken
_aacpUploadType
_aacpCallback
(Just AltJSON)
_aacpPayload
appEngineService
where go
= buildClient
(Proxy ::
Proxy AppsAuthorizedCertificatesPatchResource)
mempty