{-# 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.NodeTemplates.Delete
(
NodeTemplatesDeleteResource
, nodeTemplatesDelete
, NodeTemplatesDelete
, ntdRequestId
, ntdProject
, ntdNodeTemplate
, ntdRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type NodeTemplatesDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"nodeTemplates" :>
Capture "nodeTemplate" Text :>
QueryParam "requestId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data NodeTemplatesDelete = NodeTemplatesDelete'
{ _ntdRequestId :: !(Maybe Text)
, _ntdProject :: !Text
, _ntdNodeTemplate :: !Text
, _ntdRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
nodeTemplatesDelete
:: Text
-> Text
-> Text
-> NodeTemplatesDelete
nodeTemplatesDelete pNtdProject_ pNtdNodeTemplate_ pNtdRegion_ =
NodeTemplatesDelete'
{ _ntdRequestId = Nothing
, _ntdProject = pNtdProject_
, _ntdNodeTemplate = pNtdNodeTemplate_
, _ntdRegion = pNtdRegion_
}
ntdRequestId :: Lens' NodeTemplatesDelete (Maybe Text)
ntdRequestId
= lens _ntdRequestId (\ s a -> s{_ntdRequestId = a})
ntdProject :: Lens' NodeTemplatesDelete Text
ntdProject
= lens _ntdProject (\ s a -> s{_ntdProject = a})
ntdNodeTemplate :: Lens' NodeTemplatesDelete Text
ntdNodeTemplate
= lens _ntdNodeTemplate
(\ s a -> s{_ntdNodeTemplate = a})
ntdRegion :: Lens' NodeTemplatesDelete Text
ntdRegion
= lens _ntdRegion (\ s a -> s{_ntdRegion = a})
instance GoogleRequest NodeTemplatesDelete where
type Rs NodeTemplatesDelete = Operation
type Scopes NodeTemplatesDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient NodeTemplatesDelete'{..}
= go _ntdProject _ntdRegion _ntdNodeTemplate
_ntdRequestId
(Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy NodeTemplatesDeleteResource)
mempty