{-# 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.AppEngine.Apps.Services.Versions.Delete
(
AppsServicesVersionsDeleteResource
, appsServicesVersionsDelete
, AppsServicesVersionsDelete
, asvdXgafv
, asvdUploadProtocol
, asvdAccessToken
, asvdUploadType
, asvdVersionsId
, asvdAppsId
, asvdServicesId
, asvdCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsServicesVersionsDeleteResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"services" :>
Capture "servicesId" Text :>
"versions" :>
Capture "versionsId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] Operation
data AppsServicesVersionsDelete = AppsServicesVersionsDelete'
{ _asvdXgafv :: !(Maybe Xgafv)
, _asvdUploadProtocol :: !(Maybe Text)
, _asvdAccessToken :: !(Maybe Text)
, _asvdUploadType :: !(Maybe Text)
, _asvdVersionsId :: !Text
, _asvdAppsId :: !Text
, _asvdServicesId :: !Text
, _asvdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsServicesVersionsDelete
:: Text
-> Text
-> Text
-> AppsServicesVersionsDelete
appsServicesVersionsDelete pAsvdVersionsId_ pAsvdAppsId_ pAsvdServicesId_ =
AppsServicesVersionsDelete'
{ _asvdXgafv = Nothing
, _asvdUploadProtocol = Nothing
, _asvdAccessToken = Nothing
, _asvdUploadType = Nothing
, _asvdVersionsId = pAsvdVersionsId_
, _asvdAppsId = pAsvdAppsId_
, _asvdServicesId = pAsvdServicesId_
, _asvdCallback = Nothing
}
asvdXgafv :: Lens' AppsServicesVersionsDelete (Maybe Xgafv)
asvdXgafv
= lens _asvdXgafv (\ s a -> s{_asvdXgafv = a})
asvdUploadProtocol :: Lens' AppsServicesVersionsDelete (Maybe Text)
asvdUploadProtocol
= lens _asvdUploadProtocol
(\ s a -> s{_asvdUploadProtocol = a})
asvdAccessToken :: Lens' AppsServicesVersionsDelete (Maybe Text)
asvdAccessToken
= lens _asvdAccessToken
(\ s a -> s{_asvdAccessToken = a})
asvdUploadType :: Lens' AppsServicesVersionsDelete (Maybe Text)
asvdUploadType
= lens _asvdUploadType
(\ s a -> s{_asvdUploadType = a})
asvdVersionsId :: Lens' AppsServicesVersionsDelete Text
asvdVersionsId
= lens _asvdVersionsId
(\ s a -> s{_asvdVersionsId = a})
asvdAppsId :: Lens' AppsServicesVersionsDelete Text
asvdAppsId
= lens _asvdAppsId (\ s a -> s{_asvdAppsId = a})
asvdServicesId :: Lens' AppsServicesVersionsDelete Text
asvdServicesId
= lens _asvdServicesId
(\ s a -> s{_asvdServicesId = a})
asvdCallback :: Lens' AppsServicesVersionsDelete (Maybe Text)
asvdCallback
= lens _asvdCallback (\ s a -> s{_asvdCallback = a})
instance GoogleRequest AppsServicesVersionsDelete
where
type Rs AppsServicesVersionsDelete = Operation
type Scopes AppsServicesVersionsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsServicesVersionsDelete'{..}
= go _asvdAppsId _asvdServicesId _asvdVersionsId
_asvdXgafv
_asvdUploadProtocol
_asvdAccessToken
_asvdUploadType
_asvdCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy :: Proxy AppsServicesVersionsDeleteResource)
mempty