module Network.Google.Resource.AppEngine.Apps.Get
(
AppsGetResource
, appsGet
, AppsGet
, agXgafv
, agUploadProtocol
, agPp
, agAccessToken
, agUploadType
, agBearerToken
, agAppsId
, agCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsGetResource =
"v1" :>
"apps" :>
Capture "appsId" 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] Application
data AppsGet = AppsGet'
{ _agXgafv :: !(Maybe Text)
, _agUploadProtocol :: !(Maybe Text)
, _agPp :: !Bool
, _agAccessToken :: !(Maybe Text)
, _agUploadType :: !(Maybe Text)
, _agBearerToken :: !(Maybe Text)
, _agAppsId :: !Text
, _agCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsGet
:: Text
-> AppsGet
appsGet pAgAppsId_ =
AppsGet'
{ _agXgafv = Nothing
, _agUploadProtocol = Nothing
, _agPp = True
, _agAccessToken = Nothing
, _agUploadType = Nothing
, _agBearerToken = Nothing
, _agAppsId = pAgAppsId_
, _agCallback = Nothing
}
agXgafv :: Lens' AppsGet (Maybe Text)
agXgafv = lens _agXgafv (\ s a -> s{_agXgafv = a})
agUploadProtocol :: Lens' AppsGet (Maybe Text)
agUploadProtocol
= lens _agUploadProtocol
(\ s a -> s{_agUploadProtocol = a})
agPp :: Lens' AppsGet Bool
agPp = lens _agPp (\ s a -> s{_agPp = a})
agAccessToken :: Lens' AppsGet (Maybe Text)
agAccessToken
= lens _agAccessToken
(\ s a -> s{_agAccessToken = a})
agUploadType :: Lens' AppsGet (Maybe Text)
agUploadType
= lens _agUploadType (\ s a -> s{_agUploadType = a})
agBearerToken :: Lens' AppsGet (Maybe Text)
agBearerToken
= lens _agBearerToken
(\ s a -> s{_agBearerToken = a})
agAppsId :: Lens' AppsGet Text
agAppsId = lens _agAppsId (\ s a -> s{_agAppsId = a})
agCallback :: Lens' AppsGet (Maybe Text)
agCallback
= lens _agCallback (\ s a -> s{_agCallback = a})
instance GoogleRequest AppsGet where
type Rs AppsGet = Application
type Scopes AppsGet =
'["https://www.googleapis.com/auth/appengine.admin",
"https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only"]
requestClient AppsGet'{..}
= go _agAppsId _agXgafv _agUploadProtocol
(Just _agPp)
_agAccessToken
_agUploadType
_agBearerToken
_agCallback
(Just AltJSON)
appEngineService
where go
= buildClient (Proxy :: Proxy AppsGetResource) mempty