amazonka-ml 1.4.5 → 1.5.0
raw patch · 37 files changed
+1617/−1509 lines, 37 filesdep ~amazonka-coredep ~amazonka-mldep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-ml, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-ml.cabal +16/−11
- gen/Network/AWS/MachineLearning.hs +32/−32
- gen/Network/AWS/MachineLearning/AddTags.hs +33/−29
- gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs +33/−31
- gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs +35/−31
- gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs +33/−30
- gen/Network/AWS/MachineLearning/CreateDataSourceFromS3.hs +31/−29
- gen/Network/AWS/MachineLearning/CreateEvaluation.hs +31/−29
- gen/Network/AWS/MachineLearning/CreateMLModel.hs +37/−35
- gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs +27/−25
- gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs +23/−23
- gen/Network/AWS/MachineLearning/DeleteDataSource.hs +23/−23
- gen/Network/AWS/MachineLearning/DeleteEvaluation.hs +23/−23
- gen/Network/AWS/MachineLearning/DeleteMLModel.hs +23/−24
- gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs +27/−25
- gen/Network/AWS/MachineLearning/DeleteTags.hs +33/−29
- gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs +50/−45
- gen/Network/AWS/MachineLearning/DescribeDataSources.hs +50/−46
- gen/Network/AWS/MachineLearning/DescribeEvaluations.hs +50/−46
- gen/Network/AWS/MachineLearning/DescribeMLModels.hs +50/−46
- gen/Network/AWS/MachineLearning/DescribeTags.hs +30/−29
- gen/Network/AWS/MachineLearning/GetBatchPrediction.hs +57/−55
- gen/Network/AWS/MachineLearning/GetDataSource.hs +64/−63
- gen/Network/AWS/MachineLearning/GetEvaluation.hs +53/−52
- gen/Network/AWS/MachineLearning/GetMLModel.hs +66/−65
- gen/Network/AWS/MachineLearning/Predict.hs +29/−27
- gen/Network/AWS/MachineLearning/Types.hs +46/−34
- gen/Network/AWS/MachineLearning/Types/Product.hs +347/−326
- gen/Network/AWS/MachineLearning/Types/Sum.hs +78/−67
- gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs +27/−25
- gen/Network/AWS/MachineLearning/UpdateDataSource.hs +25/−25
- gen/Network/AWS/MachineLearning/UpdateEvaluation.hs +25/−25
- gen/Network/AWS/MachineLearning/UpdateMLModel.hs +29/−27
- gen/Network/AWS/MachineLearning/Waiters.hs +74/−70
- test/Main.hs +2/−2
- test/Test/AWS/Gen/MachineLearning.hs +4/−4
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.4.5`+`1.5.0` ## Description
amazonka-ml.cabal view
@@ -1,13 +1,13 @@ name: amazonka-ml-version: 1.4.5+version: 1.5.0 synopsis: Amazon Machine Learning SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues-license: OtherLicense+license: MPL-2.0 license-file: LICENSE author: Brendan Hay-maintainer: Brendan Hay <brendan.g.hay@gmail.com>-copyright: Copyright (c) 2013-2016 Brendan Hay+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -29,14 +29,19 @@ to get started. source-repository head- type: git- location: git://github.com/brendanhay/amazonka.git+ type: git+ location: git://github.com/brendanhay/amazonka.git+ subdir: amazonka-ml library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall+ ghc-options:+ -Wall+ -fwarn-incomplete-uni-patterns+ -fwarn-incomplete-record-updates+ -funbox-strict-fields exposed-modules: Network.AWS.MachineLearning@@ -76,7 +81,7 @@ , Network.AWS.MachineLearning.Types.Sum build-depends:- amazonka-core == 1.4.5.*+ amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-ml-test@@ -96,9 +101,9 @@ , Test.AWS.MachineLearning.Internal build-depends:- amazonka-core == 1.4.5.*- , amazonka-test == 1.4.5.*- , amazonka-ml == 1.4.5.*+ amazonka-core == 1.5.0.*+ , amazonka-test == 1.5.0.*+ , amazonka-ml , base , bytestring , tasty
gen/Network/AWS/MachineLearning.hs view
@@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.MachineLearning--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -367,36 +367,36 @@ , tagKey ) where -import Network.AWS.MachineLearning.AddTags-import Network.AWS.MachineLearning.CreateBatchPrediction-import Network.AWS.MachineLearning.CreateDataSourceFromRDS-import Network.AWS.MachineLearning.CreateDataSourceFromRedshift-import Network.AWS.MachineLearning.CreateDataSourceFromS3-import Network.AWS.MachineLearning.CreateEvaluation-import Network.AWS.MachineLearning.CreateMLModel-import Network.AWS.MachineLearning.CreateRealtimeEndpoint-import Network.AWS.MachineLearning.DeleteBatchPrediction-import Network.AWS.MachineLearning.DeleteDataSource-import Network.AWS.MachineLearning.DeleteEvaluation-import Network.AWS.MachineLearning.DeleteMLModel-import Network.AWS.MachineLearning.DeleteRealtimeEndpoint-import Network.AWS.MachineLearning.DeleteTags-import Network.AWS.MachineLearning.DescribeBatchPredictions-import Network.AWS.MachineLearning.DescribeDataSources-import Network.AWS.MachineLearning.DescribeEvaluations-import Network.AWS.MachineLearning.DescribeMLModels-import Network.AWS.MachineLearning.DescribeTags-import Network.AWS.MachineLearning.GetBatchPrediction-import Network.AWS.MachineLearning.GetDataSource-import Network.AWS.MachineLearning.GetEvaluation-import Network.AWS.MachineLearning.GetMLModel-import Network.AWS.MachineLearning.Predict-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.UpdateBatchPrediction-import Network.AWS.MachineLearning.UpdateDataSource-import Network.AWS.MachineLearning.UpdateEvaluation-import Network.AWS.MachineLearning.UpdateMLModel-import Network.AWS.MachineLearning.Waiters+import Network.AWS.MachineLearning.AddTags+import Network.AWS.MachineLearning.CreateBatchPrediction+import Network.AWS.MachineLearning.CreateDataSourceFromRDS+import Network.AWS.MachineLearning.CreateDataSourceFromRedshift+import Network.AWS.MachineLearning.CreateDataSourceFromS3+import Network.AWS.MachineLearning.CreateEvaluation+import Network.AWS.MachineLearning.CreateMLModel+import Network.AWS.MachineLearning.CreateRealtimeEndpoint+import Network.AWS.MachineLearning.DeleteBatchPrediction+import Network.AWS.MachineLearning.DeleteDataSource+import Network.AWS.MachineLearning.DeleteEvaluation+import Network.AWS.MachineLearning.DeleteMLModel+import Network.AWS.MachineLearning.DeleteRealtimeEndpoint+import Network.AWS.MachineLearning.DeleteTags+import Network.AWS.MachineLearning.DescribeBatchPredictions+import Network.AWS.MachineLearning.DescribeDataSources+import Network.AWS.MachineLearning.DescribeEvaluations+import Network.AWS.MachineLearning.DescribeMLModels+import Network.AWS.MachineLearning.DescribeTags+import Network.AWS.MachineLearning.GetBatchPrediction+import Network.AWS.MachineLearning.GetDataSource+import Network.AWS.MachineLearning.GetEvaluation+import Network.AWS.MachineLearning.GetMLModel+import Network.AWS.MachineLearning.Predict+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.UpdateBatchPrediction+import Network.AWS.MachineLearning.UpdateDataSource+import Network.AWS.MachineLearning.UpdateEvaluation+import Network.AWS.MachineLearning.UpdateMLModel+import Network.AWS.MachineLearning.Waiters {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/MachineLearning/AddTags.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.AddTags--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,20 +40,21 @@ , atrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'addTags' smart constructor. data AddTags = AddTags'- { _atTags :: ![Tag]- , _atResourceId :: !Text- , _atResourceType :: !TaggableResourceType- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _atTags :: ![Tag]+ , _atResourceId :: !Text+ , _atResourceType :: !TaggableResourceType+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,12 +69,13 @@ -> TaggableResourceType -- ^ 'atResourceType' -> AddTags addTags pResourceId_ pResourceType_ =- AddTags'- { _atTags = mempty- , _atResourceId = pResourceId_- , _atResourceType = pResourceType_- }+ AddTags'+ { _atTags = mempty+ , _atResourceId = pResourceId_+ , _atResourceType = pResourceType_+ } + -- | The key-value pairs to use to create tags. If you specify a key without specifying a value, Amazon ML creates a tag with the specified key and a value of null. atTags :: Lens' AddTags [Tag] atTags = lens _atTags (\ s a -> s{_atTags = a}) . _Coerce;@@ -96,9 +98,9 @@ (x .?> "ResourceId") <*> (x .?> "ResourceType") <*> (pure (fromEnum s))) -instance Hashable AddTags+instance Hashable AddTags where -instance NFData AddTags+instance NFData AddTags where instance ToHeaders AddTags where toHeaders@@ -129,11 +131,12 @@ -- -- /See:/ 'addTagsResponse' smart constructor. data AddTagsResponse = AddTagsResponse'- { _atrsResourceId :: !(Maybe Text)- , _atrsResourceType :: !(Maybe TaggableResourceType)- , _atrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _atrsResourceId :: !(Maybe Text)+ , _atrsResourceType :: !(Maybe TaggableResourceType)+ , _atrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -147,12 +150,13 @@ :: Int -- ^ 'atrsResponseStatus' -> AddTagsResponse addTagsResponse pResponseStatus_ =- AddTagsResponse'- { _atrsResourceId = Nothing- , _atrsResourceType = Nothing- , _atrsResponseStatus = pResponseStatus_- }+ AddTagsResponse'+ { _atrsResourceId = Nothing+ , _atrsResourceType = Nothing+ , _atrsResponseStatus = pResponseStatus_+ } + -- | The ID of the ML object that was tagged. atrsResourceId :: Lens' AddTagsResponse (Maybe Text) atrsResourceId = lens _atrsResourceId (\ s a -> s{_atrsResourceId = a});@@ -165,4 +169,4 @@ atrsResponseStatus :: Lens' AddTagsResponse Int atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a}); -instance NFData AddTagsResponse+instance NFData AddTagsResponse where
gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.CreateBatchPrediction--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,22 +45,23 @@ , cbprsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'createBatchPrediction' smart constructor. data CreateBatchPrediction = CreateBatchPrediction'- { _cbpBatchPredictionName :: !(Maybe Text)- , _cbpBatchPredictionId :: !Text- , _cbpMLModelId :: !Text- , _cbpBatchPredictionDataSourceId :: !Text- , _cbpOutputURI :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cbpBatchPredictionName :: !(Maybe Text)+ , _cbpBatchPredictionId :: !Text+ , _cbpMLModelId :: !Text+ , _cbpBatchPredictionDataSourceId :: !Text+ , _cbpOutputURI :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBatchPrediction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,14 +82,15 @@ -> Text -- ^ 'cbpOutputURI' -> CreateBatchPrediction createBatchPrediction pBatchPredictionId_ pMLModelId_ pBatchPredictionDataSourceId_ pOutputURI_ =- CreateBatchPrediction'- { _cbpBatchPredictionName = Nothing- , _cbpBatchPredictionId = pBatchPredictionId_- , _cbpMLModelId = pMLModelId_- , _cbpBatchPredictionDataSourceId = pBatchPredictionDataSourceId_- , _cbpOutputURI = pOutputURI_- }+ CreateBatchPrediction'+ { _cbpBatchPredictionName = Nothing+ , _cbpBatchPredictionId = pBatchPredictionId_+ , _cbpMLModelId = pMLModelId_+ , _cbpBatchPredictionDataSourceId = pBatchPredictionDataSourceId_+ , _cbpOutputURI = pOutputURI_+ } + -- | A user-supplied name or description of the @BatchPrediction@ . @BatchPredictionName@ can only use the UTF-8 character set. cbpBatchPredictionName :: Lens' CreateBatchPrediction (Maybe Text) cbpBatchPredictionName = lens _cbpBatchPredictionName (\ s a -> s{_cbpBatchPredictionName = a});@@ -119,9 +121,9 @@ CreateBatchPredictionResponse' <$> (x .?> "BatchPredictionId") <*> (pure (fromEnum s))) -instance Hashable CreateBatchPrediction+instance Hashable CreateBatchPrediction where -instance NFData CreateBatchPrediction+instance NFData CreateBatchPrediction where instance ToHeaders CreateBatchPrediction where toHeaders@@ -160,10 +162,11 @@ -- -- /See:/ 'createBatchPredictionResponse' smart constructor. data CreateBatchPredictionResponse = CreateBatchPredictionResponse'- { _cbprsBatchPredictionId :: !(Maybe Text)- , _cbprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cbprsBatchPredictionId :: !(Maybe Text)+ , _cbprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBatchPredictionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -175,11 +178,10 @@ :: Int -- ^ 'cbprsResponseStatus' -> CreateBatchPredictionResponse createBatchPredictionResponse pResponseStatus_ =- CreateBatchPredictionResponse'- { _cbprsBatchPredictionId = Nothing- , _cbprsResponseStatus = pResponseStatus_- }+ CreateBatchPredictionResponse'+ {_cbprsBatchPredictionId = Nothing, _cbprsResponseStatus = pResponseStatus_} + -- | A user-supplied ID that uniquely identifies the @BatchPrediction@ . This value is identical to the value of the @BatchPredictionId@ in the request. cbprsBatchPredictionId :: Lens' CreateBatchPredictionResponse (Maybe Text) cbprsBatchPredictionId = lens _cbprsBatchPredictionId (\ s a -> s{_cbprsBatchPredictionId = a});@@ -188,4 +190,4 @@ cbprsResponseStatus :: Lens' CreateBatchPredictionResponse Int cbprsResponseStatus = lens _cbprsResponseStatus (\ s a -> s{_cbprsResponseStatus = a}); -instance NFData CreateBatchPredictionResponse+instance NFData CreateBatchPredictionResponse where
gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.CreateDataSourceFromRDS--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,22 +45,23 @@ , cdsfrdsrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'createDataSourceFromRDS' smart constructor. data CreateDataSourceFromRDS = CreateDataSourceFromRDS'- { _cdsfrdsDataSourceName :: !(Maybe Text)- , _cdsfrdsComputeStatistics :: !(Maybe Bool)- , _cdsfrdsDataSourceId :: !Text- , _cdsfrdsRDSData :: !RDSDataSpec- , _cdsfrdsRoleARN :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cdsfrdsDataSourceName :: !(Maybe Text)+ , _cdsfrdsComputeStatistics :: !(Maybe Bool)+ , _cdsfrdsDataSourceId :: !Text+ , _cdsfrdsRDSData :: !RDSDataSpec+ , _cdsfrdsRoleARN :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDataSourceFromRDS' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,14 +81,15 @@ -> Text -- ^ 'cdsfrdsRoleARN' -> CreateDataSourceFromRDS createDataSourceFromRDS pDataSourceId_ pRDSData_ pRoleARN_ =- CreateDataSourceFromRDS'- { _cdsfrdsDataSourceName = Nothing- , _cdsfrdsComputeStatistics = Nothing- , _cdsfrdsDataSourceId = pDataSourceId_- , _cdsfrdsRDSData = pRDSData_- , _cdsfrdsRoleARN = pRoleARN_- }+ CreateDataSourceFromRDS'+ { _cdsfrdsDataSourceName = Nothing+ , _cdsfrdsComputeStatistics = Nothing+ , _cdsfrdsDataSourceId = pDataSourceId_+ , _cdsfrdsRDSData = pRDSData_+ , _cdsfrdsRoleARN = pRoleARN_+ } + -- | A user-supplied name or description of the @DataSource@ . cdsfrdsDataSourceName :: Lens' CreateDataSourceFromRDS (Maybe Text) cdsfrdsDataSourceName = lens _cdsfrdsDataSourceName (\ s a -> s{_cdsfrdsDataSourceName = a});@@ -118,9 +120,9 @@ CreateDataSourceFromRDSResponse' <$> (x .?> "DataSourceId") <*> (pure (fromEnum s))) -instance Hashable CreateDataSourceFromRDS+instance Hashable CreateDataSourceFromRDS where -instance NFData CreateDataSourceFromRDS+instance NFData CreateDataSourceFromRDS where instance ToHeaders CreateDataSourceFromRDS where toHeaders@@ -157,10 +159,11 @@ -- -- /See:/ 'createDataSourceFromRDSResponse' smart constructor. data CreateDataSourceFromRDSResponse = CreateDataSourceFromRDSResponse'- { _cdsfrdsrsDataSourceId :: !(Maybe Text)- , _cdsfrdsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -172,11 +175,12 @@ :: Int -- ^ 'cdsfrdsrsResponseStatus' -> CreateDataSourceFromRDSResponse createDataSourceFromRDSResponse pResponseStatus_ =- CreateDataSourceFromRDSResponse'- { _cdsfrdsrsDataSourceId = Nothing- , _cdsfrdsrsResponseStatus = pResponseStatus_- }+ CreateDataSourceFromRDSResponse'+ { _cdsfrdsrsDataSourceId = Nothing+ , _cdsfrdsrsResponseStatus = pResponseStatus_+ } + -- | A user-supplied ID that uniquely identifies the datasource. This value should be identical to the value of the @DataSourceID@ in the request. cdsfrdsrsDataSourceId :: Lens' CreateDataSourceFromRDSResponse (Maybe Text) cdsfrdsrsDataSourceId = lens _cdsfrdsrsDataSourceId (\ s a -> s{_cdsfrdsrsDataSourceId = a});@@ -185,4 +189,4 @@ cdsfrdsrsResponseStatus :: Lens' CreateDataSourceFromRDSResponse Int cdsfrdsrsResponseStatus = lens _cdsfrdsrsResponseStatus (\ s a -> s{_cdsfrdsrsResponseStatus = a}); -instance NFData CreateDataSourceFromRDSResponse+instance NFData CreateDataSourceFromRDSResponse where
gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.CreateDataSourceFromRedshift--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -51,22 +51,23 @@ , cdsfrrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'createDataSourceFromRedshift' smart constructor. data CreateDataSourceFromRedshift = CreateDataSourceFromRedshift'- { _cdsfrDataSourceName :: !(Maybe Text)- , _cdsfrComputeStatistics :: !(Maybe Bool)- , _cdsfrDataSourceId :: !Text- , _cdsfrDataSpec :: !RedshiftDataSpec- , _cdsfrRoleARN :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cdsfrDataSourceName :: !(Maybe Text)+ , _cdsfrComputeStatistics :: !(Maybe Bool)+ , _cdsfrDataSourceId :: !Text+ , _cdsfrDataSpec :: !RedshiftDataSpec+ , _cdsfrRoleARN :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDataSourceFromRedshift' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,14 +87,15 @@ -> Text -- ^ 'cdsfrRoleARN' -> CreateDataSourceFromRedshift createDataSourceFromRedshift pDataSourceId_ pDataSpec_ pRoleARN_ =- CreateDataSourceFromRedshift'- { _cdsfrDataSourceName = Nothing- , _cdsfrComputeStatistics = Nothing- , _cdsfrDataSourceId = pDataSourceId_- , _cdsfrDataSpec = pDataSpec_- , _cdsfrRoleARN = pRoleARN_- }+ CreateDataSourceFromRedshift'+ { _cdsfrDataSourceName = Nothing+ , _cdsfrComputeStatistics = Nothing+ , _cdsfrDataSourceId = pDataSourceId_+ , _cdsfrDataSpec = pDataSpec_+ , _cdsfrRoleARN = pRoleARN_+ } + -- | A user-supplied name or description of the @DataSource@ . cdsfrDataSourceName :: Lens' CreateDataSourceFromRedshift (Maybe Text) cdsfrDataSourceName = lens _cdsfrDataSourceName (\ s a -> s{_cdsfrDataSourceName = a});@@ -125,9 +127,9 @@ CreateDataSourceFromRedshiftResponse' <$> (x .?> "DataSourceId") <*> (pure (fromEnum s))) -instance Hashable CreateDataSourceFromRedshift+instance Hashable CreateDataSourceFromRedshift where -instance NFData CreateDataSourceFromRedshift+instance NFData CreateDataSourceFromRedshift where instance ToHeaders CreateDataSourceFromRedshift where toHeaders@@ -163,10 +165,11 @@ -- -- /See:/ 'createDataSourceFromRedshiftResponse' smart constructor. data CreateDataSourceFromRedshiftResponse = CreateDataSourceFromRedshiftResponse'- { _cdsfrrsDataSourceId :: !(Maybe Text)- , _cdsfrrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -178,11 +181,10 @@ :: Int -- ^ 'cdsfrrsResponseStatus' -> CreateDataSourceFromRedshiftResponse createDataSourceFromRedshiftResponse pResponseStatus_ =- CreateDataSourceFromRedshiftResponse'- { _cdsfrrsDataSourceId = Nothing- , _cdsfrrsResponseStatus = pResponseStatus_- }+ CreateDataSourceFromRedshiftResponse'+ {_cdsfrrsDataSourceId = Nothing, _cdsfrrsResponseStatus = pResponseStatus_} + -- | A user-supplied ID that uniquely identifies the datasource. This value should be identical to the value of the @DataSourceID@ in the request. cdsfrrsDataSourceId :: Lens' CreateDataSourceFromRedshiftResponse (Maybe Text) cdsfrrsDataSourceId = lens _cdsfrrsDataSourceId (\ s a -> s{_cdsfrrsDataSourceId = a});@@ -192,3 +194,4 @@ cdsfrrsResponseStatus = lens _cdsfrrsResponseStatus (\ s a -> s{_cdsfrrsResponseStatus = a}); instance NFData CreateDataSourceFromRedshiftResponse+ where
gen/Network/AWS/MachineLearning/CreateDataSourceFromS3.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.CreateDataSourceFromS3--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,21 +48,22 @@ , cdsfsrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'createDataSourceFromS3' smart constructor. data CreateDataSourceFromS3 = CreateDataSourceFromS3'- { _cdsfsDataSourceName :: !(Maybe Text)- , _cdsfsComputeStatistics :: !(Maybe Bool)- , _cdsfsDataSourceId :: !Text- , _cdsfsDataSpec :: !S3DataSpec- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cdsfsDataSourceName :: !(Maybe Text)+ , _cdsfsComputeStatistics :: !(Maybe Bool)+ , _cdsfsDataSourceId :: !Text+ , _cdsfsDataSpec :: !S3DataSpec+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDataSourceFromS3' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,13 +80,14 @@ -> S3DataSpec -- ^ 'cdsfsDataSpec' -> CreateDataSourceFromS3 createDataSourceFromS3 pDataSourceId_ pDataSpec_ =- CreateDataSourceFromS3'- { _cdsfsDataSourceName = Nothing- , _cdsfsComputeStatistics = Nothing- , _cdsfsDataSourceId = pDataSourceId_- , _cdsfsDataSpec = pDataSpec_- }+ CreateDataSourceFromS3'+ { _cdsfsDataSourceName = Nothing+ , _cdsfsComputeStatistics = Nothing+ , _cdsfsDataSourceId = pDataSourceId_+ , _cdsfsDataSpec = pDataSpec_+ } + -- | A user-supplied name or description of the @DataSource@ . cdsfsDataSourceName :: Lens' CreateDataSourceFromS3 (Maybe Text) cdsfsDataSourceName = lens _cdsfsDataSourceName (\ s a -> s{_cdsfsDataSourceName = a});@@ -112,9 +114,9 @@ CreateDataSourceFromS3Response' <$> (x .?> "DataSourceId") <*> (pure (fromEnum s))) -instance Hashable CreateDataSourceFromS3+instance Hashable CreateDataSourceFromS3 where -instance NFData CreateDataSourceFromS3+instance NFData CreateDataSourceFromS3 where instance ToHeaders CreateDataSourceFromS3 where toHeaders@@ -149,10 +151,11 @@ -- -- /See:/ 'createDataSourceFromS3Response' smart constructor. data CreateDataSourceFromS3Response = CreateDataSourceFromS3Response'- { _cdsfsrsDataSourceId :: !(Maybe Text)- , _cdsfsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cdsfsrsDataSourceId :: !(Maybe Text)+ , _cdsfsrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDataSourceFromS3Response' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -164,11 +167,10 @@ :: Int -- ^ 'cdsfsrsResponseStatus' -> CreateDataSourceFromS3Response createDataSourceFromS3Response pResponseStatus_ =- CreateDataSourceFromS3Response'- { _cdsfsrsDataSourceId = Nothing- , _cdsfsrsResponseStatus = pResponseStatus_- }+ CreateDataSourceFromS3Response'+ {_cdsfsrsDataSourceId = Nothing, _cdsfsrsResponseStatus = pResponseStatus_} + -- | A user-supplied ID that uniquely identifies the @DataSource@ . This value should be identical to the value of the @DataSourceID@ in the request. cdsfsrsDataSourceId :: Lens' CreateDataSourceFromS3Response (Maybe Text) cdsfsrsDataSourceId = lens _cdsfsrsDataSourceId (\ s a -> s{_cdsfsrsDataSourceId = a});@@ -177,4 +179,4 @@ cdsfsrsResponseStatus :: Lens' CreateDataSourceFromS3Response Int cdsfsrsResponseStatus = lens _cdsfsrsResponseStatus (\ s a -> s{_cdsfsrsResponseStatus = a}); -instance NFData CreateDataSourceFromS3Response+instance NFData CreateDataSourceFromS3Response where
gen/Network/AWS/MachineLearning/CreateEvaluation.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.CreateEvaluation--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,21 +44,22 @@ , cersResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'createEvaluation' smart constructor. data CreateEvaluation = CreateEvaluation'- { _ceEvaluationName :: !(Maybe Text)- , _ceEvaluationId :: !Text- , _ceMLModelId :: !Text- , _ceEvaluationDataSourceId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ceEvaluationName :: !(Maybe Text)+ , _ceEvaluationId :: !Text+ , _ceMLModelId :: !Text+ , _ceEvaluationDataSourceId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateEvaluation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,13 +77,14 @@ -> Text -- ^ 'ceEvaluationDataSourceId' -> CreateEvaluation createEvaluation pEvaluationId_ pMLModelId_ pEvaluationDataSourceId_ =- CreateEvaluation'- { _ceEvaluationName = Nothing- , _ceEvaluationId = pEvaluationId_- , _ceMLModelId = pMLModelId_- , _ceEvaluationDataSourceId = pEvaluationDataSourceId_- }+ CreateEvaluation'+ { _ceEvaluationName = Nothing+ , _ceEvaluationId = pEvaluationId_+ , _ceMLModelId = pMLModelId_+ , _ceEvaluationDataSourceId = pEvaluationDataSourceId_+ } + -- | A user-supplied name or description of the @Evaluation@ . ceEvaluationName :: Lens' CreateEvaluation (Maybe Text) ceEvaluationName = lens _ceEvaluationName (\ s a -> s{_ceEvaluationName = a});@@ -108,9 +110,9 @@ CreateEvaluationResponse' <$> (x .?> "EvaluationId") <*> (pure (fromEnum s))) -instance Hashable CreateEvaluation+instance Hashable CreateEvaluation where -instance NFData CreateEvaluation+instance NFData CreateEvaluation where instance ToHeaders CreateEvaluation where toHeaders@@ -146,10 +148,11 @@ -- -- /See:/ 'createEvaluationResponse' smart constructor. data CreateEvaluationResponse = CreateEvaluationResponse'- { _cersEvaluationId :: !(Maybe Text)- , _cersResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -161,11 +164,10 @@ :: Int -- ^ 'cersResponseStatus' -> CreateEvaluationResponse createEvaluationResponse pResponseStatus_ =- CreateEvaluationResponse'- { _cersEvaluationId = Nothing- , _cersResponseStatus = pResponseStatus_- }+ CreateEvaluationResponse'+ {_cersEvaluationId = Nothing, _cersResponseStatus = pResponseStatus_} + -- | The user-supplied ID that uniquely identifies the @Evaluation@ . This value should be identical to the value of the @EvaluationId@ in the request. cersEvaluationId :: Lens' CreateEvaluationResponse (Maybe Text) cersEvaluationId = lens _cersEvaluationId (\ s a -> s{_cersEvaluationId = a});@@ -174,4 +176,4 @@ cersResponseStatus :: Lens' CreateEvaluationResponse Int cersResponseStatus = lens _cersResponseStatus (\ s a -> s{_cersResponseStatus = a}); -instance NFData CreateEvaluationResponse+instance NFData CreateEvaluationResponse where
gen/Network/AWS/MachineLearning/CreateMLModel.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.CreateMLModel--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -51,24 +51,25 @@ , cmlmrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'createMLModel' smart constructor. data CreateMLModel = CreateMLModel'- { _cmlmRecipe :: !(Maybe Text)- , _cmlmRecipeURI :: !(Maybe Text)- , _cmlmMLModelName :: !(Maybe Text)- , _cmlmParameters :: !(Maybe (Map Text Text))- , _cmlmMLModelId :: !Text- , _cmlmMLModelType :: !MLModelType- , _cmlmTrainingDataSourceId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cmlmRecipe :: !(Maybe Text)+ , _cmlmRecipeURI :: !(Maybe Text)+ , _cmlmMLModelName :: !(Maybe Text)+ , _cmlmParameters :: !(Maybe (Map Text Text))+ , _cmlmMLModelId :: !Text+ , _cmlmMLModelType :: !MLModelType+ , _cmlmTrainingDataSourceId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateMLModel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -92,16 +93,17 @@ -> Text -- ^ 'cmlmTrainingDataSourceId' -> CreateMLModel createMLModel pMLModelId_ pMLModelType_ pTrainingDataSourceId_ =- CreateMLModel'- { _cmlmRecipe = Nothing- , _cmlmRecipeURI = Nothing- , _cmlmMLModelName = Nothing- , _cmlmParameters = Nothing- , _cmlmMLModelId = pMLModelId_- , _cmlmMLModelType = pMLModelType_- , _cmlmTrainingDataSourceId = pTrainingDataSourceId_- }+ CreateMLModel'+ { _cmlmRecipe = Nothing+ , _cmlmRecipeURI = Nothing+ , _cmlmMLModelName = Nothing+ , _cmlmParameters = Nothing+ , _cmlmMLModelId = pMLModelId_+ , _cmlmMLModelType = pMLModelType_+ , _cmlmTrainingDataSourceId = pTrainingDataSourceId_+ } + -- | The data recipe for creating the @MLModel@ . You must specify either the recipe or its URI. If you don't specify a recipe or its URI, Amazon ML creates a default. cmlmRecipe :: Lens' CreateMLModel (Maybe Text) cmlmRecipe = lens _cmlmRecipe (\ s a -> s{_cmlmRecipe = a});@@ -139,9 +141,9 @@ CreateMLModelResponse' <$> (x .?> "MLModelId") <*> (pure (fromEnum s))) -instance Hashable CreateMLModel+instance Hashable CreateMLModel where -instance NFData CreateMLModel+instance NFData CreateMLModel where instance ToHeaders CreateMLModel where toHeaders@@ -180,10 +182,11 @@ -- -- /See:/ 'createMLModelResponse' smart constructor. data CreateMLModelResponse = CreateMLModelResponse'- { _cmlmrsMLModelId :: !(Maybe Text)- , _cmlmrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -195,11 +198,10 @@ :: Int -- ^ 'cmlmrsResponseStatus' -> CreateMLModelResponse createMLModelResponse pResponseStatus_ =- CreateMLModelResponse'- { _cmlmrsMLModelId = Nothing- , _cmlmrsResponseStatus = pResponseStatus_- }+ CreateMLModelResponse'+ {_cmlmrsMLModelId = Nothing, _cmlmrsResponseStatus = pResponseStatus_} + -- | A user-supplied ID that uniquely identifies the @MLModel@ . This value should be identical to the value of the @MLModelId@ in the request. cmlmrsMLModelId :: Lens' CreateMLModelResponse (Maybe Text) cmlmrsMLModelId = lens _cmlmrsMLModelId (\ s a -> s{_cmlmrsMLModelId = a});@@ -208,4 +210,4 @@ cmlmrsResponseStatus :: Lens' CreateMLModelResponse Int cmlmrsResponseStatus = lens _cmlmrsResponseStatus (\ s a -> s{_cmlmrsResponseStatus = a}); -instance NFData CreateMLModelResponse+instance NFData CreateMLModelResponse where
gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.CreateRealtimeEndpoint--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,18 +38,19 @@ , crersResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'createRealtimeEndpoint' smart constructor. newtype CreateRealtimeEndpoint = CreateRealtimeEndpoint'- { _creMLModelId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _creMLModelId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateRealtimeEndpoint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -59,10 +60,9 @@ :: Text -- ^ 'creMLModelId' -> CreateRealtimeEndpoint createRealtimeEndpoint pMLModelId_ =- CreateRealtimeEndpoint'- { _creMLModelId = pMLModelId_- }+ CreateRealtimeEndpoint' {_creMLModelId = pMLModelId_} + -- | The ID assigned to the @MLModel@ during creation. creMLModelId :: Lens' CreateRealtimeEndpoint Text creMLModelId = lens _creMLModelId (\ s a -> s{_creMLModelId = a});@@ -79,9 +79,9 @@ (x .?> "MLModelId") <*> (pure (fromEnum s))) -instance Hashable CreateRealtimeEndpoint+instance Hashable CreateRealtimeEndpoint where -instance NFData CreateRealtimeEndpoint+instance NFData CreateRealtimeEndpoint where instance ToHeaders CreateRealtimeEndpoint where toHeaders@@ -112,11 +112,12 @@ -- -- /See:/ 'createRealtimeEndpointResponse' smart constructor. data CreateRealtimeEndpointResponse = CreateRealtimeEndpointResponse'- { _crersRealtimeEndpointInfo :: !(Maybe RealtimeEndpointInfo)- , _crersMLModelId :: !(Maybe Text)- , _crersResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _crersRealtimeEndpointInfo :: !(Maybe RealtimeEndpointInfo)+ , _crersMLModelId :: !(Maybe Text)+ , _crersResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateRealtimeEndpointResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,12 +131,13 @@ :: Int -- ^ 'crersResponseStatus' -> CreateRealtimeEndpointResponse createRealtimeEndpointResponse pResponseStatus_ =- CreateRealtimeEndpointResponse'- { _crersRealtimeEndpointInfo = Nothing- , _crersMLModelId = Nothing- , _crersResponseStatus = pResponseStatus_- }+ CreateRealtimeEndpointResponse'+ { _crersRealtimeEndpointInfo = Nothing+ , _crersMLModelId = Nothing+ , _crersResponseStatus = pResponseStatus_+ } + -- | The endpoint information of the @MLModel@ crersRealtimeEndpointInfo :: Lens' CreateRealtimeEndpointResponse (Maybe RealtimeEndpointInfo) crersRealtimeEndpointInfo = lens _crersRealtimeEndpointInfo (\ s a -> s{_crersRealtimeEndpointInfo = a});@@ -148,4 +150,4 @@ crersResponseStatus :: Lens' CreateRealtimeEndpointResponse Int crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a}); -instance NFData CreateRealtimeEndpointResponse+instance NFData CreateRealtimeEndpointResponse where
gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DeleteBatchPrediction--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,18 +41,19 @@ , dbprsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'deleteBatchPrediction' smart constructor. newtype DeleteBatchPrediction = DeleteBatchPrediction'- { _dbpBatchPredictionId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dbpBatchPredictionId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBatchPrediction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@ :: Text -- ^ 'dbpBatchPredictionId' -> DeleteBatchPrediction deleteBatchPrediction pBatchPredictionId_ =- DeleteBatchPrediction'- { _dbpBatchPredictionId = pBatchPredictionId_- }+ DeleteBatchPrediction' {_dbpBatchPredictionId = pBatchPredictionId_} + -- | A user-supplied ID that uniquely identifies the @BatchPrediction@ . dbpBatchPredictionId :: Lens' DeleteBatchPrediction Text dbpBatchPredictionId = lens _dbpBatchPredictionId (\ s a -> s{_dbpBatchPredictionId = a});@@ -80,9 +80,9 @@ DeleteBatchPredictionResponse' <$> (x .?> "BatchPredictionId") <*> (pure (fromEnum s))) -instance Hashable DeleteBatchPrediction+instance Hashable DeleteBatchPrediction where -instance NFData DeleteBatchPrediction+instance NFData DeleteBatchPrediction where instance ToHeaders DeleteBatchPrediction where toHeaders@@ -115,10 +115,11 @@ -- -- /See:/ 'deleteBatchPredictionResponse' smart constructor. data DeleteBatchPredictionResponse = DeleteBatchPredictionResponse'- { _dbprsBatchPredictionId :: !(Maybe Text)- , _dbprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dbprsBatchPredictionId :: !(Maybe Text)+ , _dbprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBatchPredictionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,11 +131,10 @@ :: Int -- ^ 'dbprsResponseStatus' -> DeleteBatchPredictionResponse deleteBatchPredictionResponse pResponseStatus_ =- DeleteBatchPredictionResponse'- { _dbprsBatchPredictionId = Nothing- , _dbprsResponseStatus = pResponseStatus_- }+ DeleteBatchPredictionResponse'+ {_dbprsBatchPredictionId = Nothing, _dbprsResponseStatus = pResponseStatus_} + -- | A user-supplied ID that uniquely identifies the @BatchPrediction@ . This value should be identical to the value of the @BatchPredictionID@ in the request. dbprsBatchPredictionId :: Lens' DeleteBatchPredictionResponse (Maybe Text) dbprsBatchPredictionId = lens _dbprsBatchPredictionId (\ s a -> s{_dbprsBatchPredictionId = a});@@ -143,4 +143,4 @@ dbprsResponseStatus :: Lens' DeleteBatchPredictionResponse Int dbprsResponseStatus = lens _dbprsResponseStatus (\ s a -> s{_dbprsResponseStatus = a}); -instance NFData DeleteBatchPredictionResponse+instance NFData DeleteBatchPredictionResponse where
gen/Network/AWS/MachineLearning/DeleteDataSource.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DeleteDataSource--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,18 +41,19 @@ , ddsrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'deleteDataSource' smart constructor. newtype DeleteDataSource = DeleteDataSource'- { _ddsDataSourceId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ddsDataSourceId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDataSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@ :: Text -- ^ 'ddsDataSourceId' -> DeleteDataSource deleteDataSource pDataSourceId_ =- DeleteDataSource'- { _ddsDataSourceId = pDataSourceId_- }+ DeleteDataSource' {_ddsDataSourceId = pDataSourceId_} + -- | A user-supplied ID that uniquely identifies the @DataSource@ . ddsDataSourceId :: Lens' DeleteDataSource Text ddsDataSourceId = lens _ddsDataSourceId (\ s a -> s{_ddsDataSourceId = a});@@ -79,9 +79,9 @@ DeleteDataSourceResponse' <$> (x .?> "DataSourceId") <*> (pure (fromEnum s))) -instance Hashable DeleteDataSource+instance Hashable DeleteDataSource where -instance NFData DeleteDataSource+instance NFData DeleteDataSource where instance ToHeaders DeleteDataSource where toHeaders@@ -110,10 +110,11 @@ -- -- /See:/ 'deleteDataSourceResponse' smart constructor. data DeleteDataSourceResponse = DeleteDataSourceResponse'- { _ddsrsDataSourceId :: !(Maybe Text)- , _ddsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,11 +126,10 @@ :: Int -- ^ 'ddsrsResponseStatus' -> DeleteDataSourceResponse deleteDataSourceResponse pResponseStatus_ =- DeleteDataSourceResponse'- { _ddsrsDataSourceId = Nothing- , _ddsrsResponseStatus = pResponseStatus_- }+ DeleteDataSourceResponse'+ {_ddsrsDataSourceId = Nothing, _ddsrsResponseStatus = pResponseStatus_} + -- | A user-supplied ID that uniquely identifies the @DataSource@ . This value should be identical to the value of the @DataSourceID@ in the request. ddsrsDataSourceId :: Lens' DeleteDataSourceResponse (Maybe Text) ddsrsDataSourceId = lens _ddsrsDataSourceId (\ s a -> s{_ddsrsDataSourceId = a});@@ -138,4 +138,4 @@ ddsrsResponseStatus :: Lens' DeleteDataSourceResponse Int ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a}); -instance NFData DeleteDataSourceResponse+instance NFData DeleteDataSourceResponse where
gen/Network/AWS/MachineLearning/DeleteEvaluation.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DeleteEvaluation--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,18 +43,19 @@ , dersResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'deleteEvaluation' smart constructor. newtype DeleteEvaluation = DeleteEvaluation'- { _deEvaluationId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _deEvaluationId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteEvaluation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,9 @@ :: Text -- ^ 'deEvaluationId' -> DeleteEvaluation deleteEvaluation pEvaluationId_ =- DeleteEvaluation'- { _deEvaluationId = pEvaluationId_- }+ DeleteEvaluation' {_deEvaluationId = pEvaluationId_} + -- | A user-supplied ID that uniquely identifies the @Evaluation@ to delete. deEvaluationId :: Lens' DeleteEvaluation Text deEvaluationId = lens _deEvaluationId (\ s a -> s{_deEvaluationId = a});@@ -81,9 +81,9 @@ DeleteEvaluationResponse' <$> (x .?> "EvaluationId") <*> (pure (fromEnum s))) -instance Hashable DeleteEvaluation+instance Hashable DeleteEvaluation where -instance NFData DeleteEvaluation+instance NFData DeleteEvaluation where instance ToHeaders DeleteEvaluation where toHeaders@@ -114,10 +114,11 @@ -- -- /See:/ 'deleteEvaluationResponse' smart constructor. data DeleteEvaluationResponse = DeleteEvaluationResponse'- { _dersEvaluationId :: !(Maybe Text)- , _dersResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +130,10 @@ :: Int -- ^ 'dersResponseStatus' -> DeleteEvaluationResponse deleteEvaluationResponse pResponseStatus_ =- DeleteEvaluationResponse'- { _dersEvaluationId = Nothing- , _dersResponseStatus = pResponseStatus_- }+ DeleteEvaluationResponse'+ {_dersEvaluationId = Nothing, _dersResponseStatus = pResponseStatus_} + -- | A user-supplied ID that uniquely identifies the @Evaluation@ . This value should be identical to the value of the @EvaluationId@ in the request. dersEvaluationId :: Lens' DeleteEvaluationResponse (Maybe Text) dersEvaluationId = lens _dersEvaluationId (\ s a -> s{_dersEvaluationId = a});@@ -142,4 +142,4 @@ dersResponseStatus :: Lens' DeleteEvaluationResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); -instance NFData DeleteEvaluationResponse+instance NFData DeleteEvaluationResponse where
gen/Network/AWS/MachineLearning/DeleteMLModel.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DeleteMLModel--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,18 +41,19 @@ , dmlmrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'deleteMLModel' smart constructor. newtype DeleteMLModel = DeleteMLModel'- { _dmlmMLModelId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dmlmMLModelId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteMLModel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,9 @@ deleteMLModel :: Text -- ^ 'dmlmMLModelId' -> DeleteMLModel-deleteMLModel pMLModelId_ =- DeleteMLModel'- { _dmlmMLModelId = pMLModelId_- }+deleteMLModel pMLModelId_ = DeleteMLModel' {_dmlmMLModelId = pMLModelId_} + -- | A user-supplied ID that uniquely identifies the @MLModel@ . dmlmMLModelId :: Lens' DeleteMLModel Text dmlmMLModelId = lens _dmlmMLModelId (\ s a -> s{_dmlmMLModelId = a});@@ -79,9 +78,9 @@ DeleteMLModelResponse' <$> (x .?> "MLModelId") <*> (pure (fromEnum s))) -instance Hashable DeleteMLModel+instance Hashable DeleteMLModel where -instance NFData DeleteMLModel+instance NFData DeleteMLModel where instance ToHeaders DeleteMLModel where toHeaders@@ -111,10 +110,11 @@ -- -- /See:/ 'deleteMLModelResponse' smart constructor. data DeleteMLModelResponse = DeleteMLModelResponse'- { _dmlmrsMLModelId :: !(Maybe Text)- , _dmlmrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,11 +126,10 @@ :: Int -- ^ 'dmlmrsResponseStatus' -> DeleteMLModelResponse deleteMLModelResponse pResponseStatus_ =- DeleteMLModelResponse'- { _dmlmrsMLModelId = Nothing- , _dmlmrsResponseStatus = pResponseStatus_- }+ DeleteMLModelResponse'+ {_dmlmrsMLModelId = Nothing, _dmlmrsResponseStatus = pResponseStatus_} + -- | A user-supplied ID that uniquely identifies the @MLModel@ . This value should be identical to the value of the @MLModelID@ in the request. dmlmrsMLModelId :: Lens' DeleteMLModelResponse (Maybe Text) dmlmrsMLModelId = lens _dmlmrsMLModelId (\ s a -> s{_dmlmrsMLModelId = a});@@ -139,4 +138,4 @@ dmlmrsResponseStatus :: Lens' DeleteMLModelResponse Int dmlmrsResponseStatus = lens _dmlmrsResponseStatus (\ s a -> s{_dmlmrsResponseStatus = a}); -instance NFData DeleteMLModelResponse+instance NFData DeleteMLModelResponse where
gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DeleteRealtimeEndpoint--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,18 +38,19 @@ , drersResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'deleteRealtimeEndpoint' smart constructor. newtype DeleteRealtimeEndpoint = DeleteRealtimeEndpoint'- { _dreMLModelId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dreMLModelId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteRealtimeEndpoint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -59,10 +60,9 @@ :: Text -- ^ 'dreMLModelId' -> DeleteRealtimeEndpoint deleteRealtimeEndpoint pMLModelId_ =- DeleteRealtimeEndpoint'- { _dreMLModelId = pMLModelId_- }+ DeleteRealtimeEndpoint' {_dreMLModelId = pMLModelId_} + -- | The ID assigned to the @MLModel@ during creation. dreMLModelId :: Lens' DeleteRealtimeEndpoint Text dreMLModelId = lens _dreMLModelId (\ s a -> s{_dreMLModelId = a});@@ -79,9 +79,9 @@ (x .?> "MLModelId") <*> (pure (fromEnum s))) -instance Hashable DeleteRealtimeEndpoint+instance Hashable DeleteRealtimeEndpoint where -instance NFData DeleteRealtimeEndpoint+instance NFData DeleteRealtimeEndpoint where instance ToHeaders DeleteRealtimeEndpoint where toHeaders@@ -112,11 +112,12 @@ -- -- /See:/ 'deleteRealtimeEndpointResponse' smart constructor. data DeleteRealtimeEndpointResponse = DeleteRealtimeEndpointResponse'- { _drersRealtimeEndpointInfo :: !(Maybe RealtimeEndpointInfo)- , _drersMLModelId :: !(Maybe Text)- , _drersResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _drersRealtimeEndpointInfo :: !(Maybe RealtimeEndpointInfo)+ , _drersMLModelId :: !(Maybe Text)+ , _drersResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteRealtimeEndpointResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,12 +131,13 @@ :: Int -- ^ 'drersResponseStatus' -> DeleteRealtimeEndpointResponse deleteRealtimeEndpointResponse pResponseStatus_ =- DeleteRealtimeEndpointResponse'- { _drersRealtimeEndpointInfo = Nothing- , _drersMLModelId = Nothing- , _drersResponseStatus = pResponseStatus_- }+ DeleteRealtimeEndpointResponse'+ { _drersRealtimeEndpointInfo = Nothing+ , _drersMLModelId = Nothing+ , _drersResponseStatus = pResponseStatus_+ } + -- | The endpoint information of the @MLModel@ drersRealtimeEndpointInfo :: Lens' DeleteRealtimeEndpointResponse (Maybe RealtimeEndpointInfo) drersRealtimeEndpointInfo = lens _drersRealtimeEndpointInfo (\ s a -> s{_drersRealtimeEndpointInfo = a});@@ -148,4 +150,4 @@ drersResponseStatus :: Lens' DeleteRealtimeEndpointResponse Int drersResponseStatus = lens _drersResponseStatus (\ s a -> s{_drersResponseStatus = a}); -instance NFData DeleteRealtimeEndpointResponse+instance NFData DeleteRealtimeEndpointResponse where
gen/Network/AWS/MachineLearning/DeleteTags.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DeleteTags--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,20 +42,21 @@ , drsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'deleteTags' smart constructor. data DeleteTags = DeleteTags'- { _dTagKeys :: ![Text]- , _dResourceId :: !Text- , _dResourceType :: !TaggableResourceType- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dTagKeys :: ![Text]+ , _dResourceId :: !Text+ , _dResourceType :: !TaggableResourceType+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,12 +71,13 @@ -> TaggableResourceType -- ^ 'dResourceType' -> DeleteTags deleteTags pResourceId_ pResourceType_ =- DeleteTags'- { _dTagKeys = mempty- , _dResourceId = pResourceId_- , _dResourceType = pResourceType_- }+ DeleteTags'+ { _dTagKeys = mempty+ , _dResourceId = pResourceId_+ , _dResourceType = pResourceType_+ } + -- | One or more tags to delete. dTagKeys :: Lens' DeleteTags [Text] dTagKeys = lens _dTagKeys (\ s a -> s{_dTagKeys = a}) . _Coerce;@@ -98,9 +100,9 @@ (x .?> "ResourceId") <*> (x .?> "ResourceType") <*> (pure (fromEnum s))) -instance Hashable DeleteTags+instance Hashable DeleteTags where -instance NFData DeleteTags+instance NFData DeleteTags where instance ToHeaders DeleteTags where toHeaders@@ -131,11 +133,12 @@ -- -- /See:/ 'deleteTagsResponse' smart constructor. data DeleteTagsResponse = DeleteTagsResponse'- { _drsResourceId :: !(Maybe Text)- , _drsResourceType :: !(Maybe TaggableResourceType)- , _drsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _drsResourceId :: !(Maybe Text)+ , _drsResourceType :: !(Maybe TaggableResourceType)+ , _drsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,12 +152,13 @@ :: Int -- ^ 'drsResponseStatus' -> DeleteTagsResponse deleteTagsResponse pResponseStatus_ =- DeleteTagsResponse'- { _drsResourceId = Nothing- , _drsResourceType = Nothing- , _drsResponseStatus = pResponseStatus_- }+ DeleteTagsResponse'+ { _drsResourceId = Nothing+ , _drsResourceType = Nothing+ , _drsResponseStatus = pResponseStatus_+ } + -- | The ID of the ML object from which tags were deleted. drsResourceId :: Lens' DeleteTagsResponse (Maybe Text) drsResourceId = lens _drsResourceId (\ s a -> s{_drsResourceId = a});@@ -167,4 +171,4 @@ drsResponseStatus :: Lens' DeleteTagsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteTagsResponse+instance NFData DeleteTagsResponse where
gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DescribeBatchPredictions--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,29 +50,30 @@ , dbpsrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'describeBatchPredictions' smart constructor. data DescribeBatchPredictions = DescribeBatchPredictions'- { _dbpEQ :: !(Maybe Text)- , _dbpGE :: !(Maybe Text)- , _dbpPrefix :: !(Maybe Text)- , _dbpGT :: !(Maybe Text)- , _dbpNE :: !(Maybe Text)- , _dbpNextToken :: !(Maybe Text)- , _dbpSortOrder :: !(Maybe SortOrder)- , _dbpLimit :: !(Maybe Nat)- , _dbpLT :: !(Maybe Text)- , _dbpFilterVariable :: !(Maybe BatchPredictionFilterVariable)- , _dbpLE :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dbpEQ :: !(Maybe Text)+ , _dbpGE :: !(Maybe Text)+ , _dbpPrefix :: !(Maybe Text)+ , _dbpGT :: !(Maybe Text)+ , _dbpNE :: !(Maybe Text)+ , _dbpNextToken :: !(Maybe Text)+ , _dbpSortOrder :: !(Maybe SortOrder)+ , _dbpLimit :: !(Maybe Nat)+ , _dbpLT :: !(Maybe Text)+ , _dbpFilterVariable :: !(Maybe BatchPredictionFilterVariable)+ , _dbpLE :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeBatchPredictions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,20 +102,21 @@ describeBatchPredictions :: DescribeBatchPredictions describeBatchPredictions =- DescribeBatchPredictions'- { _dbpEQ = Nothing- , _dbpGE = Nothing- , _dbpPrefix = Nothing- , _dbpGT = Nothing- , _dbpNE = Nothing- , _dbpNextToken = Nothing- , _dbpSortOrder = Nothing- , _dbpLimit = Nothing- , _dbpLT = Nothing- , _dbpFilterVariable = Nothing- , _dbpLE = Nothing- }+ DescribeBatchPredictions'+ { _dbpEQ = Nothing+ , _dbpGE = Nothing+ , _dbpPrefix = Nothing+ , _dbpGT = Nothing+ , _dbpNE = Nothing+ , _dbpNextToken = Nothing+ , _dbpSortOrder = Nothing+ , _dbpLimit = Nothing+ , _dbpLT = Nothing+ , _dbpFilterVariable = Nothing+ , _dbpLE = Nothing+ } + -- | The equal to operator. The @BatchPrediction@ results will have @FilterVariable@ values that exactly match the value specified with @EQ@ . dbpEQ :: Lens' DescribeBatchPredictions (Maybe Text) dbpEQ = lens _dbpEQ (\ s a -> s{_dbpEQ = a});@@ -177,9 +179,9 @@ (x .?> "Results" .!@ mempty) <*> (x .?> "NextToken") <*> (pure (fromEnum s))) -instance Hashable DescribeBatchPredictions+instance Hashable DescribeBatchPredictions where -instance NFData DescribeBatchPredictions+instance NFData DescribeBatchPredictions where instance ToHeaders DescribeBatchPredictions where toHeaders@@ -216,11 +218,12 @@ -- -- /See:/ 'describeBatchPredictionsResponse' smart constructor. data DescribeBatchPredictionsResponse = DescribeBatchPredictionsResponse'- { _dbpsrsResults :: !(Maybe [BatchPrediction])- , _dbpsrsNextToken :: !(Maybe Text)- , _dbpsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dbpsrsResults :: !(Maybe [BatchPrediction])+ , _dbpsrsNextToken :: !(Maybe Text)+ , _dbpsrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeBatchPredictionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -234,12 +237,13 @@ :: Int -- ^ 'dbpsrsResponseStatus' -> DescribeBatchPredictionsResponse describeBatchPredictionsResponse pResponseStatus_ =- DescribeBatchPredictionsResponse'- { _dbpsrsResults = Nothing- , _dbpsrsNextToken = Nothing- , _dbpsrsResponseStatus = pResponseStatus_- }+ DescribeBatchPredictionsResponse'+ { _dbpsrsResults = Nothing+ , _dbpsrsNextToken = Nothing+ , _dbpsrsResponseStatus = pResponseStatus_+ } + -- | A list of @BatchPrediction@ objects that meet the search criteria. dbpsrsResults :: Lens' DescribeBatchPredictionsResponse [BatchPrediction] dbpsrsResults = lens _dbpsrsResults (\ s a -> s{_dbpsrsResults = a}) . _Default . _Coerce;@@ -253,3 +257,4 @@ dbpsrsResponseStatus = lens _dbpsrsResponseStatus (\ s a -> s{_dbpsrsResponseStatus = a}); instance NFData DescribeBatchPredictionsResponse+ where
gen/Network/AWS/MachineLearning/DescribeDataSources.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DescribeDataSources--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,29 +50,30 @@ , ddssrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'describeDataSources' smart constructor. data DescribeDataSources = DescribeDataSources'- { _ddsEQ :: !(Maybe Text)- , _ddsGE :: !(Maybe Text)- , _ddsPrefix :: !(Maybe Text)- , _ddsGT :: !(Maybe Text)- , _ddsNE :: !(Maybe Text)- , _ddsNextToken :: !(Maybe Text)- , _ddsSortOrder :: !(Maybe SortOrder)- , _ddsLimit :: !(Maybe Nat)- , _ddsLT :: !(Maybe Text)- , _ddsFilterVariable :: !(Maybe DataSourceFilterVariable)- , _ddsLE :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ddsEQ :: !(Maybe Text)+ , _ddsGE :: !(Maybe Text)+ , _ddsPrefix :: !(Maybe Text)+ , _ddsGT :: !(Maybe Text)+ , _ddsNE :: !(Maybe Text)+ , _ddsNextToken :: !(Maybe Text)+ , _ddsSortOrder :: !(Maybe SortOrder)+ , _ddsLimit :: !(Maybe Nat)+ , _ddsLT :: !(Maybe Text)+ , _ddsFilterVariable :: !(Maybe DataSourceFilterVariable)+ , _ddsLE :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDataSources' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,20 +102,21 @@ describeDataSources :: DescribeDataSources describeDataSources =- DescribeDataSources'- { _ddsEQ = Nothing- , _ddsGE = Nothing- , _ddsPrefix = Nothing- , _ddsGT = Nothing- , _ddsNE = Nothing- , _ddsNextToken = Nothing- , _ddsSortOrder = Nothing- , _ddsLimit = Nothing- , _ddsLT = Nothing- , _ddsFilterVariable = Nothing- , _ddsLE = Nothing- }+ DescribeDataSources'+ { _ddsEQ = Nothing+ , _ddsGE = Nothing+ , _ddsPrefix = Nothing+ , _ddsGT = Nothing+ , _ddsNE = Nothing+ , _ddsNextToken = Nothing+ , _ddsSortOrder = Nothing+ , _ddsLimit = Nothing+ , _ddsLT = Nothing+ , _ddsFilterVariable = Nothing+ , _ddsLE = Nothing+ } + -- | The equal to operator. The @DataSource@ results will have @FilterVariable@ values that exactly match the value specified with @EQ@ . ddsEQ :: Lens' DescribeDataSources (Maybe Text) ddsEQ = lens _ddsEQ (\ s a -> s{_ddsEQ = a});@@ -177,9 +179,9 @@ (x .?> "Results" .!@ mempty) <*> (x .?> "NextToken") <*> (pure (fromEnum s))) -instance Hashable DescribeDataSources+instance Hashable DescribeDataSources where -instance NFData DescribeDataSources+instance NFData DescribeDataSources where instance ToHeaders DescribeDataSources where toHeaders@@ -216,11 +218,12 @@ -- -- /See:/ 'describeDataSourcesResponse' smart constructor. data DescribeDataSourcesResponse = DescribeDataSourcesResponse'- { _ddssrsResults :: !(Maybe [DataSource])- , _ddssrsNextToken :: !(Maybe Text)- , _ddssrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -234,12 +237,13 @@ :: Int -- ^ 'ddssrsResponseStatus' -> DescribeDataSourcesResponse describeDataSourcesResponse pResponseStatus_ =- DescribeDataSourcesResponse'- { _ddssrsResults = Nothing- , _ddssrsNextToken = Nothing- , _ddssrsResponseStatus = pResponseStatus_- }+ DescribeDataSourcesResponse'+ { _ddssrsResults = Nothing+ , _ddssrsNextToken = Nothing+ , _ddssrsResponseStatus = pResponseStatus_+ } + -- | A list of @DataSource@ that meet the search criteria. ddssrsResults :: Lens' DescribeDataSourcesResponse [DataSource] ddssrsResults = lens _ddssrsResults (\ s a -> s{_ddssrsResults = a}) . _Default . _Coerce;@@ -252,4 +256,4 @@ ddssrsResponseStatus :: Lens' DescribeDataSourcesResponse Int ddssrsResponseStatus = lens _ddssrsResponseStatus (\ s a -> s{_ddssrsResponseStatus = a}); -instance NFData DescribeDataSourcesResponse+instance NFData DescribeDataSourcesResponse where
gen/Network/AWS/MachineLearning/DescribeEvaluations.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DescribeEvaluations--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,29 +50,30 @@ , desrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'describeEvaluations' smart constructor. data DescribeEvaluations = DescribeEvaluations'- { _deEQ :: !(Maybe Text)- , _deGE :: !(Maybe Text)- , _dePrefix :: !(Maybe Text)- , _deGT :: !(Maybe Text)- , _deNE :: !(Maybe Text)- , _deNextToken :: !(Maybe Text)- , _deSortOrder :: !(Maybe SortOrder)- , _deLimit :: !(Maybe Nat)- , _deLT :: !(Maybe Text)- , _deFilterVariable :: !(Maybe EvaluationFilterVariable)- , _deLE :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _deEQ :: !(Maybe Text)+ , _deGE :: !(Maybe Text)+ , _dePrefix :: !(Maybe Text)+ , _deGT :: !(Maybe Text)+ , _deNE :: !(Maybe Text)+ , _deNextToken :: !(Maybe Text)+ , _deSortOrder :: !(Maybe SortOrder)+ , _deLimit :: !(Maybe Nat)+ , _deLT :: !(Maybe Text)+ , _deFilterVariable :: !(Maybe EvaluationFilterVariable)+ , _deLE :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEvaluations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,20 +102,21 @@ describeEvaluations :: DescribeEvaluations describeEvaluations =- DescribeEvaluations'- { _deEQ = Nothing- , _deGE = Nothing- , _dePrefix = Nothing- , _deGT = Nothing- , _deNE = Nothing- , _deNextToken = Nothing- , _deSortOrder = Nothing- , _deLimit = Nothing- , _deLT = Nothing- , _deFilterVariable = Nothing- , _deLE = Nothing- }+ DescribeEvaluations'+ { _deEQ = Nothing+ , _deGE = Nothing+ , _dePrefix = Nothing+ , _deGT = Nothing+ , _deNE = Nothing+ , _deNextToken = Nothing+ , _deSortOrder = Nothing+ , _deLimit = Nothing+ , _deLT = Nothing+ , _deFilterVariable = Nothing+ , _deLE = Nothing+ } + -- | The equal to operator. The @Evaluation@ results will have @FilterVariable@ values that exactly match the value specified with @EQ@ . deEQ :: Lens' DescribeEvaluations (Maybe Text) deEQ = lens _deEQ (\ s a -> s{_deEQ = a});@@ -177,9 +179,9 @@ (x .?> "Results" .!@ mempty) <*> (x .?> "NextToken") <*> (pure (fromEnum s))) -instance Hashable DescribeEvaluations+instance Hashable DescribeEvaluations where -instance NFData DescribeEvaluations+instance NFData DescribeEvaluations where instance ToHeaders DescribeEvaluations where toHeaders@@ -216,11 +218,12 @@ -- -- /See:/ 'describeEvaluationsResponse' smart constructor. data DescribeEvaluationsResponse = DescribeEvaluationsResponse'- { _desrsResults :: !(Maybe [Evaluation])- , _desrsNextToken :: !(Maybe Text)- , _desrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -234,12 +237,13 @@ :: Int -- ^ 'desrsResponseStatus' -> DescribeEvaluationsResponse describeEvaluationsResponse pResponseStatus_ =- DescribeEvaluationsResponse'- { _desrsResults = Nothing- , _desrsNextToken = Nothing- , _desrsResponseStatus = pResponseStatus_- }+ DescribeEvaluationsResponse'+ { _desrsResults = Nothing+ , _desrsNextToken = Nothing+ , _desrsResponseStatus = pResponseStatus_+ } + -- | A list of @Evaluation@ that meet the search criteria. desrsResults :: Lens' DescribeEvaluationsResponse [Evaluation] desrsResults = lens _desrsResults (\ s a -> s{_desrsResults = a}) . _Default . _Coerce;@@ -252,4 +256,4 @@ desrsResponseStatus :: Lens' DescribeEvaluationsResponse Int desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); -instance NFData DescribeEvaluationsResponse+instance NFData DescribeEvaluationsResponse where
gen/Network/AWS/MachineLearning/DescribeMLModels.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DescribeMLModels--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,29 +50,30 @@ , dmlmsrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'describeMLModels' smart constructor. data DescribeMLModels = DescribeMLModels'- { _dmlmEQ :: !(Maybe Text)- , _dmlmGE :: !(Maybe Text)- , _dmlmPrefix :: !(Maybe Text)- , _dmlmGT :: !(Maybe Text)- , _dmlmNE :: !(Maybe Text)- , _dmlmNextToken :: !(Maybe Text)- , _dmlmSortOrder :: !(Maybe SortOrder)- , _dmlmLimit :: !(Maybe Nat)- , _dmlmLT :: !(Maybe Text)- , _dmlmFilterVariable :: !(Maybe MLModelFilterVariable)- , _dmlmLE :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dmlmEQ :: !(Maybe Text)+ , _dmlmGE :: !(Maybe Text)+ , _dmlmPrefix :: !(Maybe Text)+ , _dmlmGT :: !(Maybe Text)+ , _dmlmNE :: !(Maybe Text)+ , _dmlmNextToken :: !(Maybe Text)+ , _dmlmSortOrder :: !(Maybe SortOrder)+ , _dmlmLimit :: !(Maybe Nat)+ , _dmlmLT :: !(Maybe Text)+ , _dmlmFilterVariable :: !(Maybe MLModelFilterVariable)+ , _dmlmLE :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeMLModels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,20 +102,21 @@ describeMLModels :: DescribeMLModels describeMLModels =- DescribeMLModels'- { _dmlmEQ = Nothing- , _dmlmGE = Nothing- , _dmlmPrefix = Nothing- , _dmlmGT = Nothing- , _dmlmNE = Nothing- , _dmlmNextToken = Nothing- , _dmlmSortOrder = Nothing- , _dmlmLimit = Nothing- , _dmlmLT = Nothing- , _dmlmFilterVariable = Nothing- , _dmlmLE = Nothing- }+ DescribeMLModels'+ { _dmlmEQ = Nothing+ , _dmlmGE = Nothing+ , _dmlmPrefix = Nothing+ , _dmlmGT = Nothing+ , _dmlmNE = Nothing+ , _dmlmNextToken = Nothing+ , _dmlmSortOrder = Nothing+ , _dmlmLimit = Nothing+ , _dmlmLT = Nothing+ , _dmlmFilterVariable = Nothing+ , _dmlmLE = Nothing+ } + -- | The equal to operator. The @MLModel@ results will have @FilterVariable@ values that exactly match the value specified with @EQ@ . dmlmEQ :: Lens' DescribeMLModels (Maybe Text) dmlmEQ = lens _dmlmEQ (\ s a -> s{_dmlmEQ = a});@@ -176,9 +178,9 @@ (x .?> "Results" .!@ mempty) <*> (x .?> "NextToken") <*> (pure (fromEnum s))) -instance Hashable DescribeMLModels+instance Hashable DescribeMLModels where -instance NFData DescribeMLModels+instance NFData DescribeMLModels where instance ToHeaders DescribeMLModels where toHeaders@@ -214,11 +216,12 @@ -- -- /See:/ 'describeMLModelsResponse' smart constructor. data DescribeMLModelsResponse = DescribeMLModelsResponse'- { _dmlmsrsResults :: !(Maybe [MLModel])- , _dmlmsrsNextToken :: !(Maybe Text)- , _dmlmsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -232,12 +235,13 @@ :: Int -- ^ 'dmlmsrsResponseStatus' -> DescribeMLModelsResponse describeMLModelsResponse pResponseStatus_ =- DescribeMLModelsResponse'- { _dmlmsrsResults = Nothing- , _dmlmsrsNextToken = Nothing- , _dmlmsrsResponseStatus = pResponseStatus_- }+ DescribeMLModelsResponse'+ { _dmlmsrsResults = Nothing+ , _dmlmsrsNextToken = Nothing+ , _dmlmsrsResponseStatus = pResponseStatus_+ } + -- | A list of @MLModel@ that meet the search criteria. dmlmsrsResults :: Lens' DescribeMLModelsResponse [MLModel] dmlmsrsResults = lens _dmlmsrsResults (\ s a -> s{_dmlmsrsResults = a}) . _Default . _Coerce;@@ -250,4 +254,4 @@ dmlmsrsResponseStatus :: Lens' DescribeMLModelsResponse Int dmlmsrsResponseStatus = lens _dmlmsrsResponseStatus (\ s a -> s{_dmlmsrsResponseStatus = a}); -instance NFData DescribeMLModelsResponse+instance NFData DescribeMLModelsResponse where
gen/Network/AWS/MachineLearning/DescribeTags.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.DescribeTags--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,19 +40,20 @@ , dtrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'describeTags' smart constructor. data DescribeTags = DescribeTags'- { _dtResourceId :: !Text- , _dtResourceType :: !TaggableResourceType- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtResourceId :: !Text+ , _dtResourceType :: !TaggableResourceType+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ -> TaggableResourceType -- ^ 'dtResourceType' -> DescribeTags describeTags pResourceId_ pResourceType_ =- DescribeTags'- { _dtResourceId = pResourceId_- , _dtResourceType = pResourceType_- }+ DescribeTags' {_dtResourceId = pResourceId_, _dtResourceType = pResourceType_} + -- | The ID of the ML object. For example, @exampleModelId@ . dtResourceId :: Lens' DescribeTags Text dtResourceId = lens _dtResourceId (\ s a -> s{_dtResourceId = a});@@ -89,9 +88,9 @@ (x .?> "Tags" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable DescribeTags+instance Hashable DescribeTags where -instance NFData DescribeTags+instance NFData DescribeTags where instance ToHeaders DescribeTags where toHeaders@@ -121,12 +120,13 @@ -- -- /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse'- { _dtrsResourceId :: !(Maybe Text)- , _dtrsResourceType :: !(Maybe TaggableResourceType)- , _dtrsTags :: !(Maybe [Tag])- , _dtrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtrsResourceId :: !(Maybe Text)+ , _dtrsResourceType :: !(Maybe TaggableResourceType)+ , _dtrsTags :: !(Maybe [Tag])+ , _dtrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,13 +142,14 @@ :: Int -- ^ 'dtrsResponseStatus' -> DescribeTagsResponse describeTagsResponse pResponseStatus_ =- DescribeTagsResponse'- { _dtrsResourceId = Nothing- , _dtrsResourceType = Nothing- , _dtrsTags = Nothing- , _dtrsResponseStatus = pResponseStatus_- }+ DescribeTagsResponse'+ { _dtrsResourceId = Nothing+ , _dtrsResourceType = Nothing+ , _dtrsTags = Nothing+ , _dtrsResponseStatus = pResponseStatus_+ } + -- | The ID of the tagged ML object. dtrsResourceId :: Lens' DescribeTagsResponse (Maybe Text) dtrsResourceId = lens _dtrsResourceId (\ s a -> s{_dtrsResourceId = a});@@ -165,4 +166,4 @@ dtrsResponseStatus :: Lens' DescribeTagsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); -instance NFData DescribeTagsResponse+instance NFData DescribeTagsResponse where
gen/Network/AWS/MachineLearning/GetBatchPrediction.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.GetBatchPrediction--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -53,18 +53,19 @@ , gbprsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'getBatchPrediction' smart constructor. newtype GetBatchPrediction = GetBatchPrediction'- { _gbpBatchPredictionId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gbpBatchPredictionId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBatchPrediction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,10 +75,9 @@ :: Text -- ^ 'gbpBatchPredictionId' -> GetBatchPrediction getBatchPrediction pBatchPredictionId_ =- GetBatchPrediction'- { _gbpBatchPredictionId = pBatchPredictionId_- }+ GetBatchPrediction' {_gbpBatchPredictionId = pBatchPredictionId_} + -- | An ID assigned to the @BatchPrediction@ at creation. gbpBatchPredictionId :: Lens' GetBatchPrediction Text gbpBatchPredictionId = lens _gbpBatchPredictionId (\ s a -> s{_gbpBatchPredictionId = a});@@ -108,9 +108,9 @@ <*> (x .?> "OutputUri") <*> (pure (fromEnum s))) -instance Hashable GetBatchPrediction+instance Hashable GetBatchPrediction where -instance NFData GetBatchPrediction+instance NFData GetBatchPrediction where instance ToHeaders GetBatchPrediction where toHeaders@@ -141,26 +141,27 @@ -- -- /See:/ 'getBatchPredictionResponse' smart constructor. data GetBatchPredictionResponse = GetBatchPredictionResponse'- { _gbprsStatus :: !(Maybe EntityStatus)- , _gbprsLastUpdatedAt :: !(Maybe POSIX)- , _gbprsCreatedAt :: !(Maybe POSIX)- , _gbprsComputeTime :: !(Maybe Integer)- , _gbprsInputDataLocationS3 :: !(Maybe Text)- , _gbprsMLModelId :: !(Maybe Text)- , _gbprsBatchPredictionDataSourceId :: !(Maybe Text)- , _gbprsTotalRecordCount :: !(Maybe Integer)- , _gbprsStartedAt :: !(Maybe POSIX)- , _gbprsBatchPredictionId :: !(Maybe Text)- , _gbprsFinishedAt :: !(Maybe POSIX)- , _gbprsInvalidRecordCount :: !(Maybe Integer)- , _gbprsCreatedByIAMUser :: !(Maybe Text)- , _gbprsName :: !(Maybe Text)- , _gbprsLogURI :: !(Maybe Text)- , _gbprsMessage :: !(Maybe Text)- , _gbprsOutputURI :: !(Maybe Text)- , _gbprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gbprsStatus :: !(Maybe EntityStatus)+ , _gbprsLastUpdatedAt :: !(Maybe POSIX)+ , _gbprsCreatedAt :: !(Maybe POSIX)+ , _gbprsComputeTime :: !(Maybe Integer)+ , _gbprsInputDataLocationS3 :: !(Maybe Text)+ , _gbprsMLModelId :: !(Maybe Text)+ , _gbprsBatchPredictionDataSourceId :: !(Maybe Text)+ , _gbprsTotalRecordCount :: !(Maybe Integer)+ , _gbprsStartedAt :: !(Maybe POSIX)+ , _gbprsBatchPredictionId :: !(Maybe Text)+ , _gbprsFinishedAt :: !(Maybe POSIX)+ , _gbprsInvalidRecordCount :: !(Maybe Integer)+ , _gbprsCreatedByIAMUser :: !(Maybe Text)+ , _gbprsName :: !(Maybe Text)+ , _gbprsLogURI :: !(Maybe Text)+ , _gbprsMessage :: !(Maybe Text)+ , _gbprsOutputURI :: !(Maybe Text)+ , _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:@@ -204,27 +205,28 @@ :: Int -- ^ 'gbprsResponseStatus' -> GetBatchPredictionResponse getBatchPredictionResponse pResponseStatus_ =- GetBatchPredictionResponse'- { _gbprsStatus = Nothing- , _gbprsLastUpdatedAt = Nothing- , _gbprsCreatedAt = Nothing- , _gbprsComputeTime = Nothing- , _gbprsInputDataLocationS3 = Nothing- , _gbprsMLModelId = Nothing- , _gbprsBatchPredictionDataSourceId = Nothing- , _gbprsTotalRecordCount = Nothing- , _gbprsStartedAt = Nothing- , _gbprsBatchPredictionId = Nothing- , _gbprsFinishedAt = Nothing- , _gbprsInvalidRecordCount = Nothing- , _gbprsCreatedByIAMUser = Nothing- , _gbprsName = Nothing- , _gbprsLogURI = Nothing- , _gbprsMessage = Nothing- , _gbprsOutputURI = Nothing- , _gbprsResponseStatus = pResponseStatus_- }+ GetBatchPredictionResponse'+ { _gbprsStatus = Nothing+ , _gbprsLastUpdatedAt = Nothing+ , _gbprsCreatedAt = Nothing+ , _gbprsComputeTime = Nothing+ , _gbprsInputDataLocationS3 = Nothing+ , _gbprsMLModelId = Nothing+ , _gbprsBatchPredictionDataSourceId = Nothing+ , _gbprsTotalRecordCount = Nothing+ , _gbprsStartedAt = Nothing+ , _gbprsBatchPredictionId = Nothing+ , _gbprsFinishedAt = Nothing+ , _gbprsInvalidRecordCount = Nothing+ , _gbprsCreatedByIAMUser = Nothing+ , _gbprsName = Nothing+ , _gbprsLogURI = Nothing+ , _gbprsMessage = Nothing+ , _gbprsOutputURI = Nothing+ , _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});@@ -297,4 +299,4 @@ gbprsResponseStatus :: Lens' GetBatchPredictionResponse Int gbprsResponseStatus = lens _gbprsResponseStatus (\ s a -> s{_gbprsResponseStatus = a}); -instance NFData GetBatchPredictionResponse+instance NFData GetBatchPredictionResponse where
gen/Network/AWS/MachineLearning/GetDataSource.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.GetDataSource--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -59,19 +59,20 @@ , gdsrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'getDataSource' smart constructor. data GetDataSource = GetDataSource'- { _gdsVerbose :: !(Maybe Bool)- , _gdsDataSourceId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gdsVerbose :: !(Maybe Bool)+ , _gdsDataSourceId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDataSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,11 +84,9 @@ :: Text -- ^ 'gdsDataSourceId' -> GetDataSource getDataSource pDataSourceId_ =- GetDataSource'- { _gdsVerbose = Nothing- , _gdsDataSourceId = pDataSourceId_- }+ GetDataSource' {_gdsVerbose = Nothing, _gdsDataSourceId = pDataSourceId_} + -- | Specifies whether the @GetDataSource@ operation should return @DataSourceSchema@ . If true, @DataSourceSchema@ is returned. If false, @DataSourceSchema@ is not returned. gdsVerbose :: Lens' GetDataSource (Maybe Bool) gdsVerbose = lens _gdsVerbose (\ s a -> s{_gdsVerbose = a});@@ -124,9 +123,9 @@ <*> (x .?> "RoleARN") <*> (pure (fromEnum s))) -instance Hashable GetDataSource+instance Hashable GetDataSource where -instance NFData GetDataSource+instance NFData GetDataSource where instance ToHeaders GetDataSource where toHeaders@@ -156,29 +155,30 @@ -- -- /See:/ 'getDataSourceResponse' smart constructor. data GetDataSourceResponse = GetDataSourceResponse'- { _gdsrsStatus :: !(Maybe EntityStatus)- , _gdsrsNumberOfFiles :: !(Maybe Integer)- , _gdsrsLastUpdatedAt :: !(Maybe POSIX)- , _gdsrsCreatedAt :: !(Maybe POSIX)- , _gdsrsComputeTime :: !(Maybe Integer)- , _gdsrsDataSourceId :: !(Maybe Text)- , _gdsrsRDSMetadata :: !(Maybe RDSMetadata)- , _gdsrsDataSizeInBytes :: !(Maybe Integer)- , _gdsrsDataSourceSchema :: !(Maybe Text)- , _gdsrsStartedAt :: !(Maybe POSIX)- , _gdsrsFinishedAt :: !(Maybe POSIX)- , _gdsrsCreatedByIAMUser :: !(Maybe Text)- , _gdsrsName :: !(Maybe Text)- , _gdsrsLogURI :: !(Maybe Text)- , _gdsrsDataLocationS3 :: !(Maybe Text)- , _gdsrsComputeStatistics :: !(Maybe Bool)- , _gdsrsMessage :: !(Maybe Text)- , _gdsrsRedshiftMetadata :: !(Maybe RedshiftMetadata)- , _gdsrsDataRearrangement :: !(Maybe Text)- , _gdsrsRoleARN :: !(Maybe Text)- , _gdsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gdsrsStatus :: !(Maybe EntityStatus)+ , _gdsrsNumberOfFiles :: !(Maybe Integer)+ , _gdsrsLastUpdatedAt :: !(Maybe POSIX)+ , _gdsrsCreatedAt :: !(Maybe POSIX)+ , _gdsrsComputeTime :: !(Maybe Integer)+ , _gdsrsDataSourceId :: !(Maybe Text)+ , _gdsrsRDSMetadata :: !(Maybe RDSMetadata)+ , _gdsrsDataSizeInBytes :: !(Maybe Integer)+ , _gdsrsDataSourceSchema :: !(Maybe Text)+ , _gdsrsStartedAt :: !(Maybe POSIX)+ , _gdsrsFinishedAt :: !(Maybe POSIX)+ , _gdsrsCreatedByIAMUser :: !(Maybe Text)+ , _gdsrsName :: !(Maybe Text)+ , _gdsrsLogURI :: !(Maybe Text)+ , _gdsrsDataLocationS3 :: !(Maybe Text)+ , _gdsrsComputeStatistics :: !(Maybe Bool)+ , _gdsrsMessage :: !(Maybe Text)+ , _gdsrsRedshiftMetadata :: !(Maybe RedshiftMetadata)+ , _gdsrsDataRearrangement :: !(Maybe Text)+ , _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:@@ -228,30 +228,31 @@ :: Int -- ^ 'gdsrsResponseStatus' -> GetDataSourceResponse getDataSourceResponse pResponseStatus_ =- GetDataSourceResponse'- { _gdsrsStatus = Nothing- , _gdsrsNumberOfFiles = Nothing- , _gdsrsLastUpdatedAt = Nothing- , _gdsrsCreatedAt = Nothing- , _gdsrsComputeTime = Nothing- , _gdsrsDataSourceId = Nothing- , _gdsrsRDSMetadata = Nothing- , _gdsrsDataSizeInBytes = Nothing- , _gdsrsDataSourceSchema = Nothing- , _gdsrsStartedAt = Nothing- , _gdsrsFinishedAt = Nothing- , _gdsrsCreatedByIAMUser = Nothing- , _gdsrsName = Nothing- , _gdsrsLogURI = Nothing- , _gdsrsDataLocationS3 = Nothing- , _gdsrsComputeStatistics = Nothing- , _gdsrsMessage = Nothing- , _gdsrsRedshiftMetadata = Nothing- , _gdsrsDataRearrangement = Nothing- , _gdsrsRoleARN = Nothing- , _gdsrsResponseStatus = pResponseStatus_- }+ GetDataSourceResponse'+ { _gdsrsStatus = Nothing+ , _gdsrsNumberOfFiles = Nothing+ , _gdsrsLastUpdatedAt = Nothing+ , _gdsrsCreatedAt = Nothing+ , _gdsrsComputeTime = Nothing+ , _gdsrsDataSourceId = Nothing+ , _gdsrsRDSMetadata = Nothing+ , _gdsrsDataSizeInBytes = Nothing+ , _gdsrsDataSourceSchema = Nothing+ , _gdsrsStartedAt = Nothing+ , _gdsrsFinishedAt = Nothing+ , _gdsrsCreatedByIAMUser = Nothing+ , _gdsrsName = Nothing+ , _gdsrsLogURI = Nothing+ , _gdsrsDataLocationS3 = Nothing+ , _gdsrsComputeStatistics = Nothing+ , _gdsrsMessage = Nothing+ , _gdsrsRedshiftMetadata = Nothing+ , _gdsrsDataRearrangement = Nothing+ , _gdsrsRoleARN = Nothing+ , _gdsrsResponseStatus = pResponseStatus_+ } + -- | The current status of the @DataSource@ . This element can have one of the following values: * @PENDING@ - 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});@@ -336,4 +337,4 @@ gdsrsResponseStatus :: Lens' GetDataSourceResponse Int gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a}); -instance NFData GetDataSourceResponse+instance NFData GetDataSourceResponse where
gen/Network/AWS/MachineLearning/GetEvaluation.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.GetEvaluation--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -51,18 +51,19 @@ , gersResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'getEvaluation' smart constructor. newtype GetEvaluation = GetEvaluation'- { _geEvaluationId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _geEvaluationId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetEvaluation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,11 +72,9 @@ getEvaluation :: Text -- ^ 'geEvaluationId' -> GetEvaluation-getEvaluation pEvaluationId_ =- GetEvaluation'- { _geEvaluationId = pEvaluationId_- }+getEvaluation pEvaluationId_ = GetEvaluation' {_geEvaluationId = pEvaluationId_} + -- | The ID of the @Evaluation@ to retrieve. The evaluation of each @MLModel@ is recorded and cataloged. The ID provides the means to access the information. geEvaluationId :: Lens' GetEvaluation Text geEvaluationId = lens _geEvaluationId (\ s a -> s{_geEvaluationId = a});@@ -103,9 +102,9 @@ <*> (x .?> "EvaluationDataSourceId") <*> (pure (fromEnum s))) -instance Hashable GetEvaluation+instance Hashable GetEvaluation where -instance NFData GetEvaluation+instance NFData GetEvaluation where instance ToHeaders GetEvaluation where toHeaders@@ -134,24 +133,25 @@ -- -- /See:/ 'getEvaluationResponse' smart constructor. data GetEvaluationResponse = GetEvaluationResponse'- { _gersStatus :: !(Maybe EntityStatus)- , _gersPerformanceMetrics :: !(Maybe PerformanceMetrics)- , _gersLastUpdatedAt :: !(Maybe POSIX)- , _gersCreatedAt :: !(Maybe POSIX)- , _gersComputeTime :: !(Maybe Integer)- , _gersInputDataLocationS3 :: !(Maybe Text)- , _gersMLModelId :: !(Maybe Text)- , _gersStartedAt :: !(Maybe POSIX)- , _gersFinishedAt :: !(Maybe POSIX)- , _gersCreatedByIAMUser :: !(Maybe Text)- , _gersName :: !(Maybe Text)- , _gersLogURI :: !(Maybe Text)- , _gersEvaluationId :: !(Maybe Text)- , _gersMessage :: !(Maybe Text)- , _gersEvaluationDataSourceId :: !(Maybe Text)- , _gersResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gersStatus :: !(Maybe EntityStatus)+ , _gersPerformanceMetrics :: !(Maybe PerformanceMetrics)+ , _gersLastUpdatedAt :: !(Maybe POSIX)+ , _gersCreatedAt :: !(Maybe POSIX)+ , _gersComputeTime :: !(Maybe Integer)+ , _gersInputDataLocationS3 :: !(Maybe Text)+ , _gersMLModelId :: !(Maybe Text)+ , _gersStartedAt :: !(Maybe POSIX)+ , _gersFinishedAt :: !(Maybe POSIX)+ , _gersCreatedByIAMUser :: !(Maybe Text)+ , _gersName :: !(Maybe Text)+ , _gersLogURI :: !(Maybe Text)+ , _gersEvaluationId :: !(Maybe Text)+ , _gersMessage :: !(Maybe Text)+ , _gersEvaluationDataSourceId :: !(Maybe Text)+ , _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:@@ -191,25 +191,26 @@ :: Int -- ^ 'gersResponseStatus' -> GetEvaluationResponse getEvaluationResponse pResponseStatus_ =- GetEvaluationResponse'- { _gersStatus = Nothing- , _gersPerformanceMetrics = Nothing- , _gersLastUpdatedAt = Nothing- , _gersCreatedAt = Nothing- , _gersComputeTime = Nothing- , _gersInputDataLocationS3 = Nothing- , _gersMLModelId = Nothing- , _gersStartedAt = Nothing- , _gersFinishedAt = Nothing- , _gersCreatedByIAMUser = Nothing- , _gersName = Nothing- , _gersLogURI = Nothing- , _gersEvaluationId = Nothing- , _gersMessage = Nothing- , _gersEvaluationDataSourceId = Nothing- , _gersResponseStatus = pResponseStatus_- }+ GetEvaluationResponse'+ { _gersStatus = Nothing+ , _gersPerformanceMetrics = Nothing+ , _gersLastUpdatedAt = Nothing+ , _gersCreatedAt = Nothing+ , _gersComputeTime = Nothing+ , _gersInputDataLocationS3 = Nothing+ , _gersMLModelId = Nothing+ , _gersStartedAt = Nothing+ , _gersFinishedAt = Nothing+ , _gersCreatedByIAMUser = Nothing+ , _gersName = Nothing+ , _gersLogURI = Nothing+ , _gersEvaluationId = Nothing+ , _gersMessage = Nothing+ , _gersEvaluationDataSourceId = Nothing+ , _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});@@ -274,4 +275,4 @@ gersResponseStatus :: Lens' GetEvaluationResponse Int gersResponseStatus = lens _gersResponseStatus (\ s a -> s{_gersResponseStatus = a}); -instance NFData GetEvaluationResponse+instance NFData GetEvaluationResponse where
gen/Network/AWS/MachineLearning/GetMLModel.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.GetMLModel--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -60,19 +60,20 @@ , gmlmrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'getMLModel' smart constructor. data GetMLModel = GetMLModel'- { _gmlmVerbose :: !(Maybe Bool)- , _gmlmMLModelId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gmlmVerbose :: !(Maybe Bool)+ , _gmlmMLModelId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetMLModel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -84,11 +85,9 @@ :: Text -- ^ 'gmlmMLModelId' -> GetMLModel getMLModel pMLModelId_ =- GetMLModel'- { _gmlmVerbose = Nothing- , _gmlmMLModelId = pMLModelId_- }+ GetMLModel' {_gmlmVerbose = Nothing, _gmlmMLModelId = pMLModelId_} + -- | Specifies whether the @GetMLModel@ operation should return @Recipe@ . If true, @Recipe@ is returned. If false, @Recipe@ is not returned. gmlmVerbose :: Lens' GetMLModel (Maybe Bool) gmlmVerbose = lens _gmlmVerbose (\ s a -> s{_gmlmVerbose = a});@@ -126,9 +125,9 @@ <*> (x .?> "MLModelType") <*> (pure (fromEnum s))) -instance Hashable GetMLModel+instance Hashable GetMLModel where -instance NFData GetMLModel+instance NFData GetMLModel where instance ToHeaders GetMLModel where toHeaders@@ -158,30 +157,31 @@ -- -- /See:/ 'getMLModelResponse' smart constructor. data GetMLModelResponse = GetMLModelResponse'- { _gmlmrsStatus :: !(Maybe EntityStatus)- , _gmlmrsLastUpdatedAt :: !(Maybe POSIX)- , _gmlmrsTrainingParameters :: !(Maybe (Map Text Text))- , _gmlmrsScoreThresholdLastUpdatedAt :: !(Maybe POSIX)- , _gmlmrsCreatedAt :: !(Maybe POSIX)- , _gmlmrsComputeTime :: !(Maybe Integer)- , _gmlmrsRecipe :: !(Maybe Text)- , _gmlmrsInputDataLocationS3 :: !(Maybe Text)- , _gmlmrsMLModelId :: !(Maybe Text)- , _gmlmrsSizeInBytes :: !(Maybe Integer)- , _gmlmrsSchema :: !(Maybe Text)- , _gmlmrsStartedAt :: !(Maybe POSIX)- , _gmlmrsScoreThreshold :: !(Maybe Double)- , _gmlmrsFinishedAt :: !(Maybe POSIX)- , _gmlmrsCreatedByIAMUser :: !(Maybe Text)- , _gmlmrsName :: !(Maybe Text)- , _gmlmrsLogURI :: !(Maybe Text)- , _gmlmrsEndpointInfo :: !(Maybe RealtimeEndpointInfo)- , _gmlmrsTrainingDataSourceId :: !(Maybe Text)- , _gmlmrsMessage :: !(Maybe Text)- , _gmlmrsMLModelType :: !(Maybe MLModelType)- , _gmlmrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gmlmrsStatus :: !(Maybe EntityStatus)+ , _gmlmrsLastUpdatedAt :: !(Maybe POSIX)+ , _gmlmrsTrainingParameters :: !(Maybe (Map Text Text))+ , _gmlmrsScoreThresholdLastUpdatedAt :: !(Maybe POSIX)+ , _gmlmrsCreatedAt :: !(Maybe POSIX)+ , _gmlmrsComputeTime :: !(Maybe Integer)+ , _gmlmrsRecipe :: !(Maybe Text)+ , _gmlmrsInputDataLocationS3 :: !(Maybe Text)+ , _gmlmrsMLModelId :: !(Maybe Text)+ , _gmlmrsSizeInBytes :: !(Maybe Integer)+ , _gmlmrsSchema :: !(Maybe Text)+ , _gmlmrsStartedAt :: !(Maybe POSIX)+ , _gmlmrsScoreThreshold :: !(Maybe Double)+ , _gmlmrsFinishedAt :: !(Maybe POSIX)+ , _gmlmrsCreatedByIAMUser :: !(Maybe Text)+ , _gmlmrsName :: !(Maybe Text)+ , _gmlmrsLogURI :: !(Maybe Text)+ , _gmlmrsEndpointInfo :: !(Maybe RealtimeEndpointInfo)+ , _gmlmrsTrainingDataSourceId :: !(Maybe Text)+ , _gmlmrsMessage :: !(Maybe Text)+ , _gmlmrsMLModelType :: !(Maybe MLModelType)+ , _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:@@ -233,31 +233,32 @@ :: Int -- ^ 'gmlmrsResponseStatus' -> GetMLModelResponse getMLModelResponse pResponseStatus_ =- GetMLModelResponse'- { _gmlmrsStatus = Nothing- , _gmlmrsLastUpdatedAt = Nothing- , _gmlmrsTrainingParameters = Nothing- , _gmlmrsScoreThresholdLastUpdatedAt = Nothing- , _gmlmrsCreatedAt = Nothing- , _gmlmrsComputeTime = Nothing- , _gmlmrsRecipe = Nothing- , _gmlmrsInputDataLocationS3 = Nothing- , _gmlmrsMLModelId = Nothing- , _gmlmrsSizeInBytes = Nothing- , _gmlmrsSchema = Nothing- , _gmlmrsStartedAt = Nothing- , _gmlmrsScoreThreshold = Nothing- , _gmlmrsFinishedAt = Nothing- , _gmlmrsCreatedByIAMUser = Nothing- , _gmlmrsName = Nothing- , _gmlmrsLogURI = Nothing- , _gmlmrsEndpointInfo = Nothing- , _gmlmrsTrainingDataSourceId = Nothing- , _gmlmrsMessage = Nothing- , _gmlmrsMLModelType = Nothing- , _gmlmrsResponseStatus = pResponseStatus_- }+ GetMLModelResponse'+ { _gmlmrsStatus = Nothing+ , _gmlmrsLastUpdatedAt = Nothing+ , _gmlmrsTrainingParameters = Nothing+ , _gmlmrsScoreThresholdLastUpdatedAt = Nothing+ , _gmlmrsCreatedAt = Nothing+ , _gmlmrsComputeTime = Nothing+ , _gmlmrsRecipe = Nothing+ , _gmlmrsInputDataLocationS3 = Nothing+ , _gmlmrsMLModelId = Nothing+ , _gmlmrsSizeInBytes = Nothing+ , _gmlmrsSchema = Nothing+ , _gmlmrsStartedAt = Nothing+ , _gmlmrsScoreThreshold = Nothing+ , _gmlmrsFinishedAt = Nothing+ , _gmlmrsCreatedByIAMUser = Nothing+ , _gmlmrsName = Nothing+ , _gmlmrsLogURI = Nothing+ , _gmlmrsEndpointInfo = Nothing+ , _gmlmrsTrainingDataSourceId = Nothing+ , _gmlmrsMessage = Nothing+ , _gmlmrsMLModelType = Nothing+ , _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. The ML model isn't usable. * @COMPLETED@ - The request completed successfully. * @DELETED@ - The @MLModel@ is marked as deleted. It isn't usable. gmlmrsStatus :: Lens' GetMLModelResponse (Maybe EntityStatus) gmlmrsStatus = lens _gmlmrsStatus (\ s a -> s{_gmlmrsStatus = a});@@ -346,4 +347,4 @@ gmlmrsResponseStatus :: Lens' GetMLModelResponse Int gmlmrsResponseStatus = lens _gmlmrsResponseStatus (\ s a -> s{_gmlmrsResponseStatus = a}); -instance NFData GetMLModelResponse+instance NFData GetMLModelResponse where
gen/Network/AWS/MachineLearning/Predict.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.Predict--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,20 +39,21 @@ , prsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'predict' smart constructor. data Predict = Predict'- { _pMLModelId :: !Text- , _pRecord :: !(Map Text Text)- , _pPredictEndpoint :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pMLModelId :: !Text+ , _pRecord :: !(Map Text Text)+ , _pPredictEndpoint :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Predict' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,12 +68,13 @@ -> Text -- ^ 'pPredictEndpoint' -> Predict predict pMLModelId_ pPredictEndpoint_ =- Predict'- { _pMLModelId = pMLModelId_- , _pRecord = mempty- , _pPredictEndpoint = pPredictEndpoint_- }+ Predict'+ { _pMLModelId = pMLModelId_+ , _pRecord = mempty+ , _pPredictEndpoint = pPredictEndpoint_+ } + -- | A unique identifier of the @MLModel@ . pMLModelId :: Lens' Predict Text pMLModelId = lens _pMLModelId (\ s a -> s{_pMLModelId = a});@@ -94,9 +96,9 @@ PredictResponse' <$> (x .?> "Prediction") <*> (pure (fromEnum s))) -instance Hashable Predict+instance Hashable Predict where -instance NFData Predict+instance NFData Predict where instance ToHeaders Predict where toHeaders@@ -123,10 +125,11 @@ -- | /See:/ 'predictResponse' smart constructor. data PredictResponse = PredictResponse'- { _prsPrediction :: !(Maybe Prediction)- , _prsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,11 +141,10 @@ :: Int -- ^ 'prsResponseStatus' -> PredictResponse predictResponse pResponseStatus_ =- PredictResponse'- { _prsPrediction = Nothing- , _prsResponseStatus = pResponseStatus_- }+ PredictResponse'+ {_prsPrediction = Nothing, _prsResponseStatus = pResponseStatus_} + -- | Undocumented member. prsPrediction :: Lens' PredictResponse (Maybe Prediction) prsPrediction = lens _prsPrediction (\ s a -> s{_prsPrediction = a});@@ -151,4 +153,4 @@ prsResponseStatus :: Lens' PredictResponse Int prsResponseStatus = lens _prsResponseStatus (\ s a -> s{_prsResponseStatus = a}); -instance NFData PredictResponse+instance NFData PredictResponse where
gen/Network/AWS/MachineLearning/Types.hs view
@@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.MachineLearning.Types--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -244,38 +244,40 @@ , tagKey ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.MachineLearning.Types.Sum-import Network.AWS.Prelude-import Network.AWS.Sign.V4+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.MachineLearning.Types.Sum+import Network.AWS.Prelude+import Network.AWS.Sign.V4 -- | API version @2014-12-12@ of the Amazon Machine Learning SDK configuration. machineLearning :: Service machineLearning =- Service- { _svcAbbrev = "MachineLearning"- , _svcSigner = v4- , _svcPrefix = "machinelearning"- , _svcVersion = "2014-12-12"- , _svcEndpoint = defaultEndpoint machineLearning- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "MachineLearning"- , _svcRetry = retry- }+ Service+ { _svcAbbrev = "MachineLearning"+ , _svcSigner = v4+ , _svcPrefix = "machinelearning"+ , _svcVersion = "2014-12-12"+ , _svcEndpoint = defaultEndpoint machineLearning+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "MachineLearning"+ , _svcRetry = retry+ } where retry =- Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ Exponential+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e+ | has (hasCode "ThrottledException" . hasStatus 400) e =+ Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e =- Just "throttling_exception"+ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway"@@ -284,54 +286,64 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | Prism for InvalidTagException' errors. _InvalidTagException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidTagException = _ServiceError . hasCode "InvalidTagException"+_InvalidTagException = _MatchServiceError machineLearning "InvalidTagException" + -- | An error on the server occurred when trying to process a request. -- -- _InternalServerException :: AsError a => Getting (First ServiceError) a ServiceError _InternalServerException =- _ServiceError . hasStatus 500 . hasCode "InternalServerException"+ _MatchServiceError machineLearning "InternalServerException" . hasStatus 500 + -- | An error on the client occurred. Typically, the cause is an invalid input value. -- -- _InvalidInputException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidInputException =- _ServiceError . hasStatus 400 . hasCode "InvalidInputException"+ _MatchServiceError machineLearning "InvalidInputException" . hasStatus 400 + -- | A second request to use or change an object was not allowed. This can result from retrying a request using a parameter that was not present in the original request. -- -- _IdempotentParameterMismatchException :: AsError a => Getting (First ServiceError) a ServiceError _IdempotentParameterMismatchException =- _ServiceError .- hasStatus 400 . hasCode "IdempotentParameterMismatchException"+ _MatchServiceError machineLearning "IdempotentParameterMismatchException" .+ hasStatus 400 + -- | Prism for TagLimitExceededException' errors. _TagLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _TagLimitExceededException =- _ServiceError . hasCode "TagLimitExceededException"+ _MatchServiceError machineLearning "TagLimitExceededException" + -- | The exception is thrown when a predict request is made to an unmounted @MLModel@ . -- -- _PredictorNotMountedException :: AsError a => Getting (First ServiceError) a ServiceError _PredictorNotMountedException =- _ServiceError . hasStatus 400 . hasCode "PredictorNotMountedException"+ _MatchServiceError machineLearning "PredictorNotMountedException" .+ hasStatus 400 + -- | A specified resource cannot be located. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =- _ServiceError . hasStatus 404 . hasCode "ResourceNotFoundException"+ _MatchServiceError machineLearning "ResourceNotFoundException" . hasStatus 404 + -- | The subscriber exceeded the maximum number of operations. This exception can occur when listing objects such as @DataSource@ . -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException =- _ServiceError . hasStatus 417 . hasCode "LimitExceededException"+ _MatchServiceError machineLearning "LimitExceededException" . hasStatus 417+
gen/Network/AWS/MachineLearning/Types/Product.hs view
@@ -9,17 +9,17 @@ -- | -- Module : Network.AWS.MachineLearning.Types.Product--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.MachineLearning.Types.Product where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types.Sum-import Network.AWS.Prelude+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types.Sum+import Network.AWS.Prelude -- | Represents the output of a @GetBatchPrediction@ operation. --@@ -29,24 +29,25 @@ -- -- /See:/ 'batchPrediction' smart constructor. data BatchPrediction = BatchPrediction'- { _bpStatus :: !(Maybe EntityStatus)- , _bpLastUpdatedAt :: !(Maybe POSIX)- , _bpCreatedAt :: !(Maybe POSIX)- , _bpComputeTime :: !(Maybe Integer)- , _bpInputDataLocationS3 :: !(Maybe Text)- , _bpMLModelId :: !(Maybe Text)- , _bpBatchPredictionDataSourceId :: !(Maybe Text)- , _bpTotalRecordCount :: !(Maybe Integer)- , _bpStartedAt :: !(Maybe POSIX)- , _bpBatchPredictionId :: !(Maybe Text)- , _bpFinishedAt :: !(Maybe POSIX)- , _bpInvalidRecordCount :: !(Maybe Integer)- , _bpCreatedByIAMUser :: !(Maybe Text)- , _bpName :: !(Maybe Text)- , _bpMessage :: !(Maybe Text)- , _bpOutputURI :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _bpStatus :: !(Maybe EntityStatus)+ , _bpLastUpdatedAt :: !(Maybe POSIX)+ , _bpCreatedAt :: !(Maybe POSIX)+ , _bpComputeTime :: !(Maybe Integer)+ , _bpInputDataLocationS3 :: !(Maybe Text)+ , _bpMLModelId :: !(Maybe Text)+ , _bpBatchPredictionDataSourceId :: !(Maybe Text)+ , _bpTotalRecordCount :: !(Maybe Integer)+ , _bpStartedAt :: !(Maybe POSIX)+ , _bpBatchPredictionId :: !(Maybe Text)+ , _bpFinishedAt :: !(Maybe POSIX)+ , _bpInvalidRecordCount :: !(Maybe Integer)+ , _bpCreatedByIAMUser :: !(Maybe Text)+ , _bpName :: !(Maybe Text)+ , _bpMessage :: !(Maybe Text)+ , _bpOutputURI :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchPrediction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,25 +86,26 @@ batchPrediction :: BatchPrediction batchPrediction =- BatchPrediction'- { _bpStatus = Nothing- , _bpLastUpdatedAt = Nothing- , _bpCreatedAt = Nothing- , _bpComputeTime = Nothing- , _bpInputDataLocationS3 = Nothing- , _bpMLModelId = Nothing- , _bpBatchPredictionDataSourceId = Nothing- , _bpTotalRecordCount = Nothing- , _bpStartedAt = Nothing- , _bpBatchPredictionId = Nothing- , _bpFinishedAt = Nothing- , _bpInvalidRecordCount = Nothing- , _bpCreatedByIAMUser = Nothing- , _bpName = Nothing- , _bpMessage = Nothing- , _bpOutputURI = Nothing- }+ BatchPrediction'+ { _bpStatus = Nothing+ , _bpLastUpdatedAt = Nothing+ , _bpCreatedAt = Nothing+ , _bpComputeTime = Nothing+ , _bpInputDataLocationS3 = Nothing+ , _bpMLModelId = Nothing+ , _bpBatchPredictionDataSourceId = Nothing+ , _bpTotalRecordCount = Nothing+ , _bpStartedAt = Nothing+ , _bpBatchPredictionId = Nothing+ , _bpFinishedAt = Nothing+ , _bpInvalidRecordCount = Nothing+ , _bpCreatedByIAMUser = Nothing+ , _bpName = Nothing+ , _bpMessage = Nothing+ , _bpOutputURI = Nothing+ } + -- | The status of the @BatchPrediction@ . This element can have one of the following values: * @PENDING@ - Amazon Machine Learning (Amazon ML) submitted a request to generate predictions for a batch of observations. * @INPROGRESS@ - The process is underway. * @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. bpStatus :: Lens' BatchPrediction (Maybe EntityStatus) bpStatus = lens _bpStatus (\ s a -> s{_bpStatus = a});@@ -189,9 +191,9 @@ <*> (x .:? "Message") <*> (x .:? "OutputUri")) -instance Hashable BatchPrediction+instance Hashable BatchPrediction where -instance NFData BatchPrediction+instance NFData BatchPrediction where -- | Represents the output of the @GetDataSource@ operation. --@@ -201,26 +203,27 @@ -- -- /See:/ 'dataSource' smart constructor. data DataSource = DataSource'- { _dsStatus :: !(Maybe EntityStatus)- , _dsNumberOfFiles :: !(Maybe Integer)- , _dsLastUpdatedAt :: !(Maybe POSIX)- , _dsCreatedAt :: !(Maybe POSIX)- , _dsComputeTime :: !(Maybe Integer)- , _dsDataSourceId :: !(Maybe Text)- , _dsRDSMetadata :: !(Maybe RDSMetadata)- , _dsDataSizeInBytes :: !(Maybe Integer)- , _dsStartedAt :: !(Maybe POSIX)- , _dsFinishedAt :: !(Maybe POSIX)- , _dsCreatedByIAMUser :: !(Maybe Text)- , _dsName :: !(Maybe Text)- , _dsDataLocationS3 :: !(Maybe Text)- , _dsComputeStatistics :: !(Maybe Bool)- , _dsMessage :: !(Maybe Text)- , _dsRedshiftMetadata :: !(Maybe RedshiftMetadata)- , _dsDataRearrangement :: !(Maybe Text)- , _dsRoleARN :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dsStatus :: !(Maybe EntityStatus)+ , _dsNumberOfFiles :: !(Maybe Integer)+ , _dsLastUpdatedAt :: !(Maybe POSIX)+ , _dsCreatedAt :: !(Maybe POSIX)+ , _dsComputeTime :: !(Maybe Integer)+ , _dsDataSourceId :: !(Maybe Text)+ , _dsRDSMetadata :: !(Maybe RDSMetadata)+ , _dsDataSizeInBytes :: !(Maybe Integer)+ , _dsStartedAt :: !(Maybe POSIX)+ , _dsFinishedAt :: !(Maybe POSIX)+ , _dsCreatedByIAMUser :: !(Maybe Text)+ , _dsName :: !(Maybe Text)+ , _dsDataLocationS3 :: !(Maybe Text)+ , _dsComputeStatistics :: !(Maybe Bool)+ , _dsMessage :: !(Maybe Text)+ , _dsRedshiftMetadata :: !(Maybe RedshiftMetadata)+ , _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -263,27 +266,28 @@ dataSource :: DataSource dataSource =- DataSource'- { _dsStatus = Nothing- , _dsNumberOfFiles = Nothing- , _dsLastUpdatedAt = Nothing- , _dsCreatedAt = Nothing- , _dsComputeTime = Nothing- , _dsDataSourceId = Nothing- , _dsRDSMetadata = Nothing- , _dsDataSizeInBytes = Nothing- , _dsStartedAt = Nothing- , _dsFinishedAt = Nothing- , _dsCreatedByIAMUser = Nothing- , _dsName = Nothing- , _dsDataLocationS3 = Nothing- , _dsComputeStatistics = Nothing- , _dsMessage = Nothing- , _dsRedshiftMetadata = Nothing- , _dsDataRearrangement = Nothing- , _dsRoleARN = Nothing- }+ DataSource'+ { _dsStatus = Nothing+ , _dsNumberOfFiles = Nothing+ , _dsLastUpdatedAt = Nothing+ , _dsCreatedAt = Nothing+ , _dsComputeTime = Nothing+ , _dsDataSourceId = Nothing+ , _dsRDSMetadata = Nothing+ , _dsDataSizeInBytes = Nothing+ , _dsStartedAt = Nothing+ , _dsFinishedAt = Nothing+ , _dsCreatedByIAMUser = Nothing+ , _dsName = Nothing+ , _dsDataLocationS3 = Nothing+ , _dsComputeStatistics = Nothing+ , _dsMessage = Nothing+ , _dsRedshiftMetadata = Nothing+ , _dsDataRearrangement = Nothing+ , _dsRoleARN = Nothing+ } + -- | The current status of the @DataSource@ . This element can have one of the following values: * PENDING - Amazon Machine Learning (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. dsStatus :: Lens' DataSource (Maybe EntityStatus) dsStatus = lens _dsStatus (\ s a -> s{_dsStatus = a});@@ -379,9 +383,9 @@ <*> (x .:? "DataRearrangement") <*> (x .:? "RoleARN")) -instance Hashable DataSource+instance Hashable DataSource where -instance NFData DataSource+instance NFData DataSource where -- | Represents the output of @GetEvaluation@ operation. --@@ -391,22 +395,23 @@ -- -- /See:/ 'evaluation' smart constructor. data Evaluation = Evaluation'- { _eStatus :: !(Maybe EntityStatus)- , _ePerformanceMetrics :: !(Maybe PerformanceMetrics)- , _eLastUpdatedAt :: !(Maybe POSIX)- , _eCreatedAt :: !(Maybe POSIX)- , _eComputeTime :: !(Maybe Integer)- , _eInputDataLocationS3 :: !(Maybe Text)- , _eMLModelId :: !(Maybe Text)- , _eStartedAt :: !(Maybe POSIX)- , _eFinishedAt :: !(Maybe POSIX)- , _eCreatedByIAMUser :: !(Maybe Text)- , _eName :: !(Maybe Text)- , _eEvaluationId :: !(Maybe Text)- , _eMessage :: !(Maybe Text)- , _eEvaluationDataSourceId :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _eStatus :: !(Maybe EntityStatus)+ , _ePerformanceMetrics :: !(Maybe PerformanceMetrics)+ , _eLastUpdatedAt :: !(Maybe POSIX)+ , _eCreatedAt :: !(Maybe POSIX)+ , _eComputeTime :: !(Maybe Integer)+ , _eInputDataLocationS3 :: !(Maybe Text)+ , _eMLModelId :: !(Maybe Text)+ , _eStartedAt :: !(Maybe POSIX)+ , _eFinishedAt :: !(Maybe POSIX)+ , _eCreatedByIAMUser :: !(Maybe Text)+ , _eName :: !(Maybe Text)+ , _eEvaluationId :: !(Maybe Text)+ , _eMessage :: !(Maybe Text)+ , _eEvaluationDataSourceId :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Evaluation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -441,23 +446,24 @@ evaluation :: Evaluation evaluation =- Evaluation'- { _eStatus = Nothing- , _ePerformanceMetrics = Nothing- , _eLastUpdatedAt = Nothing- , _eCreatedAt = Nothing- , _eComputeTime = Nothing- , _eInputDataLocationS3 = Nothing- , _eMLModelId = Nothing- , _eStartedAt = Nothing- , _eFinishedAt = Nothing- , _eCreatedByIAMUser = Nothing- , _eName = Nothing- , _eEvaluationId = Nothing- , _eMessage = Nothing- , _eEvaluationDataSourceId = Nothing- }+ Evaluation'+ { _eStatus = Nothing+ , _ePerformanceMetrics = Nothing+ , _eLastUpdatedAt = Nothing+ , _eCreatedAt = Nothing+ , _eComputeTime = Nothing+ , _eInputDataLocationS3 = Nothing+ , _eMLModelId = Nothing+ , _eStartedAt = Nothing+ , _eFinishedAt = Nothing+ , _eCreatedByIAMUser = Nothing+ , _eName = Nothing+ , _eEvaluationId = Nothing+ , _eMessage = Nothing+ , _eEvaluationDataSourceId = Nothing+ } + -- | The status of the evaluation. This element can have one of the following values: * @PENDING@ - Amazon Machine Learning (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. eStatus :: Lens' Evaluation (Maybe EntityStatus) eStatus = lens _eStatus (\ s a -> s{_eStatus = a});@@ -533,9 +539,9 @@ <*> (x .:? "Message") <*> (x .:? "EvaluationDataSourceId")) -instance Hashable Evaluation+instance Hashable Evaluation where -instance NFData Evaluation+instance NFData Evaluation where -- | Represents the output of a @GetMLModel@ operation. --@@ -545,27 +551,28 @@ -- -- /See:/ 'mLModel' smart constructor. data MLModel = MLModel'- { _mlmStatus :: !(Maybe EntityStatus)- , _mlmLastUpdatedAt :: !(Maybe POSIX)- , _mlmTrainingParameters :: !(Maybe (Map Text Text))- , _mlmScoreThresholdLastUpdatedAt :: !(Maybe POSIX)- , _mlmCreatedAt :: !(Maybe POSIX)- , _mlmComputeTime :: !(Maybe Integer)- , _mlmInputDataLocationS3 :: !(Maybe Text)- , _mlmMLModelId :: !(Maybe Text)- , _mlmSizeInBytes :: !(Maybe Integer)- , _mlmStartedAt :: !(Maybe POSIX)- , _mlmScoreThreshold :: !(Maybe Double)- , _mlmFinishedAt :: !(Maybe POSIX)- , _mlmAlgorithm :: !(Maybe Algorithm)- , _mlmCreatedByIAMUser :: !(Maybe Text)- , _mlmName :: !(Maybe Text)- , _mlmEndpointInfo :: !(Maybe RealtimeEndpointInfo)- , _mlmTrainingDataSourceId :: !(Maybe Text)- , _mlmMessage :: !(Maybe Text)- , _mlmMLModelType :: !(Maybe MLModelType)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _mlmStatus :: !(Maybe EntityStatus)+ , _mlmLastUpdatedAt :: !(Maybe POSIX)+ , _mlmTrainingParameters :: !(Maybe (Map Text Text))+ , _mlmScoreThresholdLastUpdatedAt :: !(Maybe POSIX)+ , _mlmCreatedAt :: !(Maybe POSIX)+ , _mlmComputeTime :: !(Maybe Integer)+ , _mlmInputDataLocationS3 :: !(Maybe Text)+ , _mlmMLModelId :: !(Maybe Text)+ , _mlmSizeInBytes :: !(Maybe Integer)+ , _mlmStartedAt :: !(Maybe POSIX)+ , _mlmScoreThreshold :: !(Maybe Double)+ , _mlmFinishedAt :: !(Maybe POSIX)+ , _mlmAlgorithm :: !(Maybe Algorithm)+ , _mlmCreatedByIAMUser :: !(Maybe Text)+ , _mlmName :: !(Maybe Text)+ , _mlmEndpointInfo :: !(Maybe RealtimeEndpointInfo)+ , _mlmTrainingDataSourceId :: !(Maybe Text)+ , _mlmMessage :: !(Maybe Text)+ , _mlmMLModelType :: !(Maybe MLModelType)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'MLModel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -610,28 +617,29 @@ mLModel :: MLModel mLModel =- MLModel'- { _mlmStatus = Nothing- , _mlmLastUpdatedAt = Nothing- , _mlmTrainingParameters = Nothing- , _mlmScoreThresholdLastUpdatedAt = Nothing- , _mlmCreatedAt = Nothing- , _mlmComputeTime = Nothing- , _mlmInputDataLocationS3 = Nothing- , _mlmMLModelId = Nothing- , _mlmSizeInBytes = Nothing- , _mlmStartedAt = Nothing- , _mlmScoreThreshold = Nothing- , _mlmFinishedAt = Nothing- , _mlmAlgorithm = Nothing- , _mlmCreatedByIAMUser = Nothing- , _mlmName = Nothing- , _mlmEndpointInfo = Nothing- , _mlmTrainingDataSourceId = Nothing- , _mlmMessage = Nothing- , _mlmMLModelType = Nothing- }+ MLModel'+ { _mlmStatus = Nothing+ , _mlmLastUpdatedAt = Nothing+ , _mlmTrainingParameters = Nothing+ , _mlmScoreThresholdLastUpdatedAt = Nothing+ , _mlmCreatedAt = Nothing+ , _mlmComputeTime = Nothing+ , _mlmInputDataLocationS3 = Nothing+ , _mlmMLModelId = Nothing+ , _mlmSizeInBytes = Nothing+ , _mlmStartedAt = Nothing+ , _mlmScoreThreshold = Nothing+ , _mlmFinishedAt = Nothing+ , _mlmAlgorithm = Nothing+ , _mlmCreatedByIAMUser = Nothing+ , _mlmName = Nothing+ , _mlmEndpointInfo = Nothing+ , _mlmTrainingDataSourceId = Nothing+ , _mlmMessage = Nothing+ , _mlmMLModelType = Nothing+ } + -- | The current status of an @MLModel@ . This element can have one of the following values: * @PENDING@ - Amazon Machine Learning (Amazon ML) submitted a request to create an @MLModel@ . * @INPROGRESS@ - The creation process is underway. * @FAILED@ - The request to create an @MLModel@ didn't run to completion. The model isn't usable. * @COMPLETED@ - The creation process completed successfully. * @DELETED@ - The @MLModel@ is marked as deleted. It isn't usable. mlmStatus :: Lens' MLModel (Maybe EntityStatus) mlmStatus = lens _mlmStatus (\ s a -> s{_mlmStatus = a});@@ -732,9 +740,9 @@ <*> (x .:? "Message") <*> (x .:? "MLModelType")) -instance Hashable MLModel+instance Hashable MLModel where -instance NFData MLModel+instance NFData MLModel where -- | Measurements of how well the @MLModel@ performed on known observations. One of the following metrics is returned, based on the type of the @MLModel@ : --@@ -752,9 +760,10 @@ -- -- /See:/ 'performanceMetrics' smart constructor. newtype PerformanceMetrics = PerformanceMetrics'- { _pmProperties :: Maybe (Map Text Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pmProperties :: Maybe (Map Text Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PerformanceMetrics' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -762,11 +771,9 @@ -- * 'pmProperties' - Undocumented member. performanceMetrics :: PerformanceMetrics-performanceMetrics =- PerformanceMetrics'- { _pmProperties = Nothing- }+performanceMetrics = PerformanceMetrics' {_pmProperties = Nothing} + -- | Undocumented member. pmProperties :: Lens' PerformanceMetrics (HashMap Text Text) pmProperties = lens _pmProperties (\ s a -> s{_pmProperties = a}) . _Default . _Map;@@ -778,9 +785,9 @@ PerformanceMetrics' <$> (x .:? "Properties" .!= mempty)) -instance Hashable PerformanceMetrics+instance Hashable PerformanceMetrics where -instance NFData PerformanceMetrics+instance NFData PerformanceMetrics where -- | The output from a @Predict@ operation: --@@ -798,12 +805,13 @@ -- -- /See:/ 'prediction' smart constructor. data Prediction = Prediction'- { _pPredictedValue :: !(Maybe Double)- , _pPredictedLabel :: !(Maybe Text)- , _pPredictedScores :: !(Maybe (Map Text Double))- , _pDetails :: !(Maybe (Map DetailsAttributes Text))- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pPredictedValue :: !(Maybe Double)+ , _pPredictedLabel :: !(Maybe Text)+ , _pPredictedScores :: !(Maybe (Map Text Double))+ , _pDetails :: !(Maybe (Map DetailsAttributes Text))+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Prediction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -818,13 +826,14 @@ prediction :: Prediction prediction =- Prediction'- { _pPredictedValue = Nothing- , _pPredictedLabel = Nothing- , _pPredictedScores = Nothing- , _pDetails = Nothing- }+ Prediction'+ { _pPredictedValue = Nothing+ , _pPredictedLabel = Nothing+ , _pPredictedScores = Nothing+ , _pDetails = Nothing+ } + -- | The prediction value for @REGRESSION@ @MLModel@ . pPredictedValue :: Lens' Prediction (Maybe Double) pPredictedValue = lens _pPredictedValue (\ s a -> s{_pPredictedValue = a});@@ -850,9 +859,9 @@ <*> (x .:? "predictedScores" .!= mempty) <*> (x .:? "details" .!= mempty)) -instance Hashable Prediction+instance Hashable Prediction where -instance NFData Prediction+instance NFData Prediction where -- | The data specification of an Amazon Relational Database Service (Amazon RDS) @DataSource@ . --@@ -860,19 +869,20 @@ -- -- /See:/ 'rdsDataSpec' smart constructor. data RDSDataSpec = RDSDataSpec'- { _rdsdsDataSchemaURI :: !(Maybe Text)- , _rdsdsDataSchema :: !(Maybe Text)- , _rdsdsDataRearrangement :: !(Maybe Text)- , _rdsdsDatabaseInformation :: !RDSDatabase- , _rdsdsSelectSqlQuery :: !Text- , _rdsdsDatabaseCredentials :: !RDSDatabaseCredentials- , _rdsdsS3StagingLocation :: !Text- , _rdsdsResourceRole :: !Text- , _rdsdsServiceRole :: !Text- , _rdsdsSubnetId :: !Text- , _rdsdsSecurityGroupIds :: ![Text]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rdsdsDataSchemaURI :: !(Maybe Text)+ , _rdsdsDataSchema :: !(Maybe Text)+ , _rdsdsDataRearrangement :: !(Maybe Text)+ , _rdsdsDatabaseInformation :: !RDSDatabase+ , _rdsdsSelectSqlQuery :: !Text+ , _rdsdsDatabaseCredentials :: !RDSDatabaseCredentials+ , _rdsdsS3StagingLocation :: !Text+ , _rdsdsResourceRole :: !Text+ , _rdsdsServiceRole :: !Text+ , _rdsdsSubnetId :: !Text+ , _rdsdsSecurityGroupIds :: ![Text]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RDSDataSpec' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -908,20 +918,21 @@ -> Text -- ^ 'rdsdsSubnetId' -> RDSDataSpec rdsDataSpec pDatabaseInformation_ pSelectSqlQuery_ pDatabaseCredentials_ pS3StagingLocation_ pResourceRole_ pServiceRole_ pSubnetId_ =- RDSDataSpec'- { _rdsdsDataSchemaURI = Nothing- , _rdsdsDataSchema = Nothing- , _rdsdsDataRearrangement = Nothing- , _rdsdsDatabaseInformation = pDatabaseInformation_- , _rdsdsSelectSqlQuery = pSelectSqlQuery_- , _rdsdsDatabaseCredentials = pDatabaseCredentials_- , _rdsdsS3StagingLocation = pS3StagingLocation_- , _rdsdsResourceRole = pResourceRole_- , _rdsdsServiceRole = pServiceRole_- , _rdsdsSubnetId = pSubnetId_- , _rdsdsSecurityGroupIds = mempty- }+ RDSDataSpec'+ { _rdsdsDataSchemaURI = Nothing+ , _rdsdsDataSchema = Nothing+ , _rdsdsDataRearrangement = Nothing+ , _rdsdsDatabaseInformation = pDatabaseInformation_+ , _rdsdsSelectSqlQuery = pSelectSqlQuery_+ , _rdsdsDatabaseCredentials = pDatabaseCredentials_+ , _rdsdsS3StagingLocation = pS3StagingLocation_+ , _rdsdsResourceRole = pResourceRole_+ , _rdsdsServiceRole = pServiceRole_+ , _rdsdsSubnetId = pSubnetId_+ , _rdsdsSecurityGroupIds = mempty+ } + -- | The Amazon S3 location of the @DataSchema@ . rdsdsDataSchemaURI :: Lens' RDSDataSpec (Maybe Text) rdsdsDataSchemaURI = lens _rdsdsDataSchemaURI (\ s a -> s{_rdsdsDataSchemaURI = a});@@ -966,9 +977,9 @@ rdsdsSecurityGroupIds :: Lens' RDSDataSpec [Text] rdsdsSecurityGroupIds = lens _rdsdsSecurityGroupIds (\ s a -> s{_rdsdsSecurityGroupIds = a}) . _Coerce; -instance Hashable RDSDataSpec+instance Hashable RDSDataSpec where -instance NFData RDSDataSpec+instance NFData RDSDataSpec where instance ToJSON RDSDataSpec where toJSON RDSDataSpec'{..}@@ -995,10 +1006,11 @@ -- -- /See:/ 'rdsDatabase' smart constructor. data RDSDatabase = RDSDatabase'- { _rdsdInstanceIdentifier :: !Text- , _rdsdDatabaseName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rdsdInstanceIdentifier :: !Text+ , _rdsdDatabaseName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RDSDatabase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1011,11 +1023,12 @@ -> Text -- ^ 'rdsdDatabaseName' -> RDSDatabase rdsDatabase pInstanceIdentifier_ pDatabaseName_ =- RDSDatabase'- { _rdsdInstanceIdentifier = pInstanceIdentifier_- , _rdsdDatabaseName = pDatabaseName_- }+ RDSDatabase'+ { _rdsdInstanceIdentifier = pInstanceIdentifier_+ , _rdsdDatabaseName = pDatabaseName_+ } + -- | The ID of an RDS DB instance. rdsdInstanceIdentifier :: Lens' RDSDatabase Text rdsdInstanceIdentifier = lens _rdsdInstanceIdentifier (\ s a -> s{_rdsdInstanceIdentifier = a});@@ -1032,9 +1045,9 @@ (x .: "InstanceIdentifier") <*> (x .: "DatabaseName")) -instance Hashable RDSDatabase+instance Hashable RDSDatabase where -instance NFData RDSDatabase+instance NFData RDSDatabase where instance ToJSON RDSDatabase where toJSON RDSDatabase'{..}@@ -1050,10 +1063,11 @@ -- -- /See:/ 'rdsDatabaseCredentials' smart constructor. data RDSDatabaseCredentials = RDSDatabaseCredentials'- { _rdsdcUsername :: !Text- , _rdsdcPassword :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rdsdcUsername :: !Text+ , _rdsdcPassword :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RDSDatabaseCredentials' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1066,11 +1080,10 @@ -> Text -- ^ 'rdsdcPassword' -> RDSDatabaseCredentials rdsDatabaseCredentials pUsername_ pPassword_ =- RDSDatabaseCredentials'- { _rdsdcUsername = pUsername_- , _rdsdcPassword = pPassword_- }+ RDSDatabaseCredentials'+ {_rdsdcUsername = pUsername_, _rdsdcPassword = pPassword_} + -- | Undocumented member. rdsdcUsername :: Lens' RDSDatabaseCredentials Text rdsdcUsername = lens _rdsdcUsername (\ s a -> s{_rdsdcUsername = a});@@ -1079,9 +1092,9 @@ rdsdcPassword :: Lens' RDSDatabaseCredentials Text rdsdcPassword = lens _rdsdcPassword (\ s a -> s{_rdsdcPassword = a}); -instance Hashable RDSDatabaseCredentials+instance Hashable RDSDatabaseCredentials where -instance NFData RDSDatabaseCredentials+instance NFData RDSDatabaseCredentials where instance ToJSON RDSDatabaseCredentials where toJSON RDSDatabaseCredentials'{..}@@ -1096,14 +1109,15 @@ -- -- /See:/ 'rdsMetadata' smart constructor. data RDSMetadata = RDSMetadata'- { _rmSelectSqlQuery :: !(Maybe Text)- , _rmDataPipelineId :: !(Maybe Text)- , _rmDatabase :: !(Maybe RDSDatabase)- , _rmDatabaseUserName :: !(Maybe Text)- , _rmResourceRole :: !(Maybe Text)- , _rmServiceRole :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rmSelectSqlQuery :: !(Maybe Text)+ , _rmDataPipelineId :: !(Maybe Text)+ , _rmDatabase :: !(Maybe RDSDatabase)+ , _rmDatabaseUserName :: !(Maybe Text)+ , _rmResourceRole :: !(Maybe Text)+ , _rmServiceRole :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RDSMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1122,15 +1136,16 @@ rdsMetadata :: RDSMetadata rdsMetadata =- RDSMetadata'- { _rmSelectSqlQuery = Nothing- , _rmDataPipelineId = Nothing- , _rmDatabase = Nothing- , _rmDatabaseUserName = Nothing- , _rmResourceRole = Nothing- , _rmServiceRole = Nothing- }+ RDSMetadata'+ { _rmSelectSqlQuery = Nothing+ , _rmDataPipelineId = Nothing+ , _rmDatabase = Nothing+ , _rmDatabaseUserName = Nothing+ , _rmResourceRole = Nothing+ , _rmServiceRole = Nothing+ } + -- | The SQL query that is supplied during 'CreateDataSourceFromRDS' . Returns only if @Verbose@ is true in @GetDataSourceInput@ . rmSelectSqlQuery :: Lens' RDSMetadata (Maybe Text) rmSelectSqlQuery = lens _rmSelectSqlQuery (\ s a -> s{_rmSelectSqlQuery = a});@@ -1166,9 +1181,9 @@ <*> (x .:? "ResourceRole") <*> (x .:? "ServiceRole")) -instance Hashable RDSMetadata+instance Hashable RDSMetadata where -instance NFData RDSMetadata+instance NFData RDSMetadata where -- | Describes the real-time endpoint information for an @MLModel@ . --@@ -1176,12 +1191,13 @@ -- -- /See:/ 'realtimeEndpointInfo' smart constructor. data RealtimeEndpointInfo = RealtimeEndpointInfo'- { _reiCreatedAt :: !(Maybe POSIX)- , _reiEndpointURL :: !(Maybe Text)- , _reiEndpointStatus :: !(Maybe RealtimeEndpointStatus)- , _reiPeakRequestsPerSecond :: !(Maybe Int)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _reiCreatedAt :: !(Maybe POSIX)+ , _reiEndpointURL :: !(Maybe Text)+ , _reiEndpointStatus :: !(Maybe RealtimeEndpointStatus)+ , _reiPeakRequestsPerSecond :: !(Maybe Int)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RealtimeEndpointInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1196,13 +1212,14 @@ realtimeEndpointInfo :: RealtimeEndpointInfo realtimeEndpointInfo =- RealtimeEndpointInfo'- { _reiCreatedAt = Nothing- , _reiEndpointURL = Nothing- , _reiEndpointStatus = Nothing- , _reiPeakRequestsPerSecond = Nothing- }+ RealtimeEndpointInfo'+ { _reiCreatedAt = Nothing+ , _reiEndpointURL = Nothing+ , _reiEndpointStatus = Nothing+ , _reiPeakRequestsPerSecond = Nothing+ } + -- | The time that the request to create the real-time endpoint for the @MLModel@ was received. The time is expressed in epoch time. reiCreatedAt :: Lens' RealtimeEndpointInfo (Maybe UTCTime) reiCreatedAt = lens _reiCreatedAt (\ s a -> s{_reiCreatedAt = a}) . mapping _Time;@@ -1228,9 +1245,9 @@ (x .:? "EndpointStatus") <*> (x .:? "PeakRequestsPerSecond")) -instance Hashable RealtimeEndpointInfo+instance Hashable RealtimeEndpointInfo where -instance NFData RealtimeEndpointInfo+instance NFData RealtimeEndpointInfo where -- | Describes the data specification of an Amazon Redshift @DataSource@ . --@@ -1238,15 +1255,16 @@ -- -- /See:/ 'redshiftDataSpec' smart constructor. data RedshiftDataSpec = RedshiftDataSpec'- { _rDataSchemaURI :: !(Maybe Text)- , _rDataSchema :: !(Maybe Text)- , _rDataRearrangement :: !(Maybe Text)- , _rDatabaseInformation :: !RedshiftDatabase- , _rSelectSqlQuery :: !Text- , _rDatabaseCredentials :: !RedshiftDatabaseCredentials- , _rS3StagingLocation :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rDataSchemaURI :: !(Maybe Text)+ , _rDataSchema :: !(Maybe Text)+ , _rDataRearrangement :: !(Maybe Text)+ , _rDatabaseInformation :: !RedshiftDatabase+ , _rSelectSqlQuery :: !Text+ , _rDatabaseCredentials :: !RedshiftDatabaseCredentials+ , _rS3StagingLocation :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RedshiftDataSpec' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1271,16 +1289,17 @@ -> Text -- ^ 'rS3StagingLocation' -> RedshiftDataSpec redshiftDataSpec pDatabaseInformation_ pSelectSqlQuery_ pDatabaseCredentials_ pS3StagingLocation_ =- RedshiftDataSpec'- { _rDataSchemaURI = Nothing- , _rDataSchema = Nothing- , _rDataRearrangement = Nothing- , _rDatabaseInformation = pDatabaseInformation_- , _rSelectSqlQuery = pSelectSqlQuery_- , _rDatabaseCredentials = pDatabaseCredentials_- , _rS3StagingLocation = pS3StagingLocation_- }+ RedshiftDataSpec'+ { _rDataSchemaURI = Nothing+ , _rDataSchema = Nothing+ , _rDataRearrangement = Nothing+ , _rDatabaseInformation = pDatabaseInformation_+ , _rSelectSqlQuery = pSelectSqlQuery_+ , _rDatabaseCredentials = pDatabaseCredentials_+ , _rS3StagingLocation = pS3StagingLocation_+ } + -- | Describes the schema location for an Amazon Redshift @DataSource@ . rDataSchemaURI :: Lens' RedshiftDataSpec (Maybe Text) rDataSchemaURI = lens _rDataSchemaURI (\ s a -> s{_rDataSchemaURI = a});@@ -1309,9 +1328,9 @@ rS3StagingLocation :: Lens' RedshiftDataSpec Text rS3StagingLocation = lens _rS3StagingLocation (\ s a -> s{_rS3StagingLocation = a}); -instance Hashable RedshiftDataSpec+instance Hashable RedshiftDataSpec where -instance NFData RedshiftDataSpec+instance NFData RedshiftDataSpec where instance ToJSON RedshiftDataSpec where toJSON RedshiftDataSpec'{..}@@ -1333,10 +1352,11 @@ -- -- /See:/ 'redshiftDatabase' smart constructor. data RedshiftDatabase = RedshiftDatabase'- { _rdDatabaseName :: !Text- , _rdClusterIdentifier :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rdDatabaseName :: !Text+ , _rdClusterIdentifier :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RedshiftDatabase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1349,11 +1369,10 @@ -> Text -- ^ 'rdClusterIdentifier' -> RedshiftDatabase redshiftDatabase pDatabaseName_ pClusterIdentifier_ =- RedshiftDatabase'- { _rdDatabaseName = pDatabaseName_- , _rdClusterIdentifier = pClusterIdentifier_- }+ RedshiftDatabase'+ {_rdDatabaseName = pDatabaseName_, _rdClusterIdentifier = pClusterIdentifier_} + -- | Undocumented member. rdDatabaseName :: Lens' RedshiftDatabase Text rdDatabaseName = lens _rdDatabaseName (\ s a -> s{_rdDatabaseName = a});@@ -1369,9 +1388,9 @@ RedshiftDatabase' <$> (x .: "DatabaseName") <*> (x .: "ClusterIdentifier")) -instance Hashable RedshiftDatabase+instance Hashable RedshiftDatabase where -instance NFData RedshiftDatabase+instance NFData RedshiftDatabase where instance ToJSON RedshiftDatabase where toJSON RedshiftDatabase'{..}@@ -1386,10 +1405,11 @@ -- -- /See:/ 'redshiftDatabaseCredentials' smart constructor. data RedshiftDatabaseCredentials = RedshiftDatabaseCredentials'- { _rdcUsername :: !Text- , _rdcPassword :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rdcUsername :: !Text+ , _rdcPassword :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RedshiftDatabaseCredentials' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1402,11 +1422,10 @@ -> Text -- ^ 'rdcPassword' -> RedshiftDatabaseCredentials redshiftDatabaseCredentials pUsername_ pPassword_ =- RedshiftDatabaseCredentials'- { _rdcUsername = pUsername_- , _rdcPassword = pPassword_- }+ RedshiftDatabaseCredentials'+ {_rdcUsername = pUsername_, _rdcPassword = pPassword_} + -- | Undocumented member. rdcUsername :: Lens' RedshiftDatabaseCredentials Text rdcUsername = lens _rdcUsername (\ s a -> s{_rdcUsername = a});@@ -1415,9 +1434,9 @@ rdcPassword :: Lens' RedshiftDatabaseCredentials Text rdcPassword = lens _rdcPassword (\ s a -> s{_rdcPassword = a}); -instance Hashable RedshiftDatabaseCredentials+instance Hashable RedshiftDatabaseCredentials where -instance NFData RedshiftDatabaseCredentials+instance NFData RedshiftDatabaseCredentials where instance ToJSON RedshiftDatabaseCredentials where toJSON RedshiftDatabaseCredentials'{..}@@ -1432,11 +1451,12 @@ -- -- /See:/ 'redshiftMetadata' smart constructor. data RedshiftMetadata = RedshiftMetadata'- { _redSelectSqlQuery :: !(Maybe Text)- , _redRedshiftDatabase :: !(Maybe RedshiftDatabase)- , _redDatabaseUserName :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _redSelectSqlQuery :: !(Maybe Text)+ , _redRedshiftDatabase :: !(Maybe RedshiftDatabase)+ , _redDatabaseUserName :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RedshiftMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1449,12 +1469,13 @@ redshiftMetadata :: RedshiftMetadata redshiftMetadata =- RedshiftMetadata'- { _redSelectSqlQuery = Nothing- , _redRedshiftDatabase = Nothing- , _redDatabaseUserName = Nothing- }+ RedshiftMetadata'+ { _redSelectSqlQuery = Nothing+ , _redRedshiftDatabase = Nothing+ , _redDatabaseUserName = Nothing+ } + -- | The SQL query that is specified during 'CreateDataSourceFromRedshift' . Returns only if @Verbose@ is true in GetDataSourceInput. redSelectSqlQuery :: Lens' RedshiftMetadata (Maybe Text) redSelectSqlQuery = lens _redSelectSqlQuery (\ s a -> s{_redSelectSqlQuery = a});@@ -1476,9 +1497,9 @@ (x .:? "RedshiftDatabase") <*> (x .:? "DatabaseUserName")) -instance Hashable RedshiftMetadata+instance Hashable RedshiftMetadata where -instance NFData RedshiftMetadata+instance NFData RedshiftMetadata where -- | Describes the data specification of a @DataSource@ . --@@ -1486,12 +1507,13 @@ -- -- /See:/ 's3DataSpec' smart constructor. data S3DataSpec = S3DataSpec'- { _sdsDataSchema :: !(Maybe Text)- , _sdsDataSchemaLocationS3 :: !(Maybe Text)- , _sdsDataRearrangement :: !(Maybe Text)- , _sdsDataLocationS3 :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sdsDataSchema :: !(Maybe Text)+ , _sdsDataSchemaLocationS3 :: !(Maybe Text)+ , _sdsDataRearrangement :: !(Maybe Text)+ , _sdsDataLocationS3 :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'S3DataSpec' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1507,13 +1529,14 @@ :: Text -- ^ 'sdsDataLocationS3' -> S3DataSpec s3DataSpec pDataLocationS3_ =- S3DataSpec'- { _sdsDataSchema = Nothing- , _sdsDataSchemaLocationS3 = Nothing- , _sdsDataRearrangement = Nothing- , _sdsDataLocationS3 = pDataLocationS3_- }+ S3DataSpec'+ { _sdsDataSchema = Nothing+ , _sdsDataSchemaLocationS3 = Nothing+ , _sdsDataRearrangement = Nothing+ , _sdsDataLocationS3 = pDataLocationS3_+ } + -- | A JSON string that represents the schema for an Amazon S3 @DataSource@ . The @DataSchema@ defines the structure of the observation data in the data file(s) referenced in the @DataSource@ . You must provide either the @DataSchema@ or the @DataSchemaLocationS3@ . Define your @DataSchema@ as a series of key-value pairs. @attributes@ and @excludedVariableNames@ have an array of key-value pairs for their value. Use the following format to define your @DataSchema@ . { "version": "1.0", "recordAnnotationFieldName": "F1", "recordWeightFieldName": "F2", "targetFieldName": "F3", "dataFormat": "CSV", "dataFileContainsHeader": true, "attributes": [ { "fieldName": "F1", "fieldType": "TEXT" }, { "fieldName": "F2", "fieldType": "NUMERIC" }, { "fieldName": "F3", "fieldType": "CATEGORICAL" }, { "fieldName": "F4", "fieldType": "NUMERIC" }, { "fieldName": "F5", "fieldType": "CATEGORICAL" }, { "fieldName": "F6", "fieldType": "TEXT" }, { "fieldName": "F7", "fieldType": "WEIGHTED_INT_SEQUENCE" }, { "fieldName": "F8", "fieldType": "WEIGHTED_STRING_SEQUENCE" } ], "excludedVariableNames": [ "F6" ] } sdsDataSchema :: Lens' S3DataSpec (Maybe Text) sdsDataSchema = lens _sdsDataSchema (\ s a -> s{_sdsDataSchema = a});@@ -1530,9 +1553,9 @@ sdsDataLocationS3 :: Lens' S3DataSpec Text sdsDataLocationS3 = lens _sdsDataLocationS3 (\ s a -> s{_sdsDataLocationS3 = a}); -instance Hashable S3DataSpec+instance Hashable S3DataSpec where -instance NFData S3DataSpec+instance NFData S3DataSpec where instance ToJSON S3DataSpec where toJSON S3DataSpec'{..}@@ -1550,10 +1573,11 @@ -- -- /See:/ 'tag' smart constructor. data Tag = Tag'- { _tagValue :: !(Maybe Text)- , _tagKey :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _tagValue :: !(Maybe Text)+ , _tagKey :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Tag' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1563,12 +1587,9 @@ -- * 'tagKey' - A unique identifier for the tag. Valid characters include Unicode letters, digits, white space, _, ., /, =, +, -, %, and @. tag :: Tag-tag =- Tag'- { _tagValue = Nothing- , _tagKey = Nothing- }+tag = Tag' {_tagValue = Nothing, _tagKey = Nothing} + -- | An optional string, typically used to describe or define the tag. Valid characters include Unicode letters, digits, white space, _, ., /, =, +, -, %, and @. tagValue :: Lens' Tag (Maybe Text) tagValue = lens _tagValue (\ s a -> s{_tagValue = a});@@ -1582,9 +1603,9 @@ = withObject "Tag" (\ x -> Tag' <$> (x .:? "Value") <*> (x .:? "Key")) -instance Hashable Tag+instance Hashable Tag where -instance NFData Tag+instance NFData Tag where instance ToJSON Tag where toJSON Tag'{..}
gen/Network/AWS/MachineLearning/Types/Sum.hs view
@@ -9,15 +9,15 @@ -- | -- Module : Network.AWS.MachineLearning.Types.Sum--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.MachineLearning.Types.Sum where -import Network.AWS.Prelude+import Network.AWS.Prelude -- | The function used to train an @MLModel@ . Training choices supported by Amazon ML include the following: --@@ -25,9 +25,10 @@ -- * @SGD@ - Stochastic Gradient Descent. * @RandomForest@ - Random forest of decision trees. -- data Algorithm =- SGD- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ SGD+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText Algorithm where parser = takeLowerText >>= \case "sgd" -> pure SGD@@ -53,16 +54,17 @@ -- * @CreatedAt@ - Sets the search criteria to @BatchPrediction@ creation date. * @Status@ - Sets the search criteria to @BatchPrediction@ status. * @Name@ - Sets the search criteria to the contents of @BatchPrediction@ ____ @Name@ . * @IAMUser@ - Sets the search criteria to the user account that invoked the @BatchPrediction@ creation. * @MLModelId@ - Sets the search criteria to the @MLModel@ used in the @BatchPrediction@ . * @DataSourceId@ - Sets the search criteria to the @DataSource@ used in the @BatchPrediction@ . * @DataURI@ - Sets the search criteria to the data file(s) used in the @BatchPrediction@ . The URL can identify either a file or an Amazon Simple Storage Service (Amazon S3) bucket or directory. -- data BatchPredictionFilterVariable- = BatchCreatedAt- | BatchDataSourceId- | BatchDataURI- | BatchIAMUser- | BatchLastUpdatedAt- | BatchMLModelId- | BatchName- | BatchStatus- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = BatchCreatedAt+ | BatchDataSourceId+ | BatchDataURI+ | BatchIAMUser+ | BatchLastUpdatedAt+ | BatchMLModelId+ | BatchName+ | BatchStatus+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText BatchPredictionFilterVariable where parser = takeLowerText >>= \case "createdat" -> pure BatchCreatedAt@@ -102,14 +104,15 @@ -- * @CreatedAt@ - Sets the search criteria to @DataSource@ creation date. * @Status@ - Sets the search criteria to @DataSource@ status. * @Name@ - Sets the search criteria to the contents of @DataSource@ ____ @Name@ . * @DataUri@ - Sets the search criteria to the URI of data files used to create the @DataSource@ . The URI can identify either a file or an Amazon Simple Storage Service (Amazon S3) bucket or directory. * @IAMUser@ - Sets the search criteria to the user account that invoked the @DataSource@ creation. -- data DataSourceFilterVariable- = DataCreatedAt- | DataDATALOCATIONS3- | DataIAMUser- | DataLastUpdatedAt- | DataName- | DataStatus- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = DataCreatedAt+ | DataDATALOCATIONS3+ | DataIAMUser+ | DataLastUpdatedAt+ | DataName+ | DataStatus+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText DataSourceFilterVariable where parser = takeLowerText >>= \case "createdat" -> pure DataCreatedAt@@ -141,10 +144,11 @@ -- | Contains the key values of @DetailsMap@ : @PredictiveModelType@ - Indicates the type of the @MLModel@ . @Algorithm@ - Indicates the algorithm that was used for the @MLModel@ . data DetailsAttributes- = Algorithm- | PredictiveModelType- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Algorithm+ | PredictiveModelType+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText DetailsAttributes where parser = takeLowerText >>= \case "algorithm" -> pure Algorithm@@ -172,13 +176,14 @@ -- * @PENDING@ * @INPROGRESS@ * @FAILED@ * @COMPLETED@ * @DELETED@ -- data EntityStatus- = ESCompleted- | ESDeleted- | ESFailed- | ESInprogress- | ESPending- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = ESCompleted+ | ESDeleted+ | ESFailed+ | ESInprogress+ | ESPending+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText EntityStatus where parser = takeLowerText >>= \case "completed" -> pure ESCompleted@@ -212,16 +217,17 @@ -- * @CreatedAt@ - Sets the search criteria to @Evaluation@ creation date. * @Status@ - Sets the search criteria to @Evaluation@ status. * @Name@ - Sets the search criteria to the contents of @Evaluation@ ____ @Name@ . * @IAMUser@ - Sets the search criteria to the user account that invoked an evaluation. * @MLModelId@ - Sets the search criteria to the @Predictor@ that was evaluated. * @DataSourceId@ - Sets the search criteria to the @DataSource@ used in evaluation. * @DataUri@ - Sets the search criteria to the data file(s) used in evaluation. The URL can identify either a file or an Amazon Simple Storage Service (Amazon S3) bucket or directory. -- data EvaluationFilterVariable- = EvalCreatedAt- | EvalDataSourceId- | EvalDataURI- | EvalIAMUser- | EvalLastUpdatedAt- | EvalMLModelId- | EvalName- | EvalStatus- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = EvalCreatedAt+ | EvalDataSourceId+ | EvalDataURI+ | EvalIAMUser+ | EvalLastUpdatedAt+ | EvalMLModelId+ | EvalName+ | EvalStatus+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText EvaluationFilterVariable where parser = takeLowerText >>= \case "createdat" -> pure EvalCreatedAt@@ -256,18 +262,19 @@ toJSON = toJSONText data MLModelFilterVariable- = MLMFVAlgorithm- | MLMFVCreatedAt- | MLMFVIAMUser- | MLMFVLastUpdatedAt- | MLMFVMLModelType- | MLMFVName- | MLMFVRealtimeEndpointStatus- | MLMFVStatus- | MLMFVTrainingDataSourceId- | MLMFVTrainingDataURI- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = MLMFVAlgorithm+ | MLMFVCreatedAt+ | MLMFVIAMUser+ | MLMFVLastUpdatedAt+ | MLMFVMLModelType+ | MLMFVName+ | MLMFVRealtimeEndpointStatus+ | MLMFVStatus+ | MLMFVTrainingDataSourceId+ | MLMFVTrainingDataURI+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText MLModelFilterVariable where parser = takeLowerText >>= \case "algorithm" -> pure MLMFVAlgorithm@@ -306,11 +313,12 @@ toJSON = toJSONText data MLModelType- = Binary- | Multiclass- | Regression- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Binary+ | Multiclass+ | Regression+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText MLModelType where parser = takeLowerText >>= \case "binary" -> pure Binary@@ -338,12 +346,13 @@ parseJSON = parseJSONText "MLModelType" data RealtimeEndpointStatus- = Failed- | None- | Ready- | Updating- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Failed+ | None+ | Ready+ | Updating+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText RealtimeEndpointStatus where parser = takeLowerText >>= \case "failed" -> pure Failed@@ -375,10 +384,11 @@ -- * @asc@ - Present the information in ascending order (from A-Z). * @dsc@ - Present the information in descending order (from Z-A). -- data SortOrder- = Asc- | Dsc- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Asc+ | Dsc+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText SortOrder where parser = takeLowerText >>= \case "asc" -> pure Asc@@ -401,11 +411,12 @@ toJSON = toJSONText data TaggableResourceType- = BatchPrediction- | DataSource- | Evaluation- | MLModel- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = BatchPrediction+ | DataSource+ | Evaluation+ | MLModel+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+ instance FromText TaggableResourceType where parser = takeLowerText >>= \case
gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.UpdateBatchPrediction--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,19 +40,20 @@ , ubprsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'updateBatchPrediction' smart constructor. data UpdateBatchPrediction = UpdateBatchPrediction'- { _ubpBatchPredictionId :: !Text- , _ubpBatchPredictionName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ubpBatchPredictionId :: !Text+ , _ubpBatchPredictionName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateBatchPrediction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,12 @@ -> Text -- ^ 'ubpBatchPredictionName' -> UpdateBatchPrediction updateBatchPrediction pBatchPredictionId_ pBatchPredictionName_ =- UpdateBatchPrediction'- { _ubpBatchPredictionId = pBatchPredictionId_- , _ubpBatchPredictionName = pBatchPredictionName_- }+ UpdateBatchPrediction'+ { _ubpBatchPredictionId = pBatchPredictionId_+ , _ubpBatchPredictionName = pBatchPredictionName_+ } + -- | The ID assigned to the @BatchPrediction@ during creation. ubpBatchPredictionId :: Lens' UpdateBatchPrediction Text ubpBatchPredictionId = lens _ubpBatchPredictionId (\ s a -> s{_ubpBatchPredictionId = a});@@ -88,9 +90,9 @@ UpdateBatchPredictionResponse' <$> (x .?> "BatchPredictionId") <*> (pure (fromEnum s))) -instance Hashable UpdateBatchPrediction+instance Hashable UpdateBatchPrediction where -instance NFData UpdateBatchPrediction+instance NFData UpdateBatchPrediction where instance ToHeaders UpdateBatchPrediction where toHeaders@@ -124,10 +126,11 @@ -- -- /See:/ 'updateBatchPredictionResponse' smart constructor. data UpdateBatchPredictionResponse = UpdateBatchPredictionResponse'- { _ubprsBatchPredictionId :: !(Maybe Text)- , _ubprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ubprsBatchPredictionId :: !(Maybe Text)+ , _ubprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateBatchPredictionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,11 +142,10 @@ :: Int -- ^ 'ubprsResponseStatus' -> UpdateBatchPredictionResponse updateBatchPredictionResponse pResponseStatus_ =- UpdateBatchPredictionResponse'- { _ubprsBatchPredictionId = Nothing- , _ubprsResponseStatus = pResponseStatus_- }+ UpdateBatchPredictionResponse'+ {_ubprsBatchPredictionId = Nothing, _ubprsResponseStatus = pResponseStatus_} + -- | The ID assigned to the @BatchPrediction@ during creation. This value should be identical to the value of the @BatchPredictionId@ in the request. ubprsBatchPredictionId :: Lens' UpdateBatchPredictionResponse (Maybe Text) ubprsBatchPredictionId = lens _ubprsBatchPredictionId (\ s a -> s{_ubprsBatchPredictionId = a});@@ -152,4 +154,4 @@ ubprsResponseStatus :: Lens' UpdateBatchPredictionResponse Int ubprsResponseStatus = lens _ubprsResponseStatus (\ s a -> s{_ubprsResponseStatus = a}); -instance NFData UpdateBatchPredictionResponse+instance NFData UpdateBatchPredictionResponse where
gen/Network/AWS/MachineLearning/UpdateDataSource.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.UpdateDataSource--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,19 +40,20 @@ , udsrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'updateDataSource' smart constructor. data UpdateDataSource = UpdateDataSource'- { _udsDataSourceId :: !Text- , _udsDataSourceName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _udsDataSourceId :: !Text+ , _udsDataSourceName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateDataSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,10 @@ -> Text -- ^ 'udsDataSourceName' -> UpdateDataSource updateDataSource pDataSourceId_ pDataSourceName_ =- UpdateDataSource'- { _udsDataSourceId = pDataSourceId_- , _udsDataSourceName = pDataSourceName_- }+ UpdateDataSource'+ {_udsDataSourceId = pDataSourceId_, _udsDataSourceName = pDataSourceName_} + -- | The ID assigned to the @DataSource@ during creation. udsDataSourceId :: Lens' UpdateDataSource Text udsDataSourceId = lens _udsDataSourceId (\ s a -> s{_udsDataSourceId = a});@@ -87,9 +87,9 @@ UpdateDataSourceResponse' <$> (x .?> "DataSourceId") <*> (pure (fromEnum s))) -instance Hashable UpdateDataSource+instance Hashable UpdateDataSource where -instance NFData UpdateDataSource+instance NFData UpdateDataSource where instance ToHeaders UpdateDataSource where toHeaders@@ -121,10 +121,11 @@ -- -- /See:/ 'updateDataSourceResponse' smart constructor. data UpdateDataSourceResponse = UpdateDataSourceResponse'- { _udsrsDataSourceId :: !(Maybe Text)- , _udsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,11 +137,10 @@ :: Int -- ^ 'udsrsResponseStatus' -> UpdateDataSourceResponse updateDataSourceResponse pResponseStatus_ =- UpdateDataSourceResponse'- { _udsrsDataSourceId = Nothing- , _udsrsResponseStatus = pResponseStatus_- }+ UpdateDataSourceResponse'+ {_udsrsDataSourceId = Nothing, _udsrsResponseStatus = pResponseStatus_} + -- | The ID assigned to the @DataSource@ during creation. This value should be identical to the value of the @DataSourceID@ in the request. udsrsDataSourceId :: Lens' UpdateDataSourceResponse (Maybe Text) udsrsDataSourceId = lens _udsrsDataSourceId (\ s a -> s{_udsrsDataSourceId = a});@@ -149,4 +149,4 @@ udsrsResponseStatus :: Lens' UpdateDataSourceResponse Int udsrsResponseStatus = lens _udsrsResponseStatus (\ s a -> s{_udsrsResponseStatus = a}); -instance NFData UpdateDataSourceResponse+instance NFData UpdateDataSourceResponse where
gen/Network/AWS/MachineLearning/UpdateEvaluation.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.UpdateEvaluation--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,19 +40,20 @@ , uersResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'updateEvaluation' smart constructor. data UpdateEvaluation = UpdateEvaluation'- { _ueEvaluationId :: !Text- , _ueEvaluationName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ueEvaluationId :: !Text+ , _ueEvaluationName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateEvaluation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,10 @@ -> Text -- ^ 'ueEvaluationName' -> UpdateEvaluation updateEvaluation pEvaluationId_ pEvaluationName_ =- UpdateEvaluation'- { _ueEvaluationId = pEvaluationId_- , _ueEvaluationName = pEvaluationName_- }+ UpdateEvaluation'+ {_ueEvaluationId = pEvaluationId_, _ueEvaluationName = pEvaluationName_} + -- | The ID assigned to the @Evaluation@ during creation. ueEvaluationId :: Lens' UpdateEvaluation Text ueEvaluationId = lens _ueEvaluationId (\ s a -> s{_ueEvaluationId = a});@@ -87,9 +87,9 @@ UpdateEvaluationResponse' <$> (x .?> "EvaluationId") <*> (pure (fromEnum s))) -instance Hashable UpdateEvaluation+instance Hashable UpdateEvaluation where -instance NFData UpdateEvaluation+instance NFData UpdateEvaluation where instance ToHeaders UpdateEvaluation where toHeaders@@ -121,10 +121,11 @@ -- -- /See:/ 'updateEvaluationResponse' smart constructor. data UpdateEvaluationResponse = UpdateEvaluationResponse'- { _uersEvaluationId :: !(Maybe Text)- , _uersResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,11 +137,10 @@ :: Int -- ^ 'uersResponseStatus' -> UpdateEvaluationResponse updateEvaluationResponse pResponseStatus_ =- UpdateEvaluationResponse'- { _uersEvaluationId = Nothing- , _uersResponseStatus = pResponseStatus_- }+ UpdateEvaluationResponse'+ {_uersEvaluationId = Nothing, _uersResponseStatus = pResponseStatus_} + -- | The ID assigned to the @Evaluation@ during creation. This value should be identical to the value of the @Evaluation@ in the request. uersEvaluationId :: Lens' UpdateEvaluationResponse (Maybe Text) uersEvaluationId = lens _uersEvaluationId (\ s a -> s{_uersEvaluationId = a});@@ -149,4 +149,4 @@ uersResponseStatus :: Lens' UpdateEvaluationResponse Int uersResponseStatus = lens _uersResponseStatus (\ s a -> s{_uersResponseStatus = a}); -instance NFData UpdateEvaluationResponse+instance NFData UpdateEvaluationResponse where
gen/Network/AWS/MachineLearning/UpdateMLModel.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.MachineLearning.UpdateMLModel--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,20 +41,21 @@ , umlmrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.MachineLearning.Types-import Network.AWS.MachineLearning.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.MachineLearning.Types+import Network.AWS.MachineLearning.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'updateMLModel' smart constructor. data UpdateMLModel = UpdateMLModel'- { _umlmMLModelName :: !(Maybe Text)- , _umlmScoreThreshold :: !(Maybe Double)- , _umlmMLModelId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _umlmMLModelName :: !(Maybe Text)+ , _umlmScoreThreshold :: !(Maybe Double)+ , _umlmMLModelId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateMLModel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,12 +69,13 @@ :: Text -- ^ 'umlmMLModelId' -> UpdateMLModel updateMLModel pMLModelId_ =- UpdateMLModel'- { _umlmMLModelName = Nothing- , _umlmScoreThreshold = Nothing- , _umlmMLModelId = pMLModelId_- }+ UpdateMLModel'+ { _umlmMLModelName = Nothing+ , _umlmScoreThreshold = Nothing+ , _umlmMLModelId = pMLModelId_+ } + -- | A user-supplied name or description of the @MLModel@ . umlmMLModelName :: Lens' UpdateMLModel (Maybe Text) umlmMLModelName = lens _umlmMLModelName (\ s a -> s{_umlmMLModelName = a});@@ -95,9 +97,9 @@ UpdateMLModelResponse' <$> (x .?> "MLModelId") <*> (pure (fromEnum s))) -instance Hashable UpdateMLModel+instance Hashable UpdateMLModel where -instance NFData UpdateMLModel+instance NFData UpdateMLModel where instance ToHeaders UpdateMLModel where toHeaders@@ -130,10 +132,11 @@ -- -- /See:/ 'updateMLModelResponse' smart constructor. data UpdateMLModelResponse = UpdateMLModelResponse'- { _umlmrsMLModelId :: !(Maybe Text)- , _umlmrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -145,11 +148,10 @@ :: Int -- ^ 'umlmrsResponseStatus' -> UpdateMLModelResponse updateMLModelResponse pResponseStatus_ =- UpdateMLModelResponse'- { _umlmrsMLModelId = Nothing- , _umlmrsResponseStatus = pResponseStatus_- }+ UpdateMLModelResponse'+ {_umlmrsMLModelId = Nothing, _umlmrsResponseStatus = pResponseStatus_} + -- | The ID assigned to the @MLModel@ during creation. This value should be identical to the value of the @MLModelID@ in the request. umlmrsMLModelId :: Lens' UpdateMLModelResponse (Maybe Text) umlmrsMLModelId = lens _umlmrsMLModelId (\ s a -> s{_umlmrsMLModelId = a});@@ -158,4 +160,4 @@ umlmrsResponseStatus :: Lens' UpdateMLModelResponse Int umlmrsResponseStatus = lens _umlmrsResponseStatus (\ s a -> s{_umlmrsResponseStatus = a}); -instance NFData UpdateMLModelResponse+instance NFData UpdateMLModelResponse where
gen/Network/AWS/MachineLearning/Waiters.hs view
@@ -7,95 +7,99 @@ -- | -- Module : Network.AWS.MachineLearning.Waiters--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.MachineLearning.Waiters where -import Network.AWS.Lens-import Network.AWS.MachineLearning.DescribeBatchPredictions-import Network.AWS.MachineLearning.DescribeDataSources-import Network.AWS.MachineLearning.DescribeEvaluations-import Network.AWS.MachineLearning.DescribeMLModels-import Network.AWS.MachineLearning.Types-import Network.AWS.Prelude-import Network.AWS.Waiter+import Network.AWS.Lens+import Network.AWS.MachineLearning.DescribeBatchPredictions+import Network.AWS.MachineLearning.DescribeDataSources+import Network.AWS.MachineLearning.DescribeEvaluations+import Network.AWS.MachineLearning.DescribeMLModels+import Network.AWS.MachineLearning.Types+import Network.AWS.Prelude+import Network.AWS.Waiter -- | Polls 'Network.AWS.MachineLearning.DescribeMLModels' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks. mLModelAvailable :: Wait DescribeMLModels mLModelAvailable =- Wait- { _waitName = "MLModelAvailable"- , _waitAttempts = 60- , _waitDelay = 30- , _waitAcceptors = [ matchAll- "COMPLETED"- AcceptSuccess- (folding (concatOf dmlmsrsResults) .- mlmStatus . _Just . to toTextCI)- , matchAny- "FAILED"- AcceptFailure- (folding (concatOf dmlmsrsResults) .- mlmStatus . _Just . to toTextCI)]- }+ Wait+ { _waitName = "MLModelAvailable"+ , _waitAttempts = 60+ , _waitDelay = 30+ , _waitAcceptors =+ [ matchAll+ "COMPLETED"+ AcceptSuccess+ (folding (concatOf dmlmsrsResults) . mlmStatus . _Just . to toTextCI)+ , matchAny+ "FAILED"+ AcceptFailure+ (folding (concatOf dmlmsrsResults) . mlmStatus . _Just . to toTextCI)+ ]+ } + -- | Polls 'Network.AWS.MachineLearning.DescribeBatchPredictions' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks. batchPredictionAvailable :: Wait DescribeBatchPredictions batchPredictionAvailable =- Wait- { _waitName = "BatchPredictionAvailable"- , _waitAttempts = 60- , _waitDelay = 30- , _waitAcceptors = [ matchAll- "COMPLETED"- AcceptSuccess- (folding (concatOf dbpsrsResults) .- bpStatus . _Just . to toTextCI)- , matchAny- "FAILED"- AcceptFailure- (folding (concatOf dbpsrsResults) .- bpStatus . _Just . to toTextCI)]- }+ Wait+ { _waitName = "BatchPredictionAvailable"+ , _waitAttempts = 60+ , _waitDelay = 30+ , _waitAcceptors =+ [ matchAll+ "COMPLETED"+ AcceptSuccess+ (folding (concatOf dbpsrsResults) . bpStatus . _Just . to toTextCI)+ , matchAny+ "FAILED"+ AcceptFailure+ (folding (concatOf dbpsrsResults) . bpStatus . _Just . to toTextCI)+ ]+ } + -- | Polls 'Network.AWS.MachineLearning.DescribeDataSources' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks. dataSourceAvailable :: Wait DescribeDataSources dataSourceAvailable =- Wait- { _waitName = "DataSourceAvailable"- , _waitAttempts = 60- , _waitDelay = 30- , _waitAcceptors = [ matchAll- "COMPLETED"- AcceptSuccess- (folding (concatOf ddssrsResults) .- dsStatus . _Just . to toTextCI)- , matchAny- "FAILED"- AcceptFailure- (folding (concatOf ddssrsResults) .- dsStatus . _Just . to toTextCI)]- }+ Wait+ { _waitName = "DataSourceAvailable"+ , _waitAttempts = 60+ , _waitDelay = 30+ , _waitAcceptors =+ [ matchAll+ "COMPLETED"+ AcceptSuccess+ (folding (concatOf ddssrsResults) . dsStatus . _Just . to toTextCI)+ , matchAny+ "FAILED"+ AcceptFailure+ (folding (concatOf ddssrsResults) . dsStatus . _Just . to toTextCI)+ ]+ } + -- | Polls 'Network.AWS.MachineLearning.DescribeEvaluations' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks. evaluationAvailable :: Wait DescribeEvaluations evaluationAvailable =- Wait- { _waitName = "EvaluationAvailable"- , _waitAttempts = 60- , _waitDelay = 30- , _waitAcceptors = [ matchAll- "COMPLETED"- AcceptSuccess- (folding (concatOf desrsResults) .- eStatus . _Just . to toTextCI)- , matchAny- "FAILED"- AcceptFailure- (folding (concatOf desrsResults) .- eStatus . _Just . to toTextCI)]- }+ Wait+ { _waitName = "EvaluationAvailable"+ , _waitAttempts = 60+ , _waitDelay = 30+ , _waitAcceptors =+ [ matchAll+ "COMPLETED"+ AcceptSuccess+ (folding (concatOf desrsResults) . eStatus . _Just . to toTextCI)+ , matchAny+ "FAILED"+ AcceptFailure+ (folding (concatOf desrsResults) . eStatus . _Just . to toTextCI)+ ]+ }+
test/Main.hs view
@@ -2,9 +2,9 @@ -- | -- Module : Main--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/MachineLearning.hs view
@@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.MachineLearning--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.MachineLearning where import Data.Proxy+import Network.AWS.MachineLearning import Test.AWS.Fixture+import Test.AWS.MachineLearning.Internal import Test.AWS.Prelude import Test.Tasty-import Network.AWS.MachineLearning-import Test.AWS.MachineLearning.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.