{-# 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.Patch
(
AppsServicesPatchResource
, appsServicesPatch
, AppsServicesPatch
, aspXgafv
, aspUploadProtocol
, aspUpdateMask
, aspAccessToken
, aspUploadType
, aspPayload
, aspMigrateTraffic
, aspAppsId
, aspServicesId
, aspCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsServicesPatchResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"services" :>
Capture "servicesId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "updateMask" GFieldMask :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "migrateTraffic" Bool :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Service :>
Patch '[JSON] Operation
data AppsServicesPatch = AppsServicesPatch'
{ _aspXgafv :: !(Maybe Xgafv)
, _aspUploadProtocol :: !(Maybe Text)
, _aspUpdateMask :: !(Maybe GFieldMask)
, _aspAccessToken :: !(Maybe Text)
, _aspUploadType :: !(Maybe Text)
, _aspPayload :: !Service
, _aspMigrateTraffic :: !(Maybe Bool)
, _aspAppsId :: !Text
, _aspServicesId :: !Text
, _aspCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsServicesPatch
:: Service
-> Text
-> Text
-> AppsServicesPatch
appsServicesPatch pAspPayload_ pAspAppsId_ pAspServicesId_ =
AppsServicesPatch'
{ _aspXgafv = Nothing
, _aspUploadProtocol = Nothing
, _aspUpdateMask = Nothing
, _aspAccessToken = Nothing
, _aspUploadType = Nothing
, _aspPayload = pAspPayload_
, _aspMigrateTraffic = Nothing
, _aspAppsId = pAspAppsId_
, _aspServicesId = pAspServicesId_
, _aspCallback = Nothing
}
aspXgafv :: Lens' AppsServicesPatch (Maybe Xgafv)
aspXgafv = lens _aspXgafv (\ s a -> s{_aspXgafv = a})
aspUploadProtocol :: Lens' AppsServicesPatch (Maybe Text)
aspUploadProtocol
= lens _aspUploadProtocol
(\ s a -> s{_aspUploadProtocol = a})
aspUpdateMask :: Lens' AppsServicesPatch (Maybe GFieldMask)
aspUpdateMask
= lens _aspUpdateMask
(\ s a -> s{_aspUpdateMask = a})
aspAccessToken :: Lens' AppsServicesPatch (Maybe Text)
aspAccessToken
= lens _aspAccessToken
(\ s a -> s{_aspAccessToken = a})
aspUploadType :: Lens' AppsServicesPatch (Maybe Text)
aspUploadType
= lens _aspUploadType
(\ s a -> s{_aspUploadType = a})
aspPayload :: Lens' AppsServicesPatch Service
aspPayload
= lens _aspPayload (\ s a -> s{_aspPayload = a})
aspMigrateTraffic :: Lens' AppsServicesPatch (Maybe Bool)
aspMigrateTraffic
= lens _aspMigrateTraffic
(\ s a -> s{_aspMigrateTraffic = a})
aspAppsId :: Lens' AppsServicesPatch Text
aspAppsId
= lens _aspAppsId (\ s a -> s{_aspAppsId = a})
aspServicesId :: Lens' AppsServicesPatch Text
aspServicesId
= lens _aspServicesId
(\ s a -> s{_aspServicesId = a})
aspCallback :: Lens' AppsServicesPatch (Maybe Text)
aspCallback
= lens _aspCallback (\ s a -> s{_aspCallback = a})
instance GoogleRequest AppsServicesPatch where
type Rs AppsServicesPatch = Operation
type Scopes AppsServicesPatch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsServicesPatch'{..}
= go _aspAppsId _aspServicesId _aspXgafv
_aspUploadProtocol
_aspUpdateMask
_aspAccessToken
_aspUploadType
_aspMigrateTraffic
_aspCallback
(Just AltJSON)
_aspPayload
appEngineService
where go
= buildClient
(Proxy :: Proxy AppsServicesPatchResource)
mempty