{-# 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.NetworkEndpointGroups.DetachNetworkEndpoints
(
NetworkEndpointGroupsDetachNetworkEndpointsResource
, networkEndpointGroupsDetachNetworkEndpoints
, NetworkEndpointGroupsDetachNetworkEndpoints
, negdneRequestId
, negdneProject
, negdneZone
, negdnePayload
, negdneNetworkEndpointGroup
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type NetworkEndpointGroupsDetachNetworkEndpointsResource
=
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"networkEndpointGroups" :>
Capture "networkEndpointGroup" Text :>
"detachNetworkEndpoints" :>
QueryParam "requestId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
NetworkEndpointGroupsDetachEndpointsRequest
:> Post '[JSON] Operation
data NetworkEndpointGroupsDetachNetworkEndpoints =
NetworkEndpointGroupsDetachNetworkEndpoints'
{ _negdneRequestId :: !(Maybe Text)
, _negdneProject :: !Text
, _negdneZone :: !Text
, _negdnePayload :: !NetworkEndpointGroupsDetachEndpointsRequest
, _negdneNetworkEndpointGroup :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
networkEndpointGroupsDetachNetworkEndpoints
:: Text
-> Text
-> NetworkEndpointGroupsDetachEndpointsRequest
-> Text
-> NetworkEndpointGroupsDetachNetworkEndpoints
networkEndpointGroupsDetachNetworkEndpoints pNegdneProject_ pNegdneZone_ pNegdnePayload_ pNegdneNetworkEndpointGroup_ =
NetworkEndpointGroupsDetachNetworkEndpoints'
{ _negdneRequestId = Nothing
, _negdneProject = pNegdneProject_
, _negdneZone = pNegdneZone_
, _negdnePayload = pNegdnePayload_
, _negdneNetworkEndpointGroup = pNegdneNetworkEndpointGroup_
}
negdneRequestId :: Lens' NetworkEndpointGroupsDetachNetworkEndpoints (Maybe Text)
negdneRequestId
= lens _negdneRequestId
(\ s a -> s{_negdneRequestId = a})
negdneProject :: Lens' NetworkEndpointGroupsDetachNetworkEndpoints Text
negdneProject
= lens _negdneProject
(\ s a -> s{_negdneProject = a})
negdneZone :: Lens' NetworkEndpointGroupsDetachNetworkEndpoints Text
negdneZone
= lens _negdneZone (\ s a -> s{_negdneZone = a})
negdnePayload :: Lens' NetworkEndpointGroupsDetachNetworkEndpoints NetworkEndpointGroupsDetachEndpointsRequest
negdnePayload
= lens _negdnePayload
(\ s a -> s{_negdnePayload = a})
negdneNetworkEndpointGroup :: Lens' NetworkEndpointGroupsDetachNetworkEndpoints Text
negdneNetworkEndpointGroup
= lens _negdneNetworkEndpointGroup
(\ s a -> s{_negdneNetworkEndpointGroup = a})
instance GoogleRequest
NetworkEndpointGroupsDetachNetworkEndpoints
where
type Rs NetworkEndpointGroupsDetachNetworkEndpoints =
Operation
type Scopes
NetworkEndpointGroupsDetachNetworkEndpoints
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient
NetworkEndpointGroupsDetachNetworkEndpoints'{..}
= go _negdneProject _negdneZone
_negdneNetworkEndpointGroup
_negdneRequestId
(Just AltJSON)
_negdnePayload
computeService
where go
= buildClient
(Proxy ::
Proxy
NetworkEndpointGroupsDetachNetworkEndpointsResource)
mempty