module Network.Google.Resource.Ml.Projects.Models.Delete
(
ProjectsModelsDeleteResource
, projectsModelsDelete
, ProjectsModelsDelete
, pmdXgafv
, pmdUploadProtocol
, pmdPp
, pmdAccessToken
, pmdUploadType
, pmdBearerToken
, pmdName
, pmdCallback
) where
import Network.Google.MachineLearning.Types
import Network.Google.Prelude
type ProjectsModelsDeleteResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] GoogleLongrunning__Operation
data ProjectsModelsDelete = ProjectsModelsDelete'
{ _pmdXgafv :: !(Maybe Xgafv)
, _pmdUploadProtocol :: !(Maybe Text)
, _pmdPp :: !Bool
, _pmdAccessToken :: !(Maybe Text)
, _pmdUploadType :: !(Maybe Text)
, _pmdBearerToken :: !(Maybe Text)
, _pmdName :: !Text
, _pmdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsModelsDelete
:: Text
-> ProjectsModelsDelete
projectsModelsDelete pPmdName_ =
ProjectsModelsDelete'
{ _pmdXgafv = Nothing
, _pmdUploadProtocol = Nothing
, _pmdPp = True
, _pmdAccessToken = Nothing
, _pmdUploadType = Nothing
, _pmdBearerToken = Nothing
, _pmdName = pPmdName_
, _pmdCallback = Nothing
}
pmdXgafv :: Lens' ProjectsModelsDelete (Maybe Xgafv)
pmdXgafv = lens _pmdXgafv (\ s a -> s{_pmdXgafv = a})
pmdUploadProtocol :: Lens' ProjectsModelsDelete (Maybe Text)
pmdUploadProtocol
= lens _pmdUploadProtocol
(\ s a -> s{_pmdUploadProtocol = a})
pmdPp :: Lens' ProjectsModelsDelete Bool
pmdPp = lens _pmdPp (\ s a -> s{_pmdPp = a})
pmdAccessToken :: Lens' ProjectsModelsDelete (Maybe Text)
pmdAccessToken
= lens _pmdAccessToken
(\ s a -> s{_pmdAccessToken = a})
pmdUploadType :: Lens' ProjectsModelsDelete (Maybe Text)
pmdUploadType
= lens _pmdUploadType
(\ s a -> s{_pmdUploadType = a})
pmdBearerToken :: Lens' ProjectsModelsDelete (Maybe Text)
pmdBearerToken
= lens _pmdBearerToken
(\ s a -> s{_pmdBearerToken = a})
pmdName :: Lens' ProjectsModelsDelete Text
pmdName = lens _pmdName (\ s a -> s{_pmdName = a})
pmdCallback :: Lens' ProjectsModelsDelete (Maybe Text)
pmdCallback
= lens _pmdCallback (\ s a -> s{_pmdCallback = a})
instance GoogleRequest ProjectsModelsDelete where
type Rs ProjectsModelsDelete =
GoogleLongrunning__Operation
type Scopes ProjectsModelsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsModelsDelete'{..}
= go _pmdName _pmdXgafv _pmdUploadProtocol
(Just _pmdPp)
_pmdAccessToken
_pmdUploadType
_pmdBearerToken
_pmdCallback
(Just AltJSON)
machineLearningService
where go
= buildClient
(Proxy :: Proxy ProjectsModelsDeleteResource)
mempty