module Network.Google.Resource.Compute.TargetHTTPSProxies.SetSSLCertificates
(
TargetHTTPSProxiesSetSSLCertificatesResource
, targetHTTPSProxiesSetSSLCertificates
, TargetHTTPSProxiesSetSSLCertificates
, thpsscProject
, thpsscPayload
, thpsscTargetHTTPSProxy
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type TargetHTTPSProxiesSetSSLCertificatesResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"targetHttpsProxies" :>
Capture "targetHttpsProxy" Text :>
"setSslCertificates" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
TargetHTTPSProxiesSetSSLCertificatesRequest
:> Post '[JSON] Operation
data TargetHTTPSProxiesSetSSLCertificates = TargetHTTPSProxiesSetSSLCertificates'
{ _thpsscProject :: !Text
, _thpsscPayload :: !TargetHTTPSProxiesSetSSLCertificatesRequest
, _thpsscTargetHTTPSProxy :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
targetHTTPSProxiesSetSSLCertificates
:: Text
-> TargetHTTPSProxiesSetSSLCertificatesRequest
-> Text
-> TargetHTTPSProxiesSetSSLCertificates
targetHTTPSProxiesSetSSLCertificates pThpsscProject_ pThpsscPayload_ pThpsscTargetHTTPSProxy_ =
TargetHTTPSProxiesSetSSLCertificates'
{ _thpsscProject = pThpsscProject_
, _thpsscPayload = pThpsscPayload_
, _thpsscTargetHTTPSProxy = pThpsscTargetHTTPSProxy_
}
thpsscProject :: Lens' TargetHTTPSProxiesSetSSLCertificates Text
thpsscProject
= lens _thpsscProject
(\ s a -> s{_thpsscProject = a})
thpsscPayload :: Lens' TargetHTTPSProxiesSetSSLCertificates TargetHTTPSProxiesSetSSLCertificatesRequest
thpsscPayload
= lens _thpsscPayload
(\ s a -> s{_thpsscPayload = a})
thpsscTargetHTTPSProxy :: Lens' TargetHTTPSProxiesSetSSLCertificates Text
thpsscTargetHTTPSProxy
= lens _thpsscTargetHTTPSProxy
(\ s a -> s{_thpsscTargetHTTPSProxy = a})
instance GoogleRequest
TargetHTTPSProxiesSetSSLCertificates where
type Rs TargetHTTPSProxiesSetSSLCertificates =
Operation
type Scopes TargetHTTPSProxiesSetSSLCertificates =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient
TargetHTTPSProxiesSetSSLCertificates'{..}
= go _thpsscProject _thpsscTargetHTTPSProxy
(Just AltJSON)
_thpsscPayload
computeService
where go
= buildClient
(Proxy ::
Proxy TargetHTTPSProxiesSetSSLCertificatesResource)
mempty