{-# 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.ContainerAnalysis.Projects.Notes.Delete
(
ProjectsNotesDeleteResource
, projectsNotesDelete
, ProjectsNotesDelete
, pndXgafv
, pndUploadProtocol
, pndAccessToken
, pndUploadType
, pndName
, pndCallback
) where
import Network.Google.ContainerAnalysis.Types
import Network.Google.Prelude
type ProjectsNotesDeleteResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data ProjectsNotesDelete = ProjectsNotesDelete'
{ _pndXgafv :: !(Maybe Xgafv)
, _pndUploadProtocol :: !(Maybe Text)
, _pndAccessToken :: !(Maybe Text)
, _pndUploadType :: !(Maybe Text)
, _pndName :: !Text
, _pndCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsNotesDelete
:: Text
-> ProjectsNotesDelete
projectsNotesDelete pPndName_ =
ProjectsNotesDelete'
{ _pndXgafv = Nothing
, _pndUploadProtocol = Nothing
, _pndAccessToken = Nothing
, _pndUploadType = Nothing
, _pndName = pPndName_
, _pndCallback = Nothing
}
pndXgafv :: Lens' ProjectsNotesDelete (Maybe Xgafv)
pndXgafv = lens _pndXgafv (\ s a -> s{_pndXgafv = a})
pndUploadProtocol :: Lens' ProjectsNotesDelete (Maybe Text)
pndUploadProtocol
= lens _pndUploadProtocol
(\ s a -> s{_pndUploadProtocol = a})
pndAccessToken :: Lens' ProjectsNotesDelete (Maybe Text)
pndAccessToken
= lens _pndAccessToken
(\ s a -> s{_pndAccessToken = a})
pndUploadType :: Lens' ProjectsNotesDelete (Maybe Text)
pndUploadType
= lens _pndUploadType
(\ s a -> s{_pndUploadType = a})
pndName :: Lens' ProjectsNotesDelete Text
pndName = lens _pndName (\ s a -> s{_pndName = a})
pndCallback :: Lens' ProjectsNotesDelete (Maybe Text)
pndCallback
= lens _pndCallback (\ s a -> s{_pndCallback = a})
instance GoogleRequest ProjectsNotesDelete where
type Rs ProjectsNotesDelete = Empty
type Scopes ProjectsNotesDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsNotesDelete'{..}
= go _pndName _pndXgafv _pndUploadProtocol
_pndAccessToken
_pndUploadType
_pndCallback
(Just AltJSON)
containerAnalysisService
where go
= buildClient
(Proxy :: Proxy ProjectsNotesDeleteResource)
mempty