{-# 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.SecurityCenter.Organizations.Sources.Get
(
OrganizationsSourcesGetResource
, organizationsSourcesGet
, OrganizationsSourcesGet
, osgXgafv
, osgUploadProtocol
, osgAccessToken
, osgUploadType
, osgName
, osgCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsSourcesGetResource =
"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] Source
data OrganizationsSourcesGet =
OrganizationsSourcesGet'
{ _osgXgafv :: !(Maybe Xgafv)
, _osgUploadProtocol :: !(Maybe Text)
, _osgAccessToken :: !(Maybe Text)
, _osgUploadType :: !(Maybe Text)
, _osgName :: !Text
, _osgCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsSourcesGet
:: Text
-> OrganizationsSourcesGet
organizationsSourcesGet pOsgName_ =
OrganizationsSourcesGet'
{ _osgXgafv = Nothing
, _osgUploadProtocol = Nothing
, _osgAccessToken = Nothing
, _osgUploadType = Nothing
, _osgName = pOsgName_
, _osgCallback = Nothing
}
osgXgafv :: Lens' OrganizationsSourcesGet (Maybe Xgafv)
osgXgafv = lens _osgXgafv (\ s a -> s{_osgXgafv = a})
osgUploadProtocol :: Lens' OrganizationsSourcesGet (Maybe Text)
osgUploadProtocol
= lens _osgUploadProtocol
(\ s a -> s{_osgUploadProtocol = a})
osgAccessToken :: Lens' OrganizationsSourcesGet (Maybe Text)
osgAccessToken
= lens _osgAccessToken
(\ s a -> s{_osgAccessToken = a})
osgUploadType :: Lens' OrganizationsSourcesGet (Maybe Text)
osgUploadType
= lens _osgUploadType
(\ s a -> s{_osgUploadType = a})
osgName :: Lens' OrganizationsSourcesGet Text
osgName = lens _osgName (\ s a -> s{_osgName = a})
osgCallback :: Lens' OrganizationsSourcesGet (Maybe Text)
osgCallback
= lens _osgCallback (\ s a -> s{_osgCallback = a})
instance GoogleRequest OrganizationsSourcesGet where
type Rs OrganizationsSourcesGet = Source
type Scopes OrganizationsSourcesGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsSourcesGet'{..}
= go _osgName _osgXgafv _osgUploadProtocol
_osgAccessToken
_osgUploadType
_osgCallback
(Just AltJSON)
securityCenterService
where go
= buildClient
(Proxy :: Proxy OrganizationsSourcesGetResource)
mempty