module Network.Google.Resource.Ml.Projects.Operations.List
(
ProjectsOperationsListResource
, projectsOperationsList
, ProjectsOperationsList
, polXgafv
, polUploadProtocol
, polPp
, polAccessToken
, polUploadType
, polBearerToken
, polName
, polFilter
, polPageToken
, polPageSize
, polCallback
) where
import Network.Google.MachineLearning.Types
import Network.Google.Prelude
type ProjectsOperationsListResource =
"v1beta1" :>
Capture "name" Text :>
"operations" :>
QueryParam "$.xgafv" Xgafv :>
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]
GoogleLongrunning__ListOperationsResponse
data ProjectsOperationsList = ProjectsOperationsList'
{ _polXgafv :: !(Maybe Xgafv)
, _polUploadProtocol :: !(Maybe Text)
, _polPp :: !Bool
, _polAccessToken :: !(Maybe Text)
, _polUploadType :: !(Maybe Text)
, _polBearerToken :: !(Maybe Text)
, _polName :: !Text
, _polFilter :: !(Maybe Text)
, _polPageToken :: !(Maybe Text)
, _polPageSize :: !(Maybe (Textual Int32))
, _polCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsOperationsList
:: Text
-> ProjectsOperationsList
projectsOperationsList pPolName_ =
ProjectsOperationsList'
{ _polXgafv = Nothing
, _polUploadProtocol = Nothing
, _polPp = True
, _polAccessToken = Nothing
, _polUploadType = Nothing
, _polBearerToken = Nothing
, _polName = pPolName_
, _polFilter = Nothing
, _polPageToken = Nothing
, _polPageSize = Nothing
, _polCallback = Nothing
}
polXgafv :: Lens' ProjectsOperationsList (Maybe Xgafv)
polXgafv = lens _polXgafv (\ s a -> s{_polXgafv = a})
polUploadProtocol :: Lens' ProjectsOperationsList (Maybe Text)
polUploadProtocol
= lens _polUploadProtocol
(\ s a -> s{_polUploadProtocol = a})
polPp :: Lens' ProjectsOperationsList Bool
polPp = lens _polPp (\ s a -> s{_polPp = a})
polAccessToken :: Lens' ProjectsOperationsList (Maybe Text)
polAccessToken
= lens _polAccessToken
(\ s a -> s{_polAccessToken = a})
polUploadType :: Lens' ProjectsOperationsList (Maybe Text)
polUploadType
= lens _polUploadType
(\ s a -> s{_polUploadType = a})
polBearerToken :: Lens' ProjectsOperationsList (Maybe Text)
polBearerToken
= lens _polBearerToken
(\ s a -> s{_polBearerToken = a})
polName :: Lens' ProjectsOperationsList Text
polName = lens _polName (\ s a -> s{_polName = a})
polFilter :: Lens' ProjectsOperationsList (Maybe Text)
polFilter
= lens _polFilter (\ s a -> s{_polFilter = a})
polPageToken :: Lens' ProjectsOperationsList (Maybe Text)
polPageToken
= lens _polPageToken (\ s a -> s{_polPageToken = a})
polPageSize :: Lens' ProjectsOperationsList (Maybe Int32)
polPageSize
= lens _polPageSize (\ s a -> s{_polPageSize = a}) .
mapping _Coerce
polCallback :: Lens' ProjectsOperationsList (Maybe Text)
polCallback
= lens _polCallback (\ s a -> s{_polCallback = a})
instance GoogleRequest ProjectsOperationsList where
type Rs ProjectsOperationsList =
GoogleLongrunning__ListOperationsResponse
type Scopes ProjectsOperationsList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsOperationsList'{..}
= go _polName _polXgafv _polUploadProtocol
(Just _polPp)
_polAccessToken
_polUploadType
_polBearerToken
_polFilter
_polPageToken
_polPageSize
_polCallback
(Just AltJSON)
machineLearningService
where go
= buildClient
(Proxy :: Proxy ProjectsOperationsListResource)
mempty