diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## Description diff --git a/amazonka-ml.cabal b/amazonka-ml.cabal --- a/amazonka-ml.cabal +++ b/amazonka-ml.cabal @@ -1,5 +1,5 @@ name: amazonka-ml -version: 1.1.0 +version: 1.2.0 synopsis: Amazon Machine Learning SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -74,7 +74,7 @@ , Network.AWS.MachineLearning.Types.Sum build-depends: - amazonka-core == 1.1.0.* + amazonka-core == 1.2.0.* , base >= 4.7 && < 5 test-suite amazonka-ml-test @@ -93,9 +93,9 @@ , Test.AWS.MachineLearning.Internal build-depends: - amazonka-core == 1.1.0 - , amazonka-test == 1.1.0 - , amazonka-ml == 1.1.0 + amazonka-core == 1.2.0 + , amazonka-test == 1.2.0 + , amazonka-ml == 1.2.0 , base , bytestring , lens diff --git a/gen/Network/AWS/MachineLearning.hs b/gen/Network/AWS/MachineLearning.hs --- a/gen/Network/AWS/MachineLearning.hs +++ b/gen/Network/AWS/MachineLearning.hs @@ -16,8 +16,8 @@ -- /See:/ module Network.AWS.MachineLearning ( - -- * Service - MachineLearning + -- * Service Configuration + machineLearning -- * Errors -- $errors diff --git a/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs b/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs @@ -129,10 +129,9 @@ cbpOutputURI = lens _cbpOutputURI (\ s a -> s{_cbpOutputURI = a}); instance AWSRequest CreateBatchPrediction where - type Sv CreateBatchPrediction = MachineLearning type Rs CreateBatchPrediction = CreateBatchPredictionResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -152,12 +151,15 @@ instance ToJSON CreateBatchPrediction where toJSON CreateBatchPrediction'{..} = object - ["BatchPredictionName" .= _cbpBatchPredictionName, - "BatchPredictionId" .= _cbpBatchPredictionId, - "MLModelId" .= _cbpMLModelId, - "BatchPredictionDataSourceId" .= - _cbpBatchPredictionDataSourceId, - "OutputUri" .= _cbpOutputURI] + (catMaybes + [("BatchPredictionName" .=) <$> + _cbpBatchPredictionName, + Just ("BatchPredictionId" .= _cbpBatchPredictionId), + Just ("MLModelId" .= _cbpMLModelId), + Just + ("BatchPredictionDataSourceId" .= + _cbpBatchPredictionDataSourceId), + Just ("OutputUri" .= _cbpOutputURI)]) instance ToPath CreateBatchPrediction where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs @@ -173,10 +173,9 @@ cdsfrdsRoleARN = lens _cdsfrdsRoleARN (\ s a -> s{_cdsfrdsRoleARN = a}); instance AWSRequest CreateDataSourceFromRDS where - type Sv CreateDataSourceFromRDS = MachineLearning type Rs CreateDataSourceFromRDS = CreateDataSourceFromRDSResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -196,11 +195,13 @@ instance ToJSON CreateDataSourceFromRDS where toJSON CreateDataSourceFromRDS'{..} = object - ["DataSourceName" .= _cdsfrdsDataSourceName, - "ComputeStatistics" .= _cdsfrdsComputeStatistics, - "DataSourceId" .= _cdsfrdsDataSourceId, - "RDSData" .= _cdsfrdsRDSData, - "RoleARN" .= _cdsfrdsRoleARN] + (catMaybes + [("DataSourceName" .=) <$> _cdsfrdsDataSourceName, + ("ComputeStatistics" .=) <$> + _cdsfrdsComputeStatistics, + Just ("DataSourceId" .= _cdsfrdsDataSourceId), + Just ("RDSData" .= _cdsfrdsRDSData), + Just ("RoleARN" .= _cdsfrdsRoleARN)]) instance ToPath CreateDataSourceFromRDS where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs @@ -179,11 +179,9 @@ instance AWSRequest CreateDataSourceFromRedshift where - type Sv CreateDataSourceFromRedshift = - MachineLearning type Rs CreateDataSourceFromRedshift = CreateDataSourceFromRedshiftResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -203,11 +201,12 @@ instance ToJSON CreateDataSourceFromRedshift where toJSON CreateDataSourceFromRedshift'{..} = object - ["DataSourceName" .= _cdsfrDataSourceName, - "ComputeStatistics" .= _cdsfrComputeStatistics, - "DataSourceId" .= _cdsfrDataSourceId, - "DataSpec" .= _cdsfrDataSpec, - "RoleARN" .= _cdsfrRoleARN] + (catMaybes + [("DataSourceName" .=) <$> _cdsfrDataSourceName, + ("ComputeStatistics" .=) <$> _cdsfrComputeStatistics, + Just ("DataSourceId" .= _cdsfrDataSourceId), + Just ("DataSpec" .= _cdsfrDataSpec), + Just ("RoleARN" .= _cdsfrRoleARN)]) instance ToPath CreateDataSourceFromRedshift where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs @@ -146,10 +146,9 @@ cdsfsDataSpec = lens _cdsfsDataSpec (\ s a -> s{_cdsfsDataSpec = a}); instance AWSRequest CreateDataSourceFromS where - type Sv CreateDataSourceFromS = MachineLearning type Rs CreateDataSourceFromS = CreateDataSourceFromSResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -169,10 +168,11 @@ instance ToJSON CreateDataSourceFromS where toJSON CreateDataSourceFromS'{..} = object - ["DataSourceName" .= _cdsfsDataSourceName, - "ComputeStatistics" .= _cdsfsComputeStatistics, - "DataSourceId" .= _cdsfsDataSourceId, - "DataSpec" .= _cdsfsDataSpec] + (catMaybes + [("DataSourceName" .=) <$> _cdsfsDataSourceName, + ("ComputeStatistics" .=) <$> _cdsfsComputeStatistics, + Just ("DataSourceId" .= _cdsfsDataSourceId), + Just ("DataSpec" .= _cdsfsDataSpec)]) instance ToPath CreateDataSourceFromS where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/CreateEvaluation.hs b/gen/Network/AWS/MachineLearning/CreateEvaluation.hs --- a/gen/Network/AWS/MachineLearning/CreateEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/CreateEvaluation.hs @@ -116,9 +116,8 @@ ceEvaluationDataSourceId = lens _ceEvaluationDataSourceId (\ s a -> s{_ceEvaluationDataSourceId = a}); instance AWSRequest CreateEvaluation where - type Sv CreateEvaluation = MachineLearning type Rs CreateEvaluation = CreateEvaluationResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -137,11 +136,13 @@ instance ToJSON CreateEvaluation where toJSON CreateEvaluation'{..} = object - ["EvaluationName" .= _ceEvaluationName, - "EvaluationId" .= _ceEvaluationId, - "MLModelId" .= _ceMLModelId, - "EvaluationDataSourceId" .= - _ceEvaluationDataSourceId] + (catMaybes + [("EvaluationName" .=) <$> _ceEvaluationName, + Just ("EvaluationId" .= _ceEvaluationId), + Just ("MLModelId" .= _ceMLModelId), + Just + ("EvaluationDataSourceId" .= + _ceEvaluationDataSourceId)]) instance ToPath CreateEvaluation where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/CreateMLModel.hs b/gen/Network/AWS/MachineLearning/CreateMLModel.hs --- a/gen/Network/AWS/MachineLearning/CreateMLModel.hs +++ b/gen/Network/AWS/MachineLearning/CreateMLModel.hs @@ -190,9 +190,8 @@ cmlmTrainingDataSourceId = lens _cmlmTrainingDataSourceId (\ s a -> s{_cmlmTrainingDataSourceId = a}); instance AWSRequest CreateMLModel where - type Sv CreateMLModel = MachineLearning type Rs CreateMLModel = CreateMLModelResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -211,13 +210,16 @@ instance ToJSON CreateMLModel where toJSON CreateMLModel'{..} = object - ["Recipe" .= _cmlmRecipe, - "RecipeUri" .= _cmlmRecipeURI, - "MLModelName" .= _cmlmMLModelName, - "Parameters" .= _cmlmParameters, - "MLModelId" .= _cmlmMLModelId, - "MLModelType" .= _cmlmMLModelType, - "TrainingDataSourceId" .= _cmlmTrainingDataSourceId] + (catMaybes + [("Recipe" .=) <$> _cmlmRecipe, + ("RecipeUri" .=) <$> _cmlmRecipeURI, + ("MLModelName" .=) <$> _cmlmMLModelName, + ("Parameters" .=) <$> _cmlmParameters, + Just ("MLModelId" .= _cmlmMLModelId), + Just ("MLModelType" .= _cmlmMLModelType), + Just + ("TrainingDataSourceId" .= + _cmlmTrainingDataSourceId)]) instance ToPath CreateMLModel where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs b/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs --- a/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs +++ b/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs @@ -69,10 +69,9 @@ creMLModelId = lens _creMLModelId (\ s a -> s{_creMLModelId = a}); instance AWSRequest CreateRealtimeEndpoint where - type Sv CreateRealtimeEndpoint = MachineLearning type Rs CreateRealtimeEndpoint = CreateRealtimeEndpointResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -93,7 +92,8 @@ instance ToJSON CreateRealtimeEndpoint where toJSON CreateRealtimeEndpoint'{..} - = object ["MLModelId" .= _creMLModelId] + = object + (catMaybes [Just ("MLModelId" .= _creMLModelId)]) instance ToPath CreateRealtimeEndpoint where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs b/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs @@ -75,10 +75,9 @@ dbpBatchPredictionId = lens _dbpBatchPredictionId (\ s a -> s{_dbpBatchPredictionId = a}); instance AWSRequest DeleteBatchPrediction where - type Sv DeleteBatchPrediction = MachineLearning type Rs DeleteBatchPrediction = DeleteBatchPredictionResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -98,7 +97,9 @@ instance ToJSON DeleteBatchPrediction where toJSON DeleteBatchPrediction'{..} = object - ["BatchPredictionId" .= _dbpBatchPredictionId] + (catMaybes + [Just + ("BatchPredictionId" .= _dbpBatchPredictionId)]) instance ToPath DeleteBatchPrediction where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DeleteDataSource.hs b/gen/Network/AWS/MachineLearning/DeleteDataSource.hs --- a/gen/Network/AWS/MachineLearning/DeleteDataSource.hs +++ b/gen/Network/AWS/MachineLearning/DeleteDataSource.hs @@ -74,9 +74,8 @@ ddsDataSourceId = lens _ddsDataSourceId (\ s a -> s{_ddsDataSourceId = a}); instance AWSRequest DeleteDataSource where - type Sv DeleteDataSource = MachineLearning type Rs DeleteDataSource = DeleteDataSourceResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -94,7 +93,9 @@ instance ToJSON DeleteDataSource where toJSON DeleteDataSource'{..} - = object ["DataSourceId" .= _ddsDataSourceId] + = object + (catMaybes + [Just ("DataSourceId" .= _ddsDataSourceId)]) instance ToPath DeleteDataSource where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs b/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs --- a/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs @@ -74,9 +74,8 @@ deEvaluationId = lens _deEvaluationId (\ s a -> s{_deEvaluationId = a}); instance AWSRequest DeleteEvaluation where - type Sv DeleteEvaluation = MachineLearning type Rs DeleteEvaluation = DeleteEvaluationResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -94,7 +93,9 @@ instance ToJSON DeleteEvaluation where toJSON DeleteEvaluation'{..} - = object ["EvaluationId" .= _deEvaluationId] + = object + (catMaybes + [Just ("EvaluationId" .= _deEvaluationId)]) instance ToPath DeleteEvaluation where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DeleteMLModel.hs b/gen/Network/AWS/MachineLearning/DeleteMLModel.hs --- a/gen/Network/AWS/MachineLearning/DeleteMLModel.hs +++ b/gen/Network/AWS/MachineLearning/DeleteMLModel.hs @@ -73,9 +73,8 @@ dmlmMLModelId = lens _dmlmMLModelId (\ s a -> s{_dmlmMLModelId = a}); instance AWSRequest DeleteMLModel where - type Sv DeleteMLModel = MachineLearning type Rs DeleteMLModel = DeleteMLModelResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -93,7 +92,8 @@ instance ToJSON DeleteMLModel where toJSON DeleteMLModel'{..} - = object ["MLModelId" .= _dmlmMLModelId] + = object + (catMaybes [Just ("MLModelId" .= _dmlmMLModelId)]) instance ToPath DeleteMLModel where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs b/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs --- a/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs +++ b/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs @@ -67,10 +67,9 @@ dreMLModelId = lens _dreMLModelId (\ s a -> s{_dreMLModelId = a}); instance AWSRequest DeleteRealtimeEndpoint where - type Sv DeleteRealtimeEndpoint = MachineLearning type Rs DeleteRealtimeEndpoint = DeleteRealtimeEndpointResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -91,7 +90,8 @@ instance ToJSON DeleteRealtimeEndpoint where toJSON DeleteRealtimeEndpoint'{..} - = object ["MLModelId" .= _dreMLModelId] + = object + (catMaybes [Just ("MLModelId" .= _dreMLModelId)]) instance ToPath DeleteRealtimeEndpoint where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs b/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs --- a/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs +++ b/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs @@ -214,10 +214,9 @@ Just $ rq & dbpNextToken .~ rs ^. drsNextToken instance AWSRequest DescribeBatchPredictions where - type Sv DescribeBatchPredictions = MachineLearning type Rs DescribeBatchPredictions = DescribeBatchPredictionsResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -238,13 +237,15 @@ instance ToJSON DescribeBatchPredictions where toJSON DescribeBatchPredictions'{..} = object - ["EQ" .= _dbpEQ, "GE" .= _dbpGE, - "Prefix" .= _dbpPrefix, "GT" .= _dbpGT, - "NE" .= _dbpNE, "NextToken" .= _dbpNextToken, - "SortOrder" .= _dbpSortOrder, "Limit" .= _dbpLimit, - "LT" .= _dbpLT, - "FilterVariable" .= _dbpFilterVariable, - "LE" .= _dbpLE] + (catMaybes + [("EQ" .=) <$> _dbpEQ, ("GE" .=) <$> _dbpGE, + ("Prefix" .=) <$> _dbpPrefix, ("GT" .=) <$> _dbpGT, + ("NE" .=) <$> _dbpNE, + ("NextToken" .=) <$> _dbpNextToken, + ("SortOrder" .=) <$> _dbpSortOrder, + ("Limit" .=) <$> _dbpLimit, ("LT" .=) <$> _dbpLT, + ("FilterVariable" .=) <$> _dbpFilterVariable, + ("LE" .=) <$> _dbpLE]) instance ToPath DescribeBatchPredictions where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DescribeDataSources.hs b/gen/Network/AWS/MachineLearning/DescribeDataSources.hs --- a/gen/Network/AWS/MachineLearning/DescribeDataSources.hs +++ b/gen/Network/AWS/MachineLearning/DescribeDataSources.hs @@ -208,10 +208,9 @@ Just $ rq & ddsNextToken .~ rs ^. ddssrsNextToken instance AWSRequest DescribeDataSources where - type Sv DescribeDataSources = MachineLearning type Rs DescribeDataSources = DescribeDataSourcesResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -232,13 +231,15 @@ instance ToJSON DescribeDataSources where toJSON DescribeDataSources'{..} = object - ["EQ" .= _ddsEQ, "GE" .= _ddsGE, - "Prefix" .= _ddsPrefix, "GT" .= _ddsGT, - "NE" .= _ddsNE, "NextToken" .= _ddsNextToken, - "SortOrder" .= _ddsSortOrder, "Limit" .= _ddsLimit, - "LT" .= _ddsLT, - "FilterVariable" .= _ddsFilterVariable, - "LE" .= _ddsLE] + (catMaybes + [("EQ" .=) <$> _ddsEQ, ("GE" .=) <$> _ddsGE, + ("Prefix" .=) <$> _ddsPrefix, ("GT" .=) <$> _ddsGT, + ("NE" .=) <$> _ddsNE, + ("NextToken" .=) <$> _ddsNextToken, + ("SortOrder" .=) <$> _ddsSortOrder, + ("Limit" .=) <$> _ddsLimit, ("LT" .=) <$> _ddsLT, + ("FilterVariable" .=) <$> _ddsFilterVariable, + ("LE" .=) <$> _ddsLE]) instance ToPath DescribeDataSources where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs b/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs --- a/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs +++ b/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs @@ -213,10 +213,9 @@ Just $ rq & deNextToken .~ rs ^. desrsNextToken instance AWSRequest DescribeEvaluations where - type Sv DescribeEvaluations = MachineLearning type Rs DescribeEvaluations = DescribeEvaluationsResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -237,12 +236,15 @@ instance ToJSON DescribeEvaluations where toJSON DescribeEvaluations'{..} = object - ["EQ" .= _deEQ, "GE" .= _deGE, "Prefix" .= _dePrefix, - "GT" .= _deGT, "NE" .= _deNE, - "NextToken" .= _deNextToken, - "SortOrder" .= _deSortOrder, "Limit" .= _deLimit, - "LT" .= _deLT, "FilterVariable" .= _deFilterVariable, - "LE" .= _deLE] + (catMaybes + [("EQ" .=) <$> _deEQ, ("GE" .=) <$> _deGE, + ("Prefix" .=) <$> _dePrefix, ("GT" .=) <$> _deGT, + ("NE" .=) <$> _deNE, + ("NextToken" .=) <$> _deNextToken, + ("SortOrder" .=) <$> _deSortOrder, + ("Limit" .=) <$> _deLimit, ("LT" .=) <$> _deLT, + ("FilterVariable" .=) <$> _deFilterVariable, + ("LE" .=) <$> _deLE]) instance ToPath DescribeEvaluations where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/DescribeMLModels.hs b/gen/Network/AWS/MachineLearning/DescribeMLModels.hs --- a/gen/Network/AWS/MachineLearning/DescribeMLModels.hs +++ b/gen/Network/AWS/MachineLearning/DescribeMLModels.hs @@ -214,9 +214,8 @@ Just $ rq & dmlmNextToken .~ rs ^. dmlmsrsNextToken instance AWSRequest DescribeMLModels where - type Sv DescribeMLModels = MachineLearning type Rs DescribeMLModels = DescribeMLModelsResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -236,13 +235,15 @@ instance ToJSON DescribeMLModels where toJSON DescribeMLModels'{..} = object - ["EQ" .= _dmlmEQ, "GE" .= _dmlmGE, - "Prefix" .= _dmlmPrefix, "GT" .= _dmlmGT, - "NE" .= _dmlmNE, "NextToken" .= _dmlmNextToken, - "SortOrder" .= _dmlmSortOrder, "Limit" .= _dmlmLimit, - "LT" .= _dmlmLT, - "FilterVariable" .= _dmlmFilterVariable, - "LE" .= _dmlmLE] + (catMaybes + [("EQ" .=) <$> _dmlmEQ, ("GE" .=) <$> _dmlmGE, + ("Prefix" .=) <$> _dmlmPrefix, ("GT" .=) <$> _dmlmGT, + ("NE" .=) <$> _dmlmNE, + ("NextToken" .=) <$> _dmlmNextToken, + ("SortOrder" .=) <$> _dmlmSortOrder, + ("Limit" .=) <$> _dmlmLimit, ("LT" .=) <$> _dmlmLT, + ("FilterVariable" .=) <$> _dmlmFilterVariable, + ("LE" .=) <$> _dmlmLE]) instance ToPath DescribeMLModels where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs b/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs @@ -77,10 +77,9 @@ gbpBatchPredictionId = lens _gbpBatchPredictionId (\ s a -> s{_gbpBatchPredictionId = a}); instance AWSRequest GetBatchPrediction where - type Sv GetBatchPrediction = MachineLearning type Rs GetBatchPrediction = GetBatchPredictionResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -110,7 +109,9 @@ instance ToJSON GetBatchPrediction where toJSON GetBatchPrediction'{..} = object - ["BatchPredictionId" .= _gbpBatchPredictionId] + (catMaybes + [Just + ("BatchPredictionId" .= _gbpBatchPredictionId)]) instance ToPath GetBatchPrediction where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/GetDataSource.hs b/gen/Network/AWS/MachineLearning/GetDataSource.hs --- a/gen/Network/AWS/MachineLearning/GetDataSource.hs +++ b/gen/Network/AWS/MachineLearning/GetDataSource.hs @@ -100,9 +100,8 @@ gdsDataSourceId = lens _gdsDataSourceId (\ s a -> s{_gdsDataSourceId = a}); instance AWSRequest GetDataSource where - type Sv GetDataSource = MachineLearning type Rs GetDataSource = GetDataSourceResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -136,8 +135,9 @@ instance ToJSON GetDataSource where toJSON GetDataSource'{..} = object - ["Verbose" .= _gdsVerbose, - "DataSourceId" .= _gdsDataSourceId] + (catMaybes + [("Verbose" .=) <$> _gdsVerbose, + Just ("DataSourceId" .= _gdsDataSourceId)]) instance ToPath GetDataSource where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/GetEvaluation.hs b/gen/Network/AWS/MachineLearning/GetEvaluation.hs --- a/gen/Network/AWS/MachineLearning/GetEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/GetEvaluation.hs @@ -79,9 +79,8 @@ geEvaluationId = lens _geEvaluationId (\ s a -> s{_geEvaluationId = a}); instance AWSRequest GetEvaluation where - type Sv GetEvaluation = MachineLearning type Rs GetEvaluation = GetEvaluationResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -110,7 +109,9 @@ instance ToJSON GetEvaluation where toJSON GetEvaluation'{..} - = object ["EvaluationId" .= _geEvaluationId] + = object + (catMaybes + [Just ("EvaluationId" .= _geEvaluationId)]) instance ToPath GetEvaluation where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/GetMLModel.hs b/gen/Network/AWS/MachineLearning/GetMLModel.hs --- a/gen/Network/AWS/MachineLearning/GetMLModel.hs +++ b/gen/Network/AWS/MachineLearning/GetMLModel.hs @@ -98,9 +98,8 @@ gmlmMLModelId = lens _gmlmMLModelId (\ s a -> s{_gmlmMLModelId = a}); instance AWSRequest GetMLModel where - type Sv GetMLModel = MachineLearning type Rs GetMLModel = GetMLModelResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -136,8 +135,9 @@ instance ToJSON GetMLModel where toJSON GetMLModel'{..} = object - ["Verbose" .= _gmlmVerbose, - "MLModelId" .= _gmlmMLModelId] + (catMaybes + [("Verbose" .=) <$> _gmlmVerbose, + Just ("MLModelId" .= _gmlmMLModelId)]) instance ToPath GetMLModel where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/Predict.hs b/gen/Network/AWS/MachineLearning/Predict.hs --- a/gen/Network/AWS/MachineLearning/Predict.hs +++ b/gen/Network/AWS/MachineLearning/Predict.hs @@ -91,9 +91,8 @@ pPredictEndpoint = lens _pPredictEndpoint (\ s a -> s{_pPredictEndpoint = a}); instance AWSRequest Predict where - type Sv Predict = MachineLearning type Rs Predict = PredictResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -112,8 +111,10 @@ instance ToJSON Predict where toJSON Predict'{..} = object - ["MLModelId" .= _pMLModelId, "Record" .= _pRecord, - "PredictEndpoint" .= _pPredictEndpoint] + (catMaybes + [Just ("MLModelId" .= _pMLModelId), + Just ("Record" .= _pRecord), + Just ("PredictEndpoint" .= _pPredictEndpoint)]) instance ToPath Predict where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/Types.hs b/gen/Network/AWS/MachineLearning/Types.hs --- a/gen/Network/AWS/MachineLearning/Types.hs +++ b/gen/Network/AWS/MachineLearning/Types.hs @@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TypeFamilies #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.MachineLearning.Types ( - -- * Service - MachineLearning + -- * Service Configuration + machineLearning -- * Errors , _InternalServerException @@ -225,39 +224,36 @@ import Network.AWS.Prelude import Network.AWS.Sign.V4 --- | Version @2014-12-12@ of the Amazon Machine Learning SDK. -data MachineLearning - -instance AWSService MachineLearning where - type Sg MachineLearning = V4 - service = const svc - where - svc = - Service - { _svcAbbrev = "MachineLearning" - , _svcPrefix = "machinelearning" - , _svcVersion = "2014-12-12" - , _svcEndpoint = defaultEndpoint svc - , _svcTimeout = Just 70 - , _svcStatus = statusSuccess - , _svcError = parseJSONError - , _svcRetry = retry - } - retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } - check e - | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" - | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" - | has (hasStatus 503) e = Just "service_unavailable" - | has (hasStatus 500) e = Just "general_server_error" - | has (hasStatus 509) e = Just "limit_exceeded" - | otherwise = Nothing +-- | API version '2014-12-12' of the Amazon Machine Learning SDK configuration. +machineLearning :: Service +machineLearning = + Service + { _svcAbbrev = "MachineLearning" + , _svcSigner = v4 + , _svcPrefix = "machinelearning" + , _svcVersion = "2014-12-12" + , _svcEndpoint = defaultEndpoint machineLearning + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseJSONError + , _svcRetry = retry + } + where + retry = + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } + check e + | has (hasCode "ThrottlingException" . hasStatus 400) e = + Just "throttling_exception" + | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" + | has (hasStatus 503) e = Just "service_unavailable" + | has (hasStatus 500) e = Just "general_server_error" + | has (hasStatus 509) e = Just "limit_exceeded" + | otherwise = Nothing -- | An error on the server occurred when trying to process a request. _InternalServerException :: AsError a => Getting (First ServiceError) a ServiceError diff --git a/gen/Network/AWS/MachineLearning/Types/Product.hs b/gen/Network/AWS/MachineLearning/Types/Product.hs --- a/gen/Network/AWS/MachineLearning/Types/Product.hs +++ b/gen/Network/AWS/MachineLearning/Types/Product.hs @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} @@ -975,17 +974,21 @@ instance ToJSON RDSDataSpec where toJSON RDSDataSpec'{..} = object - ["DataSchemaUri" .= _rdsdsDataSchemaURI, - "DataSchema" .= _rdsdsDataSchema, - "DataRearrangement" .= _rdsdsDataRearrangement, - "DatabaseInformation" .= _rdsdsDatabaseInformation, - "SelectSqlQuery" .= _rdsdsSelectSqlQuery, - "DatabaseCredentials" .= _rdsdsDatabaseCredentials, - "S3StagingLocation" .= _rdsdsS3StagingLocation, - "ResourceRole" .= _rdsdsResourceRole, - "ServiceRole" .= _rdsdsServiceRole, - "SubnetId" .= _rdsdsSubnetId, - "SecurityGroupIds" .= _rdsdsSecurityGroupIds] + (catMaybes + [("DataSchemaUri" .=) <$> _rdsdsDataSchemaURI, + ("DataSchema" .=) <$> _rdsdsDataSchema, + ("DataRearrangement" .=) <$> _rdsdsDataRearrangement, + Just + ("DatabaseInformation" .= _rdsdsDatabaseInformation), + Just ("SelectSqlQuery" .= _rdsdsSelectSqlQuery), + Just + ("DatabaseCredentials" .= _rdsdsDatabaseCredentials), + Just + ("S3StagingLocation" .= _rdsdsS3StagingLocation), + Just ("ResourceRole" .= _rdsdsResourceRole), + Just ("ServiceRole" .= _rdsdsServiceRole), + Just ("SubnetId" .= _rdsdsSubnetId), + Just ("SecurityGroupIds" .= _rdsdsSecurityGroupIds)]) -- | The database details of an Amazon RDS database. -- @@ -1031,8 +1034,10 @@ instance ToJSON RDSDatabase where toJSON RDSDatabase'{..} = object - ["InstanceIdentifier" .= _rdsdInstanceIdentifier, - "DatabaseName" .= _rdsdDatabaseName] + (catMaybes + [Just + ("InstanceIdentifier" .= _rdsdInstanceIdentifier), + Just ("DatabaseName" .= _rdsdDatabaseName)]) -- | The database credentials to connect to a database on an RDS DB instance. -- @@ -1070,8 +1075,9 @@ instance ToJSON RDSDatabaseCredentials where toJSON RDSDatabaseCredentials'{..} = object - ["Username" .= _rdsdcUsername, - "Password" .= _rdsdcPassword] + (catMaybes + [Just ("Username" .= _rdsdcUsername), + Just ("Password" .= _rdsdcPassword)]) -- | The datasource details that are specific to Amazon RDS. -- @@ -1309,13 +1315,16 @@ instance ToJSON RedshiftDataSpec where toJSON RedshiftDataSpec'{..} = object - ["DataSchemaUri" .= _rDataSchemaURI, - "DataSchema" .= _rDataSchema, - "DataRearrangement" .= _rDataRearrangement, - "DatabaseInformation" .= _rDatabaseInformation, - "SelectSqlQuery" .= _rSelectSqlQuery, - "DatabaseCredentials" .= _rDatabaseCredentials, - "S3StagingLocation" .= _rS3StagingLocation] + (catMaybes + [("DataSchemaUri" .=) <$> _rDataSchemaURI, + ("DataSchema" .=) <$> _rDataSchema, + ("DataRearrangement" .=) <$> _rDataRearrangement, + Just + ("DatabaseInformation" .= _rDatabaseInformation), + Just ("SelectSqlQuery" .= _rSelectSqlQuery), + Just + ("DatabaseCredentials" .= _rDatabaseCredentials), + Just ("S3StagingLocation" .= _rS3StagingLocation)]) -- | Describes the database details required to connect to an Amazon Redshift -- database. @@ -1361,8 +1370,9 @@ instance ToJSON RedshiftDatabase where toJSON RedshiftDatabase'{..} = object - ["DatabaseName" .= _rdDatabaseName, - "ClusterIdentifier" .= _rdClusterIdentifier] + (catMaybes + [Just ("DatabaseName" .= _rdDatabaseName), + Just ("ClusterIdentifier" .= _rdClusterIdentifier)]) -- | Describes the database credentials for connecting to a database on an -- Amazon Redshift cluster. @@ -1401,8 +1411,9 @@ instance ToJSON RedshiftDatabaseCredentials where toJSON RedshiftDatabaseCredentials'{..} = object - ["Username" .= _rdcUsername, - "Password" .= _rdcPassword] + (catMaybes + [Just ("Username" .= _rdcUsername), + Just ("Password" .= _rdcPassword)]) -- | Describes the 'DataSource' details specific to Amazon Redshift. -- @@ -1506,7 +1517,9 @@ instance ToJSON S3DataSpec where toJSON S3DataSpec'{..} = object - ["DataSchema" .= _sdsDataSchema, - "DataSchemaLocationS3" .= _sdsDataSchemaLocationS3, - "DataRearrangement" .= _sdsDataRearrangement, - "DataLocationS3" .= _sdsDataLocationS3] + (catMaybes + [("DataSchema" .=) <$> _sdsDataSchema, + ("DataSchemaLocationS3" .=) <$> + _sdsDataSchemaLocationS3, + ("DataRearrangement" .=) <$> _sdsDataRearrangement, + Just ("DataLocationS3" .= _sdsDataLocationS3)]) diff --git a/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs b/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs @@ -79,10 +79,9 @@ ubpBatchPredictionName = lens _ubpBatchPredictionName (\ s a -> s{_ubpBatchPredictionName = a}); instance AWSRequest UpdateBatchPrediction where - type Sv UpdateBatchPrediction = MachineLearning type Rs UpdateBatchPrediction = UpdateBatchPredictionResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -102,8 +101,10 @@ instance ToJSON UpdateBatchPrediction where toJSON UpdateBatchPrediction'{..} = object - ["BatchPredictionId" .= _ubpBatchPredictionId, - "BatchPredictionName" .= _ubpBatchPredictionName] + (catMaybes + [Just ("BatchPredictionId" .= _ubpBatchPredictionId), + Just + ("BatchPredictionName" .= _ubpBatchPredictionName)]) instance ToPath UpdateBatchPrediction where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/UpdateDataSource.hs b/gen/Network/AWS/MachineLearning/UpdateDataSource.hs --- a/gen/Network/AWS/MachineLearning/UpdateDataSource.hs +++ b/gen/Network/AWS/MachineLearning/UpdateDataSource.hs @@ -80,9 +80,8 @@ udsDataSourceName = lens _udsDataSourceName (\ s a -> s{_udsDataSourceName = a}); instance AWSRequest UpdateDataSource where - type Sv UpdateDataSource = MachineLearning type Rs UpdateDataSource = UpdateDataSourceResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -101,8 +100,9 @@ instance ToJSON UpdateDataSource where toJSON UpdateDataSource'{..} = object - ["DataSourceId" .= _udsDataSourceId, - "DataSourceName" .= _udsDataSourceName] + (catMaybes + [Just ("DataSourceId" .= _udsDataSourceId), + Just ("DataSourceName" .= _udsDataSourceName)]) instance ToPath UpdateDataSource where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs b/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs --- a/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs @@ -80,9 +80,8 @@ ueEvaluationName = lens _ueEvaluationName (\ s a -> s{_ueEvaluationName = a}); instance AWSRequest UpdateEvaluation where - type Sv UpdateEvaluation = MachineLearning type Rs UpdateEvaluation = UpdateEvaluationResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -101,8 +100,9 @@ instance ToJSON UpdateEvaluation where toJSON UpdateEvaluation'{..} = object - ["EvaluationId" .= _ueEvaluationId, - "EvaluationName" .= _ueEvaluationName] + (catMaybes + [Just ("EvaluationId" .= _ueEvaluationId), + Just ("EvaluationName" .= _ueEvaluationName)]) instance ToPath UpdateEvaluation where toPath = const "/" diff --git a/gen/Network/AWS/MachineLearning/UpdateMLModel.hs b/gen/Network/AWS/MachineLearning/UpdateMLModel.hs --- a/gen/Network/AWS/MachineLearning/UpdateMLModel.hs +++ b/gen/Network/AWS/MachineLearning/UpdateMLModel.hs @@ -93,9 +93,8 @@ umlmMLModelId = lens _umlmMLModelId (\ s a -> s{_umlmMLModelId = a}); instance AWSRequest UpdateMLModel where - type Sv UpdateMLModel = MachineLearning type Rs UpdateMLModel = UpdateMLModelResponse - request = postJSON + request = postJSON machineLearning response = receiveJSON (\ s h x -> @@ -114,9 +113,10 @@ instance ToJSON UpdateMLModel where toJSON UpdateMLModel'{..} = object - ["MLModelName" .= _umlmMLModelName, - "ScoreThreshold" .= _umlmScoreThreshold, - "MLModelId" .= _umlmMLModelId] + (catMaybes + [("MLModelName" .=) <$> _umlmMLModelName, + ("ScoreThreshold" .=) <$> _umlmScoreThreshold, + Just ("MLModelId" .= _umlmMLModelId)]) instance ToPath UpdateMLModel where toPath = const "/" diff --git a/test/Test/AWS/Gen/MachineLearning.hs b/test/Test/AWS/Gen/MachineLearning.hs --- a/test/Test/AWS/Gen/MachineLearning.hs +++ b/test/Test/AWS/Gen/MachineLearning.hs @@ -317,148 +317,173 @@ testDeleteDataSourceResponse = res "DeleteDataSourceResponse" "fixture/DeleteDataSourceResponse" + machineLearning (Proxy :: Proxy DeleteDataSource) testUpdateDataSourceResponse :: UpdateDataSourceResponse -> TestTree testUpdateDataSourceResponse = res "UpdateDataSourceResponse" "fixture/UpdateDataSourceResponse" + machineLearning (Proxy :: Proxy UpdateDataSource) testCreateDataSourceFromRedshiftResponse :: CreateDataSourceFromRedshiftResponse -> TestTree testCreateDataSourceFromRedshiftResponse = res "CreateDataSourceFromRedshiftResponse" "fixture/CreateDataSourceFromRedshiftResponse" + machineLearning (Proxy :: Proxy CreateDataSourceFromRedshift) testCreateDataSourceFromSResponse :: CreateDataSourceFromSResponse -> TestTree testCreateDataSourceFromSResponse = res "CreateDataSourceFromSResponse" "fixture/CreateDataSourceFromSResponse" + machineLearning (Proxy :: Proxy CreateDataSourceFromS) testCreateMLModelResponse :: CreateMLModelResponse -> TestTree testCreateMLModelResponse = res "CreateMLModelResponse" "fixture/CreateMLModelResponse" + machineLearning (Proxy :: Proxy CreateMLModel) testDeleteBatchPredictionResponse :: DeleteBatchPredictionResponse -> TestTree testDeleteBatchPredictionResponse = res "DeleteBatchPredictionResponse" "fixture/DeleteBatchPredictionResponse" + machineLearning (Proxy :: Proxy DeleteBatchPrediction) testUpdateBatchPredictionResponse :: UpdateBatchPredictionResponse -> TestTree testUpdateBatchPredictionResponse = res "UpdateBatchPredictionResponse" "fixture/UpdateBatchPredictionResponse" + machineLearning (Proxy :: Proxy UpdateBatchPrediction) testGetMLModelResponse :: GetMLModelResponse -> TestTree testGetMLModelResponse = res "GetMLModelResponse" "fixture/GetMLModelResponse" + machineLearning (Proxy :: Proxy GetMLModel) testGetDataSourceResponse :: GetDataSourceResponse -> TestTree testGetDataSourceResponse = res "GetDataSourceResponse" "fixture/GetDataSourceResponse" + machineLearning (Proxy :: Proxy GetDataSource) testDeleteMLModelResponse :: DeleteMLModelResponse -> TestTree testDeleteMLModelResponse = res "DeleteMLModelResponse" "fixture/DeleteMLModelResponse" + machineLearning (Proxy :: Proxy DeleteMLModel) testUpdateMLModelResponse :: UpdateMLModelResponse -> TestTree testUpdateMLModelResponse = res "UpdateMLModelResponse" "fixture/UpdateMLModelResponse" + machineLearning (Proxy :: Proxy UpdateMLModel) testDescribeBatchPredictionsResponse :: DescribeBatchPredictionsResponse -> TestTree testDescribeBatchPredictionsResponse = res "DescribeBatchPredictionsResponse" "fixture/DescribeBatchPredictionsResponse" + machineLearning (Proxy :: Proxy DescribeBatchPredictions) testUpdateEvaluationResponse :: UpdateEvaluationResponse -> TestTree testUpdateEvaluationResponse = res "UpdateEvaluationResponse" "fixture/UpdateEvaluationResponse" + machineLearning (Proxy :: Proxy UpdateEvaluation) testDeleteEvaluationResponse :: DeleteEvaluationResponse -> TestTree testDeleteEvaluationResponse = res "DeleteEvaluationResponse" "fixture/DeleteEvaluationResponse" + machineLearning (Proxy :: Proxy DeleteEvaluation) testGetBatchPredictionResponse :: GetBatchPredictionResponse -> TestTree testGetBatchPredictionResponse = res "GetBatchPredictionResponse" "fixture/GetBatchPredictionResponse" + machineLearning (Proxy :: Proxy GetBatchPrediction) testCreateEvaluationResponse :: CreateEvaluationResponse -> TestTree testCreateEvaluationResponse = res "CreateEvaluationResponse" "fixture/CreateEvaluationResponse" + machineLearning (Proxy :: Proxy CreateEvaluation) testCreateDataSourceFromRDSResponse :: CreateDataSourceFromRDSResponse -> TestTree testCreateDataSourceFromRDSResponse = res "CreateDataSourceFromRDSResponse" "fixture/CreateDataSourceFromRDSResponse" + machineLearning (Proxy :: Proxy CreateDataSourceFromRDS) testCreateBatchPredictionResponse :: CreateBatchPredictionResponse -> TestTree testCreateBatchPredictionResponse = res "CreateBatchPredictionResponse" "fixture/CreateBatchPredictionResponse" + machineLearning (Proxy :: Proxy CreateBatchPrediction) testPredictResponse :: PredictResponse -> TestTree testPredictResponse = res "PredictResponse" "fixture/PredictResponse" + machineLearning (Proxy :: Proxy Predict) testDeleteRealtimeEndpointResponse :: DeleteRealtimeEndpointResponse -> TestTree testDeleteRealtimeEndpointResponse = res "DeleteRealtimeEndpointResponse" "fixture/DeleteRealtimeEndpointResponse" + machineLearning (Proxy :: Proxy DeleteRealtimeEndpoint) testDescribeEvaluationsResponse :: DescribeEvaluationsResponse -> TestTree testDescribeEvaluationsResponse = res "DescribeEvaluationsResponse" "fixture/DescribeEvaluationsResponse" + machineLearning (Proxy :: Proxy DescribeEvaluations) testGetEvaluationResponse :: GetEvaluationResponse -> TestTree testGetEvaluationResponse = res "GetEvaluationResponse" "fixture/GetEvaluationResponse" + machineLearning (Proxy :: Proxy GetEvaluation) testCreateRealtimeEndpointResponse :: CreateRealtimeEndpointResponse -> TestTree testCreateRealtimeEndpointResponse = res "CreateRealtimeEndpointResponse" "fixture/CreateRealtimeEndpointResponse" + machineLearning (Proxy :: Proxy CreateRealtimeEndpoint) testDescribeMLModelsResponse :: DescribeMLModelsResponse -> TestTree testDescribeMLModelsResponse = res "DescribeMLModelsResponse" "fixture/DescribeMLModelsResponse" + machineLearning (Proxy :: Proxy DescribeMLModels) testDescribeDataSourcesResponse :: DescribeDataSourcesResponse -> TestTree testDescribeDataSourcesResponse = res "DescribeDataSourcesResponse" "fixture/DescribeDataSourcesResponse" + machineLearning (Proxy :: Proxy DescribeDataSources)