{-# 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.InfoTypes.List
(
InfoTypesListResource
, infoTypesList
, InfoTypesList
, itlXgafv
, itlLanguageCode
, itlUploadProtocol
, itlAccessToken
, itlUploadType
, itlFilter
, itlCallback
) where
import Network.Google.DLP.Types
import Network.Google.Prelude
type InfoTypesListResource =
"v2" :>
"infoTypes" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "languageCode" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "filter" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] GooglePrivacyDlpV2ListInfoTypesResponse
data InfoTypesList = InfoTypesList'
{ _itlXgafv :: !(Maybe Xgafv)
, _itlLanguageCode :: !(Maybe Text)
, _itlUploadProtocol :: !(Maybe Text)
, _itlAccessToken :: !(Maybe Text)
, _itlUploadType :: !(Maybe Text)
, _itlFilter :: !(Maybe Text)
, _itlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
infoTypesList
:: InfoTypesList
infoTypesList =
InfoTypesList'
{ _itlXgafv = Nothing
, _itlLanguageCode = Nothing
, _itlUploadProtocol = Nothing
, _itlAccessToken = Nothing
, _itlUploadType = Nothing
, _itlFilter = Nothing
, _itlCallback = Nothing
}
itlXgafv :: Lens' InfoTypesList (Maybe Xgafv)
itlXgafv = lens _itlXgafv (\ s a -> s{_itlXgafv = a})
itlLanguageCode :: Lens' InfoTypesList (Maybe Text)
itlLanguageCode
= lens _itlLanguageCode
(\ s a -> s{_itlLanguageCode = a})
itlUploadProtocol :: Lens' InfoTypesList (Maybe Text)
itlUploadProtocol
= lens _itlUploadProtocol
(\ s a -> s{_itlUploadProtocol = a})
itlAccessToken :: Lens' InfoTypesList (Maybe Text)
itlAccessToken
= lens _itlAccessToken
(\ s a -> s{_itlAccessToken = a})
itlUploadType :: Lens' InfoTypesList (Maybe Text)
itlUploadType
= lens _itlUploadType
(\ s a -> s{_itlUploadType = a})
itlFilter :: Lens' InfoTypesList (Maybe Text)
itlFilter
= lens _itlFilter (\ s a -> s{_itlFilter = a})
itlCallback :: Lens' InfoTypesList (Maybe Text)
itlCallback
= lens _itlCallback (\ s a -> s{_itlCallback = a})
instance GoogleRequest InfoTypesList where
type Rs InfoTypesList =
GooglePrivacyDlpV2ListInfoTypesResponse
type Scopes InfoTypesList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient InfoTypesList'{..}
= go _itlXgafv _itlLanguageCode _itlUploadProtocol
_itlAccessToken
_itlUploadType
_itlFilter
_itlCallback
(Just AltJSON)
dLPService
where go
= buildClient (Proxy :: Proxy InfoTypesListResource)
mempty