{-# 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.TargetTCPProxies.Delete
(
TargetTCPProxiesDeleteResource
, targetTCPProxiesDelete
, TargetTCPProxiesDelete
, ttpdRequestId
, ttpdProject
, ttpdTargetTCPProxy
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type TargetTCPProxiesDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"global" :>
"targetTcpProxies" :>
Capture "targetTcpProxy" Text :>
QueryParam "requestId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data TargetTCPProxiesDelete = TargetTCPProxiesDelete'
{ _ttpdRequestId :: !(Maybe Text)
, _ttpdProject :: !Text
, _ttpdTargetTCPProxy :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
targetTCPProxiesDelete
:: Text
-> Text
-> TargetTCPProxiesDelete
targetTCPProxiesDelete pTtpdProject_ pTtpdTargetTCPProxy_ =
TargetTCPProxiesDelete'
{ _ttpdRequestId = Nothing
, _ttpdProject = pTtpdProject_
, _ttpdTargetTCPProxy = pTtpdTargetTCPProxy_
}
ttpdRequestId :: Lens' TargetTCPProxiesDelete (Maybe Text)
ttpdRequestId
= lens _ttpdRequestId
(\ s a -> s{_ttpdRequestId = a})
ttpdProject :: Lens' TargetTCPProxiesDelete Text
ttpdProject
= lens _ttpdProject (\ s a -> s{_ttpdProject = a})
ttpdTargetTCPProxy :: Lens' TargetTCPProxiesDelete Text
ttpdTargetTCPProxy
= lens _ttpdTargetTCPProxy
(\ s a -> s{_ttpdTargetTCPProxy = a})
instance GoogleRequest TargetTCPProxiesDelete where
type Rs TargetTCPProxiesDelete = Operation
type Scopes TargetTCPProxiesDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient TargetTCPProxiesDelete'{..}
= go _ttpdProject _ttpdTargetTCPProxy _ttpdRequestId
(Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy TargetTCPProxiesDeleteResource)
mempty