{-# 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.StorageTransfer.TransferOperations.List
(
TransferOperationsListResource
, transferOperationsList
, TransferOperationsList
, tolXgafv
, tolUploadProtocol
, tolPp
, tolAccessToken
, tolUploadType
, tolBearerToken
, tolName
, tolFilter
, tolPageToken
, tolPageSize
, tolCallback
) where
import Network.Google.Prelude
import Network.Google.StorageTransfer.Types
type TransferOperationsListResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListOperationsResponse
-- | Lists operations that match the specified filter in the request. If the
-- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE:
-- the \`name\` binding below allows API services to override the binding
-- to use different resource name schemes, such as
-- \`users\/*\/operations\`.
--
-- /See:/ 'transferOperationsList' smart constructor.
data TransferOperationsList = TransferOperationsList'
{ _tolXgafv :: !(Maybe Text)
, _tolUploadProtocol :: !(Maybe Text)
, _tolPp :: !Bool
, _tolAccessToken :: !(Maybe Text)
, _tolUploadType :: !(Maybe Text)
, _tolBearerToken :: !(Maybe Text)
, _tolName :: !Text
, _tolFilter :: !(Maybe Text)
, _tolPageToken :: !(Maybe Text)
, _tolPageSize :: !(Maybe (Textual Int32))
, _tolCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'TransferOperationsList' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'tolXgafv'
--
-- * 'tolUploadProtocol'
--
-- * 'tolPp'
--
-- * 'tolAccessToken'
--
-- * 'tolUploadType'
--
-- * 'tolBearerToken'
--
-- * 'tolName'
--
-- * 'tolFilter'
--
-- * 'tolPageToken'
--
-- * 'tolPageSize'
--
-- * 'tolCallback'
transferOperationsList
:: Text -- ^ 'tolName'
-> TransferOperationsList
transferOperationsList pTolName_ =
TransferOperationsList'
{ _tolXgafv = Nothing
, _tolUploadProtocol = Nothing
, _tolPp = True
, _tolAccessToken = Nothing
, _tolUploadType = Nothing
, _tolBearerToken = Nothing
, _tolName = pTolName_
, _tolFilter = Nothing
, _tolPageToken = Nothing
, _tolPageSize = Nothing
, _tolCallback = Nothing
}
-- | V1 error format.
tolXgafv :: Lens' TransferOperationsList (Maybe Text)
tolXgafv = lens _tolXgafv (\ s a -> s{_tolXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
tolUploadProtocol :: Lens' TransferOperationsList (Maybe Text)
tolUploadProtocol
= lens _tolUploadProtocol
(\ s a -> s{_tolUploadProtocol = a})
-- | Pretty-print response.
tolPp :: Lens' TransferOperationsList Bool
tolPp = lens _tolPp (\ s a -> s{_tolPp = a})
-- | OAuth access token.
tolAccessToken :: Lens' TransferOperationsList (Maybe Text)
tolAccessToken
= lens _tolAccessToken
(\ s a -> s{_tolAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
tolUploadType :: Lens' TransferOperationsList (Maybe Text)
tolUploadType
= lens _tolUploadType
(\ s a -> s{_tolUploadType = a})
-- | OAuth bearer token.
tolBearerToken :: Lens' TransferOperationsList (Maybe Text)
tolBearerToken
= lens _tolBearerToken
(\ s a -> s{_tolBearerToken = a})
-- | The value \`transferOperations\`.
tolName :: Lens' TransferOperationsList Text
tolName = lens _tolName (\ s a -> s{_tolName = a})
-- | The standard list filter.
tolFilter :: Lens' TransferOperationsList (Maybe Text)
tolFilter
= lens _tolFilter (\ s a -> s{_tolFilter = a})
-- | The standard list page token.
tolPageToken :: Lens' TransferOperationsList (Maybe Text)
tolPageToken
= lens _tolPageToken (\ s a -> s{_tolPageToken = a})
-- | The standard list page size.
tolPageSize :: Lens' TransferOperationsList (Maybe Int32)
tolPageSize
= lens _tolPageSize (\ s a -> s{_tolPageSize = a}) .
mapping _Coerce
-- | JSONP
tolCallback :: Lens' TransferOperationsList (Maybe Text)
tolCallback
= lens _tolCallback (\ s a -> s{_tolCallback = a})
instance GoogleRequest TransferOperationsList where
type Rs TransferOperationsList =
ListOperationsResponse
type Scopes TransferOperationsList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient TransferOperationsList'{..}
= go _tolName _tolXgafv _tolUploadProtocol
(Just _tolPp)
_tolAccessToken
_tolUploadType
_tolBearerToken
_tolFilter
_tolPageToken
_tolPageSize
_tolCallback
(Just AltJSON)
storageTransferService
where go
= buildClient
(Proxy :: Proxy TransferOperationsListResource)
mempty