amazonka-ml 1.2.0.2 → 1.3.0

raw patch · 32 files changed

+677/−604 lines, 32 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 +28/−28
• gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs +8/−8
• gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs +9/−9
• gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs +9/−9
• gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs +9/−9
• gen/Network/AWS/MachineLearning/CreateEvaluation.hs +9/−9
• gen/Network/AWS/MachineLearning/CreateMLModel.hs +9/−9
• gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs +8/−8
• gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs +8/−8
• gen/Network/AWS/MachineLearning/DeleteDataSource.hs +9/−9
• gen/Network/AWS/MachineLearning/DeleteEvaluation.hs +9/−9
• gen/Network/AWS/MachineLearning/DeleteMLModel.hs +9/−9
• gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs +8/−8
• gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs +10/−10
• gen/Network/AWS/MachineLearning/DescribeDataSources.hs +10/−10
• gen/Network/AWS/MachineLearning/DescribeEvaluations.hs +10/−10
• gen/Network/AWS/MachineLearning/DescribeMLModels.hs +10/−10
• gen/Network/AWS/MachineLearning/GetBatchPrediction.hs +42/−22
• gen/Network/AWS/MachineLearning/GetDataSource.hs +60/−41
• gen/Network/AWS/MachineLearning/GetEvaluation.hs +49/−31
• gen/Network/AWS/MachineLearning/GetMLModel.hs +65/−48
• gen/Network/AWS/MachineLearning/Predict.hs +9/−9
• gen/Network/AWS/MachineLearning/Types.hs +10/−10
• gen/Network/AWS/MachineLearning/Types/Product.hs +89/−90
• gen/Network/AWS/MachineLearning/Types/Sum.hs +27/−27
• gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs +8/−8
• gen/Network/AWS/MachineLearning/UpdateDataSource.hs +9/−9
• gen/Network/AWS/MachineLearning/UpdateEvaluation.hs +9/−9
• gen/Network/AWS/MachineLearning/UpdateMLModel.hs +9/−9
• test/Test/AWS/Gen/MachineLearning.hs +113/−113

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ml-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Machine Learning SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -74,7 +74,7 @@         , Network.AWS.MachineLearning.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ml-test@@ -94,9 +94,9 @@         , Test.AWS.MachineLearning.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-ml == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-ml == 1.3.0.*         , base         , bytestring         , lens

@@ -58,12 +58,12 @@     -- * Operations     -- $operations -    -- ** DeleteDataSource-    , module Network.AWS.MachineLearning.DeleteDataSource-     -- ** UpdateDataSource     , module Network.AWS.MachineLearning.UpdateDataSource +    -- ** DeleteDataSource+    , module Network.AWS.MachineLearning.DeleteDataSource+     -- ** CreateDataSourceFromRedshift     , module Network.AWS.MachineLearning.CreateDataSourceFromRedshift @@ -85,32 +85,29 @@     -- ** GetDataSource     , module Network.AWS.MachineLearning.GetDataSource -    -- ** DeleteMLModel-    , module Network.AWS.MachineLearning.DeleteMLModel--    -- ** UpdateMLModel-    , module Network.AWS.MachineLearning.UpdateMLModel--    -- ** DescribeBatchPredictions (Paginated)-    , module Network.AWS.MachineLearning.DescribeBatchPredictions-     -- ** UpdateEvaluation     , module Network.AWS.MachineLearning.UpdateEvaluation      -- ** DeleteEvaluation     , module Network.AWS.MachineLearning.DeleteEvaluation +    -- ** DeleteMLModel+    , module Network.AWS.MachineLearning.DeleteMLModel++    -- ** UpdateMLModel+    , module Network.AWS.MachineLearning.UpdateMLModel+     -- ** GetBatchPrediction     , module Network.AWS.MachineLearning.GetBatchPrediction -    -- ** CreateEvaluation-    , module Network.AWS.MachineLearning.CreateEvaluation+    -- ** DescribeBatchPredictions (Paginated)+    , module Network.AWS.MachineLearning.DescribeBatchPredictions      -- ** CreateDataSourceFromRDS     , module Network.AWS.MachineLearning.CreateDataSourceFromRDS -    -- ** CreateBatchPrediction-    , module Network.AWS.MachineLearning.CreateBatchPrediction+    -- ** CreateEvaluation+    , module Network.AWS.MachineLearning.CreateEvaluation      -- ** Predict     , module Network.AWS.MachineLearning.Predict@@ -118,12 +115,15 @@     -- ** DeleteRealtimeEndpoint     , module Network.AWS.MachineLearning.DeleteRealtimeEndpoint -    -- ** DescribeEvaluations (Paginated)-    , module Network.AWS.MachineLearning.DescribeEvaluations+    -- ** CreateBatchPrediction+    , module Network.AWS.MachineLearning.CreateBatchPrediction      -- ** GetEvaluation     , module Network.AWS.MachineLearning.GetEvaluation +    -- ** DescribeEvaluations (Paginated)+    , module Network.AWS.MachineLearning.DescribeEvaluations+     -- ** CreateRealtimeEndpoint     , module Network.AWS.MachineLearning.CreateRealtimeEndpoint @@ -175,8 +175,8 @@     , bpMLModelId     , bpBatchPredictionDataSourceId     , bpBatchPredictionId-    , bpName     , bpCreatedByIAMUser+    , bpName     , bpMessage     , bpOutputURI @@ -187,17 +187,17 @@     , dsNumberOfFiles     , dsLastUpdatedAt     , dsCreatedAt-    , dsRDSMetadata     , dsDataSourceId+    , dsRDSMetadata     , dsDataSizeInBytes-    , dsName     , dsCreatedByIAMUser+    , dsName     , dsDataLocationS3     , dsComputeStatistics     , dsMessage     , dsRedshiftMetadata-    , dsRoleARN     , dsDataRearrangement+    , dsRoleARN      -- ** Evaluation     , Evaluation@@ -208,27 +208,27 @@     , eCreatedAt     , eInputDataLocationS3     , eMLModelId-    , eName     , eCreatedByIAMUser-    , eMessage+    , eName     , eEvaluationId+    , eMessage     , eEvaluationDataSourceId      -- ** MLModel     , MLModel     , mLModel     , mlmStatus-    , mlmTrainingParameters     , mlmLastUpdatedAt-    , mlmCreatedAt+    , mlmTrainingParameters     , mlmScoreThresholdLastUpdatedAt+    , mlmCreatedAt     , mlmInputDataLocationS3-    , mlmSizeInBytes     , mlmMLModelId+    , mlmSizeInBytes     , mlmScoreThreshold-    , mlmName     , mlmAlgorithm     , mlmCreatedByIAMUser+    , mlmName     , mlmEndpointInfo     , mlmTrainingDataSourceId     , mlmMessage

@@ -52,7 +52,7 @@     , CreateBatchPredictionResponse     -- * Response Lenses     , cbprsBatchPredictionId-    , cbprsStatus+    , cbprsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -177,7 +177,7 @@ -- /See:/ 'createBatchPredictionResponse' smart constructor. data CreateBatchPredictionResponse = CreateBatchPredictionResponse'     { _cbprsBatchPredictionId :: !(Maybe Text)-    , _cbprsStatus            :: !Int+    , _cbprsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateBatchPredictionResponse' with the minimum fields required to make a request.@@ -186,14 +186,14 @@ -- -- * 'cbprsBatchPredictionId' ----- * 'cbprsStatus'+-- * 'cbprsResponseStatus' createBatchPredictionResponse-    :: Int -- ^ 'cbprsStatus'+    :: Int -- ^ 'cbprsResponseStatus'     -> CreateBatchPredictionResponse-createBatchPredictionResponse pStatus_ =+createBatchPredictionResponse pResponseStatus_ =     CreateBatchPredictionResponse'     { _cbprsBatchPredictionId = Nothing-    , _cbprsStatus = pStatus_+    , _cbprsResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the 'BatchPrediction'. This@@ -203,5 +203,5 @@ cbprsBatchPredictionId = lens _cbprsBatchPredictionId (\ s a -> s{_cbprsBatchPredictionId = a});  -- | The response status code.-cbprsStatus :: Lens' CreateBatchPredictionResponse Int-cbprsStatus = lens _cbprsStatus (\ s a -> s{_cbprsStatus = a});+cbprsResponseStatus :: Lens' CreateBatchPredictionResponse Int+cbprsResponseStatus = lens _cbprsResponseStatus (\ s a -> s{_cbprsResponseStatus = a});

@@ -53,7 +53,7 @@     , CreateDataSourceFromRDSResponse     -- * Response Lenses     , cdsfrdsrsDataSourceId-    , cdsfrdsrsStatus+    , cdsfrdsrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -221,8 +221,8 @@ -- -- /See:/ 'createDataSourceFromRDSResponse' smart constructor. data CreateDataSourceFromRDSResponse = CreateDataSourceFromRDSResponse'-    { _cdsfrdsrsDataSourceId :: !(Maybe Text)-    , _cdsfrdsrsStatus       :: !Int+    { _cdsfrdsrsDataSourceId   :: !(Maybe Text)+    , _cdsfrdsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDataSourceFromRDSResponse' with the minimum fields required to make a request.@@ -231,14 +231,14 @@ -- -- * 'cdsfrdsrsDataSourceId' ----- * 'cdsfrdsrsStatus'+-- * 'cdsfrdsrsResponseStatus' createDataSourceFromRDSResponse-    :: Int -- ^ 'cdsfrdsrsStatus'+    :: Int -- ^ 'cdsfrdsrsResponseStatus'     -> CreateDataSourceFromRDSResponse-createDataSourceFromRDSResponse pStatus_ =+createDataSourceFromRDSResponse pResponseStatus_ =     CreateDataSourceFromRDSResponse'     { _cdsfrdsrsDataSourceId = Nothing-    , _cdsfrdsrsStatus = pStatus_+    , _cdsfrdsrsResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the datasource. This value@@ -247,5 +247,5 @@ cdsfrdsrsDataSourceId = lens _cdsfrdsrsDataSourceId (\ s a -> s{_cdsfrdsrsDataSourceId = a});  -- | The response status code.-cdsfrdsrsStatus :: Lens' CreateDataSourceFromRDSResponse Int-cdsfrdsrsStatus = lens _cdsfrdsrsStatus (\ s a -> s{_cdsfrdsrsStatus = a});+cdsfrdsrsResponseStatus :: Lens' CreateDataSourceFromRDSResponse Int+cdsfrdsrsResponseStatus = lens _cdsfrdsrsResponseStatus (\ s a -> s{_cdsfrdsrsResponseStatus = a});

@@ -71,7 +71,7 @@     , CreateDataSourceFromRedshiftResponse     -- * Response Lenses     , cdsfrrsDataSourceId-    , cdsfrrsStatus+    , cdsfrrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -223,8 +223,8 @@ -- -- /See:/ 'createDataSourceFromRedshiftResponse' smart constructor. data CreateDataSourceFromRedshiftResponse = CreateDataSourceFromRedshiftResponse'-    { _cdsfrrsDataSourceId :: !(Maybe Text)-    , _cdsfrrsStatus       :: !Int+    { _cdsfrrsDataSourceId   :: !(Maybe Text)+    , _cdsfrrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDataSourceFromRedshiftResponse' with the minimum fields required to make a request.@@ -233,14 +233,14 @@ -- -- * 'cdsfrrsDataSourceId' ----- * 'cdsfrrsStatus'+-- * 'cdsfrrsResponseStatus' createDataSourceFromRedshiftResponse-    :: Int -- ^ 'cdsfrrsStatus'+    :: Int -- ^ 'cdsfrrsResponseStatus'     -> CreateDataSourceFromRedshiftResponse-createDataSourceFromRedshiftResponse pStatus_ =+createDataSourceFromRedshiftResponse pResponseStatus_ =     CreateDataSourceFromRedshiftResponse'     { _cdsfrrsDataSourceId = Nothing-    , _cdsfrrsStatus = pStatus_+    , _cdsfrrsResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the datasource. This value@@ -249,5 +249,5 @@ cdsfrrsDataSourceId = lens _cdsfrrsDataSourceId (\ s a -> s{_cdsfrrsDataSourceId = a});  -- | The response status code.-cdsfrrsStatus :: Lens' CreateDataSourceFromRedshiftResponse Int-cdsfrrsStatus = lens _cdsfrrsStatus (\ s a -> s{_cdsfrrsStatus = a});+cdsfrrsResponseStatus :: Lens' CreateDataSourceFromRedshiftResponse Int+cdsfrrsResponseStatus = lens _cdsfrrsResponseStatus (\ s a -> s{_cdsfrrsResponseStatus = a});

@@ -70,7 +70,7 @@     , CreateDataSourceFromSResponse     -- * Response Lenses     , cdsfsrsDataSourceId-    , cdsfsrsStatus+    , cdsfsrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -189,8 +189,8 @@ -- -- /See:/ 'createDataSourceFromSResponse' smart constructor. data CreateDataSourceFromSResponse = CreateDataSourceFromSResponse'-    { _cdsfsrsDataSourceId :: !(Maybe Text)-    , _cdsfsrsStatus       :: !Int+    { _cdsfsrsDataSourceId   :: !(Maybe Text)+    , _cdsfsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDataSourceFromSResponse' with the minimum fields required to make a request.@@ -199,14 +199,14 @@ -- -- * 'cdsfsrsDataSourceId' ----- * 'cdsfsrsStatus'+-- * 'cdsfsrsResponseStatus' createDataSourceFromSResponse-    :: Int -- ^ 'cdsfsrsStatus'+    :: Int -- ^ 'cdsfsrsResponseStatus'     -> CreateDataSourceFromSResponse-createDataSourceFromSResponse pStatus_ =+createDataSourceFromSResponse pResponseStatus_ =     CreateDataSourceFromSResponse'     { _cdsfsrsDataSourceId = Nothing-    , _cdsfsrsStatus = pStatus_+    , _cdsfsrsResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the datasource. This value@@ -215,5 +215,5 @@ cdsfsrsDataSourceId = lens _cdsfsrsDataSourceId (\ s a -> s{_cdsfsrsDataSourceId = a});  -- | The response status code.-cdsfsrsStatus :: Lens' CreateDataSourceFromSResponse Int-cdsfsrsStatus = lens _cdsfsrsStatus (\ s a -> s{_cdsfsrsStatus = a});+cdsfsrsResponseStatus :: Lens' CreateDataSourceFromSResponse Int+cdsfsrsResponseStatus = lens _cdsfsrsResponseStatus (\ s a -> s{_cdsfsrsResponseStatus = a});

