{-# 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.FireStore.Projects.Databases.CollectionGroups.Fields.Get
(
ProjectsDatabasesCollectionGroupsFieldsGetResource
, projectsDatabasesCollectionGroupsFieldsGet
, ProjectsDatabasesCollectionGroupsFieldsGet
, pdcgfgXgafv
, pdcgfgUploadProtocol
, pdcgfgAccessToken
, pdcgfgUploadType
, pdcgfgName
, pdcgfgCallback
) where
import Network.Google.FireStore.Types
import Network.Google.Prelude
type ProjectsDatabasesCollectionGroupsFieldsGetResource
=
"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] GoogleFirestoreAdminV1Field
data ProjectsDatabasesCollectionGroupsFieldsGet = ProjectsDatabasesCollectionGroupsFieldsGet'
{ _pdcgfgXgafv :: !(Maybe Xgafv)
, _pdcgfgUploadProtocol :: !(Maybe Text)
, _pdcgfgAccessToken :: !(Maybe Text)
, _pdcgfgUploadType :: !(Maybe Text)
, _pdcgfgName :: !Text
, _pdcgfgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsDatabasesCollectionGroupsFieldsGet
:: Text
-> ProjectsDatabasesCollectionGroupsFieldsGet
projectsDatabasesCollectionGroupsFieldsGet pPdcgfgName_ =
ProjectsDatabasesCollectionGroupsFieldsGet'
{ _pdcgfgXgafv = Nothing
, _pdcgfgUploadProtocol = Nothing
, _pdcgfgAccessToken = Nothing
, _pdcgfgUploadType = Nothing
, _pdcgfgName = pPdcgfgName_
, _pdcgfgCallback = Nothing
}
pdcgfgXgafv :: Lens' ProjectsDatabasesCollectionGroupsFieldsGet (Maybe Xgafv)
pdcgfgXgafv
= lens _pdcgfgXgafv (\ s a -> s{_pdcgfgXgafv = a})
pdcgfgUploadProtocol :: Lens' ProjectsDatabasesCollectionGroupsFieldsGet (Maybe Text)
pdcgfgUploadProtocol
= lens _pdcgfgUploadProtocol
(\ s a -> s{_pdcgfgUploadProtocol = a})
pdcgfgAccessToken :: Lens' ProjectsDatabasesCollectionGroupsFieldsGet (Maybe Text)
pdcgfgAccessToken
= lens _pdcgfgAccessToken
(\ s a -> s{_pdcgfgAccessToken = a})
pdcgfgUploadType :: Lens' ProjectsDatabasesCollectionGroupsFieldsGet (Maybe Text)
pdcgfgUploadType
= lens _pdcgfgUploadType
(\ s a -> s{_pdcgfgUploadType = a})
pdcgfgName :: Lens' ProjectsDatabasesCollectionGroupsFieldsGet Text
pdcgfgName
= lens _pdcgfgName (\ s a -> s{_pdcgfgName = a})
pdcgfgCallback :: Lens' ProjectsDatabasesCollectionGroupsFieldsGet (Maybe Text)
pdcgfgCallback
= lens _pdcgfgCallback
(\ s a -> s{_pdcgfgCallback = a})
instance GoogleRequest
ProjectsDatabasesCollectionGroupsFieldsGet where
type Rs ProjectsDatabasesCollectionGroupsFieldsGet =
GoogleFirestoreAdminV1Field
type Scopes
ProjectsDatabasesCollectionGroupsFieldsGet
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/datastore"]
requestClient
ProjectsDatabasesCollectionGroupsFieldsGet'{..}
= go _pdcgfgName _pdcgfgXgafv _pdcgfgUploadProtocol
_pdcgfgAccessToken
_pdcgfgUploadType
_pdcgfgCallback
(Just AltJSON)
fireStoreService
where go
= buildClient
(Proxy ::
Proxy
ProjectsDatabasesCollectionGroupsFieldsGetResource)
mempty