{-# 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.DLP.Projects.StoredInfoTypes.List
(
ProjectsStoredInfoTypesListResource
, projectsStoredInfoTypesList
, ProjectsStoredInfoTypesList
, psitlParent
, psitlXgafv
, psitlUploadProtocol
, psitlOrderBy
, psitlAccessToken
, psitlUploadType
, psitlPageToken
, psitlPageSize
, psitlCallback
) where
import Network.Google.DLP.Types
import Network.Google.Prelude
type ProjectsStoredInfoTypesListResource =
"v2" :>
Capture "parent" Text :>
"storedInfoTypes" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "orderBy" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GooglePrivacyDlpV2ListStoredInfoTypesResponse
data ProjectsStoredInfoTypesList = ProjectsStoredInfoTypesList'
{ _psitlParent :: !Text
, _psitlXgafv :: !(Maybe Xgafv)
, _psitlUploadProtocol :: !(Maybe Text)
, _psitlOrderBy :: !(Maybe Text)
, _psitlAccessToken :: !(Maybe Text)
, _psitlUploadType :: !(Maybe Text)
, _psitlPageToken :: !(Maybe Text)
, _psitlPageSize :: !(Maybe (Textual Int32))
, _psitlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsStoredInfoTypesList
:: Text
-> ProjectsStoredInfoTypesList
projectsStoredInfoTypesList pPsitlParent_ =
ProjectsStoredInfoTypesList'
{ _psitlParent = pPsitlParent_
, _psitlXgafv = Nothing
, _psitlUploadProtocol = Nothing
, _psitlOrderBy = Nothing
, _psitlAccessToken = Nothing
, _psitlUploadType = Nothing
, _psitlPageToken = Nothing
, _psitlPageSize = Nothing
, _psitlCallback = Nothing
}
psitlParent :: Lens' ProjectsStoredInfoTypesList Text
psitlParent
= lens _psitlParent (\ s a -> s{_psitlParent = a})
psitlXgafv :: Lens' ProjectsStoredInfoTypesList (Maybe Xgafv)
psitlXgafv
= lens _psitlXgafv (\ s a -> s{_psitlXgafv = a})
psitlUploadProtocol :: Lens' ProjectsStoredInfoTypesList (Maybe Text)
psitlUploadProtocol
= lens _psitlUploadProtocol
(\ s a -> s{_psitlUploadProtocol = a})
psitlOrderBy :: Lens' ProjectsStoredInfoTypesList (Maybe Text)
psitlOrderBy
= lens _psitlOrderBy (\ s a -> s{_psitlOrderBy = a})
psitlAccessToken :: Lens' ProjectsStoredInfoTypesList (Maybe Text)
psitlAccessToken
= lens _psitlAccessToken
(\ s a -> s{_psitlAccessToken = a})
psitlUploadType :: Lens' ProjectsStoredInfoTypesList (Maybe Text)
psitlUploadType
= lens _psitlUploadType
(\ s a -> s{_psitlUploadType = a})
psitlPageToken :: Lens' ProjectsStoredInfoTypesList (Maybe Text)
psitlPageToken
= lens _psitlPageToken
(\ s a -> s{_psitlPageToken = a})
psitlPageSize :: Lens' ProjectsStoredInfoTypesList (Maybe Int32)
psitlPageSize
= lens _psitlPageSize
(\ s a -> s{_psitlPageSize = a})
. mapping _Coerce
psitlCallback :: Lens' ProjectsStoredInfoTypesList (Maybe Text)
psitlCallback
= lens _psitlCallback
(\ s a -> s{_psitlCallback = a})
instance GoogleRequest ProjectsStoredInfoTypesList
where
type Rs ProjectsStoredInfoTypesList =
GooglePrivacyDlpV2ListStoredInfoTypesResponse
type Scopes ProjectsStoredInfoTypesList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsStoredInfoTypesList'{..}
= go _psitlParent _psitlXgafv _psitlUploadProtocol
_psitlOrderBy
_psitlAccessToken
_psitlUploadType
_psitlPageToken
_psitlPageSize
_psitlCallback
(Just AltJSON)
dLPService
where go
= buildClient
(Proxy :: Proxy ProjectsStoredInfoTypesListResource)
mempty