{-# 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.Get
(
AppsServicesVersionsGetResource
, appsServicesVersionsGet
, AppsServicesVersionsGet
, asvgXgafv
, asvgUploadProtocol
, asvgAccessToken
, asvgUploadType
, asvgVersionsId
, 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" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "view" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Version
data AppsServicesVersionsGet = AppsServicesVersionsGet'
{ _asvgXgafv :: !(Maybe Xgafv)
, _asvgUploadProtocol :: !(Maybe Text)
, _asvgAccessToken :: !(Maybe Text)
, _asvgUploadType :: !(Maybe Text)
, _asvgVersionsId :: !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
, _asvgAccessToken = Nothing
, _asvgUploadType = Nothing
, _asvgVersionsId = pAsvgVersionsId_
, _asvgAppsId = pAsvgAppsId_
, _asvgView = Nothing
, _asvgServicesId = pAsvgServicesId_
, _asvgCallback = Nothing
}
asvgXgafv :: Lens' AppsServicesVersionsGet (Maybe Xgafv)
asvgXgafv
= lens _asvgXgafv (\ s a -> s{_asvgXgafv = a})
asvgUploadProtocol :: Lens' AppsServicesVersionsGet (Maybe Text)
asvgUploadProtocol
= lens _asvgUploadProtocol
(\ s a -> s{_asvgUploadProtocol = 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})
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
_asvgAccessToken
_asvgUploadType
_asvgView
_asvgCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy :: Proxy AppsServicesVersionsGetResource)
mempty