module Network.Google.Resource.Ml.Projects.Models.Create
(
ProjectsModelsCreateResource
, projectsModelsCreate
, ProjectsModelsCreate
, pmcParent
, pmcXgafv
, pmcUploadProtocol
, pmcPp
, pmcAccessToken
, pmcUploadType
, pmcPayload
, pmcBearerToken
, pmcCallback
) where
import Network.Google.MachineLearning.Types
import Network.Google.Prelude
type ProjectsModelsCreateResource =
"v1beta1" :>
Capture "parent" Text :>
"models" :>
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 :>
ReqBody '[JSON] GoogleCloudMlV1beta1__Model :>
Post '[JSON] GoogleCloudMlV1beta1__Model
data ProjectsModelsCreate = ProjectsModelsCreate'
{ _pmcParent :: !Text
, _pmcXgafv :: !(Maybe Xgafv)
, _pmcUploadProtocol :: !(Maybe Text)
, _pmcPp :: !Bool
, _pmcAccessToken :: !(Maybe Text)
, _pmcUploadType :: !(Maybe Text)
, _pmcPayload :: !GoogleCloudMlV1beta1__Model
, _pmcBearerToken :: !(Maybe Text)
, _pmcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsModelsCreate
:: Text
-> GoogleCloudMlV1beta1__Model
-> ProjectsModelsCreate
projectsModelsCreate pPmcParent_ pPmcPayload_ =
ProjectsModelsCreate'
{ _pmcParent = pPmcParent_
, _pmcXgafv = Nothing
, _pmcUploadProtocol = Nothing
, _pmcPp = True
, _pmcAccessToken = Nothing
, _pmcUploadType = Nothing
, _pmcPayload = pPmcPayload_
, _pmcBearerToken = Nothing
, _pmcCallback = Nothing
}
pmcParent :: Lens' ProjectsModelsCreate Text
pmcParent
= lens _pmcParent (\ s a -> s{_pmcParent = a})
pmcXgafv :: Lens' ProjectsModelsCreate (Maybe Xgafv)
pmcXgafv = lens _pmcXgafv (\ s a -> s{_pmcXgafv = a})
pmcUploadProtocol :: Lens' ProjectsModelsCreate (Maybe Text)
pmcUploadProtocol
= lens _pmcUploadProtocol
(\ s a -> s{_pmcUploadProtocol = a})
pmcPp :: Lens' ProjectsModelsCreate Bool
pmcPp = lens _pmcPp (\ s a -> s{_pmcPp = a})
pmcAccessToken :: Lens' ProjectsModelsCreate (Maybe Text)
pmcAccessToken
= lens _pmcAccessToken
(\ s a -> s{_pmcAccessToken = a})
pmcUploadType :: Lens' ProjectsModelsCreate (Maybe Text)
pmcUploadType
= lens _pmcUploadType
(\ s a -> s{_pmcUploadType = a})
pmcPayload :: Lens' ProjectsModelsCreate GoogleCloudMlV1beta1__Model
pmcPayload
= lens _pmcPayload (\ s a -> s{_pmcPayload = a})
pmcBearerToken :: Lens' ProjectsModelsCreate (Maybe Text)
pmcBearerToken
= lens _pmcBearerToken
(\ s a -> s{_pmcBearerToken = a})
pmcCallback :: Lens' ProjectsModelsCreate (Maybe Text)
pmcCallback
= lens _pmcCallback (\ s a -> s{_pmcCallback = a})
instance GoogleRequest ProjectsModelsCreate where
type Rs ProjectsModelsCreate =
GoogleCloudMlV1beta1__Model
type Scopes ProjectsModelsCreate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsModelsCreate'{..}
= go _pmcParent _pmcXgafv _pmcUploadProtocol
(Just _pmcPp)
_pmcAccessToken
_pmcUploadType
_pmcBearerToken
_pmcCallback
(Just AltJSON)
_pmcPayload
machineLearningService
where go
= buildClient
(Proxy :: Proxy ProjectsModelsCreateResource)
mempty