module Network.Google.Resource.AppEngine.Apps.Services.Get
(
AppsServicesGetResource
, appsServicesGet
, AppsServicesGet
, asgXgafv
, asgUploadProtocol
, asgPp
, asgAccessToken
, asgUploadType
, asgBearerToken
, asgAppsId
, asgServicesId
, asgCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsServicesGetResource =
"v1beta5" :>
"apps" :>
Capture "appsId" Text :>
"services" :>
Capture "servicesId" 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 :> Get '[JSON] Service
data AppsServicesGet = AppsServicesGet'
{ _asgXgafv :: !(Maybe Text)
, _asgUploadProtocol :: !(Maybe Text)
, _asgPp :: !Bool
, _asgAccessToken :: !(Maybe Text)
, _asgUploadType :: !(Maybe Text)
, _asgBearerToken :: !(Maybe Text)
, _asgAppsId :: !Text
, _asgServicesId :: !Text
, _asgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsServicesGet
:: Text
-> Text
-> AppsServicesGet
appsServicesGet pAsgAppsId_ pAsgServicesId_ =
AppsServicesGet'
{ _asgXgafv = Nothing
, _asgUploadProtocol = Nothing
, _asgPp = True
, _asgAccessToken = Nothing
, _asgUploadType = Nothing
, _asgBearerToken = Nothing
, _asgAppsId = pAsgAppsId_
, _asgServicesId = pAsgServicesId_
, _asgCallback = Nothing
}
asgXgafv :: Lens' AppsServicesGet (Maybe Text)
asgXgafv = lens _asgXgafv (\ s a -> s{_asgXgafv = a})
asgUploadProtocol :: Lens' AppsServicesGet (Maybe Text)
asgUploadProtocol
= lens _asgUploadProtocol
(\ s a -> s{_asgUploadProtocol = a})
asgPp :: Lens' AppsServicesGet Bool
asgPp = lens _asgPp (\ s a -> s{_asgPp = a})
asgAccessToken :: Lens' AppsServicesGet (Maybe Text)
asgAccessToken
= lens _asgAccessToken
(\ s a -> s{_asgAccessToken = a})
asgUploadType :: Lens' AppsServicesGet (Maybe Text)
asgUploadType
= lens _asgUploadType
(\ s a -> s{_asgUploadType = a})
asgBearerToken :: Lens' AppsServicesGet (Maybe Text)
asgBearerToken
= lens _asgBearerToken
(\ s a -> s{_asgBearerToken = a})
asgAppsId :: Lens' AppsServicesGet Text
asgAppsId
= lens _asgAppsId (\ s a -> s{_asgAppsId = a})
asgServicesId :: Lens' AppsServicesGet Text
asgServicesId
= lens _asgServicesId
(\ s a -> s{_asgServicesId = a})
asgCallback :: Lens' AppsServicesGet (Maybe Text)
asgCallback
= lens _asgCallback (\ s a -> s{_asgCallback = a})
instance GoogleRequest AppsServicesGet where
type Rs AppsServicesGet = Service
type Scopes AppsServicesGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsServicesGet'{..}
= go _asgAppsId _asgServicesId _asgXgafv
_asgUploadProtocol
(Just _asgPp)
_asgAccessToken
_asgUploadType
_asgBearerToken
_asgCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy :: Proxy AppsServicesGetResource)
mempty