{-# 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.Delete
(
AppsServicesDeleteResource
, appsServicesDelete
, AppsServicesDelete
, asdXgafv
, asdUploadProtocol
, asdAccessToken
, asdUploadType
, asdAppsId
, asdServicesId
, asdCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsServicesDeleteResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"services" :>
Capture "servicesId" 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 AppsServicesDelete = AppsServicesDelete'
{ _asdXgafv :: !(Maybe Xgafv)
, _asdUploadProtocol :: !(Maybe Text)
, _asdAccessToken :: !(Maybe Text)
, _asdUploadType :: !(Maybe Text)
, _asdAppsId :: !Text
, _asdServicesId :: !Text
, _asdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsServicesDelete
:: Text
-> Text
-> AppsServicesDelete
appsServicesDelete pAsdAppsId_ pAsdServicesId_ =
AppsServicesDelete'
{ _asdXgafv = Nothing
, _asdUploadProtocol = Nothing
, _asdAccessToken = Nothing
, _asdUploadType = Nothing
, _asdAppsId = pAsdAppsId_
, _asdServicesId = pAsdServicesId_
, _asdCallback = Nothing
}
asdXgafv :: Lens' AppsServicesDelete (Maybe Xgafv)
asdXgafv = lens _asdXgafv (\ s a -> s{_asdXgafv = a})
asdUploadProtocol :: Lens' AppsServicesDelete (Maybe Text)
asdUploadProtocol
= lens _asdUploadProtocol
(\ s a -> s{_asdUploadProtocol = a})
asdAccessToken :: Lens' AppsServicesDelete (Maybe Text)
asdAccessToken
= lens _asdAccessToken
(\ s a -> s{_asdAccessToken = a})
asdUploadType :: Lens' AppsServicesDelete (Maybe Text)
asdUploadType
= lens _asdUploadType
(\ s a -> s{_asdUploadType = a})
asdAppsId :: Lens' AppsServicesDelete Text
asdAppsId
= lens _asdAppsId (\ s a -> s{_asdAppsId = a})
asdServicesId :: Lens' AppsServicesDelete Text
asdServicesId
= lens _asdServicesId
(\ s a -> s{_asdServicesId = a})
asdCallback :: Lens' AppsServicesDelete (Maybe Text)
asdCallback
= lens _asdCallback (\ s a -> s{_asdCallback = a})
instance GoogleRequest AppsServicesDelete where
type Rs AppsServicesDelete = Operation
type Scopes AppsServicesDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsServicesDelete'{..}
= go _asdAppsId _asdServicesId _asdXgafv
_asdUploadProtocol
_asdAccessToken
_asdUploadType
_asdCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy :: Proxy AppsServicesDeleteResource)
mempty