{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.MachineLearning.Types.Product where
import Network.Google.MachineLearning.Types.Sum
import Network.Google.Prelude
data GoogleIAMV1__AuditConfig =
GoogleIAMV1__AuditConfig'
{ _givacService :: !(Maybe Text)
, _givacAuditLogConfigs :: !(Maybe [GoogleIAMV1__AuditLogConfig])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1__AuditConfig
:: GoogleIAMV1__AuditConfig
googleIAMV1__AuditConfig =
GoogleIAMV1__AuditConfig'
{_givacService = Nothing, _givacAuditLogConfigs = Nothing}
givacService :: Lens' GoogleIAMV1__AuditConfig (Maybe Text)
givacService
= lens _givacService (\ s a -> s{_givacService = a})
givacAuditLogConfigs :: Lens' GoogleIAMV1__AuditConfig [GoogleIAMV1__AuditLogConfig]
givacAuditLogConfigs
= lens _givacAuditLogConfigs
(\ s a -> s{_givacAuditLogConfigs = a})
. _Default
. _Coerce
instance FromJSON GoogleIAMV1__AuditConfig where
parseJSON
= withObject "GoogleIAMV1AuditConfig"
(\ o ->
GoogleIAMV1__AuditConfig' <$>
(o .:? "service") <*>
(o .:? "auditLogConfigs" .!= mempty))
instance ToJSON GoogleIAMV1__AuditConfig where
toJSON GoogleIAMV1__AuditConfig'{..}
= object
(catMaybes
[("service" .=) <$> _givacService,
("auditLogConfigs" .=) <$> _givacAuditLogConfigs])
data GoogleCloudMlV1__Version =
GoogleCloudMlV1__Version'
{ _gcmvvFramework :: !(Maybe GoogleCloudMlV1__VersionFramework)
, _gcmvvEtag :: !(Maybe Bytes)
, _gcmvvState :: !(Maybe GoogleCloudMlV1__VersionState)
, _gcmvvAutoScaling :: !(Maybe GoogleCloudMlV1__AutoScaling)
, _gcmvvPythonVersion :: !(Maybe Text)
, _gcmvvRuntimeVersion :: !(Maybe Text)
, _gcmvvLastUseTime :: !(Maybe DateTime')
, _gcmvvName :: !(Maybe Text)
, _gcmvvPackageURIs :: !(Maybe [Text])
, _gcmvvDeploymentURI :: !(Maybe Text)
, _gcmvvManualScaling :: !(Maybe GoogleCloudMlV1__ManualScaling)
, _gcmvvMachineType :: !(Maybe Text)
, _gcmvvLabels :: !(Maybe GoogleCloudMlV1__VersionLabels)
, _gcmvvPredictionClass :: !(Maybe Text)
, _gcmvvErrorMessage :: !(Maybe Text)
, _gcmvvDescription :: !(Maybe Text)
, _gcmvvCreateTime :: !(Maybe DateTime')
, _gcmvvIsDefault :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__Version
:: GoogleCloudMlV1__Version
googleCloudMlV1__Version =
GoogleCloudMlV1__Version'
{ _gcmvvFramework = Nothing
, _gcmvvEtag = Nothing
, _gcmvvState = Nothing
, _gcmvvAutoScaling = Nothing
, _gcmvvPythonVersion = Nothing
, _gcmvvRuntimeVersion = Nothing
, _gcmvvLastUseTime = Nothing
, _gcmvvName = Nothing
, _gcmvvPackageURIs = Nothing
, _gcmvvDeploymentURI = Nothing
, _gcmvvManualScaling = Nothing
, _gcmvvMachineType = Nothing
, _gcmvvLabels = Nothing
, _gcmvvPredictionClass = Nothing
, _gcmvvErrorMessage = Nothing
, _gcmvvDescription = Nothing
, _gcmvvCreateTime = Nothing
, _gcmvvIsDefault = Nothing
}
gcmvvFramework :: Lens' GoogleCloudMlV1__Version (Maybe GoogleCloudMlV1__VersionFramework)
gcmvvFramework
= lens _gcmvvFramework
(\ s a -> s{_gcmvvFramework = a})
gcmvvEtag :: Lens' GoogleCloudMlV1__Version (Maybe ByteString)
gcmvvEtag
= lens _gcmvvEtag (\ s a -> s{_gcmvvEtag = a}) .
mapping _Bytes
gcmvvState :: Lens' GoogleCloudMlV1__Version (Maybe GoogleCloudMlV1__VersionState)
gcmvvState
= lens _gcmvvState (\ s a -> s{_gcmvvState = a})
gcmvvAutoScaling :: Lens' GoogleCloudMlV1__Version (Maybe GoogleCloudMlV1__AutoScaling)
gcmvvAutoScaling
= lens _gcmvvAutoScaling
(\ s a -> s{_gcmvvAutoScaling = a})
gcmvvPythonVersion :: Lens' GoogleCloudMlV1__Version (Maybe Text)
gcmvvPythonVersion
= lens _gcmvvPythonVersion
(\ s a -> s{_gcmvvPythonVersion = a})
gcmvvRuntimeVersion :: Lens' GoogleCloudMlV1__Version (Maybe Text)
gcmvvRuntimeVersion
= lens _gcmvvRuntimeVersion
(\ s a -> s{_gcmvvRuntimeVersion = a})
gcmvvLastUseTime :: Lens' GoogleCloudMlV1__Version (Maybe UTCTime)
gcmvvLastUseTime
= lens _gcmvvLastUseTime
(\ s a -> s{_gcmvvLastUseTime = a})
. mapping _DateTime
gcmvvName :: Lens' GoogleCloudMlV1__Version (Maybe Text)
gcmvvName
= lens _gcmvvName (\ s a -> s{_gcmvvName = a})
gcmvvPackageURIs :: Lens' GoogleCloudMlV1__Version [Text]
gcmvvPackageURIs
= lens _gcmvvPackageURIs
(\ s a -> s{_gcmvvPackageURIs = a})
. _Default
. _Coerce
gcmvvDeploymentURI :: Lens' GoogleCloudMlV1__Version (Maybe Text)
gcmvvDeploymentURI
= lens _gcmvvDeploymentURI
(\ s a -> s{_gcmvvDeploymentURI = a})
gcmvvManualScaling :: Lens' GoogleCloudMlV1__Version (Maybe GoogleCloudMlV1__ManualScaling)
gcmvvManualScaling
= lens _gcmvvManualScaling
(\ s a -> s{_gcmvvManualScaling = a})
gcmvvMachineType :: Lens' GoogleCloudMlV1__Version (Maybe Text)
gcmvvMachineType
= lens _gcmvvMachineType
(\ s a -> s{_gcmvvMachineType = a})
gcmvvLabels :: Lens' GoogleCloudMlV1__Version (Maybe GoogleCloudMlV1__VersionLabels)
gcmvvLabels
= lens _gcmvvLabels (\ s a -> s{_gcmvvLabels = a})
gcmvvPredictionClass :: Lens' GoogleCloudMlV1__Version (Maybe Text)
gcmvvPredictionClass
= lens _gcmvvPredictionClass
(\ s a -> s{_gcmvvPredictionClass = a})
gcmvvErrorMessage :: Lens' GoogleCloudMlV1__Version (Maybe Text)
gcmvvErrorMessage
= lens _gcmvvErrorMessage
(\ s a -> s{_gcmvvErrorMessage = a})
gcmvvDescription :: Lens' GoogleCloudMlV1__Version (Maybe Text)
gcmvvDescription
= lens _gcmvvDescription
(\ s a -> s{_gcmvvDescription = a})
gcmvvCreateTime :: Lens' GoogleCloudMlV1__Version (Maybe UTCTime)
gcmvvCreateTime
= lens _gcmvvCreateTime
(\ s a -> s{_gcmvvCreateTime = a})
. mapping _DateTime
gcmvvIsDefault :: Lens' GoogleCloudMlV1__Version (Maybe Bool)
gcmvvIsDefault
= lens _gcmvvIsDefault
(\ s a -> s{_gcmvvIsDefault = a})
instance FromJSON GoogleCloudMlV1__Version where
parseJSON
= withObject "GoogleCloudMlV1Version"
(\ o ->
GoogleCloudMlV1__Version' <$>
(o .:? "framework") <*> (o .:? "etag") <*>
(o .:? "state")
<*> (o .:? "autoScaling")
<*> (o .:? "pythonVersion")
<*> (o .:? "runtimeVersion")
<*> (o .:? "lastUseTime")
<*> (o .:? "name")
<*> (o .:? "packageUris" .!= mempty)
<*> (o .:? "deploymentUri")
<*> (o .:? "manualScaling")
<*> (o .:? "machineType")
<*> (o .:? "labels")
<*> (o .:? "predictionClass")
<*> (o .:? "errorMessage")
<*> (o .:? "description")
<*> (o .:? "createTime")
<*> (o .:? "isDefault"))
instance ToJSON GoogleCloudMlV1__Version where
toJSON GoogleCloudMlV1__Version'{..}
= object
(catMaybes
[("framework" .=) <$> _gcmvvFramework,
("etag" .=) <$> _gcmvvEtag,
("state" .=) <$> _gcmvvState,
("autoScaling" .=) <$> _gcmvvAutoScaling,
("pythonVersion" .=) <$> _gcmvvPythonVersion,
("runtimeVersion" .=) <$> _gcmvvRuntimeVersion,
("lastUseTime" .=) <$> _gcmvvLastUseTime,
("name" .=) <$> _gcmvvName,
("packageUris" .=) <$> _gcmvvPackageURIs,
("deploymentUri" .=) <$> _gcmvvDeploymentURI,
("manualScaling" .=) <$> _gcmvvManualScaling,
("machineType" .=) <$> _gcmvvMachineType,
("labels" .=) <$> _gcmvvLabels,
("predictionClass" .=) <$> _gcmvvPredictionClass,
("errorMessage" .=) <$> _gcmvvErrorMessage,
("description" .=) <$> _gcmvvDescription,
("createTime" .=) <$> _gcmvvCreateTime,
("isDefault" .=) <$> _gcmvvIsDefault])
data GoogleCloudMlV1__PredictionOutput =
GoogleCloudMlV1__PredictionOutput'
{ _gcmvpoNodeHours :: !(Maybe (Textual Double))
, _gcmvpoErrorCount :: !(Maybe (Textual Int64))
, _gcmvpoPredictionCount :: !(Maybe (Textual Int64))
, _gcmvpoOutputPath :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__PredictionOutput
:: GoogleCloudMlV1__PredictionOutput
googleCloudMlV1__PredictionOutput =
GoogleCloudMlV1__PredictionOutput'
{ _gcmvpoNodeHours = Nothing
, _gcmvpoErrorCount = Nothing
, _gcmvpoPredictionCount = Nothing
, _gcmvpoOutputPath = Nothing
}
gcmvpoNodeHours :: Lens' GoogleCloudMlV1__PredictionOutput (Maybe Double)
gcmvpoNodeHours
= lens _gcmvpoNodeHours
(\ s a -> s{_gcmvpoNodeHours = a})
. mapping _Coerce
gcmvpoErrorCount :: Lens' GoogleCloudMlV1__PredictionOutput (Maybe Int64)
gcmvpoErrorCount
= lens _gcmvpoErrorCount
(\ s a -> s{_gcmvpoErrorCount = a})
. mapping _Coerce
gcmvpoPredictionCount :: Lens' GoogleCloudMlV1__PredictionOutput (Maybe Int64)
gcmvpoPredictionCount
= lens _gcmvpoPredictionCount
(\ s a -> s{_gcmvpoPredictionCount = a})
. mapping _Coerce
gcmvpoOutputPath :: Lens' GoogleCloudMlV1__PredictionOutput (Maybe Text)
gcmvpoOutputPath
= lens _gcmvpoOutputPath
(\ s a -> s{_gcmvpoOutputPath = a})
instance FromJSON GoogleCloudMlV1__PredictionOutput
where
parseJSON
= withObject "GoogleCloudMlV1PredictionOutput"
(\ o ->
GoogleCloudMlV1__PredictionOutput' <$>
(o .:? "nodeHours") <*> (o .:? "errorCount") <*>
(o .:? "predictionCount")
<*> (o .:? "outputPath"))
instance ToJSON GoogleCloudMlV1__PredictionOutput
where
toJSON GoogleCloudMlV1__PredictionOutput'{..}
= object
(catMaybes
[("nodeHours" .=) <$> _gcmvpoNodeHours,
("errorCount" .=) <$> _gcmvpoErrorCount,
("predictionCount" .=) <$> _gcmvpoPredictionCount,
("outputPath" .=) <$> _gcmvpoOutputPath])
data GoogleCloudMlV1__BuiltInAlgorithmOutput =
GoogleCloudMlV1__BuiltInAlgorithmOutput'
{ _gcmvbiaoFramework :: !(Maybe Text)
, _gcmvbiaoPythonVersion :: !(Maybe Text)
, _gcmvbiaoRuntimeVersion :: !(Maybe Text)
, _gcmvbiaoModelPath :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__BuiltInAlgorithmOutput
:: GoogleCloudMlV1__BuiltInAlgorithmOutput
googleCloudMlV1__BuiltInAlgorithmOutput =
GoogleCloudMlV1__BuiltInAlgorithmOutput'
{ _gcmvbiaoFramework = Nothing
, _gcmvbiaoPythonVersion = Nothing
, _gcmvbiaoRuntimeVersion = Nothing
, _gcmvbiaoModelPath = Nothing
}
gcmvbiaoFramework :: Lens' GoogleCloudMlV1__BuiltInAlgorithmOutput (Maybe Text)
gcmvbiaoFramework
= lens _gcmvbiaoFramework
(\ s a -> s{_gcmvbiaoFramework = a})
gcmvbiaoPythonVersion :: Lens' GoogleCloudMlV1__BuiltInAlgorithmOutput (Maybe Text)
gcmvbiaoPythonVersion
= lens _gcmvbiaoPythonVersion
(\ s a -> s{_gcmvbiaoPythonVersion = a})
gcmvbiaoRuntimeVersion :: Lens' GoogleCloudMlV1__BuiltInAlgorithmOutput (Maybe Text)
gcmvbiaoRuntimeVersion
= lens _gcmvbiaoRuntimeVersion
(\ s a -> s{_gcmvbiaoRuntimeVersion = a})
gcmvbiaoModelPath :: Lens' GoogleCloudMlV1__BuiltInAlgorithmOutput (Maybe Text)
gcmvbiaoModelPath
= lens _gcmvbiaoModelPath
(\ s a -> s{_gcmvbiaoModelPath = a})
instance FromJSON
GoogleCloudMlV1__BuiltInAlgorithmOutput
where
parseJSON
= withObject "GoogleCloudMlV1BuiltInAlgorithmOutput"
(\ o ->
GoogleCloudMlV1__BuiltInAlgorithmOutput' <$>
(o .:? "framework") <*> (o .:? "pythonVersion") <*>
(o .:? "runtimeVersion")
<*> (o .:? "modelPath"))
instance ToJSON
GoogleCloudMlV1__BuiltInAlgorithmOutput
where
toJSON GoogleCloudMlV1__BuiltInAlgorithmOutput'{..}
= object
(catMaybes
[("framework" .=) <$> _gcmvbiaoFramework,
("pythonVersion" .=) <$> _gcmvbiaoPythonVersion,
("runtimeVersion" .=) <$> _gcmvbiaoRuntimeVersion,
("modelPath" .=) <$> _gcmvbiaoModelPath])
newtype GoogleCloudMlV1__HyperparameterOutputHyperparameters =
GoogleCloudMlV1__HyperparameterOutputHyperparameters'
{ _gcmvhohAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__HyperparameterOutputHyperparameters
:: HashMap Text Text
-> GoogleCloudMlV1__HyperparameterOutputHyperparameters
googleCloudMlV1__HyperparameterOutputHyperparameters pGcmvhohAddtional_ =
GoogleCloudMlV1__HyperparameterOutputHyperparameters'
{_gcmvhohAddtional = _Coerce # pGcmvhohAddtional_}
gcmvhohAddtional :: Lens' GoogleCloudMlV1__HyperparameterOutputHyperparameters (HashMap Text Text)
gcmvhohAddtional
= lens _gcmvhohAddtional
(\ s a -> s{_gcmvhohAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudMlV1__HyperparameterOutputHyperparameters
where
parseJSON
= withObject
"GoogleCloudMlV1HyperparameterOutputHyperparameters"
(\ o ->
GoogleCloudMlV1__HyperparameterOutputHyperparameters'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudMlV1__HyperparameterOutputHyperparameters
where
toJSON = toJSON . _gcmvhohAddtional
newtype GoogleCloudMlV1__PredictRequest =
GoogleCloudMlV1__PredictRequest'
{ _gcmvprHTTPBody :: Maybe GoogleAPI__HTTPBody
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__PredictRequest
:: GoogleCloudMlV1__PredictRequest
googleCloudMlV1__PredictRequest =
GoogleCloudMlV1__PredictRequest' {_gcmvprHTTPBody = Nothing}
gcmvprHTTPBody :: Lens' GoogleCloudMlV1__PredictRequest (Maybe GoogleAPI__HTTPBody)
gcmvprHTTPBody
= lens _gcmvprHTTPBody
(\ s a -> s{_gcmvprHTTPBody = a})
instance FromJSON GoogleCloudMlV1__PredictRequest
where
parseJSON
= withObject "GoogleCloudMlV1PredictRequest"
(\ o ->
GoogleCloudMlV1__PredictRequest' <$>
(o .:? "httpBody"))
instance ToJSON GoogleCloudMlV1__PredictRequest where
toJSON GoogleCloudMlV1__PredictRequest'{..}
= object
(catMaybes [("httpBody" .=) <$> _gcmvprHTTPBody])
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 GoogleIAMV1__AuditLogConfig =
GoogleIAMV1__AuditLogConfig'
{ _givalcLogType :: !(Maybe GoogleIAMV1__AuditLogConfigLogType)
, _givalcExemptedMembers :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1__AuditLogConfig
:: GoogleIAMV1__AuditLogConfig
googleIAMV1__AuditLogConfig =
GoogleIAMV1__AuditLogConfig'
{_givalcLogType = Nothing, _givalcExemptedMembers = Nothing}
givalcLogType :: Lens' GoogleIAMV1__AuditLogConfig (Maybe GoogleIAMV1__AuditLogConfigLogType)
givalcLogType
= lens _givalcLogType
(\ s a -> s{_givalcLogType = a})
givalcExemptedMembers :: Lens' GoogleIAMV1__AuditLogConfig [Text]
givalcExemptedMembers
= lens _givalcExemptedMembers
(\ s a -> s{_givalcExemptedMembers = a})
. _Default
. _Coerce
instance FromJSON GoogleIAMV1__AuditLogConfig where
parseJSON
= withObject "GoogleIAMV1AuditLogConfig"
(\ o ->
GoogleIAMV1__AuditLogConfig' <$>
(o .:? "logType") <*>
(o .:? "exemptedMembers" .!= mempty))
instance ToJSON GoogleIAMV1__AuditLogConfig where
toJSON GoogleIAMV1__AuditLogConfig'{..}
= object
(catMaybes
[("logType" .=) <$> _givalcLogType,
("exemptedMembers" .=) <$> _givalcExemptedMembers])
data GoogleCloudMlV1__ListModelsResponse =
GoogleCloudMlV1__ListModelsResponse'
{ _gcmvlmrNextPageToken :: !(Maybe Text)
, _gcmvlmrModels :: !(Maybe [GoogleCloudMlV1__Model])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__ListModelsResponse
:: GoogleCloudMlV1__ListModelsResponse
googleCloudMlV1__ListModelsResponse =
GoogleCloudMlV1__ListModelsResponse'
{_gcmvlmrNextPageToken = Nothing, _gcmvlmrModels = Nothing}
gcmvlmrNextPageToken :: Lens' GoogleCloudMlV1__ListModelsResponse (Maybe Text)
gcmvlmrNextPageToken
= lens _gcmvlmrNextPageToken
(\ s a -> s{_gcmvlmrNextPageToken = a})
gcmvlmrModels :: Lens' GoogleCloudMlV1__ListModelsResponse [GoogleCloudMlV1__Model]
gcmvlmrModels
= lens _gcmvlmrModels
(\ s a -> s{_gcmvlmrModels = a})
. _Default
. _Coerce
instance FromJSON GoogleCloudMlV1__ListModelsResponse
where
parseJSON
= withObject "GoogleCloudMlV1ListModelsResponse"
(\ o ->
GoogleCloudMlV1__ListModelsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "models" .!= mempty))
instance ToJSON GoogleCloudMlV1__ListModelsResponse
where
toJSON GoogleCloudMlV1__ListModelsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcmvlmrNextPageToken,
("models" .=) <$> _gcmvlmrModels])
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 GoogleCloudMlV1__AcceleratorConfig =
GoogleCloudMlV1__AcceleratorConfig'
{ _gcmvacCount :: !(Maybe (Textual Int64))
, _gcmvacType :: !(Maybe GoogleCloudMlV1__AcceleratorConfigType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__AcceleratorConfig
:: GoogleCloudMlV1__AcceleratorConfig
googleCloudMlV1__AcceleratorConfig =
GoogleCloudMlV1__AcceleratorConfig'
{_gcmvacCount = Nothing, _gcmvacType = Nothing}
gcmvacCount :: Lens' GoogleCloudMlV1__AcceleratorConfig (Maybe Int64)
gcmvacCount
= lens _gcmvacCount (\ s a -> s{_gcmvacCount = a}) .
mapping _Coerce
gcmvacType :: Lens' GoogleCloudMlV1__AcceleratorConfig (Maybe GoogleCloudMlV1__AcceleratorConfigType)
gcmvacType
= lens _gcmvacType (\ s a -> s{_gcmvacType = a})
instance FromJSON GoogleCloudMlV1__AcceleratorConfig
where
parseJSON
= withObject "GoogleCloudMlV1AcceleratorConfig"
(\ o ->
GoogleCloudMlV1__AcceleratorConfig' <$>
(o .:? "count") <*> (o .:? "type"))
instance ToJSON GoogleCloudMlV1__AcceleratorConfig
where
toJSON GoogleCloudMlV1__AcceleratorConfig'{..}
= object
(catMaybes
[("count" .=) <$> _gcmvacCount,
("type" .=) <$> _gcmvacType])
data GoogleIAMV1__Policy =
GoogleIAMV1__Policy'
{ _givpAuditConfigs :: !(Maybe [GoogleIAMV1__AuditConfig])
, _givpEtag :: !(Maybe Bytes)
, _givpVersion :: !(Maybe (Textual Int32))
, _givpBindings :: !(Maybe [GoogleIAMV1__Binding])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1__Policy
:: GoogleIAMV1__Policy
googleIAMV1__Policy =
GoogleIAMV1__Policy'
{ _givpAuditConfigs = Nothing
, _givpEtag = Nothing
, _givpVersion = Nothing
, _givpBindings = Nothing
}
givpAuditConfigs :: Lens' GoogleIAMV1__Policy [GoogleIAMV1__AuditConfig]
givpAuditConfigs
= lens _givpAuditConfigs
(\ s a -> s{_givpAuditConfigs = a})
. _Default
. _Coerce
givpEtag :: Lens' GoogleIAMV1__Policy (Maybe ByteString)
givpEtag
= lens _givpEtag (\ s a -> s{_givpEtag = a}) .
mapping _Bytes
givpVersion :: Lens' GoogleIAMV1__Policy (Maybe Int32)
givpVersion
= lens _givpVersion (\ s a -> s{_givpVersion = a}) .
mapping _Coerce
givpBindings :: Lens' GoogleIAMV1__Policy [GoogleIAMV1__Binding]
givpBindings
= lens _givpBindings (\ s a -> s{_givpBindings = a})
. _Default
. _Coerce
instance FromJSON GoogleIAMV1__Policy where
parseJSON
= withObject "GoogleIAMV1Policy"
(\ o ->
GoogleIAMV1__Policy' <$>
(o .:? "auditConfigs" .!= mempty) <*> (o .:? "etag")
<*> (o .:? "version")
<*> (o .:? "bindings" .!= mempty))
instance ToJSON GoogleIAMV1__Policy where
toJSON GoogleIAMV1__Policy'{..}
= object
(catMaybes
[("auditConfigs" .=) <$> _givpAuditConfigs,
("etag" .=) <$> _givpEtag,
("version" .=) <$> _givpVersion,
("bindings" .=) <$> _givpBindings])
newtype GoogleIAMV1__TestIAMPermissionsResponse =
GoogleIAMV1__TestIAMPermissionsResponse'
{ _givtiprPermissions :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1__TestIAMPermissionsResponse
:: GoogleIAMV1__TestIAMPermissionsResponse
googleIAMV1__TestIAMPermissionsResponse =
GoogleIAMV1__TestIAMPermissionsResponse' {_givtiprPermissions = Nothing}
givtiprPermissions :: Lens' GoogleIAMV1__TestIAMPermissionsResponse [Text]
givtiprPermissions
= lens _givtiprPermissions
(\ s a -> s{_givtiprPermissions = a})
. _Default
. _Coerce
instance FromJSON
GoogleIAMV1__TestIAMPermissionsResponse
where
parseJSON
= withObject "GoogleIAMV1TestIAMPermissionsResponse"
(\ o ->
GoogleIAMV1__TestIAMPermissionsResponse' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON
GoogleIAMV1__TestIAMPermissionsResponse
where
toJSON GoogleIAMV1__TestIAMPermissionsResponse'{..}
= object
(catMaybes
[("permissions" .=) <$> _givtiprPermissions])
data GoogleCloudMlV1__ListJobsResponse =
GoogleCloudMlV1__ListJobsResponse'
{ _gcmvljrNextPageToken :: !(Maybe Text)
, _gcmvljrJobs :: !(Maybe [GoogleCloudMlV1__Job])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__ListJobsResponse
:: GoogleCloudMlV1__ListJobsResponse
googleCloudMlV1__ListJobsResponse =
GoogleCloudMlV1__ListJobsResponse'
{_gcmvljrNextPageToken = Nothing, _gcmvljrJobs = Nothing}
gcmvljrNextPageToken :: Lens' GoogleCloudMlV1__ListJobsResponse (Maybe Text)
gcmvljrNextPageToken
= lens _gcmvljrNextPageToken
(\ s a -> s{_gcmvljrNextPageToken = a})
gcmvljrJobs :: Lens' GoogleCloudMlV1__ListJobsResponse [GoogleCloudMlV1__Job]
gcmvljrJobs
= lens _gcmvljrJobs (\ s a -> s{_gcmvljrJobs = a}) .
_Default
. _Coerce
instance FromJSON GoogleCloudMlV1__ListJobsResponse
where
parseJSON
= withObject "GoogleCloudMlV1ListJobsResponse"
(\ o ->
GoogleCloudMlV1__ListJobsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "jobs" .!= mempty))
instance ToJSON GoogleCloudMlV1__ListJobsResponse
where
toJSON GoogleCloudMlV1__ListJobsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcmvljrNextPageToken,
("jobs" .=) <$> _gcmvljrJobs])
data GoogleCloudMlV1__ListVersionsResponse =
GoogleCloudMlV1__ListVersionsResponse'
{ _gcmvlvrNextPageToken :: !(Maybe Text)
, _gcmvlvrVersions :: !(Maybe [GoogleCloudMlV1__Version])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__ListVersionsResponse
:: GoogleCloudMlV1__ListVersionsResponse
googleCloudMlV1__ListVersionsResponse =
GoogleCloudMlV1__ListVersionsResponse'
{_gcmvlvrNextPageToken = Nothing, _gcmvlvrVersions = Nothing}
gcmvlvrNextPageToken :: Lens' GoogleCloudMlV1__ListVersionsResponse (Maybe Text)
gcmvlvrNextPageToken
= lens _gcmvlvrNextPageToken
(\ s a -> s{_gcmvlvrNextPageToken = a})
gcmvlvrVersions :: Lens' GoogleCloudMlV1__ListVersionsResponse [GoogleCloudMlV1__Version]
gcmvlvrVersions
= lens _gcmvlvrVersions
(\ s a -> s{_gcmvlvrVersions = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudMlV1__ListVersionsResponse
where
parseJSON
= withObject "GoogleCloudMlV1ListVersionsResponse"
(\ o ->
GoogleCloudMlV1__ListVersionsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "versions" .!= mempty))
instance ToJSON GoogleCloudMlV1__ListVersionsResponse
where
toJSON GoogleCloudMlV1__ListVersionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcmvlvrNextPageToken,
("versions" .=) <$> _gcmvlvrVersions])
data GoogleType__Expr =
GoogleType__Expr'
{ _gteLocation :: !(Maybe Text)
, _gteExpression :: !(Maybe Text)
, _gteTitle :: !(Maybe Text)
, _gteDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleType__Expr
:: GoogleType__Expr
googleType__Expr =
GoogleType__Expr'
{ _gteLocation = Nothing
, _gteExpression = Nothing
, _gteTitle = Nothing
, _gteDescription = Nothing
}
gteLocation :: Lens' GoogleType__Expr (Maybe Text)
gteLocation
= lens _gteLocation (\ s a -> s{_gteLocation = a})
gteExpression :: Lens' GoogleType__Expr (Maybe Text)
gteExpression
= lens _gteExpression
(\ s a -> s{_gteExpression = a})
gteTitle :: Lens' GoogleType__Expr (Maybe Text)
gteTitle = lens _gteTitle (\ s a -> s{_gteTitle = a})
gteDescription :: Lens' GoogleType__Expr (Maybe Text)
gteDescription
= lens _gteDescription
(\ s a -> s{_gteDescription = a})
instance FromJSON GoogleType__Expr where
parseJSON
= withObject "GoogleTypeExpr"
(\ o ->
GoogleType__Expr' <$>
(o .:? "location") <*> (o .:? "expression") <*>
(o .:? "title")
<*> (o .:? "description"))
instance ToJSON GoogleType__Expr where
toJSON GoogleType__Expr'{..}
= object
(catMaybes
[("location" .=) <$> _gteLocation,
("expression" .=) <$> _gteExpression,
("title" .=) <$> _gteTitle,
("description" .=) <$> _gteDescription])
data GoogleCloudMlV1__HyperparameterOutput =
GoogleCloudMlV1__HyperparameterOutput'
{ _gcmvhoIsTrialStoppedEarly :: !(Maybe Bool)
, _gcmvhoAllMetrics :: !(Maybe [GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric])
, _gcmvhoHyperparameters :: !(Maybe GoogleCloudMlV1__HyperparameterOutputHyperparameters)
, _gcmvhoTrialId :: !(Maybe Text)
, _gcmvhoFinalMetric :: !(Maybe GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric)
, _gcmvhoBuiltInAlgorithmOutput :: !(Maybe GoogleCloudMlV1__BuiltInAlgorithmOutput)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__HyperparameterOutput
:: GoogleCloudMlV1__HyperparameterOutput
googleCloudMlV1__HyperparameterOutput =
GoogleCloudMlV1__HyperparameterOutput'
{ _gcmvhoIsTrialStoppedEarly = Nothing
, _gcmvhoAllMetrics = Nothing
, _gcmvhoHyperparameters = Nothing
, _gcmvhoTrialId = Nothing
, _gcmvhoFinalMetric = Nothing
, _gcmvhoBuiltInAlgorithmOutput = Nothing
}
gcmvhoIsTrialStoppedEarly :: Lens' GoogleCloudMlV1__HyperparameterOutput (Maybe Bool)
gcmvhoIsTrialStoppedEarly
= lens _gcmvhoIsTrialStoppedEarly
(\ s a -> s{_gcmvhoIsTrialStoppedEarly = a})
gcmvhoAllMetrics :: Lens' GoogleCloudMlV1__HyperparameterOutput [GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric]
gcmvhoAllMetrics
= lens _gcmvhoAllMetrics
(\ s a -> s{_gcmvhoAllMetrics = a})
. _Default
. _Coerce
gcmvhoHyperparameters :: Lens' GoogleCloudMlV1__HyperparameterOutput (Maybe GoogleCloudMlV1__HyperparameterOutputHyperparameters)
gcmvhoHyperparameters
= lens _gcmvhoHyperparameters
(\ s a -> s{_gcmvhoHyperparameters = a})
gcmvhoTrialId :: Lens' GoogleCloudMlV1__HyperparameterOutput (Maybe Text)
gcmvhoTrialId
= lens _gcmvhoTrialId
(\ s a -> s{_gcmvhoTrialId = a})
gcmvhoFinalMetric :: Lens' GoogleCloudMlV1__HyperparameterOutput (Maybe GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric)
gcmvhoFinalMetric
= lens _gcmvhoFinalMetric
(\ s a -> s{_gcmvhoFinalMetric = a})
gcmvhoBuiltInAlgorithmOutput :: Lens' GoogleCloudMlV1__HyperparameterOutput (Maybe GoogleCloudMlV1__BuiltInAlgorithmOutput)
gcmvhoBuiltInAlgorithmOutput
= lens _gcmvhoBuiltInAlgorithmOutput
(\ s a -> s{_gcmvhoBuiltInAlgorithmOutput = a})
instance FromJSON
GoogleCloudMlV1__HyperparameterOutput
where
parseJSON
= withObject "GoogleCloudMlV1HyperparameterOutput"
(\ o ->
GoogleCloudMlV1__HyperparameterOutput' <$>
(o .:? "isTrialStoppedEarly") <*>
(o .:? "allMetrics" .!= mempty)
<*> (o .:? "hyperparameters")
<*> (o .:? "trialId")
<*> (o .:? "finalMetric")
<*> (o .:? "builtInAlgorithmOutput"))
instance ToJSON GoogleCloudMlV1__HyperparameterOutput
where
toJSON GoogleCloudMlV1__HyperparameterOutput'{..}
= object
(catMaybes
[("isTrialStoppedEarly" .=) <$>
_gcmvhoIsTrialStoppedEarly,
("allMetrics" .=) <$> _gcmvhoAllMetrics,
("hyperparameters" .=) <$> _gcmvhoHyperparameters,
("trialId" .=) <$> _gcmvhoTrialId,
("finalMetric" .=) <$> _gcmvhoFinalMetric,
("builtInAlgorithmOutput" .=) <$>
_gcmvhoBuiltInAlgorithmOutput])
data GoogleCloudMlV1__GetConfigResponse =
GoogleCloudMlV1__GetConfigResponse'
{ _gcmvgcrConfig :: !(Maybe GoogleCloudMlV1__Config)
, _gcmvgcrServiceAccount :: !(Maybe Text)
, _gcmvgcrServiceAccountProject :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__GetConfigResponse
:: GoogleCloudMlV1__GetConfigResponse
googleCloudMlV1__GetConfigResponse =
GoogleCloudMlV1__GetConfigResponse'
{ _gcmvgcrConfig = Nothing
, _gcmvgcrServiceAccount = Nothing
, _gcmvgcrServiceAccountProject = Nothing
}
gcmvgcrConfig :: Lens' GoogleCloudMlV1__GetConfigResponse (Maybe GoogleCloudMlV1__Config)
gcmvgcrConfig
= lens _gcmvgcrConfig
(\ s a -> s{_gcmvgcrConfig = a})
gcmvgcrServiceAccount :: Lens' GoogleCloudMlV1__GetConfigResponse (Maybe Text)
gcmvgcrServiceAccount
= lens _gcmvgcrServiceAccount
(\ s a -> s{_gcmvgcrServiceAccount = a})
gcmvgcrServiceAccountProject :: Lens' GoogleCloudMlV1__GetConfigResponse (Maybe Int64)
gcmvgcrServiceAccountProject
= lens _gcmvgcrServiceAccountProject
(\ s a -> s{_gcmvgcrServiceAccountProject = a})
. mapping _Coerce
instance FromJSON GoogleCloudMlV1__GetConfigResponse
where
parseJSON
= withObject "GoogleCloudMlV1GetConfigResponse"
(\ o ->
GoogleCloudMlV1__GetConfigResponse' <$>
(o .:? "config") <*> (o .:? "serviceAccount") <*>
(o .:? "serviceAccountProject"))
instance ToJSON GoogleCloudMlV1__GetConfigResponse
where
toJSON GoogleCloudMlV1__GetConfigResponse'{..}
= object
(catMaybes
[("config" .=) <$> _gcmvgcrConfig,
("serviceAccount" .=) <$> _gcmvgcrServiceAccount,
("serviceAccountProject" .=) <$>
_gcmvgcrServiceAccountProject])
newtype GoogleCloudMlV1__ManualScaling =
GoogleCloudMlV1__ManualScaling'
{ _gcmvmsNodes :: Maybe (Textual Int32)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__ManualScaling
:: GoogleCloudMlV1__ManualScaling
googleCloudMlV1__ManualScaling =
GoogleCloudMlV1__ManualScaling' {_gcmvmsNodes = Nothing}
gcmvmsNodes :: Lens' GoogleCloudMlV1__ManualScaling (Maybe Int32)
gcmvmsNodes
= lens _gcmvmsNodes (\ s a -> s{_gcmvmsNodes = a}) .
mapping _Coerce
instance FromJSON GoogleCloudMlV1__ManualScaling
where
parseJSON
= withObject "GoogleCloudMlV1ManualScaling"
(\ o ->
GoogleCloudMlV1__ManualScaling' <$> (o .:? "nodes"))
instance ToJSON GoogleCloudMlV1__ManualScaling where
toJSON GoogleCloudMlV1__ManualScaling'{..}
= object (catMaybes [("nodes" .=) <$> _gcmvmsNodes])
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])
data GoogleCloudMlV1__Model =
GoogleCloudMlV1__Model'
{ _gcmvmEtag :: !(Maybe Bytes)
, _gcmvmRegions :: !(Maybe [Text])
, _gcmvmDefaultVersion :: !(Maybe GoogleCloudMlV1__Version)
, _gcmvmName :: !(Maybe Text)
, _gcmvmLabels :: !(Maybe GoogleCloudMlV1__ModelLabels)
, _gcmvmOnlinePredictionConsoleLogging :: !(Maybe Bool)
, _gcmvmDescription :: !(Maybe Text)
, _gcmvmOnlinePredictionLogging :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__Model
:: GoogleCloudMlV1__Model
googleCloudMlV1__Model =
GoogleCloudMlV1__Model'
{ _gcmvmEtag = Nothing
, _gcmvmRegions = Nothing
, _gcmvmDefaultVersion = Nothing
, _gcmvmName = Nothing
, _gcmvmLabels = Nothing
, _gcmvmOnlinePredictionConsoleLogging = Nothing
, _gcmvmDescription = Nothing
, _gcmvmOnlinePredictionLogging = Nothing
}
gcmvmEtag :: Lens' GoogleCloudMlV1__Model (Maybe ByteString)
gcmvmEtag
= lens _gcmvmEtag (\ s a -> s{_gcmvmEtag = a}) .
mapping _Bytes
gcmvmRegions :: Lens' GoogleCloudMlV1__Model [Text]
gcmvmRegions
= lens _gcmvmRegions (\ s a -> s{_gcmvmRegions = a})
. _Default
. _Coerce
gcmvmDefaultVersion :: Lens' GoogleCloudMlV1__Model (Maybe GoogleCloudMlV1__Version)
gcmvmDefaultVersion
= lens _gcmvmDefaultVersion
(\ s a -> s{_gcmvmDefaultVersion = a})
gcmvmName :: Lens' GoogleCloudMlV1__Model (Maybe Text)
gcmvmName
= lens _gcmvmName (\ s a -> s{_gcmvmName = a})
gcmvmLabels :: Lens' GoogleCloudMlV1__Model (Maybe GoogleCloudMlV1__ModelLabels)
gcmvmLabels
= lens _gcmvmLabels (\ s a -> s{_gcmvmLabels = a})
gcmvmOnlinePredictionConsoleLogging :: Lens' GoogleCloudMlV1__Model (Maybe Bool)
gcmvmOnlinePredictionConsoleLogging
= lens _gcmvmOnlinePredictionConsoleLogging
(\ s a ->
s{_gcmvmOnlinePredictionConsoleLogging = a})
gcmvmDescription :: Lens' GoogleCloudMlV1__Model (Maybe Text)
gcmvmDescription
= lens _gcmvmDescription
(\ s a -> s{_gcmvmDescription = a})
gcmvmOnlinePredictionLogging :: Lens' GoogleCloudMlV1__Model (Maybe Bool)
gcmvmOnlinePredictionLogging
= lens _gcmvmOnlinePredictionLogging
(\ s a -> s{_gcmvmOnlinePredictionLogging = a})
instance FromJSON GoogleCloudMlV1__Model where
parseJSON
= withObject "GoogleCloudMlV1Model"
(\ o ->
GoogleCloudMlV1__Model' <$>
(o .:? "etag") <*> (o .:? "regions" .!= mempty) <*>
(o .:? "defaultVersion")
<*> (o .:? "name")
<*> (o .:? "labels")
<*> (o .:? "onlinePredictionConsoleLogging")
<*> (o .:? "description")
<*> (o .:? "onlinePredictionLogging"))
instance ToJSON GoogleCloudMlV1__Model where
toJSON GoogleCloudMlV1__Model'{..}
= object
(catMaybes
[("etag" .=) <$> _gcmvmEtag,
("regions" .=) <$> _gcmvmRegions,
("defaultVersion" .=) <$> _gcmvmDefaultVersion,
("name" .=) <$> _gcmvmName,
("labels" .=) <$> _gcmvmLabels,
("onlinePredictionConsoleLogging" .=) <$>
_gcmvmOnlinePredictionConsoleLogging,
("description" .=) <$> _gcmvmDescription,
("onlinePredictionLogging" .=) <$>
_gcmvmOnlinePredictionLogging])
data GoogleCloudMlV1__Job =
GoogleCloudMlV1__Job'
{ _gcmvjEtag :: !(Maybe Bytes)
, _gcmvjState :: !(Maybe GoogleCloudMlV1__JobState)
, _gcmvjTrainingOutput :: !(Maybe GoogleCloudMlV1__TrainingOutput)
, _gcmvjJobId :: !(Maybe Text)
, _gcmvjStartTime :: !(Maybe DateTime')
, _gcmvjPredictionInput :: !(Maybe GoogleCloudMlV1__PredictionInput)
, _gcmvjEndTime :: !(Maybe DateTime')
, _gcmvjPredictionOutput :: !(Maybe GoogleCloudMlV1__PredictionOutput)
, _gcmvjLabels :: !(Maybe GoogleCloudMlV1__JobLabels)
, _gcmvjErrorMessage :: !(Maybe Text)
, _gcmvjTrainingInput :: !(Maybe GoogleCloudMlV1__TrainingInput)
, _gcmvjCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__Job
:: GoogleCloudMlV1__Job
googleCloudMlV1__Job =
GoogleCloudMlV1__Job'
{ _gcmvjEtag = Nothing
, _gcmvjState = Nothing
, _gcmvjTrainingOutput = Nothing
, _gcmvjJobId = Nothing
, _gcmvjStartTime = Nothing
, _gcmvjPredictionInput = Nothing
, _gcmvjEndTime = Nothing
, _gcmvjPredictionOutput = Nothing
, _gcmvjLabels = Nothing
, _gcmvjErrorMessage = Nothing
, _gcmvjTrainingInput = Nothing
, _gcmvjCreateTime = Nothing
}
gcmvjEtag :: Lens' GoogleCloudMlV1__Job (Maybe ByteString)
gcmvjEtag
= lens _gcmvjEtag (\ s a -> s{_gcmvjEtag = a}) .
mapping _Bytes
gcmvjState :: Lens' GoogleCloudMlV1__Job (Maybe GoogleCloudMlV1__JobState)
gcmvjState
= lens _gcmvjState (\ s a -> s{_gcmvjState = a})
gcmvjTrainingOutput :: Lens' GoogleCloudMlV1__Job (Maybe GoogleCloudMlV1__TrainingOutput)
gcmvjTrainingOutput
= lens _gcmvjTrainingOutput
(\ s a -> s{_gcmvjTrainingOutput = a})
gcmvjJobId :: Lens' GoogleCloudMlV1__Job (Maybe Text)
gcmvjJobId
= lens _gcmvjJobId (\ s a -> s{_gcmvjJobId = a})
gcmvjStartTime :: Lens' GoogleCloudMlV1__Job (Maybe UTCTime)
gcmvjStartTime
= lens _gcmvjStartTime
(\ s a -> s{_gcmvjStartTime = a})
. mapping _DateTime
gcmvjPredictionInput :: Lens' GoogleCloudMlV1__Job (Maybe GoogleCloudMlV1__PredictionInput)
gcmvjPredictionInput
= lens _gcmvjPredictionInput
(\ s a -> s{_gcmvjPredictionInput = a})
gcmvjEndTime :: Lens' GoogleCloudMlV1__Job (Maybe UTCTime)
gcmvjEndTime
= lens _gcmvjEndTime (\ s a -> s{_gcmvjEndTime = a})
. mapping _DateTime
gcmvjPredictionOutput :: Lens' GoogleCloudMlV1__Job (Maybe GoogleCloudMlV1__PredictionOutput)
gcmvjPredictionOutput
= lens _gcmvjPredictionOutput
(\ s a -> s{_gcmvjPredictionOutput = a})
gcmvjLabels :: Lens' GoogleCloudMlV1__Job (Maybe GoogleCloudMlV1__JobLabels)
gcmvjLabels
= lens _gcmvjLabels (\ s a -> s{_gcmvjLabels = a})
gcmvjErrorMessage :: Lens' GoogleCloudMlV1__Job (Maybe Text)
gcmvjErrorMessage
= lens _gcmvjErrorMessage
(\ s a -> s{_gcmvjErrorMessage = a})
gcmvjTrainingInput :: Lens' GoogleCloudMlV1__Job (Maybe GoogleCloudMlV1__TrainingInput)
gcmvjTrainingInput
= lens _gcmvjTrainingInput
(\ s a -> s{_gcmvjTrainingInput = a})
gcmvjCreateTime :: Lens' GoogleCloudMlV1__Job (Maybe UTCTime)
gcmvjCreateTime
= lens _gcmvjCreateTime
(\ s a -> s{_gcmvjCreateTime = a})
. mapping _DateTime
instance FromJSON GoogleCloudMlV1__Job where
parseJSON
= withObject "GoogleCloudMlV1Job"
(\ o ->
GoogleCloudMlV1__Job' <$>
(o .:? "etag") <*> (o .:? "state") <*>
(o .:? "trainingOutput")
<*> (o .:? "jobId")
<*> (o .:? "startTime")
<*> (o .:? "predictionInput")
<*> (o .:? "endTime")
<*> (o .:? "predictionOutput")
<*> (o .:? "labels")
<*> (o .:? "errorMessage")
<*> (o .:? "trainingInput")
<*> (o .:? "createTime"))
instance ToJSON GoogleCloudMlV1__Job where
toJSON GoogleCloudMlV1__Job'{..}
= object
(catMaybes
[("etag" .=) <$> _gcmvjEtag,
("state" .=) <$> _gcmvjState,
("trainingOutput" .=) <$> _gcmvjTrainingOutput,
("jobId" .=) <$> _gcmvjJobId,
("startTime" .=) <$> _gcmvjStartTime,
("predictionInput" .=) <$> _gcmvjPredictionInput,
("endTime" .=) <$> _gcmvjEndTime,
("predictionOutput" .=) <$> _gcmvjPredictionOutput,
("labels" .=) <$> _gcmvjLabels,
("errorMessage" .=) <$> _gcmvjErrorMessage,
("trainingInput" .=) <$> _gcmvjTrainingInput,
("createTime" .=) <$> _gcmvjCreateTime])
data GoogleCloudMlV1__SetDefaultVersionRequest =
GoogleCloudMlV1__SetDefaultVersionRequest'
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__SetDefaultVersionRequest
:: GoogleCloudMlV1__SetDefaultVersionRequest
googleCloudMlV1__SetDefaultVersionRequest =
GoogleCloudMlV1__SetDefaultVersionRequest'
instance FromJSON
GoogleCloudMlV1__SetDefaultVersionRequest
where
parseJSON
= withObject
"GoogleCloudMlV1SetDefaultVersionRequest"
(\ o ->
pure GoogleCloudMlV1__SetDefaultVersionRequest')
instance ToJSON
GoogleCloudMlV1__SetDefaultVersionRequest
where
toJSON = const emptyObject
newtype GoogleCloudMlV1__ModelLabels =
GoogleCloudMlV1__ModelLabels'
{ _gcmvmlAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__ModelLabels
:: HashMap Text Text
-> GoogleCloudMlV1__ModelLabels
googleCloudMlV1__ModelLabels pGcmvmlAddtional_ =
GoogleCloudMlV1__ModelLabels' {_gcmvmlAddtional = _Coerce # pGcmvmlAddtional_}
gcmvmlAddtional :: Lens' GoogleCloudMlV1__ModelLabels (HashMap Text Text)
gcmvmlAddtional
= lens _gcmvmlAddtional
(\ s a -> s{_gcmvmlAddtional = a})
. _Coerce
instance FromJSON GoogleCloudMlV1__ModelLabels where
parseJSON
= withObject "GoogleCloudMlV1ModelLabels"
(\ o ->
GoogleCloudMlV1__ModelLabels' <$>
(parseJSONObject o))
instance ToJSON GoogleCloudMlV1__ModelLabels where
toJSON = toJSON . _gcmvmlAddtional
newtype GoogleCloudMlV1__JobLabels =
GoogleCloudMlV1__JobLabels'
{ _gcmvjlAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__JobLabels
:: HashMap Text Text
-> GoogleCloudMlV1__JobLabels
googleCloudMlV1__JobLabels pGcmvjlAddtional_ =
GoogleCloudMlV1__JobLabels' {_gcmvjlAddtional = _Coerce # pGcmvjlAddtional_}
gcmvjlAddtional :: Lens' GoogleCloudMlV1__JobLabels (HashMap Text Text)
gcmvjlAddtional
= lens _gcmvjlAddtional
(\ s a -> s{_gcmvjlAddtional = a})
. _Coerce
instance FromJSON GoogleCloudMlV1__JobLabels where
parseJSON
= withObject "GoogleCloudMlV1JobLabels"
(\ o ->
GoogleCloudMlV1__JobLabels' <$> (parseJSONObject o))
instance ToJSON GoogleCloudMlV1__JobLabels where
toJSON = toJSON . _gcmvjlAddtional
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])
data GoogleCloudMlV1__ReplicaConfig =
GoogleCloudMlV1__ReplicaConfig'
{ _gcmvrcImageURI :: !(Maybe Text)
, _gcmvrcAcceleratorConfig :: !(Maybe GoogleCloudMlV1__AcceleratorConfig)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__ReplicaConfig
:: GoogleCloudMlV1__ReplicaConfig
googleCloudMlV1__ReplicaConfig =
GoogleCloudMlV1__ReplicaConfig'
{_gcmvrcImageURI = Nothing, _gcmvrcAcceleratorConfig = Nothing}
gcmvrcImageURI :: Lens' GoogleCloudMlV1__ReplicaConfig (Maybe Text)
gcmvrcImageURI
= lens _gcmvrcImageURI
(\ s a -> s{_gcmvrcImageURI = a})
gcmvrcAcceleratorConfig :: Lens' GoogleCloudMlV1__ReplicaConfig (Maybe GoogleCloudMlV1__AcceleratorConfig)
gcmvrcAcceleratorConfig
= lens _gcmvrcAcceleratorConfig
(\ s a -> s{_gcmvrcAcceleratorConfig = a})
instance FromJSON GoogleCloudMlV1__ReplicaConfig
where
parseJSON
= withObject "GoogleCloudMlV1ReplicaConfig"
(\ o ->
GoogleCloudMlV1__ReplicaConfig' <$>
(o .:? "imageUri") <*> (o .:? "acceleratorConfig"))
instance ToJSON GoogleCloudMlV1__ReplicaConfig where
toJSON GoogleCloudMlV1__ReplicaConfig'{..}
= object
(catMaybes
[("imageUri" .=) <$> _gcmvrcImageURI,
("acceleratorConfig" .=) <$>
_gcmvrcAcceleratorConfig])
newtype GoogleCloudMlV1__Config =
GoogleCloudMlV1__Config'
{ _gcmvcTpuServiceAccount :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__Config
:: GoogleCloudMlV1__Config
googleCloudMlV1__Config =
GoogleCloudMlV1__Config' {_gcmvcTpuServiceAccount = Nothing}
gcmvcTpuServiceAccount :: Lens' GoogleCloudMlV1__Config (Maybe Text)
gcmvcTpuServiceAccount
= lens _gcmvcTpuServiceAccount
(\ s a -> s{_gcmvcTpuServiceAccount = a})
instance FromJSON GoogleCloudMlV1__Config where
parseJSON
= withObject "GoogleCloudMlV1Config"
(\ o ->
GoogleCloudMlV1__Config' <$>
(o .:? "tpuServiceAccount"))
instance ToJSON GoogleCloudMlV1__Config where
toJSON GoogleCloudMlV1__Config'{..}
= object
(catMaybes
[("tpuServiceAccount" .=) <$>
_gcmvcTpuServiceAccount])
data GoogleCloudMlV1__HyperparameterSpec =
GoogleCloudMlV1__HyperparameterSpec'
{ _gcmvhsResumePreviousJobId :: !(Maybe Text)
, _gcmvhsParams :: !(Maybe [GoogleCloudMlV1__ParameterSpec])
, _gcmvhsAlgorithm :: !(Maybe GoogleCloudMlV1__HyperparameterSpecAlgorithm)
, _gcmvhsGoal :: !(Maybe GoogleCloudMlV1__HyperparameterSpecGoal)
, _gcmvhsMaxTrials :: !(Maybe (Textual Int32))
, _gcmvhsEnableTrialEarlyStopping :: !(Maybe Bool)
, _gcmvhsMaxParallelTrials :: !(Maybe (Textual Int32))
, _gcmvhsMaxFailedTrials :: !(Maybe (Textual Int32))
, _gcmvhsHyperparameterMetricTag :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__HyperparameterSpec
:: GoogleCloudMlV1__HyperparameterSpec
googleCloudMlV1__HyperparameterSpec =
GoogleCloudMlV1__HyperparameterSpec'
{ _gcmvhsResumePreviousJobId = Nothing
, _gcmvhsParams = Nothing
, _gcmvhsAlgorithm = Nothing
, _gcmvhsGoal = Nothing
, _gcmvhsMaxTrials = Nothing
, _gcmvhsEnableTrialEarlyStopping = Nothing
, _gcmvhsMaxParallelTrials = Nothing
, _gcmvhsMaxFailedTrials = Nothing
, _gcmvhsHyperparameterMetricTag = Nothing
}
gcmvhsResumePreviousJobId :: Lens' GoogleCloudMlV1__HyperparameterSpec (Maybe Text)
gcmvhsResumePreviousJobId
= lens _gcmvhsResumePreviousJobId
(\ s a -> s{_gcmvhsResumePreviousJobId = a})
gcmvhsParams :: Lens' GoogleCloudMlV1__HyperparameterSpec [GoogleCloudMlV1__ParameterSpec]
gcmvhsParams
= lens _gcmvhsParams (\ s a -> s{_gcmvhsParams = a})
. _Default
. _Coerce
gcmvhsAlgorithm :: Lens' GoogleCloudMlV1__HyperparameterSpec (Maybe GoogleCloudMlV1__HyperparameterSpecAlgorithm)
gcmvhsAlgorithm
= lens _gcmvhsAlgorithm
(\ s a -> s{_gcmvhsAlgorithm = a})
gcmvhsGoal :: Lens' GoogleCloudMlV1__HyperparameterSpec (Maybe GoogleCloudMlV1__HyperparameterSpecGoal)
gcmvhsGoal
= lens _gcmvhsGoal (\ s a -> s{_gcmvhsGoal = a})
gcmvhsMaxTrials :: Lens' GoogleCloudMlV1__HyperparameterSpec (Maybe Int32)
gcmvhsMaxTrials
= lens _gcmvhsMaxTrials
(\ s a -> s{_gcmvhsMaxTrials = a})
. mapping _Coerce
gcmvhsEnableTrialEarlyStopping :: Lens' GoogleCloudMlV1__HyperparameterSpec (Maybe Bool)
gcmvhsEnableTrialEarlyStopping
= lens _gcmvhsEnableTrialEarlyStopping
(\ s a -> s{_gcmvhsEnableTrialEarlyStopping = a})
gcmvhsMaxParallelTrials :: Lens' GoogleCloudMlV1__HyperparameterSpec (Maybe Int32)
gcmvhsMaxParallelTrials
= lens _gcmvhsMaxParallelTrials
(\ s a -> s{_gcmvhsMaxParallelTrials = a})
. mapping _Coerce
gcmvhsMaxFailedTrials :: Lens' GoogleCloudMlV1__HyperparameterSpec (Maybe Int32)
gcmvhsMaxFailedTrials
= lens _gcmvhsMaxFailedTrials
(\ s a -> s{_gcmvhsMaxFailedTrials = a})
. mapping _Coerce
gcmvhsHyperparameterMetricTag :: Lens' GoogleCloudMlV1__HyperparameterSpec (Maybe Text)
gcmvhsHyperparameterMetricTag
= lens _gcmvhsHyperparameterMetricTag
(\ s a -> s{_gcmvhsHyperparameterMetricTag = a})
instance FromJSON GoogleCloudMlV1__HyperparameterSpec
where
parseJSON
= withObject "GoogleCloudMlV1HyperparameterSpec"
(\ o ->
GoogleCloudMlV1__HyperparameterSpec' <$>
(o .:? "resumePreviousJobId") <*>
(o .:? "params" .!= mempty)
<*> (o .:? "algorithm")
<*> (o .:? "goal")
<*> (o .:? "maxTrials")
<*> (o .:? "enableTrialEarlyStopping")
<*> (o .:? "maxParallelTrials")
<*> (o .:? "maxFailedTrials")
<*> (o .:? "hyperparameterMetricTag"))
instance ToJSON GoogleCloudMlV1__HyperparameterSpec
where
toJSON GoogleCloudMlV1__HyperparameterSpec'{..}
= object
(catMaybes
[("resumePreviousJobId" .=) <$>
_gcmvhsResumePreviousJobId,
("params" .=) <$> _gcmvhsParams,
("algorithm" .=) <$> _gcmvhsAlgorithm,
("goal" .=) <$> _gcmvhsGoal,
("maxTrials" .=) <$> _gcmvhsMaxTrials,
("enableTrialEarlyStopping" .=) <$>
_gcmvhsEnableTrialEarlyStopping,
("maxParallelTrials" .=) <$>
_gcmvhsMaxParallelTrials,
("maxFailedTrials" .=) <$> _gcmvhsMaxFailedTrials,
("hyperparameterMetricTag" .=) <$>
_gcmvhsHyperparameterMetricTag])
newtype GoogleCloudMlV1__AutoScaling =
GoogleCloudMlV1__AutoScaling'
{ _gcmvasMinNodes :: Maybe (Textual Int32)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__AutoScaling
:: GoogleCloudMlV1__AutoScaling
googleCloudMlV1__AutoScaling =
GoogleCloudMlV1__AutoScaling' {_gcmvasMinNodes = Nothing}
gcmvasMinNodes :: Lens' GoogleCloudMlV1__AutoScaling (Maybe Int32)
gcmvasMinNodes
= lens _gcmvasMinNodes
(\ s a -> s{_gcmvasMinNodes = a})
. mapping _Coerce
instance FromJSON GoogleCloudMlV1__AutoScaling where
parseJSON
= withObject "GoogleCloudMlV1AutoScaling"
(\ o ->
GoogleCloudMlV1__AutoScaling' <$> (o .:? "minNodes"))
instance ToJSON GoogleCloudMlV1__AutoScaling where
toJSON GoogleCloudMlV1__AutoScaling'{..}
= object
(catMaybes [("minNodes" .=) <$> _gcmvasMinNodes])
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 GoogleCloudMlV1__ParameterSpec =
GoogleCloudMlV1__ParameterSpec'
{ _gcmvpsMaxValue :: !(Maybe (Textual Double))
, _gcmvpsScaleType :: !(Maybe GoogleCloudMlV1__ParameterSpecScaleType)
, _gcmvpsType :: !(Maybe GoogleCloudMlV1__ParameterSpecType)
, _gcmvpsDiscreteValues :: !(Maybe [Textual Double])
, _gcmvpsParameterName :: !(Maybe Text)
, _gcmvpsCategoricalValues :: !(Maybe [Text])
, _gcmvpsMinValue :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__ParameterSpec
:: GoogleCloudMlV1__ParameterSpec
googleCloudMlV1__ParameterSpec =
GoogleCloudMlV1__ParameterSpec'
{ _gcmvpsMaxValue = Nothing
, _gcmvpsScaleType = Nothing
, _gcmvpsType = Nothing
, _gcmvpsDiscreteValues = Nothing
, _gcmvpsParameterName = Nothing
, _gcmvpsCategoricalValues = Nothing
, _gcmvpsMinValue = Nothing
}
gcmvpsMaxValue :: Lens' GoogleCloudMlV1__ParameterSpec (Maybe Double)
gcmvpsMaxValue
= lens _gcmvpsMaxValue
(\ s a -> s{_gcmvpsMaxValue = a})
. mapping _Coerce
gcmvpsScaleType :: Lens' GoogleCloudMlV1__ParameterSpec (Maybe GoogleCloudMlV1__ParameterSpecScaleType)
gcmvpsScaleType
= lens _gcmvpsScaleType
(\ s a -> s{_gcmvpsScaleType = a})
gcmvpsType :: Lens' GoogleCloudMlV1__ParameterSpec (Maybe GoogleCloudMlV1__ParameterSpecType)
gcmvpsType
= lens _gcmvpsType (\ s a -> s{_gcmvpsType = a})
gcmvpsDiscreteValues :: Lens' GoogleCloudMlV1__ParameterSpec [Double]
gcmvpsDiscreteValues
= lens _gcmvpsDiscreteValues
(\ s a -> s{_gcmvpsDiscreteValues = a})
. _Default
. _Coerce
gcmvpsParameterName :: Lens' GoogleCloudMlV1__ParameterSpec (Maybe Text)
gcmvpsParameterName
= lens _gcmvpsParameterName
(\ s a -> s{_gcmvpsParameterName = a})
gcmvpsCategoricalValues :: Lens' GoogleCloudMlV1__ParameterSpec [Text]
gcmvpsCategoricalValues
= lens _gcmvpsCategoricalValues
(\ s a -> s{_gcmvpsCategoricalValues = a})
. _Default
. _Coerce
gcmvpsMinValue :: Lens' GoogleCloudMlV1__ParameterSpec (Maybe Double)
gcmvpsMinValue
= lens _gcmvpsMinValue
(\ s a -> s{_gcmvpsMinValue = a})
. mapping _Coerce
instance FromJSON GoogleCloudMlV1__ParameterSpec
where
parseJSON
= withObject "GoogleCloudMlV1ParameterSpec"
(\ o ->
GoogleCloudMlV1__ParameterSpec' <$>
(o .:? "maxValue") <*> (o .:? "scaleType") <*>
(o .:? "type")
<*> (o .:? "discreteValues" .!= mempty)
<*> (o .:? "parameterName")
<*> (o .:? "categoricalValues" .!= mempty)
<*> (o .:? "minValue"))
instance ToJSON GoogleCloudMlV1__ParameterSpec where
toJSON GoogleCloudMlV1__ParameterSpec'{..}
= object
(catMaybes
[("maxValue" .=) <$> _gcmvpsMaxValue,
("scaleType" .=) <$> _gcmvpsScaleType,
("type" .=) <$> _gcmvpsType,
("discreteValues" .=) <$> _gcmvpsDiscreteValues,
("parameterName" .=) <$> _gcmvpsParameterName,
("categoricalValues" .=) <$>
_gcmvpsCategoricalValues,
("minValue" .=) <$> _gcmvpsMinValue])
data GoogleIAMV1__Binding =
GoogleIAMV1__Binding'
{ _givbMembers :: !(Maybe [Text])
, _givbRole :: !(Maybe Text)
, _givbCondition :: !(Maybe GoogleType__Expr)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1__Binding
:: GoogleIAMV1__Binding
googleIAMV1__Binding =
GoogleIAMV1__Binding'
{_givbMembers = Nothing, _givbRole = Nothing, _givbCondition = Nothing}
givbMembers :: Lens' GoogleIAMV1__Binding [Text]
givbMembers
= lens _givbMembers (\ s a -> s{_givbMembers = a}) .
_Default
. _Coerce
givbRole :: Lens' GoogleIAMV1__Binding (Maybe Text)
givbRole = lens _givbRole (\ s a -> s{_givbRole = a})
givbCondition :: Lens' GoogleIAMV1__Binding (Maybe GoogleType__Expr)
givbCondition
= lens _givbCondition
(\ s a -> s{_givbCondition = a})
instance FromJSON GoogleIAMV1__Binding where
parseJSON
= withObject "GoogleIAMV1Binding"
(\ o ->
GoogleIAMV1__Binding' <$>
(o .:? "members" .!= mempty) <*> (o .:? "role") <*>
(o .:? "condition"))
instance ToJSON GoogleIAMV1__Binding where
toJSON GoogleIAMV1__Binding'{..}
= object
(catMaybes
[("members" .=) <$> _givbMembers,
("role" .=) <$> _givbRole,
("condition" .=) <$> _givbCondition])
data GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric =
GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric'
{ _gcmvhohmTrainingStep :: !(Maybe (Textual Int64))
, _gcmvhohmObjectiveValue :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1_HyperparameterOutput_HyperparameterMetric
:: GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric
googleCloudMlV1_HyperparameterOutput_HyperparameterMetric =
GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric'
{_gcmvhohmTrainingStep = Nothing, _gcmvhohmObjectiveValue = Nothing}
gcmvhohmTrainingStep :: Lens' GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric (Maybe Int64)
gcmvhohmTrainingStep
= lens _gcmvhohmTrainingStep
(\ s a -> s{_gcmvhohmTrainingStep = a})
. mapping _Coerce
gcmvhohmObjectiveValue :: Lens' GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric (Maybe Double)
gcmvhohmObjectiveValue
= lens _gcmvhohmObjectiveValue
(\ s a -> s{_gcmvhohmObjectiveValue = a})
. mapping _Coerce
instance FromJSON
GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric
where
parseJSON
= withObject
"GoogleCloudMlV1HyperparameterOutputHyperparameterMetric"
(\ o ->
GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric'
<$>
(o .:? "trainingStep") <*> (o .:? "objectiveValue"))
instance ToJSON
GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric
where
toJSON
GoogleCloudMlV1_HyperparameterOutput_HyperparameterMetric'{..}
= object
(catMaybes
[("trainingStep" .=) <$> _gcmvhohmTrainingStep,
("objectiveValue" .=) <$> _gcmvhohmObjectiveValue])
data GoogleIAMV1__SetIAMPolicyRequest =
GoogleIAMV1__SetIAMPolicyRequest'
{ _givsiprUpdateMask :: !(Maybe GFieldMask)
, _givsiprPolicy :: !(Maybe GoogleIAMV1__Policy)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1__SetIAMPolicyRequest
:: GoogleIAMV1__SetIAMPolicyRequest
googleIAMV1__SetIAMPolicyRequest =
GoogleIAMV1__SetIAMPolicyRequest'
{_givsiprUpdateMask = Nothing, _givsiprPolicy = Nothing}
givsiprUpdateMask :: Lens' GoogleIAMV1__SetIAMPolicyRequest (Maybe GFieldMask)
givsiprUpdateMask
= lens _givsiprUpdateMask
(\ s a -> s{_givsiprUpdateMask = a})
givsiprPolicy :: Lens' GoogleIAMV1__SetIAMPolicyRequest (Maybe GoogleIAMV1__Policy)
givsiprPolicy
= lens _givsiprPolicy
(\ s a -> s{_givsiprPolicy = a})
instance FromJSON GoogleIAMV1__SetIAMPolicyRequest
where
parseJSON
= withObject "GoogleIAMV1SetIAMPolicyRequest"
(\ o ->
GoogleIAMV1__SetIAMPolicyRequest' <$>
(o .:? "updateMask") <*> (o .:? "policy"))
instance ToJSON GoogleIAMV1__SetIAMPolicyRequest
where
toJSON GoogleIAMV1__SetIAMPolicyRequest'{..}
= object
(catMaybes
[("updateMask" .=) <$> _givsiprUpdateMask,
("policy" .=) <$> _givsiprPolicy])
data GoogleCloudMlV1__PredictionInput =
GoogleCloudMlV1__PredictionInput'
{ _gcmvpiVersionName :: !(Maybe Text)
, _gcmvpiModelName :: !(Maybe Text)
, _gcmvpiDataFormat :: !(Maybe GoogleCloudMlV1__PredictionInputDataFormat)
, _gcmvpiURI :: !(Maybe Text)
, _gcmvpiRuntimeVersion :: !(Maybe Text)
, _gcmvpiBatchSize :: !(Maybe (Textual Int64))
, _gcmvpiMaxWorkerCount :: !(Maybe (Textual Int64))
, _gcmvpiOutputDataFormat :: !(Maybe GoogleCloudMlV1__PredictionInputOutputDataFormat)
, _gcmvpiOutputPath :: !(Maybe Text)
, _gcmvpiRegion :: !(Maybe Text)
, _gcmvpiInputPaths :: !(Maybe [Text])
, _gcmvpiSignatureName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__PredictionInput
:: GoogleCloudMlV1__PredictionInput
googleCloudMlV1__PredictionInput =
GoogleCloudMlV1__PredictionInput'
{ _gcmvpiVersionName = Nothing
, _gcmvpiModelName = Nothing
, _gcmvpiDataFormat = Nothing
, _gcmvpiURI = Nothing
, _gcmvpiRuntimeVersion = Nothing
, _gcmvpiBatchSize = Nothing
, _gcmvpiMaxWorkerCount = Nothing
, _gcmvpiOutputDataFormat = Nothing
, _gcmvpiOutputPath = Nothing
, _gcmvpiRegion = Nothing
, _gcmvpiInputPaths = Nothing
, _gcmvpiSignatureName = Nothing
}
gcmvpiVersionName :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Text)
gcmvpiVersionName
= lens _gcmvpiVersionName
(\ s a -> s{_gcmvpiVersionName = a})
gcmvpiModelName :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Text)
gcmvpiModelName
= lens _gcmvpiModelName
(\ s a -> s{_gcmvpiModelName = a})
gcmvpiDataFormat :: Lens' GoogleCloudMlV1__PredictionInput (Maybe GoogleCloudMlV1__PredictionInputDataFormat)
gcmvpiDataFormat
= lens _gcmvpiDataFormat
(\ s a -> s{_gcmvpiDataFormat = a})
gcmvpiURI :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Text)
gcmvpiURI
= lens _gcmvpiURI (\ s a -> s{_gcmvpiURI = a})
gcmvpiRuntimeVersion :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Text)
gcmvpiRuntimeVersion
= lens _gcmvpiRuntimeVersion
(\ s a -> s{_gcmvpiRuntimeVersion = a})
gcmvpiBatchSize :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Int64)
gcmvpiBatchSize
= lens _gcmvpiBatchSize
(\ s a -> s{_gcmvpiBatchSize = a})
. mapping _Coerce
gcmvpiMaxWorkerCount :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Int64)
gcmvpiMaxWorkerCount
= lens _gcmvpiMaxWorkerCount
(\ s a -> s{_gcmvpiMaxWorkerCount = a})
. mapping _Coerce
gcmvpiOutputDataFormat :: Lens' GoogleCloudMlV1__PredictionInput (Maybe GoogleCloudMlV1__PredictionInputOutputDataFormat)
gcmvpiOutputDataFormat
= lens _gcmvpiOutputDataFormat
(\ s a -> s{_gcmvpiOutputDataFormat = a})
gcmvpiOutputPath :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Text)
gcmvpiOutputPath
= lens _gcmvpiOutputPath
(\ s a -> s{_gcmvpiOutputPath = a})
gcmvpiRegion :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Text)
gcmvpiRegion
= lens _gcmvpiRegion (\ s a -> s{_gcmvpiRegion = a})
gcmvpiInputPaths :: Lens' GoogleCloudMlV1__PredictionInput [Text]
gcmvpiInputPaths
= lens _gcmvpiInputPaths
(\ s a -> s{_gcmvpiInputPaths = a})
. _Default
. _Coerce
gcmvpiSignatureName :: Lens' GoogleCloudMlV1__PredictionInput (Maybe Text)
gcmvpiSignatureName
= lens _gcmvpiSignatureName
(\ s a -> s{_gcmvpiSignatureName = a})
instance FromJSON GoogleCloudMlV1__PredictionInput
where
parseJSON
= withObject "GoogleCloudMlV1PredictionInput"
(\ o ->
GoogleCloudMlV1__PredictionInput' <$>
(o .:? "versionName") <*> (o .:? "modelName") <*>
(o .:? "dataFormat")
<*> (o .:? "uri")
<*> (o .:? "runtimeVersion")
<*> (o .:? "batchSize")
<*> (o .:? "maxWorkerCount")
<*> (o .:? "outputDataFormat")
<*> (o .:? "outputPath")
<*> (o .:? "region")
<*> (o .:? "inputPaths" .!= mempty)
<*> (o .:? "signatureName"))
instance ToJSON GoogleCloudMlV1__PredictionInput
where
toJSON GoogleCloudMlV1__PredictionInput'{..}
= object
(catMaybes
[("versionName" .=) <$> _gcmvpiVersionName,
("modelName" .=) <$> _gcmvpiModelName,
("dataFormat" .=) <$> _gcmvpiDataFormat,
("uri" .=) <$> _gcmvpiURI,
("runtimeVersion" .=) <$> _gcmvpiRuntimeVersion,
("batchSize" .=) <$> _gcmvpiBatchSize,
("maxWorkerCount" .=) <$> _gcmvpiMaxWorkerCount,
("outputDataFormat" .=) <$> _gcmvpiOutputDataFormat,
("outputPath" .=) <$> _gcmvpiOutputPath,
("region" .=) <$> _gcmvpiRegion,
("inputPaths" .=) <$> _gcmvpiInputPaths,
("signatureName" .=) <$> _gcmvpiSignatureName])
data GoogleCloudMlV1__TrainingInput =
GoogleCloudMlV1__TrainingInput'
{ _gcmvtiMasterType :: !(Maybe Text)
, _gcmvtiWorkerConfig :: !(Maybe GoogleCloudMlV1__ReplicaConfig)
, _gcmvtiParameterServerCount :: !(Maybe (Textual Int64))
, _gcmvtiArgs :: !(Maybe [Text])
, _gcmvtiWorkerCount :: !(Maybe (Textual Int64))
, _gcmvtiJobDir :: !(Maybe Text)
, _gcmvtiPythonVersion :: !(Maybe Text)
, _gcmvtiRuntimeVersion :: !(Maybe Text)
, _gcmvtiWorkerType :: !(Maybe Text)
, _gcmvtiMasterConfig :: !(Maybe GoogleCloudMlV1__ReplicaConfig)
, _gcmvtiPythonModule :: !(Maybe Text)
, _gcmvtiParameterServerType :: !(Maybe Text)
, _gcmvtiHyperparameters :: !(Maybe GoogleCloudMlV1__HyperparameterSpec)
, _gcmvtiPackageURIs :: !(Maybe [Text])
, _gcmvtiScaleTier :: !(Maybe GoogleCloudMlV1__TrainingInputScaleTier)
, _gcmvtiRegion :: !(Maybe Text)
, _gcmvtiParameterServerConfig :: !(Maybe GoogleCloudMlV1__ReplicaConfig)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__TrainingInput
:: GoogleCloudMlV1__TrainingInput
googleCloudMlV1__TrainingInput =
GoogleCloudMlV1__TrainingInput'
{ _gcmvtiMasterType = Nothing
, _gcmvtiWorkerConfig = Nothing
, _gcmvtiParameterServerCount = Nothing
, _gcmvtiArgs = Nothing
, _gcmvtiWorkerCount = Nothing
, _gcmvtiJobDir = Nothing
, _gcmvtiPythonVersion = Nothing
, _gcmvtiRuntimeVersion = Nothing
, _gcmvtiWorkerType = Nothing
, _gcmvtiMasterConfig = Nothing
, _gcmvtiPythonModule = Nothing
, _gcmvtiParameterServerType = Nothing
, _gcmvtiHyperparameters = Nothing
, _gcmvtiPackageURIs = Nothing
, _gcmvtiScaleTier = Nothing
, _gcmvtiRegion = Nothing
, _gcmvtiParameterServerConfig = Nothing
}
gcmvtiMasterType :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Text)
gcmvtiMasterType
= lens _gcmvtiMasterType
(\ s a -> s{_gcmvtiMasterType = a})
gcmvtiWorkerConfig :: Lens' GoogleCloudMlV1__TrainingInput (Maybe GoogleCloudMlV1__ReplicaConfig)
gcmvtiWorkerConfig
= lens _gcmvtiWorkerConfig
(\ s a -> s{_gcmvtiWorkerConfig = a})
gcmvtiParameterServerCount :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Int64)
gcmvtiParameterServerCount
= lens _gcmvtiParameterServerCount
(\ s a -> s{_gcmvtiParameterServerCount = a})
. mapping _Coerce
gcmvtiArgs :: Lens' GoogleCloudMlV1__TrainingInput [Text]
gcmvtiArgs
= lens _gcmvtiArgs (\ s a -> s{_gcmvtiArgs = a}) .
_Default
. _Coerce
gcmvtiWorkerCount :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Int64)
gcmvtiWorkerCount
= lens _gcmvtiWorkerCount
(\ s a -> s{_gcmvtiWorkerCount = a})
. mapping _Coerce
gcmvtiJobDir :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Text)
gcmvtiJobDir
= lens _gcmvtiJobDir (\ s a -> s{_gcmvtiJobDir = a})
gcmvtiPythonVersion :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Text)
gcmvtiPythonVersion
= lens _gcmvtiPythonVersion
(\ s a -> s{_gcmvtiPythonVersion = a})
gcmvtiRuntimeVersion :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Text)
gcmvtiRuntimeVersion
= lens _gcmvtiRuntimeVersion
(\ s a -> s{_gcmvtiRuntimeVersion = a})
gcmvtiWorkerType :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Text)
gcmvtiWorkerType
= lens _gcmvtiWorkerType
(\ s a -> s{_gcmvtiWorkerType = a})
gcmvtiMasterConfig :: Lens' GoogleCloudMlV1__TrainingInput (Maybe GoogleCloudMlV1__ReplicaConfig)
gcmvtiMasterConfig
= lens _gcmvtiMasterConfig
(\ s a -> s{_gcmvtiMasterConfig = a})
gcmvtiPythonModule :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Text)
gcmvtiPythonModule
= lens _gcmvtiPythonModule
(\ s a -> s{_gcmvtiPythonModule = a})
gcmvtiParameterServerType :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Text)
gcmvtiParameterServerType
= lens _gcmvtiParameterServerType
(\ s a -> s{_gcmvtiParameterServerType = a})
gcmvtiHyperparameters :: Lens' GoogleCloudMlV1__TrainingInput (Maybe GoogleCloudMlV1__HyperparameterSpec)
gcmvtiHyperparameters
= lens _gcmvtiHyperparameters
(\ s a -> s{_gcmvtiHyperparameters = a})
gcmvtiPackageURIs :: Lens' GoogleCloudMlV1__TrainingInput [Text]
gcmvtiPackageURIs
= lens _gcmvtiPackageURIs
(\ s a -> s{_gcmvtiPackageURIs = a})
. _Default
. _Coerce
gcmvtiScaleTier :: Lens' GoogleCloudMlV1__TrainingInput (Maybe GoogleCloudMlV1__TrainingInputScaleTier)
gcmvtiScaleTier
= lens _gcmvtiScaleTier
(\ s a -> s{_gcmvtiScaleTier = a})
gcmvtiRegion :: Lens' GoogleCloudMlV1__TrainingInput (Maybe Text)
gcmvtiRegion
= lens _gcmvtiRegion (\ s a -> s{_gcmvtiRegion = a})
gcmvtiParameterServerConfig :: Lens' GoogleCloudMlV1__TrainingInput (Maybe GoogleCloudMlV1__ReplicaConfig)
gcmvtiParameterServerConfig
= lens _gcmvtiParameterServerConfig
(\ s a -> s{_gcmvtiParameterServerConfig = a})
instance FromJSON GoogleCloudMlV1__TrainingInput
where
parseJSON
= withObject "GoogleCloudMlV1TrainingInput"
(\ o ->
GoogleCloudMlV1__TrainingInput' <$>
(o .:? "masterType") <*> (o .:? "workerConfig") <*>
(o .:? "parameterServerCount")
<*> (o .:? "args" .!= mempty)
<*> (o .:? "workerCount")
<*> (o .:? "jobDir")
<*> (o .:? "pythonVersion")
<*> (o .:? "runtimeVersion")
<*> (o .:? "workerType")
<*> (o .:? "masterConfig")
<*> (o .:? "pythonModule")
<*> (o .:? "parameterServerType")
<*> (o .:? "hyperparameters")
<*> (o .:? "packageUris" .!= mempty)
<*> (o .:? "scaleTier")
<*> (o .:? "region")
<*> (o .:? "parameterServerConfig"))
instance ToJSON GoogleCloudMlV1__TrainingInput where
toJSON GoogleCloudMlV1__TrainingInput'{..}
= object
(catMaybes
[("masterType" .=) <$> _gcmvtiMasterType,
("workerConfig" .=) <$> _gcmvtiWorkerConfig,
("parameterServerCount" .=) <$>
_gcmvtiParameterServerCount,
("args" .=) <$> _gcmvtiArgs,
("workerCount" .=) <$> _gcmvtiWorkerCount,
("jobDir" .=) <$> _gcmvtiJobDir,
("pythonVersion" .=) <$> _gcmvtiPythonVersion,
("runtimeVersion" .=) <$> _gcmvtiRuntimeVersion,
("workerType" .=) <$> _gcmvtiWorkerType,
("masterConfig" .=) <$> _gcmvtiMasterConfig,
("pythonModule" .=) <$> _gcmvtiPythonModule,
("parameterServerType" .=) <$>
_gcmvtiParameterServerType,
("hyperparameters" .=) <$> _gcmvtiHyperparameters,
("packageUris" .=) <$> _gcmvtiPackageURIs,
("scaleTier" .=) <$> _gcmvtiScaleTier,
("region" .=) <$> _gcmvtiRegion,
("parameterServerConfig" .=) <$>
_gcmvtiParameterServerConfig])
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 GoogleCloudMlV1__Location =
GoogleCloudMlV1__Location'
{ _gcmvlName :: !(Maybe Text)
, _gcmvlCapabilities :: !(Maybe [GoogleCloudMlV1__Capability])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__Location
:: GoogleCloudMlV1__Location
googleCloudMlV1__Location =
GoogleCloudMlV1__Location'
{_gcmvlName = Nothing, _gcmvlCapabilities = Nothing}
gcmvlName :: Lens' GoogleCloudMlV1__Location (Maybe Text)
gcmvlName
= lens _gcmvlName (\ s a -> s{_gcmvlName = a})
gcmvlCapabilities :: Lens' GoogleCloudMlV1__Location [GoogleCloudMlV1__Capability]
gcmvlCapabilities
= lens _gcmvlCapabilities
(\ s a -> s{_gcmvlCapabilities = a})
. _Default
. _Coerce
instance FromJSON GoogleCloudMlV1__Location where
parseJSON
= withObject "GoogleCloudMlV1Location"
(\ o ->
GoogleCloudMlV1__Location' <$>
(o .:? "name") <*> (o .:? "capabilities" .!= mempty))
instance ToJSON GoogleCloudMlV1__Location where
toJSON GoogleCloudMlV1__Location'{..}
= object
(catMaybes
[("name" .=) <$> _gcmvlName,
("capabilities" .=) <$> _gcmvlCapabilities])
newtype GoogleCloudMlV1__OperationMetadataLabels =
GoogleCloudMlV1__OperationMetadataLabels'
{ _gcmvomlAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__OperationMetadataLabels
:: HashMap Text Text
-> GoogleCloudMlV1__OperationMetadataLabels
googleCloudMlV1__OperationMetadataLabels pGcmvomlAddtional_ =
GoogleCloudMlV1__OperationMetadataLabels'
{_gcmvomlAddtional = _Coerce # pGcmvomlAddtional_}
gcmvomlAddtional :: Lens' GoogleCloudMlV1__OperationMetadataLabels (HashMap Text Text)
gcmvomlAddtional
= lens _gcmvomlAddtional
(\ s a -> s{_gcmvomlAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudMlV1__OperationMetadataLabels
where
parseJSON
= withObject "GoogleCloudMlV1OperationMetadataLabels"
(\ o ->
GoogleCloudMlV1__OperationMetadataLabels' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudMlV1__OperationMetadataLabels
where
toJSON = toJSON . _gcmvomlAddtional
data GoogleCloudMlV1__Capability =
GoogleCloudMlV1__Capability'
{ _gcmvcAvailableAccelerators :: !(Maybe [Text])
, _gcmvcType :: !(Maybe GoogleCloudMlV1__CapabilityType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__Capability
:: GoogleCloudMlV1__Capability
googleCloudMlV1__Capability =
GoogleCloudMlV1__Capability'
{_gcmvcAvailableAccelerators = Nothing, _gcmvcType = Nothing}
gcmvcAvailableAccelerators :: Lens' GoogleCloudMlV1__Capability [Text]
gcmvcAvailableAccelerators
= lens _gcmvcAvailableAccelerators
(\ s a -> s{_gcmvcAvailableAccelerators = a})
. _Default
. _Coerce
gcmvcType :: Lens' GoogleCloudMlV1__Capability (Maybe GoogleCloudMlV1__CapabilityType)
gcmvcType
= lens _gcmvcType (\ s a -> s{_gcmvcType = a})
instance FromJSON GoogleCloudMlV1__Capability where
parseJSON
= withObject "GoogleCloudMlV1Capability"
(\ o ->
GoogleCloudMlV1__Capability' <$>
(o .:? "availableAccelerators" .!= mempty) <*>
(o .:? "type"))
instance ToJSON GoogleCloudMlV1__Capability where
toJSON GoogleCloudMlV1__Capability'{..}
= object
(catMaybes
[("availableAccelerators" .=) <$>
_gcmvcAvailableAccelerators,
("type" .=) <$> _gcmvcType])
data GoogleCloudMlV1__OperationMetadata =
GoogleCloudMlV1__OperationMetadata'
{ _gcmvomStartTime :: !(Maybe DateTime')
, _gcmvomModelName :: !(Maybe Text)
, _gcmvomProjectNumber :: !(Maybe (Textual Int64))
, _gcmvomVersion :: !(Maybe GoogleCloudMlV1__Version)
, _gcmvomEndTime :: !(Maybe DateTime')
, _gcmvomIsCancellationRequested :: !(Maybe Bool)
, _gcmvomLabels :: !(Maybe GoogleCloudMlV1__OperationMetadataLabels)
, _gcmvomOperationType :: !(Maybe GoogleCloudMlV1__OperationMetadataOperationType)
, _gcmvomCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__OperationMetadata
:: GoogleCloudMlV1__OperationMetadata
googleCloudMlV1__OperationMetadata =
GoogleCloudMlV1__OperationMetadata'
{ _gcmvomStartTime = Nothing
, _gcmvomModelName = Nothing
, _gcmvomProjectNumber = Nothing
, _gcmvomVersion = Nothing
, _gcmvomEndTime = Nothing
, _gcmvomIsCancellationRequested = Nothing
, _gcmvomLabels = Nothing
, _gcmvomOperationType = Nothing
, _gcmvomCreateTime = Nothing
}
gcmvomStartTime :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe UTCTime)
gcmvomStartTime
= lens _gcmvomStartTime
(\ s a -> s{_gcmvomStartTime = a})
. mapping _DateTime
gcmvomModelName :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe Text)
gcmvomModelName
= lens _gcmvomModelName
(\ s a -> s{_gcmvomModelName = a})
gcmvomProjectNumber :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe Int64)
gcmvomProjectNumber
= lens _gcmvomProjectNumber
(\ s a -> s{_gcmvomProjectNumber = a})
. mapping _Coerce
gcmvomVersion :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe GoogleCloudMlV1__Version)
gcmvomVersion
= lens _gcmvomVersion
(\ s a -> s{_gcmvomVersion = a})
gcmvomEndTime :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe UTCTime)
gcmvomEndTime
= lens _gcmvomEndTime
(\ s a -> s{_gcmvomEndTime = a})
. mapping _DateTime
gcmvomIsCancellationRequested :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe Bool)
gcmvomIsCancellationRequested
= lens _gcmvomIsCancellationRequested
(\ s a -> s{_gcmvomIsCancellationRequested = a})
gcmvomLabels :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe GoogleCloudMlV1__OperationMetadataLabels)
gcmvomLabels
= lens _gcmvomLabels (\ s a -> s{_gcmvomLabels = a})
gcmvomOperationType :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe GoogleCloudMlV1__OperationMetadataOperationType)
gcmvomOperationType
= lens _gcmvomOperationType
(\ s a -> s{_gcmvomOperationType = a})
gcmvomCreateTime :: Lens' GoogleCloudMlV1__OperationMetadata (Maybe UTCTime)
gcmvomCreateTime
= lens _gcmvomCreateTime
(\ s a -> s{_gcmvomCreateTime = a})
. mapping _DateTime
instance FromJSON GoogleCloudMlV1__OperationMetadata
where
parseJSON
= withObject "GoogleCloudMlV1OperationMetadata"
(\ o ->
GoogleCloudMlV1__OperationMetadata' <$>
(o .:? "startTime") <*> (o .:? "modelName") <*>
(o .:? "projectNumber")
<*> (o .:? "version")
<*> (o .:? "endTime")
<*> (o .:? "isCancellationRequested")
<*> (o .:? "labels")
<*> (o .:? "operationType")
<*> (o .:? "createTime"))
instance ToJSON GoogleCloudMlV1__OperationMetadata
where
toJSON GoogleCloudMlV1__OperationMetadata'{..}
= object
(catMaybes
[("startTime" .=) <$> _gcmvomStartTime,
("modelName" .=) <$> _gcmvomModelName,
("projectNumber" .=) <$> _gcmvomProjectNumber,
("version" .=) <$> _gcmvomVersion,
("endTime" .=) <$> _gcmvomEndTime,
("isCancellationRequested" .=) <$>
_gcmvomIsCancellationRequested,
("labels" .=) <$> _gcmvomLabels,
("operationType" .=) <$> _gcmvomOperationType,
("createTime" .=) <$> _gcmvomCreateTime])
newtype GoogleAPI__HTTPBodyExtensionsItem =
GoogleAPI__HTTPBodyExtensionsItem'
{ _gahttpbeiAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleAPI__HTTPBodyExtensionsItem
:: HashMap Text JSONValue
-> GoogleAPI__HTTPBodyExtensionsItem
googleAPI__HTTPBodyExtensionsItem pGahttpbeiAddtional_ =
GoogleAPI__HTTPBodyExtensionsItem'
{_gahttpbeiAddtional = _Coerce # pGahttpbeiAddtional_}
gahttpbeiAddtional :: Lens' GoogleAPI__HTTPBodyExtensionsItem (HashMap Text JSONValue)
gahttpbeiAddtional
= lens _gahttpbeiAddtional
(\ s a -> s{_gahttpbeiAddtional = a})
. _Coerce
instance FromJSON GoogleAPI__HTTPBodyExtensionsItem
where
parseJSON
= withObject "GoogleAPIHTTPBodyExtensionsItem"
(\ o ->
GoogleAPI__HTTPBodyExtensionsItem' <$>
(parseJSONObject o))
instance ToJSON GoogleAPI__HTTPBodyExtensionsItem
where
toJSON = toJSON . _gahttpbeiAddtional
data GoogleCloudMlV1__CancelJobRequest =
GoogleCloudMlV1__CancelJobRequest'
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__CancelJobRequest
:: GoogleCloudMlV1__CancelJobRequest
googleCloudMlV1__CancelJobRequest = GoogleCloudMlV1__CancelJobRequest'
instance FromJSON GoogleCloudMlV1__CancelJobRequest
where
parseJSON
= withObject "GoogleCloudMlV1CancelJobRequest"
(\ o -> pure GoogleCloudMlV1__CancelJobRequest')
instance ToJSON GoogleCloudMlV1__CancelJobRequest
where
toJSON = const emptyObject
data GoogleCloudMlV1__TrainingOutput =
GoogleCloudMlV1__TrainingOutput'
{ _gcmvtoIsHyperparameterTuningJob :: !(Maybe Bool)
, _gcmvtoIsBuiltInAlgorithmJob :: !(Maybe Bool)
, _gcmvtoCompletedTrialCount :: !(Maybe (Textual Int64))
, _gcmvtoConsumedMLUnits :: !(Maybe (Textual Double))
, _gcmvtoBuiltInAlgorithmOutput :: !(Maybe GoogleCloudMlV1__BuiltInAlgorithmOutput)
, _gcmvtoTrials :: !(Maybe [GoogleCloudMlV1__HyperparameterOutput])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__TrainingOutput
:: GoogleCloudMlV1__TrainingOutput
googleCloudMlV1__TrainingOutput =
GoogleCloudMlV1__TrainingOutput'
{ _gcmvtoIsHyperparameterTuningJob = Nothing
, _gcmvtoIsBuiltInAlgorithmJob = Nothing
, _gcmvtoCompletedTrialCount = Nothing
, _gcmvtoConsumedMLUnits = Nothing
, _gcmvtoBuiltInAlgorithmOutput = Nothing
, _gcmvtoTrials = Nothing
}
gcmvtoIsHyperparameterTuningJob :: Lens' GoogleCloudMlV1__TrainingOutput (Maybe Bool)
gcmvtoIsHyperparameterTuningJob
= lens _gcmvtoIsHyperparameterTuningJob
(\ s a -> s{_gcmvtoIsHyperparameterTuningJob = a})
gcmvtoIsBuiltInAlgorithmJob :: Lens' GoogleCloudMlV1__TrainingOutput (Maybe Bool)
gcmvtoIsBuiltInAlgorithmJob
= lens _gcmvtoIsBuiltInAlgorithmJob
(\ s a -> s{_gcmvtoIsBuiltInAlgorithmJob = a})
gcmvtoCompletedTrialCount :: Lens' GoogleCloudMlV1__TrainingOutput (Maybe Int64)
gcmvtoCompletedTrialCount
= lens _gcmvtoCompletedTrialCount
(\ s a -> s{_gcmvtoCompletedTrialCount = a})
. mapping _Coerce
gcmvtoConsumedMLUnits :: Lens' GoogleCloudMlV1__TrainingOutput (Maybe Double)
gcmvtoConsumedMLUnits
= lens _gcmvtoConsumedMLUnits
(\ s a -> s{_gcmvtoConsumedMLUnits = a})
. mapping _Coerce
gcmvtoBuiltInAlgorithmOutput :: Lens' GoogleCloudMlV1__TrainingOutput (Maybe GoogleCloudMlV1__BuiltInAlgorithmOutput)
gcmvtoBuiltInAlgorithmOutput
= lens _gcmvtoBuiltInAlgorithmOutput
(\ s a -> s{_gcmvtoBuiltInAlgorithmOutput = a})
gcmvtoTrials :: Lens' GoogleCloudMlV1__TrainingOutput [GoogleCloudMlV1__HyperparameterOutput]
gcmvtoTrials
= lens _gcmvtoTrials (\ s a -> s{_gcmvtoTrials = a})
. _Default
. _Coerce
instance FromJSON GoogleCloudMlV1__TrainingOutput
where
parseJSON
= withObject "GoogleCloudMlV1TrainingOutput"
(\ o ->
GoogleCloudMlV1__TrainingOutput' <$>
(o .:? "isHyperparameterTuningJob") <*>
(o .:? "isBuiltInAlgorithmJob")
<*> (o .:? "completedTrialCount")
<*> (o .:? "consumedMLUnits")
<*> (o .:? "builtInAlgorithmOutput")
<*> (o .:? "trials" .!= mempty))
instance ToJSON GoogleCloudMlV1__TrainingOutput where
toJSON GoogleCloudMlV1__TrainingOutput'{..}
= object
(catMaybes
[("isHyperparameterTuningJob" .=) <$>
_gcmvtoIsHyperparameterTuningJob,
("isBuiltInAlgorithmJob" .=) <$>
_gcmvtoIsBuiltInAlgorithmJob,
("completedTrialCount" .=) <$>
_gcmvtoCompletedTrialCount,
("consumedMLUnits" .=) <$> _gcmvtoConsumedMLUnits,
("builtInAlgorithmOutput" .=) <$>
_gcmvtoBuiltInAlgorithmOutput,
("trials" .=) <$> _gcmvtoTrials])
data GoogleAPI__HTTPBody =
GoogleAPI__HTTPBody'
{ _gahttpbExtensions :: !(Maybe [GoogleAPI__HTTPBodyExtensionsItem])
, _gahttpbData :: !(Maybe Bytes)
, _gahttpbContentType :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleAPI__HTTPBody
:: GoogleAPI__HTTPBody
googleAPI__HTTPBody =
GoogleAPI__HTTPBody'
{ _gahttpbExtensions = Nothing
, _gahttpbData = Nothing
, _gahttpbContentType = Nothing
}
gahttpbExtensions :: Lens' GoogleAPI__HTTPBody [GoogleAPI__HTTPBodyExtensionsItem]
gahttpbExtensions
= lens _gahttpbExtensions
(\ s a -> s{_gahttpbExtensions = a})
. _Default
. _Coerce
gahttpbData :: Lens' GoogleAPI__HTTPBody (Maybe ByteString)
gahttpbData
= lens _gahttpbData (\ s a -> s{_gahttpbData = a}) .
mapping _Bytes
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 .:? "extensions" .!= mempty) <*> (o .:? "data")
<*> (o .:? "contentType"))
instance ToJSON GoogleAPI__HTTPBody where
toJSON GoogleAPI__HTTPBody'{..}
= object
(catMaybes
[("extensions" .=) <$> _gahttpbExtensions,
("data" .=) <$> _gahttpbData,
("contentType" .=) <$> _gahttpbContentType])
newtype GoogleIAMV1__TestIAMPermissionsRequest =
GoogleIAMV1__TestIAMPermissionsRequest'
{ _giamvtiamprPermissions :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleIAMV1__TestIAMPermissionsRequest
:: GoogleIAMV1__TestIAMPermissionsRequest
googleIAMV1__TestIAMPermissionsRequest =
GoogleIAMV1__TestIAMPermissionsRequest' {_giamvtiamprPermissions = Nothing}
giamvtiamprPermissions :: Lens' GoogleIAMV1__TestIAMPermissionsRequest [Text]
giamvtiamprPermissions
= lens _giamvtiamprPermissions
(\ s a -> s{_giamvtiamprPermissions = a})
. _Default
. _Coerce
instance FromJSON
GoogleIAMV1__TestIAMPermissionsRequest
where
parseJSON
= withObject "GoogleIAMV1TestIAMPermissionsRequest"
(\ o ->
GoogleIAMV1__TestIAMPermissionsRequest' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON
GoogleIAMV1__TestIAMPermissionsRequest
where
toJSON GoogleIAMV1__TestIAMPermissionsRequest'{..}
= object
(catMaybes
[("permissions" .=) <$> _giamvtiamprPermissions])
data GoogleCloudMlV1__ListLocationsResponse =
GoogleCloudMlV1__ListLocationsResponse'
{ _gcmvllrNextPageToken :: !(Maybe Text)
, _gcmvllrLocations :: !(Maybe [GoogleCloudMlV1__Location])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__ListLocationsResponse
:: GoogleCloudMlV1__ListLocationsResponse
googleCloudMlV1__ListLocationsResponse =
GoogleCloudMlV1__ListLocationsResponse'
{_gcmvllrNextPageToken = Nothing, _gcmvllrLocations = Nothing}
gcmvllrNextPageToken :: Lens' GoogleCloudMlV1__ListLocationsResponse (Maybe Text)
gcmvllrNextPageToken
= lens _gcmvllrNextPageToken
(\ s a -> s{_gcmvllrNextPageToken = a})
gcmvllrLocations :: Lens' GoogleCloudMlV1__ListLocationsResponse [GoogleCloudMlV1__Location]
gcmvllrLocations
= lens _gcmvllrLocations
(\ s a -> s{_gcmvllrLocations = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudMlV1__ListLocationsResponse
where
parseJSON
= withObject "GoogleCloudMlV1ListLocationsResponse"
(\ o ->
GoogleCloudMlV1__ListLocationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "locations" .!= mempty))
instance ToJSON
GoogleCloudMlV1__ListLocationsResponse
where
toJSON GoogleCloudMlV1__ListLocationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcmvllrNextPageToken,
("locations" .=) <$> _gcmvllrLocations])
newtype GoogleCloudMlV1__VersionLabels =
GoogleCloudMlV1__VersionLabels'
{ _gcmvvlAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudMlV1__VersionLabels
:: HashMap Text Text
-> GoogleCloudMlV1__VersionLabels
googleCloudMlV1__VersionLabels pGcmvvlAddtional_ =
GoogleCloudMlV1__VersionLabels'
{_gcmvvlAddtional = _Coerce # pGcmvvlAddtional_}
gcmvvlAddtional :: Lens' GoogleCloudMlV1__VersionLabels (HashMap Text Text)
gcmvvlAddtional
= lens _gcmvvlAddtional
(\ s a -> s{_gcmvvlAddtional = a})
. _Coerce
instance FromJSON GoogleCloudMlV1__VersionLabels
where
parseJSON
= withObject "GoogleCloudMlV1VersionLabels"
(\ o ->
GoogleCloudMlV1__VersionLabels' <$>
(parseJSONObject o))
instance ToJSON GoogleCloudMlV1__VersionLabels where
toJSON = toJSON . _gcmvvlAddtional