{-# 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.Instances.List
(
AppsServicesVersionsInstancesListResource
, appsServicesVersionsInstancesList
, AppsServicesVersionsInstancesList
, asvilXgafv
, asvilUploadProtocol
, asvilAccessToken
, asvilUploadType
, asvilVersionsId
, asvilAppsId
, asvilPageToken
, asvilServicesId
, asvilPageSize
, asvilCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsServicesVersionsInstancesListResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"services" :>
Capture "servicesId" Text :>
"versions" :>
Capture "versionsId" Text :>
"instances" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListInstancesResponse
data AppsServicesVersionsInstancesList = AppsServicesVersionsInstancesList'
{ _asvilXgafv :: !(Maybe Xgafv)
, _asvilUploadProtocol :: !(Maybe Text)
, _asvilAccessToken :: !(Maybe Text)
, _asvilUploadType :: !(Maybe Text)
, _asvilVersionsId :: !Text
, _asvilAppsId :: !Text
, _asvilPageToken :: !(Maybe Text)
, _asvilServicesId :: !Text
, _asvilPageSize :: !(Maybe (Textual Int32))
, _asvilCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsServicesVersionsInstancesList
:: Text
-> Text
-> Text
-> AppsServicesVersionsInstancesList
appsServicesVersionsInstancesList pAsvilVersionsId_ pAsvilAppsId_ pAsvilServicesId_ =
AppsServicesVersionsInstancesList'
{ _asvilXgafv = Nothing
, _asvilUploadProtocol = Nothing
, _asvilAccessToken = Nothing
, _asvilUploadType = Nothing
, _asvilVersionsId = pAsvilVersionsId_
, _asvilAppsId = pAsvilAppsId_
, _asvilPageToken = Nothing
, _asvilServicesId = pAsvilServicesId_
, _asvilPageSize = Nothing
, _asvilCallback = Nothing
}
asvilXgafv :: Lens' AppsServicesVersionsInstancesList (Maybe Xgafv)
asvilXgafv
= lens _asvilXgafv (\ s a -> s{_asvilXgafv = a})
asvilUploadProtocol :: Lens' AppsServicesVersionsInstancesList (Maybe Text)
asvilUploadProtocol
= lens _asvilUploadProtocol
(\ s a -> s{_asvilUploadProtocol = a})
asvilAccessToken :: Lens' AppsServicesVersionsInstancesList (Maybe Text)
asvilAccessToken
= lens _asvilAccessToken
(\ s a -> s{_asvilAccessToken = a})
asvilUploadType :: Lens' AppsServicesVersionsInstancesList (Maybe Text)
asvilUploadType
= lens _asvilUploadType
(\ s a -> s{_asvilUploadType = a})
asvilVersionsId :: Lens' AppsServicesVersionsInstancesList Text
asvilVersionsId
= lens _asvilVersionsId
(\ s a -> s{_asvilVersionsId = a})
asvilAppsId :: Lens' AppsServicesVersionsInstancesList Text
asvilAppsId
= lens _asvilAppsId (\ s a -> s{_asvilAppsId = a})
asvilPageToken :: Lens' AppsServicesVersionsInstancesList (Maybe Text)
asvilPageToken
= lens _asvilPageToken
(\ s a -> s{_asvilPageToken = a})
asvilServicesId :: Lens' AppsServicesVersionsInstancesList Text
asvilServicesId
= lens _asvilServicesId
(\ s a -> s{_asvilServicesId = a})
asvilPageSize :: Lens' AppsServicesVersionsInstancesList (Maybe Int32)
asvilPageSize
= lens _asvilPageSize
(\ s a -> s{_asvilPageSize = a})
. mapping _Coerce
asvilCallback :: Lens' AppsServicesVersionsInstancesList (Maybe Text)
asvilCallback
= lens _asvilCallback
(\ s a -> s{_asvilCallback = a})
instance GoogleRequest
AppsServicesVersionsInstancesList where
type Rs AppsServicesVersionsInstancesList =
ListInstancesResponse
type Scopes AppsServicesVersionsInstancesList =
'["https://www.googleapis.com/auth/appengine.admin",
"https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only"]
requestClient AppsServicesVersionsInstancesList'{..}
= go _asvilAppsId _asvilServicesId _asvilVersionsId
_asvilXgafv
_asvilUploadProtocol
_asvilAccessToken
_asvilUploadType
_asvilPageToken
_asvilPageSize
_asvilCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy ::
Proxy AppsServicesVersionsInstancesListResource)
mempty