module Network.Google.Resource.Compute.TargetSSLProxies.SetSSLCertificates
(
TargetSSLProxiesSetSSLCertificatesResource
, targetSSLProxiesSetSSLCertificates
, TargetSSLProxiesSetSSLCertificates
, tspsscProject
, tspsscPayload
, tspsscTargetSSLProxy
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type TargetSSLProxiesSetSSLCertificatesResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"global" :>
"targetSslProxies" :>
Capture "targetSslProxy" Text :>
"setSslCertificates" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
TargetSSLProxiesSetSSLCertificatesRequest
:> Post '[JSON] Operation
data TargetSSLProxiesSetSSLCertificates = TargetSSLProxiesSetSSLCertificates'
{ _tspsscProject :: !Text
, _tspsscPayload :: !TargetSSLProxiesSetSSLCertificatesRequest
, _tspsscTargetSSLProxy :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
targetSSLProxiesSetSSLCertificates
:: Text
-> TargetSSLProxiesSetSSLCertificatesRequest
-> Text
-> TargetSSLProxiesSetSSLCertificates
targetSSLProxiesSetSSLCertificates pTspsscProject_ pTspsscPayload_ pTspsscTargetSSLProxy_ =
TargetSSLProxiesSetSSLCertificates'
{ _tspsscProject = pTspsscProject_
, _tspsscPayload = pTspsscPayload_
, _tspsscTargetSSLProxy = pTspsscTargetSSLProxy_
}
tspsscProject :: Lens' TargetSSLProxiesSetSSLCertificates Text
tspsscProject
= lens _tspsscProject
(\ s a -> s{_tspsscProject = a})
tspsscPayload :: Lens' TargetSSLProxiesSetSSLCertificates TargetSSLProxiesSetSSLCertificatesRequest
tspsscPayload
= lens _tspsscPayload
(\ s a -> s{_tspsscPayload = a})
tspsscTargetSSLProxy :: Lens' TargetSSLProxiesSetSSLCertificates Text
tspsscTargetSSLProxy
= lens _tspsscTargetSSLProxy
(\ s a -> s{_tspsscTargetSSLProxy = a})
instance GoogleRequest
TargetSSLProxiesSetSSLCertificates where
type Rs TargetSSLProxiesSetSSLCertificates =
Operation
type Scopes TargetSSLProxiesSetSSLCertificates =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient TargetSSLProxiesSetSSLCertificates'{..}
= go _tspsscProject _tspsscTargetSSLProxy
(Just AltJSON)
_tspsscPayload
computeService
where go
= buildClient
(Proxy ::
Proxy TargetSSLProxiesSetSSLCertificatesResource)
mempty