@@ -54,7 +54,7 @@     , CreateEvaluationResponse     -- * Response Lenses     , cersEvaluationId-    , cersStatus+    , cersResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -159,8 +159,8 @@ -- -- /See:/ 'createEvaluationResponse' smart constructor. data CreateEvaluationResponse = CreateEvaluationResponse'-    { _cersEvaluationId :: !(Maybe Text)-    , _cersStatus       :: !Int+    { _cersEvaluationId   :: !(Maybe Text)+    , _cersResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateEvaluationResponse' with the minimum fields required to make a request.@@ -169,14 +169,14 @@ -- -- * 'cersEvaluationId' ----- * 'cersStatus'+-- * 'cersResponseStatus' createEvaluationResponse-    :: Int -- ^ 'cersStatus'+    :: Int -- ^ 'cersResponseStatus'     -> CreateEvaluationResponse-createEvaluationResponse pStatus_ =+createEvaluationResponse pResponseStatus_ =     CreateEvaluationResponse'     { _cersEvaluationId = Nothing-    , _cersStatus = pStatus_+    , _cersResponseStatus = pResponseStatus_     }  -- | The user-supplied ID that uniquely identifies the 'Evaluation'. This@@ -186,5 +186,5 @@ cersEvaluationId = lens _cersEvaluationId (\ s a -> s{_cersEvaluationId = a});  -- | The response status code.-cersStatus :: Lens' CreateEvaluationResponse Int-cersStatus = lens _cersStatus (\ s a -> s{_cersStatus = a});+cersResponseStatus :: Lens' CreateEvaluationResponse Int+cersResponseStatus = lens _cersResponseStatus (\ s a -> s{_cersResponseStatus = a});

@@ -58,7 +58,7 @@     , CreateMLModelResponse     -- * Response Lenses     , cmlmrsMLModelId-    , cmlmrsStatus+    , cmlmrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -236,8 +236,8 @@ -- -- /See:/ 'createMLModelResponse' smart constructor. data CreateMLModelResponse = CreateMLModelResponse'-    { _cmlmrsMLModelId :: !(Maybe Text)-    , _cmlmrsStatus    :: !Int+    { _cmlmrsMLModelId      :: !(Maybe Text)+    , _cmlmrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateMLModelResponse' with the minimum fields required to make a request.@@ -246,14 +246,14 @@ -- -- * 'cmlmrsMLModelId' ----- * 'cmlmrsStatus'+-- * 'cmlmrsResponseStatus' createMLModelResponse-    :: Int -- ^ 'cmlmrsStatus'+    :: Int -- ^ 'cmlmrsResponseStatus'     -> CreateMLModelResponse-createMLModelResponse pStatus_ =+createMLModelResponse pResponseStatus_ =     CreateMLModelResponse'     { _cmlmrsMLModelId = Nothing-    , _cmlmrsStatus = pStatus_+    , _cmlmrsResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the 'MLModel'. This value@@ -262,5 +262,5 @@ cmlmrsMLModelId = lens _cmlmrsMLModelId (\ s a -> s{_cmlmrsMLModelId = a});  -- | The response status code.-cmlmrsStatus :: Lens' CreateMLModelResponse Int-cmlmrsStatus = lens _cmlmrsStatus (\ s a -> s{_cmlmrsStatus = a});+cmlmrsResponseStatus :: Lens' CreateMLModelResponse Int+cmlmrsResponseStatus = lens _cmlmrsResponseStatus (\ s a -> s{_cmlmrsResponseStatus = a});

@@ -37,7 +37,7 @@     -- * Response Lenses     , crersRealtimeEndpointInfo     , crersMLModelId-    , crersStatus+    , crersResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -113,7 +113,7 @@ data CreateRealtimeEndpointResponse = CreateRealtimeEndpointResponse'     { _crersRealtimeEndpointInfo :: !(Maybe RealtimeEndpointInfo)     , _crersMLModelId            :: !(Maybe Text)-    , _crersStatus               :: !Int+    , _crersResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateRealtimeEndpointResponse' with the minimum fields required to make a request.@@ -124,15 +124,15 @@ -- -- * 'crersMLModelId' ----- * 'crersStatus'+-- * 'crersResponseStatus' createRealtimeEndpointResponse-    :: Int -- ^ 'crersStatus'+    :: Int -- ^ 'crersResponseStatus'     -> CreateRealtimeEndpointResponse-createRealtimeEndpointResponse pStatus_ =+createRealtimeEndpointResponse pResponseStatus_ =     CreateRealtimeEndpointResponse'     { _crersRealtimeEndpointInfo = Nothing     , _crersMLModelId = Nothing-    , _crersStatus = pStatus_+    , _crersResponseStatus = pResponseStatus_     }  -- | The endpoint information of the 'MLModel'@@ -145,5 +145,5 @@ crersMLModelId = lens _crersMLModelId (\ s a -> s{_crersMLModelId = a});  -- | The response status code.-crersStatus :: Lens' CreateRealtimeEndpointResponse Int-crersStatus = lens _crersStatus (\ s a -> s{_crersStatus = a});+crersResponseStatus :: Lens' CreateRealtimeEndpointResponse Int+crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a});

@@ -43,7 +43,7 @@     , DeleteBatchPredictionResponse     -- * Response Lenses     , dbprsBatchPredictionId-    , dbprsStatus+    , dbprsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -116,7 +116,7 @@ -- /See:/ 'deleteBatchPredictionResponse' smart constructor. data DeleteBatchPredictionResponse = DeleteBatchPredictionResponse'     { _dbprsBatchPredictionId :: !(Maybe Text)-    , _dbprsStatus            :: !Int+    , _dbprsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteBatchPredictionResponse' with the minimum fields required to make a request.@@ -125,14 +125,14 @@ -- -- * 'dbprsBatchPredictionId' ----- * 'dbprsStatus'+-- * 'dbprsResponseStatus' deleteBatchPredictionResponse-    :: Int -- ^ 'dbprsStatus'+    :: Int -- ^ 'dbprsResponseStatus'     -> DeleteBatchPredictionResponse-deleteBatchPredictionResponse pStatus_ =+deleteBatchPredictionResponse pResponseStatus_ =     DeleteBatchPredictionResponse'     { _dbprsBatchPredictionId = Nothing-    , _dbprsStatus = pStatus_+    , _dbprsResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the 'BatchPrediction'. This@@ -142,5 +142,5 @@ dbprsBatchPredictionId = lens _dbprsBatchPredictionId (\ s a -> s{_dbprsBatchPredictionId = a});  -- | The response status code.-dbprsStatus :: Lens' DeleteBatchPredictionResponse Int-dbprsStatus = lens _dbprsStatus (\ s a -> s{_dbprsStatus = a});+dbprsResponseStatus :: Lens' DeleteBatchPredictionResponse Int+dbprsResponseStatus = lens _dbprsResponseStatus (\ s a -> s{_dbprsResponseStatus = a});

@@ -42,7 +42,7 @@     , DeleteDataSourceResponse     -- * Response Lenses     , ddsrsDataSourceId-    , ddsrsStatus+    , ddsrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -107,8 +107,8 @@ -- -- /See:/ 'deleteDataSourceResponse' smart constructor. data DeleteDataSourceResponse = DeleteDataSourceResponse'-    { _ddsrsDataSourceId :: !(Maybe Text)-    , _ddsrsStatus       :: !Int+    { _ddsrsDataSourceId   :: !(Maybe Text)+    , _ddsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteDataSourceResponse' with the minimum fields required to make a request.@@ -117,14 +117,14 @@ -- -- * 'ddsrsDataSourceId' ----- * 'ddsrsStatus'+-- * 'ddsrsResponseStatus' deleteDataSourceResponse-    :: Int -- ^ 'ddsrsStatus'+    :: Int -- ^ 'ddsrsResponseStatus'     -> DeleteDataSourceResponse-deleteDataSourceResponse pStatus_ =+deleteDataSourceResponse pResponseStatus_ =     DeleteDataSourceResponse'     { _ddsrsDataSourceId = Nothing-    , _ddsrsStatus = pStatus_+    , _ddsrsResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the 'DataSource'. This value@@ -133,5 +133,5 @@ ddsrsDataSourceId = lens _ddsrsDataSourceId (\ s a -> s{_ddsrsDataSourceId = a});  -- | The response status code.-ddsrsStatus :: Lens' DeleteDataSourceResponse Int-ddsrsStatus = lens _ddsrsStatus (\ s a -> s{_ddsrsStatus = a});+ddsrsResponseStatus :: Lens' DeleteDataSourceResponse Int+ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a});

@@ -42,7 +42,7 @@     , DeleteEvaluationResponse     -- * Response Lenses     , dersEvaluationId-    , dersStatus+    , dersResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -112,8 +112,8 @@ -- -- /See:/ 'deleteEvaluationResponse' smart constructor. data DeleteEvaluationResponse = DeleteEvaluationResponse'-    { _dersEvaluationId :: !(Maybe Text)-    , _dersStatus       :: !Int+    { _dersEvaluationId   :: !(Maybe Text)+    , _dersResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteEvaluationResponse' with the minimum fields required to make a request.@@ -122,14 +122,14 @@ -- -- * 'dersEvaluationId' ----- * 'dersStatus'+-- * 'dersResponseStatus' deleteEvaluationResponse-    :: Int -- ^ 'dersStatus'+    :: Int -- ^ 'dersResponseStatus'     -> DeleteEvaluationResponse-deleteEvaluationResponse pStatus_ =+deleteEvaluationResponse pResponseStatus_ =     DeleteEvaluationResponse'     { _dersEvaluationId = Nothing-    , _dersStatus = pStatus_+    , _dersResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the 'Evaluation'. This value@@ -138,5 +138,5 @@ dersEvaluationId = lens _dersEvaluationId (\ s a -> s{_dersEvaluationId = a});  -- | The response status code.-dersStatus :: Lens' DeleteEvaluationResponse Int-dersStatus = lens _dersStatus (\ s a -> s{_dersStatus = a});+dersResponseStatus :: Lens' DeleteEvaluationResponse Int+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});

@@ -41,7 +41,7 @@     , DeleteMLModelResponse     -- * Response Lenses     , dmlmrsMLModelId-    , dmlmrsStatus+    , dmlmrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -108,8 +108,8 @@ -- -- /See:/ 'deleteMLModelResponse' smart constructor. data DeleteMLModelResponse = DeleteMLModelResponse'-    { _dmlmrsMLModelId :: !(Maybe Text)-    , _dmlmrsStatus    :: !Int+    { _dmlmrsMLModelId      :: !(Maybe Text)+    , _dmlmrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteMLModelResponse' with the minimum fields required to make a request.@@ -118,14 +118,14 @@ -- -- * 'dmlmrsMLModelId' ----- * 'dmlmrsStatus'+-- * 'dmlmrsResponseStatus' deleteMLModelResponse-    :: Int -- ^ 'dmlmrsStatus'+    :: Int -- ^ 'dmlmrsResponseStatus'     -> DeleteMLModelResponse-deleteMLModelResponse pStatus_ =+deleteMLModelResponse pResponseStatus_ =     DeleteMLModelResponse'     { _dmlmrsMLModelId = Nothing-    , _dmlmrsStatus = pStatus_+    , _dmlmrsResponseStatus = pResponseStatus_     }  -- | A user-supplied ID that uniquely identifies the 'MLModel'. This value@@ -134,5 +134,5 @@ dmlmrsMLModelId = lens _dmlmrsMLModelId (\ s a -> s{_dmlmrsMLModelId = a});  -- | The response status code.-dmlmrsStatus :: Lens' DeleteMLModelResponse Int-dmlmrsStatus = lens _dmlmrsStatus (\ s a -> s{_dmlmrsStatus = a});+dmlmrsResponseStatus :: Lens' DeleteMLModelResponse Int+dmlmrsResponseStatus = lens _dmlmrsResponseStatus (\ s a -> s{_dmlmrsResponseStatus = a});

@@ -35,7 +35,7 @@     -- * Response Lenses     , drersRealtimeEndpointInfo     , drersMLModelId-    , drersStatus+    , drersResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -108,7 +108,7 @@ data DeleteRealtimeEndpointResponse = DeleteRealtimeEndpointResponse'     { _drersRealtimeEndpointInfo :: !(Maybe RealtimeEndpointInfo)     , _drersMLModelId            :: !(Maybe Text)-    , _drersStatus               :: !Int+    , _drersResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteRealtimeEndpointResponse' with the minimum fields required to make a request.@@ -119,15 +119,15 @@ -- -- * 'drersMLModelId' ----- * 'drersStatus'+-- * 'drersResponseStatus' deleteRealtimeEndpointResponse-    :: Int -- ^ 'drersStatus'+    :: Int -- ^ 'drersResponseStatus'     -> DeleteRealtimeEndpointResponse-deleteRealtimeEndpointResponse pStatus_ =+deleteRealtimeEndpointResponse pResponseStatus_ =     DeleteRealtimeEndpointResponse'     { _drersRealtimeEndpointInfo = Nothing     , _drersMLModelId = Nothing-    , _drersStatus = pStatus_+    , _drersResponseStatus = pResponseStatus_     }  -- | The endpoint information of the 'MLModel'@@ -140,5 +140,5 @@ drersMLModelId = lens _drersMLModelId (\ s a -> s{_drersMLModelId = a});  -- | The response status code.-drersStatus :: Lens' DeleteRealtimeEndpointResponse Int-drersStatus = lens _drersStatus (\ s a -> s{_drersStatus = a});+drersResponseStatus :: Lens' DeleteRealtimeEndpointResponse Int+drersResponseStatus = lens _drersResponseStatus (\ s a -> s{_drersResponseStatus = a});

