{-# 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.WebSecurityScanner.Projects.ScanConfigs.ScanRuns.FindingTypeStats.List
(
ProjectsScanConfigsScanRunsFindingTypeStatsListResource
, projectsScanConfigsScanRunsFindingTypeStatsList
, ProjectsScanConfigsScanRunsFindingTypeStatsList
, pscsrftslParent
, pscsrftslXgafv
, pscsrftslUploadProtocol
, pscsrftslAccessToken
, pscsrftslUploadType
, pscsrftslCallback
) where
import Network.Google.Prelude
import Network.Google.WebSecurityScanner.Types
type ProjectsScanConfigsScanRunsFindingTypeStatsListResource
=
"v1alpha" :>
Capture "parent" Text :>
"findingTypeStats" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListFindingTypeStatsResponse
data ProjectsScanConfigsScanRunsFindingTypeStatsList = ProjectsScanConfigsScanRunsFindingTypeStatsList'
{ _pscsrftslParent :: !Text
, _pscsrftslXgafv :: !(Maybe Xgafv)
, _pscsrftslUploadProtocol :: !(Maybe Text)
, _pscsrftslAccessToken :: !(Maybe Text)
, _pscsrftslUploadType :: !(Maybe Text)
, _pscsrftslCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsScanConfigsScanRunsFindingTypeStatsList
:: Text
-> ProjectsScanConfigsScanRunsFindingTypeStatsList
projectsScanConfigsScanRunsFindingTypeStatsList pPscsrftslParent_ =
ProjectsScanConfigsScanRunsFindingTypeStatsList'
{ _pscsrftslParent = pPscsrftslParent_
, _pscsrftslXgafv = Nothing
, _pscsrftslUploadProtocol = Nothing
, _pscsrftslAccessToken = Nothing
, _pscsrftslUploadType = Nothing
, _pscsrftslCallback = Nothing
}
pscsrftslParent :: Lens' ProjectsScanConfigsScanRunsFindingTypeStatsList Text
pscsrftslParent
= lens _pscsrftslParent
(\ s a -> s{_pscsrftslParent = a})
pscsrftslXgafv :: Lens' ProjectsScanConfigsScanRunsFindingTypeStatsList (Maybe Xgafv)
pscsrftslXgafv
= lens _pscsrftslXgafv
(\ s a -> s{_pscsrftslXgafv = a})
pscsrftslUploadProtocol :: Lens' ProjectsScanConfigsScanRunsFindingTypeStatsList (Maybe Text)
pscsrftslUploadProtocol
= lens _pscsrftslUploadProtocol
(\ s a -> s{_pscsrftslUploadProtocol = a})
pscsrftslAccessToken :: Lens' ProjectsScanConfigsScanRunsFindingTypeStatsList (Maybe Text)
pscsrftslAccessToken
= lens _pscsrftslAccessToken
(\ s a -> s{_pscsrftslAccessToken = a})
pscsrftslUploadType :: Lens' ProjectsScanConfigsScanRunsFindingTypeStatsList (Maybe Text)
pscsrftslUploadType
= lens _pscsrftslUploadType
(\ s a -> s{_pscsrftslUploadType = a})
pscsrftslCallback :: Lens' ProjectsScanConfigsScanRunsFindingTypeStatsList (Maybe Text)
pscsrftslCallback
= lens _pscsrftslCallback
(\ s a -> s{_pscsrftslCallback = a})
instance GoogleRequest
ProjectsScanConfigsScanRunsFindingTypeStatsList where
type Rs
ProjectsScanConfigsScanRunsFindingTypeStatsList
= ListFindingTypeStatsResponse
type Scopes
ProjectsScanConfigsScanRunsFindingTypeStatsList
= '["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsScanConfigsScanRunsFindingTypeStatsList'{..}
= go _pscsrftslParent _pscsrftslXgafv
_pscsrftslUploadProtocol
_pscsrftslAccessToken
_pscsrftslUploadType
_pscsrftslCallback
(Just AltJSON)
webSecurityScannerService
where go
= buildClient
(Proxy ::
Proxy
ProjectsScanConfigsScanRunsFindingTypeStatsListResource)
mempty