{-# 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.Autoscalers.Delete
(
AutoscalersDeleteResource
, autoscalersDelete
, AutoscalersDelete
, adRequestId
, adProject
, adZone
, adAutoscaler
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type AutoscalersDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"autoscalers" :>
Capture "autoscaler" Text :>
QueryParam "requestId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data AutoscalersDelete = AutoscalersDelete'
{ _adRequestId :: !(Maybe Text)
, _adProject :: !Text
, _adZone :: !Text
, _adAutoscaler :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
autoscalersDelete
:: Text
-> Text
-> Text
-> AutoscalersDelete
autoscalersDelete pAdProject_ pAdZone_ pAdAutoscaler_ =
AutoscalersDelete'
{ _adRequestId = Nothing
, _adProject = pAdProject_
, _adZone = pAdZone_
, _adAutoscaler = pAdAutoscaler_
}
adRequestId :: Lens' AutoscalersDelete (Maybe Text)
adRequestId
= lens _adRequestId (\ s a -> s{_adRequestId = a})
adProject :: Lens' AutoscalersDelete Text
adProject
= lens _adProject (\ s a -> s{_adProject = a})
adZone :: Lens' AutoscalersDelete Text
adZone = lens _adZone (\ s a -> s{_adZone = a})
adAutoscaler :: Lens' AutoscalersDelete Text
adAutoscaler
= lens _adAutoscaler (\ s a -> s{_adAutoscaler = a})
instance GoogleRequest AutoscalersDelete where
type Rs AutoscalersDelete = Operation
type Scopes AutoscalersDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient AutoscalersDelete'{..}
= go _adProject _adZone _adAutoscaler _adRequestId
(Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy AutoscalersDeleteResource)
mempty