{-# 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.List
(
OrganizationsExclusionsListResource
, organizationsExclusionsList
, OrganizationsExclusionsList
, oelParent
, oelXgafv
, oelUploadProtocol
, oelAccessToken
, oelUploadType
, oelPageToken
, oelPageSize
, oelCallback
) where
import Network.Google.Logging.Types
import Network.Google.Prelude
type OrganizationsExclusionsListResource =
"v2" :>
Capture "parent" Text :>
"exclusions" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListExclusionsResponse
data OrganizationsExclusionsList = OrganizationsExclusionsList'
{ _oelParent :: !Text
, _oelXgafv :: !(Maybe Xgafv)
, _oelUploadProtocol :: !(Maybe Text)
, _oelAccessToken :: !(Maybe Text)
, _oelUploadType :: !(Maybe Text)
, _oelPageToken :: !(Maybe Text)
, _oelPageSize :: !(Maybe (Textual Int32))
, _oelCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
organizationsExclusionsList
:: Text
-> OrganizationsExclusionsList
organizationsExclusionsList pOelParent_ =
OrganizationsExclusionsList'
{ _oelParent = pOelParent_
, _oelXgafv = Nothing
, _oelUploadProtocol = Nothing
, _oelAccessToken = Nothing
, _oelUploadType = Nothing
, _oelPageToken = Nothing
, _oelPageSize = Nothing
, _oelCallback = Nothing
}
oelParent :: Lens' OrganizationsExclusionsList Text
oelParent
= lens _oelParent (\ s a -> s{_oelParent = a})
oelXgafv :: Lens' OrganizationsExclusionsList (Maybe Xgafv)
oelXgafv = lens _oelXgafv (\ s a -> s{_oelXgafv = a})
oelUploadProtocol :: Lens' OrganizationsExclusionsList (Maybe Text)
oelUploadProtocol
= lens _oelUploadProtocol
(\ s a -> s{_oelUploadProtocol = a})
oelAccessToken :: Lens' OrganizationsExclusionsList (Maybe Text)
oelAccessToken
= lens _oelAccessToken
(\ s a -> s{_oelAccessToken = a})
oelUploadType :: Lens' OrganizationsExclusionsList (Maybe Text)
oelUploadType
= lens _oelUploadType
(\ s a -> s{_oelUploadType = a})
oelPageToken :: Lens' OrganizationsExclusionsList (Maybe Text)
oelPageToken
= lens _oelPageToken (\ s a -> s{_oelPageToken = a})
oelPageSize :: Lens' OrganizationsExclusionsList (Maybe Int32)
oelPageSize
= lens _oelPageSize (\ s a -> s{_oelPageSize = a}) .
mapping _Coerce
oelCallback :: Lens' OrganizationsExclusionsList (Maybe Text)
oelCallback
= lens _oelCallback (\ s a -> s{_oelCallback = a})
instance GoogleRequest OrganizationsExclusionsList
where
type Rs OrganizationsExclusionsList =
ListExclusionsResponse
type Scopes OrganizationsExclusionsList =
'["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 OrganizationsExclusionsList'{..}
= go _oelParent _oelXgafv _oelUploadProtocol
_oelAccessToken
_oelUploadType
_oelPageToken
_oelPageSize
_oelCallback
(Just AltJSON)
loggingService
where go
= buildClient
(Proxy :: Proxy OrganizationsExclusionsListResource)
mempty