{-# 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.FirebaseRules.Projects.Releases.GetExecutable
(
ProjectsReleasesGetExecutableResource
, projectsReleasesGetExecutable
, ProjectsReleasesGetExecutable
, prgeXgafv
, prgeUploadProtocol
, prgeAccessToken
, prgeUploadType
, prgeName
, prgeExecutableVersion
, prgeCallback
) where
import Network.Google.FirebaseRules.Types
import Network.Google.Prelude
type ProjectsReleasesGetExecutableResource =
"v1" :>
CaptureMode "name" "getExecutable" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "executableVersion" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] GetReleaseExecutableResponse
data ProjectsReleasesGetExecutable = ProjectsReleasesGetExecutable'
{ _prgeXgafv :: !(Maybe Xgafv)
, _prgeUploadProtocol :: !(Maybe Text)
, _prgeAccessToken :: !(Maybe Text)
, _prgeUploadType :: !(Maybe Text)
, _prgeName :: !Text
, _prgeExecutableVersion :: !(Maybe Text)
, _prgeCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsReleasesGetExecutable
:: Text
-> ProjectsReleasesGetExecutable
projectsReleasesGetExecutable pPrgeName_ =
ProjectsReleasesGetExecutable'
{ _prgeXgafv = Nothing
, _prgeUploadProtocol = Nothing
, _prgeAccessToken = Nothing
, _prgeUploadType = Nothing
, _prgeName = pPrgeName_
, _prgeExecutableVersion = Nothing
, _prgeCallback = Nothing
}
prgeXgafv :: Lens' ProjectsReleasesGetExecutable (Maybe Xgafv)
prgeXgafv
= lens _prgeXgafv (\ s a -> s{_prgeXgafv = a})
prgeUploadProtocol :: Lens' ProjectsReleasesGetExecutable (Maybe Text)
prgeUploadProtocol
= lens _prgeUploadProtocol
(\ s a -> s{_prgeUploadProtocol = a})
prgeAccessToken :: Lens' ProjectsReleasesGetExecutable (Maybe Text)
prgeAccessToken
= lens _prgeAccessToken
(\ s a -> s{_prgeAccessToken = a})
prgeUploadType :: Lens' ProjectsReleasesGetExecutable (Maybe Text)
prgeUploadType
= lens _prgeUploadType
(\ s a -> s{_prgeUploadType = a})
prgeName :: Lens' ProjectsReleasesGetExecutable Text
prgeName = lens _prgeName (\ s a -> s{_prgeName = a})
prgeExecutableVersion :: Lens' ProjectsReleasesGetExecutable (Maybe Text)
prgeExecutableVersion
= lens _prgeExecutableVersion
(\ s a -> s{_prgeExecutableVersion = a})
prgeCallback :: Lens' ProjectsReleasesGetExecutable (Maybe Text)
prgeCallback
= lens _prgeCallback (\ s a -> s{_prgeCallback = a})
instance GoogleRequest ProjectsReleasesGetExecutable
where
type Rs ProjectsReleasesGetExecutable =
GetReleaseExecutableResponse
type Scopes ProjectsReleasesGetExecutable =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/firebase",
"https://www.googleapis.com/auth/firebase.readonly"]
requestClient ProjectsReleasesGetExecutable'{..}
= go _prgeName _prgeXgafv _prgeUploadProtocol
_prgeAccessToken
_prgeUploadType
_prgeExecutableVersion
_prgeCallback
(Just AltJSON)
firebaseRulesService
where go
= buildClient
(Proxy ::
Proxy ProjectsReleasesGetExecutableResource)
mempty