{-# 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.RegionOperations.Delete
(
RegionOperationsDeleteResource
, regionOperationsDelete
, RegionOperationsDelete
, rodProject
, rodOperation
, rodRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type RegionOperationsDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"operations" :>
Capture "operation" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data RegionOperationsDelete = RegionOperationsDelete'
{ _rodProject :: !Text
, _rodOperation :: !Text
, _rodRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
regionOperationsDelete
:: Text
-> Text
-> Text
-> RegionOperationsDelete
regionOperationsDelete pRodProject_ pRodOperation_ pRodRegion_ =
RegionOperationsDelete'
{ _rodProject = pRodProject_
, _rodOperation = pRodOperation_
, _rodRegion = pRodRegion_
}
rodProject :: Lens' RegionOperationsDelete Text
rodProject
= lens _rodProject (\ s a -> s{_rodProject = a})
rodOperation :: Lens' RegionOperationsDelete Text
rodOperation
= lens _rodOperation (\ s a -> s{_rodOperation = a})
rodRegion :: Lens' RegionOperationsDelete Text
rodRegion
= lens _rodRegion (\ s a -> s{_rodRegion = a})
instance GoogleRequest RegionOperationsDelete where
type Rs RegionOperationsDelete = ()
type Scopes RegionOperationsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient RegionOperationsDelete'{..}
= go _rodProject _rodRegion _rodOperation
(Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy RegionOperationsDeleteResource)
mempty