{-# 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.AndroidManagement.Enterprises.WebApps.Get
(
EnterprisesWebAppsGetResource
, enterprisesWebAppsGet
, EnterprisesWebAppsGet
, ewagXgafv
, ewagUploadProtocol
, ewagAccessToken
, ewagUploadType
, ewagName
, ewagCallback
) where
import Network.Google.AndroidManagement.Types
import Network.Google.Prelude
type EnterprisesWebAppsGetResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] WebApp
data EnterprisesWebAppsGet =
EnterprisesWebAppsGet'
{ _ewagXgafv :: !(Maybe Xgafv)
, _ewagUploadProtocol :: !(Maybe Text)
, _ewagAccessToken :: !(Maybe Text)
, _ewagUploadType :: !(Maybe Text)
, _ewagName :: !Text
, _ewagCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
enterprisesWebAppsGet
:: Text
-> EnterprisesWebAppsGet
enterprisesWebAppsGet pEwagName_ =
EnterprisesWebAppsGet'
{ _ewagXgafv = Nothing
, _ewagUploadProtocol = Nothing
, _ewagAccessToken = Nothing
, _ewagUploadType = Nothing
, _ewagName = pEwagName_
, _ewagCallback = Nothing
}
ewagXgafv :: Lens' EnterprisesWebAppsGet (Maybe Xgafv)
ewagXgafv
= lens _ewagXgafv (\ s a -> s{_ewagXgafv = a})
ewagUploadProtocol :: Lens' EnterprisesWebAppsGet (Maybe Text)
ewagUploadProtocol
= lens _ewagUploadProtocol
(\ s a -> s{_ewagUploadProtocol = a})
ewagAccessToken :: Lens' EnterprisesWebAppsGet (Maybe Text)
ewagAccessToken
= lens _ewagAccessToken
(\ s a -> s{_ewagAccessToken = a})
ewagUploadType :: Lens' EnterprisesWebAppsGet (Maybe Text)
ewagUploadType
= lens _ewagUploadType
(\ s a -> s{_ewagUploadType = a})
ewagName :: Lens' EnterprisesWebAppsGet Text
ewagName = lens _ewagName (\ s a -> s{_ewagName = a})
ewagCallback :: Lens' EnterprisesWebAppsGet (Maybe Text)
ewagCallback
= lens _ewagCallback (\ s a -> s{_ewagCallback = a})
instance GoogleRequest EnterprisesWebAppsGet where
type Rs EnterprisesWebAppsGet = WebApp
type Scopes EnterprisesWebAppsGet =
'["https://www.googleapis.com/auth/androidmanagement"]
requestClient EnterprisesWebAppsGet'{..}
= go _ewagName _ewagXgafv _ewagUploadProtocol
_ewagAccessToken
_ewagUploadType
_ewagCallback
(Just AltJSON)
androidManagementService
where go
= buildClient
(Proxy :: Proxy EnterprisesWebAppsGetResource)
mempty