diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-ml.cabal b/amazonka-ml.cabal --- a/amazonka-ml.cabal +++ b/amazonka-ml.cabal @@ -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 -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +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 diff --git a/gen/Network/AWS/MachineLearning.hs b/gen/Network/AWS/MachineLearning.hs --- a/gen/Network/AWS/MachineLearning.hs +++ b/gen/Network/AWS/MachineLearning.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/AddTags.hs b/gen/Network/AWS/MachineLearning/AddTags.hs --- a/gen/Network/AWS/MachineLearning/AddTags.hs +++ b/gen/Network/AWS/MachineLearning/AddTags.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs b/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/CreateDataSourceFromS3.hs b/gen/Network/AWS/MachineLearning/CreateDataSourceFromS3.hs --- a/gen/Network/AWS/MachineLearning/CreateDataSourceFromS3.hs +++ b/gen/Network/AWS/MachineLearning/CreateDataSourceFromS3.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/CreateEvaluation.hs b/gen/Network/AWS/MachineLearning/CreateEvaluation.hs --- a/gen/Network/AWS/MachineLearning/CreateEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/CreateEvaluation.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/CreateMLModel.hs b/gen/Network/AWS/MachineLearning/CreateMLModel.hs --- a/gen/Network/AWS/MachineLearning/CreateMLModel.hs +++ b/gen/Network/AWS/MachineLearning/CreateMLModel.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs b/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs --- a/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs +++ b/gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs b/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DeleteDataSource.hs b/gen/Network/AWS/MachineLearning/DeleteDataSource.hs --- a/gen/Network/AWS/MachineLearning/DeleteDataSource.hs +++ b/gen/Network/AWS/MachineLearning/DeleteDataSource.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs b/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs --- a/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/DeleteEvaluation.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DeleteMLModel.hs b/gen/Network/AWS/MachineLearning/DeleteMLModel.hs --- a/gen/Network/AWS/MachineLearning/DeleteMLModel.hs +++ b/gen/Network/AWS/MachineLearning/DeleteMLModel.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs b/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs --- a/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs +++ b/gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DeleteTags.hs b/gen/Network/AWS/MachineLearning/DeleteTags.hs --- a/gen/Network/AWS/MachineLearning/DeleteTags.hs +++ b/gen/Network/AWS/MachineLearning/DeleteTags.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs b/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs --- a/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs +++ b/gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DescribeDataSources.hs b/gen/Network/AWS/MachineLearning/DescribeDataSources.hs --- a/gen/Network/AWS/MachineLearning/DescribeDataSources.hs +++ b/gen/Network/AWS/MachineLearning/DescribeDataSources.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs b/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs --- a/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs +++ b/gen/Network/AWS/MachineLearning/DescribeEvaluations.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DescribeMLModels.hs b/gen/Network/AWS/MachineLearning/DescribeMLModels.hs --- a/gen/Network/AWS/MachineLearning/DescribeMLModels.hs +++ b/gen/Network/AWS/MachineLearning/DescribeMLModels.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/DescribeTags.hs b/gen/Network/AWS/MachineLearning/DescribeTags.hs --- a/gen/Network/AWS/MachineLearning/DescribeTags.hs +++ b/gen/Network/AWS/MachineLearning/DescribeTags.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs b/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/GetBatchPrediction.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/GetDataSource.hs b/gen/Network/AWS/MachineLearning/GetDataSource.hs --- a/gen/Network/AWS/MachineLearning/GetDataSource.hs +++ b/gen/Network/AWS/MachineLearning/GetDataSource.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/GetEvaluation.hs b/gen/Network/AWS/MachineLearning/GetEvaluation.hs --- a/gen/Network/AWS/MachineLearning/GetEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/GetEvaluation.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/GetMLModel.hs b/gen/Network/AWS/MachineLearning/GetMLModel.hs --- a/gen/Network/AWS/MachineLearning/GetMLModel.hs +++ b/gen/Network/AWS/MachineLearning/GetMLModel.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/Predict.hs b/gen/Network/AWS/MachineLearning/Predict.hs --- a/gen/Network/AWS/MachineLearning/Predict.hs +++ b/gen/Network/AWS/MachineLearning/Predict.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/Types.hs b/gen/Network/AWS/MachineLearning/Types.hs --- a/gen/Network/AWS/MachineLearning/Types.hs +++ b/gen/Network/AWS/MachineLearning/Types.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 + diff --git a/gen/Network/AWS/MachineLearning/Types/Product.hs b/gen/Network/AWS/MachineLearning/Types/Product.hs --- a/gen/Network/AWS/MachineLearning/Types/Product.hs +++ b/gen/Network/AWS/MachineLearning/Types/Product.hs @@ -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 +-- Maintainer : Brendan Hay -- 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'{..} diff --git a/gen/Network/AWS/MachineLearning/Types/Sum.hs b/gen/Network/AWS/MachineLearning/Types/Sum.hs --- a/gen/Network/AWS/MachineLearning/Types/Sum.hs +++ b/gen/Network/AWS/MachineLearning/Types/Sum.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs b/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs --- a/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs +++ b/gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/UpdateDataSource.hs b/gen/Network/AWS/MachineLearning/UpdateDataSource.hs --- a/gen/Network/AWS/MachineLearning/UpdateDataSource.hs +++ b/gen/Network/AWS/MachineLearning/UpdateDataSource.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs b/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs --- a/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs +++ b/gen/Network/AWS/MachineLearning/UpdateEvaluation.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/UpdateMLModel.hs b/gen/Network/AWS/MachineLearning/UpdateMLModel.hs --- a/gen/Network/AWS/MachineLearning/UpdateMLModel.hs +++ b/gen/Network/AWS/MachineLearning/UpdateMLModel.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/MachineLearning/Waiters.hs b/gen/Network/AWS/MachineLearning/Waiters.hs --- a/gen/Network/AWS/MachineLearning/Waiters.hs +++ b/gen/Network/AWS/MachineLearning/Waiters.hs @@ -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 +-- Maintainer : Brendan Hay -- 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) + ] + } + diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -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 +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- diff --git a/test/Test/AWS/Gen/MachineLearning.hs b/test/Test/AWS/Gen/MachineLearning.hs --- a/test/Test/AWS/Gen/MachineLearning.hs +++ b/test/Test/AWS/Gen/MachineLearning.hs @@ -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 +-- Maintainer : Brendan Hay -- 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.