amazonka-ml 1.1.0 → 1.2.0

raw patch · 31 files changed

+259/−208 lines, 31 filesdep ~amazonka-coredep ~amazonka-mldep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-ml, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ml.cabal +5/−5
• gen/Network/AWS/MachineLearning.hs +2/−2
• gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs +10/−8
• gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs +8/−7
• gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs +7/−8
• gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs +6/−6
• gen/Network/AWS/MachineLearning/CreateEvaluation.hs +8/−7
• gen/Network/AWS/MachineLearning/CreateMLModel.hs +11/−9
• gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs +3/−3
• gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs +4/−3
• gen/Network/AWS/MachineLearning/DeleteDataSource.hs +4/−3
• gen/Network/AWS/MachineLearning/DeleteEvaluation.hs +4/−3
• gen/Network/AWS/MachineLearning/DeleteMLModel.hs +3/−3
• gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs +3/−3
• gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs +10/−9
• gen/Network/AWS/MachineLearning/DescribeDataSources.hs +10/−9
• gen/Network/AWS/MachineLearning/DescribeEvaluations.hs +10/−8
• gen/Network/AWS/MachineLearning/DescribeMLModels.hs +10/−9
• gen/Network/AWS/MachineLearning/GetBatchPrediction.hs +4/−3
• gen/Network/AWS/MachineLearning/GetDataSource.hs +4/−4
• gen/Network/AWS/MachineLearning/GetEvaluation.hs +4/−3
• gen/Network/AWS/MachineLearning/GetMLModel.hs +4/−4
• gen/Network/AWS/MachineLearning/Predict.hs +5/−4
• gen/Network/AWS/MachineLearning/Types.hs +32/−36
• gen/Network/AWS/MachineLearning/Types/Product.hs +44/−31
• gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs +5/−4
• gen/Network/AWS/MachineLearning/UpdateDataSource.hs +4/−4
• gen/Network/AWS/MachineLearning/UpdateEvaluation.hs +4/−4
• gen/Network/AWS/MachineLearning/UpdateMLModel.hs +5/−5
• test/Test/AWS/Gen/MachineLearning.hs +25/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -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

@@ -16,8 +16,8 @@ -- /See:/ <http://docs.aws.amazon.com/machine-learning/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.MachineLearning     (-    -- * Service-      MachineLearning+    -- * Service Configuration+      machineLearning      -- * Errors     -- $errors

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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

@@ -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)])

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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)