module Network.Google.MachineLearning.Types.Product where
import Network.Google.MachineLearning.Types.Sum
import Network.Google.Prelude
data GoogleCloudMlV1beta1__SetDefaultVersionRequest =
GoogleCloudMlV1beta1__SetDefaultVersionRequest'
deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__SetDefaultVersionRequest
:: GoogleCloudMlV1beta1__SetDefaultVersionRequest
googleCloudMlV1beta1__SetDefaultVersionRequest =
GoogleCloudMlV1beta1__SetDefaultVersionRequest'
instance FromJSON
GoogleCloudMlV1beta1__SetDefaultVersionRequest where
parseJSON
= withObject
"GoogleCloudMlV1beta1SetDefaultVersionRequest"
(\ o ->
pure GoogleCloudMlV1beta1__SetDefaultVersionRequest')
instance ToJSON
GoogleCloudMlV1beta1__SetDefaultVersionRequest where
toJSON = const emptyObject
data GoogleCloudMlV1beta1__Version = GoogleCloudMlV1beta1__Version'
{ _gcmvvLastUseTime :: !(Maybe DateTime')
, _gcmvvName :: !(Maybe Text)
, _gcmvvDeploymentURI :: !(Maybe Text)
, _gcmvvDescription :: !(Maybe Text)
, _gcmvvCreateTime :: !(Maybe DateTime')
, _gcmvvIsDefault :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__Version
:: GoogleCloudMlV1beta1__Version
googleCloudMlV1beta1__Version =
GoogleCloudMlV1beta1__Version'
{ _gcmvvLastUseTime = Nothing
, _gcmvvName = Nothing
, _gcmvvDeploymentURI = Nothing
, _gcmvvDescription = Nothing
, _gcmvvCreateTime = Nothing
, _gcmvvIsDefault = Nothing
}
gcmvvLastUseTime :: Lens' GoogleCloudMlV1beta1__Version (Maybe UTCTime)
gcmvvLastUseTime
= lens _gcmvvLastUseTime
(\ s a -> s{_gcmvvLastUseTime = a})
. mapping _DateTime
gcmvvName :: Lens' GoogleCloudMlV1beta1__Version (Maybe Text)
gcmvvName
= lens _gcmvvName (\ s a -> s{_gcmvvName = a})
gcmvvDeploymentURI :: Lens' GoogleCloudMlV1beta1__Version (Maybe Text)
gcmvvDeploymentURI
= lens _gcmvvDeploymentURI
(\ s a -> s{_gcmvvDeploymentURI = a})
gcmvvDescription :: Lens' GoogleCloudMlV1beta1__Version (Maybe Text)
gcmvvDescription
= lens _gcmvvDescription
(\ s a -> s{_gcmvvDescription = a})
gcmvvCreateTime :: Lens' GoogleCloudMlV1beta1__Version (Maybe UTCTime)
gcmvvCreateTime
= lens _gcmvvCreateTime
(\ s a -> s{_gcmvvCreateTime = a})
. mapping _DateTime
gcmvvIsDefault :: Lens' GoogleCloudMlV1beta1__Version (Maybe Bool)
gcmvvIsDefault
= lens _gcmvvIsDefault
(\ s a -> s{_gcmvvIsDefault = a})
instance FromJSON GoogleCloudMlV1beta1__Version where
parseJSON
= withObject "GoogleCloudMlV1beta1Version"
(\ o ->
GoogleCloudMlV1beta1__Version' <$>
(o .:? "lastUseTime") <*> (o .:? "name") <*>
(o .:? "deploymentUri")
<*> (o .:? "description")
<*> (o .:? "createTime")
<*> (o .:? "isDefault"))
instance ToJSON GoogleCloudMlV1beta1__Version where
toJSON GoogleCloudMlV1beta1__Version'{..}
= object
(catMaybes
[("lastUseTime" .=) <$> _gcmvvLastUseTime,
("name" .=) <$> _gcmvvName,
("deploymentUri" .=) <$> _gcmvvDeploymentURI,
("description" .=) <$> _gcmvvDescription,
("createTime" .=) <$> _gcmvvCreateTime,
("isDefault" .=) <$> _gcmvvIsDefault])
data GoogleCloudMlV1beta1__HyperparameterSpec = GoogleCloudMlV1beta1__HyperparameterSpec'
{ _gcmvhsParams :: !(Maybe [GoogleCloudMlV1beta1__ParameterSpec])
, _gcmvhsGoal :: !(Maybe GoogleCloudMlV1beta1__HyperparameterSpecGoal)
, _gcmvhsMaxTrials :: !(Maybe (Textual Int32))
, _gcmvhsMaxParallelTrials :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__HyperparameterSpec
:: GoogleCloudMlV1beta1__HyperparameterSpec
googleCloudMlV1beta1__HyperparameterSpec =
GoogleCloudMlV1beta1__HyperparameterSpec'
{ _gcmvhsParams = Nothing
, _gcmvhsGoal = Nothing
, _gcmvhsMaxTrials = Nothing
, _gcmvhsMaxParallelTrials = Nothing
}
gcmvhsParams :: Lens' GoogleCloudMlV1beta1__HyperparameterSpec [GoogleCloudMlV1beta1__ParameterSpec]
gcmvhsParams
= lens _gcmvhsParams (\ s a -> s{_gcmvhsParams = a})
. _Default
. _Coerce
gcmvhsGoal :: Lens' GoogleCloudMlV1beta1__HyperparameterSpec (Maybe GoogleCloudMlV1beta1__HyperparameterSpecGoal)
gcmvhsGoal
= lens _gcmvhsGoal (\ s a -> s{_gcmvhsGoal = a})
gcmvhsMaxTrials :: Lens' GoogleCloudMlV1beta1__HyperparameterSpec (Maybe Int32)
gcmvhsMaxTrials
= lens _gcmvhsMaxTrials
(\ s a -> s{_gcmvhsMaxTrials = a})
. mapping _Coerce
gcmvhsMaxParallelTrials :: Lens' GoogleCloudMlV1beta1__HyperparameterSpec (Maybe Int32)
gcmvhsMaxParallelTrials
= lens _gcmvhsMaxParallelTrials
(\ s a -> s{_gcmvhsMaxParallelTrials = a})
. mapping _Coerce
instance FromJSON
GoogleCloudMlV1beta1__HyperparameterSpec where
parseJSON
= withObject "GoogleCloudMlV1beta1HyperparameterSpec"
(\ o ->
GoogleCloudMlV1beta1__HyperparameterSpec' <$>
(o .:? "params" .!= mempty) <*> (o .:? "goal") <*>
(o .:? "maxTrials")
<*> (o .:? "maxParallelTrials"))
instance ToJSON
GoogleCloudMlV1beta1__HyperparameterSpec where
toJSON GoogleCloudMlV1beta1__HyperparameterSpec'{..}
= object
(catMaybes
[("params" .=) <$> _gcmvhsParams,
("goal" .=) <$> _gcmvhsGoal,
("maxTrials" .=) <$> _gcmvhsMaxTrials,
("maxParallelTrials" .=) <$>
_gcmvhsMaxParallelTrials])
data GoogleCloudMlV1beta1__GetConfigResponse = GoogleCloudMlV1beta1__GetConfigResponse'
{ _gcmvgcrServiceAccount :: !(Maybe Text)
, _gcmvgcrServiceAccountProject :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__GetConfigResponse
:: GoogleCloudMlV1beta1__GetConfigResponse
googleCloudMlV1beta1__GetConfigResponse =
GoogleCloudMlV1beta1__GetConfigResponse'
{ _gcmvgcrServiceAccount = Nothing
, _gcmvgcrServiceAccountProject = Nothing
}
gcmvgcrServiceAccount :: Lens' GoogleCloudMlV1beta1__GetConfigResponse (Maybe Text)
gcmvgcrServiceAccount
= lens _gcmvgcrServiceAccount
(\ s a -> s{_gcmvgcrServiceAccount = a})
gcmvgcrServiceAccountProject :: Lens' GoogleCloudMlV1beta1__GetConfigResponse (Maybe Int64)
gcmvgcrServiceAccountProject
= lens _gcmvgcrServiceAccountProject
(\ s a -> s{_gcmvgcrServiceAccountProject = a})
. mapping _Coerce
instance FromJSON
GoogleCloudMlV1beta1__GetConfigResponse where
parseJSON
= withObject "GoogleCloudMlV1beta1GetConfigResponse"
(\ o ->
GoogleCloudMlV1beta1__GetConfigResponse' <$>
(o .:? "serviceAccount") <*>
(o .:? "serviceAccountProject"))
instance ToJSON
GoogleCloudMlV1beta1__GetConfigResponse where
toJSON GoogleCloudMlV1beta1__GetConfigResponse'{..}
= object
(catMaybes
[("serviceAccount" .=) <$> _gcmvgcrServiceAccount,
("serviceAccountProject" .=) <$>
_gcmvgcrServiceAccountProject])
data GoogleCloudMlV1beta1__Job = GoogleCloudMlV1beta1__Job'
{ _gcmvjState :: !(Maybe GoogleCloudMlV1beta1__JobState)
, _gcmvjTrainingOutput :: !(Maybe GoogleCloudMlV1beta1__TrainingOutput)
, _gcmvjJobId :: !(Maybe Text)
, _gcmvjStartTime :: !(Maybe DateTime')
, _gcmvjPredictionInput :: !(Maybe GoogleCloudMlV1beta1__PredictionInput)
, _gcmvjEndTime :: !(Maybe DateTime')
, _gcmvjPredictionOutput :: !(Maybe GoogleCloudMlV1beta1__PredictionOutput)
, _gcmvjErrorMessage :: !(Maybe Text)
, _gcmvjTrainingInput :: !(Maybe GoogleCloudMlV1beta1__TrainingInput)
, _gcmvjCreateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__Job
:: GoogleCloudMlV1beta1__Job
googleCloudMlV1beta1__Job =
GoogleCloudMlV1beta1__Job'
{ _gcmvjState = Nothing
, _gcmvjTrainingOutput = Nothing
, _gcmvjJobId = Nothing
, _gcmvjStartTime = Nothing
, _gcmvjPredictionInput = Nothing
, _gcmvjEndTime = Nothing
, _gcmvjPredictionOutput = Nothing
, _gcmvjErrorMessage = Nothing
, _gcmvjTrainingInput = Nothing
, _gcmvjCreateTime = Nothing
}
gcmvjState :: Lens' GoogleCloudMlV1beta1__Job (Maybe GoogleCloudMlV1beta1__JobState)
gcmvjState
= lens _gcmvjState (\ s a -> s{_gcmvjState = a})
gcmvjTrainingOutput :: Lens' GoogleCloudMlV1beta1__Job (Maybe GoogleCloudMlV1beta1__TrainingOutput)
gcmvjTrainingOutput
= lens _gcmvjTrainingOutput
(\ s a -> s{_gcmvjTrainingOutput = a})
gcmvjJobId :: Lens' GoogleCloudMlV1beta1__Job (Maybe Text)
gcmvjJobId
= lens _gcmvjJobId (\ s a -> s{_gcmvjJobId = a})
gcmvjStartTime :: Lens' GoogleCloudMlV1beta1__Job (Maybe UTCTime)
gcmvjStartTime
= lens _gcmvjStartTime
(\ s a -> s{_gcmvjStartTime = a})
. mapping _DateTime
gcmvjPredictionInput :: Lens' GoogleCloudMlV1beta1__Job (Maybe GoogleCloudMlV1beta1__PredictionInput)
gcmvjPredictionInput
= lens _gcmvjPredictionInput
(\ s a -> s{_gcmvjPredictionInput = a})
gcmvjEndTime :: Lens' GoogleCloudMlV1beta1__Job (Maybe UTCTime)
gcmvjEndTime
= lens _gcmvjEndTime (\ s a -> s{_gcmvjEndTime = a})
. mapping _DateTime
gcmvjPredictionOutput :: Lens' GoogleCloudMlV1beta1__Job (Maybe GoogleCloudMlV1beta1__PredictionOutput)
gcmvjPredictionOutput
= lens _gcmvjPredictionOutput
(\ s a -> s{_gcmvjPredictionOutput = a})
gcmvjErrorMessage :: Lens' GoogleCloudMlV1beta1__Job (Maybe Text)
gcmvjErrorMessage
= lens _gcmvjErrorMessage
(\ s a -> s{_gcmvjErrorMessage = a})
gcmvjTrainingInput :: Lens' GoogleCloudMlV1beta1__Job (Maybe GoogleCloudMlV1beta1__TrainingInput)
gcmvjTrainingInput
= lens _gcmvjTrainingInput
(\ s a -> s{_gcmvjTrainingInput = a})
gcmvjCreateTime :: Lens' GoogleCloudMlV1beta1__Job (Maybe UTCTime)
gcmvjCreateTime
= lens _gcmvjCreateTime
(\ s a -> s{_gcmvjCreateTime = a})
. mapping _DateTime
instance FromJSON GoogleCloudMlV1beta1__Job where
parseJSON
= withObject "GoogleCloudMlV1beta1Job"
(\ o ->
GoogleCloudMlV1beta1__Job' <$>
(o .:? "state") <*> (o .:? "trainingOutput") <*>
(o .:? "jobId")
<*> (o .:? "startTime")
<*> (o .:? "predictionInput")
<*> (o .:? "endTime")
<*> (o .:? "predictionOutput")
<*> (o .:? "errorMessage")
<*> (o .:? "trainingInput")
<*> (o .:? "createTime"))
instance ToJSON GoogleCloudMlV1beta1__Job where
toJSON GoogleCloudMlV1beta1__Job'{..}
= object
(catMaybes
[("state" .=) <$> _gcmvjState,
("trainingOutput" .=) <$> _gcmvjTrainingOutput,
("jobId" .=) <$> _gcmvjJobId,
("startTime" .=) <$> _gcmvjStartTime,
("predictionInput" .=) <$> _gcmvjPredictionInput,
("endTime" .=) <$> _gcmvjEndTime,
("predictionOutput" .=) <$> _gcmvjPredictionOutput,
("errorMessage" .=) <$> _gcmvjErrorMessage,
("trainingInput" .=) <$> _gcmvjTrainingInput,
("createTime" .=) <$> _gcmvjCreateTime])
data GoogleCloudMlV1beta1__TrainingOutput = GoogleCloudMlV1beta1__TrainingOutput'
{ _gcmvtoCompletedTrialCount :: !(Maybe (Textual Int64))
, _gcmvtoTrials :: !(Maybe [GoogleCloudMlV1beta1__HyperparameterOutput])
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__TrainingOutput
:: GoogleCloudMlV1beta1__TrainingOutput
googleCloudMlV1beta1__TrainingOutput =
GoogleCloudMlV1beta1__TrainingOutput'
{ _gcmvtoCompletedTrialCount = Nothing
, _gcmvtoTrials = Nothing
}
gcmvtoCompletedTrialCount :: Lens' GoogleCloudMlV1beta1__TrainingOutput (Maybe Int64)
gcmvtoCompletedTrialCount
= lens _gcmvtoCompletedTrialCount
(\ s a -> s{_gcmvtoCompletedTrialCount = a})
. mapping _Coerce
gcmvtoTrials :: Lens' GoogleCloudMlV1beta1__TrainingOutput [GoogleCloudMlV1beta1__HyperparameterOutput]
gcmvtoTrials
= lens _gcmvtoTrials (\ s a -> s{_gcmvtoTrials = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudMlV1beta1__TrainingOutput where
parseJSON
= withObject "GoogleCloudMlV1beta1TrainingOutput"
(\ o ->
GoogleCloudMlV1beta1__TrainingOutput' <$>
(o .:? "completedTrialCount") <*>
(o .:? "trials" .!= mempty))
instance ToJSON GoogleCloudMlV1beta1__TrainingOutput
where
toJSON GoogleCloudMlV1beta1__TrainingOutput'{..}
= object
(catMaybes
[("completedTrialCount" .=) <$>
_gcmvtoCompletedTrialCount,
("trials" .=) <$> _gcmvtoTrials])
data GoogleCloudMlV1beta1__Model = GoogleCloudMlV1beta1__Model'
{ _gcmvmDefaultVersion :: !(Maybe GoogleCloudMlV1beta1__Version)
, _gcmvmName :: !(Maybe Text)
, _gcmvmDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__Model
:: GoogleCloudMlV1beta1__Model
googleCloudMlV1beta1__Model =
GoogleCloudMlV1beta1__Model'
{ _gcmvmDefaultVersion = Nothing
, _gcmvmName = Nothing
, _gcmvmDescription = Nothing
}
gcmvmDefaultVersion :: Lens' GoogleCloudMlV1beta1__Model (Maybe GoogleCloudMlV1beta1__Version)
gcmvmDefaultVersion
= lens _gcmvmDefaultVersion
(\ s a -> s{_gcmvmDefaultVersion = a})
gcmvmName :: Lens' GoogleCloudMlV1beta1__Model (Maybe Text)
gcmvmName
= lens _gcmvmName (\ s a -> s{_gcmvmName = a})
gcmvmDescription :: Lens' GoogleCloudMlV1beta1__Model (Maybe Text)
gcmvmDescription
= lens _gcmvmDescription
(\ s a -> s{_gcmvmDescription = a})
instance FromJSON GoogleCloudMlV1beta1__Model where
parseJSON
= withObject "GoogleCloudMlV1beta1Model"
(\ o ->
GoogleCloudMlV1beta1__Model' <$>
(o .:? "defaultVersion") <*> (o .:? "name") <*>
(o .:? "description"))
instance ToJSON GoogleCloudMlV1beta1__Model where
toJSON GoogleCloudMlV1beta1__Model'{..}
= object
(catMaybes
[("defaultVersion" .=) <$> _gcmvmDefaultVersion,
("name" .=) <$> _gcmvmName,
("description" .=) <$> _gcmvmDescription])
newtype GoogleLongrunning__OperationResponse = GoogleLongrunning__OperationResponse'
{ _glorAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunning__OperationResponse
:: HashMap Text JSONValue
-> GoogleLongrunning__OperationResponse
googleLongrunning__OperationResponse pGlorAddtional_ =
GoogleLongrunning__OperationResponse'
{ _glorAddtional = _Coerce # pGlorAddtional_
}
glorAddtional :: Lens' GoogleLongrunning__OperationResponse (HashMap Text JSONValue)
glorAddtional
= lens _glorAddtional
(\ s a -> s{_glorAddtional = a})
. _Coerce
instance FromJSON
GoogleLongrunning__OperationResponse where
parseJSON
= withObject "GoogleLongrunningOperationResponse"
(\ o ->
GoogleLongrunning__OperationResponse' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunning__OperationResponse
where
toJSON = toJSON . _glorAddtional
data GoogleCloudMlV1beta1__OperationMetadata = GoogleCloudMlV1beta1__OperationMetadata'
{ _gcmvomStartTime :: !(Maybe DateTime')
, _gcmvomModelName :: !(Maybe Text)
, _gcmvomVersion :: !(Maybe GoogleCloudMlV1beta1__Version)
, _gcmvomEndTime :: !(Maybe DateTime')
, _gcmvomIsCancellationRequested :: !(Maybe Bool)
, _gcmvomOperationType :: !(Maybe GoogleCloudMlV1beta1__OperationMetadataOperationType)
, _gcmvomCreateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__OperationMetadata
:: GoogleCloudMlV1beta1__OperationMetadata
googleCloudMlV1beta1__OperationMetadata =
GoogleCloudMlV1beta1__OperationMetadata'
{ _gcmvomStartTime = Nothing
, _gcmvomModelName = Nothing
, _gcmvomVersion = Nothing
, _gcmvomEndTime = Nothing
, _gcmvomIsCancellationRequested = Nothing
, _gcmvomOperationType = Nothing
, _gcmvomCreateTime = Nothing
}
gcmvomStartTime :: Lens' GoogleCloudMlV1beta1__OperationMetadata (Maybe UTCTime)
gcmvomStartTime
= lens _gcmvomStartTime
(\ s a -> s{_gcmvomStartTime = a})
. mapping _DateTime
gcmvomModelName :: Lens' GoogleCloudMlV1beta1__OperationMetadata (Maybe Text)
gcmvomModelName
= lens _gcmvomModelName
(\ s a -> s{_gcmvomModelName = a})
gcmvomVersion :: Lens' GoogleCloudMlV1beta1__OperationMetadata (Maybe GoogleCloudMlV1beta1__Version)
gcmvomVersion
= lens _gcmvomVersion
(\ s a -> s{_gcmvomVersion = a})
gcmvomEndTime :: Lens' GoogleCloudMlV1beta1__OperationMetadata (Maybe UTCTime)
gcmvomEndTime
= lens _gcmvomEndTime
(\ s a -> s{_gcmvomEndTime = a})
. mapping _DateTime
gcmvomIsCancellationRequested :: Lens' GoogleCloudMlV1beta1__OperationMetadata (Maybe Bool)
gcmvomIsCancellationRequested
= lens _gcmvomIsCancellationRequested
(\ s a -> s{_gcmvomIsCancellationRequested = a})
gcmvomOperationType :: Lens' GoogleCloudMlV1beta1__OperationMetadata (Maybe GoogleCloudMlV1beta1__OperationMetadataOperationType)
gcmvomOperationType
= lens _gcmvomOperationType
(\ s a -> s{_gcmvomOperationType = a})
gcmvomCreateTime :: Lens' GoogleCloudMlV1beta1__OperationMetadata (Maybe UTCTime)
gcmvomCreateTime
= lens _gcmvomCreateTime
(\ s a -> s{_gcmvomCreateTime = a})
. mapping _DateTime
instance FromJSON
GoogleCloudMlV1beta1__OperationMetadata where
parseJSON
= withObject "GoogleCloudMlV1beta1OperationMetadata"
(\ o ->
GoogleCloudMlV1beta1__OperationMetadata' <$>
(o .:? "startTime") <*> (o .:? "modelName") <*>
(o .:? "version")
<*> (o .:? "endTime")
<*> (o .:? "isCancellationRequested")
<*> (o .:? "operationType")
<*> (o .:? "createTime"))
instance ToJSON
GoogleCloudMlV1beta1__OperationMetadata where
toJSON GoogleCloudMlV1beta1__OperationMetadata'{..}
= object
(catMaybes
[("startTime" .=) <$> _gcmvomStartTime,
("modelName" .=) <$> _gcmvomModelName,
("version" .=) <$> _gcmvomVersion,
("endTime" .=) <$> _gcmvomEndTime,
("isCancellationRequested" .=) <$>
_gcmvomIsCancellationRequested,
("operationType" .=) <$> _gcmvomOperationType,
("createTime" .=) <$> _gcmvomCreateTime])
data GoogleCloudMlV1beta1__HyperparameterOutput = GoogleCloudMlV1beta1__HyperparameterOutput'
{ _gcmvhoAllMetrics :: !(Maybe [GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric])
, _gcmvhoHyperparameters :: !(Maybe GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters)
, _gcmvhoTrialId :: !(Maybe Text)
, _gcmvhoFinalMetric :: !(Maybe GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__HyperparameterOutput
:: GoogleCloudMlV1beta1__HyperparameterOutput
googleCloudMlV1beta1__HyperparameterOutput =
GoogleCloudMlV1beta1__HyperparameterOutput'
{ _gcmvhoAllMetrics = Nothing
, _gcmvhoHyperparameters = Nothing
, _gcmvhoTrialId = Nothing
, _gcmvhoFinalMetric = Nothing
}
gcmvhoAllMetrics :: Lens' GoogleCloudMlV1beta1__HyperparameterOutput [GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric]
gcmvhoAllMetrics
= lens _gcmvhoAllMetrics
(\ s a -> s{_gcmvhoAllMetrics = a})
. _Default
. _Coerce
gcmvhoHyperparameters :: Lens' GoogleCloudMlV1beta1__HyperparameterOutput (Maybe GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters)
gcmvhoHyperparameters
= lens _gcmvhoHyperparameters
(\ s a -> s{_gcmvhoHyperparameters = a})
gcmvhoTrialId :: Lens' GoogleCloudMlV1beta1__HyperparameterOutput (Maybe Text)
gcmvhoTrialId
= lens _gcmvhoTrialId
(\ s a -> s{_gcmvhoTrialId = a})
gcmvhoFinalMetric :: Lens' GoogleCloudMlV1beta1__HyperparameterOutput (Maybe GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric)
gcmvhoFinalMetric
= lens _gcmvhoFinalMetric
(\ s a -> s{_gcmvhoFinalMetric = a})
instance FromJSON
GoogleCloudMlV1beta1__HyperparameterOutput where
parseJSON
= withObject
"GoogleCloudMlV1beta1HyperparameterOutput"
(\ o ->
GoogleCloudMlV1beta1__HyperparameterOutput' <$>
(o .:? "allMetrics" .!= mempty) <*>
(o .:? "hyperparameters")
<*> (o .:? "trialId")
<*> (o .:? "finalMetric"))
instance ToJSON
GoogleCloudMlV1beta1__HyperparameterOutput where
toJSON
GoogleCloudMlV1beta1__HyperparameterOutput'{..}
= object
(catMaybes
[("allMetrics" .=) <$> _gcmvhoAllMetrics,
("hyperparameters" .=) <$> _gcmvhoHyperparameters,
("trialId" .=) <$> _gcmvhoTrialId,
("finalMetric" .=) <$> _gcmvhoFinalMetric])
data GoogleCloudMlV1beta1__ListVersionsResponse = GoogleCloudMlV1beta1__ListVersionsResponse'
{ _gcmvlvrNextPageToken :: !(Maybe Text)
, _gcmvlvrVersions :: !(Maybe [GoogleCloudMlV1beta1__Version])
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__ListVersionsResponse
:: GoogleCloudMlV1beta1__ListVersionsResponse
googleCloudMlV1beta1__ListVersionsResponse =
GoogleCloudMlV1beta1__ListVersionsResponse'
{ _gcmvlvrNextPageToken = Nothing
, _gcmvlvrVersions = Nothing
}
gcmvlvrNextPageToken :: Lens' GoogleCloudMlV1beta1__ListVersionsResponse (Maybe Text)
gcmvlvrNextPageToken
= lens _gcmvlvrNextPageToken
(\ s a -> s{_gcmvlvrNextPageToken = a})
gcmvlvrVersions :: Lens' GoogleCloudMlV1beta1__ListVersionsResponse [GoogleCloudMlV1beta1__Version]
gcmvlvrVersions
= lens _gcmvlvrVersions
(\ s a -> s{_gcmvlvrVersions = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudMlV1beta1__ListVersionsResponse where
parseJSON
= withObject
"GoogleCloudMlV1beta1ListVersionsResponse"
(\ o ->
GoogleCloudMlV1beta1__ListVersionsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "versions" .!= mempty))
instance ToJSON
GoogleCloudMlV1beta1__ListVersionsResponse where
toJSON
GoogleCloudMlV1beta1__ListVersionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcmvlvrNextPageToken,
("versions" .=) <$> _gcmvlvrVersions])
data GoogleLongrunning__ListOperationsResponse = GoogleLongrunning__ListOperationsResponse'
{ _gllorNextPageToken :: !(Maybe Text)
, _gllorOperations :: !(Maybe [GoogleLongrunning__Operation])
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunning__ListOperationsResponse
:: GoogleLongrunning__ListOperationsResponse
googleLongrunning__ListOperationsResponse =
GoogleLongrunning__ListOperationsResponse'
{ _gllorNextPageToken = Nothing
, _gllorOperations = Nothing
}
gllorNextPageToken :: Lens' GoogleLongrunning__ListOperationsResponse (Maybe Text)
gllorNextPageToken
= lens _gllorNextPageToken
(\ s a -> s{_gllorNextPageToken = a})
gllorOperations :: Lens' GoogleLongrunning__ListOperationsResponse [GoogleLongrunning__Operation]
gllorOperations
= lens _gllorOperations
(\ s a -> s{_gllorOperations = a})
. _Default
. _Coerce
instance FromJSON
GoogleLongrunning__ListOperationsResponse where
parseJSON
= withObject
"GoogleLongrunningListOperationsResponse"
(\ o ->
GoogleLongrunning__ListOperationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "operations" .!= mempty))
instance ToJSON
GoogleLongrunning__ListOperationsResponse where
toJSON GoogleLongrunning__ListOperationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gllorNextPageToken,
("operations" .=) <$> _gllorOperations])
data GoogleCloudMlV1beta1__PredictionInput = GoogleCloudMlV1beta1__PredictionInput'
{ _gcmvpiVersionName :: !(Maybe Text)
, _gcmvpiModelName :: !(Maybe Text)
, _gcmvpiDataFormat :: !(Maybe GoogleCloudMlV1beta1__PredictionInputDataFormat)
, _gcmvpiMaxWorkerCount :: !(Maybe (Textual Int64))
, _gcmvpiOutputPath :: !(Maybe Text)
, _gcmvpiRegion :: !(Maybe Text)
, _gcmvpiInputPaths :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__PredictionInput
:: GoogleCloudMlV1beta1__PredictionInput
googleCloudMlV1beta1__PredictionInput =
GoogleCloudMlV1beta1__PredictionInput'
{ _gcmvpiVersionName = Nothing
, _gcmvpiModelName = Nothing
, _gcmvpiDataFormat = Nothing
, _gcmvpiMaxWorkerCount = Nothing
, _gcmvpiOutputPath = Nothing
, _gcmvpiRegion = Nothing
, _gcmvpiInputPaths = Nothing
}
gcmvpiVersionName :: Lens' GoogleCloudMlV1beta1__PredictionInput (Maybe Text)
gcmvpiVersionName
= lens _gcmvpiVersionName
(\ s a -> s{_gcmvpiVersionName = a})
gcmvpiModelName :: Lens' GoogleCloudMlV1beta1__PredictionInput (Maybe Text)
gcmvpiModelName
= lens _gcmvpiModelName
(\ s a -> s{_gcmvpiModelName = a})
gcmvpiDataFormat :: Lens' GoogleCloudMlV1beta1__PredictionInput (Maybe GoogleCloudMlV1beta1__PredictionInputDataFormat)
gcmvpiDataFormat
= lens _gcmvpiDataFormat
(\ s a -> s{_gcmvpiDataFormat = a})
gcmvpiMaxWorkerCount :: Lens' GoogleCloudMlV1beta1__PredictionInput (Maybe Int64)
gcmvpiMaxWorkerCount
= lens _gcmvpiMaxWorkerCount
(\ s a -> s{_gcmvpiMaxWorkerCount = a})
. mapping _Coerce
gcmvpiOutputPath :: Lens' GoogleCloudMlV1beta1__PredictionInput (Maybe Text)
gcmvpiOutputPath
= lens _gcmvpiOutputPath
(\ s a -> s{_gcmvpiOutputPath = a})
gcmvpiRegion :: Lens' GoogleCloudMlV1beta1__PredictionInput (Maybe Text)
gcmvpiRegion
= lens _gcmvpiRegion (\ s a -> s{_gcmvpiRegion = a})
gcmvpiInputPaths :: Lens' GoogleCloudMlV1beta1__PredictionInput [Text]
gcmvpiInputPaths
= lens _gcmvpiInputPaths
(\ s a -> s{_gcmvpiInputPaths = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudMlV1beta1__PredictionInput where
parseJSON
= withObject "GoogleCloudMlV1beta1PredictionInput"
(\ o ->
GoogleCloudMlV1beta1__PredictionInput' <$>
(o .:? "versionName") <*> (o .:? "modelName") <*>
(o .:? "dataFormat")
<*> (o .:? "maxWorkerCount")
<*> (o .:? "outputPath")
<*> (o .:? "region")
<*> (o .:? "inputPaths" .!= mempty))
instance ToJSON GoogleCloudMlV1beta1__PredictionInput
where
toJSON GoogleCloudMlV1beta1__PredictionInput'{..}
= object
(catMaybes
[("versionName" .=) <$> _gcmvpiVersionName,
("modelName" .=) <$> _gcmvpiModelName,
("dataFormat" .=) <$> _gcmvpiDataFormat,
("maxWorkerCount" .=) <$> _gcmvpiMaxWorkerCount,
("outputPath" .=) <$> _gcmvpiOutputPath,
("region" .=) <$> _gcmvpiRegion,
("inputPaths" .=) <$> _gcmvpiInputPaths])
data GoogleLongrunning__Operation = GoogleLongrunning__Operation'
{ _gloDone :: !(Maybe Bool)
, _gloError :: !(Maybe GoogleRpc__Status)
, _gloResponse :: !(Maybe GoogleLongrunning__OperationResponse)
, _gloName :: !(Maybe Text)
, _gloMetadata :: !(Maybe GoogleLongrunning__OperationMetadata)
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunning__Operation
:: GoogleLongrunning__Operation
googleLongrunning__Operation =
GoogleLongrunning__Operation'
{ _gloDone = Nothing
, _gloError = Nothing
, _gloResponse = Nothing
, _gloName = Nothing
, _gloMetadata = Nothing
}
gloDone :: Lens' GoogleLongrunning__Operation (Maybe Bool)
gloDone = lens _gloDone (\ s a -> s{_gloDone = a})
gloError :: Lens' GoogleLongrunning__Operation (Maybe GoogleRpc__Status)
gloError = lens _gloError (\ s a -> s{_gloError = a})
gloResponse :: Lens' GoogleLongrunning__Operation (Maybe GoogleLongrunning__OperationResponse)
gloResponse
= lens _gloResponse (\ s a -> s{_gloResponse = a})
gloName :: Lens' GoogleLongrunning__Operation (Maybe Text)
gloName = lens _gloName (\ s a -> s{_gloName = a})
gloMetadata :: Lens' GoogleLongrunning__Operation (Maybe GoogleLongrunning__OperationMetadata)
gloMetadata
= lens _gloMetadata (\ s a -> s{_gloMetadata = a})
instance FromJSON GoogleLongrunning__Operation where
parseJSON
= withObject "GoogleLongrunningOperation"
(\ o ->
GoogleLongrunning__Operation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON GoogleLongrunning__Operation where
toJSON GoogleLongrunning__Operation'{..}
= object
(catMaybes
[("done" .=) <$> _gloDone,
("error" .=) <$> _gloError,
("response" .=) <$> _gloResponse,
("name" .=) <$> _gloName,
("metadata" .=) <$> _gloMetadata])
newtype GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters = GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters'
{ _gcmvhohAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__HyperparameterOutputHyperparameters
:: HashMap Text Text
-> GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters
googleCloudMlV1beta1__HyperparameterOutputHyperparameters pGcmvhohAddtional_ =
GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters'
{ _gcmvhohAddtional = _Coerce # pGcmvhohAddtional_
}
gcmvhohAddtional :: Lens' GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters (HashMap Text Text)
gcmvhohAddtional
= lens _gcmvhohAddtional
(\ s a -> s{_gcmvhohAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters
where
parseJSON
= withObject
"GoogleCloudMlV1beta1HyperparameterOutputHyperparameters"
(\ o ->
GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudMlV1beta1__HyperparameterOutputHyperparameters
where
toJSON = toJSON . _gcmvhohAddtional
data GoogleRpc__Status = GoogleRpc__Status'
{ _grsDetails :: !(Maybe [GoogleRpc__StatusDetailsItem])
, _grsCode :: !(Maybe (Textual Int32))
, _grsMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleRpc__Status
:: GoogleRpc__Status
googleRpc__Status =
GoogleRpc__Status'
{ _grsDetails = Nothing
, _grsCode = Nothing
, _grsMessage = Nothing
}
grsDetails :: Lens' GoogleRpc__Status [GoogleRpc__StatusDetailsItem]
grsDetails
= lens _grsDetails (\ s a -> s{_grsDetails = a}) .
_Default
. _Coerce
grsCode :: Lens' GoogleRpc__Status (Maybe Int32)
grsCode
= lens _grsCode (\ s a -> s{_grsCode = a}) .
mapping _Coerce
grsMessage :: Lens' GoogleRpc__Status (Maybe Text)
grsMessage
= lens _grsMessage (\ s a -> s{_grsMessage = a})
instance FromJSON GoogleRpc__Status where
parseJSON
= withObject "GoogleRpcStatus"
(\ o ->
GoogleRpc__Status' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON GoogleRpc__Status where
toJSON GoogleRpc__Status'{..}
= object
(catMaybes
[("details" .=) <$> _grsDetails,
("code" .=) <$> _grsCode,
("message" .=) <$> _grsMessage])
newtype GoogleLongrunning__OperationMetadata = GoogleLongrunning__OperationMetadata'
{ _glomAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleLongrunning__OperationMetadata
:: HashMap Text JSONValue
-> GoogleLongrunning__OperationMetadata
googleLongrunning__OperationMetadata pGlomAddtional_ =
GoogleLongrunning__OperationMetadata'
{ _glomAddtional = _Coerce # pGlomAddtional_
}
glomAddtional :: Lens' GoogleLongrunning__OperationMetadata (HashMap Text JSONValue)
glomAddtional
= lens _glomAddtional
(\ s a -> s{_glomAddtional = a})
. _Coerce
instance FromJSON
GoogleLongrunning__OperationMetadata where
parseJSON
= withObject "GoogleLongrunningOperationMetadata"
(\ o ->
GoogleLongrunning__OperationMetadata' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunning__OperationMetadata
where
toJSON = toJSON . _glomAddtional
data GoogleCloudMlV1beta1__PredictionOutput = GoogleCloudMlV1beta1__PredictionOutput'
{ _gcmvpoErrorCount :: !(Maybe (Textual Int64))
, _gcmvpoPredictionCount :: !(Maybe (Textual Int64))
, _gcmvpoOutputPath :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__PredictionOutput
:: GoogleCloudMlV1beta1__PredictionOutput
googleCloudMlV1beta1__PredictionOutput =
GoogleCloudMlV1beta1__PredictionOutput'
{ _gcmvpoErrorCount = Nothing
, _gcmvpoPredictionCount = Nothing
, _gcmvpoOutputPath = Nothing
}
gcmvpoErrorCount :: Lens' GoogleCloudMlV1beta1__PredictionOutput (Maybe Int64)
gcmvpoErrorCount
= lens _gcmvpoErrorCount
(\ s a -> s{_gcmvpoErrorCount = a})
. mapping _Coerce
gcmvpoPredictionCount :: Lens' GoogleCloudMlV1beta1__PredictionOutput (Maybe Int64)
gcmvpoPredictionCount
= lens _gcmvpoPredictionCount
(\ s a -> s{_gcmvpoPredictionCount = a})
. mapping _Coerce
gcmvpoOutputPath :: Lens' GoogleCloudMlV1beta1__PredictionOutput (Maybe Text)
gcmvpoOutputPath
= lens _gcmvpoOutputPath
(\ s a -> s{_gcmvpoOutputPath = a})
instance FromJSON
GoogleCloudMlV1beta1__PredictionOutput where
parseJSON
= withObject "GoogleCloudMlV1beta1PredictionOutput"
(\ o ->
GoogleCloudMlV1beta1__PredictionOutput' <$>
(o .:? "errorCount") <*> (o .:? "predictionCount")
<*> (o .:? "outputPath"))
instance ToJSON
GoogleCloudMlV1beta1__PredictionOutput where
toJSON GoogleCloudMlV1beta1__PredictionOutput'{..}
= object
(catMaybes
[("errorCount" .=) <$> _gcmvpoErrorCount,
("predictionCount" .=) <$> _gcmvpoPredictionCount,
("outputPath" .=) <$> _gcmvpoOutputPath])
data GoogleCloudMlV1beta1__CancelJobRequest =
GoogleCloudMlV1beta1__CancelJobRequest'
deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__CancelJobRequest
:: GoogleCloudMlV1beta1__CancelJobRequest
googleCloudMlV1beta1__CancelJobRequest =
GoogleCloudMlV1beta1__CancelJobRequest'
instance FromJSON
GoogleCloudMlV1beta1__CancelJobRequest where
parseJSON
= withObject "GoogleCloudMlV1beta1CancelJobRequest"
(\ o -> pure GoogleCloudMlV1beta1__CancelJobRequest')
instance ToJSON
GoogleCloudMlV1beta1__CancelJobRequest where
toJSON = const emptyObject
data GoogleCloudMlV1beta1__ListModelsResponse = GoogleCloudMlV1beta1__ListModelsResponse'
{ _gcmvlmrNextPageToken :: !(Maybe Text)
, _gcmvlmrModels :: !(Maybe [GoogleCloudMlV1beta1__Model])
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__ListModelsResponse
:: GoogleCloudMlV1beta1__ListModelsResponse
googleCloudMlV1beta1__ListModelsResponse =
GoogleCloudMlV1beta1__ListModelsResponse'
{ _gcmvlmrNextPageToken = Nothing
, _gcmvlmrModels = Nothing
}
gcmvlmrNextPageToken :: Lens' GoogleCloudMlV1beta1__ListModelsResponse (Maybe Text)
gcmvlmrNextPageToken
= lens _gcmvlmrNextPageToken
(\ s a -> s{_gcmvlmrNextPageToken = a})
gcmvlmrModels :: Lens' GoogleCloudMlV1beta1__ListModelsResponse [GoogleCloudMlV1beta1__Model]
gcmvlmrModels
= lens _gcmvlmrModels
(\ s a -> s{_gcmvlmrModels = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudMlV1beta1__ListModelsResponse where
parseJSON
= withObject "GoogleCloudMlV1beta1ListModelsResponse"
(\ o ->
GoogleCloudMlV1beta1__ListModelsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "models" .!= mempty))
instance ToJSON
GoogleCloudMlV1beta1__ListModelsResponse where
toJSON GoogleCloudMlV1beta1__ListModelsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcmvlmrNextPageToken,
("models" .=) <$> _gcmvlmrModels])
data GoogleCloudMlV1beta1__ListJobsResponse = GoogleCloudMlV1beta1__ListJobsResponse'
{ _gcmvljrNextPageToken :: !(Maybe Text)
, _gcmvljrJobs :: !(Maybe [GoogleCloudMlV1beta1__Job])
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__ListJobsResponse
:: GoogleCloudMlV1beta1__ListJobsResponse
googleCloudMlV1beta1__ListJobsResponse =
GoogleCloudMlV1beta1__ListJobsResponse'
{ _gcmvljrNextPageToken = Nothing
, _gcmvljrJobs = Nothing
}
gcmvljrNextPageToken :: Lens' GoogleCloudMlV1beta1__ListJobsResponse (Maybe Text)
gcmvljrNextPageToken
= lens _gcmvljrNextPageToken
(\ s a -> s{_gcmvljrNextPageToken = a})
gcmvljrJobs :: Lens' GoogleCloudMlV1beta1__ListJobsResponse [GoogleCloudMlV1beta1__Job]
gcmvljrJobs
= lens _gcmvljrJobs (\ s a -> s{_gcmvljrJobs = a}) .
_Default
. _Coerce
instance FromJSON
GoogleCloudMlV1beta1__ListJobsResponse where
parseJSON
= withObject "GoogleCloudMlV1beta1ListJobsResponse"
(\ o ->
GoogleCloudMlV1beta1__ListJobsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "jobs" .!= mempty))
instance ToJSON
GoogleCloudMlV1beta1__ListJobsResponse where
toJSON GoogleCloudMlV1beta1__ListJobsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcmvljrNextPageToken,
("jobs" .=) <$> _gcmvljrJobs])
data GoogleCloudMlV1beta1__TrainingInput = GoogleCloudMlV1beta1__TrainingInput'
{ _gcmvtiMasterType :: !(Maybe Text)
, _gcmvtiParameterServerCount :: !(Maybe (Textual Int64))
, _gcmvtiArgs :: !(Maybe [Text])
, _gcmvtiWorkerCount :: !(Maybe (Textual Int64))
, _gcmvtiWorkerType :: !(Maybe Text)
, _gcmvtiPythonModule :: !(Maybe Text)
, _gcmvtiParameterServerType :: !(Maybe Text)
, _gcmvtiHyperparameters :: !(Maybe GoogleCloudMlV1beta1__HyperparameterSpec)
, _gcmvtiPackageURIs :: !(Maybe [Text])
, _gcmvtiScaleTier :: !(Maybe GoogleCloudMlV1beta1__TrainingInputScaleTier)
, _gcmvtiRegion :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__TrainingInput
:: GoogleCloudMlV1beta1__TrainingInput
googleCloudMlV1beta1__TrainingInput =
GoogleCloudMlV1beta1__TrainingInput'
{ _gcmvtiMasterType = Nothing
, _gcmvtiParameterServerCount = Nothing
, _gcmvtiArgs = Nothing
, _gcmvtiWorkerCount = Nothing
, _gcmvtiWorkerType = Nothing
, _gcmvtiPythonModule = Nothing
, _gcmvtiParameterServerType = Nothing
, _gcmvtiHyperparameters = Nothing
, _gcmvtiPackageURIs = Nothing
, _gcmvtiScaleTier = Nothing
, _gcmvtiRegion = Nothing
}
gcmvtiMasterType :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe Text)
gcmvtiMasterType
= lens _gcmvtiMasterType
(\ s a -> s{_gcmvtiMasterType = a})
gcmvtiParameterServerCount :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe Int64)
gcmvtiParameterServerCount
= lens _gcmvtiParameterServerCount
(\ s a -> s{_gcmvtiParameterServerCount = a})
. mapping _Coerce
gcmvtiArgs :: Lens' GoogleCloudMlV1beta1__TrainingInput [Text]
gcmvtiArgs
= lens _gcmvtiArgs (\ s a -> s{_gcmvtiArgs = a}) .
_Default
. _Coerce
gcmvtiWorkerCount :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe Int64)
gcmvtiWorkerCount
= lens _gcmvtiWorkerCount
(\ s a -> s{_gcmvtiWorkerCount = a})
. mapping _Coerce
gcmvtiWorkerType :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe Text)
gcmvtiWorkerType
= lens _gcmvtiWorkerType
(\ s a -> s{_gcmvtiWorkerType = a})
gcmvtiPythonModule :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe Text)
gcmvtiPythonModule
= lens _gcmvtiPythonModule
(\ s a -> s{_gcmvtiPythonModule = a})
gcmvtiParameterServerType :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe Text)
gcmvtiParameterServerType
= lens _gcmvtiParameterServerType
(\ s a -> s{_gcmvtiParameterServerType = a})
gcmvtiHyperparameters :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe GoogleCloudMlV1beta1__HyperparameterSpec)
gcmvtiHyperparameters
= lens _gcmvtiHyperparameters
(\ s a -> s{_gcmvtiHyperparameters = a})
gcmvtiPackageURIs :: Lens' GoogleCloudMlV1beta1__TrainingInput [Text]
gcmvtiPackageURIs
= lens _gcmvtiPackageURIs
(\ s a -> s{_gcmvtiPackageURIs = a})
. _Default
. _Coerce
gcmvtiScaleTier :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe GoogleCloudMlV1beta1__TrainingInputScaleTier)
gcmvtiScaleTier
= lens _gcmvtiScaleTier
(\ s a -> s{_gcmvtiScaleTier = a})
gcmvtiRegion :: Lens' GoogleCloudMlV1beta1__TrainingInput (Maybe Text)
gcmvtiRegion
= lens _gcmvtiRegion (\ s a -> s{_gcmvtiRegion = a})
instance FromJSON GoogleCloudMlV1beta1__TrainingInput
where
parseJSON
= withObject "GoogleCloudMlV1beta1TrainingInput"
(\ o ->
GoogleCloudMlV1beta1__TrainingInput' <$>
(o .:? "masterType") <*>
(o .:? "parameterServerCount")
<*> (o .:? "args" .!= mempty)
<*> (o .:? "workerCount")
<*> (o .:? "workerType")
<*> (o .:? "pythonModule")
<*> (o .:? "parameterServerType")
<*> (o .:? "hyperparameters")
<*> (o .:? "packageUris" .!= mempty)
<*> (o .:? "scaleTier")
<*> (o .:? "region"))
instance ToJSON GoogleCloudMlV1beta1__TrainingInput
where
toJSON GoogleCloudMlV1beta1__TrainingInput'{..}
= object
(catMaybes
[("masterType" .=) <$> _gcmvtiMasterType,
("parameterServerCount" .=) <$>
_gcmvtiParameterServerCount,
("args" .=) <$> _gcmvtiArgs,
("workerCount" .=) <$> _gcmvtiWorkerCount,
("workerType" .=) <$> _gcmvtiWorkerType,
("pythonModule" .=) <$> _gcmvtiPythonModule,
("parameterServerType" .=) <$>
_gcmvtiParameterServerType,
("hyperparameters" .=) <$> _gcmvtiHyperparameters,
("packageUris" .=) <$> _gcmvtiPackageURIs,
("scaleTier" .=) <$> _gcmvtiScaleTier,
("region" .=) <$> _gcmvtiRegion])
newtype GoogleRpc__StatusDetailsItem = GoogleRpc__StatusDetailsItem'
{ _grsdiAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
googleRpc__StatusDetailsItem
:: HashMap Text JSONValue
-> GoogleRpc__StatusDetailsItem
googleRpc__StatusDetailsItem pGrsdiAddtional_ =
GoogleRpc__StatusDetailsItem'
{ _grsdiAddtional = _Coerce # pGrsdiAddtional_
}
grsdiAddtional :: Lens' GoogleRpc__StatusDetailsItem (HashMap Text JSONValue)
grsdiAddtional
= lens _grsdiAddtional
(\ s a -> s{_grsdiAddtional = a})
. _Coerce
instance FromJSON GoogleRpc__StatusDetailsItem where
parseJSON
= withObject "GoogleRpcStatusDetailsItem"
(\ o ->
GoogleRpc__StatusDetailsItem' <$>
(parseJSONObject o))
instance ToJSON GoogleRpc__StatusDetailsItem where
toJSON = toJSON . _grsdiAddtional
data GoogleProtobuf__Empty =
GoogleProtobuf__Empty'
deriving (Eq,Show,Data,Typeable,Generic)
googleProtobuf__Empty
:: GoogleProtobuf__Empty
googleProtobuf__Empty = GoogleProtobuf__Empty'
instance FromJSON GoogleProtobuf__Empty where
parseJSON
= withObject "GoogleProtobufEmpty"
(\ o -> pure GoogleProtobuf__Empty')
instance ToJSON GoogleProtobuf__Empty where
toJSON = const emptyObject
data GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric = GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric'
{ _gcmvhohmTrainingStep :: !(Maybe (Textual Int64))
, _gcmvhohmObjectiveValue :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric
:: GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric
googleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric =
GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric'
{ _gcmvhohmTrainingStep = Nothing
, _gcmvhohmObjectiveValue = Nothing
}
gcmvhohmTrainingStep :: Lens' GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric (Maybe Int64)
gcmvhohmTrainingStep
= lens _gcmvhohmTrainingStep
(\ s a -> s{_gcmvhohmTrainingStep = a})
. mapping _Coerce
gcmvhohmObjectiveValue :: Lens' GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric (Maybe Double)
gcmvhohmObjectiveValue
= lens _gcmvhohmObjectiveValue
(\ s a -> s{_gcmvhohmObjectiveValue = a})
. mapping _Coerce
instance FromJSON
GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric
where
parseJSON
= withObject
"GoogleCloudMlV1beta1HyperparameterOutputHyperparameterMetric"
(\ o ->
GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric'
<$>
(o .:? "trainingStep") <*> (o .:? "objectiveValue"))
instance ToJSON
GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric
where
toJSON
GoogleCloudMlV1beta1_HyperparameterOutput_HyperparameterMetric'{..}
= object
(catMaybes
[("trainingStep" .=) <$> _gcmvhohmTrainingStep,
("objectiveValue" .=) <$> _gcmvhohmObjectiveValue])
data GoogleAPI__HTTPBody = GoogleAPI__HTTPBody'
{ _gahttpbData :: !(Maybe Base64)
, _gahttpbContentType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
googleAPI__HTTPBody
:: GoogleAPI__HTTPBody
googleAPI__HTTPBody =
GoogleAPI__HTTPBody'
{ _gahttpbData = Nothing
, _gahttpbContentType = Nothing
}
gahttpbData :: Lens' GoogleAPI__HTTPBody (Maybe ByteString)
gahttpbData
= lens _gahttpbData (\ s a -> s{_gahttpbData = a}) .
mapping _Base64
gahttpbContentType :: Lens' GoogleAPI__HTTPBody (Maybe Text)
gahttpbContentType
= lens _gahttpbContentType
(\ s a -> s{_gahttpbContentType = a})
instance FromJSON GoogleAPI__HTTPBody where
parseJSON
= withObject "GoogleAPIHTTPBody"
(\ o ->
GoogleAPI__HTTPBody' <$>
(o .:? "data") <*> (o .:? "contentType"))
instance ToJSON GoogleAPI__HTTPBody where
toJSON GoogleAPI__HTTPBody'{..}
= object
(catMaybes
[("data" .=) <$> _gahttpbData,
("contentType" .=) <$> _gahttpbContentType])
newtype GoogleCloudMlV1beta1__PredictRequest = GoogleCloudMlV1beta1__PredictRequest'
{ _gcmvprHTTPBody :: Maybe GoogleAPI__HTTPBody
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__PredictRequest
:: GoogleCloudMlV1beta1__PredictRequest
googleCloudMlV1beta1__PredictRequest =
GoogleCloudMlV1beta1__PredictRequest'
{ _gcmvprHTTPBody = Nothing
}
gcmvprHTTPBody :: Lens' GoogleCloudMlV1beta1__PredictRequest (Maybe GoogleAPI__HTTPBody)
gcmvprHTTPBody
= lens _gcmvprHTTPBody
(\ s a -> s{_gcmvprHTTPBody = a})
instance FromJSON
GoogleCloudMlV1beta1__PredictRequest where
parseJSON
= withObject "GoogleCloudMlV1beta1PredictRequest"
(\ o ->
GoogleCloudMlV1beta1__PredictRequest' <$>
(o .:? "httpBody"))
instance ToJSON GoogleCloudMlV1beta1__PredictRequest
where
toJSON GoogleCloudMlV1beta1__PredictRequest'{..}
= object
(catMaybes [("httpBody" .=) <$> _gcmvprHTTPBody])
data GoogleCloudMlV1beta1__ParameterSpec = GoogleCloudMlV1beta1__ParameterSpec'
{ _gcmvpsMaxValue :: !(Maybe (Textual Double))
, _gcmvpsScaleType :: !(Maybe GoogleCloudMlV1beta1__ParameterSpecScaleType)
, _gcmvpsType :: !(Maybe GoogleCloudMlV1beta1__ParameterSpecType)
, _gcmvpsDiscreteValues :: !(Maybe [Textual Double])
, _gcmvpsParameterName :: !(Maybe Text)
, _gcmvpsCategoricalValues :: !(Maybe [Text])
, _gcmvpsMinValue :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudMlV1beta1__ParameterSpec
:: GoogleCloudMlV1beta1__ParameterSpec
googleCloudMlV1beta1__ParameterSpec =
GoogleCloudMlV1beta1__ParameterSpec'
{ _gcmvpsMaxValue = Nothing
, _gcmvpsScaleType = Nothing
, _gcmvpsType = Nothing
, _gcmvpsDiscreteValues = Nothing
, _gcmvpsParameterName = Nothing
, _gcmvpsCategoricalValues = Nothing
, _gcmvpsMinValue = Nothing
}
gcmvpsMaxValue :: Lens' GoogleCloudMlV1beta1__ParameterSpec (Maybe Double)
gcmvpsMaxValue
= lens _gcmvpsMaxValue
(\ s a -> s{_gcmvpsMaxValue = a})
. mapping _Coerce
gcmvpsScaleType :: Lens' GoogleCloudMlV1beta1__ParameterSpec (Maybe GoogleCloudMlV1beta1__ParameterSpecScaleType)
gcmvpsScaleType
= lens _gcmvpsScaleType
(\ s a -> s{_gcmvpsScaleType = a})
gcmvpsType :: Lens' GoogleCloudMlV1beta1__ParameterSpec (Maybe GoogleCloudMlV1beta1__ParameterSpecType)
gcmvpsType
= lens _gcmvpsType (\ s a -> s{_gcmvpsType = a})
gcmvpsDiscreteValues :: Lens' GoogleCloudMlV1beta1__ParameterSpec [Double]
gcmvpsDiscreteValues
= lens _gcmvpsDiscreteValues
(\ s a -> s{_gcmvpsDiscreteValues = a})
. _Default
. _Coerce
gcmvpsParameterName :: Lens' GoogleCloudMlV1beta1__ParameterSpec (Maybe Text)
gcmvpsParameterName
= lens _gcmvpsParameterName
(\ s a -> s{_gcmvpsParameterName = a})
gcmvpsCategoricalValues :: Lens' GoogleCloudMlV1beta1__ParameterSpec [Text]
gcmvpsCategoricalValues
= lens _gcmvpsCategoricalValues
(\ s a -> s{_gcmvpsCategoricalValues = a})
. _Default
. _Coerce
gcmvpsMinValue :: Lens' GoogleCloudMlV1beta1__ParameterSpec (Maybe Double)
gcmvpsMinValue
= lens _gcmvpsMinValue
(\ s a -> s{_gcmvpsMinValue = a})
. mapping _Coerce
instance FromJSON GoogleCloudMlV1beta1__ParameterSpec
where
parseJSON
= withObject "GoogleCloudMlV1beta1ParameterSpec"
(\ o ->
GoogleCloudMlV1beta1__ParameterSpec' <$>
(o .:? "maxValue") <*> (o .:? "scaleType") <*>
(o .:? "type")
<*> (o .:? "discreteValues" .!= mempty)
<*> (o .:? "parameterName")
<*> (o .:? "categoricalValues" .!= mempty)
<*> (o .:? "minValue"))
instance ToJSON GoogleCloudMlV1beta1__ParameterSpec
where
toJSON GoogleCloudMlV1beta1__ParameterSpec'{..}
= object
(catMaybes
[("maxValue" .=) <$> _gcmvpsMaxValue,
("scaleType" .=) <$> _gcmvpsScaleType,
("type" .=) <$> _gcmvpsType,
("discreteValues" .=) <$> _gcmvpsDiscreteValues,
("parameterName" .=) <$> _gcmvpsParameterName,
("categoricalValues" .=) <$>
_gcmvpsCategoricalValues,
("minValue" .=) <$> _gcmvpsMinValue])