{-# 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.Exclusions.List
(
ExclusionsListResource
, exclusionsList
, ExclusionsList
, eParent
, eXgafv
, eUploadProtocol
, eAccessToken
, eUploadType
, ePageToken
, ePageSize
, eCallback
) where
import Network.Google.Logging.Types
import Network.Google.Prelude
type ExclusionsListResource =
"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 ExclusionsList = ExclusionsList'
{ _eParent :: !Text
, _eXgafv :: !(Maybe Xgafv)
, _eUploadProtocol :: !(Maybe Text)
, _eAccessToken :: !(Maybe Text)
, _eUploadType :: !(Maybe Text)
, _ePageToken :: !(Maybe Text)
, _ePageSize :: !(Maybe (Textual Int32))
, _eCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
exclusionsList
:: Text
-> ExclusionsList
exclusionsList pEParent_ =
ExclusionsList'
{ _eParent = pEParent_
, _eXgafv = Nothing
, _eUploadProtocol = Nothing
, _eAccessToken = Nothing
, _eUploadType = Nothing
, _ePageToken = Nothing
, _ePageSize = Nothing
, _eCallback = Nothing
}
eParent :: Lens' ExclusionsList Text
eParent = lens _eParent (\ s a -> s{_eParent = a})
eXgafv :: Lens' ExclusionsList (Maybe Xgafv)
eXgafv = lens _eXgafv (\ s a -> s{_eXgafv = a})
eUploadProtocol :: Lens' ExclusionsList (Maybe Text)
eUploadProtocol
= lens _eUploadProtocol
(\ s a -> s{_eUploadProtocol = a})
eAccessToken :: Lens' ExclusionsList (Maybe Text)
eAccessToken
= lens _eAccessToken (\ s a -> s{_eAccessToken = a})
eUploadType :: Lens' ExclusionsList (Maybe Text)
eUploadType
= lens _eUploadType (\ s a -> s{_eUploadType = a})
ePageToken :: Lens' ExclusionsList (Maybe Text)
ePageToken
= lens _ePageToken (\ s a -> s{_ePageToken = a})
ePageSize :: Lens' ExclusionsList (Maybe Int32)
ePageSize
= lens _ePageSize (\ s a -> s{_ePageSize = a}) .
mapping _Coerce
eCallback :: Lens' ExclusionsList (Maybe Text)
eCallback
= lens _eCallback (\ s a -> s{_eCallback = a})
instance GoogleRequest ExclusionsList where
type Rs ExclusionsList = ListExclusionsResponse
type Scopes ExclusionsList =
'["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 ExclusionsList'{..}
= go _eParent _eXgafv _eUploadProtocol _eAccessToken
_eUploadType
_ePageToken
_ePageSize
_eCallback
(Just AltJSON)
loggingService
where go
= buildClient (Proxy :: Proxy ExclusionsListResource)
mempty