{-# 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.Compute.TargetHTTPSProxies.Delete
(
TargetHTTPSProxiesDeleteResource
, targetHTTPSProxiesDelete
, TargetHTTPSProxiesDelete
, thpdRequestId
, thpdProject
, thpdTargetHTTPSProxy
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type TargetHTTPSProxiesDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"global" :>
"targetHttpsProxies" :>
Capture "targetHttpsProxy" Text :>
QueryParam "requestId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data TargetHTTPSProxiesDelete = TargetHTTPSProxiesDelete'
{ _thpdRequestId :: !(Maybe Text)
, _thpdProject :: !Text
, _thpdTargetHTTPSProxy :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
targetHTTPSProxiesDelete
:: Text
-> Text
-> TargetHTTPSProxiesDelete
targetHTTPSProxiesDelete pThpdProject_ pThpdTargetHTTPSProxy_ =
TargetHTTPSProxiesDelete'
{ _thpdRequestId = Nothing
, _thpdProject = pThpdProject_
, _thpdTargetHTTPSProxy = pThpdTargetHTTPSProxy_
}
thpdRequestId :: Lens' TargetHTTPSProxiesDelete (Maybe Text)
thpdRequestId
= lens _thpdRequestId
(\ s a -> s{_thpdRequestId = a})
thpdProject :: Lens' TargetHTTPSProxiesDelete Text
thpdProject
= lens _thpdProject (\ s a -> s{_thpdProject = a})
thpdTargetHTTPSProxy :: Lens' TargetHTTPSProxiesDelete Text
thpdTargetHTTPSProxy
= lens _thpdTargetHTTPSProxy
(\ s a -> s{_thpdTargetHTTPSProxy = a})
instance GoogleRequest TargetHTTPSProxiesDelete where
type Rs TargetHTTPSProxiesDelete = Operation
type Scopes TargetHTTPSProxiesDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient TargetHTTPSProxiesDelete'{..}
= go _thpdProject _thpdTargetHTTPSProxy
_thpdRequestId
(Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy TargetHTTPSProxiesDeleteResource)
mempty