module Network.Google.Resource.AppEngine.Apps.Services.Versions.Get
(
AppsServicesVersionsGetResource
, appsServicesVersionsGet
, AppsServicesVersionsGet
, asvgXgafv
, asvgUploadProtocol
, asvgPp
, asvgAccessToken
, asvgUploadType
, asvgVersionsId
, asvgBearerToken
, asvgAppsId
, asvgView
, asvgServicesId
, asvgCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsServicesVersionsGetResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"services" :>
Capture "servicesId" Text :>
"versions" :>
Capture "versionsId" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "view" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] Version
data AppsServicesVersionsGet = AppsServicesVersionsGet'
{ _asvgXgafv :: !(Maybe Text)
, _asvgUploadProtocol :: !(Maybe Text)
, _asvgPp :: !Bool
, _asvgAccessToken :: !(Maybe Text)
, _asvgUploadType :: !(Maybe Text)
, _asvgVersionsId :: !Text
, _asvgBearerToken :: !(Maybe Text)
, _asvgAppsId :: !Text
, _asvgView :: !(Maybe Text)
, _asvgServicesId :: !Text
, _asvgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsServicesVersionsGet
:: Text
-> Text
-> Text
-> AppsServicesVersionsGet
appsServicesVersionsGet pAsvgVersionsId_ pAsvgAppsId_ pAsvgServicesId_ =
AppsServicesVersionsGet'
{ _asvgXgafv = Nothing
, _asvgUploadProtocol = Nothing
, _asvgPp = True
, _asvgAccessToken = Nothing
, _asvgUploadType = Nothing
, _asvgVersionsId = pAsvgVersionsId_
, _asvgBearerToken = Nothing
, _asvgAppsId = pAsvgAppsId_
, _asvgView = Nothing
, _asvgServicesId = pAsvgServicesId_
, _asvgCallback = Nothing
}
asvgXgafv :: Lens' AppsServicesVersionsGet (Maybe Text)
asvgXgafv
= lens _asvgXgafv (\ s a -> s{_asvgXgafv = a})
asvgUploadProtocol :: Lens' AppsServicesVersionsGet (Maybe Text)
asvgUploadProtocol
= lens _asvgUploadProtocol
(\ s a -> s{_asvgUploadProtocol = a})
asvgPp :: Lens' AppsServicesVersionsGet Bool
asvgPp = lens _asvgPp (\ s a -> s{_asvgPp = a})
asvgAccessToken :: Lens' AppsServicesVersionsGet (Maybe Text)
asvgAccessToken
= lens _asvgAccessToken
(\ s a -> s{_asvgAccessToken = a})
asvgUploadType :: Lens' AppsServicesVersionsGet (Maybe Text)
asvgUploadType
= lens _asvgUploadType
(\ s a -> s{_asvgUploadType = a})
asvgVersionsId :: Lens' AppsServicesVersionsGet Text
asvgVersionsId
= lens _asvgVersionsId
(\ s a -> s{_asvgVersionsId = a})
asvgBearerToken :: Lens' AppsServicesVersionsGet (Maybe Text)
asvgBearerToken
= lens _asvgBearerToken
(\ s a -> s{_asvgBearerToken = a})
asvgAppsId :: Lens' AppsServicesVersionsGet Text
asvgAppsId
= lens _asvgAppsId (\ s a -> s{_asvgAppsId = a})
asvgView :: Lens' AppsServicesVersionsGet (Maybe Text)
asvgView = lens _asvgView (\ s a -> s{_asvgView = a})
asvgServicesId :: Lens' AppsServicesVersionsGet Text
asvgServicesId
= lens _asvgServicesId
(\ s a -> s{_asvgServicesId = a})
asvgCallback :: Lens' AppsServicesVersionsGet (Maybe Text)
asvgCallback
= lens _asvgCallback (\ s a -> s{_asvgCallback = a})
instance GoogleRequest AppsServicesVersionsGet where
type Rs AppsServicesVersionsGet = Version
type Scopes AppsServicesVersionsGet =
'["https://www.googleapis.com/auth/appengine.admin",
"https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only"]
requestClient AppsServicesVersionsGet'{..}
= go _asvgAppsId _asvgServicesId _asvgVersionsId
_asvgXgafv
_asvgUploadProtocol
(Just _asvgPp)
_asvgAccessToken
_asvgUploadType
_asvgBearerToken
_asvgView
_asvgCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy :: Proxy AppsServicesVersionsGetResource)
mempty