@@ -48,7 +48,7 @@     -- * Response Lenses     , drsResults     , drsNextToken-    , drsStatus+    , drsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -258,9 +258,9 @@ -- -- /See:/ 'describeBatchPredictionsResponse' smart constructor. data DescribeBatchPredictionsResponse = DescribeBatchPredictionsResponse'-    { _drsResults   :: !(Maybe [BatchPrediction])-    , _drsNextToken :: !(Maybe Text)-    , _drsStatus    :: !Int+    { _drsResults        :: !(Maybe [BatchPrediction])+    , _drsNextToken      :: !(Maybe Text)+    , _drsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeBatchPredictionsResponse' with the minimum fields required to make a request.@@ -271,15 +271,15 @@ -- -- * 'drsNextToken' ----- * 'drsStatus'+-- * 'drsResponseStatus' describeBatchPredictionsResponse-    :: Int -- ^ 'drsStatus'+    :: Int -- ^ 'drsResponseStatus'     -> DescribeBatchPredictionsResponse-describeBatchPredictionsResponse pStatus_ =+describeBatchPredictionsResponse pResponseStatus_ =     DescribeBatchPredictionsResponse'     { _drsResults = Nothing     , _drsNextToken = Nothing-    , _drsStatus = pStatus_+    , _drsResponseStatus = pResponseStatus_     }  -- | A list of BatchPrediction objects that meet the search criteria.@@ -292,5 +292,5 @@ drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});  -- | The response status code.-drsStatus :: Lens' DescribeBatchPredictionsResponse Int-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+drsResponseStatus :: Lens' DescribeBatchPredictionsResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -48,7 +48,7 @@     -- * Response Lenses     , ddssrsResults     , ddssrsNextToken-    , ddssrsStatus+    , ddssrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -252,9 +252,9 @@ -- -- /See:/ 'describeDataSourcesResponse' smart constructor. data DescribeDataSourcesResponse = DescribeDataSourcesResponse'-    { _ddssrsResults   :: !(Maybe [DataSource])-    , _ddssrsNextToken :: !(Maybe Text)-    , _ddssrsStatus    :: !Int+    { _ddssrsResults        :: !(Maybe [DataSource])+    , _ddssrsNextToken      :: !(Maybe Text)+    , _ddssrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeDataSourcesResponse' with the minimum fields required to make a request.@@ -265,15 +265,15 @@ -- -- * 'ddssrsNextToken' ----- * 'ddssrsStatus'+-- * 'ddssrsResponseStatus' describeDataSourcesResponse-    :: Int -- ^ 'ddssrsStatus'+    :: Int -- ^ 'ddssrsResponseStatus'     -> DescribeDataSourcesResponse-describeDataSourcesResponse pStatus_ =+describeDataSourcesResponse pResponseStatus_ =     DescribeDataSourcesResponse'     { _ddssrsResults = Nothing     , _ddssrsNextToken = Nothing-    , _ddssrsStatus = pStatus_+    , _ddssrsResponseStatus = pResponseStatus_     }  -- | A list of 'DataSource' that meet the search criteria.@@ -286,5 +286,5 @@ ddssrsNextToken = lens _ddssrsNextToken (\ s a -> s{_ddssrsNextToken = a});  -- | The response status code.-ddssrsStatus :: Lens' DescribeDataSourcesResponse Int-ddssrsStatus = lens _ddssrsStatus (\ s a -> s{_ddssrsStatus = a});+ddssrsResponseStatus :: Lens' DescribeDataSourcesResponse Int+ddssrsResponseStatus = lens _ddssrsResponseStatus (\ s a -> s{_ddssrsResponseStatus = a});

@@ -48,7 +48,7 @@     -- * Response Lenses     , desrsResults     , desrsNextToken-    , desrsStatus+    , desrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -257,9 +257,9 @@ -- -- /See:/ 'describeEvaluationsResponse' smart constructor. data DescribeEvaluationsResponse = DescribeEvaluationsResponse'-    { _desrsResults   :: !(Maybe [Evaluation])-    , _desrsNextToken :: !(Maybe Text)-    , _desrsStatus    :: !Int+    { _desrsResults        :: !(Maybe [Evaluation])+    , _desrsNextToken      :: !(Maybe Text)+    , _desrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeEvaluationsResponse' with the minimum fields required to make a request.@@ -270,15 +270,15 @@ -- -- * 'desrsNextToken' ----- * 'desrsStatus'+-- * 'desrsResponseStatus' describeEvaluationsResponse-    :: Int -- ^ 'desrsStatus'+    :: Int -- ^ 'desrsResponseStatus'     -> DescribeEvaluationsResponse-describeEvaluationsResponse pStatus_ =+describeEvaluationsResponse pResponseStatus_ =     DescribeEvaluationsResponse'     { _desrsResults = Nothing     , _desrsNextToken = Nothing-    , _desrsStatus = pStatus_+    , _desrsResponseStatus = pResponseStatus_     }  -- | A list of Evaluation that meet the search criteria.@@ -291,5 +291,5 @@ desrsNextToken = lens _desrsNextToken (\ s a -> s{_desrsNextToken = a});  -- | The response status code.-desrsStatus :: Lens' DescribeEvaluationsResponse Int-desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});+desrsResponseStatus :: Lens' DescribeEvaluationsResponse Int+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});

@@ -48,7 +48,7 @@     -- * Response Lenses     , dmlmsrsResults     , dmlmsrsNextToken-    , dmlmsrsStatus+    , dmlmsrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -256,9 +256,9 @@ -- -- /See:/ 'describeMLModelsResponse' smart constructor. data DescribeMLModelsResponse = DescribeMLModelsResponse'-    { _dmlmsrsResults   :: !(Maybe [MLModel])-    , _dmlmsrsNextToken :: !(Maybe Text)-    , _dmlmsrsStatus    :: !Int+    { _dmlmsrsResults        :: !(Maybe [MLModel])+    , _dmlmsrsNextToken      :: !(Maybe Text)+    , _dmlmsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeMLModelsResponse' with the minimum fields required to make a request.@@ -269,15 +269,15 @@ -- -- * 'dmlmsrsNextToken' ----- * 'dmlmsrsStatus'+-- * 'dmlmsrsResponseStatus' describeMLModelsResponse-    :: Int -- ^ 'dmlmsrsStatus'+    :: Int -- ^ 'dmlmsrsResponseStatus'     -> DescribeMLModelsResponse-describeMLModelsResponse pStatus_ =+describeMLModelsResponse pResponseStatus_ =     DescribeMLModelsResponse'     { _dmlmsrsResults = Nothing     , _dmlmsrsNextToken = Nothing-    , _dmlmsrsStatus = pStatus_+    , _dmlmsrsResponseStatus = pResponseStatus_     }  -- | A list of MLModel that meet the search criteria.@@ -290,5 +290,5 @@ dmlmsrsNextToken = lens _dmlmsrsNextToken (\ s a -> s{_dmlmsrsNextToken = a});  -- | The response status code.-dmlmsrsStatus :: Lens' DescribeMLModelsResponse Int-dmlmsrsStatus = lens _dmlmsrsStatus (\ s a -> s{_dmlmsrsStatus = a});+dmlmsrsResponseStatus :: Lens' DescribeMLModelsResponse Int+dmlmsrsResponseStatus = lens _dmlmsrsResponseStatus (\ s a -> s{_dmlmsrsResponseStatus = a});

