diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-ml.cabal b/amazonka-ml.cabal --- a/amazonka-ml.cabal +++ b/amazonka-ml.cabal @@ -1,5 +1,5 @@ name: amazonka-ml -version: 1.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 diff --git a/gen/Network/AWS/MachineLearning.hs b/gen/Network/AWS/MachineLearning.hs --- a/gen/Network/AWS/MachineLearning.hs +++ b/gen/Network/AWS/MachineLearning.hs @@ -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 diff --git a/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs b/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/CreateEvaluation.hs b/gen/Network/AWS/MachineLearning/CreateEvaluation.hs --- a/gen/Network/AWS/MachineLearning/CreateEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/CreateEvaluation.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/CreateMLModel.hs b/gen/Network/AWS/MachineLearning/CreateMLModel.hs --- a/gen/Network/AWS/MachineLearning/CreateMLModel.hs +++ b/gen/Network/AWS/MachineLearning/CreateMLModel.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs b/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs --- a/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs +++ b/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs b/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DeleteDataSource.hs b/gen/Network/AWS/MachineLearning/DeleteDataSource.hs --- a/gen/Network/AWS/MachineLearning/DeleteDataSource.hs +++ b/gen/Network/AWS/MachineLearning/DeleteDataSource.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs b/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs --- a/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DeleteMLModel.hs b/gen/Network/AWS/MachineLearning/DeleteMLModel.hs --- a/gen/Network/AWS/MachineLearning/DeleteMLModel.hs +++ b/gen/Network/AWS/MachineLearning/DeleteMLModel.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs b/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs --- a/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs +++ b/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs b/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs --- a/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs +++ b/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DescribeDataSources.hs b/gen/Network/AWS/MachineLearning/DescribeDataSources.hs --- a/gen/Network/AWS/MachineLearning/DescribeDataSources.hs +++ b/gen/Network/AWS/MachineLearning/DescribeDataSources.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs b/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs --- a/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs +++ b/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/DescribeMLModels.hs b/gen/Network/AWS/MachineLearning/DescribeMLModels.hs --- a/gen/Network/AWS/MachineLearning/DescribeMLModels.hs +++ b/gen/Network/AWS/MachineLearning/DescribeMLModels.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs b/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/GetDataSource.hs b/gen/Network/AWS/MachineLearning/GetDataSource.hs --- a/gen/Network/AWS/MachineLearning/GetDataSource.hs +++ b/gen/Network/AWS/MachineLearning/GetDataSource.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/GetEvaluation.hs b/gen/Network/AWS/MachineLearning/GetEvaluation.hs --- a/gen/Network/AWS/MachineLearning/GetEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/GetEvaluation.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/GetMLModel.hs b/gen/Network/AWS/MachineLearning/GetMLModel.hs --- a/gen/Network/AWS/MachineLearning/GetMLModel.hs +++ b/gen/Network/AWS/MachineLearning/GetMLModel.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/Predict.hs b/gen/Network/AWS/MachineLearning/Predict.hs --- a/gen/Network/AWS/MachineLearning/Predict.hs +++ b/gen/Network/AWS/MachineLearning/Predict.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/Types.hs b/gen/Network/AWS/MachineLearning/Types.hs --- a/gen/Network/AWS/MachineLearning/Types.hs +++ b/gen/Network/AWS/MachineLearning/Types.hs @@ -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 diff --git a/gen/Network/AWS/MachineLearning/Types/Product.hs b/gen/Network/AWS/MachineLearning/Types/Product.hs --- a/gen/Network/AWS/MachineLearning/Types/Product.hs +++ b/gen/Network/AWS/MachineLearning/Types/Product.hs @@ -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") diff --git a/gen/Network/AWS/MachineLearning/Types/Sum.hs b/gen/Network/AWS/MachineLearning/Types/Sum.hs --- a/gen/Network/AWS/MachineLearning/Types/Sum.hs +++ b/gen/Network/AWS/MachineLearning/Types/Sum.hs @@ -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 diff --git a/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs b/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/UpdateDataSource.hs b/gen/Network/AWS/MachineLearning/UpdateDataSource.hs --- a/gen/Network/AWS/MachineLearning/UpdateDataSource.hs +++ b/gen/Network/AWS/MachineLearning/UpdateDataSource.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs b/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs --- a/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs @@ -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}); diff --git a/gen/Network/AWS/MachineLearning/UpdateMLModel.hs b/gen/Network/AWS/MachineLearning/UpdateMLModel.hs --- a/gen/Network/AWS/MachineLearning/UpdateMLModel.hs +++ b/gen/Network/AWS/MachineLearning/UpdateMLModel.hs @@ -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}); diff --git a/test/Test/AWS/Gen/MachineLearning.hs b/test/Test/AWS/Gen/MachineLearning.hs --- a/test/Test/AWS/Gen/MachineLearning.hs +++ b/test/Test/AWS/Gen/MachineLearning.hs @@ -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