{-# 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.RegionAutoscalers.Delete
(
RegionAutoscalersDeleteResource
, regionAutoscalersDelete
, RegionAutoscalersDelete
, radRequestId
, radProject
, radAutoscaler
, radRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type RegionAutoscalersDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"autoscalers" :>
Capture "autoscaler" Text :>
QueryParam "requestId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data RegionAutoscalersDelete =
RegionAutoscalersDelete'
{ _radRequestId :: !(Maybe Text)
, _radProject :: !Text
, _radAutoscaler :: !Text
, _radRegion :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
regionAutoscalersDelete
:: Text
-> Text
-> Text
-> RegionAutoscalersDelete
regionAutoscalersDelete pRadProject_ pRadAutoscaler_ pRadRegion_ =
RegionAutoscalersDelete'
{ _radRequestId = Nothing
, _radProject = pRadProject_
, _radAutoscaler = pRadAutoscaler_
, _radRegion = pRadRegion_
}
radRequestId :: Lens' RegionAutoscalersDelete (Maybe Text)
radRequestId
= lens _radRequestId (\ s a -> s{_radRequestId = a})
radProject :: Lens' RegionAutoscalersDelete Text
radProject
= lens _radProject (\ s a -> s{_radProject = a})
radAutoscaler :: Lens' RegionAutoscalersDelete Text
radAutoscaler
= lens _radAutoscaler
(\ s a -> s{_radAutoscaler = a})
radRegion :: Lens' RegionAutoscalersDelete Text
radRegion
= lens _radRegion (\ s a -> s{_radRegion = a})
instance GoogleRequest RegionAutoscalersDelete where
type Rs RegionAutoscalersDelete = Operation
type Scopes RegionAutoscalersDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient RegionAutoscalersDelete'{..}
= go _radProject _radRegion _radAutoscaler
_radRequestId
(Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy RegionAutoscalersDeleteResource)
mempty