@@ -34,18 +34,19 @@     , getBatchPredictionResponse     , GetBatchPredictionResponse     -- * Response Lenses+    , gbprsStatus     , gbprsLastUpdatedAt     , gbprsCreatedAt     , gbprsInputDataLocationS3     , gbprsMLModelId     , gbprsBatchPredictionDataSourceId     , gbprsBatchPredictionId-    , gbprsName     , gbprsCreatedByIAMUser+    , gbprsName     , gbprsLogURI     , gbprsMessage     , gbprsOutputURI-    , gbprsStatus+    , gbprsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -84,13 +85,14 @@           = receiveJSON               (\ s h x ->                  GetBatchPredictionResponse' <$>-                   (x .?> "LastUpdatedAt") <*> (x .?> "CreatedAt") <*>-                     (x .?> "InputDataLocationS3")+                   (x .?> "Status") <*> (x .?> "LastUpdatedAt") <*>+                     (x .?> "CreatedAt")+                     <*> (x .?> "InputDataLocationS3")                      <*> (x .?> "MLModelId")                      <*> (x .?> "BatchPredictionDataSourceId")                      <*> (x .?> "BatchPredictionId")-                     <*> (x .?> "Name")                      <*> (x .?> "CreatedByIamUser")+                     <*> (x .?> "Name")                      <*> (x .?> "LogUri")                      <*> (x .?> "Message")                      <*> (x .?> "OutputUri")@@ -124,24 +126,27 @@ -- -- /See:/ 'getBatchPredictionResponse' smart constructor. data GetBatchPredictionResponse = GetBatchPredictionResponse'-    { _gbprsLastUpdatedAt               :: !(Maybe POSIX)+    { _gbprsStatus                      :: !(Maybe EntityStatus)+    , _gbprsLastUpdatedAt               :: !(Maybe POSIX)     , _gbprsCreatedAt                   :: !(Maybe POSIX)     , _gbprsInputDataLocationS3         :: !(Maybe Text)     , _gbprsMLModelId                   :: !(Maybe Text)     , _gbprsBatchPredictionDataSourceId :: !(Maybe Text)     , _gbprsBatchPredictionId           :: !(Maybe Text)-    , _gbprsName                        :: !(Maybe Text)     , _gbprsCreatedByIAMUser            :: !(Maybe Text)+    , _gbprsName                        :: !(Maybe Text)     , _gbprsLogURI                      :: !(Maybe Text)     , _gbprsMessage                     :: !(Maybe Text)     , _gbprsOutputURI                   :: !(Maybe Text)-    , _gbprsStatus                      :: !Int+    , _gbprsResponseStatus              :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetBatchPredictionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gbprsStatus'+-- -- * 'gbprsLastUpdatedAt' -- -- * 'gbprsCreatedAt'@@ -154,36 +159,51 @@ -- -- * 'gbprsBatchPredictionId' ----- * 'gbprsName'--- -- * 'gbprsCreatedByIAMUser' --+-- * 'gbprsName'+-- -- * 'gbprsLogURI' -- -- * 'gbprsMessage' -- -- * 'gbprsOutputURI' ----- * 'gbprsStatus'+-- * 'gbprsResponseStatus' getBatchPredictionResponse-    :: Int -- ^ 'gbprsStatus'+    :: Int -- ^ 'gbprsResponseStatus'     -> GetBatchPredictionResponse-getBatchPredictionResponse pStatus_ =+getBatchPredictionResponse pResponseStatus_ =     GetBatchPredictionResponse'-    { _gbprsLastUpdatedAt = Nothing+    { _gbprsStatus = Nothing+    , _gbprsLastUpdatedAt = Nothing     , _gbprsCreatedAt = Nothing     , _gbprsInputDataLocationS3 = Nothing     , _gbprsMLModelId = Nothing     , _gbprsBatchPredictionDataSourceId = Nothing     , _gbprsBatchPredictionId = Nothing-    , _gbprsName = Nothing     , _gbprsCreatedByIAMUser = Nothing+    , _gbprsName = Nothing     , _gbprsLogURI = Nothing     , _gbprsMessage = Nothing     , _gbprsOutputURI = Nothing-    , _gbprsStatus = pStatus_+    , _gbprsResponseStatus = pResponseStatus_     } +-- | The status of the 'BatchPrediction', which can be one of the following+-- values:+--+-- -   'PENDING' - Amazon Machine Learning (Amazon ML) submitted a request+--     to generate batch predictions.+-- -   'INPROGRESS' - The batch predictions are in progress.+-- -   'FAILED' - The request to perform a batch prediction did not run to+--     completion. It is not usable.+-- -   'COMPLETED' - The batch prediction process completed successfully.+-- -   'DELETED' - The 'BatchPrediction' is marked as deleted. It is not+--     usable.+gbprsStatus :: Lens' GetBatchPredictionResponse (Maybe EntityStatus)+gbprsStatus = lens _gbprsStatus (\ s a -> s{_gbprsStatus = a});+ -- | The time of the most recent edit to 'BatchPrediction'. The time is -- expressed in epoch time. gbprsLastUpdatedAt :: Lens' GetBatchPredictionResponse (Maybe UTCTime)@@ -214,16 +234,16 @@ gbprsBatchPredictionId :: Lens' GetBatchPredictionResponse (Maybe Text) gbprsBatchPredictionId = lens _gbprsBatchPredictionId (\ s a -> s{_gbprsBatchPredictionId = a}); --- | A user-supplied name or description of the 'BatchPrediction'.-gbprsName :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprsName = lens _gbprsName (\ s a -> s{_gbprsName = a});- -- | The AWS user account that invoked the 'BatchPrediction'. The account -- type can be either an AWS root account or an AWS Identity and Access -- Management (IAM) user account. gbprsCreatedByIAMUser :: Lens' GetBatchPredictionResponse (Maybe Text) gbprsCreatedByIAMUser = lens _gbprsCreatedByIAMUser (\ s a -> s{_gbprsCreatedByIAMUser = a}); +-- | A user-supplied name or description of the 'BatchPrediction'.+gbprsName :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsName = lens _gbprsName (\ s a -> s{_gbprsName = a});+ -- | A link to the file that contains logs of the CreateBatchPrediction -- operation. gbprsLogURI :: Lens' GetBatchPredictionResponse (Maybe Text)@@ -240,5 +260,5 @@ gbprsOutputURI = lens _gbprsOutputURI (\ s a -> s{_gbprsOutputURI = a});  -- | The response status code.-gbprsStatus :: Lens' GetBatchPredictionResponse Int-gbprsStatus = lens _gbprsStatus (\ s a -> s{_gbprsStatus = a});+gbprsResponseStatus :: Lens' GetBatchPredictionResponse Int+gbprsResponseStatus = lens _gbprsResponseStatus (\ s a -> s{_gbprsResponseStatus = a});

@@ -39,23 +39,24 @@     , getDataSourceResponse     , GetDataSourceResponse     -- * Response Lenses+    , gdsrsStatus     , gdsrsNumberOfFiles     , gdsrsLastUpdatedAt     , gdsrsCreatedAt-    , gdsrsRDSMetadata     , gdsrsDataSourceId+    , gdsrsRDSMetadata     , gdsrsDataSizeInBytes     , gdsrsDataSourceSchema-    , gdsrsName     , gdsrsCreatedByIAMUser+    , gdsrsName     , gdsrsLogURI     , gdsrsDataLocationS3     , gdsrsComputeStatistics     , gdsrsMessage     , gdsrsRedshiftMetadata-    , gdsrsRoleARN     , gdsrsDataRearrangement-    , gdsrsStatus+    , gdsrsRoleARN+    , gdsrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -106,21 +107,22 @@           = receiveJSON               (\ s h x ->                  GetDataSourceResponse' <$>-                   (x .?> "NumberOfFiles") <*> (x .?> "LastUpdatedAt")+                   (x .?> "Status") <*> (x .?> "NumberOfFiles") <*>+                     (x .?> "LastUpdatedAt")                      <*> (x .?> "CreatedAt")-                     <*> (x .?> "RDSMetadata")                      <*> (x .?> "DataSourceId")+                     <*> (x .?> "RDSMetadata")                      <*> (x .?> "DataSizeInBytes")                      <*> (x .?> "DataSourceSchema")-                     <*> (x .?> "Name")                      <*> (x .?> "CreatedByIamUser")+                     <*> (x .?> "Name")                      <*> (x .?> "LogUri")                      <*> (x .?> "DataLocationS3")                      <*> (x .?> "ComputeStatistics")                      <*> (x .?> "Message")                      <*> (x .?> "RedshiftMetadata")-                     <*> (x .?> "RoleARN")                      <*> (x .?> "DataRearrangement")+                     <*> (x .?> "RoleARN")                      <*> (pure (fromEnum s)))  instance ToHeaders GetDataSource where@@ -150,47 +152,50 @@ -- -- /See:/ 'getDataSourceResponse' smart constructor. data GetDataSourceResponse = GetDataSourceResponse'-    { _gdsrsNumberOfFiles     :: !(Maybe Integer)+    { _gdsrsStatus            :: !(Maybe EntityStatus)+    , _gdsrsNumberOfFiles     :: !(Maybe Integer)     , _gdsrsLastUpdatedAt     :: !(Maybe POSIX)     , _gdsrsCreatedAt         :: !(Maybe POSIX)-    , _gdsrsRDSMetadata       :: !(Maybe RDSMetadata)     , _gdsrsDataSourceId      :: !(Maybe Text)+    , _gdsrsRDSMetadata       :: !(Maybe RDSMetadata)     , _gdsrsDataSizeInBytes   :: !(Maybe Integer)     , _gdsrsDataSourceSchema  :: !(Maybe Text)-    , _gdsrsName              :: !(Maybe Text)     , _gdsrsCreatedByIAMUser  :: !(Maybe Text)+    , _gdsrsName              :: !(Maybe Text)     , _gdsrsLogURI            :: !(Maybe Text)     , _gdsrsDataLocationS3    :: !(Maybe Text)     , _gdsrsComputeStatistics :: !(Maybe Bool)     , _gdsrsMessage           :: !(Maybe Text)     , _gdsrsRedshiftMetadata  :: !(Maybe RedshiftMetadata)-    , _gdsrsRoleARN           :: !(Maybe Text)     , _gdsrsDataRearrangement :: !(Maybe Text)-    , _gdsrsStatus            :: !Int+    , _gdsrsRoleARN           :: !(Maybe Text)+    , _gdsrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetDataSourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gdsrsStatus'+-- -- * 'gdsrsNumberOfFiles' -- -- * 'gdsrsLastUpdatedAt' -- -- * 'gdsrsCreatedAt' ----- * 'gdsrsRDSMetadata'--- -- * 'gdsrsDataSourceId' --+-- * 'gdsrsRDSMetadata'+-- -- * 'gdsrsDataSizeInBytes' -- -- * 'gdsrsDataSourceSchema' ----- * 'gdsrsName'--- -- * 'gdsrsCreatedByIAMUser' --+-- * 'gdsrsName'+-- -- * 'gdsrsLogURI' -- -- * 'gdsrsDataLocationS3'@@ -201,35 +206,49 @@ -- -- * 'gdsrsRedshiftMetadata' ----- * 'gdsrsRoleARN'--- -- * 'gdsrsDataRearrangement' ----- * 'gdsrsStatus'+-- * 'gdsrsRoleARN'+--+-- * 'gdsrsResponseStatus' getDataSourceResponse-    :: Int -- ^ 'gdsrsStatus'+    :: Int -- ^ 'gdsrsResponseStatus'     -> GetDataSourceResponse-getDataSourceResponse pStatus_ =+getDataSourceResponse pResponseStatus_ =     GetDataSourceResponse'-    { _gdsrsNumberOfFiles = Nothing+    { _gdsrsStatus = Nothing+    , _gdsrsNumberOfFiles = Nothing     , _gdsrsLastUpdatedAt = Nothing     , _gdsrsCreatedAt = Nothing-    , _gdsrsRDSMetadata = Nothing     , _gdsrsDataSourceId = Nothing+    , _gdsrsRDSMetadata = Nothing     , _gdsrsDataSizeInBytes = Nothing     , _gdsrsDataSourceSchema = Nothing-    , _gdsrsName = Nothing     , _gdsrsCreatedByIAMUser = Nothing+    , _gdsrsName = Nothing     , _gdsrsLogURI = Nothing     , _gdsrsDataLocationS3 = Nothing     , _gdsrsComputeStatistics = Nothing     , _gdsrsMessage = Nothing     , _gdsrsRedshiftMetadata = Nothing-    , _gdsrsRoleARN = Nothing     , _gdsrsDataRearrangement = Nothing-    , _gdsrsStatus = pStatus_+    , _gdsrsRoleARN = Nothing+    , _gdsrsResponseStatus = pResponseStatus_     } +-- | The current status of the 'DataSource'. This element can have one of the+-- following values:+--+-- -   'PENDING' - Amazon Machine Language (Amazon ML) submitted a request+--     to create a 'DataSource'.+-- -   'INPROGRESS' - The creation process is underway.+-- -   'FAILED' - The request to create a 'DataSource' did not run to+--     completion. It is not usable.+-- -   'COMPLETED' - The creation process completed successfully.+-- -   'DELETED' - The 'DataSource' is marked as deleted. It is not usable.+gdsrsStatus :: Lens' GetDataSourceResponse (Maybe EntityStatus)+gdsrsStatus = lens _gdsrsStatus (\ s a -> s{_gdsrsStatus = a});+ -- | The number of data files referenced by the 'DataSource'. gdsrsNumberOfFiles :: Lens' GetDataSourceResponse (Maybe Integer) gdsrsNumberOfFiles = lens _gdsrsNumberOfFiles (\ s a -> s{_gdsrsNumberOfFiles = a});@@ -244,15 +263,15 @@ gdsrsCreatedAt :: Lens' GetDataSourceResponse (Maybe UTCTime) gdsrsCreatedAt = lens _gdsrsCreatedAt (\ s a -> s{_gdsrsCreatedAt = a}) . mapping _Time; --- | Undocumented member.-gdsrsRDSMetadata :: Lens' GetDataSourceResponse (Maybe RDSMetadata)-gdsrsRDSMetadata = lens _gdsrsRDSMetadata (\ s a -> s{_gdsrsRDSMetadata = a});- -- | The ID assigned to the 'DataSource' at creation. This value should be -- identical to the value of the 'DataSourceId' in the request. gdsrsDataSourceId :: Lens' GetDataSourceResponse (Maybe Text) gdsrsDataSourceId = lens _gdsrsDataSourceId (\ s a -> s{_gdsrsDataSourceId = a}); +-- | Undocumented member.+gdsrsRDSMetadata :: Lens' GetDataSourceResponse (Maybe RDSMetadata)+gdsrsRDSMetadata = lens _gdsrsRDSMetadata (\ s a -> s{_gdsrsRDSMetadata = a});+ -- | The total size of observations in the data files. gdsrsDataSizeInBytes :: Lens' GetDataSourceResponse (Maybe Integer) gdsrsDataSizeInBytes = lens _gdsrsDataSizeInBytes (\ s a -> s{_gdsrsDataSizeInBytes = a});@@ -265,16 +284,16 @@ gdsrsDataSourceSchema :: Lens' GetDataSourceResponse (Maybe Text) gdsrsDataSourceSchema = lens _gdsrsDataSourceSchema (\ s a -> s{_gdsrsDataSourceSchema = a}); --- | A user-supplied name or description of the 'DataSource'.-gdsrsName :: Lens' GetDataSourceResponse (Maybe Text)-gdsrsName = lens _gdsrsName (\ s a -> s{_gdsrsName = a});- -- | The AWS user account from which the 'DataSource' was created. The -- account type can be either an AWS root account or an AWS Identity and -- Access Management (IAM) user account. gdsrsCreatedByIAMUser :: Lens' GetDataSourceResponse (Maybe Text) gdsrsCreatedByIAMUser = lens _gdsrsCreatedByIAMUser (\ s a -> s{_gdsrsCreatedByIAMUser = a}); +-- | A user-supplied name or description of the 'DataSource'.+gdsrsName :: Lens' GetDataSourceResponse (Maybe Text)+gdsrsName = lens _gdsrsName (\ s a -> s{_gdsrsName = a});+ -- | A link to the file containining logs of either create 'DataSource' -- operation. gdsrsLogURI :: Lens' GetDataSourceResponse (Maybe Text)@@ -299,15 +318,15 @@ gdsrsRedshiftMetadata :: Lens' GetDataSourceResponse (Maybe RedshiftMetadata) gdsrsRedshiftMetadata = lens _gdsrsRedshiftMetadata (\ s a -> s{_gdsrsRedshiftMetadata = a}); --- | Undocumented member.-gdsrsRoleARN :: Lens' GetDataSourceResponse (Maybe Text)-gdsrsRoleARN = lens _gdsrsRoleARN (\ s a -> s{_gdsrsRoleARN = a});- -- | A JSON string that captures the splitting rearrangement requirement of -- the 'DataSource'. gdsrsDataRearrangement :: Lens' GetDataSourceResponse (Maybe Text) gdsrsDataRearrangement = lens _gdsrsDataRearrangement (\ s a -> s{_gdsrsDataRearrangement = a}); +-- | Undocumented member.+gdsrsRoleARN :: Lens' GetDataSourceResponse (Maybe Text)+gdsrsRoleARN = lens _gdsrsRoleARN (\ s a -> s{_gdsrsRoleARN = a});+ -- | The response status code.-gdsrsStatus :: Lens' GetDataSourceResponse Int-gdsrsStatus = lens _gdsrsStatus (\ s a -> s{_gdsrsStatus = a});+gdsrsResponseStatus :: Lens' GetDataSourceResponse Int+gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a});

@@ -34,18 +34,19 @@     , getEvaluationResponse     , GetEvaluationResponse     -- * Response Lenses+    , gersStatus     , gersPerformanceMetrics     , gersLastUpdatedAt     , gersCreatedAt     , gersInputDataLocationS3     , gersMLModelId-    , gersName     , gersCreatedByIAMUser+    , gersName     , gersLogURI-    , gersMessage     , gersEvaluationId+    , gersMessage     , gersEvaluationDataSourceId-    , gersStatus+    , gersResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -85,16 +86,16 @@           = receiveJSON               (\ s h x ->                  GetEvaluationResponse' <$>-                   (x .?> "PerformanceMetrics") <*>+                   (x .?> "Status") <*> (x .?> "PerformanceMetrics") <*>                      (x .?> "LastUpdatedAt")                      <*> (x .?> "CreatedAt")                      <*> (x .?> "InputDataLocationS3")                      <*> (x .?> "MLModelId")-                     <*> (x .?> "Name")                      <*> (x .?> "CreatedByIamUser")+                     <*> (x .?> "Name")                      <*> (x .?> "LogUri")-                     <*> (x .?> "Message")                      <*> (x .?> "EvaluationId")+                     <*> (x .?> "Message")                      <*> (x .?> "EvaluationDataSourceId")                      <*> (pure (fromEnum s))) @@ -124,24 +125,27 @@ -- -- /See:/ 'getEvaluationResponse' smart constructor. data GetEvaluationResponse = GetEvaluationResponse'-    { _gersPerformanceMetrics     :: !(Maybe PerformanceMetrics)+    { _gersStatus                 :: !(Maybe EntityStatus)+    , _gersPerformanceMetrics     :: !(Maybe PerformanceMetrics)     , _gersLastUpdatedAt          :: !(Maybe POSIX)     , _gersCreatedAt              :: !(Maybe POSIX)     , _gersInputDataLocationS3    :: !(Maybe Text)     , _gersMLModelId              :: !(Maybe Text)-    , _gersName                   :: !(Maybe Text)     , _gersCreatedByIAMUser       :: !(Maybe Text)+    , _gersName                   :: !(Maybe Text)     , _gersLogURI                 :: !(Maybe Text)-    , _gersMessage                :: !(Maybe Text)     , _gersEvaluationId           :: !(Maybe Text)+    , _gersMessage                :: !(Maybe Text)     , _gersEvaluationDataSourceId :: !(Maybe Text)-    , _gersStatus                 :: !Int+    , _gersResponseStatus         :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetEvaluationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gersStatus'+-- -- * 'gersPerformanceMetrics' -- -- * 'gersLastUpdatedAt'@@ -152,38 +156,52 @@ -- -- * 'gersMLModelId' ----- * 'gersName'--- -- * 'gersCreatedByIAMUser' ----- * 'gersLogURI'+-- * 'gersName' ----- * 'gersMessage'+-- * 'gersLogURI' -- -- * 'gersEvaluationId' --+-- * 'gersMessage'+-- -- * 'gersEvaluationDataSourceId' ----- * 'gersStatus'+-- * 'gersResponseStatus' getEvaluationResponse-    :: Int -- ^ 'gersStatus'+    :: Int -- ^ 'gersResponseStatus'     -> GetEvaluationResponse-getEvaluationResponse pStatus_ =+getEvaluationResponse pResponseStatus_ =     GetEvaluationResponse'-    { _gersPerformanceMetrics = Nothing+    { _gersStatus = Nothing+    , _gersPerformanceMetrics = Nothing     , _gersLastUpdatedAt = Nothing     , _gersCreatedAt = Nothing     , _gersInputDataLocationS3 = Nothing     , _gersMLModelId = Nothing-    , _gersName = Nothing     , _gersCreatedByIAMUser = Nothing+    , _gersName = Nothing     , _gersLogURI = Nothing-    , _gersMessage = Nothing     , _gersEvaluationId = Nothing+    , _gersMessage = Nothing     , _gersEvaluationDataSourceId = Nothing-    , _gersStatus = pStatus_+    , _gersResponseStatus = pResponseStatus_     } +-- | The status of the evaluation. This element can have one of the following+-- values:+--+-- -   'PENDING' - Amazon Machine Language (Amazon ML) submitted a request+--     to evaluate an 'MLModel'.+-- -   'INPROGRESS' - The evaluation is underway.+-- -   'FAILED' - The request to evaluate an 'MLModel' did not run to+--     completion. It is not usable.+-- -   'COMPLETED' - The evaluation process completed successfully.+-- -   'DELETED' - The 'Evaluation' is marked as deleted. It is not usable.+gersStatus :: Lens' GetEvaluationResponse (Maybe EntityStatus)+gersStatus = lens _gersStatus (\ s a -> s{_gersStatus = a});+ -- | Measurements of how well the 'MLModel' performed using observations -- referenced by the 'DataSource'. One of the following metric is returned -- based on the type of the 'MLModel':@@ -223,32 +241,32 @@ gersMLModelId :: Lens' GetEvaluationResponse (Maybe Text) gersMLModelId = lens _gersMLModelId (\ s a -> s{_gersMLModelId = a}); --- | A user-supplied name or description of the 'Evaluation'.-gersName :: Lens' GetEvaluationResponse (Maybe Text)-gersName = lens _gersName (\ s a -> s{_gersName = a});- -- | The AWS user account that invoked the evaluation. The account type can -- be either an AWS root account or an AWS Identity and Access Management -- (IAM) user account. gersCreatedByIAMUser :: Lens' GetEvaluationResponse (Maybe Text) gersCreatedByIAMUser = lens _gersCreatedByIAMUser (\ s a -> s{_gersCreatedByIAMUser = a}); +-- | A user-supplied name or description of the 'Evaluation'.+gersName :: Lens' GetEvaluationResponse (Maybe Text)+gersName = lens _gersName (\ s a -> s{_gersName = a});+ -- | A link to the file that contains logs of the CreateEvaluation operation. gersLogURI :: Lens' GetEvaluationResponse (Maybe Text) gersLogURI = lens _gersLogURI (\ s a -> s{_gersLogURI = a}); --- | A description of the most recent details about evaluating the 'MLModel'.-gersMessage :: Lens' GetEvaluationResponse (Maybe Text)-gersMessage = lens _gersMessage (\ s a -> s{_gersMessage = a});- -- | The evaluation ID which is same as the 'EvaluationId' in the request. gersEvaluationId :: Lens' GetEvaluationResponse (Maybe Text) gersEvaluationId = lens _gersEvaluationId (\ s a -> s{_gersEvaluationId = a}); +-- | A description of the most recent details about evaluating the 'MLModel'.+gersMessage :: Lens' GetEvaluationResponse (Maybe Text)+gersMessage = lens _gersMessage (\ s a -> s{_gersMessage = a});+ -- | The 'DataSource' used for this evaluation. gersEvaluationDataSourceId :: Lens' GetEvaluationResponse (Maybe Text) gersEvaluationDataSourceId = lens _gersEvaluationDataSourceId (\ s a -> s{_gersEvaluationDataSourceId = a});  -- | The response status code.-gersStatus :: Lens' GetEvaluationResponse Int-gersStatus = lens _gersStatus (\ s a -> s{_gersStatus = a});+gersResponseStatus :: Lens' GetEvaluationResponse Int+gersResponseStatus = lens _gersResponseStatus (\ s a -> s{_gersResponseStatus = a});

@@ -37,24 +37,25 @@     , getMLModelResponse     , GetMLModelResponse     -- * Response Lenses-    , gmlmrsTrainingParameters+    , gmlmrsStatus     , gmlmrsLastUpdatedAt-    , gmlmrsCreatedAt+    , gmlmrsTrainingParameters     , gmlmrsScoreThresholdLastUpdatedAt+    , gmlmrsCreatedAt     , gmlmrsRecipe     , gmlmrsInputDataLocationS3-    , gmlmrsSizeInBytes     , gmlmrsMLModelId+    , gmlmrsSizeInBytes     , gmlmrsSchema     , gmlmrsScoreThreshold-    , gmlmrsName     , gmlmrsCreatedByIAMUser+    , gmlmrsName     , gmlmrsLogURI     , gmlmrsEndpointInfo     , gmlmrsTrainingDataSourceId     , gmlmrsMessage     , gmlmrsMLModelType-    , gmlmrsStatus+    , gmlmrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -104,18 +105,18 @@           = receiveJSON               (\ s h x ->                  GetMLModelResponse' <$>-                   (x .?> "TrainingParameters" .!@ mempty) <*>-                     (x .?> "LastUpdatedAt")-                     <*> (x .?> "CreatedAt")+                   (x .?> "Status") <*> (x .?> "LastUpdatedAt") <*>+                     (x .?> "TrainingParameters" .!@ mempty)                      <*> (x .?> "ScoreThresholdLastUpdatedAt")+                     <*> (x .?> "CreatedAt")                      <*> (x .?> "Recipe")                      <*> (x .?> "InputDataLocationS3")-                     <*> (x .?> "SizeInBytes")                      <*> (x .?> "MLModelId")+                     <*> (x .?> "SizeInBytes")                      <*> (x .?> "Schema")                      <*> (x .?> "ScoreThreshold")-                     <*> (x .?> "Name")                      <*> (x .?> "CreatedByIamUser")+                     <*> (x .?> "Name")                      <*> (x .?> "LogUri")                      <*> (x .?> "EndpointInfo")                      <*> (x .?> "TrainingDataSourceId")@@ -150,54 +151,57 @@ -- -- /See:/ 'getMLModelResponse' smart constructor. data GetMLModelResponse = GetMLModelResponse'-    { _gmlmrsTrainingParameters          :: !(Maybe (Map Text Text))+    { _gmlmrsStatus                      :: !(Maybe EntityStatus)     , _gmlmrsLastUpdatedAt               :: !(Maybe POSIX)-    , _gmlmrsCreatedAt                   :: !(Maybe POSIX)+    , _gmlmrsTrainingParameters          :: !(Maybe (Map Text Text))     , _gmlmrsScoreThresholdLastUpdatedAt :: !(Maybe POSIX)+    , _gmlmrsCreatedAt                   :: !(Maybe POSIX)     , _gmlmrsRecipe                      :: !(Maybe Text)     , _gmlmrsInputDataLocationS3         :: !(Maybe Text)-    , _gmlmrsSizeInBytes                 :: !(Maybe Integer)     , _gmlmrsMLModelId                   :: !(Maybe Text)+    , _gmlmrsSizeInBytes                 :: !(Maybe Integer)     , _gmlmrsSchema                      :: !(Maybe Text)     , _gmlmrsScoreThreshold              :: !(Maybe Double)-    , _gmlmrsName                        :: !(Maybe Text)     , _gmlmrsCreatedByIAMUser            :: !(Maybe Text)+    , _gmlmrsName                        :: !(Maybe Text)     , _gmlmrsLogURI                      :: !(Maybe Text)     , _gmlmrsEndpointInfo                :: !(Maybe RealtimeEndpointInfo)     , _gmlmrsTrainingDataSourceId        :: !(Maybe Text)     , _gmlmrsMessage                     :: !(Maybe Text)     , _gmlmrsMLModelType                 :: !(Maybe MLModelType)-    , _gmlmrsStatus                      :: !Int+    , _gmlmrsResponseStatus              :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetMLModelResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gmlmrsTrainingParameters'+-- * 'gmlmrsStatus' -- -- * 'gmlmrsLastUpdatedAt' ----- * 'gmlmrsCreatedAt'+-- * 'gmlmrsTrainingParameters' -- -- * 'gmlmrsScoreThresholdLastUpdatedAt' --+-- * 'gmlmrsCreatedAt'+-- -- * 'gmlmrsRecipe' -- -- * 'gmlmrsInputDataLocationS3' ----- * 'gmlmrsSizeInBytes'--- -- * 'gmlmrsMLModelId' --+-- * 'gmlmrsSizeInBytes'+-- -- * 'gmlmrsSchema' -- -- * 'gmlmrsScoreThreshold' ----- * 'gmlmrsName'--- -- * 'gmlmrsCreatedByIAMUser' --+-- * 'gmlmrsName'+-- -- * 'gmlmrsLogURI' -- -- * 'gmlmrsEndpointInfo'@@ -208,32 +212,50 @@ -- -- * 'gmlmrsMLModelType' ----- * 'gmlmrsStatus'+-- * 'gmlmrsResponseStatus' getMLModelResponse-    :: Int -- ^ 'gmlmrsStatus'+    :: Int -- ^ 'gmlmrsResponseStatus'     -> GetMLModelResponse-getMLModelResponse pStatus_ =+getMLModelResponse pResponseStatus_ =     GetMLModelResponse'-    { _gmlmrsTrainingParameters = Nothing+    { _gmlmrsStatus = Nothing     , _gmlmrsLastUpdatedAt = Nothing-    , _gmlmrsCreatedAt = Nothing+    , _gmlmrsTrainingParameters = Nothing     , _gmlmrsScoreThresholdLastUpdatedAt = Nothing+    , _gmlmrsCreatedAt = Nothing     , _gmlmrsRecipe = Nothing     , _gmlmrsInputDataLocationS3 = Nothing-    , _gmlmrsSizeInBytes = Nothing     , _gmlmrsMLModelId = Nothing+    , _gmlmrsSizeInBytes = Nothing     , _gmlmrsSchema = Nothing     , _gmlmrsScoreThreshold = Nothing-    , _gmlmrsName = Nothing     , _gmlmrsCreatedByIAMUser = Nothing+    , _gmlmrsName = Nothing     , _gmlmrsLogURI = Nothing     , _gmlmrsEndpointInfo = Nothing     , _gmlmrsTrainingDataSourceId = Nothing     , _gmlmrsMessage = Nothing     , _gmlmrsMLModelType = Nothing-    , _gmlmrsStatus = pStatus_+    , _gmlmrsResponseStatus = pResponseStatus_     } +-- | The current status of the 'MLModel'. This element can have one of the+-- following values:+--+-- -   'PENDING' - Amazon Machine Learning (Amazon ML) submitted a request+--     to describe a 'MLModel'.+-- -   'INPROGRESS' - The request is processing.+-- -   'FAILED' - The request did not run to completion. It is not usable.+-- -   'COMPLETED' - The request completed successfully.+-- -   'DELETED' - The 'MLModel' is marked as deleted. It is not usable.+gmlmrsStatus :: Lens' GetMLModelResponse (Maybe EntityStatus)+gmlmrsStatus = lens _gmlmrsStatus (\ s a -> s{_gmlmrsStatus = a});++-- | The time of the most recent edit to the 'MLModel'. The time is expressed+-- in epoch time.+gmlmrsLastUpdatedAt :: Lens' GetMLModelResponse (Maybe UTCTime)+gmlmrsLastUpdatedAt = lens _gmlmrsLastUpdatedAt (\ s a -> s{_gmlmrsLastUpdatedAt = a}) . mapping _Time;+ -- | A list of the training parameters in the 'MLModel'. The list is -- implemented as a map of key\/value pairs. --@@ -273,21 +295,16 @@ gmlmrsTrainingParameters :: Lens' GetMLModelResponse (HashMap Text Text) gmlmrsTrainingParameters = lens _gmlmrsTrainingParameters (\ s a -> s{_gmlmrsTrainingParameters = a}) . _Default . _Map; --- | The time of the most recent edit to the 'MLModel'. The time is expressed--- in epoch time.-gmlmrsLastUpdatedAt :: Lens' GetMLModelResponse (Maybe UTCTime)-gmlmrsLastUpdatedAt = lens _gmlmrsLastUpdatedAt (\ s a -> s{_gmlmrsLastUpdatedAt = a}) . mapping _Time;+-- | The time of the most recent edit to the 'ScoreThreshold'. The time is+-- expressed in epoch time.+gmlmrsScoreThresholdLastUpdatedAt :: Lens' GetMLModelResponse (Maybe UTCTime)+gmlmrsScoreThresholdLastUpdatedAt = lens _gmlmrsScoreThresholdLastUpdatedAt (\ s a -> s{_gmlmrsScoreThresholdLastUpdatedAt = a}) . mapping _Time;  -- | The time that the 'MLModel' was created. The time is expressed in epoch -- time. gmlmrsCreatedAt :: Lens' GetMLModelResponse (Maybe UTCTime) gmlmrsCreatedAt = lens _gmlmrsCreatedAt (\ s a -> s{_gmlmrsCreatedAt = a}) . mapping _Time; --- | The time of the most recent edit to the 'ScoreThreshold'. The time is--- expressed in epoch time.-gmlmrsScoreThresholdLastUpdatedAt :: Lens' GetMLModelResponse (Maybe UTCTime)-gmlmrsScoreThresholdLastUpdatedAt = lens _gmlmrsScoreThresholdLastUpdatedAt (\ s a -> s{_gmlmrsScoreThresholdLastUpdatedAt = a}) . mapping _Time;- -- | The recipe to use when training the 'MLModel'. The 'Recipe' provides -- detailed information about the observation data to use during training, -- as well as manipulations to perform on the observation data during@@ -304,14 +321,14 @@ gmlmrsInputDataLocationS3 :: Lens' GetMLModelResponse (Maybe Text) gmlmrsInputDataLocationS3 = lens _gmlmrsInputDataLocationS3 (\ s a -> s{_gmlmrsInputDataLocationS3 = a}); --- | Undocumented member.-gmlmrsSizeInBytes :: Lens' GetMLModelResponse (Maybe Integer)-gmlmrsSizeInBytes = lens _gmlmrsSizeInBytes (\ s a -> s{_gmlmrsSizeInBytes = a});- -- | The MLModel ID which is same as the 'MLModelId' in the request. gmlmrsMLModelId :: Lens' GetMLModelResponse (Maybe Text) gmlmrsMLModelId = lens _gmlmrsMLModelId (\ s a -> s{_gmlmrsMLModelId = a}); +-- | Undocumented member.+gmlmrsSizeInBytes :: Lens' GetMLModelResponse (Maybe Integer)+gmlmrsSizeInBytes = lens _gmlmrsSizeInBytes (\ s a -> s{_gmlmrsSizeInBytes = a});+ -- | The schema used by all of the data files referenced by the 'DataSource'. -- -- Note@@ -330,16 +347,16 @@ gmlmrsScoreThreshold :: Lens' GetMLModelResponse (Maybe Double) gmlmrsScoreThreshold = lens _gmlmrsScoreThreshold (\ s a -> s{_gmlmrsScoreThreshold = a}); --- | A user-supplied name or description of the 'MLModel'.-gmlmrsName :: Lens' GetMLModelResponse (Maybe Text)-gmlmrsName = lens _gmlmrsName (\ s a -> s{_gmlmrsName = a});- -- | The AWS user account from which the 'MLModel' was created. The account -- type can be either an AWS root account or an AWS Identity and Access -- Management (IAM) user account. gmlmrsCreatedByIAMUser :: Lens' GetMLModelResponse (Maybe Text) gmlmrsCreatedByIAMUser = lens _gmlmrsCreatedByIAMUser (\ s a -> s{_gmlmrsCreatedByIAMUser = a}); +-- | A user-supplied name or description of the 'MLModel'.+gmlmrsName :: Lens' GetMLModelResponse (Maybe Text)+gmlmrsName = lens _gmlmrsName (\ s a -> s{_gmlmrsName = a});+ -- | A link to the file that contains logs of the 'CreateMLModel' operation. gmlmrsLogURI :: Lens' GetMLModelResponse (Maybe Text) gmlmrsLogURI = lens _gmlmrsLogURI (\ s a -> s{_gmlmrsLogURI = a});@@ -369,5 +386,5 @@ gmlmrsMLModelType = lens _gmlmrsMLModelType (\ s a -> s{_gmlmrsMLModelType = a});  -- | The response status code.-gmlmrsStatus :: Lens' GetMLModelResponse Int-gmlmrsStatus = lens _gmlmrsStatus (\ s a -> s{_gmlmrsStatus = a});+gmlmrsResponseStatus :: Lens' GetMLModelResponse Int+gmlmrsResponseStatus = lens _gmlmrsResponseStatus (\ s a -> s{_gmlmrsResponseStatus = a});

@@ -42,7 +42,7 @@     , PredictResponse     -- * Response Lenses     , prsPrediction-    , prsStatus+    , prsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -124,8 +124,8 @@  -- | /See:/ 'predictResponse' smart constructor. data PredictResponse = PredictResponse'-    { _prsPrediction :: !(Maybe Prediction)-    , _prsStatus     :: !Int+    { _prsPrediction     :: !(Maybe Prediction)+    , _prsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PredictResponse' with the minimum fields required to make a request.@@ -134,14 +134,14 @@ -- -- * 'prsPrediction' ----- * 'prsStatus'+-- * 'prsResponseStatus' predictResponse-    :: Int -- ^ 'prsStatus'+    :: Int -- ^ 'prsResponseStatus'     -> PredictResponse-predictResponse pStatus_ =+predictResponse pResponseStatus_ =     PredictResponse'     { _prsPrediction = Nothing-    , _prsStatus = pStatus_+    , _prsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -149,5 +149,5 @@ prsPrediction = lens _prsPrediction (\ s a -> s{_prsPrediction = a});  -- | The response status code.-prsStatus :: Lens' PredictResponse Int-prsStatus = lens _prsStatus (\ s a -> s{_prsStatus = a});+prsResponseStatus :: Lens' PredictResponse Int+prsResponseStatus = lens _prsResponseStatus (\ s a -> s{_prsResponseStatus = a});

@@ -63,8 +63,8 @@     , bpMLModelId     , bpBatchPredictionDataSourceId     , bpBatchPredictionId-    , bpName     , bpCreatedByIAMUser+    , bpName     , bpMessage     , bpOutputURI @@ -75,17 +75,17 @@     , dsNumberOfFiles     , dsLastUpdatedAt     , dsCreatedAt-    , dsRDSMetadata     , dsDataSourceId+    , dsRDSMetadata     , dsDataSizeInBytes-    , dsName     , dsCreatedByIAMUser+    , dsName     , dsDataLocationS3     , dsComputeStatistics     , dsMessage     , dsRedshiftMetadata-    , dsRoleARN     , dsDataRearrangement+    , dsRoleARN      -- * Evaluation     , Evaluation@@ -96,27 +96,27 @@     , eCreatedAt     , eInputDataLocationS3     , eMLModelId-    , eName     , eCreatedByIAMUser-    , eMessage+    , eName     , eEvaluationId+    , eMessage     , eEvaluationDataSourceId      -- * MLModel     , MLModel     , mLModel     , mlmStatus-    , mlmTrainingParameters     , mlmLastUpdatedAt-    , mlmCreatedAt+    , mlmTrainingParameters     , mlmScoreThresholdLastUpdatedAt+    , mlmCreatedAt     , mlmInputDataLocationS3-    , mlmSizeInBytes     , mlmMLModelId+    , mlmSizeInBytes     , mlmScoreThreshold-    , mlmName     , mlmAlgorithm     , mlmCreatedByIAMUser+    , mlmName     , mlmEndpointInfo     , mlmTrainingDataSourceId     , mlmMessage

@@ -34,8 +34,8 @@     , _bpMLModelId                   :: !(Maybe Text)     , _bpBatchPredictionDataSourceId :: !(Maybe Text)     , _bpBatchPredictionId           :: !(Maybe Text)-    , _bpName                        :: !(Maybe Text)     , _bpCreatedByIAMUser            :: !(Maybe Text)+    , _bpName                        :: !(Maybe Text)     , _bpMessage                     :: !(Maybe Text)     , _bpOutputURI                   :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -58,10 +58,10 @@ -- -- * 'bpBatchPredictionId' ----- * 'bpName'--- -- * 'bpCreatedByIAMUser' --+-- * 'bpName'+-- -- * 'bpMessage' -- -- * 'bpOutputURI'@@ -76,8 +76,8 @@     , _bpMLModelId = Nothing     , _bpBatchPredictionDataSourceId = Nothing     , _bpBatchPredictionId = Nothing-    , _bpName = Nothing     , _bpCreatedByIAMUser = Nothing+    , _bpName = Nothing     , _bpMessage = Nothing     , _bpOutputURI = Nothing     }@@ -126,16 +126,16 @@ bpBatchPredictionId :: Lens' BatchPrediction (Maybe Text) bpBatchPredictionId = lens _bpBatchPredictionId (\ s a -> s{_bpBatchPredictionId = a}); --- | A user-supplied name or description of the 'BatchPrediction'.-bpName :: Lens' BatchPrediction (Maybe Text)-bpName = lens _bpName (\ s a -> s{_bpName = a});- -- | The AWS user account that invoked the 'BatchPrediction'. The account -- type can be either an AWS root account or an AWS Identity and Access -- Management (IAM) user account. bpCreatedByIAMUser :: Lens' BatchPrediction (Maybe Text) bpCreatedByIAMUser = lens _bpCreatedByIAMUser (\ s a -> s{_bpCreatedByIAMUser = a}); +-- | A user-supplied name or description of the 'BatchPrediction'.+bpName :: Lens' BatchPrediction (Maybe Text)+bpName = lens _bpName (\ s a -> s{_bpName = a});+ -- | A description of the most recent details about processing the batch -- prediction request. bpMessage :: Lens' BatchPrediction (Maybe Text)@@ -159,8 +159,8 @@                      <*> (x .:? "MLModelId")                      <*> (x .:? "BatchPredictionDataSourceId")                      <*> (x .:? "BatchPredictionId")-                     <*> (x .:? "Name")                      <*> (x .:? "CreatedByIamUser")+                     <*> (x .:? "Name")                      <*> (x .:? "Message")                      <*> (x .:? "OutputUri")) @@ -175,17 +175,17 @@     , _dsNumberOfFiles     :: !(Maybe Integer)     , _dsLastUpdatedAt     :: !(Maybe POSIX)     , _dsCreatedAt         :: !(Maybe POSIX)-    , _dsRDSMetadata       :: !(Maybe RDSMetadata)     , _dsDataSourceId      :: !(Maybe Text)+    , _dsRDSMetadata       :: !(Maybe RDSMetadata)     , _dsDataSizeInBytes   :: !(Maybe Integer)-    , _dsName              :: !(Maybe Text)     , _dsCreatedByIAMUser  :: !(Maybe Text)+    , _dsName              :: !(Maybe Text)     , _dsDataLocationS3    :: !(Maybe Text)     , _dsComputeStatistics :: !(Maybe Bool)     , _dsMessage           :: !(Maybe Text)     , _dsRedshiftMetadata  :: !(Maybe RedshiftMetadata)-    , _dsRoleARN           :: !(Maybe Text)     , _dsDataRearrangement :: !(Maybe Text)+    , _dsRoleARN           :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DataSource' with the minimum fields required to make a request.@@ -200,16 +200,16 @@ -- -- * 'dsCreatedAt' ----- * 'dsRDSMetadata'--- -- * 'dsDataSourceId' ----- * 'dsDataSizeInBytes'+-- * 'dsRDSMetadata' ----- * 'dsName'+-- * 'dsDataSizeInBytes' -- -- * 'dsCreatedByIAMUser' --+-- * 'dsName'+-- -- * 'dsDataLocationS3' -- -- * 'dsComputeStatistics'@@ -218,9 +218,9 @@ -- -- * 'dsRedshiftMetadata' ----- * 'dsRoleARN'--- -- * 'dsDataRearrangement'+--+-- * 'dsRoleARN' dataSource     :: DataSource dataSource =@@ -229,17 +229,17 @@     , _dsNumberOfFiles = Nothing     , _dsLastUpdatedAt = Nothing     , _dsCreatedAt = Nothing-    , _dsRDSMetadata = Nothing     , _dsDataSourceId = Nothing+    , _dsRDSMetadata = Nothing     , _dsDataSizeInBytes = Nothing-    , _dsName = Nothing     , _dsCreatedByIAMUser = Nothing+    , _dsName = Nothing     , _dsDataLocationS3 = Nothing     , _dsComputeStatistics = Nothing     , _dsMessage = Nothing     , _dsRedshiftMetadata = Nothing-    , _dsRoleARN = Nothing     , _dsDataRearrangement = Nothing+    , _dsRoleARN = Nothing     }  -- | The current status of the 'DataSource'. This element can have one of the@@ -269,29 +269,29 @@ dsCreatedAt :: Lens' DataSource (Maybe UTCTime) dsCreatedAt = lens _dsCreatedAt (\ s a -> s{_dsCreatedAt = a}) . mapping _Time; --- | Undocumented member.-dsRDSMetadata :: Lens' DataSource (Maybe RDSMetadata)-dsRDSMetadata = lens _dsRDSMetadata (\ s a -> s{_dsRDSMetadata = a});- -- | The ID that is assigned to the 'DataSource' during creation. dsDataSourceId :: Lens' DataSource (Maybe Text) dsDataSourceId = lens _dsDataSourceId (\ s a -> s{_dsDataSourceId = a}); +-- | Undocumented member.+dsRDSMetadata :: Lens' DataSource (Maybe RDSMetadata)+dsRDSMetadata = lens _dsRDSMetadata (\ s a -> s{_dsRDSMetadata = a});+ -- | The total number of observations contained in the data files that the -- 'DataSource' references. dsDataSizeInBytes :: Lens' DataSource (Maybe Integer) dsDataSizeInBytes = lens _dsDataSizeInBytes (\ s a -> s{_dsDataSizeInBytes = a}); --- | A user-supplied name or description of the 'DataSource'.-dsName :: Lens' DataSource (Maybe Text)-dsName = lens _dsName (\ s a -> s{_dsName = a});- -- | The AWS user account from which the 'DataSource' was created. The -- account type can be either an AWS root account or an AWS Identity and -- Access Management (IAM) user account. dsCreatedByIAMUser :: Lens' DataSource (Maybe Text) dsCreatedByIAMUser = lens _dsCreatedByIAMUser (\ s a -> s{_dsCreatedByIAMUser = a}); +-- | A user-supplied name or description of the 'DataSource'.+dsName :: Lens' DataSource (Maybe Text)+dsName = lens _dsName (\ s a -> s{_dsName = a});+ -- | The location and name of the data in Amazon Simple Storage Service -- (Amazon S3) that is used by a 'DataSource'. dsDataLocationS3 :: Lens' DataSource (Maybe Text)@@ -311,15 +311,15 @@ dsRedshiftMetadata :: Lens' DataSource (Maybe RedshiftMetadata) dsRedshiftMetadata = lens _dsRedshiftMetadata (\ s a -> s{_dsRedshiftMetadata = a}); --- | Undocumented member.-dsRoleARN :: Lens' DataSource (Maybe Text)-dsRoleARN = lens _dsRoleARN (\ s a -> s{_dsRoleARN = a});- -- | A JSON string that represents the splitting requirement of a -- 'Datasource'. dsDataRearrangement :: Lens' DataSource (Maybe Text) dsDataRearrangement = lens _dsDataRearrangement (\ s a -> s{_dsDataRearrangement = a}); +-- | Undocumented member.+dsRoleARN :: Lens' DataSource (Maybe Text)+dsRoleARN = lens _dsRoleARN (\ s a -> s{_dsRoleARN = a});+ instance FromJSON DataSource where         parseJSON           = withObject "DataSource"@@ -328,17 +328,17 @@                    (x .:? "Status") <*> (x .:? "NumberOfFiles") <*>                      (x .:? "LastUpdatedAt")                      <*> (x .:? "CreatedAt")-                     <*> (x .:? "RDSMetadata")                      <*> (x .:? "DataSourceId")+                     <*> (x .:? "RDSMetadata")                      <*> (x .:? "DataSizeInBytes")-                     <*> (x .:? "Name")                      <*> (x .:? "CreatedByIamUser")+                     <*> (x .:? "Name")                      <*> (x .:? "DataLocationS3")                      <*> (x .:? "ComputeStatistics")                      <*> (x .:? "Message")                      <*> (x .:? "RedshiftMetadata")-                     <*> (x .:? "RoleARN")-                     <*> (x .:? "DataRearrangement"))+                     <*> (x .:? "DataRearrangement")+                     <*> (x .:? "RoleARN"))  -- | Represents the output of GetEvaluation operation. --@@ -353,10 +353,10 @@     , _eCreatedAt              :: !(Maybe POSIX)     , _eInputDataLocationS3    :: !(Maybe Text)     , _eMLModelId              :: !(Maybe Text)-    , _eName                   :: !(Maybe Text)     , _eCreatedByIAMUser       :: !(Maybe Text)-    , _eMessage                :: !(Maybe Text)+    , _eName                   :: !(Maybe Text)     , _eEvaluationId           :: !(Maybe Text)+    , _eMessage                :: !(Maybe Text)     , _eEvaluationDataSourceId :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -376,14 +376,14 @@ -- -- * 'eMLModelId' ----- * 'eName'--- -- * 'eCreatedByIAMUser' ----- * 'eMessage'+-- * 'eName' -- -- * 'eEvaluationId' --+-- * 'eMessage'+-- -- * 'eEvaluationDataSourceId' evaluation     :: Evaluation@@ -395,10 +395,10 @@     , _eCreatedAt = Nothing     , _eInputDataLocationS3 = Nothing     , _eMLModelId = Nothing-    , _eName = Nothing     , _eCreatedByIAMUser = Nothing-    , _eMessage = Nothing+    , _eName = Nothing     , _eEvaluationId = Nothing+    , _eMessage = Nothing     , _eEvaluationDataSourceId = Nothing     } @@ -454,24 +454,24 @@ eMLModelId :: Lens' Evaluation (Maybe Text) eMLModelId = lens _eMLModelId (\ s a -> s{_eMLModelId = a}); --- | A user-supplied name or description of the 'Evaluation'.-eName :: Lens' Evaluation (Maybe Text)-eName = lens _eName (\ s a -> s{_eName = a});- -- | The AWS user account that invoked the evaluation. The account type can -- be either an AWS root account or an AWS Identity and Access Management -- (IAM) user account. eCreatedByIAMUser :: Lens' Evaluation (Maybe Text) eCreatedByIAMUser = lens _eCreatedByIAMUser (\ s a -> s{_eCreatedByIAMUser = a}); --- | A description of the most recent details about evaluating the 'MLModel'.-eMessage :: Lens' Evaluation (Maybe Text)-eMessage = lens _eMessage (\ s a -> s{_eMessage = a});+-- | A user-supplied name or description of the 'Evaluation'.+eName :: Lens' Evaluation (Maybe Text)+eName = lens _eName (\ s a -> s{_eName = a});  -- | The ID that is assigned to the 'Evaluation' at creation. eEvaluationId :: Lens' Evaluation (Maybe Text) eEvaluationId = lens _eEvaluationId (\ s a -> s{_eEvaluationId = a}); +-- | A description of the most recent details about evaluating the 'MLModel'.+eMessage :: Lens' Evaluation (Maybe Text)+eMessage = lens _eMessage (\ s a -> s{_eMessage = a});+ -- | The ID of the 'DataSource' that is used to evaluate the 'MLModel'. eEvaluationDataSourceId :: Lens' Evaluation (Maybe Text) eEvaluationDataSourceId = lens _eEvaluationDataSourceId (\ s a -> s{_eEvaluationDataSourceId = a});@@ -486,10 +486,10 @@                      <*> (x .:? "CreatedAt")                      <*> (x .:? "InputDataLocationS3")                      <*> (x .:? "MLModelId")-                     <*> (x .:? "Name")                      <*> (x .:? "CreatedByIamUser")-                     <*> (x .:? "Message")+                     <*> (x .:? "Name")                      <*> (x .:? "EvaluationId")+                     <*> (x .:? "Message")                      <*> (x .:? "EvaluationDataSourceId"))  -- | Represents the output of a GetMLModel operation.@@ -500,17 +500,17 @@ -- /See:/ 'mLModel' smart constructor. data MLModel = MLModel'     { _mlmStatus                      :: !(Maybe EntityStatus)-    , _mlmTrainingParameters          :: !(Maybe (Map Text Text))     , _mlmLastUpdatedAt               :: !(Maybe POSIX)-    , _mlmCreatedAt                   :: !(Maybe POSIX)+    , _mlmTrainingParameters          :: !(Maybe (Map Text Text))     , _mlmScoreThresholdLastUpdatedAt :: !(Maybe POSIX)+    , _mlmCreatedAt                   :: !(Maybe POSIX)     , _mlmInputDataLocationS3         :: !(Maybe Text)-    , _mlmSizeInBytes                 :: !(Maybe Integer)     , _mlmMLModelId                   :: !(Maybe Text)+    , _mlmSizeInBytes                 :: !(Maybe Integer)     , _mlmScoreThreshold              :: !(Maybe Double)-    , _mlmName                        :: !(Maybe Text)     , _mlmAlgorithm                   :: !(Maybe Algorithm)     , _mlmCreatedByIAMUser            :: !(Maybe Text)+    , _mlmName                        :: !(Maybe Text)     , _mlmEndpointInfo                :: !(Maybe RealtimeEndpointInfo)     , _mlmTrainingDataSourceId        :: !(Maybe Text)     , _mlmMessage                     :: !(Maybe Text)@@ -523,28 +523,28 @@ -- -- * 'mlmStatus' ----- * 'mlmTrainingParameters'--- -- * 'mlmLastUpdatedAt' ----- * 'mlmCreatedAt'+-- * 'mlmTrainingParameters' -- -- * 'mlmScoreThresholdLastUpdatedAt' ----- * 'mlmInputDataLocationS3'+-- * 'mlmCreatedAt' ----- * 'mlmSizeInBytes'+-- * 'mlmInputDataLocationS3' -- -- * 'mlmMLModelId' ----- * 'mlmScoreThreshold'+-- * 'mlmSizeInBytes' ----- * 'mlmName'+-- * 'mlmScoreThreshold' -- -- * 'mlmAlgorithm' -- -- * 'mlmCreatedByIAMUser' --+-- * 'mlmName'+-- -- * 'mlmEndpointInfo' -- -- * 'mlmTrainingDataSourceId'@@ -557,17 +557,17 @@ mLModel =     MLModel'     { _mlmStatus = Nothing-    , _mlmTrainingParameters = Nothing     , _mlmLastUpdatedAt = Nothing-    , _mlmCreatedAt = Nothing+    , _mlmTrainingParameters = Nothing     , _mlmScoreThresholdLastUpdatedAt = Nothing+    , _mlmCreatedAt = Nothing     , _mlmInputDataLocationS3 = Nothing-    , _mlmSizeInBytes = Nothing     , _mlmMLModelId = Nothing+    , _mlmSizeInBytes = Nothing     , _mlmScoreThreshold = Nothing-    , _mlmName = Nothing     , _mlmAlgorithm = Nothing     , _mlmCreatedByIAMUser = Nothing+    , _mlmName = Nothing     , _mlmEndpointInfo = Nothing     , _mlmTrainingDataSourceId = Nothing     , _mlmMessage = Nothing@@ -587,6 +587,11 @@ mlmStatus :: Lens' MLModel (Maybe EntityStatus) mlmStatus = lens _mlmStatus (\ s a -> s{_mlmStatus = a}); +-- | The time of the most recent edit to the 'MLModel'. The time is expressed+-- in epoch time.+mlmLastUpdatedAt :: Lens' MLModel (Maybe UTCTime)+mlmLastUpdatedAt = lens _mlmLastUpdatedAt (\ s a -> s{_mlmLastUpdatedAt = a}) . mapping _Time;+ -- | A list of the training parameters in the 'MLModel'. The list is -- implemented as a map of key\/value pairs. --@@ -626,42 +631,33 @@ mlmTrainingParameters :: Lens' MLModel (HashMap Text Text) mlmTrainingParameters = lens _mlmTrainingParameters (\ s a -> s{_mlmTrainingParameters = a}) . _Default . _Map; --- | The time of the most recent edit to the 'MLModel'. The time is expressed--- in epoch time.-mlmLastUpdatedAt :: Lens' MLModel (Maybe UTCTime)-mlmLastUpdatedAt = lens _mlmLastUpdatedAt (\ s a -> s{_mlmLastUpdatedAt = a}) . mapping _Time;+-- | The time of the most recent edit to the 'ScoreThreshold'. The time is+-- expressed in epoch time.+mlmScoreThresholdLastUpdatedAt :: Lens' MLModel (Maybe UTCTime)+mlmScoreThresholdLastUpdatedAt = lens _mlmScoreThresholdLastUpdatedAt (\ s a -> s{_mlmScoreThresholdLastUpdatedAt = a}) . mapping _Time;  -- | The time that the 'MLModel' was created. The time is expressed in epoch -- time. mlmCreatedAt :: Lens' MLModel (Maybe UTCTime) mlmCreatedAt = lens _mlmCreatedAt (\ s a -> s{_mlmCreatedAt = a}) . mapping _Time; --- | The time of the most recent edit to the 'ScoreThreshold'. The time is--- expressed in epoch time.-mlmScoreThresholdLastUpdatedAt :: Lens' MLModel (Maybe UTCTime)-mlmScoreThresholdLastUpdatedAt = lens _mlmScoreThresholdLastUpdatedAt (\ s a -> s{_mlmScoreThresholdLastUpdatedAt = a}) . mapping _Time;- -- | The location of the data file or directory in Amazon Simple Storage -- Service (Amazon S3). mlmInputDataLocationS3 :: Lens' MLModel (Maybe Text) mlmInputDataLocationS3 = lens _mlmInputDataLocationS3 (\ s a -> s{_mlmInputDataLocationS3 = a}); --- | Undocumented member.-mlmSizeInBytes :: Lens' MLModel (Maybe Integer)-mlmSizeInBytes = lens _mlmSizeInBytes (\ s a -> s{_mlmSizeInBytes = a});- -- | The ID assigned to the 'MLModel' at creation. mlmMLModelId :: Lens' MLModel (Maybe Text) mlmMLModelId = lens _mlmMLModelId (\ s a -> s{_mlmMLModelId = a});  -- | Undocumented member.+mlmSizeInBytes :: Lens' MLModel (Maybe Integer)+mlmSizeInBytes = lens _mlmSizeInBytes (\ s a -> s{_mlmSizeInBytes = a});++-- | Undocumented member. mlmScoreThreshold :: Lens' MLModel (Maybe Double) mlmScoreThreshold = lens _mlmScoreThreshold (\ s a -> s{_mlmScoreThreshold = a}); --- | A user-supplied name or description of the 'MLModel'.-mlmName :: Lens' MLModel (Maybe Text)-mlmName = lens _mlmName (\ s a -> s{_mlmName = a});- -- | The algorithm used to train the 'MLModel'. The following algorithm is -- supported: --@@ -676,6 +672,10 @@ mlmCreatedByIAMUser :: Lens' MLModel (Maybe Text) mlmCreatedByIAMUser = lens _mlmCreatedByIAMUser (\ s a -> s{_mlmCreatedByIAMUser = a}); +-- | A user-supplied name or description of the 'MLModel'.+mlmName :: Lens' MLModel (Maybe Text)+mlmName = lens _mlmName (\ s a -> s{_mlmName = a});+ -- | The current endpoint of the 'MLModel'. mlmEndpointInfo :: Lens' MLModel (Maybe RealtimeEndpointInfo) mlmEndpointInfo = lens _mlmEndpointInfo (\ s a -> s{_mlmEndpointInfo = a});@@ -706,18 +706,17 @@           = withObject "MLModel"               (\ x ->                  MLModel' <$>-                   (x .:? "Status") <*>+                   (x .:? "Status") <*> (x .:? "LastUpdatedAt") <*>                      (x .:? "TrainingParameters" .!= mempty)-                     <*> (x .:? "LastUpdatedAt")-                     <*> (x .:? "CreatedAt")                      <*> (x .:? "ScoreThresholdLastUpdatedAt")+                     <*> (x .:? "CreatedAt")                      <*> (x .:? "InputDataLocationS3")-                     <*> (x .:? "SizeInBytes")                      <*> (x .:? "MLModelId")+                     <*> (x .:? "SizeInBytes")                      <*> (x .:? "ScoreThreshold")-                     <*> (x .:? "Name")                      <*> (x .:? "Algorithm")                      <*> (x .:? "CreatedByIamUser")+                     <*> (x .:? "Name")                      <*> (x .:? "EndpointInfo")                      <*> (x .:? "TrainingDataSourceId")                      <*> (x .:? "Message")

@@ -195,30 +195,30 @@ -- -   COMPLETED -- -   DELETED data EntityStatus-    = Completed-    | Deleted-    | Failed-    | Inprogress-    | Pending+    = ESCompleted+    | ESDeleted+    | ESFailed+    | ESInprogress+    | ESPending     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)  instance FromText EntityStatus where     parser = takeLowerText >>= \case-        "completed" -> pure Completed-        "deleted" -> pure Deleted-        "failed" -> pure Failed-        "inprogress" -> pure Inprogress-        "pending" -> pure Pending+        "completed" -> pure ESCompleted+        "deleted" -> pure ESDeleted+        "failed" -> pure ESFailed+        "inprogress" -> pure ESInprogress+        "pending" -> pure ESPending         e -> fromTextError $ "Failure parsing EntityStatus from value: '" <> e            <> "'. Accepted values: COMPLETED, DELETED, FAILED, INPROGRESS, PENDING"  instance ToText EntityStatus where     toText = \case-        Completed -> "COMPLETED"-        Deleted -> "DELETED"-        Failed -> "FAILED"-        Inprogress -> "INPROGRESS"-        Pending -> "PENDING"+        ESCompleted -> "COMPLETED"+        ESDeleted -> "DELETED"+        ESFailed -> "FAILED"+        ESInprogress -> "INPROGRESS"+        ESPending -> "PENDING"  instance Hashable     EntityStatus instance ToByteString EntityStatus@@ -368,27 +368,27 @@     parseJSON = parseJSONText "MLModelType"  data RealtimeEndpointStatus-    = RESFailed-    | RESNone-    | RESReady-    | RESUpdating+    = Failed+    | None+    | Ready+    | Updating     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)  instance FromText RealtimeEndpointStatus where     parser = takeLowerText >>= \case-        "failed" -> pure RESFailed-        "none" -> pure RESNone-        "ready" -> pure RESReady-        "updating" -> pure RESUpdating+        "failed" -> pure Failed+        "none" -> pure None+        "ready" -> pure Ready+        "updating" -> pure Updating         e -> fromTextError $ "Failure parsing RealtimeEndpointStatus from value: '" <> e            <> "'. Accepted values: FAILED, NONE, READY, UPDATING"  instance ToText RealtimeEndpointStatus where     toText = \case-        RESFailed -> "FAILED"-        RESNone -> "NONE"-        RESReady -> "READY"-        RESUpdating -> "UPDATING"+        Failed -> "FAILED"+        None -> "NONE"+        Ready -> "READY"+        Updating -> "UPDATING"  instance Hashable     RealtimeEndpointStatus instance ToByteString RealtimeEndpointStatus

@@ -38,7 +38,7 @@     , UpdateBatchPredictionResponse     -- * Response Lenses     , ubprsBatchPredictionId-    , ubprsStatus+    , ubprsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -120,7 +120,7 @@ -- /See:/ 'updateBatchPredictionResponse' smart constructor. data UpdateBatchPredictionResponse = UpdateBatchPredictionResponse'     { _ubprsBatchPredictionId :: !(Maybe Text)-    , _ubprsStatus            :: !Int+    , _ubprsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateBatchPredictionResponse' with the minimum fields required to make a request.@@ -129,14 +129,14 @@ -- -- * 'ubprsBatchPredictionId' ----- * 'ubprsStatus'+-- * 'ubprsResponseStatus' updateBatchPredictionResponse-    :: Int -- ^ 'ubprsStatus'+    :: Int -- ^ 'ubprsResponseStatus'     -> UpdateBatchPredictionResponse-updateBatchPredictionResponse pStatus_ =+updateBatchPredictionResponse pResponseStatus_ =     UpdateBatchPredictionResponse'     { _ubprsBatchPredictionId = Nothing-    , _ubprsStatus = pStatus_+    , _ubprsResponseStatus = pResponseStatus_     }  -- | The ID assigned to the 'BatchPrediction' during creation. This value@@ -146,5 +146,5 @@ ubprsBatchPredictionId = lens _ubprsBatchPredictionId (\ s a -> s{_ubprsBatchPredictionId = a});  -- | The response status code.-ubprsStatus :: Lens' UpdateBatchPredictionResponse Int-ubprsStatus = lens _ubprsStatus (\ s a -> s{_ubprsStatus = a});+ubprsResponseStatus :: Lens' UpdateBatchPredictionResponse Int+ubprsResponseStatus = lens _ubprsResponseStatus (\ s a -> s{_ubprsResponseStatus = a});

@@ -38,7 +38,7 @@     , UpdateDataSourceResponse     -- * Response Lenses     , udsrsDataSourceId-    , udsrsStatus+    , udsrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -117,8 +117,8 @@ -- -- /See:/ 'updateDataSourceResponse' smart constructor. data UpdateDataSourceResponse = UpdateDataSourceResponse'-    { _udsrsDataSourceId :: !(Maybe Text)-    , _udsrsStatus       :: !Int+    { _udsrsDataSourceId   :: !(Maybe Text)+    , _udsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateDataSourceResponse' with the minimum fields required to make a request.@@ -127,14 +127,14 @@ -- -- * 'udsrsDataSourceId' ----- * 'udsrsStatus'+-- * 'udsrsResponseStatus' updateDataSourceResponse-    :: Int -- ^ 'udsrsStatus'+    :: Int -- ^ 'udsrsResponseStatus'     -> UpdateDataSourceResponse-updateDataSourceResponse pStatus_ =+updateDataSourceResponse pResponseStatus_ =     UpdateDataSourceResponse'     { _udsrsDataSourceId = Nothing-    , _udsrsStatus = pStatus_+    , _udsrsResponseStatus = pResponseStatus_     }  -- | The ID assigned to the 'DataSource' during creation. This value should@@ -143,5 +143,5 @@ udsrsDataSourceId = lens _udsrsDataSourceId (\ s a -> s{_udsrsDataSourceId = a});  -- | The response status code.-udsrsStatus :: Lens' UpdateDataSourceResponse Int-udsrsStatus = lens _udsrsStatus (\ s a -> s{_udsrsStatus = a});+udsrsResponseStatus :: Lens' UpdateDataSourceResponse Int+udsrsResponseStatus = lens _udsrsResponseStatus (\ s a -> s{_udsrsResponseStatus = a});

@@ -38,7 +38,7 @@     , UpdateEvaluationResponse     -- * Response Lenses     , uersEvaluationId-    , uersStatus+    , uersResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -116,8 +116,8 @@ -- -- /See:/ 'updateEvaluationResponse' smart constructor. data UpdateEvaluationResponse = UpdateEvaluationResponse'-    { _uersEvaluationId :: !(Maybe Text)-    , _uersStatus       :: !Int+    { _uersEvaluationId   :: !(Maybe Text)+    , _uersResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateEvaluationResponse' with the minimum fields required to make a request.@@ -126,14 +126,14 @@ -- -- * 'uersEvaluationId' ----- * 'uersStatus'+-- * 'uersResponseStatus' updateEvaluationResponse-    :: Int -- ^ 'uersStatus'+    :: Int -- ^ 'uersResponseStatus'     -> UpdateEvaluationResponse-updateEvaluationResponse pStatus_ =+updateEvaluationResponse pResponseStatus_ =     UpdateEvaluationResponse'     { _uersEvaluationId = Nothing-    , _uersStatus = pStatus_+    , _uersResponseStatus = pResponseStatus_     }  -- | The ID assigned to the 'Evaluation' during creation. This value should@@ -142,5 +142,5 @@ uersEvaluationId = lens _uersEvaluationId (\ s a -> s{_uersEvaluationId = a});  -- | The response status code.-uersStatus :: Lens' UpdateEvaluationResponse Int-uersStatus = lens _uersStatus (\ s a -> s{_uersStatus = a});+uersResponseStatus :: Lens' UpdateEvaluationResponse Int+uersResponseStatus = lens _uersResponseStatus (\ s a -> s{_uersResponseStatus = a});

@@ -39,7 +39,7 @@     , UpdateMLModelResponse     -- * Response Lenses     , umlmrsMLModelId-    , umlmrsStatus+    , umlmrsResponseStatus     ) where  import           Network.AWS.MachineLearning.Types@@ -130,8 +130,8 @@ -- -- /See:/ 'updateMLModelResponse' smart constructor. data UpdateMLModelResponse = UpdateMLModelResponse'-    { _umlmrsMLModelId :: !(Maybe Text)-    , _umlmrsStatus    :: !Int+    { _umlmrsMLModelId      :: !(Maybe Text)+    , _umlmrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateMLModelResponse' with the minimum fields required to make a request.@@ -140,14 +140,14 @@ -- -- * 'umlmrsMLModelId' ----- * 'umlmrsStatus'+-- * 'umlmrsResponseStatus' updateMLModelResponse-    :: Int -- ^ 'umlmrsStatus'+    :: Int -- ^ 'umlmrsResponseStatus'     -> UpdateMLModelResponse-updateMLModelResponse pStatus_ =+updateMLModelResponse pResponseStatus_ =     UpdateMLModelResponse'     { _umlmrsMLModelId = Nothing-    , _umlmrsStatus = pStatus_+    , _umlmrsResponseStatus = pResponseStatus_     }  -- | The ID assigned to the 'MLModel' during creation. This value should be@@ -156,5 +156,5 @@ umlmrsMLModelId = lens _umlmrsMLModelId (\ s a -> s{_umlmrsMLModelId = a});  -- | The response status code.-umlmrsStatus :: Lens' UpdateMLModelResponse Int-umlmrsStatus = lens _umlmrsStatus (\ s a -> s{_umlmrsStatus = a});+umlmrsResponseStatus :: Lens' UpdateMLModelResponse Int+umlmrsResponseStatus = lens _umlmrsResponseStatus (\ s a -> s{_umlmrsResponseStatus = a});

@@ -28,12 +28,12 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ testDeleteDataSource $---             deleteDataSource------         , testUpdateDataSource $+--         [ testUpdateDataSource $ --             updateDataSource --+--         , testDeleteDataSource $+--             deleteDataSource+-- --         , testCreateDataSourceFromRedshift $ --             createDataSourceFromRedshift --@@ -55,32 +55,29 @@ --         , testGetDataSource $ --             getDataSource -----         , testDeleteMLModel $---             deleteMLModel------         , testUpdateMLModel $---             updateMLModel------         , testDescribeBatchPredictions $---             describeBatchPredictions--- --         , testUpdateEvaluation $ --             updateEvaluation -- --         , testDeleteEvaluation $ --             deleteEvaluation --+--         , testDeleteMLModel $+--             deleteMLModel+--+--         , testUpdateMLModel $+--             updateMLModel+-- --         , testGetBatchPrediction $ --             getBatchPrediction -----         , testCreateEvaluation $---             createEvaluation+--         , testDescribeBatchPredictions $+--             describeBatchPredictions -- --         , testCreateDataSourceFromRDS $ --             createDataSourceFromRDS -----         , testCreateBatchPrediction $---             createBatchPrediction+--         , testCreateEvaluation $+--             createEvaluation -- --         , testPredict $ --             predict@@ -88,12 +85,15 @@ --         , testDeleteRealtimeEndpoint $ --             deleteRealtimeEndpoint -----         , testDescribeEvaluations $---             describeEvaluations+--         , testCreateBatchPrediction $+--             createBatchPrediction -- --         , testGetEvaluation $ --             getEvaluation --+--         , testDescribeEvaluations $+--             describeEvaluations+-- --         , testCreateRealtimeEndpoint $ --             createRealtimeEndpoint --@@ -106,12 +106,12 @@ --           ]  --     , testGroup "response"---         [ testDeleteDataSourceResponse $---             deleteDataSourceResponse------         , testUpdateDataSourceResponse $+--         [ testUpdateDataSourceResponse $ --             updateDataSourceResponse --+--         , testDeleteDataSourceResponse $+--             deleteDataSourceResponse+-- --         , testCreateDataSourceFromRedshiftResponse $ --             createDataSourceFromRedshiftResponse --@@ -133,32 +133,29 @@ --         , testGetDataSourceResponse $ --             getDataSourceResponse -----         , testDeleteMLModelResponse $---             deleteMLModelResponse------         , testUpdateMLModelResponse $---             updateMLModelResponse------         , testDescribeBatchPredictionsResponse $---             describeBatchPredictionsResponse--- --         , testUpdateEvaluationResponse $ --             updateEvaluationResponse -- --         , testDeleteEvaluationResponse $ --             deleteEvaluationResponse --+--         , testDeleteMLModelResponse $+--             deleteMLModelResponse+--+--         , testUpdateMLModelResponse $+--             updateMLModelResponse+-- --         , testGetBatchPredictionResponse $ --             getBatchPredictionResponse -----         , testCreateEvaluationResponse $---             createEvaluationResponse+--         , testDescribeBatchPredictionsResponse $+--             describeBatchPredictionsResponse -- --         , testCreateDataSourceFromRDSResponse $ --             createDataSourceFromRDSResponse -----         , testCreateBatchPredictionResponse $---             createBatchPredictionResponse+--         , testCreateEvaluationResponse $+--             createEvaluationResponse -- --         , testPredictResponse $ --             predictResponse@@ -166,12 +163,15 @@ --         , testDeleteRealtimeEndpointResponse $ --             deleteRealtimeEndpointResponse -----         , testDescribeEvaluationsResponse $---             describeEvaluationsResponse+--         , testCreateBatchPredictionResponse $+--             createBatchPredictionResponse -- --         , testGetEvaluationResponse $ --             getEvaluationResponse --+--         , testDescribeEvaluationsResponse $+--             describeEvaluationsResponse+-- --         , testCreateRealtimeEndpointResponse $ --             createRealtimeEndpointResponse --@@ -186,16 +186,16 @@  -- Requests -testDeleteDataSource :: DeleteDataSource -> TestTree-testDeleteDataSource = req-    "DeleteDataSource"-    "fixture/DeleteDataSource.yaml"- testUpdateDataSource :: UpdateDataSource -> TestTree testUpdateDataSource = req     "UpdateDataSource"     "fixture/UpdateDataSource.yaml" +testDeleteDataSource :: DeleteDataSource -> TestTree+testDeleteDataSource = req+    "DeleteDataSource"+    "fixture/DeleteDataSource.yaml"+ testCreateDataSourceFromRedshift :: CreateDataSourceFromRedshift -> TestTree testCreateDataSourceFromRedshift = req     "CreateDataSourceFromRedshift"@@ -231,21 +231,6 @@     "GetDataSource"     "fixture/GetDataSource.yaml" -testDeleteMLModel :: DeleteMLModel -> TestTree-testDeleteMLModel = req-    "DeleteMLModel"-    "fixture/DeleteMLModel.yaml"--testUpdateMLModel :: UpdateMLModel -> TestTree-testUpdateMLModel = req-    "UpdateMLModel"-    "fixture/UpdateMLModel.yaml"--testDescribeBatchPredictions :: DescribeBatchPredictions -> TestTree-testDescribeBatchPredictions = req-    "DescribeBatchPredictions"-    "fixture/DescribeBatchPredictions.yaml"- testUpdateEvaluation :: UpdateEvaluation -> TestTree testUpdateEvaluation = req     "UpdateEvaluation"@@ -256,25 +241,35 @@     "DeleteEvaluation"     "fixture/DeleteEvaluation.yaml" +testDeleteMLModel :: DeleteMLModel -> TestTree+testDeleteMLModel = req+    "DeleteMLModel"+    "fixture/DeleteMLModel.yaml"++testUpdateMLModel :: UpdateMLModel -> TestTree+testUpdateMLModel = req+    "UpdateMLModel"+    "fixture/UpdateMLModel.yaml"+ testGetBatchPrediction :: GetBatchPrediction -> TestTree testGetBatchPrediction = req     "GetBatchPrediction"     "fixture/GetBatchPrediction.yaml" -testCreateEvaluation :: CreateEvaluation -> TestTree-testCreateEvaluation = req-    "CreateEvaluation"-    "fixture/CreateEvaluation.yaml"+testDescribeBatchPredictions :: DescribeBatchPredictions -> TestTree+testDescribeBatchPredictions = req+    "DescribeBatchPredictions"+    "fixture/DescribeBatchPredictions.yaml"  testCreateDataSourceFromRDS :: CreateDataSourceFromRDS -> TestTree testCreateDataSourceFromRDS = req     "CreateDataSourceFromRDS"     "fixture/CreateDataSourceFromRDS.yaml" -testCreateBatchPrediction :: CreateBatchPrediction -> TestTree-testCreateBatchPrediction = req-    "CreateBatchPrediction"-    "fixture/CreateBatchPrediction.yaml"+testCreateEvaluation :: CreateEvaluation -> TestTree+testCreateEvaluation = req+    "CreateEvaluation"+    "fixture/CreateEvaluation.yaml"  testPredict :: Predict -> TestTree testPredict = req@@ -286,16 +281,21 @@     "DeleteRealtimeEndpoint"     "fixture/DeleteRealtimeEndpoint.yaml" -testDescribeEvaluations :: DescribeEvaluations -> TestTree-testDescribeEvaluations = req-    "DescribeEvaluations"-    "fixture/DescribeEvaluations.yaml"+testCreateBatchPrediction :: CreateBatchPrediction -> TestTree+testCreateBatchPrediction = req+    "CreateBatchPrediction"+    "fixture/CreateBatchPrediction.yaml"  testGetEvaluation :: GetEvaluation -> TestTree testGetEvaluation = req     "GetEvaluation"     "fixture/GetEvaluation.yaml" +testDescribeEvaluations :: DescribeEvaluations -> TestTree+testDescribeEvaluations = req+    "DescribeEvaluations"+    "fixture/DescribeEvaluations.yaml"+ testCreateRealtimeEndpoint :: CreateRealtimeEndpoint -> TestTree testCreateRealtimeEndpoint = req     "CreateRealtimeEndpoint"@@ -313,13 +313,6 @@  -- Responses -testDeleteDataSourceResponse :: DeleteDataSourceResponse -> TestTree-testDeleteDataSourceResponse = res-    "DeleteDataSourceResponse"-    "fixture/DeleteDataSourceResponse.proto"-    machineLearning-    (Proxy :: Proxy DeleteDataSource)- testUpdateDataSourceResponse :: UpdateDataSourceResponse -> TestTree testUpdateDataSourceResponse = res     "UpdateDataSourceResponse"@@ -327,6 +320,13 @@     machineLearning     (Proxy :: Proxy UpdateDataSource) +testDeleteDataSourceResponse :: DeleteDataSourceResponse -> TestTree+testDeleteDataSourceResponse = res+    "DeleteDataSourceResponse"+    "fixture/DeleteDataSourceResponse.proto"+    machineLearning+    (Proxy :: Proxy DeleteDataSource)+ testCreateDataSourceFromRedshiftResponse :: CreateDataSourceFromRedshiftResponse -> TestTree testCreateDataSourceFromRedshiftResponse = res     "CreateDataSourceFromRedshiftResponse"@@ -376,27 +376,6 @@     machineLearning     (Proxy :: Proxy GetDataSource) -testDeleteMLModelResponse :: DeleteMLModelResponse -> TestTree-testDeleteMLModelResponse = res-    "DeleteMLModelResponse"-    "fixture/DeleteMLModelResponse.proto"-    machineLearning-    (Proxy :: Proxy DeleteMLModel)--testUpdateMLModelResponse :: UpdateMLModelResponse -> TestTree-testUpdateMLModelResponse = res-    "UpdateMLModelResponse"-    "fixture/UpdateMLModelResponse.proto"-    machineLearning-    (Proxy :: Proxy UpdateMLModel)--testDescribeBatchPredictionsResponse :: DescribeBatchPredictionsResponse -> TestTree-testDescribeBatchPredictionsResponse = res-    "DescribeBatchPredictionsResponse"-    "fixture/DescribeBatchPredictionsResponse.proto"-    machineLearning-    (Proxy :: Proxy DescribeBatchPredictions)- testUpdateEvaluationResponse :: UpdateEvaluationResponse -> TestTree testUpdateEvaluationResponse = res     "UpdateEvaluationResponse"@@ -411,6 +390,20 @@     machineLearning     (Proxy :: Proxy DeleteEvaluation) +testDeleteMLModelResponse :: DeleteMLModelResponse -> TestTree+testDeleteMLModelResponse = res+    "DeleteMLModelResponse"+    "fixture/DeleteMLModelResponse.proto"+    machineLearning+    (Proxy :: Proxy DeleteMLModel)++testUpdateMLModelResponse :: UpdateMLModelResponse -> TestTree+testUpdateMLModelResponse = res+    "UpdateMLModelResponse"+    "fixture/UpdateMLModelResponse.proto"+    machineLearning+    (Proxy :: Proxy UpdateMLModel)+ testGetBatchPredictionResponse :: GetBatchPredictionResponse -> TestTree testGetBatchPredictionResponse = res     "GetBatchPredictionResponse"@@ -418,12 +411,12 @@     machineLearning     (Proxy :: Proxy GetBatchPrediction) -testCreateEvaluationResponse :: CreateEvaluationResponse -> TestTree-testCreateEvaluationResponse = res-    "CreateEvaluationResponse"-    "fixture/CreateEvaluationResponse.proto"+testDescribeBatchPredictionsResponse :: DescribeBatchPredictionsResponse -> TestTree+testDescribeBatchPredictionsResponse = res+    "DescribeBatchPredictionsResponse"+    "fixture/DescribeBatchPredictionsResponse.proto"     machineLearning-    (Proxy :: Proxy CreateEvaluation)+    (Proxy :: Proxy DescribeBatchPredictions)  testCreateDataSourceFromRDSResponse :: CreateDataSourceFromRDSResponse -> TestTree testCreateDataSourceFromRDSResponse = res@@ -432,12 +425,12 @@     machineLearning     (Proxy :: Proxy CreateDataSourceFromRDS) -testCreateBatchPredictionResponse :: CreateBatchPredictionResponse -> TestTree-testCreateBatchPredictionResponse = res-    "CreateBatchPredictionResponse"-    "fixture/CreateBatchPredictionResponse.proto"+testCreateEvaluationResponse :: CreateEvaluationResponse -> TestTree+testCreateEvaluationResponse = res+    "CreateEvaluationResponse"+    "fixture/CreateEvaluationResponse.proto"     machineLearning-    (Proxy :: Proxy CreateBatchPrediction)+    (Proxy :: Proxy CreateEvaluation)  testPredictResponse :: PredictResponse -> TestTree testPredictResponse = res@@ -453,12 +446,12 @@     machineLearning     (Proxy :: Proxy DeleteRealtimeEndpoint) -testDescribeEvaluationsResponse :: DescribeEvaluationsResponse -> TestTree-testDescribeEvaluationsResponse = res-    "DescribeEvaluationsResponse"-    "fixture/DescribeEvaluationsResponse.proto"+testCreateBatchPredictionResponse :: CreateBatchPredictionResponse -> TestTree+testCreateBatchPredictionResponse = res+    "CreateBatchPredictionResponse"+    "fixture/CreateBatchPredictionResponse.proto"     machineLearning-    (Proxy :: Proxy DescribeEvaluations)+    (Proxy :: Proxy CreateBatchPrediction)  testGetEvaluationResponse :: GetEvaluationResponse -> TestTree testGetEvaluationResponse = res@@ -466,6 +459,13 @@     "fixture/GetEvaluationResponse.proto"     machineLearning     (Proxy :: Proxy GetEvaluation)++testDescribeEvaluationsResponse :: DescribeEvaluationsResponse -> TestTree+testDescribeEvaluationsResponse = res+    "DescribeEvaluationsResponse"+    "fixture/DescribeEvaluationsResponse.proto"+    machineLearning+    (Proxy :: Proxy DescribeEvaluations)  testCreateRealtimeEndpointResponse :: CreateRealtimeEndpointResponse -> TestTree testCreateRealtimeEndpointResponse = res