module Network.Google.Resource.Ml.Projects.Models.Versions.Delete
(
ProjectsModelsVersionsDeleteResource
, projectsModelsVersionsDelete
, ProjectsModelsVersionsDelete
, pmvdXgafv
, pmvdUploadProtocol
, pmvdPp
, pmvdAccessToken
, pmvdUploadType
, pmvdBearerToken
, pmvdName
, pmvdCallback
) where
import Network.Google.MachineLearning.Types
import Network.Google.Prelude
type ProjectsModelsVersionsDeleteResource =
"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 ProjectsModelsVersionsDelete = ProjectsModelsVersionsDelete'
{ _pmvdXgafv :: !(Maybe Xgafv)
, _pmvdUploadProtocol :: !(Maybe Text)
, _pmvdPp :: !Bool
, _pmvdAccessToken :: !(Maybe Text)
, _pmvdUploadType :: !(Maybe Text)
, _pmvdBearerToken :: !(Maybe Text)
, _pmvdName :: !Text
, _pmvdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsModelsVersionsDelete
:: Text
-> ProjectsModelsVersionsDelete
projectsModelsVersionsDelete pPmvdName_ =
ProjectsModelsVersionsDelete'
{ _pmvdXgafv = Nothing
, _pmvdUploadProtocol = Nothing
, _pmvdPp = True
, _pmvdAccessToken = Nothing
, _pmvdUploadType = Nothing
, _pmvdBearerToken = Nothing
, _pmvdName = pPmvdName_
, _pmvdCallback = Nothing
}
pmvdXgafv :: Lens' ProjectsModelsVersionsDelete (Maybe Xgafv)
pmvdXgafv
= lens _pmvdXgafv (\ s a -> s{_pmvdXgafv = a})
pmvdUploadProtocol :: Lens' ProjectsModelsVersionsDelete (Maybe Text)
pmvdUploadProtocol
= lens _pmvdUploadProtocol
(\ s a -> s{_pmvdUploadProtocol = a})
pmvdPp :: Lens' ProjectsModelsVersionsDelete Bool
pmvdPp = lens _pmvdPp (\ s a -> s{_pmvdPp = a})
pmvdAccessToken :: Lens' ProjectsModelsVersionsDelete (Maybe Text)
pmvdAccessToken
= lens _pmvdAccessToken
(\ s a -> s{_pmvdAccessToken = a})
pmvdUploadType :: Lens' ProjectsModelsVersionsDelete (Maybe Text)
pmvdUploadType
= lens _pmvdUploadType
(\ s a -> s{_pmvdUploadType = a})
pmvdBearerToken :: Lens' ProjectsModelsVersionsDelete (Maybe Text)
pmvdBearerToken
= lens _pmvdBearerToken
(\ s a -> s{_pmvdBearerToken = a})
pmvdName :: Lens' ProjectsModelsVersionsDelete Text
pmvdName = lens _pmvdName (\ s a -> s{_pmvdName = a})
pmvdCallback :: Lens' ProjectsModelsVersionsDelete (Maybe Text)
pmvdCallback
= lens _pmvdCallback (\ s a -> s{_pmvdCallback = a})
instance GoogleRequest ProjectsModelsVersionsDelete
where
type Rs ProjectsModelsVersionsDelete =
GoogleLongrunning__Operation
type Scopes ProjectsModelsVersionsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsModelsVersionsDelete'{..}
= go _pmvdName _pmvdXgafv _pmvdUploadProtocol
(Just _pmvdPp)
_pmvdAccessToken
_pmvdUploadType
_pmvdBearerToken
_pmvdCallback
(Just AltJSON)
machineLearningService
where go
= buildClient
(Proxy :: Proxy ProjectsModelsVersionsDeleteResource)
mempty