module Network.Google.Resource.AppEngine.Experimental.Apps.Operations.Get
(
ExperimentalAppsOperationsGetResource
, experimentalAppsOperationsGet
, ExperimentalAppsOperationsGet
, eaogXgafv
, eaogUploadProtocol
, eaogPp
, eaogAccessToken
, eaogUploadType
, eaogBearerToken
, eaogAppsId
, eaogOperationsId
, eaogCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type ExperimentalAppsOperationsGetResource =
"experimental" :>
"apps" :>
Capture "appsId" Text :>
"operations" :>
Capture "operationsId" 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] Operation
data ExperimentalAppsOperationsGet = ExperimentalAppsOperationsGet'
{ _eaogXgafv :: !(Maybe Text)
, _eaogUploadProtocol :: !(Maybe Text)
, _eaogPp :: !Bool
, _eaogAccessToken :: !(Maybe Text)
, _eaogUploadType :: !(Maybe Text)
, _eaogBearerToken :: !(Maybe Text)
, _eaogAppsId :: !Text
, _eaogOperationsId :: !Text
, _eaogCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
experimentalAppsOperationsGet
:: Text
-> Text
-> ExperimentalAppsOperationsGet
experimentalAppsOperationsGet pEaogAppsId_ pEaogOperationsId_ =
ExperimentalAppsOperationsGet'
{ _eaogXgafv = Nothing
, _eaogUploadProtocol = Nothing
, _eaogPp = True
, _eaogAccessToken = Nothing
, _eaogUploadType = Nothing
, _eaogBearerToken = Nothing
, _eaogAppsId = pEaogAppsId_
, _eaogOperationsId = pEaogOperationsId_
, _eaogCallback = Nothing
}
eaogXgafv :: Lens' ExperimentalAppsOperationsGet (Maybe Text)
eaogXgafv
= lens _eaogXgafv (\ s a -> s{_eaogXgafv = a})
eaogUploadProtocol :: Lens' ExperimentalAppsOperationsGet (Maybe Text)
eaogUploadProtocol
= lens _eaogUploadProtocol
(\ s a -> s{_eaogUploadProtocol = a})
eaogPp :: Lens' ExperimentalAppsOperationsGet Bool
eaogPp = lens _eaogPp (\ s a -> s{_eaogPp = a})
eaogAccessToken :: Lens' ExperimentalAppsOperationsGet (Maybe Text)
eaogAccessToken
= lens _eaogAccessToken
(\ s a -> s{_eaogAccessToken = a})
eaogUploadType :: Lens' ExperimentalAppsOperationsGet (Maybe Text)
eaogUploadType
= lens _eaogUploadType
(\ s a -> s{_eaogUploadType = a})
eaogBearerToken :: Lens' ExperimentalAppsOperationsGet (Maybe Text)
eaogBearerToken
= lens _eaogBearerToken
(\ s a -> s{_eaogBearerToken = a})
eaogAppsId :: Lens' ExperimentalAppsOperationsGet Text
eaogAppsId
= lens _eaogAppsId (\ s a -> s{_eaogAppsId = a})
eaogOperationsId :: Lens' ExperimentalAppsOperationsGet Text
eaogOperationsId
= lens _eaogOperationsId
(\ s a -> s{_eaogOperationsId = a})
eaogCallback :: Lens' ExperimentalAppsOperationsGet (Maybe Text)
eaogCallback
= lens _eaogCallback (\ s a -> s{_eaogCallback = a})
instance GoogleRequest ExperimentalAppsOperationsGet
where
type Rs ExperimentalAppsOperationsGet = Operation
type Scopes ExperimentalAppsOperationsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ExperimentalAppsOperationsGet'{..}
= go _eaogAppsId _eaogOperationsId _eaogXgafv
_eaogUploadProtocol
(Just _eaogPp)
_eaogAccessToken
_eaogUploadType
_eaogBearerToken
_eaogCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy ::
Proxy ExperimentalAppsOperationsGetResource)
mempty