{-# 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.Logging.Organizations.Exclusions.Get
(
OrganizationsExclusionsGetResource
, organizationsExclusionsGet
, OrganizationsExclusionsGet
, oegXgafv
, oegUploadProtocol
, oegAccessToken
, oegUploadType
, oegName
, oegCallback
) where
import Network.Google.Logging.Types
import Network.Google.Prelude
type OrganizationsExclusionsGetResource =
"v2" :>
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] LogExclusion
data OrganizationsExclusionsGet = OrganizationsExclusionsGet'
{ _oegXgafv :: !(Maybe Xgafv)
, _oegUploadProtocol :: !(Maybe Text)
, _oegAccessToken :: !(Maybe Text)
, _oegUploadType :: !(Maybe Text)
, _oegName :: !Text
, _oegCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
organizationsExclusionsGet
:: Text
-> OrganizationsExclusionsGet
organizationsExclusionsGet pOegName_ =
OrganizationsExclusionsGet'
{ _oegXgafv = Nothing
, _oegUploadProtocol = Nothing
, _oegAccessToken = Nothing
, _oegUploadType = Nothing
, _oegName = pOegName_
, _oegCallback = Nothing
}
oegXgafv :: Lens' OrganizationsExclusionsGet (Maybe Xgafv)
oegXgafv = lens _oegXgafv (\ s a -> s{_oegXgafv = a})
oegUploadProtocol :: Lens' OrganizationsExclusionsGet (Maybe Text)
oegUploadProtocol
= lens _oegUploadProtocol
(\ s a -> s{_oegUploadProtocol = a})
oegAccessToken :: Lens' OrganizationsExclusionsGet (Maybe Text)
oegAccessToken
= lens _oegAccessToken
(\ s a -> s{_oegAccessToken = a})
oegUploadType :: Lens' OrganizationsExclusionsGet (Maybe Text)
oegUploadType
= lens _oegUploadType
(\ s a -> s{_oegUploadType = a})
oegName :: Lens' OrganizationsExclusionsGet Text
oegName = lens _oegName (\ s a -> s{_oegName = a})
oegCallback :: Lens' OrganizationsExclusionsGet (Maybe Text)
oegCallback
= lens _oegCallback (\ s a -> s{_oegCallback = a})
instance GoogleRequest OrganizationsExclusionsGet
where
type Rs OrganizationsExclusionsGet = LogExclusion
type Scopes OrganizationsExclusionsGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only",
"https://www.googleapis.com/auth/logging.admin",
"https://www.googleapis.com/auth/logging.read"]
requestClient OrganizationsExclusionsGet'{..}
= go _oegName _oegXgafv _oegUploadProtocol
_oegAccessToken
_oegUploadType
_oegCallback
(Just AltJSON)
loggingService
where go
= buildClient
(Proxy :: Proxy OrganizationsExclusionsGetResource)
mempty