module Network.Google.Resource.Ml.Projects.Operations.Get
(
ProjectsOperationsGetResource
, projectsOperationsGet
, ProjectsOperationsGet
, pogXgafv
, pogUploadProtocol
, pogPp
, pogAccessToken
, pogUploadType
, pogBearerToken
, pogName
, pogCallback
) where
import Network.Google.MachineLearning.Types
import Network.Google.Prelude
type ProjectsOperationsGetResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] GoogleLongrunning__Operation
data ProjectsOperationsGet = ProjectsOperationsGet'
{ _pogXgafv :: !(Maybe Xgafv)
, _pogUploadProtocol :: !(Maybe Text)
, _pogPp :: !Bool
, _pogAccessToken :: !(Maybe Text)
, _pogUploadType :: !(Maybe Text)
, _pogBearerToken :: !(Maybe Text)
, _pogName :: !Text
, _pogCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsOperationsGet
:: Text
-> ProjectsOperationsGet
projectsOperationsGet pPogName_ =
ProjectsOperationsGet'
{ _pogXgafv = Nothing
, _pogUploadProtocol = Nothing
, _pogPp = True
, _pogAccessToken = Nothing
, _pogUploadType = Nothing
, _pogBearerToken = Nothing
, _pogName = pPogName_
, _pogCallback = Nothing
}
pogXgafv :: Lens' ProjectsOperationsGet (Maybe Xgafv)
pogXgafv = lens _pogXgafv (\ s a -> s{_pogXgafv = a})
pogUploadProtocol :: Lens' ProjectsOperationsGet (Maybe Text)
pogUploadProtocol
= lens _pogUploadProtocol
(\ s a -> s{_pogUploadProtocol = a})
pogPp :: Lens' ProjectsOperationsGet Bool
pogPp = lens _pogPp (\ s a -> s{_pogPp = a})
pogAccessToken :: Lens' ProjectsOperationsGet (Maybe Text)
pogAccessToken
= lens _pogAccessToken
(\ s a -> s{_pogAccessToken = a})
pogUploadType :: Lens' ProjectsOperationsGet (Maybe Text)
pogUploadType
= lens _pogUploadType
(\ s a -> s{_pogUploadType = a})
pogBearerToken :: Lens' ProjectsOperationsGet (Maybe Text)
pogBearerToken
= lens _pogBearerToken
(\ s a -> s{_pogBearerToken = a})
pogName :: Lens' ProjectsOperationsGet Text
pogName = lens _pogName (\ s a -> s{_pogName = a})
pogCallback :: Lens' ProjectsOperationsGet (Maybe Text)
pogCallback
= lens _pogCallback (\ s a -> s{_pogCallback = a})
instance GoogleRequest ProjectsOperationsGet where
type Rs ProjectsOperationsGet =
GoogleLongrunning__Operation
type Scopes ProjectsOperationsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsOperationsGet'{..}
= go _pogName _pogXgafv _pogUploadProtocol
(Just _pogPp)
_pogAccessToken
_pogUploadType
_pogBearerToken
_pogCallback
(Just AltJSON)
machineLearningService
where go
= buildClient
(Proxy :: Proxy ProjectsOperationsGetResource)
mempty