{-# 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.TPU.Projects.Locations.AcceleratorTypes.List
(
ProjectsLocationsAcceleratorTypesListResource
, projectsLocationsAcceleratorTypesList
, ProjectsLocationsAcceleratorTypesList
, platlParent
, platlXgafv
, platlUploadProtocol
, platlOrderBy
, platlAccessToken
, platlUploadType
, platlFilter
, platlPageToken
, platlPageSize
, platlCallback
) where
import Network.Google.Prelude
import Network.Google.TPU.Types
type ProjectsLocationsAcceleratorTypesListResource =
"v1" :>
Capture "parent" Text :>
"acceleratorTypes" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "orderBy" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListAcceleratorTypesResponse
data ProjectsLocationsAcceleratorTypesList = ProjectsLocationsAcceleratorTypesList'
{ _platlParent :: !Text
, _platlXgafv :: !(Maybe Xgafv)
, _platlUploadProtocol :: !(Maybe Text)
, _platlOrderBy :: !(Maybe Text)
, _platlAccessToken :: !(Maybe Text)
, _platlUploadType :: !(Maybe Text)
, _platlFilter :: !(Maybe Text)
, _platlPageToken :: !(Maybe Text)
, _platlPageSize :: !(Maybe (Textual Int32))
, _platlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsAcceleratorTypesList
:: Text
-> ProjectsLocationsAcceleratorTypesList
projectsLocationsAcceleratorTypesList pPlatlParent_ =
ProjectsLocationsAcceleratorTypesList'
{ _platlParent = pPlatlParent_
, _platlXgafv = Nothing
, _platlUploadProtocol = Nothing
, _platlOrderBy = Nothing
, _platlAccessToken = Nothing
, _platlUploadType = Nothing
, _platlFilter = Nothing
, _platlPageToken = Nothing
, _platlPageSize = Nothing
, _platlCallback = Nothing
}
platlParent :: Lens' ProjectsLocationsAcceleratorTypesList Text
platlParent
= lens _platlParent (\ s a -> s{_platlParent = a})
platlXgafv :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Xgafv)
platlXgafv
= lens _platlXgafv (\ s a -> s{_platlXgafv = a})
platlUploadProtocol :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Text)
platlUploadProtocol
= lens _platlUploadProtocol
(\ s a -> s{_platlUploadProtocol = a})
platlOrderBy :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Text)
platlOrderBy
= lens _platlOrderBy (\ s a -> s{_platlOrderBy = a})
platlAccessToken :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Text)
platlAccessToken
= lens _platlAccessToken
(\ s a -> s{_platlAccessToken = a})
platlUploadType :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Text)
platlUploadType
= lens _platlUploadType
(\ s a -> s{_platlUploadType = a})
platlFilter :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Text)
platlFilter
= lens _platlFilter (\ s a -> s{_platlFilter = a})
platlPageToken :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Text)
platlPageToken
= lens _platlPageToken
(\ s a -> s{_platlPageToken = a})
platlPageSize :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Int32)
platlPageSize
= lens _platlPageSize
(\ s a -> s{_platlPageSize = a})
. mapping _Coerce
platlCallback :: Lens' ProjectsLocationsAcceleratorTypesList (Maybe Text)
platlCallback
= lens _platlCallback
(\ s a -> s{_platlCallback = a})
instance GoogleRequest
ProjectsLocationsAcceleratorTypesList where
type Rs ProjectsLocationsAcceleratorTypesList =
ListAcceleratorTypesResponse
type Scopes ProjectsLocationsAcceleratorTypesList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsLocationsAcceleratorTypesList'{..}
= go _platlParent _platlXgafv _platlUploadProtocol
_platlOrderBy
_platlAccessToken
_platlUploadType
_platlFilter
_platlPageToken
_platlPageSize
_platlCallback
(Just AltJSON)
tPUService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsAcceleratorTypesListResource)
mempty