{-# 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.RuntimeConfig.Operations.List
(
OperationsListResource
, operationsList
, OperationsList
, olXgafv
, olUploadProtocol
, olAccessToken
, olUploadType
, olName
, olFilter
, olPageToken
, olPageSize
, olCallback
) where
import Network.Google.Prelude
import Network.Google.RuntimeConfig.Types
type OperationsListResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" 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] ListOperationsResponse
data OperationsList = OperationsList'
{ _olXgafv :: !(Maybe Xgafv)
, _olUploadProtocol :: !(Maybe Text)
, _olAccessToken :: !(Maybe Text)
, _olUploadType :: !(Maybe Text)
, _olName :: !Text
, _olFilter :: !(Maybe Text)
, _olPageToken :: !(Maybe Text)
, _olPageSize :: !(Maybe (Textual Int32))
, _olCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
operationsList
:: Text
-> OperationsList
operationsList pOlName_ =
OperationsList'
{ _olXgafv = Nothing
, _olUploadProtocol = Nothing
, _olAccessToken = Nothing
, _olUploadType = Nothing
, _olName = pOlName_
, _olFilter = Nothing
, _olPageToken = Nothing
, _olPageSize = Nothing
, _olCallback = Nothing
}
olXgafv :: Lens' OperationsList (Maybe Xgafv)
olXgafv = lens _olXgafv (\ s a -> s{_olXgafv = a})
olUploadProtocol :: Lens' OperationsList (Maybe Text)
olUploadProtocol
= lens _olUploadProtocol
(\ s a -> s{_olUploadProtocol = a})
olAccessToken :: Lens' OperationsList (Maybe Text)
olAccessToken
= lens _olAccessToken
(\ s a -> s{_olAccessToken = a})
olUploadType :: Lens' OperationsList (Maybe Text)
olUploadType
= lens _olUploadType (\ s a -> s{_olUploadType = a})
olName :: Lens' OperationsList Text
olName = lens _olName (\ s a -> s{_olName = a})
olFilter :: Lens' OperationsList (Maybe Text)
olFilter = lens _olFilter (\ s a -> s{_olFilter = a})
olPageToken :: Lens' OperationsList (Maybe Text)
olPageToken
= lens _olPageToken (\ s a -> s{_olPageToken = a})
olPageSize :: Lens' OperationsList (Maybe Int32)
olPageSize
= lens _olPageSize (\ s a -> s{_olPageSize = a}) .
mapping _Coerce
olCallback :: Lens' OperationsList (Maybe Text)
olCallback
= lens _olCallback (\ s a -> s{_olCallback = a})
instance GoogleRequest OperationsList where
type Rs OperationsList = ListOperationsResponse
type Scopes OperationsList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloudruntimeconfig"]
requestClient OperationsList'{..}
= go _olName _olXgafv _olUploadProtocol
_olAccessToken
_olUploadType
_olFilter
_olPageToken
_olPageSize
_olCallback
(Just AltJSON)
runtimeConfigService
where go
= buildClient (Proxy :: Proxy OperationsListResource)
mempty