module Network.Google.Resource.AppEngine.Apps.Services.Versions.Instances.Debug
(
AppsServicesVersionsInstancesDebugResource
, appsServicesVersionsInstancesDebug
, AppsServicesVersionsInstancesDebug
, asvidXgafv
, asvidInstancesId
, asvidUploadProtocol
, asvidPp
, asvidAccessToken
, asvidUploadType
, asvidPayload
, asvidVersionsId
, asvidBearerToken
, asvidAppsId
, asvidServicesId
, asvidCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsServicesVersionsInstancesDebugResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"services" :>
Capture "servicesId" Text :>
"versions" :>
Capture "versionsId" Text :>
"instances" :>
CaptureMode "instancesId" "debug" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] DebugInstanceRequest :>
Post '[JSON] Operation
data AppsServicesVersionsInstancesDebug = AppsServicesVersionsInstancesDebug'
{ _asvidXgafv :: !(Maybe Text)
, _asvidInstancesId :: !Text
, _asvidUploadProtocol :: !(Maybe Text)
, _asvidPp :: !Bool
, _asvidAccessToken :: !(Maybe Text)
, _asvidUploadType :: !(Maybe Text)
, _asvidPayload :: !DebugInstanceRequest
, _asvidVersionsId :: !Text
, _asvidBearerToken :: !(Maybe Text)
, _asvidAppsId :: !Text
, _asvidServicesId :: !Text
, _asvidCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsServicesVersionsInstancesDebug
:: Text
-> DebugInstanceRequest
-> Text
-> Text
-> Text
-> AppsServicesVersionsInstancesDebug
appsServicesVersionsInstancesDebug pAsvidInstancesId_ pAsvidPayload_ pAsvidVersionsId_ pAsvidAppsId_ pAsvidServicesId_ =
AppsServicesVersionsInstancesDebug'
{ _asvidXgafv = Nothing
, _asvidInstancesId = pAsvidInstancesId_
, _asvidUploadProtocol = Nothing
, _asvidPp = True
, _asvidAccessToken = Nothing
, _asvidUploadType = Nothing
, _asvidPayload = pAsvidPayload_
, _asvidVersionsId = pAsvidVersionsId_
, _asvidBearerToken = Nothing
, _asvidAppsId = pAsvidAppsId_
, _asvidServicesId = pAsvidServicesId_
, _asvidCallback = Nothing
}
asvidXgafv :: Lens' AppsServicesVersionsInstancesDebug (Maybe Text)
asvidXgafv
= lens _asvidXgafv (\ s a -> s{_asvidXgafv = a})
asvidInstancesId :: Lens' AppsServicesVersionsInstancesDebug Text
asvidInstancesId
= lens _asvidInstancesId
(\ s a -> s{_asvidInstancesId = a})
asvidUploadProtocol :: Lens' AppsServicesVersionsInstancesDebug (Maybe Text)
asvidUploadProtocol
= lens _asvidUploadProtocol
(\ s a -> s{_asvidUploadProtocol = a})
asvidPp :: Lens' AppsServicesVersionsInstancesDebug Bool
asvidPp = lens _asvidPp (\ s a -> s{_asvidPp = a})
asvidAccessToken :: Lens' AppsServicesVersionsInstancesDebug (Maybe Text)
asvidAccessToken
= lens _asvidAccessToken
(\ s a -> s{_asvidAccessToken = a})
asvidUploadType :: Lens' AppsServicesVersionsInstancesDebug (Maybe Text)
asvidUploadType
= lens _asvidUploadType
(\ s a -> s{_asvidUploadType = a})
asvidPayload :: Lens' AppsServicesVersionsInstancesDebug DebugInstanceRequest
asvidPayload
= lens _asvidPayload (\ s a -> s{_asvidPayload = a})
asvidVersionsId :: Lens' AppsServicesVersionsInstancesDebug Text
asvidVersionsId
= lens _asvidVersionsId
(\ s a -> s{_asvidVersionsId = a})
asvidBearerToken :: Lens' AppsServicesVersionsInstancesDebug (Maybe Text)
asvidBearerToken
= lens _asvidBearerToken
(\ s a -> s{_asvidBearerToken = a})
asvidAppsId :: Lens' AppsServicesVersionsInstancesDebug Text
asvidAppsId
= lens _asvidAppsId (\ s a -> s{_asvidAppsId = a})
asvidServicesId :: Lens' AppsServicesVersionsInstancesDebug Text
asvidServicesId
= lens _asvidServicesId
(\ s a -> s{_asvidServicesId = a})
asvidCallback :: Lens' AppsServicesVersionsInstancesDebug (Maybe Text)
asvidCallback
= lens _asvidCallback
(\ s a -> s{_asvidCallback = a})
instance GoogleRequest
AppsServicesVersionsInstancesDebug where
type Rs AppsServicesVersionsInstancesDebug =
Operation
type Scopes AppsServicesVersionsInstancesDebug =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsServicesVersionsInstancesDebug'{..}
= go _asvidAppsId _asvidServicesId _asvidVersionsId
_asvidInstancesId
_asvidXgafv
_asvidUploadProtocol
(Just _asvidPp)
_asvidAccessToken
_asvidUploadType
_asvidBearerToken
_asvidCallback
(Just AltJSON)
_asvidPayload
appEngineService
where go
= buildClient
(Proxy ::
Proxy AppsServicesVersionsInstancesDebugResource)
mempty