{-# 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.Rulesets.List
(
ProjectsRulesetsListResource
, projectsRulesetsList
, ProjectsRulesetsList
, prlXgafv
, prlUploadProtocol
, prlAccessToken
, prlUploadType
, prlName
, prlFilter
, prlPageToken
, prlPageSize
, prlCallback
) where
import Network.Google.FirebaseRules.Types
import Network.Google.Prelude
type ProjectsRulesetsListResource =
"v1" :>
Capture "name" Text :>
"rulesets" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListRulesetsResponse
data ProjectsRulesetsList = ProjectsRulesetsList'
{ _prlXgafv :: !(Maybe Xgafv)
, _prlUploadProtocol :: !(Maybe Text)
, _prlAccessToken :: !(Maybe Text)
, _prlUploadType :: !(Maybe Text)
, _prlName :: !Text
, _prlFilter :: !(Maybe Text)
, _prlPageToken :: !(Maybe Text)
, _prlPageSize :: !(Maybe (Textual Int32))
, _prlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsRulesetsList
:: Text
-> ProjectsRulesetsList
projectsRulesetsList pPrlName_ =
ProjectsRulesetsList'
{ _prlXgafv = Nothing
, _prlUploadProtocol = Nothing
, _prlAccessToken = Nothing
, _prlUploadType = Nothing
, _prlName = pPrlName_
, _prlFilter = Nothing
, _prlPageToken = Nothing
, _prlPageSize = Nothing
, _prlCallback = Nothing
}
prlXgafv :: Lens' ProjectsRulesetsList (Maybe Xgafv)
prlXgafv = lens _prlXgafv (\ s a -> s{_prlXgafv = a})
prlUploadProtocol :: Lens' ProjectsRulesetsList (Maybe Text)
prlUploadProtocol
= lens _prlUploadProtocol
(\ s a -> s{_prlUploadProtocol = a})
prlAccessToken :: Lens' ProjectsRulesetsList (Maybe Text)
prlAccessToken
= lens _prlAccessToken
(\ s a -> s{_prlAccessToken = a})
prlUploadType :: Lens' ProjectsRulesetsList (Maybe Text)
prlUploadType
= lens _prlUploadType
(\ s a -> s{_prlUploadType = a})
prlName :: Lens' ProjectsRulesetsList Text
prlName = lens _prlName (\ s a -> s{_prlName = a})
prlFilter :: Lens' ProjectsRulesetsList (Maybe Text)
prlFilter
= lens _prlFilter (\ s a -> s{_prlFilter = a})
prlPageToken :: Lens' ProjectsRulesetsList (Maybe Text)
prlPageToken
= lens _prlPageToken (\ s a -> s{_prlPageToken = a})
prlPageSize :: Lens' ProjectsRulesetsList (Maybe Int32)
prlPageSize
= lens _prlPageSize (\ s a -> s{_prlPageSize = a}) .
mapping _Coerce
prlCallback :: Lens' ProjectsRulesetsList (Maybe Text)
prlCallback
= lens _prlCallback (\ s a -> s{_prlCallback = a})
instance GoogleRequest ProjectsRulesetsList where
type Rs ProjectsRulesetsList = ListRulesetsResponse
type Scopes ProjectsRulesetsList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/firebase",
"https://www.googleapis.com/auth/firebase.readonly"]
requestClient ProjectsRulesetsList'{..}
= go _prlName _prlXgafv _prlUploadProtocol
_prlAccessToken
_prlUploadType
_prlFilter
_prlPageToken
_prlPageSize
_prlCallback
(Just AltJSON)
firebaseRulesService
where go
= buildClient
(Proxy :: Proxy ProjectsRulesetsListResource)
mempty