amazonka-ml 0.3.6 → 1.0.0

raw patch · 36 files changed

+7367/−5737 lines, 36 filesdep +amazonka-mldep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-ml, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +16/−5
• amazonka-ml.cabal +47/−10
• gen/Network/AWS/MachineLearning.hs +375/−55
• gen/Network/AWS/MachineLearning/CreateBatchPrediction.hs +156/−130
• gen/Network/AWS/MachineLearning/CreateDataSourceFromRDS.hs +187/−149
• gen/Network/AWS/MachineLearning/CreateDataSourceFromRedshift.hs +189/−149
• gen/Network/AWS/MachineLearning/CreateDataSourceFromS.hs +170/−141
• gen/Network/AWS/MachineLearning/CreateEvaluation.hs +144/−118
• gen/Network/AWS/MachineLearning/CreateMLModel.hs +200/−171
• gen/Network/AWS/MachineLearning/CreateRealtimeEndpoint.hs +113/−91
• gen/Network/AWS/MachineLearning/DeleteBatchPrediction.hs +107/−83
• gen/Network/AWS/MachineLearning/DeleteDataSource.hs +98/−81
• gen/Network/AWS/MachineLearning/DeleteEvaluation.hs +103/−81
• gen/Network/AWS/MachineLearning/DeleteMLModel.hs +99/−80
• gen/Network/AWS/MachineLearning/DeleteRealtimeEndpoint.hs +108/−89
• gen/Network/AWS/MachineLearning/DescribeBatchPredictions.hs +231/−188
• gen/Network/AWS/MachineLearning/DescribeDataSources.hs +225/−192
• gen/Network/AWS/MachineLearning/DescribeEvaluations.hs +229/−193
• gen/Network/AWS/MachineLearning/DescribeMLModels.hs +229/−194
• gen/Network/AWS/MachineLearning/GetBatchPrediction.hs +189/−193
• gen/Network/AWS/MachineLearning/GetDataSource.hs +241/−242
• gen/Network/AWS/MachineLearning/GetEvaluation.hs +198/−198
• gen/Network/AWS/MachineLearning/GetMLModel.hs +294/−297
• gen/Network/AWS/MachineLearning/Predict.hs +111/−93
• gen/Network/AWS/MachineLearning/Types.hs +296/−2148
• gen/Network/AWS/MachineLearning/Types/Product.hs +1512/−0
• gen/Network/AWS/MachineLearning/Types/Sum.hs +429/−0
• gen/Network/AWS/MachineLearning/UpdateBatchPrediction.hs +108/−89
• gen/Network/AWS/MachineLearning/UpdateDataSource.hs +108/−90
• gen/Network/AWS/MachineLearning/UpdateEvaluation.hs +107/−89
• gen/Network/AWS/MachineLearning/UpdateMLModel.hs +117/−98
• gen/Network/AWS/MachineLearning/Waiters.hs +104/−0
• test/Main.hs +21/−0
• test/Test/AWS/Gen/MachineLearning.hs +464/−0
• test/Test/AWS/MachineLearning.hs +26/−0
• test/Test/AWS/MachineLearning/Internal.hs +16/−0

@@ -1,20 +1,31 @@ # Amazon Machine Learning SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Amazon Machine Learning (Amazon ML) is a robust machine learning platform-that allows software developers to build and train predictive applications-and host those applications in a scalable AWS cloud solution.+Definition of the public APIs exposed by Amazon Machine Learning  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-ml) and the [AWS API Reference](http://docs.aws.amazon.com/machine-learning/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,27 +1,33 @@ name:                  amazonka-ml-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Machine Learning SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Amazon Machine Learning (Amazon ML) is a robust machine learning platform-    that allows software developers to build and train predictive applications-    and host those applications in a scalable AWS cloud solution.-+    Definition of the public APIs exposed by Amazon Machine Learning     .-    /See:/ <http://docs.aws.amazon.com/machine-learning/latest/APIReference/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.MachineLearning" and the <http://docs.aws.amazon.com/machine-learning/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -61,9 +67,40 @@         , Network.AWS.MachineLearning.UpdateDataSource         , Network.AWS.MachineLearning.UpdateEvaluation         , Network.AWS.MachineLearning.UpdateMLModel+        , Network.AWS.MachineLearning.Waiters      other-modules:+          Network.AWS.MachineLearning.Types.Product+        , Network.AWS.MachineLearning.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-ml-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.MachineLearning+        , Test.AWS.Gen.MachineLearning+        , Test.AWS.MachineLearning.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-ml == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,70 +1,390 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Amazon Machine Learning (Amazon ML) is a robust machine learning platform--- that allows software developers to build and train predictive applications--- and host those applications in a scalable AWS cloud solution.+-- Definition of the public APIs exposed by Amazon Machine Learning+--+-- /See:/ <http://docs.aws.amazon.com/machine-learning/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.MachineLearning-    ( module Network.AWS.MachineLearning.CreateBatchPrediction-    , module Network.AWS.MachineLearning.CreateDataSourceFromRDS+    (+    -- * Service+      MachineLearning++    -- * Errors+    -- $errors++    -- ** InternalServerException+    , _InternalServerException++    -- ** InvalidInputException+    , _InvalidInputException++    -- ** IdempotentParameterMismatchException+    , _IdempotentParameterMismatchException++    -- ** PredictorNotMountedException+    , _PredictorNotMountedException++    -- ** ResourceNotFoundException+    , _ResourceNotFoundException++    -- ** LimitExceededException+    , _LimitExceededException++    -- * Waiters+    -- $waiters++    -- ** MLModelAvailable+    , mLModelAvailable++    -- ** BatchPredictionAvailable+    , batchPredictionAvailable++    -- ** DataSourceAvailable+    , dataSourceAvailable++    -- ** EvaluationAvailable+    , evaluationAvailable++    -- * Operations+    -- $operations++    -- ** DeleteDataSource+    , module Network.AWS.MachineLearning.DeleteDataSource++    -- ** UpdateDataSource+    , module Network.AWS.MachineLearning.UpdateDataSource++    -- ** CreateDataSourceFromRedshift     , module Network.AWS.MachineLearning.CreateDataSourceFromRedshift++    -- ** CreateDataSourceFromS     , module Network.AWS.MachineLearning.CreateDataSourceFromS-    , module Network.AWS.MachineLearning.CreateEvaluation++    -- ** CreateMLModel     , module Network.AWS.MachineLearning.CreateMLModel-    , module Network.AWS.MachineLearning.CreateRealtimeEndpoint++    -- ** DeleteBatchPrediction     , module Network.AWS.MachineLearning.DeleteBatchPrediction-    , module Network.AWS.MachineLearning.DeleteDataSource-    , module Network.AWS.MachineLearning.DeleteEvaluation++    -- ** UpdateBatchPrediction+    , module Network.AWS.MachineLearning.UpdateBatchPrediction++    -- ** GetMLModel+    , module Network.AWS.MachineLearning.GetMLModel++    -- ** GetDataSource+    , module Network.AWS.MachineLearning.GetDataSource++    -- ** DeleteMLModel     , module Network.AWS.MachineLearning.DeleteMLModel-    , module Network.AWS.MachineLearning.DeleteRealtimeEndpoint++    -- ** UpdateMLModel+    , module Network.AWS.MachineLearning.UpdateMLModel++    -- ** DescribeBatchPredictions (Paginated)     , module Network.AWS.MachineLearning.DescribeBatchPredictions-    , module Network.AWS.MachineLearning.DescribeDataSources-    , module Network.AWS.MachineLearning.DescribeEvaluations-    , module Network.AWS.MachineLearning.DescribeMLModels++    -- ** UpdateEvaluation+    , module Network.AWS.MachineLearning.UpdateEvaluation++    -- ** DeleteEvaluation+    , module Network.AWS.MachineLearning.DeleteEvaluation++    -- ** GetBatchPrediction     , module Network.AWS.MachineLearning.GetBatchPrediction-    , module Network.AWS.MachineLearning.GetDataSource-    , module Network.AWS.MachineLearning.GetEvaluation-    , module Network.AWS.MachineLearning.GetMLModel++    -- ** CreateEvaluation+    , module Network.AWS.MachineLearning.CreateEvaluation++    -- ** CreateDataSourceFromRDS+    , module Network.AWS.MachineLearning.CreateDataSourceFromRDS++    -- ** CreateBatchPrediction+    , module Network.AWS.MachineLearning.CreateBatchPrediction++    -- ** Predict     , module Network.AWS.MachineLearning.Predict-    , module Network.AWS.MachineLearning.Types-    , module Network.AWS.MachineLearning.UpdateBatchPrediction-    , module Network.AWS.MachineLearning.UpdateDataSource-    , module Network.AWS.MachineLearning.UpdateEvaluation-    , module Network.AWS.MachineLearning.UpdateMLModel++    -- ** DeleteRealtimeEndpoint+    , module Network.AWS.MachineLearning.DeleteRealtimeEndpoint++    -- ** DescribeEvaluations (Paginated)+    , module Network.AWS.MachineLearning.DescribeEvaluations++    -- ** GetEvaluation+    , module Network.AWS.MachineLearning.GetEvaluation++    -- ** CreateRealtimeEndpoint+    , module Network.AWS.MachineLearning.CreateRealtimeEndpoint++    -- ** DescribeMLModels (Paginated)+    , module Network.AWS.MachineLearning.DescribeMLModels++    -- ** DescribeDataSources (Paginated)+    , module Network.AWS.MachineLearning.DescribeDataSources++    -- * Types++    -- ** Algorithm+    , Algorithm (..)++    -- ** BatchPredictionFilterVariable+    , BatchPredictionFilterVariable (..)++    -- ** DataSourceFilterVariable+    , DataSourceFilterVariable (..)++    -- ** DetailsAttributes+    , DetailsAttributes (..)++    -- ** EntityStatus+    , EntityStatus (..)++    -- ** EvaluationFilterVariable+    , EvaluationFilterVariable (..)++    -- ** MLModelFilterVariable+    , MLModelFilterVariable (..)++    -- ** MLModelType+    , MLModelType (..)++    -- ** RealtimeEndpointStatus+    , RealtimeEndpointStatus (..)++    -- ** SortOrder+    , SortOrder (..)++    -- ** BatchPrediction+    , BatchPrediction+    , batchPrediction+    , bpStatus+    , bpLastUpdatedAt+    , bpCreatedAt+    , bpInputDataLocationS3+    , bpMLModelId+    , bpBatchPredictionDataSourceId+    , bpBatchPredictionId+    , bpName+    , bpCreatedByIAMUser+    , bpMessage+    , bpOutputURI++    -- ** DataSource+    , DataSource+    , dataSource+    , dsStatus+    , dsNumberOfFiles+    , dsLastUpdatedAt+    , dsCreatedAt+    , dsRDSMetadata+    , dsDataSourceId+    , dsDataSizeInBytes+    , dsName+    , dsCreatedByIAMUser+    , dsDataLocationS3+    , dsComputeStatistics+    , dsMessage+    , dsRedshiftMetadata+    , dsRoleARN+    , dsDataRearrangement++    -- ** Evaluation+    , Evaluation+    , evaluation+    , eStatus+    , ePerformanceMetrics+    , eLastUpdatedAt+    , eCreatedAt+    , eInputDataLocationS3+    , eMLModelId+    , eName+    , eCreatedByIAMUser+    , eMessage+    , eEvaluationId+    , eEvaluationDataSourceId++    -- ** MLModel+    , MLModel+    , mLModel+    , mlmStatus+    , mlmTrainingParameters+    , mlmLastUpdatedAt+    , mlmCreatedAt+    , mlmScoreThresholdLastUpdatedAt+    , mlmInputDataLocationS3+    , mlmSizeInBytes+    , mlmMLModelId+    , mlmScoreThreshold+    , mlmName+    , mlmAlgorithm+    , mlmCreatedByIAMUser+    , mlmEndpointInfo+    , mlmTrainingDataSourceId+    , mlmMessage+    , mlmMLModelType++    -- ** PerformanceMetrics+    , PerformanceMetrics+    , performanceMetrics+    , pmProperties++    -- ** Prediction+    , Prediction+    , prediction+    , pPredictedValue+    , pPredictedLabel+    , pPredictedScores+    , pDetails++    -- ** RDSDataSpec+    , RDSDataSpec+    , rdsDataSpec+    , rdsdsDataSchemaURI+    , rdsdsDataSchema+    , rdsdsDataRearrangement+    , rdsdsDatabaseInformation+    , rdsdsSelectSqlQuery+    , rdsdsDatabaseCredentials+    , rdsdsS3StagingLocation+    , rdsdsResourceRole+    , rdsdsServiceRole+    , rdsdsSubnetId+    , rdsdsSecurityGroupIds++    -- ** RDSDatabase+    , RDSDatabase+    , rdsDatabase+    , rdsdInstanceIdentifier+    , rdsdDatabaseName++    -- ** RDSDatabaseCredentials+    , RDSDatabaseCredentials+    , rdsDatabaseCredentials+    , rdsdcUsername+    , rdsdcPassword++    -- ** RDSMetadata+    , RDSMetadata+    , rdsMetadata+    , rmSelectSqlQuery+    , rmDataPipelineId+    , rmDatabase+    , rmDatabaseUserName+    , rmResourceRole+    , rmServiceRole++    -- ** RealtimeEndpointInfo+    , RealtimeEndpointInfo+    , realtimeEndpointInfo+    , reiCreatedAt+    , reiEndpointURL+    , reiEndpointStatus+    , reiPeakRequestsPerSecond++    -- ** RedshiftDataSpec+    , RedshiftDataSpec+    , redshiftDataSpec+    , rDataSchemaURI+    , rDataSchema+    , rDataRearrangement+    , rDatabaseInformation+    , rSelectSqlQuery+    , rDatabaseCredentials+    , rS3StagingLocation++    -- ** RedshiftDatabase+    , RedshiftDatabase+    , redshiftDatabase+    , rdDatabaseName+    , rdClusterIdentifier++    -- ** RedshiftDatabaseCredentials+    , RedshiftDatabaseCredentials+    , redshiftDatabaseCredentials+    , rdcUsername+    , rdcPassword++    -- ** RedshiftMetadata+    , RedshiftMetadata+    , redshiftMetadata+    , redSelectSqlQuery+    , redRedshiftDatabase+    , redDatabaseUserName++    -- ** S3DataSpec+    , S3DataSpec+    , s3DataSpec+    , sdsDataSchema+    , sdsDataSchemaLocationS3+    , sdsDataRearrangement+    , sdsDataLocationS3     ) where -import Network.AWS.MachineLearning.CreateBatchPrediction-import Network.AWS.MachineLearning.CreateDataSourceFromRDS-import Network.AWS.MachineLearning.CreateDataSourceFromRedshift-import Network.AWS.MachineLearning.CreateDataSourceFromS-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.DescribeBatchPredictions-import Network.AWS.MachineLearning.DescribeDataSources-import Network.AWS.MachineLearning.DescribeEvaluations-import Network.AWS.MachineLearning.DescribeMLModels-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.CreateBatchPrediction+import           Network.AWS.MachineLearning.CreateDataSourceFromRDS+import           Network.AWS.MachineLearning.CreateDataSourceFromRedshift+import           Network.AWS.MachineLearning.CreateDataSourceFromS+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.DescribeBatchPredictions+import           Network.AWS.MachineLearning.DescribeDataSources+import           Network.AWS.MachineLearning.DescribeEvaluations+import           Network.AWS.MachineLearning.DescribeMLModels+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+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'MachineLearning'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,179 +1,205 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.CreateBatchPrediction--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Generates predictions for a group of observations. The observations to--- process exist in one or more data files referenced by a 'DataSource'. This--- operation creates a new 'BatchPrediction', and uses an 'MLModel' and the data--- files referenced by the 'DataSource' as information sources.+-- Generates predictions for a group of observations. The observations to+-- process exist in one or more data files referenced by a 'DataSource'.+-- This operation creates a new 'BatchPrediction', and uses an 'MLModel'+-- and the data files referenced by the 'DataSource' as information+-- sources. ----- 'CreateBatchPrediction' is an asynchronous operation. In response to 'CreateBatchPrediction', Amazon Machine Learning (Amazon ML) immediately returns and sets the 'BatchPrediction' status to 'PENDING'. After the 'BatchPrediction' completes, Amazon ML sets the--- status to 'COMPLETED'.+-- 'CreateBatchPrediction' is an asynchronous operation. In response to+-- 'CreateBatchPrediction', Amazon Machine Learning (Amazon ML) immediately+-- returns and sets the 'BatchPrediction' status to 'PENDING'. After the+-- 'BatchPrediction' completes, Amazon ML sets the status to 'COMPLETED'. ----- You can poll for status updates by using the 'GetBatchPrediction' operation--- and checking the 'Status' parameter of the result. After the 'COMPLETED' status--- appears, the results are available in the location specified by the 'OutputUri'--- parameter.+-- You can poll for status updates by using the GetBatchPrediction+-- operation and checking the 'Status' parameter of the result. After the+-- 'COMPLETED' status appears, the results are available in the location+-- specified by the 'OutputUri' parameter. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateBatchPrediction.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateBatchPrediction.html AWS API Reference> for CreateBatchPrediction. module Network.AWS.MachineLearning.CreateBatchPrediction     (-    -- * Request-      CreateBatchPrediction-    -- ** Request constructor-    , createBatchPrediction-    -- ** Request lenses-    , cbpBatchPredictionDataSourceId-    , cbpBatchPredictionId+    -- * Creating a Request+      createBatchPrediction+    , CreateBatchPrediction+    -- * Request Lenses     , cbpBatchPredictionName+    , cbpBatchPredictionId     , cbpMLModelId-    , cbpOutputUri+    , cbpBatchPredictionDataSourceId+    , cbpOutputURI -    -- * Response-    , CreateBatchPredictionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createBatchPredictionResponse-    -- ** Response lenses-    , cbprBatchPredictionId+    , CreateBatchPredictionResponse+    -- * Response Lenses+    , cbprsBatchPredictionId+    , cbprsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateBatchPrediction = CreateBatchPrediction-    { _cbpBatchPredictionDataSourceId :: Text-    , _cbpBatchPredictionId           :: Text-    , _cbpBatchPredictionName         :: Maybe Text-    , _cbpMLModelId                   :: Text-    , _cbpOutputUri                   :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /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) --- | 'CreateBatchPrediction' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateBatchPrediction' with the minimum fields required to make a request. ----- * 'cbpBatchPredictionDataSourceId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cbpBatchPredictionId' @::@ 'Text'+-- * 'cbpBatchPredictionName' ----- * 'cbpBatchPredictionName' @::@ 'Maybe' 'Text'+-- * 'cbpBatchPredictionId' ----- * 'cbpMLModelId' @::@ 'Text'+-- * 'cbpMLModelId' ----- * 'cbpOutputUri' @::@ 'Text'+-- * 'cbpBatchPredictionDataSourceId' ---createBatchPrediction :: Text -- ^ 'cbpBatchPredictionId'-                      -> Text -- ^ 'cbpMLModelId'-                      -> Text -- ^ 'cbpBatchPredictionDataSourceId'-                      -> Text -- ^ 'cbpOutputUri'-                      -> CreateBatchPrediction-createBatchPrediction p1 p2 p3 p4 = CreateBatchPrediction-    { _cbpBatchPredictionId           = p1-    , _cbpMLModelId                   = p2-    , _cbpBatchPredictionDataSourceId = p3-    , _cbpOutputUri                   = p4-    , _cbpBatchPredictionName         = Nothing+-- * 'cbpOutputURI'+createBatchPrediction+    :: Text -- ^ 'cbpBatchPredictionId'+    -> Text -- ^ 'cbpMLModelId'+    -> Text -- ^ 'cbpBatchPredictionDataSourceId'+    -> Text -- ^ 'cbpOutputURI'+    -> CreateBatchPrediction+createBatchPrediction pBatchPredictionId_ pMLModelId_ pBatchPredictionDataSourceId_ pOutputURI_ =+    CreateBatchPrediction'+    { _cbpBatchPredictionName = Nothing+    , _cbpBatchPredictionId = pBatchPredictionId_+    , _cbpMLModelId = pMLModelId_+    , _cbpBatchPredictionDataSourceId = pBatchPredictionDataSourceId_+    , _cbpOutputURI = pOutputURI_     } --- | The ID of the 'DataSource' that points to the group of observations to predict.-cbpBatchPredictionDataSourceId :: Lens' CreateBatchPrediction Text-cbpBatchPredictionDataSourceId =-    lens _cbpBatchPredictionDataSourceId-        (\s a -> s { _cbpBatchPredictionDataSourceId = a })+-- | 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});  -- | A user-supplied ID that uniquely identifies the 'BatchPrediction'. cbpBatchPredictionId :: Lens' CreateBatchPrediction Text-cbpBatchPredictionId =-    lens _cbpBatchPredictionId (\s a -> s { _cbpBatchPredictionId = a })---- | 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 })+cbpBatchPredictionId = lens _cbpBatchPredictionId (\ s a -> s{_cbpBatchPredictionId = a});  -- | The ID of the 'MLModel' that will generate predictions for the group of -- observations. cbpMLModelId :: Lens' CreateBatchPrediction Text-cbpMLModelId = lens _cbpMLModelId (\s a -> s { _cbpMLModelId = a })+cbpMLModelId = lens _cbpMLModelId (\ s a -> s{_cbpMLModelId = a}); +-- | The ID of the 'DataSource' that points to the group of observations to+-- predict.+cbpBatchPredictionDataSourceId :: Lens' CreateBatchPrediction Text+cbpBatchPredictionDataSourceId = lens _cbpBatchPredictionDataSourceId (\ s a -> s{_cbpBatchPredictionDataSourceId = a});+ -- | The location of an Amazon Simple Storage Service (Amazon S3) bucket or--- directory to store the batch prediction results. The following substrings are--- not allowed in the s3 key portion of the "outputURI" field: ':', '//', '/./',--- '/../'.+-- directory to store the batch prediction results. The following+-- substrings are not allowed in the s3 key portion of the \"outputURI\"+-- field: \':\', \'\/\/\', \'\/.\/\', \'\/..\/\'. ----- Amazon ML needs permissions to store and retrieve the logs on your behalf.--- For information about how to set permissions, see the <http://docs.aws.amazon.com/machine-learning/latest/dg Amazon Machine LearningDeveloper Guide>.-cbpOutputUri :: Lens' CreateBatchPrediction Text-cbpOutputUri = lens _cbpOutputUri (\s a -> s { _cbpOutputUri = a })+-- Amazon ML needs permissions to store and retrieve the logs on your+-- behalf. For information about how to set permissions, see the+-- <http://docs.aws.amazon.com/machine-learning/latest/dg Amazon Machine Learning Developer Guide>.+cbpOutputURI :: Lens' CreateBatchPrediction Text+cbpOutputURI = lens _cbpOutputURI (\ s a -> s{_cbpOutputURI = a}); -newtype CreateBatchPredictionResponse = CreateBatchPredictionResponse-    { _cbprBatchPredictionId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CreateBatchPrediction where+        type Sv CreateBatchPrediction = MachineLearning+        type Rs CreateBatchPrediction =+             CreateBatchPredictionResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateBatchPredictionResponse' <$>+                   (x .?> "BatchPredictionId") <*> (pure (fromEnum s))) --- | 'CreateBatchPredictionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cbprBatchPredictionId' @::@ 'Maybe' 'Text'----createBatchPredictionResponse :: CreateBatchPredictionResponse-createBatchPredictionResponse = CreateBatchPredictionResponse-    { _cbprBatchPredictionId = Nothing-    }+instance ToHeaders CreateBatchPrediction where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.CreateBatchPrediction" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A user-supplied ID that uniquely identifies the 'BatchPrediction'. This value--- is identical to the value of the 'BatchPredictionId' in the request.-cbprBatchPredictionId :: Lens' CreateBatchPredictionResponse (Maybe Text)-cbprBatchPredictionId =-    lens _cbprBatchPredictionId (\s a -> s { _cbprBatchPredictionId = a })+instance ToJSON CreateBatchPrediction where+        toJSON CreateBatchPrediction'{..}+          = object+              ["BatchPredictionName" .= _cbpBatchPredictionName,+               "BatchPredictionId" .= _cbpBatchPredictionId,+               "MLModelId" .= _cbpMLModelId,+               "BatchPredictionDataSourceId" .=+                 _cbpBatchPredictionDataSourceId,+               "OutputUri" .= _cbpOutputURI]  instance ToPath CreateBatchPrediction where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateBatchPrediction where-    toQuery = const mempty--instance ToHeaders CreateBatchPrediction+        toQuery = const mempty -instance ToJSON CreateBatchPrediction where-    toJSON CreateBatchPrediction{..} = object-        [ "BatchPredictionId"           .= _cbpBatchPredictionId-        , "BatchPredictionName"         .= _cbpBatchPredictionName-        , "MLModelId"                   .= _cbpMLModelId-        , "BatchPredictionDataSourceId" .= _cbpBatchPredictionDataSourceId-        , "OutputUri"                   .= _cbpOutputUri-        ]+-- | Represents the output of a CreateBatchPrediction operation, and is an+-- acknowledgement that Amazon ML received the request.+--+-- The CreateBatchPrediction operation is asynchronous. You can poll for+-- status updates by using the GetBatchPrediction operation and checking+-- the 'Status' parameter of the result.+--+-- /See:/ 'createBatchPredictionResponse' smart constructor.+data CreateBatchPredictionResponse = CreateBatchPredictionResponse'+    { _cbprsBatchPredictionId :: !(Maybe Text)+    , _cbprsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateBatchPrediction where-    type Sv CreateBatchPrediction = MachineLearning-    type Rs CreateBatchPrediction = CreateBatchPredictionResponse+-- | 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:+--+-- * 'cbprsBatchPredictionId'+--+-- * 'cbprsStatus'+createBatchPredictionResponse+    :: Int -- ^ 'cbprsStatus'+    -> CreateBatchPredictionResponse+createBatchPredictionResponse pStatus_ =+    CreateBatchPredictionResponse'+    { _cbprsBatchPredictionId = Nothing+    , _cbprsStatus = pStatus_+    } -    request  = post "CreateBatchPrediction"-    response = jsonResponse+-- | 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}); -instance FromJSON CreateBatchPredictionResponse where-    parseJSON = withObject "CreateBatchPredictionResponse" $ \o -> CreateBatchPredictionResponse-        <$> o .:? "BatchPredictionId"+-- | The response status code.+cbprsStatus :: Lens' CreateBatchPredictionResponse Int+cbprsStatus = lens _cbprsStatus (\ s a -> s{_cbprsStatus = a});

@@ -1,212 +1,250 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.CreateDataSourceFromRDS--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a 'DataSource' object from an <http://aws.amazon.com/rds/  Amazon Relational Database Service>--- (Amazon RDS). A 'DataSource' references data that can be used to perform 'CreateMLModel', 'CreateEvaluation', or 'CreateBatchPrediction' operations.+-- Creates a 'DataSource' object from an+-- <http://aws.amazon.com/rds/ Amazon Relational Database Service> (Amazon+-- RDS). A 'DataSource' references data that can be used to perform+-- CreateMLModel, CreateEvaluation, or CreateBatchPrediction operations. ----- 'CreateDataSourceFromRDS' is an asynchronous operation. In response to 'CreateDataSourceFromRDS', Amazon Machine Learning (Amazon ML) immediately returns and sets the 'DataSource' status to 'PENDING'. After the 'DataSource' is created and ready for use, Amazon--- ML sets the 'Status' parameter to 'COMPLETED'. 'DataSource' in 'COMPLETED' or 'PENDING'--- status can only be used to perform 'CreateMLModel', 'CreateEvaluation', or 'CreateBatchPrediction' operations.+-- 'CreateDataSourceFromRDS' is an asynchronous operation. In response to+-- 'CreateDataSourceFromRDS', Amazon Machine Learning (Amazon ML)+-- immediately returns and sets the 'DataSource' status to 'PENDING'. After+-- the 'DataSource' is created and ready for use, Amazon ML sets the+-- 'Status' parameter to 'COMPLETED'. 'DataSource' in 'COMPLETED' or+-- 'PENDING' status can only be used to perform CreateMLModel,+-- CreateEvaluation, or CreateBatchPrediction operations. ----- If Amazon ML cannot accept the input source, it sets the 'Status' parameter--- to 'FAILED' and includes an error message in the 'Message' attribute of the 'GetDataSource' operation response.+-- If Amazon ML cannot accept the input source, it sets the 'Status'+-- parameter to 'FAILED' and includes an error message in the 'Message'+-- attribute of the GetDataSource operation response. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateDataSourceFromRDS.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateDataSourceFromRDS.html AWS API Reference> for CreateDataSourceFromRDS. module Network.AWS.MachineLearning.CreateDataSourceFromRDS     (-    -- * Request-      CreateDataSourceFromRDS-    -- ** Request constructor-    , createDataSourceFromRDS-    -- ** Request lenses+    -- * Creating a Request+      createDataSourceFromRDS+    , CreateDataSourceFromRDS+    -- * Request Lenses+    , cdsfrdsDataSourceName     , cdsfrdsComputeStatistics     , cdsfrdsDataSourceId-    , cdsfrdsDataSourceName     , cdsfrdsRDSData     , cdsfrdsRoleARN -    -- * Response-    , CreateDataSourceFromRDSResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createDataSourceFromRDSResponse-    -- ** Response lenses-    , cdsfrdsrDataSourceId+    , CreateDataSourceFromRDSResponse+    -- * Response Lenses+    , cdsfrdsrsDataSourceId+    , cdsfrdsrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateDataSourceFromRDS = CreateDataSourceFromRDS-    { _cdsfrdsComputeStatistics :: Maybe Bool-    , _cdsfrdsDataSourceId      :: Text-    , _cdsfrdsDataSourceName    :: Maybe Text-    , _cdsfrdsRDSData           :: RDSDataSpec-    , _cdsfrdsRoleARN           :: Text-    } deriving (Eq, Read, Show)+-- | /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) --- | 'CreateDataSourceFromRDS' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateDataSourceFromRDS' with the minimum fields required to make a request. ----- * 'cdsfrdsComputeStatistics' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdsfrdsDataSourceId' @::@ 'Text'+-- * 'cdsfrdsDataSourceName' ----- * 'cdsfrdsDataSourceName' @::@ 'Maybe' 'Text'+-- * 'cdsfrdsComputeStatistics' ----- * 'cdsfrdsRDSData' @::@ 'RDSDataSpec'+-- * 'cdsfrdsDataSourceId' ----- * 'cdsfrdsRoleARN' @::@ 'Text'+-- * 'cdsfrdsRDSData' ---createDataSourceFromRDS :: Text -- ^ 'cdsfrdsDataSourceId'-                        -> RDSDataSpec -- ^ 'cdsfrdsRDSData'-                        -> Text -- ^ 'cdsfrdsRoleARN'-                        -> CreateDataSourceFromRDS-createDataSourceFromRDS p1 p2 p3 = CreateDataSourceFromRDS-    { _cdsfrdsDataSourceId      = p1-    , _cdsfrdsRDSData           = p2-    , _cdsfrdsRoleARN           = p3-    , _cdsfrdsDataSourceName    = Nothing+-- * 'cdsfrdsRoleARN'+createDataSourceFromRDS+    :: Text -- ^ 'cdsfrdsDataSourceId'+    -> RDSDataSpec -- ^ 'cdsfrdsRDSData'+    -> Text -- ^ 'cdsfrdsRoleARN'+    -> CreateDataSourceFromRDS+createDataSourceFromRDS pDataSourceId_ pRDSData_ pRoleARN_ =+    CreateDataSourceFromRDS'+    { _cdsfrdsDataSourceName = Nothing     , _cdsfrdsComputeStatistics = Nothing+    , _cdsfrdsDataSourceId = pDataSourceId_+    , _cdsfrdsRDSData = pRDSData_+    , _cdsfrdsRoleARN = pRoleARN_     } --- | The compute statistics for a 'DataSource'. The statistics are generated from--- the observation data referenced by a 'DataSource'. Amazon ML uses the--- statistics internally during an 'MLModel' training. This parameter must be set--- to 'true' if the ''DataSource'' needs to be used for 'MLModel' training.+-- | A user-supplied name or description of the 'DataSource'.+cdsfrdsDataSourceName :: Lens' CreateDataSourceFromRDS (Maybe Text)+cdsfrdsDataSourceName = lens _cdsfrdsDataSourceName (\ s a -> s{_cdsfrdsDataSourceName = a});++-- | The compute statistics for a 'DataSource'. The statistics are generated+-- from the observation data referenced by a 'DataSource'. Amazon ML uses+-- the statistics internally during an 'MLModel' training. This parameter+-- must be set to 'true' if the ''DataSource'' needs to be used for+-- 'MLModel' training. cdsfrdsComputeStatistics :: Lens' CreateDataSourceFromRDS (Maybe Bool)-cdsfrdsComputeStatistics =-    lens _cdsfrdsComputeStatistics-        (\s a -> s { _cdsfrdsComputeStatistics = a })+cdsfrdsComputeStatistics = lens _cdsfrdsComputeStatistics (\ s a -> s{_cdsfrdsComputeStatistics = a}); --- | A user-supplied ID that uniquely identifies the 'DataSource'. Typically, an--- Amazon Resource Number (ARN) becomes the ID for a 'DataSource'.+-- | A user-supplied ID that uniquely identifies the 'DataSource'. Typically,+-- an Amazon Resource Number (ARN) becomes the ID for a 'DataSource'. cdsfrdsDataSourceId :: Lens' CreateDataSourceFromRDS Text-cdsfrdsDataSourceId =-    lens _cdsfrdsDataSourceId (\s a -> s { _cdsfrdsDataSourceId = a })---- | A user-supplied name or description of the 'DataSource'.-cdsfrdsDataSourceName :: Lens' CreateDataSourceFromRDS (Maybe Text)-cdsfrdsDataSourceName =-    lens _cdsfrdsDataSourceName (\s a -> s { _cdsfrdsDataSourceName = a })+cdsfrdsDataSourceId = lens _cdsfrdsDataSourceId (\ s a -> s{_cdsfrdsDataSourceId = a});  -- | The data specification of an Amazon RDS 'DataSource': ----- DatabaseInformation -   'DatabaseName ' - Name of the Amazon RDS database.  'InstanceIdentifier ' - Unique identifier for the Amazon RDS database instance.--------- DatabaseCredentials - AWS Identity and Access Management (IAM) credentials--- that are used to connect to the Amazon RDS database.------ ResourceRole - Role (DataPipelineDefaultResourceRole) assumed by an Amazon--- Elastic Compute Cloud (EC2) instance to carry out the copy task from Amazon--- RDS to Amazon S3. For more information, see <http://docs.aws.amazon.com/datapipeline/latest/DeveloperGuide/dp-iam-roles.html Role templates> for data pipelines.+-- -   DatabaseInformation - ----- ServiceRole - Role (DataPipelineDefaultRole) assumed by the AWS Data--- Pipeline service to monitor the progress of the copy task from Amazon RDS to--- Amazon Simple Storage Service (S3). For more information, see <http://docs.aws.amazon.com/datapipeline/latest/DeveloperGuide/dp-iam-roles.html Role templates>--- for data pipelines.+--     -   'DatabaseName ' - Name of the Amazon RDS database.+--     -   ' InstanceIdentifier ' - Unique identifier for the Amazon RDS+--         database instance.+-- -   DatabaseCredentials - AWS Identity and Access Management (IAM)+--     credentials that are used to connect to the Amazon RDS database. ----- SecurityInfo - Security information to use to access an Amazon RDS instance.--- You need to set up appropriate ingress rules for the security entity IDs--- provided to allow access to the Amazon RDS instance. Specify a ['SubnetId', 'SecurityGroupIds'] pair for a VPC-based Amazon RDS instance.+-- -   ResourceRole - Role (DataPipelineDefaultResourceRole) assumed by an+--     Amazon Elastic Compute Cloud (EC2) instance to carry out the copy+--     task from Amazon RDS to Amazon S3. For more information, see+--     <http://docs.aws.amazon.com/datapipeline/latest/DeveloperGuide/dp-iam-roles.html Role templates>+--     for data pipelines. ----- SelectSqlQuery - Query that is used to retrieve the observation data for the 'Datasource'.+-- -   ServiceRole - Role (DataPipelineDefaultRole) assumed by the AWS Data+--     Pipeline service to monitor the progress of the copy task from+--     Amazon RDS to Amazon Simple Storage Service (S3). For more+--     information, see+--     <http://docs.aws.amazon.com/datapipeline/latest/DeveloperGuide/dp-iam-roles.html Role templates>+--     for data pipelines. ----- S3StagingLocation - Amazon S3 location for staging RDS data. The data--- retrieved from Amazon RDS using 'SelectSqlQuery' is stored in this location.+-- -   SecurityInfo - Security information to use to access an Amazon RDS+--     instance. You need to set up appropriate ingress rules for the+--     security entity IDs provided to allow access to the Amazon RDS+--     instance. Specify a ['SubnetId', 'SecurityGroupIds'] pair for a+--     VPC-based Amazon RDS instance. ----- DataSchemaUri - Amazon S3 location of the 'DataSchema'.+-- -   SelectSqlQuery - Query that is used to retrieve the observation data+--     for the 'Datasource'. ----- DataSchema - A JSON string representing the schema. This is not required if 'DataSchemaUri' is specified.+-- -   S3StagingLocation - Amazon S3 location for staging RDS data. The+--     data retrieved from Amazon RDS using 'SelectSqlQuery' is stored in+--     this location. ----- DataRearrangement - A JSON string representing the splitting requirement of--- a 'Datasource'.+-- -   DataSchemaUri - Amazon S3 location of the 'DataSchema'. --+-- -   DataSchema - A JSON string representing the schema. This is not+--     required if 'DataSchemaUri' is specified. ----- Sample - ' "{\"randomSeed\":\"some-random-seed\",\"splitting\":{\"percentBegin\":10,\"percentEnd\":60}}"'+-- -   DataRearrangement - A JSON string representing the splitting+--     requirement of a 'Datasource'. --+--     Sample -+--     ' \"{\\\"randomSeed\\\":\\\"some-random-seed\\\", \\\"splitting\\\":{\\\"percentBegin\\\":10,\\\"percentEnd\\\":60}}\"' -- cdsfrdsRDSData :: Lens' CreateDataSourceFromRDS RDSDataSpec-cdsfrdsRDSData = lens _cdsfrdsRDSData (\s a -> s { _cdsfrdsRDSData = a })+cdsfrdsRDSData = lens _cdsfrdsRDSData (\ s a -> s{_cdsfrdsRDSData = a}); --- | The role that Amazon ML assumes on behalf of the user to create and activate--- a data pipeline in the user’s account and copy data (using the 'SelectSqlQuery') query from Amazon RDS to Amazon S3.------+-- | The role that Amazon ML assumes on behalf of the user to create and+-- activate a data pipeline in the user’s account and copy data (using the+-- 'SelectSqlQuery') query from Amazon RDS to Amazon S3. -- cdsfrdsRoleARN :: Lens' CreateDataSourceFromRDS Text-cdsfrdsRoleARN = lens _cdsfrdsRoleARN (\s a -> s { _cdsfrdsRoleARN = a })+cdsfrdsRoleARN = lens _cdsfrdsRoleARN (\ s a -> s{_cdsfrdsRoleARN = a}); -newtype CreateDataSourceFromRDSResponse = CreateDataSourceFromRDSResponse-    { _cdsfrdsrDataSourceId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CreateDataSourceFromRDS where+        type Sv CreateDataSourceFromRDS = MachineLearning+        type Rs CreateDataSourceFromRDS =+             CreateDataSourceFromRDSResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateDataSourceFromRDSResponse' <$>+                   (x .?> "DataSourceId") <*> (pure (fromEnum s))) --- | 'CreateDataSourceFromRDSResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdsfrdsrDataSourceId' @::@ 'Maybe' 'Text'----createDataSourceFromRDSResponse :: CreateDataSourceFromRDSResponse-createDataSourceFromRDSResponse = CreateDataSourceFromRDSResponse-    { _cdsfrdsrDataSourceId = Nothing-    }+instance ToHeaders CreateDataSourceFromRDS where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.CreateDataSourceFromRDS" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A user-supplied ID that uniquely identifies the datasource. This value should--- be identical to the value of the 'DataSourceID' in the request.-cdsfrdsrDataSourceId :: Lens' CreateDataSourceFromRDSResponse (Maybe Text)-cdsfrdsrDataSourceId =-    lens _cdsfrdsrDataSourceId (\s a -> s { _cdsfrdsrDataSourceId = a })+instance ToJSON CreateDataSourceFromRDS where+        toJSON CreateDataSourceFromRDS'{..}+          = object+              ["DataSourceName" .= _cdsfrdsDataSourceName,+               "ComputeStatistics" .= _cdsfrdsComputeStatistics,+               "DataSourceId" .= _cdsfrdsDataSourceId,+               "RDSData" .= _cdsfrdsRDSData,+               "RoleARN" .= _cdsfrdsRoleARN]  instance ToPath CreateDataSourceFromRDS where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateDataSourceFromRDS where-    toQuery = const mempty--instance ToHeaders CreateDataSourceFromRDS+        toQuery = const mempty -instance ToJSON CreateDataSourceFromRDS where-    toJSON CreateDataSourceFromRDS{..} = object-        [ "DataSourceId"      .= _cdsfrdsDataSourceId-        , "DataSourceName"    .= _cdsfrdsDataSourceName-        , "RDSData"           .= _cdsfrdsRDSData-        , "RoleARN"           .= _cdsfrdsRoleARN-        , "ComputeStatistics" .= _cdsfrdsComputeStatistics-        ]+-- | Represents the output of a CreateDataSourceFromRDS operation, and is an+-- acknowledgement that Amazon ML received the request.+--+-- The CreateDataSourceFromRDS operation is asynchronous. You can poll for+-- updates by using the GetBatchPrediction operation and checking the+-- 'Status' parameter. You can inspect the 'Message' when 'Status' shows up+-- as 'FAILED'. You can also check the progress of the copy operation by+-- going to the 'DataPipeline' console and looking up the pipeline using+-- the pipelineId from the describe call.+--+-- /See:/ 'createDataSourceFromRDSResponse' smart constructor.+data CreateDataSourceFromRDSResponse = CreateDataSourceFromRDSResponse'+    { _cdsfrdsrsDataSourceId :: !(Maybe Text)+    , _cdsfrdsrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateDataSourceFromRDS where-    type Sv CreateDataSourceFromRDS = MachineLearning-    type Rs CreateDataSourceFromRDS = CreateDataSourceFromRDSResponse+-- | 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:+--+-- * 'cdsfrdsrsDataSourceId'+--+-- * 'cdsfrdsrsStatus'+createDataSourceFromRDSResponse+    :: Int -- ^ 'cdsfrdsrsStatus'+    -> CreateDataSourceFromRDSResponse+createDataSourceFromRDSResponse pStatus_ =+    CreateDataSourceFromRDSResponse'+    { _cdsfrdsrsDataSourceId = Nothing+    , _cdsfrdsrsStatus = pStatus_+    } -    request  = post "CreateDataSourceFromRDS"-    response = jsonResponse+-- | 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}); -instance FromJSON CreateDataSourceFromRDSResponse where-    parseJSON = withObject "CreateDataSourceFromRDSResponse" $ \o -> CreateDataSourceFromRDSResponse-        <$> o .:? "DataSourceId"+-- | The response status code.+cdsfrdsrsStatus :: Lens' CreateDataSourceFromRDSResponse Int+cdsfrdsrsStatus = lens _cdsfrdsrsStatus (\ s a -> s{_cdsfrdsrsStatus = a});

@@ -1,214 +1,254 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.CreateDataSourceFromRedshift--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a 'DataSource' from <http://aws.amazon.com/redshift/ Amazon Redshift>. A 'DataSource' references data that--- can be used to perform either 'CreateMLModel', 'CreateEvaluation' or 'CreateBatchPrediction' operations.+-- Creates a 'DataSource' from+-- <http://aws.amazon.com/redshift/ Amazon Redshift>. A 'DataSource'+-- references data that can be used to perform either CreateMLModel,+-- CreateEvaluation or CreateBatchPrediction operations. ----- 'CreateDataSourceFromRedshift' is an asynchronous operation. In response to 'CreateDataSourceFromRedshift', Amazon Machine Learning (Amazon ML) immediately returns and sets the 'DataSource' status to 'PENDING'. After the 'DataSource' is created and ready for use, Amazon--- ML sets the 'Status' parameter to 'COMPLETED'. 'DataSource' in 'COMPLETED' or 'PENDING'--- status can only be used to perform 'CreateMLModel', 'CreateEvaluation', or 'CreateBatchPrediction' operations.+-- 'CreateDataSourceFromRedshift' is an asynchronous operation. In response+-- to 'CreateDataSourceFromRedshift', Amazon Machine Learning (Amazon ML)+-- immediately returns and sets the 'DataSource' status to 'PENDING'. After+-- the 'DataSource' is created and ready for use, Amazon ML sets the+-- 'Status' parameter to 'COMPLETED'. 'DataSource' in 'COMPLETED' or+-- 'PENDING' status can only be used to perform CreateMLModel,+-- CreateEvaluation, or CreateBatchPrediction operations. ----- If Amazon ML cannot accept the input source, it sets the 'Status' parameter--- to 'FAILED' and includes an error message in the 'Message' attribute of the 'GetDataSource' operation response.+-- If Amazon ML cannot accept the input source, it sets the 'Status'+-- parameter to 'FAILED' and includes an error message in the 'Message'+-- attribute of the GetDataSource operation response. ----- The observations should exist in the database hosted on an Amazon Redshift--- cluster and should be specified by a 'SelectSqlQuery'. Amazon ML executes <http://docs.aws.amazon.com/redshift/latest/dg/t_Unloading_tables.html Unload> command in Amazon Redshift to transfer the result set of 'SelectSqlQuery'--- to 'S3StagingLocation.'+-- The observations should exist in the database hosted on an Amazon+-- Redshift cluster and should be specified by a 'SelectSqlQuery'. Amazon+-- ML executes+-- <http://docs.aws.amazon.com/redshift/latest/dg/t_Unloading_tables.html Unload>+-- command in Amazon Redshift to transfer the result set of+-- 'SelectSqlQuery' to 'S3StagingLocation.' ----- After the 'DataSource' is created, it's ready for use in evaluations and batch--- predictions. If you plan to use the 'DataSource' to train an 'MLModel', the 'DataSource' requires another item -- a recipe. A recipe describes the observation--- variables that participate in training an 'MLModel'. A recipe describes how--- each input variable will be used in training. Will the variable be included--- or excluded from training? Will the variable be manipulated, for example,--- combined with another variable or split apart into word combinations? The--- recipe provides answers to these questions. For more information, see the--- Amazon Machine Learning Developer Guide.+-- After the 'DataSource' is created, it\'s ready for use in evaluations+-- and batch predictions. If you plan to use the 'DataSource' to train an+-- 'MLModel', the 'DataSource' requires another item -- a recipe. A recipe+-- describes the observation variables that participate in training an+-- 'MLModel'. A recipe describes how each input variable will be used in+-- training. Will the variable be included or excluded from training? Will+-- the variable be manipulated, for example, combined with another variable+-- or split apart into word combinations? The recipe provides answers to+-- these questions. For more information, see the Amazon Machine Learning+-- Developer Guide. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateDataSourceFromRedshift.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateDataSourceFromRedshift.html AWS API Reference> for CreateDataSourceFromRedshift. module Network.AWS.MachineLearning.CreateDataSourceFromRedshift     (-    -- * Request-      CreateDataSourceFromRedshift-    -- ** Request constructor-    , createDataSourceFromRedshift-    -- ** Request lenses+    -- * Creating a Request+      createDataSourceFromRedshift+    , CreateDataSourceFromRedshift+    -- * Request Lenses+    , cdsfrDataSourceName     , cdsfrComputeStatistics     , cdsfrDataSourceId-    , cdsfrDataSourceName     , cdsfrDataSpec     , cdsfrRoleARN -    -- * Response-    , CreateDataSourceFromRedshiftResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createDataSourceFromRedshiftResponse-    -- ** Response lenses-    , cdsfrrDataSourceId+    , CreateDataSourceFromRedshiftResponse+    -- * Response Lenses+    , cdsfrrsDataSourceId+    , cdsfrrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateDataSourceFromRedshift = CreateDataSourceFromRedshift-    { _cdsfrComputeStatistics :: Maybe Bool-    , _cdsfrDataSourceId      :: Text-    , _cdsfrDataSourceName    :: Maybe Text-    , _cdsfrDataSpec          :: RedshiftDataSpec-    , _cdsfrRoleARN           :: Text-    } deriving (Eq, Read, Show)+-- | /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) --- | 'CreateDataSourceFromRedshift' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateDataSourceFromRedshift' with the minimum fields required to make a request. ----- * 'cdsfrComputeStatistics' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdsfrDataSourceId' @::@ 'Text'+-- * 'cdsfrDataSourceName' ----- * 'cdsfrDataSourceName' @::@ 'Maybe' 'Text'+-- * 'cdsfrComputeStatistics' ----- * 'cdsfrDataSpec' @::@ 'RedshiftDataSpec'+-- * 'cdsfrDataSourceId' ----- * 'cdsfrRoleARN' @::@ 'Text'+-- * 'cdsfrDataSpec' ---createDataSourceFromRedshift :: Text -- ^ 'cdsfrDataSourceId'-                             -> RedshiftDataSpec -- ^ 'cdsfrDataSpec'-                             -> Text -- ^ 'cdsfrRoleARN'-                             -> CreateDataSourceFromRedshift-createDataSourceFromRedshift p1 p2 p3 = CreateDataSourceFromRedshift-    { _cdsfrDataSourceId      = p1-    , _cdsfrDataSpec          = p2-    , _cdsfrRoleARN           = p3-    , _cdsfrDataSourceName    = Nothing+-- * 'cdsfrRoleARN'+createDataSourceFromRedshift+    :: Text -- ^ 'cdsfrDataSourceId'+    -> RedshiftDataSpec -- ^ 'cdsfrDataSpec'+    -> Text -- ^ 'cdsfrRoleARN'+    -> CreateDataSourceFromRedshift+createDataSourceFromRedshift pDataSourceId_ pDataSpec_ pRoleARN_ =+    CreateDataSourceFromRedshift'+    { _cdsfrDataSourceName = Nothing     , _cdsfrComputeStatistics = Nothing+    , _cdsfrDataSourceId = pDataSourceId_+    , _cdsfrDataSpec = pDataSpec_+    , _cdsfrRoleARN = pRoleARN_     } --- | The compute statistics for a 'DataSource'. The statistics are generated from--- the observation data referenced by a 'DataSource'. Amazon ML uses the--- statistics internally during 'MLModel' training. This parameter must be set to 'true' if the ''DataSource'' needs to be used for 'MLModel' training+-- | A user-supplied name or description of the 'DataSource'.+cdsfrDataSourceName :: Lens' CreateDataSourceFromRedshift (Maybe Text)+cdsfrDataSourceName = lens _cdsfrDataSourceName (\ s a -> s{_cdsfrDataSourceName = a});++-- | The compute statistics for a 'DataSource'. The statistics are generated+-- from the observation data referenced by a 'DataSource'. Amazon ML uses+-- the statistics internally during 'MLModel' training. This parameter must+-- be set to 'true' if the ''DataSource'' needs to be used for 'MLModel'+-- training cdsfrComputeStatistics :: Lens' CreateDataSourceFromRedshift (Maybe Bool)-cdsfrComputeStatistics =-    lens _cdsfrComputeStatistics (\s a -> s { _cdsfrComputeStatistics = a })+cdsfrComputeStatistics = lens _cdsfrComputeStatistics (\ s a -> s{_cdsfrComputeStatistics = a});  -- | A user-supplied ID that uniquely identifies the 'DataSource'. cdsfrDataSourceId :: Lens' CreateDataSourceFromRedshift Text-cdsfrDataSourceId =-    lens _cdsfrDataSourceId (\s a -> s { _cdsfrDataSourceId = a })---- | A user-supplied name or description of the 'DataSource'.-cdsfrDataSourceName :: Lens' CreateDataSourceFromRedshift (Maybe Text)-cdsfrDataSourceName =-    lens _cdsfrDataSourceName (\s a -> s { _cdsfrDataSourceName = a })+cdsfrDataSourceId = lens _cdsfrDataSourceId (\ s a -> s{_cdsfrDataSourceId = a});  -- | The data specification of an Amazon Redshift 'DataSource': ----- DatabaseInformation -   'DatabaseName ' - Name of the Amazon Redshift--- database.   ' ClusterIdentifier ' - Unique ID for the Amazon Redshift cluster.------ DatabaseCredentials - AWS Identity abd Access Management (IAM) credentials--- that are used to connect to the Amazon Redshift database.------ SelectSqlQuery - Query that is used to retrieve the observation data for the 'Datasource'.+-- -   DatabaseInformation - ----- S3StagingLocation - Amazon Simple Storage Service (Amazon S3) location for--- staging Amazon Redshift data. The data retrieved from Amazon Relational--- Database Service (Amazon RDS) using 'SelectSqlQuery' is stored in this location.+--     -   'DatabaseName ' - Name of the Amazon Redshift database.+--     -   ' ClusterIdentifier ' - Unique ID for the Amazon Redshift+--         cluster.+-- -   DatabaseCredentials - AWS Identity abd Access Management (IAM)+--     credentials that are used to connect to the Amazon Redshift+--     database. ----- DataSchemaUri - Amazon S3 location of the 'DataSchema'.+-- -   SelectSqlQuery - Query that is used to retrieve the observation data+--     for the 'Datasource'. ----- DataSchema - A JSON string representing the schema. This is not required if 'DataSchemaUri' is specified.+-- -   S3StagingLocation - Amazon Simple Storage Service (Amazon S3)+--     location for staging Amazon Redshift data. The data retrieved from+--     Amazon Relational Database Service (Amazon RDS) using+--     'SelectSqlQuery' is stored in this location. ----- DataRearrangement - A JSON string representing the splitting requirement of--- a 'Datasource'.+-- -   DataSchemaUri - Amazon S3 location of the 'DataSchema'. --+-- -   DataSchema - A JSON string representing the schema. This is not+--     required if 'DataSchemaUri' is specified. ----- Sample - ' "{\"randomSeed\":\"some-random-seed\",\"splitting\":{\"percentBegin\":10,\"percentEnd\":60}}"'+-- -   DataRearrangement - A JSON string representing the splitting+--     requirement of a 'Datasource'. --+--     Sample -+--     ' \"{\\\"randomSeed\\\":\\\"some-random-seed\\\", \\\"splitting\\\":{\\\"percentBegin\\\":10,\\\"percentEnd\\\":60}}\"' -- cdsfrDataSpec :: Lens' CreateDataSourceFromRedshift RedshiftDataSpec-cdsfrDataSpec = lens _cdsfrDataSpec (\s a -> s { _cdsfrDataSpec = a })+cdsfrDataSpec = lens _cdsfrDataSpec (\ s a -> s{_cdsfrDataSpec = a}); --- | A fully specified role Amazon Resource Name (ARN). Amazon ML assumes the role--- on behalf of the user to create the following:------ A security group to allow Amazon ML to execute the 'SelectSqlQuery' query on--- an Amazon Redshift cluster+-- | A fully specified role Amazon Resource Name (ARN). Amazon ML assumes the+-- role on behalf of the user to create the following: ----- An Amazon S3 bucket policy to grant Amazon ML read/write permissions on the 'S3StagingLocation'+-- -   A security group to allow Amazon ML to execute the 'SelectSqlQuery'+--     query on an Amazon Redshift cluster --+-- -   An Amazon S3 bucket policy to grant Amazon ML read\/write+--     permissions on the 'S3StagingLocation' -- cdsfrRoleARN :: Lens' CreateDataSourceFromRedshift Text-cdsfrRoleARN = lens _cdsfrRoleARN (\s a -> s { _cdsfrRoleARN = a })+cdsfrRoleARN = lens _cdsfrRoleARN (\ s a -> s{_cdsfrRoleARN = a}); -newtype CreateDataSourceFromRedshiftResponse = CreateDataSourceFromRedshiftResponse-    { _cdsfrrDataSourceId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CreateDataSourceFromRedshift+         where+        type Sv CreateDataSourceFromRedshift =+             MachineLearning+        type Rs CreateDataSourceFromRedshift =+             CreateDataSourceFromRedshiftResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateDataSourceFromRedshiftResponse' <$>+                   (x .?> "DataSourceId") <*> (pure (fromEnum s))) --- | 'CreateDataSourceFromRedshiftResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdsfrrDataSourceId' @::@ 'Maybe' 'Text'----createDataSourceFromRedshiftResponse :: CreateDataSourceFromRedshiftResponse-createDataSourceFromRedshiftResponse = CreateDataSourceFromRedshiftResponse-    { _cdsfrrDataSourceId = Nothing-    }+instance ToHeaders CreateDataSourceFromRedshift where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.CreateDataSourceFromRedshift" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A user-supplied ID that uniquely identifies the datasource. This value should--- be identical to the value of the 'DataSourceID' in the request.-cdsfrrDataSourceId :: Lens' CreateDataSourceFromRedshiftResponse (Maybe Text)-cdsfrrDataSourceId =-    lens _cdsfrrDataSourceId (\s a -> s { _cdsfrrDataSourceId = a })+instance ToJSON CreateDataSourceFromRedshift where+        toJSON CreateDataSourceFromRedshift'{..}+          = object+              ["DataSourceName" .= _cdsfrDataSourceName,+               "ComputeStatistics" .= _cdsfrComputeStatistics,+               "DataSourceId" .= _cdsfrDataSourceId,+               "DataSpec" .= _cdsfrDataSpec,+               "RoleARN" .= _cdsfrRoleARN]  instance ToPath CreateDataSourceFromRedshift where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateDataSourceFromRedshift where-    toQuery = const mempty--instance ToHeaders CreateDataSourceFromRedshift+        toQuery = const mempty -instance ToJSON CreateDataSourceFromRedshift where-    toJSON CreateDataSourceFromRedshift{..} = object-        [ "DataSourceId"      .= _cdsfrDataSourceId-        , "DataSourceName"    .= _cdsfrDataSourceName-        , "DataSpec"          .= _cdsfrDataSpec-        , "RoleARN"           .= _cdsfrRoleARN-        , "ComputeStatistics" .= _cdsfrComputeStatistics-        ]+-- | Represents the output of a CreateDataSourceFromRedshift operation, and+-- is an acknowledgement that Amazon ML received the request.+--+-- The CreateDataSourceFromRedshift operation is asynchronous. You can poll+-- for updates by using the GetBatchPrediction operation and checking the+-- 'Status' parameter.+--+-- /See:/ 'createDataSourceFromRedshiftResponse' smart constructor.+data CreateDataSourceFromRedshiftResponse = CreateDataSourceFromRedshiftResponse'+    { _cdsfrrsDataSourceId :: !(Maybe Text)+    , _cdsfrrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateDataSourceFromRedshift where-    type Sv CreateDataSourceFromRedshift = MachineLearning-    type Rs CreateDataSourceFromRedshift = CreateDataSourceFromRedshiftResponse+-- | 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:+--+-- * 'cdsfrrsDataSourceId'+--+-- * 'cdsfrrsStatus'+createDataSourceFromRedshiftResponse+    :: Int -- ^ 'cdsfrrsStatus'+    -> CreateDataSourceFromRedshiftResponse+createDataSourceFromRedshiftResponse pStatus_ =+    CreateDataSourceFromRedshiftResponse'+    { _cdsfrrsDataSourceId = Nothing+    , _cdsfrrsStatus = pStatus_+    } -    request  = post "CreateDataSourceFromRedshift"-    response = jsonResponse+-- | 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}); -instance FromJSON CreateDataSourceFromRedshiftResponse where-    parseJSON = withObject "CreateDataSourceFromRedshiftResponse" $ \o -> CreateDataSourceFromRedshiftResponse-        <$> o .:? "DataSourceId"+-- | The response status code.+cdsfrrsStatus :: Lens' CreateDataSourceFromRedshiftResponse Int+cdsfrrsStatus = lens _cdsfrrsStatus (\ s a -> s{_cdsfrrsStatus = a});

@@ -1,190 +1,219 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.CreateDataSourceFromS--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a 'DataSource' object. A 'DataSource' references data that can be used to--- perform 'CreateMLModel', 'CreateEvaluation', or 'CreateBatchPrediction' operations.+-- Creates a 'DataSource' object. A 'DataSource' references data that can+-- be used to perform CreateMLModel, CreateEvaluation, or+-- CreateBatchPrediction operations. ----- 'CreateDataSourceFromS3' is an asynchronous operation. In response to 'CreateDataSourceFromS3', Amazon Machine Learning (Amazon ML) immediately returns and sets the 'DataSource' status to 'PENDING'. After the 'DataSource' is created and ready for use, Amazon--- ML sets the 'Status' parameter to 'COMPLETED'. 'DataSource' in 'COMPLETED' or 'PENDING'--- status can only be used to perform 'CreateMLModel', 'CreateEvaluation' or 'CreateBatchPrediction' operations.+-- 'CreateDataSourceFromS3' is an asynchronous operation. In response to+-- 'CreateDataSourceFromS3', Amazon Machine Learning (Amazon ML)+-- immediately returns and sets the 'DataSource' status to 'PENDING'. After+-- the 'DataSource' is created and ready for use, Amazon ML sets the+-- 'Status' parameter to 'COMPLETED'. 'DataSource' in 'COMPLETED' or+-- 'PENDING' status can only be used to perform CreateMLModel,+-- CreateEvaluation or CreateBatchPrediction operations. ----- If Amazon ML cannot accept the input source, it sets the 'Status' parameter--- to 'FAILED' and includes an error message in the 'Message' attribute of the 'GetDataSource' operation response.+-- If Amazon ML cannot accept the input source, it sets the 'Status'+-- parameter to 'FAILED' and includes an error message in the 'Message'+-- attribute of the GetDataSource operation response. ----- The observation data used in a 'DataSource' should be ready to use; that is,--- it should have a consistent structure, and missing data values should be kept--- to a minimum. The observation data must reside in one or more CSV files in an--- Amazon Simple Storage Service (Amazon S3) bucket, along with a schema that--- describes the data items by name and type. The same schema must be used for--- all of the data files referenced by the 'DataSource'.+-- The observation data used in a 'DataSource' should be ready to use; that+-- is, it should have a consistent structure, and missing data values+-- should be kept to a minimum. The observation data must reside in one or+-- more CSV files in an Amazon Simple Storage Service (Amazon S3) bucket,+-- along with a schema that describes the data items by name and type. The+-- same schema must be used for all of the data files referenced by the+-- 'DataSource'. ----- After the 'DataSource' has been created, it's ready to use in evaluations and--- batch predictions. If you plan to use the 'DataSource' to train an 'MLModel', the 'DataSource' requires another item: a recipe. A recipe describes the--- observation variables that participate in training an 'MLModel'. A recipe--- describes how each input variable will be used in training. Will the variable--- be included or excluded from training? Will the variable be manipulated, for--- example, combined with another variable, or split apart into word--- combinations? The recipe provides answers to these questions. For more--- information, see the <http://docs.aws.amazon.com/machine-learning/latest/dg Amazon Machine Learning Developer Guide>.+-- After the 'DataSource' has been created, it\'s ready to use in+-- evaluations and batch predictions. If you plan to use the 'DataSource'+-- to train an 'MLModel', the 'DataSource' requires another item: a recipe.+-- A recipe describes the observation variables that participate in+-- training an 'MLModel'. A recipe describes how each input variable will+-- be used in training. Will the variable be included or excluded from+-- training? Will the variable be manipulated, for example, combined with+-- another variable, or split apart into word combinations? The recipe+-- provides answers to these questions. For more information, see the+-- <http://docs.aws.amazon.com/machine-learning/latest/dg Amazon Machine Learning Developer Guide>. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateDataSourceFromS3.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateDataSourceFromS.html AWS API Reference> for CreateDataSourceFromS. module Network.AWS.MachineLearning.CreateDataSourceFromS     (-    -- * Request-      CreateDataSourceFromS3-    -- ** Request constructor-    , createDataSourceFromS3-    -- ** Request lenses+    -- * Creating a Request+      createDataSourceFromS+    , CreateDataSourceFromS+    -- * Request Lenses+    , cdsfsDataSourceName     , cdsfsComputeStatistics     , cdsfsDataSourceId-    , cdsfsDataSourceName     , cdsfsDataSpec -    -- * Response-    , CreateDataSourceFromS3Response-    -- ** Response constructor-    , createDataSourceFromS3Response-    -- ** Response lenses-    , cdsfsrDataSourceId+    -- * Destructuring the Response+    , createDataSourceFromSResponse+    , CreateDataSourceFromSResponse+    -- * Response Lenses+    , cdsfsrsDataSourceId+    , cdsfsrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateDataSourceFromS3 = CreateDataSourceFromS3-    { _cdsfsComputeStatistics :: Maybe Bool-    , _cdsfsDataSourceId      :: Text-    , _cdsfsDataSourceName    :: Maybe Text-    , _cdsfsDataSpec          :: S3DataSpec-    } deriving (Eq, Read, Show)+-- | /See:/ 'createDataSourceFromS' smart constructor.+data CreateDataSourceFromS = CreateDataSourceFromS'+    { _cdsfsDataSourceName    :: !(Maybe Text)+    , _cdsfsComputeStatistics :: !(Maybe Bool)+    , _cdsfsDataSourceId      :: !Text+    , _cdsfsDataSpec          :: !S3DataSpec+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateDataSourceFromS3' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateDataSourceFromS' with the minimum fields required to make a request. ----- * 'cdsfsComputeStatistics' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdsfsDataSourceId' @::@ 'Text'+-- * 'cdsfsDataSourceName' ----- * 'cdsfsDataSourceName' @::@ 'Maybe' 'Text'+-- * 'cdsfsComputeStatistics' ----- * 'cdsfsDataSpec' @::@ 'S3DataSpec'+-- * 'cdsfsDataSourceId' ---createDataSourceFromS3 :: Text -- ^ 'cdsfsDataSourceId'-                       -> S3DataSpec -- ^ 'cdsfsDataSpec'-                       -> CreateDataSourceFromS3-createDataSourceFromS3 p1 p2 = CreateDataSourceFromS3-    { _cdsfsDataSourceId      = p1-    , _cdsfsDataSpec          = p2-    , _cdsfsDataSourceName    = Nothing+-- * 'cdsfsDataSpec'+createDataSourceFromS+    :: Text -- ^ 'cdsfsDataSourceId'+    -> S3DataSpec -- ^ 'cdsfsDataSpec'+    -> CreateDataSourceFromS+createDataSourceFromS pDataSourceId_ pDataSpec_ =+    CreateDataSourceFromS'+    { _cdsfsDataSourceName = Nothing     , _cdsfsComputeStatistics = Nothing+    , _cdsfsDataSourceId = pDataSourceId_+    , _cdsfsDataSpec = pDataSpec_     } --- | The compute statistics for a 'DataSource'. The statistics are generated from--- the observation data referenced by a 'DataSource'. Amazon ML uses the--- statistics internally during an 'MLModel' training. This parameter must be set--- to 'true' if the ''DataSource'' needs to be used for 'MLModel' training-cdsfsComputeStatistics :: Lens' CreateDataSourceFromS3 (Maybe Bool)-cdsfsComputeStatistics =-    lens _cdsfsComputeStatistics (\s a -> s { _cdsfsComputeStatistics = a })+-- | A user-supplied name or description of the 'DataSource'.+cdsfsDataSourceName :: Lens' CreateDataSourceFromS (Maybe Text)+cdsfsDataSourceName = lens _cdsfsDataSourceName (\ s a -> s{_cdsfsDataSourceName = a}); --- | A user-supplied identifier that uniquely identifies the 'DataSource'.-cdsfsDataSourceId :: Lens' CreateDataSourceFromS3 Text-cdsfsDataSourceId =-    lens _cdsfsDataSourceId (\s a -> s { _cdsfsDataSourceId = a })+-- | The compute statistics for a 'DataSource'. The statistics are generated+-- from the observation data referenced by a 'DataSource'. Amazon ML uses+-- the statistics internally during an 'MLModel' training. This parameter+-- must be set to 'true' if the ''DataSource'' needs to be used for+-- 'MLModel' training+cdsfsComputeStatistics :: Lens' CreateDataSourceFromS (Maybe Bool)+cdsfsComputeStatistics = lens _cdsfsComputeStatistics (\ s a -> s{_cdsfsComputeStatistics = a}); --- | A user-supplied name or description of the 'DataSource'.-cdsfsDataSourceName :: Lens' CreateDataSourceFromS3 (Maybe Text)-cdsfsDataSourceName =-    lens _cdsfsDataSourceName (\s a -> s { _cdsfsDataSourceName = a })+-- | A user-supplied identifier that uniquely identifies the 'DataSource'.+cdsfsDataSourceId :: Lens' CreateDataSourceFromS Text+cdsfsDataSourceId = lens _cdsfsDataSourceId (\ s a -> s{_cdsfsDataSourceId = a});  -- | The data specification of a 'DataSource': ----- DataLocationS3 - Amazon Simple Storage Service (Amazon S3) location of the--- observation data.------ DataSchemaLocationS3 - Amazon S3 location of the 'DataSchema'.------ DataSchema - A JSON string representing the schema. This is not required if 'DataSchemaUri' is specified.+-- -   DataLocationS3 - Amazon Simple Storage Service (Amazon S3) location+--     of the observation data. ----- DataRearrangement - A JSON string representing the splitting requirement of--- a 'Datasource'.+-- -   DataSchemaLocationS3 - Amazon S3 location of the 'DataSchema'. --+-- -   DataSchema - A JSON string representing the schema. This is not+--     required if 'DataSchemaUri' is specified. ----- Sample - ' "{\"randomSeed\":\"some-random-seed\",\"splitting\":{\"percentBegin\":10,\"percentEnd\":60}}"'+-- -   DataRearrangement - A JSON string representing the splitting+--     requirement of a 'Datasource'. --+--     Sample -+--     ' \"{\\\"randomSeed\\\":\\\"some-random-seed\\\", \\\"splitting\\\":{\\\"percentBegin\\\":10,\\\"percentEnd\\\":60}}\"' ---cdsfsDataSpec :: Lens' CreateDataSourceFromS3 S3DataSpec-cdsfsDataSpec = lens _cdsfsDataSpec (\s a -> s { _cdsfsDataSpec = a })--newtype CreateDataSourceFromS3Response = CreateDataSourceFromS3Response-    { _cdsfsrDataSourceId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+cdsfsDataSpec :: Lens' CreateDataSourceFromS S3DataSpec+cdsfsDataSpec = lens _cdsfsDataSpec (\ s a -> s{_cdsfsDataSpec = a}); --- | 'CreateDataSourceFromS3Response' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdsfsrDataSourceId' @::@ 'Maybe' 'Text'----createDataSourceFromS3Response :: CreateDataSourceFromS3Response-createDataSourceFromS3Response = CreateDataSourceFromS3Response-    { _cdsfsrDataSourceId = Nothing-    }+instance AWSRequest CreateDataSourceFromS where+        type Sv CreateDataSourceFromS = MachineLearning+        type Rs CreateDataSourceFromS =+             CreateDataSourceFromSResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateDataSourceFromSResponse' <$>+                   (x .?> "DataSourceId") <*> (pure (fromEnum s))) --- | A user-supplied ID that uniquely identifies the datasource. This value should--- be identical to the value of the 'DataSourceID' in the request.-cdsfsrDataSourceId :: Lens' CreateDataSourceFromS3Response (Maybe Text)-cdsfsrDataSourceId =-    lens _cdsfsrDataSourceId (\s a -> s { _cdsfsrDataSourceId = a })+instance ToHeaders CreateDataSourceFromS where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.CreateDataSourceFromS" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -instance ToPath CreateDataSourceFromS3 where-    toPath = const "/"+instance ToJSON CreateDataSourceFromS where+        toJSON CreateDataSourceFromS'{..}+          = object+              ["DataSourceName" .= _cdsfsDataSourceName,+               "ComputeStatistics" .= _cdsfsComputeStatistics,+               "DataSourceId" .= _cdsfsDataSourceId,+               "DataSpec" .= _cdsfsDataSpec] -instance ToQuery CreateDataSourceFromS3 where-    toQuery = const mempty+instance ToPath CreateDataSourceFromS where+        toPath = const "/" -instance ToHeaders CreateDataSourceFromS3+instance ToQuery CreateDataSourceFromS where+        toQuery = const mempty -instance ToJSON CreateDataSourceFromS3 where-    toJSON CreateDataSourceFromS3{..} = object-        [ "DataSourceId"      .= _cdsfsDataSourceId-        , "DataSourceName"    .= _cdsfsDataSourceName-        , "DataSpec"          .= _cdsfsDataSpec-        , "ComputeStatistics" .= _cdsfsComputeStatistics-        ]+-- | Represents the output of a CreateDataSourceFromS3 operation, and is an+-- acknowledgement that Amazon ML received the request.+--+-- The CreateDataSourceFromS3 operation is asynchronous. You can poll for+-- updates by using the GetBatchPrediction operation and checking the+-- 'Status' parameter.+--+-- /See:/ 'createDataSourceFromSResponse' smart constructor.+data CreateDataSourceFromSResponse = CreateDataSourceFromSResponse'+    { _cdsfsrsDataSourceId :: !(Maybe Text)+    , _cdsfsrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateDataSourceFromS3 where-    type Sv CreateDataSourceFromS3 = MachineLearning-    type Rs CreateDataSourceFromS3 = CreateDataSourceFromS3Response+-- | Creates a value of 'CreateDataSourceFromSResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdsfsrsDataSourceId'+--+-- * 'cdsfsrsStatus'+createDataSourceFromSResponse+    :: Int -- ^ 'cdsfsrsStatus'+    -> CreateDataSourceFromSResponse+createDataSourceFromSResponse pStatus_ =+    CreateDataSourceFromSResponse'+    { _cdsfsrsDataSourceId = Nothing+    , _cdsfsrsStatus = pStatus_+    } -    request  = post "CreateDataSourceFromS3"-    response = jsonResponse+-- | 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' CreateDataSourceFromSResponse (Maybe Text)+cdsfsrsDataSourceId = lens _cdsfsrsDataSourceId (\ s a -> s{_cdsfsrsDataSourceId = a}); -instance FromJSON CreateDataSourceFromS3Response where-    parseJSON = withObject "CreateDataSourceFromS3Response" $ \o -> CreateDataSourceFromS3Response-        <$> o .:? "DataSourceId"+-- | The response status code.+cdsfsrsStatus :: Lens' CreateDataSourceFromSResponse Int+cdsfsrsStatus = lens _cdsfsrsStatus (\ s a -> s{_cdsfsrsStatus = a});

@@ -1,163 +1,189 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.CreateEvaluation--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new 'Evaluation' of an 'MLModel'. An 'MLModel' is evaluated on a set of--- observations associated to a 'DataSource'. Like a 'DataSource' for an 'MLModel',--- the 'DataSource' for an 'Evaluation' contains values for the Target Variable. The 'Evaluation' compares the predicted result for each observation to the actual--- outcome and provides a summary so that you know how effective the 'MLModel'--- functions on the test data. Evaluation generates a relevant performance--- metric such as BinaryAUC, RegressionRMSE or MulticlassAvgFScore based on the--- corresponding 'MLModelType': 'BINARY', 'REGRESSION' or 'MULTICLASS'.+-- Creates a new 'Evaluation' of an 'MLModel'. An 'MLModel' is evaluated on+-- a set of observations associated to a 'DataSource'. Like a 'DataSource'+-- for an 'MLModel', the 'DataSource' for an 'Evaluation' contains values+-- for the Target Variable. The 'Evaluation' compares the predicted result+-- for each observation to the actual outcome and provides a summary so+-- that you know how effective the 'MLModel' functions on the test data.+-- Evaluation generates a relevant performance metric such as BinaryAUC,+-- RegressionRMSE or MulticlassAvgFScore based on the corresponding+-- 'MLModelType': 'BINARY', 'REGRESSION' or 'MULTICLASS'. ----- 'CreateEvaluation' is an asynchronous operation. In response to 'CreateEvaluation', Amazon Machine Learning (Amazon ML) immediately returns and sets the--- evaluation status to 'PENDING'. After the 'Evaluation' is created and ready for--- use, Amazon ML sets the status to 'COMPLETED'.+-- 'CreateEvaluation' is an asynchronous operation. In response to+-- 'CreateEvaluation', Amazon Machine Learning (Amazon ML) immediately+-- returns and sets the evaluation status to 'PENDING'. After the+-- 'Evaluation' is created and ready for use, Amazon ML sets the status to+-- 'COMPLETED'. ----- You can use the 'GetEvaluation' operation to check progress of the evaluation--- during the creation operation.+-- You can use the GetEvaluation operation to check progress of the+-- evaluation during the creation operation. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateEvaluation.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateEvaluation.html AWS API Reference> for CreateEvaluation. module Network.AWS.MachineLearning.CreateEvaluation     (-    -- * Request-      CreateEvaluation-    -- ** Request constructor-    , createEvaluation-    -- ** Request lenses-    , ceEvaluationDataSourceId-    , ceEvaluationId+    -- * Creating a Request+      createEvaluation+    , CreateEvaluation+    -- * Request Lenses     , ceEvaluationName+    , ceEvaluationId     , ceMLModelId+    , ceEvaluationDataSourceId -    -- * Response-    , CreateEvaluationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createEvaluationResponse-    -- ** Response lenses-    , cerEvaluationId+    , CreateEvaluationResponse+    -- * Response Lenses+    , cersEvaluationId+    , cersStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateEvaluation = CreateEvaluation-    { _ceEvaluationDataSourceId :: Text-    , _ceEvaluationId           :: Text-    , _ceEvaluationName         :: Maybe Text-    , _ceMLModelId              :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'createEvaluation' smart constructor.+data CreateEvaluation = CreateEvaluation'+    { _ceEvaluationName         :: !(Maybe Text)+    , _ceEvaluationId           :: !Text+    , _ceMLModelId              :: !Text+    , _ceEvaluationDataSourceId :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateEvaluation' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateEvaluation' with the minimum fields required to make a request. ----- * 'ceEvaluationDataSourceId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ceEvaluationId' @::@ 'Text'+-- * 'ceEvaluationName' ----- * 'ceEvaluationName' @::@ 'Maybe' 'Text'+-- * 'ceEvaluationId' ----- * 'ceMLModelId' @::@ 'Text'+-- * 'ceMLModelId' ---createEvaluation :: Text -- ^ 'ceEvaluationId'-                 -> Text -- ^ 'ceMLModelId'-                 -> Text -- ^ 'ceEvaluationDataSourceId'-                 -> CreateEvaluation-createEvaluation p1 p2 p3 = CreateEvaluation-    { _ceEvaluationId           = p1-    , _ceMLModelId              = p2-    , _ceEvaluationDataSourceId = p3-    , _ceEvaluationName         = Nothing+-- * 'ceEvaluationDataSourceId'+createEvaluation+    :: Text -- ^ 'ceEvaluationId'+    -> Text -- ^ 'ceMLModelId'+    -> Text -- ^ 'ceEvaluationDataSourceId'+    -> CreateEvaluation+createEvaluation pEvaluationId_ pMLModelId_ pEvaluationDataSourceId_ =+    CreateEvaluation'+    { _ceEvaluationName = Nothing+    , _ceEvaluationId = pEvaluationId_+    , _ceMLModelId = pMLModelId_+    , _ceEvaluationDataSourceId = pEvaluationDataSourceId_     } --- | The ID of the 'DataSource' for the evaluation. The schema of the 'DataSource'--- must match the schema used to create the 'MLModel'.-ceEvaluationDataSourceId :: Lens' CreateEvaluation Text-ceEvaluationDataSourceId =-    lens _ceEvaluationDataSourceId-        (\s a -> s { _ceEvaluationDataSourceId = a })+-- | A user-supplied name or description of the 'Evaluation'.+ceEvaluationName :: Lens' CreateEvaluation (Maybe Text)+ceEvaluationName = lens _ceEvaluationName (\ s a -> s{_ceEvaluationName = a});  -- | A user-supplied ID that uniquely identifies the 'Evaluation'. ceEvaluationId :: Lens' CreateEvaluation Text-ceEvaluationId = lens _ceEvaluationId (\s a -> s { _ceEvaluationId = a })---- | A user-supplied name or description of the 'Evaluation'.-ceEvaluationName :: Lens' CreateEvaluation (Maybe Text)-ceEvaluationName = lens _ceEvaluationName (\s a -> s { _ceEvaluationName = a })+ceEvaluationId = lens _ceEvaluationId (\ s a -> s{_ceEvaluationId = a});  -- | The ID of the 'MLModel' to evaluate. ----- The schema used in creating the 'MLModel' must match the schema of the 'DataSource' used in the 'Evaluation'.+-- The schema used in creating the 'MLModel' must match the schema of the+-- 'DataSource' used in the 'Evaluation'. ceMLModelId :: Lens' CreateEvaluation Text-ceMLModelId = lens _ceMLModelId (\s a -> s { _ceMLModelId = a })+ceMLModelId = lens _ceMLModelId (\ s a -> s{_ceMLModelId = a}); -newtype CreateEvaluationResponse = CreateEvaluationResponse-    { _cerEvaluationId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | The ID of the 'DataSource' for the evaluation. The schema of the+-- 'DataSource' must match the schema used to create the 'MLModel'.+ceEvaluationDataSourceId :: Lens' CreateEvaluation Text+ceEvaluationDataSourceId = lens _ceEvaluationDataSourceId (\ s a -> s{_ceEvaluationDataSourceId = a}); --- | 'CreateEvaluationResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cerEvaluationId' @::@ 'Maybe' 'Text'----createEvaluationResponse :: CreateEvaluationResponse-createEvaluationResponse = CreateEvaluationResponse-    { _cerEvaluationId = Nothing-    }+instance AWSRequest CreateEvaluation where+        type Sv CreateEvaluation = MachineLearning+        type Rs CreateEvaluation = CreateEvaluationResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateEvaluationResponse' <$>+                   (x .?> "EvaluationId") <*> (pure (fromEnum s))) --- | The user-supplied ID that uniquely identifies the 'Evaluation'. This value--- should be identical to the value of the 'EvaluationId' in the request.-cerEvaluationId :: Lens' CreateEvaluationResponse (Maybe Text)-cerEvaluationId = lens _cerEvaluationId (\s a -> s { _cerEvaluationId = a })+instance ToHeaders CreateEvaluation where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.CreateEvaluation" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON CreateEvaluation where+        toJSON CreateEvaluation'{..}+          = object+              ["EvaluationName" .= _ceEvaluationName,+               "EvaluationId" .= _ceEvaluationId,+               "MLModelId" .= _ceMLModelId,+               "EvaluationDataSourceId" .=+                 _ceEvaluationDataSourceId]+ instance ToPath CreateEvaluation where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateEvaluation where-    toQuery = const mempty--instance ToHeaders CreateEvaluation+        toQuery = const mempty -instance ToJSON CreateEvaluation where-    toJSON CreateEvaluation{..} = object-        [ "EvaluationId"           .= _ceEvaluationId-        , "EvaluationName"         .= _ceEvaluationName-        , "MLModelId"              .= _ceMLModelId-        , "EvaluationDataSourceId" .= _ceEvaluationDataSourceId-        ]+-- | Represents the output of a CreateEvaluation operation, and is an+-- acknowledgement that Amazon ML received the request.+--+-- CreateEvaluation operation is asynchronous. You can poll for status+-- updates by using the GetEvaluation operation and checking the 'Status'+-- parameter.+--+-- /See:/ 'createEvaluationResponse' smart constructor.+data CreateEvaluationResponse = CreateEvaluationResponse'+    { _cersEvaluationId :: !(Maybe Text)+    , _cersStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateEvaluation where-    type Sv CreateEvaluation = MachineLearning-    type Rs CreateEvaluation = CreateEvaluationResponse+-- | 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:+--+-- * 'cersEvaluationId'+--+-- * 'cersStatus'+createEvaluationResponse+    :: Int -- ^ 'cersStatus'+    -> CreateEvaluationResponse+createEvaluationResponse pStatus_ =+    CreateEvaluationResponse'+    { _cersEvaluationId = Nothing+    , _cersStatus = pStatus_+    } -    request  = post "CreateEvaluation"-    response = jsonResponse+-- | 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}); -instance FromJSON CreateEvaluationResponse where-    parseJSON = withObject "CreateEvaluationResponse" $ \o -> CreateEvaluationResponse-        <$> o .:? "EvaluationId"+-- | The response status code.+cersStatus :: Lens' CreateEvaluationResponse Int+cersStatus = lens _cersStatus (\ s a -> s{_cersStatus = a});

@@ -1,235 +1,264 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.CreateMLModel--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new 'MLModel' using the data files and the recipe as information--- sources.+-- Creates a new 'MLModel' using the data files and the recipe as+-- information sources. ----- An 'MLModel' is nearly immutable. Users can only update the 'MLModelName' and--- the 'ScoreThreshold' in an 'MLModel' without creating a new 'MLModel'.+-- An 'MLModel' is nearly immutable. Users can only update the+-- 'MLModelName' and the 'ScoreThreshold' in an 'MLModel' without creating+-- a new 'MLModel'. ----- 'CreateMLModel' is an asynchronous operation. In response to 'CreateMLModel',--- Amazon Machine Learning (Amazon ML) immediately returns and sets the 'MLModel'--- status to 'PENDING'. After the 'MLModel' is created and ready for use, Amazon ML--- sets the status to 'COMPLETED'.+-- 'CreateMLModel' is an asynchronous operation. In response to+-- 'CreateMLModel', Amazon Machine Learning (Amazon ML) immediately returns+-- and sets the 'MLModel' status to 'PENDING'. After the 'MLModel' is+-- created and ready for use, Amazon ML sets the status to 'COMPLETED'. ----- You can use the 'GetMLModel' operation to check progress of the 'MLModel' during--- the creation operation.+-- You can use the GetMLModel operation to check progress of the 'MLModel'+-- during the creation operation. ----- 'CreateMLModel' requires a 'DataSource' with computed statistics, which can be--- created by setting 'ComputeStatistics' to 'true' in 'CreateDataSourceFromRDS', 'CreateDataSourceFromS3', or 'CreateDataSourceFromRedshift' operations.+-- CreateMLModel requires a 'DataSource' with computed statistics, which+-- can be created by setting 'ComputeStatistics' to 'true' in+-- CreateDataSourceFromRDS, CreateDataSourceFromS3, or+-- CreateDataSourceFromRedshift operations. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateMLModel.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateMLModel.html AWS API Reference> for CreateMLModel. module Network.AWS.MachineLearning.CreateMLModel     (-    -- * Request-      CreateMLModel-    -- ** Request constructor-    , createMLModel-    -- ** Request lenses-    , cmlmMLModelId+    -- * Creating a Request+      createMLModel+    , CreateMLModel+    -- * Request Lenses+    , cmlmRecipe+    , cmlmRecipeURI     , cmlmMLModelName-    , cmlmMLModelType     , cmlmParameters-    , cmlmRecipe-    , cmlmRecipeUri+    , cmlmMLModelId+    , cmlmMLModelType     , cmlmTrainingDataSourceId -    -- * Response-    , CreateMLModelResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createMLModelResponse-    -- ** Response lenses-    , cmlmrMLModelId+    , CreateMLModelResponse+    -- * Response Lenses+    , cmlmrsMLModelId+    , cmlmrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateMLModel = CreateMLModel-    { _cmlmMLModelId            :: Text-    , _cmlmMLModelName          :: Maybe Text-    , _cmlmMLModelType          :: MLModelType-    , _cmlmParameters           :: Map Text Text-    , _cmlmRecipe               :: Maybe Text-    , _cmlmRecipeUri            :: Maybe Text-    , _cmlmTrainingDataSourceId :: Text-    } deriving (Eq, Read, Show)+-- | /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) --- | 'CreateMLModel' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateMLModel' with the minimum fields required to make a request. ----- * 'cmlmMLModelId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cmlmMLModelName' @::@ 'Maybe' 'Text'+-- * 'cmlmRecipe' ----- * 'cmlmMLModelType' @::@ 'MLModelType'+-- * 'cmlmRecipeURI' ----- * 'cmlmParameters' @::@ 'HashMap' 'Text' 'Text'+-- * 'cmlmMLModelName' ----- * 'cmlmRecipe' @::@ 'Maybe' 'Text'+-- * 'cmlmParameters' ----- * 'cmlmRecipeUri' @::@ 'Maybe' 'Text'+-- * 'cmlmMLModelId' ----- * 'cmlmTrainingDataSourceId' @::@ 'Text'+-- * 'cmlmMLModelType' ---createMLModel :: Text -- ^ 'cmlmMLModelId'-              -> MLModelType -- ^ 'cmlmMLModelType'-              -> Text -- ^ 'cmlmTrainingDataSourceId'-              -> CreateMLModel-createMLModel p1 p2 p3 = CreateMLModel-    { _cmlmMLModelId            = p1-    , _cmlmMLModelType          = p2-    , _cmlmTrainingDataSourceId = p3-    , _cmlmMLModelName          = Nothing-    , _cmlmParameters           = mempty-    , _cmlmRecipe               = Nothing-    , _cmlmRecipeUri            = Nothing+-- * 'cmlmTrainingDataSourceId'+createMLModel+    :: Text -- ^ 'cmlmMLModelId'+    -> MLModelType -- ^ 'cmlmMLModelType'+    -> Text -- ^ 'cmlmTrainingDataSourceId'+    -> CreateMLModel+createMLModel pMLModelId_ pMLModelType_ pTrainingDataSourceId_ =+    CreateMLModel'+    { _cmlmRecipe = Nothing+    , _cmlmRecipeURI = Nothing+    , _cmlmMLModelName = Nothing+    , _cmlmParameters = Nothing+    , _cmlmMLModelId = pMLModelId_+    , _cmlmMLModelType = pMLModelType_+    , _cmlmTrainingDataSourceId = pTrainingDataSourceId_     } --- | A user-supplied ID that uniquely identifies the 'MLModel'.-cmlmMLModelId :: Lens' CreateMLModel Text-cmlmMLModelId = lens _cmlmMLModelId (\s a -> s { _cmlmMLModelId = a })+-- | The data recipe for creating '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}); +-- | The Amazon Simple Storage Service (Amazon S3) location and file name+-- that contains the 'MLModel' recipe. You must specify either the recipe+-- or its URI. If you don’t specify a recipe or its URI, Amazon ML creates+-- a default.+cmlmRecipeURI :: Lens' CreateMLModel (Maybe Text)+cmlmRecipeURI = lens _cmlmRecipeURI (\ s a -> s{_cmlmRecipeURI = a});+ -- | A user-supplied name or description of the 'MLModel'. cmlmMLModelName :: Lens' CreateMLModel (Maybe Text)-cmlmMLModelName = lens _cmlmMLModelName (\s a -> s { _cmlmMLModelName = a })---- | The category of supervised learning that this 'MLModel' will address. Choose--- from the following types:------ Choose 'REGRESSION' if the 'MLModel' will be used to predict a numeric value. Choose--- 'BINARY' if the 'MLModel' result has two possible values. Choose 'MULTICLASS' if--- the 'MLModel' result has a limited number of values.    For more information,--- see the <http://docs.aws.amazon.com/machine-learning/latest/dg Amazon Machine Learning Developer Guide>.-cmlmMLModelType :: Lens' CreateMLModel MLModelType-cmlmMLModelType = lens _cmlmMLModelType (\s a -> s { _cmlmMLModelType = a })+cmlmMLModelName = lens _cmlmMLModelName (\ s a -> s{_cmlmMLModelName = a}); --- | A list of the training parameters in the 'MLModel'. The list is implemented as--- a map of key/value pairs.+-- | A list of the training parameters in the 'MLModel'. The list is+-- implemented as a map of key\/value pairs. -- -- The following is the current set of training parameters: ----- 'sgd.l1RegularizationAmount' - Coefficient regularization L1 norm. It--- controls overfitting the data by penalizing large coefficients. This tends to--- drive coefficients to zero, resulting in sparse feature set. If you use this--- parameter, start by specifying a small value such as 1.0E-08.------ The value is a double that ranges from 0 to MAX_DOUBLE. The default is not--- to use L1 normalization. The parameter cannot be used when 'L2' is specified.--- Use this parameter sparingly.+-- -   'sgd.l1RegularizationAmount' - Coefficient regularization L1 norm.+--     It controls overfitting the data by penalizing large coefficients.+--     This tends to drive coefficients to zero, resulting in sparse+--     feature set. If you use this parameter, start by specifying a small+--     value such as 1.0E-08. ----- 'sgd.l2RegularizationAmount' - Coefficient regularization L2 norm. It--- controls overfitting the data by penalizing large coefficients. This tends to--- drive coefficients to small, nonzero values. If you use this parameter, start--- by specifying a small value such as 1.0E-08.+--     The value is a double that ranges from 0 to MAX_DOUBLE. The default+--     is not to use L1 normalization. The parameter cannot be used when+--     'L2' is specified. Use this parameter sparingly. ----- The valuseis a double that ranges from 0 to MAX_DOUBLE. The default is not--- to use L2 normalization. This cannot be used when 'L1' is specified. Use this--- parameter sparingly.+-- -   'sgd.l2RegularizationAmount' - Coefficient regularization L2 norm.+--     It controls overfitting the data by penalizing large coefficients.+--     This tends to drive coefficients to small, nonzero values. If you+--     use this parameter, start by specifying a small value such as+--     1.0E-08. ----- 'sgd.maxPasses' - Number of times that the training process traverses the--- observations to build the 'MLModel'. The value is an integer that ranges from 1--- to 10000. The default value is 10.+--     The valuseis a double that ranges from 0 to MAX_DOUBLE. The default+--     is not to use L2 normalization. This cannot be used when 'L1' is+--     specified. Use this parameter sparingly. ----- 'sgd.maxMLModelSizeInBytes' - Maximum allowed size of the model. Depending on--- the input data, the size of the model might affect its performance.+-- -   'sgd.maxPasses' - Number of times that the training process+--     traverses the observations to build the 'MLModel'. The value is an+--     integer that ranges from 1 to 10000. The default value is 10. ----- The value is an integer that ranges from 100000 to 2147483648. The default--- value is 33554432.+-- -   'sgd.maxMLModelSizeInBytes' - Maximum allowed size of the model.+--     Depending on the input data, the size of the model might affect its+--     performance. --+--     The value is an integer that ranges from 100000 to 2147483648. The+--     default value is 33554432. -- cmlmParameters :: Lens' CreateMLModel (HashMap Text Text)-cmlmParameters = lens _cmlmParameters (\s a -> s { _cmlmParameters = a }) . _Map+cmlmParameters = lens _cmlmParameters (\ s a -> s{_cmlmParameters = a}) . _Default . _Map; --- | The data recipe for creating '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 })+-- | A user-supplied ID that uniquely identifies the 'MLModel'.+cmlmMLModelId :: Lens' CreateMLModel Text+cmlmMLModelId = lens _cmlmMLModelId (\ s a -> s{_cmlmMLModelId = a}); --- | The Amazon Simple Storage Service (Amazon S3) location and file name that--- contains the 'MLModel' recipe. You must specify either the recipe or its URI.--- If you don’t specify a recipe or its URI, Amazon ML creates a default.-cmlmRecipeUri :: Lens' CreateMLModel (Maybe Text)-cmlmRecipeUri = lens _cmlmRecipeUri (\s a -> s { _cmlmRecipeUri = a })+-- | The category of supervised learning that this 'MLModel' will address.+-- Choose from the following types:+--+-- -   Choose 'REGRESSION' if the 'MLModel' will be used to predict a+--     numeric value.+-- -   Choose 'BINARY' if the 'MLModel' result has two possible values.+-- -   Choose 'MULTICLASS' if the 'MLModel' result has a limited number of+--     values.+--+-- For more information, see the+-- <http://docs.aws.amazon.com/machine-learning/latest/dg Amazon Machine Learning Developer Guide>.+cmlmMLModelType :: Lens' CreateMLModel MLModelType+cmlmMLModelType = lens _cmlmMLModelType (\ s a -> s{_cmlmMLModelType = a});  -- | The 'DataSource' that points to the training data. cmlmTrainingDataSourceId :: Lens' CreateMLModel Text-cmlmTrainingDataSourceId =-    lens _cmlmTrainingDataSourceId-        (\s a -> s { _cmlmTrainingDataSourceId = a })+cmlmTrainingDataSourceId = lens _cmlmTrainingDataSourceId (\ s a -> s{_cmlmTrainingDataSourceId = a}); -newtype CreateMLModelResponse = CreateMLModelResponse-    { _cmlmrMLModelId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CreateMLModel where+        type Sv CreateMLModel = MachineLearning+        type Rs CreateMLModel = CreateMLModelResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateMLModelResponse' <$>+                   (x .?> "MLModelId") <*> (pure (fromEnum s))) --- | 'CreateMLModelResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cmlmrMLModelId' @::@ 'Maybe' 'Text'----createMLModelResponse :: CreateMLModelResponse-createMLModelResponse = CreateMLModelResponse-    { _cmlmrMLModelId = Nothing-    }+instance ToHeaders CreateMLModel where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.CreateMLModel" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A user-supplied ID that uniquely identifies the 'MLModel'. This value should be--- identical to the value of the 'MLModelId' in the request.-cmlmrMLModelId :: Lens' CreateMLModelResponse (Maybe Text)-cmlmrMLModelId = lens _cmlmrMLModelId (\s a -> s { _cmlmrMLModelId = a })+instance ToJSON CreateMLModel where+        toJSON CreateMLModel'{..}+          = object+              ["Recipe" .= _cmlmRecipe,+               "RecipeUri" .= _cmlmRecipeURI,+               "MLModelName" .= _cmlmMLModelName,+               "Parameters" .= _cmlmParameters,+               "MLModelId" .= _cmlmMLModelId,+               "MLModelType" .= _cmlmMLModelType,+               "TrainingDataSourceId" .= _cmlmTrainingDataSourceId]  instance ToPath CreateMLModel where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateMLModel where-    toQuery = const mempty--instance ToHeaders CreateMLModel+        toQuery = const mempty -instance ToJSON CreateMLModel where-    toJSON CreateMLModel{..} = object-        [ "MLModelId"            .= _cmlmMLModelId-        , "MLModelName"          .= _cmlmMLModelName-        , "MLModelType"          .= _cmlmMLModelType-        , "Parameters"           .= _cmlmParameters-        , "TrainingDataSourceId" .= _cmlmTrainingDataSourceId-        , "Recipe"               .= _cmlmRecipe-        , "RecipeUri"            .= _cmlmRecipeUri-        ]+-- | Represents the output of a CreateMLModel operation, and is an+-- acknowledgement that Amazon ML received the request.+--+-- The CreateMLModel operation is asynchronous. You can poll for status+-- updates by using the GetMLModel operation and checking the 'Status'+-- parameter.+--+-- /See:/ 'createMLModelResponse' smart constructor.+data CreateMLModelResponse = CreateMLModelResponse'+    { _cmlmrsMLModelId :: !(Maybe Text)+    , _cmlmrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateMLModel where-    type Sv CreateMLModel = MachineLearning-    type Rs CreateMLModel = CreateMLModelResponse+-- | 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:+--+-- * 'cmlmrsMLModelId'+--+-- * 'cmlmrsStatus'+createMLModelResponse+    :: Int -- ^ 'cmlmrsStatus'+    -> CreateMLModelResponse+createMLModelResponse pStatus_ =+    CreateMLModelResponse'+    { _cmlmrsMLModelId = Nothing+    , _cmlmrsStatus = pStatus_+    } -    request  = post "CreateMLModel"-    response = jsonResponse+-- | 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}); -instance FromJSON CreateMLModelResponse where-    parseJSON = withObject "CreateMLModelResponse" $ \o -> CreateMLModelResponse-        <$> o .:? "MLModelId"+-- | The response status code.+cmlmrsStatus :: Lens' CreateMLModelResponse Int+cmlmrsStatus = lens _cmlmrsStatus (\ s a -> s{_cmlmrsStatus = a});

@@ -1,127 +1,149 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.CreateRealtimeEndpoint--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a real-time endpoint for the 'MLModel'. The endpoint contains the URI--- of the 'MLModel'; that is, the location to send real-time prediction requests--- for the specified 'MLModel'.+-- Creates a real-time endpoint for the 'MLModel'. The endpoint contains+-- the URI of the 'MLModel'; that is, the location to send real-time+-- prediction requests for the specified 'MLModel'. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateRealtimeEndpoint.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_CreateRealtimeEndpoint.html AWS API Reference> for CreateRealtimeEndpoint. module Network.AWS.MachineLearning.CreateRealtimeEndpoint     (-    -- * Request-      CreateRealtimeEndpoint-    -- ** Request constructor-    , createRealtimeEndpoint-    -- ** Request lenses+    -- * Creating a Request+      createRealtimeEndpoint+    , CreateRealtimeEndpoint+    -- * Request Lenses     , creMLModelId -    -- * Response-    , CreateRealtimeEndpointResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createRealtimeEndpointResponse-    -- ** Response lenses-    , crerMLModelId-    , crerRealtimeEndpointInfo+    , CreateRealtimeEndpointResponse+    -- * Response Lenses+    , crersRealtimeEndpointInfo+    , crersMLModelId+    , crersStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype CreateRealtimeEndpoint = CreateRealtimeEndpoint+-- | /See:/ 'createRealtimeEndpoint' smart constructor.+newtype CreateRealtimeEndpoint = CreateRealtimeEndpoint'     { _creMLModelId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateRealtimeEndpoint' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateRealtimeEndpoint' with the minimum fields required to make a request. ----- * 'creMLModelId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---createRealtimeEndpoint :: Text -- ^ 'creMLModelId'-                       -> CreateRealtimeEndpoint-createRealtimeEndpoint p1 = CreateRealtimeEndpoint-    { _creMLModelId = p1+-- * 'creMLModelId'+createRealtimeEndpoint+    :: Text -- ^ 'creMLModelId'+    -> CreateRealtimeEndpoint+createRealtimeEndpoint pMLModelId_ =+    CreateRealtimeEndpoint'+    { _creMLModelId = pMLModelId_     }  -- | The ID assigned to the 'MLModel' during creation. creMLModelId :: Lens' CreateRealtimeEndpoint Text-creMLModelId = lens _creMLModelId (\s a -> s { _creMLModelId = a })--data CreateRealtimeEndpointResponse = CreateRealtimeEndpointResponse-    { _crerMLModelId            :: Maybe Text-    , _crerRealtimeEndpointInfo :: Maybe RealtimeEndpointInfo-    } deriving (Eq, Read, Show)+creMLModelId = lens _creMLModelId (\ s a -> s{_creMLModelId = a}); --- | 'CreateRealtimeEndpointResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'crerMLModelId' @::@ 'Maybe' 'Text'------ * 'crerRealtimeEndpointInfo' @::@ 'Maybe' 'RealtimeEndpointInfo'----createRealtimeEndpointResponse :: CreateRealtimeEndpointResponse-createRealtimeEndpointResponse = CreateRealtimeEndpointResponse-    { _crerMLModelId            = Nothing-    , _crerRealtimeEndpointInfo = Nothing-    }+instance AWSRequest CreateRealtimeEndpoint where+        type Sv CreateRealtimeEndpoint = MachineLearning+        type Rs CreateRealtimeEndpoint =+             CreateRealtimeEndpointResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateRealtimeEndpointResponse' <$>+                   (x .?> "RealtimeEndpointInfo") <*>+                     (x .?> "MLModelId")+                     <*> (pure (fromEnum s))) --- | A user-supplied ID that uniquely identifies the 'MLModel'. This value should be--- identical to the value of the 'MLModelId' in the request.-crerMLModelId :: Lens' CreateRealtimeEndpointResponse (Maybe Text)-crerMLModelId = lens _crerMLModelId (\s a -> s { _crerMLModelId = a })+instance ToHeaders CreateRealtimeEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.CreateRealtimeEndpoint" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The endpoint information of the 'MLModel'-crerRealtimeEndpointInfo :: Lens' CreateRealtimeEndpointResponse (Maybe RealtimeEndpointInfo)-crerRealtimeEndpointInfo =-    lens _crerRealtimeEndpointInfo-        (\s a -> s { _crerRealtimeEndpointInfo = a })+instance ToJSON CreateRealtimeEndpoint where+        toJSON CreateRealtimeEndpoint'{..}+          = object ["MLModelId" .= _creMLModelId]  instance ToPath CreateRealtimeEndpoint where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateRealtimeEndpoint where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders CreateRealtimeEndpoint+-- | Represents the output of an CreateRealtimeEndpoint operation.+--+-- The result contains the 'MLModelId' and the endpoint information for the+-- 'MLModel'.+--+-- The endpoint information includes the URI of the 'MLModel'; that is, the+-- location to send online prediction requests for the specified 'MLModel'.+--+-- /See:/ 'createRealtimeEndpointResponse' smart constructor.+data CreateRealtimeEndpointResponse = CreateRealtimeEndpointResponse'+    { _crersRealtimeEndpointInfo :: !(Maybe RealtimeEndpointInfo)+    , _crersMLModelId            :: !(Maybe Text)+    , _crersStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON CreateRealtimeEndpoint where-    toJSON CreateRealtimeEndpoint{..} = object-        [ "MLModelId" .= _creMLModelId-        ]+-- | 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:+--+-- * 'crersRealtimeEndpointInfo'+--+-- * 'crersMLModelId'+--+-- * 'crersStatus'+createRealtimeEndpointResponse+    :: Int -- ^ 'crersStatus'+    -> CreateRealtimeEndpointResponse+createRealtimeEndpointResponse pStatus_ =+    CreateRealtimeEndpointResponse'+    { _crersRealtimeEndpointInfo = Nothing+    , _crersMLModelId = Nothing+    , _crersStatus = pStatus_+    } -instance AWSRequest CreateRealtimeEndpoint where-    type Sv CreateRealtimeEndpoint = MachineLearning-    type Rs CreateRealtimeEndpoint = CreateRealtimeEndpointResponse+-- | The endpoint information of the 'MLModel'+crersRealtimeEndpointInfo :: Lens' CreateRealtimeEndpointResponse (Maybe RealtimeEndpointInfo)+crersRealtimeEndpointInfo = lens _crersRealtimeEndpointInfo (\ s a -> s{_crersRealtimeEndpointInfo = a}); -    request  = post "CreateRealtimeEndpoint"-    response = jsonResponse+-- | A user-supplied ID that uniquely identifies the 'MLModel'. This value+-- should be identical to the value of the 'MLModelId' in the request.+crersMLModelId :: Lens' CreateRealtimeEndpointResponse (Maybe Text)+crersMLModelId = lens _crersMLModelId (\ s a -> s{_crersMLModelId = a}); -instance FromJSON CreateRealtimeEndpointResponse where-    parseJSON = withObject "CreateRealtimeEndpointResponse" $ \o -> CreateRealtimeEndpointResponse-        <$> o .:? "MLModelId"-        <*> o .:? "RealtimeEndpointInfo"+-- | The response status code.+crersStatus :: Lens' CreateRealtimeEndpointResponse Int+crersStatus = lens _crersStatus (\ s a -> s{_crersStatus = a});

@@ -1,121 +1,145 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DeleteBatchPrediction--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Assigns the DELETED status to a 'BatchPrediction', rendering it unusable.+-- Assigns the DELETED status to a 'BatchPrediction', rendering it+-- unusable. ----- After using the 'DeleteBatchPrediction' operation, you can use the 'GetBatchPrediction' operation to verify that the status of the 'BatchPrediction' changed to--- DELETED.+-- After using the 'DeleteBatchPrediction' operation, you can use the+-- GetBatchPrediction operation to verify that the status of the+-- 'BatchPrediction' changed to DELETED. ----- Caution The result of the 'DeleteBatchPrediction' operation is irreversible.+-- Caution --+-- The result of the 'DeleteBatchPrediction' operation is irreversible. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteBatchPrediction.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteBatchPrediction.html AWS API Reference> for DeleteBatchPrediction. module Network.AWS.MachineLearning.DeleteBatchPrediction     (-    -- * Request-      DeleteBatchPrediction-    -- ** Request constructor-    , deleteBatchPrediction-    -- ** Request lenses+    -- * Creating a Request+      deleteBatchPrediction+    , DeleteBatchPrediction+    -- * Request Lenses     , dbpBatchPredictionId -    -- * Response-    , DeleteBatchPredictionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteBatchPredictionResponse-    -- ** Response lenses-    , dbprBatchPredictionId+    , DeleteBatchPredictionResponse+    -- * Response Lenses+    , dbprsBatchPredictionId+    , dbprsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteBatchPrediction = DeleteBatchPrediction+-- | /See:/ 'deleteBatchPrediction' smart constructor.+newtype DeleteBatchPrediction = DeleteBatchPrediction'     { _dbpBatchPredictionId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteBatchPrediction' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteBatchPrediction' with the minimum fields required to make a request. ----- * 'dbpBatchPredictionId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteBatchPrediction :: Text -- ^ 'dbpBatchPredictionId'-                      -> DeleteBatchPrediction-deleteBatchPrediction p1 = DeleteBatchPrediction-    { _dbpBatchPredictionId = p1+-- * 'dbpBatchPredictionId'+deleteBatchPrediction+    :: Text -- ^ 'dbpBatchPredictionId'+    -> DeleteBatchPrediction+deleteBatchPrediction 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 })+dbpBatchPredictionId = lens _dbpBatchPredictionId (\ s a -> s{_dbpBatchPredictionId = a}); -newtype DeleteBatchPredictionResponse = DeleteBatchPredictionResponse-    { _dbprBatchPredictionId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteBatchPrediction where+        type Sv DeleteBatchPrediction = MachineLearning+        type Rs DeleteBatchPrediction =+             DeleteBatchPredictionResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteBatchPredictionResponse' <$>+                   (x .?> "BatchPredictionId") <*> (pure (fromEnum s))) --- | 'DeleteBatchPredictionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dbprBatchPredictionId' @::@ 'Maybe' 'Text'----deleteBatchPredictionResponse :: DeleteBatchPredictionResponse-deleteBatchPredictionResponse = DeleteBatchPredictionResponse-    { _dbprBatchPredictionId = Nothing-    }+instance ToHeaders DeleteBatchPrediction where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DeleteBatchPrediction" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A user-supplied ID that uniquely identifies the 'BatchPrediction'. This value--- should be identical to the value of the 'BatchPredictionID' in the request.-dbprBatchPredictionId :: Lens' DeleteBatchPredictionResponse (Maybe Text)-dbprBatchPredictionId =-    lens _dbprBatchPredictionId (\s a -> s { _dbprBatchPredictionId = a })+instance ToJSON DeleteBatchPrediction where+        toJSON DeleteBatchPrediction'{..}+          = object+              ["BatchPredictionId" .= _dbpBatchPredictionId]  instance ToPath DeleteBatchPrediction where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteBatchPrediction where-    toQuery = const mempty--instance ToHeaders DeleteBatchPrediction+        toQuery = const mempty -instance ToJSON DeleteBatchPrediction where-    toJSON DeleteBatchPrediction{..} = object-        [ "BatchPredictionId" .= _dbpBatchPredictionId-        ]+-- | Represents the output of a DeleteBatchPrediction operation.+--+-- You can use the GetBatchPrediction operation and check the value of the+-- 'Status' parameter to see whether a 'BatchPrediction' is marked as+-- 'DELETED'.+--+-- /See:/ 'deleteBatchPredictionResponse' smart constructor.+data DeleteBatchPredictionResponse = DeleteBatchPredictionResponse'+    { _dbprsBatchPredictionId :: !(Maybe Text)+    , _dbprsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteBatchPrediction where-    type Sv DeleteBatchPrediction = MachineLearning-    type Rs DeleteBatchPrediction = DeleteBatchPredictionResponse+-- | 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:+--+-- * 'dbprsBatchPredictionId'+--+-- * 'dbprsStatus'+deleteBatchPredictionResponse+    :: Int -- ^ 'dbprsStatus'+    -> DeleteBatchPredictionResponse+deleteBatchPredictionResponse pStatus_ =+    DeleteBatchPredictionResponse'+    { _dbprsBatchPredictionId = Nothing+    , _dbprsStatus = pStatus_+    } -    request  = post "DeleteBatchPrediction"-    response = jsonResponse+-- | 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}); -instance FromJSON DeleteBatchPredictionResponse where-    parseJSON = withObject "DeleteBatchPredictionResponse" $ \o -> DeleteBatchPredictionResponse-        <$> o .:? "BatchPredictionId"+-- | The response status code.+dbprsStatus :: Lens' DeleteBatchPredictionResponse Int+dbprsStatus = lens _dbprsStatus (\ s a -> s{_dbprsStatus = a});

@@ -1,119 +1,136 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DeleteDataSource--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Assigns the DELETED status to a 'DataSource', rendering it unusable.+-- Assigns the DELETED status to a 'DataSource', rendering it unusable. ----- After using the 'DeleteDataSource' operation, you can use the 'GetDataSource'--- operation to verify that the status of the 'DataSource' changed to DELETED.+-- After using the 'DeleteDataSource' operation, you can use the+-- GetDataSource operation to verify that the status of the 'DataSource'+-- changed to DELETED. ----- Caution The results of the 'DeleteDataSource' operation are irreversible.+-- Caution --+-- The results of the 'DeleteDataSource' operation are irreversible. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteDataSource.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteDataSource.html AWS API Reference> for DeleteDataSource. module Network.AWS.MachineLearning.DeleteDataSource     (-    -- * Request-      DeleteDataSource-    -- ** Request constructor-    , deleteDataSource-    -- ** Request lenses+    -- * Creating a Request+      deleteDataSource+    , DeleteDataSource+    -- * Request Lenses     , ddsDataSourceId -    -- * Response-    , DeleteDataSourceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteDataSourceResponse-    -- ** Response lenses-    , ddsrDataSourceId+    , DeleteDataSourceResponse+    -- * Response Lenses+    , ddsrsDataSourceId+    , ddsrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteDataSource = DeleteDataSource+-- | /See:/ 'deleteDataSource' smart constructor.+newtype DeleteDataSource = DeleteDataSource'     { _ddsDataSourceId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteDataSource' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteDataSource' with the minimum fields required to make a request. ----- * 'ddsDataSourceId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteDataSource :: Text -- ^ 'ddsDataSourceId'-                 -> DeleteDataSource-deleteDataSource p1 = DeleteDataSource-    { _ddsDataSourceId = p1+-- * 'ddsDataSourceId'+deleteDataSource+    :: Text -- ^ 'ddsDataSourceId'+    -> DeleteDataSource+deleteDataSource 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 })+ddsDataSourceId = lens _ddsDataSourceId (\ s a -> s{_ddsDataSourceId = a}); -newtype DeleteDataSourceResponse = DeleteDataSourceResponse-    { _ddsrDataSourceId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteDataSource where+        type Sv DeleteDataSource = MachineLearning+        type Rs DeleteDataSource = DeleteDataSourceResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteDataSourceResponse' <$>+                   (x .?> "DataSourceId") <*> (pure (fromEnum s))) --- | 'DeleteDataSourceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ddsrDataSourceId' @::@ 'Maybe' 'Text'----deleteDataSourceResponse :: DeleteDataSourceResponse-deleteDataSourceResponse = DeleteDataSourceResponse-    { _ddsrDataSourceId = Nothing-    }+instance ToHeaders DeleteDataSource where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DeleteDataSource" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A user-supplied ID that uniquely identifies the 'DataSource'. This value should--- be identical to the value of the 'DataSourceID' in the request.-ddsrDataSourceId :: Lens' DeleteDataSourceResponse (Maybe Text)-ddsrDataSourceId = lens _ddsrDataSourceId (\s a -> s { _ddsrDataSourceId = a })+instance ToJSON DeleteDataSource where+        toJSON DeleteDataSource'{..}+          = object ["DataSourceId" .= _ddsDataSourceId]  instance ToPath DeleteDataSource where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteDataSource where-    toQuery = const mempty--instance ToHeaders DeleteDataSource+        toQuery = const mempty -instance ToJSON DeleteDataSource where-    toJSON DeleteDataSource{..} = object-        [ "DataSourceId" .= _ddsDataSourceId-        ]+-- | Represents the output of a DeleteDataSource operation.+--+-- /See:/ 'deleteDataSourceResponse' smart constructor.+data DeleteDataSourceResponse = DeleteDataSourceResponse'+    { _ddsrsDataSourceId :: !(Maybe Text)+    , _ddsrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteDataSource where-    type Sv DeleteDataSource = MachineLearning-    type Rs DeleteDataSource = DeleteDataSourceResponse+-- | 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:+--+-- * 'ddsrsDataSourceId'+--+-- * 'ddsrsStatus'+deleteDataSourceResponse+    :: Int -- ^ 'ddsrsStatus'+    -> DeleteDataSourceResponse+deleteDataSourceResponse pStatus_ =+    DeleteDataSourceResponse'+    { _ddsrsDataSourceId = Nothing+    , _ddsrsStatus = pStatus_+    } -    request  = post "DeleteDataSource"-    response = jsonResponse+-- | 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}); -instance FromJSON DeleteDataSourceResponse where-    parseJSON = withObject "DeleteDataSourceResponse" $ \o -> DeleteDataSourceResponse-        <$> o .:? "DataSourceId"+-- | The response status code.+ddsrsStatus :: Lens' DeleteDataSourceResponse Int+ddsrsStatus = lens _ddsrsStatus (\ s a -> s{_ddsrsStatus = a});

@@ -1,119 +1,141 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DeleteEvaluation--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Assigns the 'DELETED' status to an 'Evaluation', rendering it unusable.+-- Assigns the 'DELETED' status to an 'Evaluation', rendering it unusable. ----- After invoking the 'DeleteEvaluation' operation, you can use the 'GetEvaluation'--- operation to verify that the status of the 'Evaluation' changed to 'DELETED'.+-- After invoking the 'DeleteEvaluation' operation, you can use the+-- GetEvaluation operation to verify that the status of the 'Evaluation'+-- changed to 'DELETED'. ----- Caution The results of the 'DeleteEvaluation' operation are irreversible.+-- Caution --+-- The results of the 'DeleteEvaluation' operation are irreversible. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteEvaluation.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteEvaluation.html AWS API Reference> for DeleteEvaluation. module Network.AWS.MachineLearning.DeleteEvaluation     (-    -- * Request-      DeleteEvaluation-    -- ** Request constructor-    , deleteEvaluation-    -- ** Request lenses+    -- * Creating a Request+      deleteEvaluation+    , DeleteEvaluation+    -- * Request Lenses     , deEvaluationId -    -- * Response-    , DeleteEvaluationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteEvaluationResponse-    -- ** Response lenses-    , derEvaluationId+    , DeleteEvaluationResponse+    -- * Response Lenses+    , dersEvaluationId+    , dersStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteEvaluation = DeleteEvaluation+-- | /See:/ 'deleteEvaluation' smart constructor.+newtype DeleteEvaluation = DeleteEvaluation'     { _deEvaluationId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteEvaluation' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteEvaluation' with the minimum fields required to make a request. ----- * 'deEvaluationId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteEvaluation :: Text -- ^ 'deEvaluationId'-                 -> DeleteEvaluation-deleteEvaluation p1 = DeleteEvaluation-    { _deEvaluationId = p1+-- * 'deEvaluationId'+deleteEvaluation+    :: Text -- ^ 'deEvaluationId'+    -> DeleteEvaluation+deleteEvaluation 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 })+deEvaluationId = lens _deEvaluationId (\ s a -> s{_deEvaluationId = a}); -newtype DeleteEvaluationResponse = DeleteEvaluationResponse-    { _derEvaluationId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteEvaluation where+        type Sv DeleteEvaluation = MachineLearning+        type Rs DeleteEvaluation = DeleteEvaluationResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteEvaluationResponse' <$>+                   (x .?> "EvaluationId") <*> (pure (fromEnum s))) --- | 'DeleteEvaluationResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'derEvaluationId' @::@ 'Maybe' 'Text'----deleteEvaluationResponse :: DeleteEvaluationResponse-deleteEvaluationResponse = DeleteEvaluationResponse-    { _derEvaluationId = Nothing-    }+instance ToHeaders DeleteEvaluation where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DeleteEvaluation" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A user-supplied ID that uniquely identifies the 'Evaluation'. This value should--- be identical to the value of the 'EvaluationId' in the request.-derEvaluationId :: Lens' DeleteEvaluationResponse (Maybe Text)-derEvaluationId = lens _derEvaluationId (\s a -> s { _derEvaluationId = a })+instance ToJSON DeleteEvaluation where+        toJSON DeleteEvaluation'{..}+          = object ["EvaluationId" .= _deEvaluationId]  instance ToPath DeleteEvaluation where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteEvaluation where-    toQuery = const mempty--instance ToHeaders DeleteEvaluation+        toQuery = const mempty -instance ToJSON DeleteEvaluation where-    toJSON DeleteEvaluation{..} = object-        [ "EvaluationId" .= _deEvaluationId-        ]+-- | Represents the output of a DeleteEvaluation operation. The output+-- indicates that Amazon Machine Learning (Amazon ML) received the request.+--+-- You can use the GetEvaluation operation and check the value of the+-- 'Status' parameter to see whether an 'Evaluation' is marked as+-- 'DELETED'.+--+-- /See:/ 'deleteEvaluationResponse' smart constructor.+data DeleteEvaluationResponse = DeleteEvaluationResponse'+    { _dersEvaluationId :: !(Maybe Text)+    , _dersStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteEvaluation where-    type Sv DeleteEvaluation = MachineLearning-    type Rs DeleteEvaluation = DeleteEvaluationResponse+-- | 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:+--+-- * 'dersEvaluationId'+--+-- * 'dersStatus'+deleteEvaluationResponse+    :: Int -- ^ 'dersStatus'+    -> DeleteEvaluationResponse+deleteEvaluationResponse pStatus_ =+    DeleteEvaluationResponse'+    { _dersEvaluationId = Nothing+    , _dersStatus = pStatus_+    } -    request  = post "DeleteEvaluation"-    response = jsonResponse+-- | 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}); -instance FromJSON DeleteEvaluationResponse where-    parseJSON = withObject "DeleteEvaluationResponse" $ \o -> DeleteEvaluationResponse-        <$> o .:? "EvaluationId"+-- | The response status code.+dersStatus :: Lens' DeleteEvaluationResponse Int+dersStatus = lens _dersStatus (\ s a -> s{_dersStatus = a});

@@ -1,119 +1,138 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DeleteMLModel--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Assigns the DELETED status to an 'MLModel', rendering it unusable.+-- Assigns the DELETED status to an 'MLModel', rendering it unusable. ----- After using the 'DeleteMLModel' operation, you can use the 'GetMLModel'+-- After using the 'DeleteMLModel' operation, you can use the GetMLModel -- operation to verify that the status of the 'MLModel' changed to DELETED. ----- Caution The result of the 'DeleteMLModel' operation is irreversible.+-- Caution --+-- The result of the 'DeleteMLModel' operation is irreversible. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteMLModel.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteMLModel.html AWS API Reference> for DeleteMLModel. module Network.AWS.MachineLearning.DeleteMLModel     (-    -- * Request-      DeleteMLModel-    -- ** Request constructor-    , deleteMLModel-    -- ** Request lenses+    -- * Creating a Request+      deleteMLModel+    , DeleteMLModel+    -- * Request Lenses     , dmlmMLModelId -    -- * Response-    , DeleteMLModelResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteMLModelResponse-    -- ** Response lenses-    , dmlmrMLModelId+    , DeleteMLModelResponse+    -- * Response Lenses+    , dmlmrsMLModelId+    , dmlmrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteMLModel = DeleteMLModel+-- | /See:/ 'deleteMLModel' smart constructor.+newtype DeleteMLModel = DeleteMLModel'     { _dmlmMLModelId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteMLModel' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteMLModel' with the minimum fields required to make a request. ----- * 'dmlmMLModelId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteMLModel :: Text -- ^ 'dmlmMLModelId'-              -> DeleteMLModel-deleteMLModel p1 = DeleteMLModel-    { _dmlmMLModelId = p1+-- * 'dmlmMLModelId'+deleteMLModel+    :: Text -- ^ 'dmlmMLModelId'+    -> DeleteMLModel+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 })+dmlmMLModelId = lens _dmlmMLModelId (\ s a -> s{_dmlmMLModelId = a}); -newtype DeleteMLModelResponse = DeleteMLModelResponse-    { _dmlmrMLModelId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteMLModel where+        type Sv DeleteMLModel = MachineLearning+        type Rs DeleteMLModel = DeleteMLModelResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteMLModelResponse' <$>+                   (x .?> "MLModelId") <*> (pure (fromEnum s))) --- | 'DeleteMLModelResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dmlmrMLModelId' @::@ 'Maybe' 'Text'----deleteMLModelResponse :: DeleteMLModelResponse-deleteMLModelResponse = DeleteMLModelResponse-    { _dmlmrMLModelId = Nothing-    }+instance ToHeaders DeleteMLModel where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DeleteMLModel" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A user-supplied ID that uniquely identifies the 'MLModel'. This value should be--- identical to the value of the 'MLModelID' in the request.-dmlmrMLModelId :: Lens' DeleteMLModelResponse (Maybe Text)-dmlmrMLModelId = lens _dmlmrMLModelId (\s a -> s { _dmlmrMLModelId = a })+instance ToJSON DeleteMLModel where+        toJSON DeleteMLModel'{..}+          = object ["MLModelId" .= _dmlmMLModelId]  instance ToPath DeleteMLModel where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteMLModel where-    toQuery = const mempty--instance ToHeaders DeleteMLModel+        toQuery = const mempty -instance ToJSON DeleteMLModel where-    toJSON DeleteMLModel{..} = object-        [ "MLModelId" .= _dmlmMLModelId-        ]+-- | Represents the output of a DeleteMLModel operation.+--+-- You can use the GetMLModel operation and check the value of the 'Status'+-- parameter to see whether an 'MLModel' is marked as 'DELETED'.+--+-- /See:/ 'deleteMLModelResponse' smart constructor.+data DeleteMLModelResponse = DeleteMLModelResponse'+    { _dmlmrsMLModelId :: !(Maybe Text)+    , _dmlmrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteMLModel where-    type Sv DeleteMLModel = MachineLearning-    type Rs DeleteMLModel = DeleteMLModelResponse+-- | 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:+--+-- * 'dmlmrsMLModelId'+--+-- * 'dmlmrsStatus'+deleteMLModelResponse+    :: Int -- ^ 'dmlmrsStatus'+    -> DeleteMLModelResponse+deleteMLModelResponse pStatus_ =+    DeleteMLModelResponse'+    { _dmlmrsMLModelId = Nothing+    , _dmlmrsStatus = pStatus_+    } -    request  = post "DeleteMLModel"-    response = jsonResponse+-- | 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}); -instance FromJSON DeleteMLModelResponse where-    parseJSON = withObject "DeleteMLModelResponse" $ \o -> DeleteMLModelResponse-        <$> o .:? "MLModelId"+-- | The response status code.+dmlmrsStatus :: Lens' DeleteMLModelResponse Int+dmlmrsStatus = lens _dmlmrsStatus (\ s a -> s{_dmlmrsStatus = a});

@@ -1,125 +1,144 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DeleteRealtimeEndpoint--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes a real time endpoint of an 'MLModel'.+-- Deletes a real time endpoint of an 'MLModel'. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteRealtimeEndpoint.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DeleteRealtimeEndpoint.html AWS API Reference> for DeleteRealtimeEndpoint. module Network.AWS.MachineLearning.DeleteRealtimeEndpoint     (-    -- * Request-      DeleteRealtimeEndpoint-    -- ** Request constructor-    , deleteRealtimeEndpoint-    -- ** Request lenses+    -- * Creating a Request+      deleteRealtimeEndpoint+    , DeleteRealtimeEndpoint+    -- * Request Lenses     , dreMLModelId -    -- * Response-    , DeleteRealtimeEndpointResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteRealtimeEndpointResponse-    -- ** Response lenses-    , drerMLModelId-    , drerRealtimeEndpointInfo+    , DeleteRealtimeEndpointResponse+    -- * Response Lenses+    , drersRealtimeEndpointInfo+    , drersMLModelId+    , drersStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteRealtimeEndpoint = DeleteRealtimeEndpoint+-- | /See:/ 'deleteRealtimeEndpoint' smart constructor.+newtype DeleteRealtimeEndpoint = DeleteRealtimeEndpoint'     { _dreMLModelId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteRealtimeEndpoint' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteRealtimeEndpoint' with the minimum fields required to make a request. ----- * 'dreMLModelId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteRealtimeEndpoint :: Text -- ^ 'dreMLModelId'-                       -> DeleteRealtimeEndpoint-deleteRealtimeEndpoint p1 = DeleteRealtimeEndpoint-    { _dreMLModelId = p1+-- * 'dreMLModelId'+deleteRealtimeEndpoint+    :: Text -- ^ 'dreMLModelId'+    -> DeleteRealtimeEndpoint+deleteRealtimeEndpoint pMLModelId_ =+    DeleteRealtimeEndpoint'+    { _dreMLModelId = pMLModelId_     }  -- | The ID assigned to the 'MLModel' during creation. dreMLModelId :: Lens' DeleteRealtimeEndpoint Text-dreMLModelId = lens _dreMLModelId (\s a -> s { _dreMLModelId = a })--data DeleteRealtimeEndpointResponse = DeleteRealtimeEndpointResponse-    { _drerMLModelId            :: Maybe Text-    , _drerRealtimeEndpointInfo :: Maybe RealtimeEndpointInfo-    } deriving (Eq, Read, Show)+dreMLModelId = lens _dreMLModelId (\ s a -> s{_dreMLModelId = a}); --- | 'DeleteRealtimeEndpointResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'drerMLModelId' @::@ 'Maybe' 'Text'------ * 'drerRealtimeEndpointInfo' @::@ 'Maybe' 'RealtimeEndpointInfo'----deleteRealtimeEndpointResponse :: DeleteRealtimeEndpointResponse-deleteRealtimeEndpointResponse = DeleteRealtimeEndpointResponse-    { _drerMLModelId            = Nothing-    , _drerRealtimeEndpointInfo = Nothing-    }+instance AWSRequest DeleteRealtimeEndpoint where+        type Sv DeleteRealtimeEndpoint = MachineLearning+        type Rs DeleteRealtimeEndpoint =+             DeleteRealtimeEndpointResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteRealtimeEndpointResponse' <$>+                   (x .?> "RealtimeEndpointInfo") <*>+                     (x .?> "MLModelId")+                     <*> (pure (fromEnum s))) --- | A user-supplied ID that uniquely identifies the 'MLModel'. This value should be--- identical to the value of the 'MLModelId' in the request.-drerMLModelId :: Lens' DeleteRealtimeEndpointResponse (Maybe Text)-drerMLModelId = lens _drerMLModelId (\s a -> s { _drerMLModelId = a })+instance ToHeaders DeleteRealtimeEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DeleteRealtimeEndpoint" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The endpoint information of the 'MLModel'-drerRealtimeEndpointInfo :: Lens' DeleteRealtimeEndpointResponse (Maybe RealtimeEndpointInfo)-drerRealtimeEndpointInfo =-    lens _drerRealtimeEndpointInfo-        (\s a -> s { _drerRealtimeEndpointInfo = a })+instance ToJSON DeleteRealtimeEndpoint where+        toJSON DeleteRealtimeEndpoint'{..}+          = object ["MLModelId" .= _dreMLModelId]  instance ToPath DeleteRealtimeEndpoint where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteRealtimeEndpoint where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DeleteRealtimeEndpoint+-- | Represents the output of an DeleteRealtimeEndpoint operation.+--+-- The result contains the 'MLModelId' and the endpoint information for the+-- 'MLModel'.+--+-- /See:/ 'deleteRealtimeEndpointResponse' smart constructor.+data DeleteRealtimeEndpointResponse = DeleteRealtimeEndpointResponse'+    { _drersRealtimeEndpointInfo :: !(Maybe RealtimeEndpointInfo)+    , _drersMLModelId            :: !(Maybe Text)+    , _drersStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DeleteRealtimeEndpoint where-    toJSON DeleteRealtimeEndpoint{..} = object-        [ "MLModelId" .= _dreMLModelId-        ]+-- | 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:+--+-- * 'drersRealtimeEndpointInfo'+--+-- * 'drersMLModelId'+--+-- * 'drersStatus'+deleteRealtimeEndpointResponse+    :: Int -- ^ 'drersStatus'+    -> DeleteRealtimeEndpointResponse+deleteRealtimeEndpointResponse pStatus_ =+    DeleteRealtimeEndpointResponse'+    { _drersRealtimeEndpointInfo = Nothing+    , _drersMLModelId = Nothing+    , _drersStatus = pStatus_+    } -instance AWSRequest DeleteRealtimeEndpoint where-    type Sv DeleteRealtimeEndpoint = MachineLearning-    type Rs DeleteRealtimeEndpoint = DeleteRealtimeEndpointResponse+-- | The endpoint information of the 'MLModel'+drersRealtimeEndpointInfo :: Lens' DeleteRealtimeEndpointResponse (Maybe RealtimeEndpointInfo)+drersRealtimeEndpointInfo = lens _drersRealtimeEndpointInfo (\ s a -> s{_drersRealtimeEndpointInfo = a}); -    request  = post "DeleteRealtimeEndpoint"-    response = jsonResponse+-- | A user-supplied ID that uniquely identifies the 'MLModel'. This value+-- should be identical to the value of the 'MLModelId' in the request.+drersMLModelId :: Lens' DeleteRealtimeEndpointResponse (Maybe Text)+drersMLModelId = lens _drersMLModelId (\ s a -> s{_drersMLModelId = a}); -instance FromJSON DeleteRealtimeEndpointResponse where-    parseJSON = withObject "DeleteRealtimeEndpointResponse" $ \o -> DeleteRealtimeEndpointResponse-        <$> o .:? "MLModelId"-        <*> o .:? "RealtimeEndpointInfo"+-- | The response status code.+drersStatus :: Lens' DeleteRealtimeEndpointResponse Int+drersStatus = lens _drersStatus (\ s a -> s{_drersStatus = a});

@@ -1,252 +1,295 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DescribeBatchPredictions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of 'BatchPrediction' operations that match the search criteria--- in the request.+-- Returns a list of 'BatchPrediction' operations that match the search+-- criteria in the request. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DescribeBatchPredictions.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DescribeBatchPredictions.html AWS API Reference> for DescribeBatchPredictions.+--+-- This operation returns paginated results. module Network.AWS.MachineLearning.DescribeBatchPredictions     (-    -- * Request-      DescribeBatchPredictions-    -- ** Request constructor-    , describeBatchPredictions-    -- ** Request lenses+    -- * Creating a Request+      describeBatchPredictions+    , DescribeBatchPredictions+    -- * Request Lenses     , dbpEQ-    , dbpFilterVariable     , dbpGE+    , dbpPrefix     , dbpGT-    , dbpLE-    , dbpLT-    , dbpLimit     , dbpNE     , dbpNextToken-    , dbpPrefix     , dbpSortOrder+    , dbpLimit+    , dbpLT+    , dbpFilterVariable+    , dbpLE -    -- * Response-    , DescribeBatchPredictionsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeBatchPredictionsResponse-    -- ** Response lenses-    , dbprNextToken-    , dbprResults+    , DescribeBatchPredictionsResponse+    -- * Response Lenses+    , drsResults+    , drsNextToken+    , drsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+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 -data DescribeBatchPredictions = DescribeBatchPredictions-    { _dbpEQ             :: Maybe Text-    , _dbpFilterVariable :: Maybe BatchPredictionFilterVariable-    , _dbpGE             :: Maybe Text-    , _dbpGT             :: Maybe Text-    , _dbpLE             :: Maybe Text-    , _dbpLT             :: Maybe Text-    , _dbpLimit          :: Maybe Nat-    , _dbpNE             :: Maybe Text-    , _dbpNextToken      :: Maybe Text-    , _dbpPrefix         :: Maybe Text-    , _dbpSortOrder      :: Maybe SortOrder-    } deriving (Eq, Read, Show)+-- | /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) --- | 'DescribeBatchPredictions' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeBatchPredictions' with the minimum fields required to make a request. ----- * 'dbpEQ' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dbpFilterVariable' @::@ 'Maybe' 'BatchPredictionFilterVariable'+-- * 'dbpEQ' ----- * 'dbpGE' @::@ 'Maybe' 'Text'+-- * 'dbpGE' ----- * 'dbpGT' @::@ 'Maybe' 'Text'+-- * 'dbpPrefix' ----- * 'dbpLE' @::@ 'Maybe' 'Text'+-- * 'dbpGT' ----- * 'dbpLT' @::@ 'Maybe' 'Text'+-- * 'dbpNE' ----- * 'dbpLimit' @::@ 'Maybe' 'Natural'+-- * 'dbpNextToken' ----- * 'dbpNE' @::@ 'Maybe' 'Text'+-- * 'dbpSortOrder' ----- * 'dbpNextToken' @::@ 'Maybe' 'Text'+-- * 'dbpLimit' ----- * 'dbpPrefix' @::@ 'Maybe' 'Text'+-- * 'dbpLT' ----- * 'dbpSortOrder' @::@ 'Maybe' 'SortOrder'+-- * 'dbpFilterVariable' ---describeBatchPredictions :: DescribeBatchPredictions-describeBatchPredictions = DescribeBatchPredictions-    { _dbpFilterVariable = Nothing-    , _dbpEQ             = Nothing-    , _dbpGT             = Nothing-    , _dbpLT             = Nothing-    , _dbpGE             = Nothing-    , _dbpLE             = Nothing-    , _dbpNE             = Nothing-    , _dbpPrefix         = Nothing-    , _dbpSortOrder      = Nothing-    , _dbpNextToken      = Nothing-    , _dbpLimit          = Nothing+-- * 'dbpLE'+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     } --- | The equal to operator. The 'BatchPrediction' results will have 'FilterVariable'--- values that exactly match the value specified with 'EQ'.+-- | 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 })---- | Use one of the following variables to filter a list of 'BatchPrediction':------ 'CreatedAt' - Sets the search criteria to the 'BatchPrediction' creation date.--- 'Status' - Sets the search criteria to the 'BatchPrediction' status.  'Name' ---- Sets the search criteria to the contents of the '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 Solution--- (Amazon S3) bucket or directory.-dbpFilterVariable :: Lens' DescribeBatchPredictions (Maybe BatchPredictionFilterVariable)-dbpFilterVariable =-    lens _dbpFilterVariable (\s a -> s { _dbpFilterVariable = a })+dbpEQ = lens _dbpEQ (\ s a -> s{_dbpEQ = a}); --- | The greater than or equal to operator. The 'BatchPrediction' results will have 'FilterVariable' values that are greater than or equal to the value specified with 'GE'.+-- | The greater than or equal to operator. The 'BatchPrediction' results+-- will have 'FilterVariable' values that are greater than or equal to the+-- value specified with 'GE'. dbpGE :: Lens' DescribeBatchPredictions (Maybe Text)-dbpGE = lens _dbpGE (\s a -> s { _dbpGE = a })---- | The greater than operator. The 'BatchPrediction' results will have 'FilterVariable' values that are greater than the value specified with 'GT'.-dbpGT :: Lens' DescribeBatchPredictions (Maybe Text)-dbpGT = lens _dbpGT (\s a -> s { _dbpGT = a })---- | The less than or equal to operator. The 'BatchPrediction' results will have 'FilterVariable' values that are less than or equal to the value specified with 'LE'.-dbpLE :: Lens' DescribeBatchPredictions (Maybe Text)-dbpLE = lens _dbpLE (\s a -> s { _dbpLE = a })+dbpGE = lens _dbpGE (\ s a -> s{_dbpGE = a}); --- | The less than operator. The 'BatchPrediction' results will have 'FilterVariable'--- values that are less than the value specified with 'LT'.-dbpLT :: Lens' DescribeBatchPredictions (Maybe Text)-dbpLT = lens _dbpLT (\s a -> s { _dbpLT = a })+-- | A string that is found at the beginning of a variable, such as 'Name' or+-- 'Id'.+--+-- For example, a 'Batch Prediction' operation could have the 'Name'+-- '2014-09-09-HolidayGiftMailer'. To search for this 'BatchPrediction',+-- select 'Name' for the 'FilterVariable' and any of the following strings+-- for the 'Prefix':+--+-- -   2014-09+--+-- -   2014-09-09+--+-- -   2014-09-09-Holiday+--+dbpPrefix :: Lens' DescribeBatchPredictions (Maybe Text)+dbpPrefix = lens _dbpPrefix (\ s a -> s{_dbpPrefix = a}); --- | The number of pages of information to include in the result. The range of--- acceptable values is 1 through 100. The default value is 100.-dbpLimit :: Lens' DescribeBatchPredictions (Maybe Natural)-dbpLimit = lens _dbpLimit (\s a -> s { _dbpLimit = a }) . mapping _Nat+-- | The greater than operator. The 'BatchPrediction' results will have+-- 'FilterVariable' values that are greater than the value specified with+-- 'GT'.+dbpGT :: Lens' DescribeBatchPredictions (Maybe Text)+dbpGT = lens _dbpGT (\ s a -> s{_dbpGT = a}); --- | The not equal to operator. The 'BatchPrediction' results will have 'FilterVariable' values not equal to the value specified with 'NE'.+-- | The not equal to operator. The 'BatchPrediction' results will have+-- 'FilterVariable' values not equal to the value specified with 'NE'. dbpNE :: Lens' DescribeBatchPredictions (Maybe Text)-dbpNE = lens _dbpNE (\s a -> s { _dbpNE = a })+dbpNE = lens _dbpNE (\ s a -> s{_dbpNE = a});  -- | An ID of the page in the paginated results. dbpNextToken :: Lens' DescribeBatchPredictions (Maybe Text)-dbpNextToken = lens _dbpNextToken (\s a -> s { _dbpNextToken = a })+dbpNextToken = lens _dbpNextToken (\ s a -> s{_dbpNextToken = a}); --- | A string that is found at the beginning of a variable, such as 'Name' or 'Id'.------ For example, a 'Batch Prediction' operation could have the 'Name' '2014-09-09-HolidayGiftMailer'. To search for this 'BatchPrediction', select 'Name' for the 'FilterVariable' and--- any of the following strings for the 'Prefix':------ 2014-09------ 2014-09-09------ 2014-09-09-Holiday---+-- | A two-value parameter that determines the sequence of the resulting list+-- of 'MLModel's. ---dbpPrefix :: Lens' DescribeBatchPredictions (Maybe Text)-dbpPrefix = lens _dbpPrefix (\s a -> s { _dbpPrefix = a })---- | A two-value parameter that determines the sequence of the resulting list of 'MLModel's.+-- -   'asc' - Arranges the list in ascending order (A-Z, 0-9).+-- -   'dsc' - Arranges the list in descending order (Z-A, 9-0). ----- 'asc' - Arranges the list in ascending order (A-Z, 0-9).  'dsc' - Arranges the--- list in descending order (Z-A, 9-0).  Results are sorted by 'FilterVariable'.+-- Results are sorted by 'FilterVariable'. dbpSortOrder :: Lens' DescribeBatchPredictions (Maybe SortOrder)-dbpSortOrder = lens _dbpSortOrder (\s a -> s { _dbpSortOrder = a })+dbpSortOrder = lens _dbpSortOrder (\ s a -> s{_dbpSortOrder = a}); -data DescribeBatchPredictionsResponse = DescribeBatchPredictionsResponse-    { _dbprNextToken :: Maybe Text-    , _dbprResults   :: List "Results" BatchPrediction-    } deriving (Eq, Read, Show)+-- | The number of pages of information to include in the result. The range+-- of acceptable values is 1 through 100. The default value is 100.+dbpLimit :: Lens' DescribeBatchPredictions (Maybe Natural)+dbpLimit = lens _dbpLimit (\ s a -> s{_dbpLimit = a}) . mapping _Nat; --- | 'DescribeBatchPredictionsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dbprNextToken' @::@ 'Maybe' 'Text'------ * 'dbprResults' @::@ ['BatchPrediction']+-- | The less than operator. The 'BatchPrediction' results will have+-- 'FilterVariable' values that are less than the value specified with+-- 'LT'.+dbpLT :: Lens' DescribeBatchPredictions (Maybe Text)+dbpLT = lens _dbpLT (\ s a -> s{_dbpLT = a});++-- | Use one of the following variables to filter a list of+-- 'BatchPrediction': ---describeBatchPredictionsResponse :: DescribeBatchPredictionsResponse-describeBatchPredictionsResponse = DescribeBatchPredictionsResponse-    { _dbprResults   = mempty-    , _dbprNextToken = Nothing-    }+-- -   'CreatedAt' - Sets the search criteria to the 'BatchPrediction'+--     creation date.+-- -   'Status' - Sets the search criteria to the 'BatchPrediction' status.+-- -   'Name' - Sets the search criteria to the contents of the+--     '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 Solution (Amazon S3) bucket or directory.+dbpFilterVariable :: Lens' DescribeBatchPredictions (Maybe BatchPredictionFilterVariable)+dbpFilterVariable = lens _dbpFilterVariable (\ s a -> s{_dbpFilterVariable = a}); --- | The ID of the next page in the paginated results that indicates at least one--- more page follows.-dbprNextToken :: Lens' DescribeBatchPredictionsResponse (Maybe Text)-dbprNextToken = lens _dbprNextToken (\s a -> s { _dbprNextToken = a })+-- | The less than or equal to operator. The 'BatchPrediction' results will+-- have 'FilterVariable' values that are less than or equal to the value+-- specified with 'LE'.+dbpLE :: Lens' DescribeBatchPredictions (Maybe Text)+dbpLE = lens _dbpLE (\ s a -> s{_dbpLE = a}); --- | A list of 'BatchPrediction' objects that meet the search criteria.-dbprResults :: Lens' DescribeBatchPredictionsResponse [BatchPrediction]-dbprResults = lens _dbprResults (\s a -> s { _dbprResults = a }) . _List+instance AWSPager DescribeBatchPredictions where+        page rq rs+          | stop (rs ^. drsNextToken) = Nothing+          | stop (rs ^. drsResults) = Nothing+          | otherwise =+            Just $ rq & dbpNextToken .~ rs ^. drsNextToken +instance AWSRequest DescribeBatchPredictions where+        type Sv DescribeBatchPredictions = MachineLearning+        type Rs DescribeBatchPredictions =+             DescribeBatchPredictionsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeBatchPredictionsResponse' <$>+                   (x .?> "Results" .!@ mempty) <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance ToHeaders DescribeBatchPredictions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DescribeBatchPredictions" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeBatchPredictions where+        toJSON DescribeBatchPredictions'{..}+          = object+              ["EQ" .= _dbpEQ, "GE" .= _dbpGE,+               "Prefix" .= _dbpPrefix, "GT" .= _dbpGT,+               "NE" .= _dbpNE, "NextToken" .= _dbpNextToken,+               "SortOrder" .= _dbpSortOrder, "Limit" .= _dbpLimit,+               "LT" .= _dbpLT,+               "FilterVariable" .= _dbpFilterVariable,+               "LE" .= _dbpLE]+ instance ToPath DescribeBatchPredictions where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeBatchPredictions where-    toQuery = const mempty--instance ToHeaders DescribeBatchPredictions+        toQuery = const mempty -instance ToJSON DescribeBatchPredictions where-    toJSON DescribeBatchPredictions{..} = object-        [ "FilterVariable" .= _dbpFilterVariable-        , "EQ"             .= _dbpEQ-        , "GT"             .= _dbpGT-        , "LT"             .= _dbpLT-        , "GE"             .= _dbpGE-        , "LE"             .= _dbpLE-        , "NE"             .= _dbpNE-        , "Prefix"         .= _dbpPrefix-        , "SortOrder"      .= _dbpSortOrder-        , "NextToken"      .= _dbpNextToken-        , "Limit"          .= _dbpLimit-        ]+-- | Represents the output of a DescribeBatchPredictions operation. The+-- content is essentially a list of 'BatchPrediction's.+--+-- /See:/ 'describeBatchPredictionsResponse' smart constructor.+data DescribeBatchPredictionsResponse = DescribeBatchPredictionsResponse'+    { _drsResults   :: !(Maybe [BatchPrediction])+    , _drsNextToken :: !(Maybe Text)+    , _drsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeBatchPredictions where-    type Sv DescribeBatchPredictions = MachineLearning-    type Rs DescribeBatchPredictions = DescribeBatchPredictionsResponse+-- | 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:+--+-- * 'drsResults'+--+-- * 'drsNextToken'+--+-- * 'drsStatus'+describeBatchPredictionsResponse+    :: Int -- ^ 'drsStatus'+    -> DescribeBatchPredictionsResponse+describeBatchPredictionsResponse pStatus_ =+    DescribeBatchPredictionsResponse'+    { _drsResults = Nothing+    , _drsNextToken = Nothing+    , _drsStatus = pStatus_+    } -    request  = post "DescribeBatchPredictions"-    response = jsonResponse+-- | A list of BatchPrediction objects that meet the search criteria.+drsResults :: Lens' DescribeBatchPredictionsResponse [BatchPrediction]+drsResults = lens _drsResults (\ s a -> s{_drsResults = a}) . _Default . _Coerce; -instance FromJSON DescribeBatchPredictionsResponse where-    parseJSON = withObject "DescribeBatchPredictionsResponse" $ \o -> DescribeBatchPredictionsResponse-        <$> o .:? "NextToken"-        <*> o .:? "Results" .!= mempty+-- | The ID of the next page in the paginated results that indicates at least+-- one more page follows.+drsNextToken :: Lens' DescribeBatchPredictionsResponse (Maybe Text)+drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a}); -instance AWSPager DescribeBatchPredictions where-    page rq rs-        | stop (rs ^. dbprNextToken) = Nothing-        | otherwise = (\x -> rq & dbpNextToken ?~ x)-            <$> (rs ^. dbprNextToken)+-- | The response status code.+drsStatus :: Lens' DescribeBatchPredictionsResponse Int+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});

@@ -1,256 +1,289 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DescribeDataSources--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of 'DataSource' that match the search criteria in the request.+-- Returns a list of 'DataSource' that match the search criteria in the+-- request. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DescribeDataSources.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DescribeDataSources.html AWS API Reference> for DescribeDataSources.+--+-- This operation returns paginated results. module Network.AWS.MachineLearning.DescribeDataSources     (-    -- * Request-      DescribeDataSources-    -- ** Request constructor-    , describeDataSources-    -- ** Request lenses+    -- * Creating a Request+      describeDataSources+    , DescribeDataSources+    -- * Request Lenses     , ddsEQ-    , ddsFilterVariable     , ddsGE+    , ddsPrefix     , ddsGT-    , ddsLE-    , ddsLT-    , ddsLimit     , ddsNE     , ddsNextToken-    , ddsPrefix     , ddsSortOrder+    , ddsLimit+    , ddsLT+    , ddsFilterVariable+    , ddsLE -    -- * Response-    , DescribeDataSourcesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeDataSourcesResponse-    -- ** Response lenses-    , ddsrNextToken-    , ddsrResults+    , DescribeDataSourcesResponse+    -- * Response Lenses+    , ddssrsResults+    , ddssrsNextToken+    , ddssrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+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 -data DescribeDataSources = DescribeDataSources-    { _ddsEQ             :: Maybe Text-    , _ddsFilterVariable :: Maybe DataSourceFilterVariable-    , _ddsGE             :: Maybe Text-    , _ddsGT             :: Maybe Text-    , _ddsLE             :: Maybe Text-    , _ddsLT             :: Maybe Text-    , _ddsLimit          :: Maybe Nat-    , _ddsNE             :: Maybe Text-    , _ddsNextToken      :: Maybe Text-    , _ddsPrefix         :: Maybe Text-    , _ddsSortOrder      :: Maybe SortOrder-    } deriving (Eq, Read, Show)+-- | /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) --- | 'DescribeDataSources' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeDataSources' with the minimum fields required to make a request. ----- * 'ddsEQ' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ddsFilterVariable' @::@ 'Maybe' 'DataSourceFilterVariable'+-- * 'ddsEQ' ----- * 'ddsGE' @::@ 'Maybe' 'Text'+-- * 'ddsGE' ----- * 'ddsGT' @::@ 'Maybe' 'Text'+-- * 'ddsPrefix' ----- * 'ddsLE' @::@ 'Maybe' 'Text'+-- * 'ddsGT' ----- * 'ddsLT' @::@ 'Maybe' 'Text'+-- * 'ddsNE' ----- * 'ddsLimit' @::@ 'Maybe' 'Natural'+-- * 'ddsNextToken' ----- * 'ddsNE' @::@ 'Maybe' 'Text'+-- * 'ddsSortOrder' ----- * 'ddsNextToken' @::@ 'Maybe' 'Text'+-- * 'ddsLimit' ----- * 'ddsPrefix' @::@ 'Maybe' 'Text'+-- * 'ddsLT' ----- * 'ddsSortOrder' @::@ 'Maybe' 'SortOrder'+-- * 'ddsFilterVariable' ---describeDataSources :: DescribeDataSources-describeDataSources = DescribeDataSources-    { _ddsFilterVariable = Nothing-    , _ddsEQ             = Nothing-    , _ddsGT             = Nothing-    , _ddsLT             = Nothing-    , _ddsGE             = Nothing-    , _ddsLE             = Nothing-    , _ddsNE             = Nothing-    , _ddsPrefix         = Nothing-    , _ddsSortOrder      = Nothing-    , _ddsNextToken      = Nothing-    , _ddsLimit          = Nothing+-- * 'ddsLE'+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     } --- | The equal to operator. The 'DataSource' results will have 'FilterVariable' values--- that exactly match the value specified with 'EQ'.+-- | 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 })---- | Use one of the following variables to filter a list of 'DataSource':------ 'CreatedAt' - Sets the search criteria to 'DataSource' creation dates.  'Status'--- - Sets the search criteria to 'DataSource' statuses.  '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.-ddsFilterVariable :: Lens' DescribeDataSources (Maybe DataSourceFilterVariable)-ddsFilterVariable =-    lens _ddsFilterVariable (\s a -> s { _ddsFilterVariable = a })+ddsEQ = lens _ddsEQ (\ s a -> s{_ddsEQ = a}); --- | The greater than or equal to operator. The 'DataSource' results will have 'FilterVariable' values that are greater than or equal to the value specified with 'GE'.+-- | The greater than or equal to operator. The 'DataSource' results will+-- have 'FilterVariable' values that are greater than or equal to the value+-- specified with 'GE'. ddsGE :: Lens' DescribeDataSources (Maybe Text)-ddsGE = lens _ddsGE (\s a -> s { _ddsGE = a })---- | The greater than operator. The 'DataSource' results will have 'FilterVariable'--- values that are greater than the value specified with 'GT'.-ddsGT :: Lens' DescribeDataSources (Maybe Text)-ddsGT = lens _ddsGT (\s a -> s { _ddsGT = a })---- | The less than or equal to operator. The 'DataSource' results will have 'FilterVariable' values that are less than or equal to the value specified with 'LE'.-ddsLE :: Lens' DescribeDataSources (Maybe Text)-ddsLE = lens _ddsLE (\s a -> s { _ddsLE = a })+ddsGE = lens _ddsGE (\ s a -> s{_ddsGE = a}); --- | The less than operator. The 'DataSource' results will have 'FilterVariable'--- values that are less than the value specified with 'LT'.-ddsLT :: Lens' DescribeDataSources (Maybe Text)-ddsLT = lens _ddsLT (\s a -> s { _ddsLT = a })+-- | A string that is found at the beginning of a variable, such as 'Name' or+-- 'Id'.+--+-- For example, a 'DataSource' could have the 'Name'+-- '2014-09-09-HolidayGiftMailer'. To search for this 'DataSource', select+-- 'Name' for the 'FilterVariable' and any of the following strings for the+-- 'Prefix':+--+-- -   2014-09+--+-- -   2014-09-09+--+-- -   2014-09-09-Holiday+--+ddsPrefix :: Lens' DescribeDataSources (Maybe Text)+ddsPrefix = lens _ddsPrefix (\ s a -> s{_ddsPrefix = a}); --- | The maximum number of 'DataSource' to include in the result.-ddsLimit :: Lens' DescribeDataSources (Maybe Natural)-ddsLimit = lens _ddsLimit (\s a -> s { _ddsLimit = a }) . mapping _Nat+-- | The greater than operator. The 'DataSource' results will have+-- 'FilterVariable' values that are greater than the value specified with+-- 'GT'.+ddsGT :: Lens' DescribeDataSources (Maybe Text)+ddsGT = lens _ddsGT (\ s a -> s{_ddsGT = a}); --- | The not equal to operator. The 'DataSource' results will have 'FilterVariable'--- values not equal to the value specified with 'NE'.+-- | The not equal to operator. The 'DataSource' results will have+-- 'FilterVariable' values not equal to the value specified with 'NE'. ddsNE :: Lens' DescribeDataSources (Maybe Text)-ddsNE = lens _ddsNE (\s a -> s { _ddsNE = a })+ddsNE = lens _ddsNE (\ s a -> s{_ddsNE = a});  -- | The ID of the page in the paginated results. ddsNextToken :: Lens' DescribeDataSources (Maybe Text)-ddsNextToken = lens _ddsNextToken (\s a -> s { _ddsNextToken = a })+ddsNextToken = lens _ddsNextToken (\ s a -> s{_ddsNextToken = a}); --- | A string that is found at the beginning of a variable, such as 'Name' or 'Id'.------ For example, a 'DataSource' could have the 'Name' '2014-09-09-HolidayGiftMailer'.--- To search for this 'DataSource', select 'Name' for the 'FilterVariable' and any of--- the following strings for the 'Prefix':------ 2014-09------ 2014-09-09------ 2014-09-09-Holiday---+-- | A two-value parameter that determines the sequence of the resulting list+-- of 'DataSource'. ---ddsPrefix :: Lens' DescribeDataSources (Maybe Text)-ddsPrefix = lens _ddsPrefix (\s a -> s { _ddsPrefix = a })---- | A two-value parameter that determines the sequence of the resulting list of 'DataSource'.+-- -   'asc' - Arranges the list in ascending order (A-Z, 0-9).+-- -   'dsc' - Arranges the list in descending order (Z-A, 9-0). ----- 'asc' - Arranges the list in ascending order (A-Z, 0-9).  'dsc' - Arranges the--- list in descending order (Z-A, 9-0).  Results are sorted by 'FilterVariable'.+-- Results are sorted by 'FilterVariable'. ddsSortOrder :: Lens' DescribeDataSources (Maybe SortOrder)-ddsSortOrder = lens _ddsSortOrder (\s a -> s { _ddsSortOrder = a })+ddsSortOrder = lens _ddsSortOrder (\ s a -> s{_ddsSortOrder = a}); -data DescribeDataSourcesResponse = DescribeDataSourcesResponse-    { _ddsrNextToken :: Maybe Text-    , _ddsrResults   :: List "Results" DataSource-    } deriving (Eq, Read, Show)+-- | The maximum number of 'DataSource' to include in the result.+ddsLimit :: Lens' DescribeDataSources (Maybe Natural)+ddsLimit = lens _ddsLimit (\ s a -> s{_ddsLimit = a}) . mapping _Nat; --- | 'DescribeDataSourcesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ddsrNextToken' @::@ 'Maybe' 'Text'------ * 'ddsrResults' @::@ ['DataSource']+-- | The less than operator. The 'DataSource' results will have+-- 'FilterVariable' values that are less than the value specified with+-- 'LT'.+ddsLT :: Lens' DescribeDataSources (Maybe Text)+ddsLT = lens _ddsLT (\ s a -> s{_ddsLT = a});++-- | Use one of the following variables to filter a list of 'DataSource': ---describeDataSourcesResponse :: DescribeDataSourcesResponse-describeDataSourcesResponse = DescribeDataSourcesResponse-    { _ddsrResults   = mempty-    , _ddsrNextToken = Nothing-    }+-- -   'CreatedAt' - Sets the search criteria to 'DataSource' creation+--     dates.+-- -   'Status' - Sets the search criteria to 'DataSource' statuses.+-- -   '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.+ddsFilterVariable :: Lens' DescribeDataSources (Maybe DataSourceFilterVariable)+ddsFilterVariable = lens _ddsFilterVariable (\ s a -> s{_ddsFilterVariable = a}); --- | An ID of the next page in the paginated results that indicates at least one--- more page follows.-ddsrNextToken :: Lens' DescribeDataSourcesResponse (Maybe Text)-ddsrNextToken = lens _ddsrNextToken (\s a -> s { _ddsrNextToken = a })+-- | The less than or equal to operator. The 'DataSource' results will have+-- 'FilterVariable' values that are less than or equal to the value+-- specified with 'LE'.+ddsLE :: Lens' DescribeDataSources (Maybe Text)+ddsLE = lens _ddsLE (\ s a -> s{_ddsLE = a}); --- | A list of 'DataSource' that meet the search criteria.-ddsrResults :: Lens' DescribeDataSourcesResponse [DataSource]-ddsrResults = lens _ddsrResults (\s a -> s { _ddsrResults = a }) . _List+instance AWSPager DescribeDataSources where+        page rq rs+          | stop (rs ^. ddssrsNextToken) = Nothing+          | stop (rs ^. ddssrsResults) = Nothing+          | otherwise =+            Just $ rq & ddsNextToken .~ rs ^. ddssrsNextToken +instance AWSRequest DescribeDataSources where+        type Sv DescribeDataSources = MachineLearning+        type Rs DescribeDataSources =+             DescribeDataSourcesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeDataSourcesResponse' <$>+                   (x .?> "Results" .!@ mempty) <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance ToHeaders DescribeDataSources where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DescribeDataSources" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeDataSources where+        toJSON DescribeDataSources'{..}+          = object+              ["EQ" .= _ddsEQ, "GE" .= _ddsGE,+               "Prefix" .= _ddsPrefix, "GT" .= _ddsGT,+               "NE" .= _ddsNE, "NextToken" .= _ddsNextToken,+               "SortOrder" .= _ddsSortOrder, "Limit" .= _ddsLimit,+               "LT" .= _ddsLT,+               "FilterVariable" .= _ddsFilterVariable,+               "LE" .= _ddsLE]+ instance ToPath DescribeDataSources where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeDataSources where-    toQuery = const mempty--instance ToHeaders DescribeDataSources+        toQuery = const mempty -instance ToJSON DescribeDataSources where-    toJSON DescribeDataSources{..} = object-        [ "FilterVariable" .= _ddsFilterVariable-        , "EQ"             .= _ddsEQ-        , "GT"             .= _ddsGT-        , "LT"             .= _ddsLT-        , "GE"             .= _ddsGE-        , "LE"             .= _ddsLE-        , "NE"             .= _ddsNE-        , "Prefix"         .= _ddsPrefix-        , "SortOrder"      .= _ddsSortOrder-        , "NextToken"      .= _ddsNextToken-        , "Limit"          .= _ddsLimit-        ]+-- | Represents the query results from a DescribeDataSources operation. The+-- content is essentially a list of 'DataSource'.+--+-- /See:/ 'describeDataSourcesResponse' smart constructor.+data DescribeDataSourcesResponse = DescribeDataSourcesResponse'+    { _ddssrsResults   :: !(Maybe [DataSource])+    , _ddssrsNextToken :: !(Maybe Text)+    , _ddssrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeDataSources where-    type Sv DescribeDataSources = MachineLearning-    type Rs DescribeDataSources = DescribeDataSourcesResponse+-- | 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:+--+-- * 'ddssrsResults'+--+-- * 'ddssrsNextToken'+--+-- * 'ddssrsStatus'+describeDataSourcesResponse+    :: Int -- ^ 'ddssrsStatus'+    -> DescribeDataSourcesResponse+describeDataSourcesResponse pStatus_ =+    DescribeDataSourcesResponse'+    { _ddssrsResults = Nothing+    , _ddssrsNextToken = Nothing+    , _ddssrsStatus = pStatus_+    } -    request  = post "DescribeDataSources"-    response = jsonResponse+-- | A list of 'DataSource' that meet the search criteria.+ddssrsResults :: Lens' DescribeDataSourcesResponse [DataSource]+ddssrsResults = lens _ddssrsResults (\ s a -> s{_ddssrsResults = a}) . _Default . _Coerce; -instance FromJSON DescribeDataSourcesResponse where-    parseJSON = withObject "DescribeDataSourcesResponse" $ \o -> DescribeDataSourcesResponse-        <$> o .:? "NextToken"-        <*> o .:? "Results" .!= mempty+-- | An ID of the next page in the paginated results that indicates at least+-- one more page follows.+ddssrsNextToken :: Lens' DescribeDataSourcesResponse (Maybe Text)+ddssrsNextToken = lens _ddssrsNextToken (\ s a -> s{_ddssrsNextToken = a}); -instance AWSPager DescribeDataSources where-    page rq rs-        | stop (rs ^. ddsrNextToken) = Nothing-        | otherwise = (\x -> rq & ddsNextToken ?~ x)-            <$> (rs ^. ddsrNextToken)+-- | The response status code.+ddssrsStatus :: Lens' DescribeDataSourcesResponse Int+ddssrsStatus = lens _ddssrsStatus (\ s a -> s{_ddssrsStatus = a});

@@ -1,257 +1,293 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DescribeEvaluations--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of 'DescribeEvaluations' that match the search criteria in the--- request.+-- Returns a list of 'DescribeEvaluations' that match the search criteria+-- in the request. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DescribeEvaluations.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DescribeEvaluations.html AWS API Reference> for DescribeEvaluations.+--+-- This operation returns paginated results. module Network.AWS.MachineLearning.DescribeEvaluations     (-    -- * Request-      DescribeEvaluations-    -- ** Request constructor-    , describeEvaluations-    -- ** Request lenses+    -- * Creating a Request+      describeEvaluations+    , DescribeEvaluations+    -- * Request Lenses     , deEQ-    , deFilterVariable     , deGE+    , dePrefix     , deGT-    , deLE-    , deLT-    , deLimit     , deNE     , deNextToken-    , dePrefix     , deSortOrder+    , deLimit+    , deLT+    , deFilterVariable+    , deLE -    -- * Response-    , DescribeEvaluationsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeEvaluationsResponse-    -- ** Response lenses-    , derNextToken-    , derResults+    , DescribeEvaluationsResponse+    -- * Response Lenses+    , desrsResults+    , desrsNextToken+    , desrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+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 -data DescribeEvaluations = DescribeEvaluations-    { _deEQ             :: Maybe Text-    , _deFilterVariable :: Maybe EvaluationFilterVariable-    , _deGE             :: Maybe Text-    , _deGT             :: Maybe Text-    , _deLE             :: Maybe Text-    , _deLT             :: Maybe Text-    , _deLimit          :: Maybe Nat-    , _deNE             :: Maybe Text-    , _deNextToken      :: Maybe Text-    , _dePrefix         :: Maybe Text-    , _deSortOrder      :: Maybe SortOrder-    } deriving (Eq, Read, Show)+-- | /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) --- | 'DescribeEvaluations' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeEvaluations' with the minimum fields required to make a request. ----- * 'deEQ' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'deFilterVariable' @::@ 'Maybe' 'EvaluationFilterVariable'+-- * 'deEQ' ----- * 'deGE' @::@ 'Maybe' 'Text'+-- * 'deGE' ----- * 'deGT' @::@ 'Maybe' 'Text'+-- * 'dePrefix' ----- * 'deLE' @::@ 'Maybe' 'Text'+-- * 'deGT' ----- * 'deLT' @::@ 'Maybe' 'Text'+-- * 'deNE' ----- * 'deLimit' @::@ 'Maybe' 'Natural'+-- * 'deNextToken' ----- * 'deNE' @::@ 'Maybe' 'Text'+-- * 'deSortOrder' ----- * 'deNextToken' @::@ 'Maybe' 'Text'+-- * 'deLimit' ----- * 'dePrefix' @::@ 'Maybe' 'Text'+-- * 'deLT' ----- * 'deSortOrder' @::@ 'Maybe' 'SortOrder'+-- * 'deFilterVariable' ---describeEvaluations :: DescribeEvaluations-describeEvaluations = DescribeEvaluations-    { _deFilterVariable = Nothing-    , _deEQ             = Nothing-    , _deGT             = Nothing-    , _deLT             = Nothing-    , _deGE             = Nothing-    , _deLE             = Nothing-    , _deNE             = Nothing-    , _dePrefix         = Nothing-    , _deSortOrder      = Nothing-    , _deNextToken      = Nothing-    , _deLimit          = Nothing+-- * 'deLE'+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     } --- | The equal to operator. The 'Evaluation' results will have 'FilterVariable' values--- that exactly match the value specified with 'EQ'.+-- | 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 })---- | Use one of the following variable to filter a list of 'Evaluation' objects:------ 'CreatedAt' - Sets the search criteria to the 'Evaluation' creation date.  'Status' - Sets the search criteria to the '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 'MLModel' 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 Solution (Amazon S3) bucket or--- directory.-deFilterVariable :: Lens' DescribeEvaluations (Maybe EvaluationFilterVariable)-deFilterVariable = lens _deFilterVariable (\s a -> s { _deFilterVariable = a })+deEQ = lens _deEQ (\ s a -> s{_deEQ = a}); --- | The greater than or equal to operator. The 'Evaluation' results will have 'FilterVariable' values that are greater than or equal to the value specified with 'GE'.+-- | The greater than or equal to operator. The 'Evaluation' results will+-- have 'FilterVariable' values that are greater than or equal to the value+-- specified with 'GE'. deGE :: Lens' DescribeEvaluations (Maybe Text)-deGE = lens _deGE (\s a -> s { _deGE = a })---- | The greater than operator. The 'Evaluation' results will have 'FilterVariable'--- values that are greater than the value specified with 'GT'.-deGT :: Lens' DescribeEvaluations (Maybe Text)-deGT = lens _deGT (\s a -> s { _deGT = a })---- | The less than or equal to operator. The 'Evaluation' results will have 'FilterVariable' values that are less than or equal to the value specified with 'LE'.-deLE :: Lens' DescribeEvaluations (Maybe Text)-deLE = lens _deLE (\s a -> s { _deLE = a })+deGE = lens _deGE (\ s a -> s{_deGE = a}); --- | The less than operator. The 'Evaluation' results will have 'FilterVariable'--- values that are less than the value specified with 'LT'.-deLT :: Lens' DescribeEvaluations (Maybe Text)-deLT = lens _deLT (\s a -> s { _deLT = a })+-- | A string that is found at the beginning of a variable, such as 'Name' or+-- 'Id'.+--+-- For example, an 'Evaluation' could have the 'Name'+-- '2014-09-09-HolidayGiftMailer'. To search for this 'Evaluation', select+-- 'Name' for the 'FilterVariable' and any of the following strings for the+-- 'Prefix':+--+-- -   2014-09+--+-- -   2014-09-09+--+-- -   2014-09-09-Holiday+--+dePrefix :: Lens' DescribeEvaluations (Maybe Text)+dePrefix = lens _dePrefix (\ s a -> s{_dePrefix = a}); --- | The maximum number of 'Evaluation' to include in the result.-deLimit :: Lens' DescribeEvaluations (Maybe Natural)-deLimit = lens _deLimit (\s a -> s { _deLimit = a }) . mapping _Nat+-- | The greater than operator. The 'Evaluation' results will have+-- 'FilterVariable' values that are greater than the value specified with+-- 'GT'.+deGT :: Lens' DescribeEvaluations (Maybe Text)+deGT = lens _deGT (\ s a -> s{_deGT = a}); --- | The not equal to operator. The 'Evaluation' results will have 'FilterVariable'--- values not equal to the value specified with 'NE'.+-- | The not equal to operator. The 'Evaluation' results will have+-- 'FilterVariable' values not equal to the value specified with 'NE'. deNE :: Lens' DescribeEvaluations (Maybe Text)-deNE = lens _deNE (\s a -> s { _deNE = a })+deNE = lens _deNE (\ s a -> s{_deNE = a});  -- | The ID of the page in the paginated results. deNextToken :: Lens' DescribeEvaluations (Maybe Text)-deNextToken = lens _deNextToken (\s a -> s { _deNextToken = a })+deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a}); --- | A string that is found at the beginning of a variable, such as 'Name' or 'Id'.------ For example, an 'Evaluation' could have the 'Name' '2014-09-09-HolidayGiftMailer'.--- To search for this 'Evaluation', select 'Name' for the 'FilterVariable' and any of--- the following strings for the 'Prefix':------ 2014-09------ 2014-09-09------ 2014-09-09-Holiday---+-- | A two-value parameter that determines the sequence of the resulting list+-- of 'Evaluation'. ---dePrefix :: Lens' DescribeEvaluations (Maybe Text)-dePrefix = lens _dePrefix (\s a -> s { _dePrefix = a })---- | A two-value parameter that determines the sequence of the resulting list of 'Evaluation'.+-- -   'asc' - Arranges the list in ascending order (A-Z, 0-9).+-- -   'dsc' - Arranges the list in descending order (Z-A, 9-0). ----- 'asc' - Arranges the list in ascending order (A-Z, 0-9).  'dsc' - Arranges the--- list in descending order (Z-A, 9-0).  Results are sorted by 'FilterVariable'.+-- Results are sorted by 'FilterVariable'. deSortOrder :: Lens' DescribeEvaluations (Maybe SortOrder)-deSortOrder = lens _deSortOrder (\s a -> s { _deSortOrder = a })+deSortOrder = lens _deSortOrder (\ s a -> s{_deSortOrder = a}); -data DescribeEvaluationsResponse = DescribeEvaluationsResponse-    { _derNextToken :: Maybe Text-    , _derResults   :: List "Results" Evaluation-    } deriving (Eq, Read, Show)+-- | The maximum number of 'Evaluation' to include in the result.+deLimit :: Lens' DescribeEvaluations (Maybe Natural)+deLimit = lens _deLimit (\ s a -> s{_deLimit = a}) . mapping _Nat; --- | 'DescribeEvaluationsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'derNextToken' @::@ 'Maybe' 'Text'------ * 'derResults' @::@ ['Evaluation']+-- | The less than operator. The 'Evaluation' results will have+-- 'FilterVariable' values that are less than the value specified with+-- 'LT'.+deLT :: Lens' DescribeEvaluations (Maybe Text)+deLT = lens _deLT (\ s a -> s{_deLT = a});++-- | Use one of the following variable to filter a list of 'Evaluation'+-- objects: ---describeEvaluationsResponse :: DescribeEvaluationsResponse-describeEvaluationsResponse = DescribeEvaluationsResponse-    { _derResults   = mempty-    , _derNextToken = Nothing-    }+-- -   'CreatedAt' - Sets the search criteria to the 'Evaluation' creation+--     date.+-- -   'Status' - Sets the search criteria to the '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 'MLModel' 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 Solution (Amazon S3) bucket or directory.+deFilterVariable :: Lens' DescribeEvaluations (Maybe EvaluationFilterVariable)+deFilterVariable = lens _deFilterVariable (\ s a -> s{_deFilterVariable = a}); --- | The ID of the next page in the paginated results that indicates at least one--- more page follows.-derNextToken :: Lens' DescribeEvaluationsResponse (Maybe Text)-derNextToken = lens _derNextToken (\s a -> s { _derNextToken = a })+-- | The less than or equal to operator. The 'Evaluation' results will have+-- 'FilterVariable' values that are less than or equal to the value+-- specified with 'LE'.+deLE :: Lens' DescribeEvaluations (Maybe Text)+deLE = lens _deLE (\ s a -> s{_deLE = a}); --- | A list of 'Evaluation' that meet the search criteria.-derResults :: Lens' DescribeEvaluationsResponse [Evaluation]-derResults = lens _derResults (\s a -> s { _derResults = a }) . _List+instance AWSPager DescribeEvaluations where+        page rq rs+          | stop (rs ^. desrsNextToken) = Nothing+          | stop (rs ^. desrsResults) = Nothing+          | otherwise =+            Just $ rq & deNextToken .~ rs ^. desrsNextToken +instance AWSRequest DescribeEvaluations where+        type Sv DescribeEvaluations = MachineLearning+        type Rs DescribeEvaluations =+             DescribeEvaluationsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEvaluationsResponse' <$>+                   (x .?> "Results" .!@ mempty) <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance ToHeaders DescribeEvaluations where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DescribeEvaluations" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEvaluations where+        toJSON DescribeEvaluations'{..}+          = object+              ["EQ" .= _deEQ, "GE" .= _deGE, "Prefix" .= _dePrefix,+               "GT" .= _deGT, "NE" .= _deNE,+               "NextToken" .= _deNextToken,+               "SortOrder" .= _deSortOrder, "Limit" .= _deLimit,+               "LT" .= _deLT, "FilterVariable" .= _deFilterVariable,+               "LE" .= _deLE]+ instance ToPath DescribeEvaluations where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeEvaluations where-    toQuery = const mempty--instance ToHeaders DescribeEvaluations+        toQuery = const mempty -instance ToJSON DescribeEvaluations where-    toJSON DescribeEvaluations{..} = object-        [ "FilterVariable" .= _deFilterVariable-        , "EQ"             .= _deEQ-        , "GT"             .= _deGT-        , "LT"             .= _deLT-        , "GE"             .= _deGE-        , "LE"             .= _deLE-        , "NE"             .= _deNE-        , "Prefix"         .= _dePrefix-        , "SortOrder"      .= _deSortOrder-        , "NextToken"      .= _deNextToken-        , "Limit"          .= _deLimit-        ]+-- | Represents the query results from a DescribeEvaluations operation. The+-- content is essentially a list of 'Evaluation'.+--+-- /See:/ 'describeEvaluationsResponse' smart constructor.+data DescribeEvaluationsResponse = DescribeEvaluationsResponse'+    { _desrsResults   :: !(Maybe [Evaluation])+    , _desrsNextToken :: !(Maybe Text)+    , _desrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeEvaluations where-    type Sv DescribeEvaluations = MachineLearning-    type Rs DescribeEvaluations = DescribeEvaluationsResponse+-- | 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:+--+-- * 'desrsResults'+--+-- * 'desrsNextToken'+--+-- * 'desrsStatus'+describeEvaluationsResponse+    :: Int -- ^ 'desrsStatus'+    -> DescribeEvaluationsResponse+describeEvaluationsResponse pStatus_ =+    DescribeEvaluationsResponse'+    { _desrsResults = Nothing+    , _desrsNextToken = Nothing+    , _desrsStatus = pStatus_+    } -    request  = post "DescribeEvaluations"-    response = jsonResponse+-- | A list of Evaluation that meet the search criteria.+desrsResults :: Lens' DescribeEvaluationsResponse [Evaluation]+desrsResults = lens _desrsResults (\ s a -> s{_desrsResults = a}) . _Default . _Coerce; -instance FromJSON DescribeEvaluationsResponse where-    parseJSON = withObject "DescribeEvaluationsResponse" $ \o -> DescribeEvaluationsResponse-        <$> o .:? "NextToken"-        <*> o .:? "Results" .!= mempty+-- | The ID of the next page in the paginated results that indicates at least+-- one more page follows.+desrsNextToken :: Lens' DescribeEvaluationsResponse (Maybe Text)+desrsNextToken = lens _desrsNextToken (\ s a -> s{_desrsNextToken = a}); -instance AWSPager DescribeEvaluations where-    page rq rs-        | stop (rs ^. derNextToken) = Nothing-        | otherwise = (\x -> rq & deNextToken ?~ x)-            <$> (rs ^. derNextToken)+-- | The response status code.+desrsStatus :: Lens' DescribeEvaluationsResponse Int+desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});

@@ -1,258 +1,293 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.DescribeMLModels--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of 'MLModel' that match the search criteria in the request.+-- Returns a list of 'MLModel' that match the search criteria in the+-- request. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DescribeMLModels.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_DescribeMLModels.html AWS API Reference> for DescribeMLModels.+--+-- This operation returns paginated results. module Network.AWS.MachineLearning.DescribeMLModels     (-    -- * Request-      DescribeMLModels-    -- ** Request constructor-    , describeMLModels-    -- ** Request lenses+    -- * Creating a Request+      describeMLModels+    , DescribeMLModels+    -- * Request Lenses     , dmlmEQ-    , dmlmFilterVariable     , dmlmGE+    , dmlmPrefix     , dmlmGT-    , dmlmLE-    , dmlmLT-    , dmlmLimit     , dmlmNE     , dmlmNextToken-    , dmlmPrefix     , dmlmSortOrder+    , dmlmLimit+    , dmlmLT+    , dmlmFilterVariable+    , dmlmLE -    -- * Response-    , DescribeMLModelsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeMLModelsResponse-    -- ** Response lenses-    , dmlmrNextToken-    , dmlmrResults+    , DescribeMLModelsResponse+    -- * Response Lenses+    , dmlmsrsResults+    , dmlmsrsNextToken+    , dmlmsrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+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 -data DescribeMLModels = DescribeMLModels-    { _dmlmEQ             :: Maybe Text-    , _dmlmFilterVariable :: Maybe MLModelFilterVariable-    , _dmlmGE             :: Maybe Text-    , _dmlmGT             :: Maybe Text-    , _dmlmLE             :: Maybe Text-    , _dmlmLT             :: Maybe Text-    , _dmlmLimit          :: Maybe Nat-    , _dmlmNE             :: Maybe Text-    , _dmlmNextToken      :: Maybe Text-    , _dmlmPrefix         :: Maybe Text-    , _dmlmSortOrder      :: Maybe SortOrder-    } deriving (Eq, Read, Show)+-- | /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) --- | 'DescribeMLModels' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeMLModels' with the minimum fields required to make a request. ----- * 'dmlmEQ' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dmlmFilterVariable' @::@ 'Maybe' 'MLModelFilterVariable'+-- * 'dmlmEQ' ----- * 'dmlmGE' @::@ 'Maybe' 'Text'+-- * 'dmlmGE' ----- * 'dmlmGT' @::@ 'Maybe' 'Text'+-- * 'dmlmPrefix' ----- * 'dmlmLE' @::@ 'Maybe' 'Text'+-- * 'dmlmGT' ----- * 'dmlmLT' @::@ 'Maybe' 'Text'+-- * 'dmlmNE' ----- * 'dmlmLimit' @::@ 'Maybe' 'Natural'+-- * 'dmlmNextToken' ----- * 'dmlmNE' @::@ 'Maybe' 'Text'+-- * 'dmlmSortOrder' ----- * 'dmlmNextToken' @::@ 'Maybe' 'Text'+-- * 'dmlmLimit' ----- * 'dmlmPrefix' @::@ 'Maybe' 'Text'+-- * 'dmlmLT' ----- * 'dmlmSortOrder' @::@ 'Maybe' 'SortOrder'+-- * 'dmlmFilterVariable' ---describeMLModels :: DescribeMLModels-describeMLModels = DescribeMLModels-    { _dmlmFilterVariable = Nothing-    , _dmlmEQ             = Nothing-    , _dmlmGT             = Nothing-    , _dmlmLT             = Nothing-    , _dmlmGE             = Nothing-    , _dmlmLE             = Nothing-    , _dmlmNE             = Nothing-    , _dmlmPrefix         = Nothing-    , _dmlmSortOrder      = Nothing-    , _dmlmNextToken      = Nothing-    , _dmlmLimit          = Nothing+-- * 'dmlmLE'+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     } --- | The equal to operator. The 'MLModel' results will have 'FilterVariable' values--- that exactly match the value specified with 'EQ'.+-- | 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 })---- | Use one of the following variables to filter a list of 'MLModel':------ 'CreatedAt' - Sets the search criteria to 'MLModel' creation date.  'Status' ---- Sets the search criteria to 'MLModel' status.  'Name' - Sets the search criteria--- to the contents of 'MLModel'  'Name'.  'IAMUser' - Sets the search criteria to the--- user account that invoked the 'MLModel' creation.  'TrainingDataSourceId' - Sets--- the search criteria to the 'DataSource' used to train one or more 'MLModel'.  'RealtimeEndpointStatus' - Sets the search criteria to the 'MLModel' real-time endpoint status.  'MLModelType' - Sets the search criteria to 'MLModel' type: binary, regression, or--- multi-class.  'Algorithm' - Sets the search criteria to the algorithm that the 'MLModel' uses.  'TrainingDataURI' - Sets the search criteria to the data file(s) used--- in training a 'MLModel'. The URL can identify either a file or an Amazon Simple--- Storage Service (Amazon S3) bucket or directory.-dmlmFilterVariable :: Lens' DescribeMLModels (Maybe MLModelFilterVariable)-dmlmFilterVariable =-    lens _dmlmFilterVariable (\s a -> s { _dmlmFilterVariable = a })+dmlmEQ = lens _dmlmEQ (\ s a -> s{_dmlmEQ = a}); --- | The greater than or equal to operator. The 'MLModel' results will have 'FilterVariable' values that are greater than or equal to the value specified with 'GE'.+-- | The greater than or equal to operator. The 'MLModel' results will have+-- 'FilterVariable' values that are greater than or equal to the value+-- specified with 'GE'. dmlmGE :: Lens' DescribeMLModels (Maybe Text)-dmlmGE = lens _dmlmGE (\s a -> s { _dmlmGE = a })---- | The greater than operator. The 'MLModel' results will have 'FilterVariable'--- values that are greater than the value specified with 'GT'.-dmlmGT :: Lens' DescribeMLModels (Maybe Text)-dmlmGT = lens _dmlmGT (\s a -> s { _dmlmGT = a })---- | The less than or equal to operator. The 'MLModel' results will have 'FilterVariable' values that are less than or equal to the value specified with 'LE'.-dmlmLE :: Lens' DescribeMLModels (Maybe Text)-dmlmLE = lens _dmlmLE (\s a -> s { _dmlmLE = a })+dmlmGE = lens _dmlmGE (\ s a -> s{_dmlmGE = a}); --- | The less than operator. The 'MLModel' results will have 'FilterVariable' values--- that are less than the value specified with 'LT'.-dmlmLT :: Lens' DescribeMLModels (Maybe Text)-dmlmLT = lens _dmlmLT (\s a -> s { _dmlmLT = a })+-- | A string that is found at the beginning of a variable, such as 'Name' or+-- 'Id'.+--+-- For example, an 'MLModel' could have the 'Name'+-- '2014-09-09-HolidayGiftMailer'. To search for this 'MLModel', select+-- 'Name' for the 'FilterVariable' and any of the following strings for the+-- 'Prefix':+--+-- -   2014-09+--+-- -   2014-09-09+--+-- -   2014-09-09-Holiday+--+dmlmPrefix :: Lens' DescribeMLModels (Maybe Text)+dmlmPrefix = lens _dmlmPrefix (\ s a -> s{_dmlmPrefix = a}); --- | The number of pages of information to include in the result. The range of--- acceptable values is 1 through 100. The default value is 100.-dmlmLimit :: Lens' DescribeMLModels (Maybe Natural)-dmlmLimit = lens _dmlmLimit (\s a -> s { _dmlmLimit = a }) . mapping _Nat+-- | The greater than operator. The 'MLModel' results will have+-- 'FilterVariable' values that are greater than the value specified with+-- 'GT'.+dmlmGT :: Lens' DescribeMLModels (Maybe Text)+dmlmGT = lens _dmlmGT (\ s a -> s{_dmlmGT = a}); --- | The not equal to operator. The 'MLModel' results will have 'FilterVariable'--- values not equal to the value specified with 'NE'.+-- | The not equal to operator. The 'MLModel' results will have+-- 'FilterVariable' values not equal to the value specified with 'NE'. dmlmNE :: Lens' DescribeMLModels (Maybe Text)-dmlmNE = lens _dmlmNE (\s a -> s { _dmlmNE = a })+dmlmNE = lens _dmlmNE (\ s a -> s{_dmlmNE = a});  -- | The ID of the page in the paginated results. dmlmNextToken :: Lens' DescribeMLModels (Maybe Text)-dmlmNextToken = lens _dmlmNextToken (\s a -> s { _dmlmNextToken = a })+dmlmNextToken = lens _dmlmNextToken (\ s a -> s{_dmlmNextToken = a}); --- | A string that is found at the beginning of a variable, such as 'Name' or 'Id'.------ For example, an 'MLModel' could have the 'Name' '2014-09-09-HolidayGiftMailer'. To--- search for this 'MLModel', select 'Name' for the 'FilterVariable' and any of the--- following strings for the 'Prefix':------ 2014-09------ 2014-09-09------ 2014-09-09-Holiday---+-- | A two-value parameter that determines the sequence of the resulting list+-- of 'MLModel'. ---dmlmPrefix :: Lens' DescribeMLModels (Maybe Text)-dmlmPrefix = lens _dmlmPrefix (\s a -> s { _dmlmPrefix = a })---- | A two-value parameter that determines the sequence of the resulting list of 'MLModel'.+-- -   'asc' - Arranges the list in ascending order (A-Z, 0-9).+-- -   'dsc' - Arranges the list in descending order (Z-A, 9-0). ----- 'asc' - Arranges the list in ascending order (A-Z, 0-9).  'dsc' - Arranges the--- list in descending order (Z-A, 9-0).  Results are sorted by 'FilterVariable'.+-- Results are sorted by 'FilterVariable'. dmlmSortOrder :: Lens' DescribeMLModels (Maybe SortOrder)-dmlmSortOrder = lens _dmlmSortOrder (\s a -> s { _dmlmSortOrder = a })+dmlmSortOrder = lens _dmlmSortOrder (\ s a -> s{_dmlmSortOrder = a}); -data DescribeMLModelsResponse = DescribeMLModelsResponse-    { _dmlmrNextToken :: Maybe Text-    , _dmlmrResults   :: List "Results" MLModel-    } deriving (Eq, Read, Show)+-- | The number of pages of information to include in the result. The range+-- of acceptable values is 1 through 100. The default value is 100.+dmlmLimit :: Lens' DescribeMLModels (Maybe Natural)+dmlmLimit = lens _dmlmLimit (\ s a -> s{_dmlmLimit = a}) . mapping _Nat; --- | 'DescribeMLModelsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dmlmrNextToken' @::@ 'Maybe' 'Text'------ * 'dmlmrResults' @::@ ['MLModel']+-- | The less than operator. The 'MLModel' results will have 'FilterVariable'+-- values that are less than the value specified with 'LT'.+dmlmLT :: Lens' DescribeMLModels (Maybe Text)+dmlmLT = lens _dmlmLT (\ s a -> s{_dmlmLT = a});++-- | Use one of the following variables to filter a list of 'MLModel': ---describeMLModelsResponse :: DescribeMLModelsResponse-describeMLModelsResponse = DescribeMLModelsResponse-    { _dmlmrResults   = mempty-    , _dmlmrNextToken = Nothing-    }+-- -   'CreatedAt' - Sets the search criteria to 'MLModel' creation date.+-- -   'Status' - Sets the search criteria to 'MLModel' status.+-- -   'Name' - Sets the search criteria to the contents of 'MLModel' ____+--     'Name'.+-- -   'IAMUser' - Sets the search criteria to the user account that+--     invoked the 'MLModel' creation.+-- -   'TrainingDataSourceId' - Sets the search criteria to the+--     'DataSource' used to train one or more 'MLModel'.+-- -   'RealtimeEndpointStatus' - Sets the search criteria to the 'MLModel'+--     real-time endpoint status.+-- -   'MLModelType' - Sets the search criteria to 'MLModel' type: binary,+--     regression, or multi-class.+-- -   'Algorithm' - Sets the search criteria to the algorithm that the+--     'MLModel' uses.+-- -   'TrainingDataURI' - Sets the search criteria to the data file(s)+--     used in training a 'MLModel'. The URL can identify either a file or+--     an Amazon Simple Storage Service (Amazon S3) bucket or directory.+dmlmFilterVariable :: Lens' DescribeMLModels (Maybe MLModelFilterVariable)+dmlmFilterVariable = lens _dmlmFilterVariable (\ s a -> s{_dmlmFilterVariable = a}); --- | The ID of the next page in the paginated results that indicates at least one--- more page follows.-dmlmrNextToken :: Lens' DescribeMLModelsResponse (Maybe Text)-dmlmrNextToken = lens _dmlmrNextToken (\s a -> s { _dmlmrNextToken = a })+-- | The less than or equal to operator. The 'MLModel' results will have+-- 'FilterVariable' values that are less than or equal to the value+-- specified with 'LE'.+dmlmLE :: Lens' DescribeMLModels (Maybe Text)+dmlmLE = lens _dmlmLE (\ s a -> s{_dmlmLE = a}); --- | A list of 'MLModel' that meet the search criteria.-dmlmrResults :: Lens' DescribeMLModelsResponse [MLModel]-dmlmrResults = lens _dmlmrResults (\s a -> s { _dmlmrResults = a }) . _List+instance AWSPager DescribeMLModels where+        page rq rs+          | stop (rs ^. dmlmsrsNextToken) = Nothing+          | stop (rs ^. dmlmsrsResults) = Nothing+          | otherwise =+            Just $ rq & dmlmNextToken .~ rs ^. dmlmsrsNextToken +instance AWSRequest DescribeMLModels where+        type Sv DescribeMLModels = MachineLearning+        type Rs DescribeMLModels = DescribeMLModelsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeMLModelsResponse' <$>+                   (x .?> "Results" .!@ mempty) <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance ToHeaders DescribeMLModels where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.DescribeMLModels" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeMLModels where+        toJSON DescribeMLModels'{..}+          = object+              ["EQ" .= _dmlmEQ, "GE" .= _dmlmGE,+               "Prefix" .= _dmlmPrefix, "GT" .= _dmlmGT,+               "NE" .= _dmlmNE, "NextToken" .= _dmlmNextToken,+               "SortOrder" .= _dmlmSortOrder, "Limit" .= _dmlmLimit,+               "LT" .= _dmlmLT,+               "FilterVariable" .= _dmlmFilterVariable,+               "LE" .= _dmlmLE]+ instance ToPath DescribeMLModels where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeMLModels where-    toQuery = const mempty--instance ToHeaders DescribeMLModels+        toQuery = const mempty -instance ToJSON DescribeMLModels where-    toJSON DescribeMLModels{..} = object-        [ "FilterVariable" .= _dmlmFilterVariable-        , "EQ"             .= _dmlmEQ-        , "GT"             .= _dmlmGT-        , "LT"             .= _dmlmLT-        , "GE"             .= _dmlmGE-        , "LE"             .= _dmlmLE-        , "NE"             .= _dmlmNE-        , "Prefix"         .= _dmlmPrefix-        , "SortOrder"      .= _dmlmSortOrder-        , "NextToken"      .= _dmlmNextToken-        , "Limit"          .= _dmlmLimit-        ]+-- | Represents the output of a DescribeMLModels operation. The content is+-- essentially a list of 'MLModel'.+--+-- /See:/ 'describeMLModelsResponse' smart constructor.+data DescribeMLModelsResponse = DescribeMLModelsResponse'+    { _dmlmsrsResults   :: !(Maybe [MLModel])+    , _dmlmsrsNextToken :: !(Maybe Text)+    , _dmlmsrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeMLModels where-    type Sv DescribeMLModels = MachineLearning-    type Rs DescribeMLModels = DescribeMLModelsResponse+-- | 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:+--+-- * 'dmlmsrsResults'+--+-- * 'dmlmsrsNextToken'+--+-- * 'dmlmsrsStatus'+describeMLModelsResponse+    :: Int -- ^ 'dmlmsrsStatus'+    -> DescribeMLModelsResponse+describeMLModelsResponse pStatus_ =+    DescribeMLModelsResponse'+    { _dmlmsrsResults = Nothing+    , _dmlmsrsNextToken = Nothing+    , _dmlmsrsStatus = pStatus_+    } -    request  = post "DescribeMLModels"-    response = jsonResponse+-- | A list of MLModel that meet the search criteria.+dmlmsrsResults :: Lens' DescribeMLModelsResponse [MLModel]+dmlmsrsResults = lens _dmlmsrsResults (\ s a -> s{_dmlmsrsResults = a}) . _Default . _Coerce; -instance FromJSON DescribeMLModelsResponse where-    parseJSON = withObject "DescribeMLModelsResponse" $ \o -> DescribeMLModelsResponse-        <$> o .:? "NextToken"-        <*> o .:? "Results" .!= mempty+-- | The ID of the next page in the paginated results that indicates at least+-- one more page follows.+dmlmsrsNextToken :: Lens' DescribeMLModelsResponse (Maybe Text)+dmlmsrsNextToken = lens _dmlmsrsNextToken (\ s a -> s{_dmlmsrsNextToken = a}); -instance AWSPager DescribeMLModels where-    page rq rs-        | stop (rs ^. dmlmrNextToken) = Nothing-        | otherwise = (\x -> rq & dmlmNextToken ?~ x)-            <$> (rs ^. dmlmrNextToken)+-- | The response status code.+dmlmsrsStatus :: Lens' DescribeMLModelsResponse Int+dmlmsrsStatus = lens _dmlmsrsStatus (\ s a -> s{_dmlmsrsStatus = a});

@@ -1,247 +1,243 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.MachineLearning.GetBatchPrediction--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a 'BatchPrediction' that includes detailed metadata, status, and data--- file information for a 'Batch Prediction' request.+-- Returns a 'BatchPrediction' that includes detailed metadata, status, and+-- data file information for a 'Batch Prediction' request. ----- <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_GetBatchPrediction.html>+-- /See:/ <http://http://docs.aws.amazon.com/machine-learning/latest/APIReference/API_GetBatchPrediction.html AWS API Reference> for GetBatchPrediction. module Network.AWS.MachineLearning.GetBatchPrediction     (-    -- * Request-      GetBatchPrediction-    -- ** Request constructor-    , getBatchPrediction-    -- ** Request lenses+    -- * Creating a Request+      getBatchPrediction+    , GetBatchPrediction+    -- * Request Lenses     , gbpBatchPredictionId -    -- * Response-    , GetBatchPredictionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getBatchPredictionResponse-    -- ** Response lenses-    , gbprBatchPredictionDataSourceId-    , gbprBatchPredictionId-    , gbprCreatedAt-    , gbprCreatedByIamUser-    , gbprInputDataLocationS3-    , gbprLastUpdatedAt-    , gbprLogUri-    , gbprMLModelId-    , gbprMessage-    , gbprName-    , gbprOutputUri-    , gbprStatus+    , GetBatchPredictionResponse+    -- * Response Lenses+    , gbprsLastUpdatedAt+    , gbprsCreatedAt+    , gbprsInputDataLocationS3+    , gbprsMLModelId+    , gbprsBatchPredictionDataSourceId+    , gbprsBatchPredictionId+    , gbprsName+    , gbprsCreatedByIAMUser+    , gbprsLogURI+    , gbprsMessage+    , gbprsOutputURI+    , gbprsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.MachineLearning.Types-import qualified GHC.Exts+import           Network.AWS.MachineLearning.Types+import           Network.AWS.MachineLearning.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype GetBatchPrediction = GetBatchPrediction+-- | /See:/ 'getBatchPrediction' smart constructor.+newtype GetBatchPrediction = GetBatchPrediction'     { _gbpBatchPredictionId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetBatchPrediction' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetBatchPrediction' with the minimum fields required to make a request. ----- * 'gbpBatchPredictionId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getBatchPrediction :: Text -- ^ 'gbpBatchPredictionId'-                   -> GetBatchPrediction-getBatchPrediction p1 = GetBatchPrediction-    { _gbpBatchPredictionId = p1+-- * 'gbpBatchPredictionId'+getBatchPrediction+    :: Text -- ^ 'gbpBatchPredictionId'+    -> GetBatchPrediction+getBatchPrediction pBatchPredictionId_ =+    GetBatchPrediction'+    { _gbpBatchPredictionId = pBatchPredictionId_     }  -- | An ID assigned to the 'BatchPrediction' at creation. gbpBatchPredictionId :: Lens' GetBatchPrediction Text-gbpBatchPredictionId =-    lens _gbpBatchPredictionId (\s a -> s { _gbpBatchPredictionId = a })+gbpBatchPredictionId = lens _gbpBatchPredictionId (\ s a -> s{_gbpBatchPredictionId = a}); -data GetBatchPredictionResponse = GetBatchPredictionResponse-    { _gbprBatchPredictionDataSourceId :: Maybe Text-    , _gbprBatchPredictionId           :: Maybe Text-    , _gbprCreatedAt                   :: Maybe POSIX-    , _gbprCreatedByIamUser            :: Maybe Text-    , _gbprInputDataLocationS3         :: Maybe Text-    , _gbprLastUpdatedAt               :: Maybe POSIX-    , _gbprLogUri                      :: Maybe Text-    , _gbprMLModelId                   :: Maybe Text-    , _gbprMessage                     :: Maybe Text-    , _gbprName                        :: Maybe Text-    , _gbprOutputUri                   :: Maybe Text-    , _gbprStatus                      :: Maybe EntityStatus-    } deriving (Eq, Read, Show)+instance AWSRequest GetBatchPrediction where+        type Sv GetBatchPrediction = MachineLearning+        type Rs GetBatchPrediction =+             GetBatchPredictionResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetBatchPredictionResponse' <$>+                   (x .?> "LastUpdatedAt") <*> (x .?> "CreatedAt") <*>+                     (x .?> "InputDataLocationS3")+                     <*> (x .?> "MLModelId")+                     <*> (x .?> "BatchPredictionDataSourceId")+                     <*> (x .?> "BatchPredictionId")+                     <*> (x .?> "Name")+                     <*> (x .?> "CreatedByIamUser")+                     <*> (x .?> "LogUri")+                     <*> (x .?> "Message")+                     <*> (x .?> "OutputUri")+                     <*> (pure (fromEnum s))) --- | 'GetBatchPredictionResponse' constructor.+instance ToHeaders GetBatchPrediction where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonML_20141212.GetBatchPrediction" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetBatchPrediction where+        toJSON GetBatchPrediction'{..}+          = object+              ["BatchPredictionId" .= _gbpBatchPredictionId]++instance ToPath GetBatchPrediction where+        toPath = const "/"++instance ToQuery GetBatchPrediction where+        toQuery = const mempty++-- | Represents the output of a GetBatchPrediction operation and describes a+-- 'BatchPrediction'. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'getBatchPredictionResponse' smart constructor.+data GetBatchPredictionResponse = GetBatchPredictionResponse'+    { _gbprsLastUpdatedAt               :: !(Maybe POSIX)+    , _gbprsCreatedAt                   :: !(Maybe POSIX)+    , _gbprsInputDataLocationS3         :: !(Maybe Text)+    , _gbprsMLModelId                   :: !(Maybe Text)+    , _gbprsBatchPredictionDataSourceId :: !(Maybe Text)+    , _gbprsBatchPredictionId           :: !(Maybe Text)+    , _gbprsName                        :: !(Maybe Text)+    , _gbprsCreatedByIAMUser            :: !(Maybe Text)+    , _gbprsLogURI                      :: !(Maybe Text)+    , _gbprsMessage                     :: !(Maybe Text)+    , _gbprsOutputURI                   :: !(Maybe Text)+    , _gbprsStatus                      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetBatchPredictionResponse' with the minimum fields required to make a request. ----- * 'gbprBatchPredictionDataSourceId' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'gbprBatchPredictionId' @::@ 'Maybe' 'Text'+-- * 'gbprsLastUpdatedAt' ----- * 'gbprCreatedAt' @::@ 'Maybe' 'UTCTime'+-- * 'gbprsCreatedAt' ----- * 'gbprCreatedByIamUser' @::@ 'Maybe' 'Text'+-- * 'gbprsInputDataLocationS3' ----- * 'gbprInputDataLocationS3' @::@ 'Maybe' 'Text'+-- * 'gbprsMLModelId' ----- * 'gbprLastUpdatedAt' @::@ 'Maybe' 'UTCTime'+-- * 'gbprsBatchPredictionDataSourceId' ----- * 'gbprLogUri' @::@ 'Maybe' 'Text'+-- * 'gbprsBatchPredictionId' ----- * 'gbprMLModelId' @::@ 'Maybe' 'Text'+-- * 'gbprsName' ----- * 'gbprMessage' @::@ 'Maybe' 'Text'+-- * 'gbprsCreatedByIAMUser' ----- * 'gbprName' @::@ 'Maybe' 'Text'+-- * 'gbprsLogURI' ----- * 'gbprOutputUri' @::@ 'Maybe' 'Text'+-- * 'gbprsMessage' ----- * 'gbprStatus' @::@ 'Maybe' 'EntityStatus'+-- * 'gbprsOutputURI' ---getBatchPredictionResponse :: GetBatchPredictionResponse-getBatchPredictionResponse = GetBatchPredictionResponse-    { _gbprBatchPredictionId           = Nothing-    , _gbprMLModelId                   = Nothing-    , _gbprBatchPredictionDataSourceId = Nothing-    , _gbprInputDataLocationS3         = Nothing-    , _gbprCreatedByIamUser            = Nothing-    , _gbprCreatedAt                   = Nothing-    , _gbprLastUpdatedAt               = Nothing-    , _gbprName                        = Nothing-    , _gbprStatus                      = Nothing-    , _gbprOutputUri                   = Nothing-    , _gbprLogUri                      = Nothing-    , _gbprMessage                     = Nothing+-- * 'gbprsStatus'+getBatchPredictionResponse+    :: Int -- ^ 'gbprsStatus'+    -> GetBatchPredictionResponse+getBatchPredictionResponse pStatus_ =+    GetBatchPredictionResponse'+    { _gbprsLastUpdatedAt = Nothing+    , _gbprsCreatedAt = Nothing+    , _gbprsInputDataLocationS3 = Nothing+    , _gbprsMLModelId = Nothing+    , _gbprsBatchPredictionDataSourceId = Nothing+    , _gbprsBatchPredictionId = Nothing+    , _gbprsName = Nothing+    , _gbprsCreatedByIAMUser = Nothing+    , _gbprsLogURI = Nothing+    , _gbprsMessage = Nothing+    , _gbprsOutputURI = Nothing+    , _gbprsStatus = pStatus_     } --- | The ID of the 'DataSource' that was used to create the 'BatchPrediction'.-gbprBatchPredictionDataSourceId :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprBatchPredictionDataSourceId =-    lens _gbprBatchPredictionDataSourceId-        (\s a -> s { _gbprBatchPredictionDataSourceId = a })---- | An ID assigned to the 'BatchPrediction' at creation. This value should be--- identical to the value of the 'BatchPredictionID' in the request.-gbprBatchPredictionId :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprBatchPredictionId =-    lens _gbprBatchPredictionId (\s a -> s { _gbprBatchPredictionId = a })---- | The time when the 'BatchPrediction' was created. The time is expressed in epoch--- time.-gbprCreatedAt :: Lens' GetBatchPredictionResponse (Maybe UTCTime)-gbprCreatedAt = lens _gbprCreatedAt (\s a -> s { _gbprCreatedAt = a }) . mapping _Time---- | The AWS user account that invoked the 'BatchPrediction'. The account type can--- be either an AWS root account or an AWS Identity and Access Management (IAM)--- user account.-gbprCreatedByIamUser :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprCreatedByIamUser =-    lens _gbprCreatedByIamUser (\s a -> s { _gbprCreatedByIamUser = a })+-- | The time of the most recent edit to 'BatchPrediction'. The time is+-- expressed in epoch time.+gbprsLastUpdatedAt :: Lens' GetBatchPredictionResponse (Maybe UTCTime)+gbprsLastUpdatedAt = lens _gbprsLastUpdatedAt (\ s a -> s{_gbprsLastUpdatedAt = a}) . mapping _Time; --- | The location of the data file or directory in Amazon Simple Storage Service--- (Amazon S3).-gbprInputDataLocationS3 :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprInputDataLocationS3 =-    lens _gbprInputDataLocationS3 (\s a -> s { _gbprInputDataLocationS3 = a })+-- | The time when the 'BatchPrediction' was created. The time is expressed+-- in epoch time.+gbprsCreatedAt :: Lens' GetBatchPredictionResponse (Maybe UTCTime)+gbprsCreatedAt = lens _gbprsCreatedAt (\ s a -> s{_gbprsCreatedAt = a}) . mapping _Time; --- | The time of the most recent edit to 'BatchPrediction'. The time is expressed in--- epoch time.-gbprLastUpdatedAt :: Lens' GetBatchPredictionResponse (Maybe UTCTime)-gbprLastUpdatedAt =-    lens _gbprLastUpdatedAt (\s a -> s { _gbprLastUpdatedAt = a })-        . mapping _Time+-- | The location of the data file or directory in Amazon Simple Storage+-- Service (Amazon S3).+gbprsInputDataLocationS3 :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsInputDataLocationS3 = lens _gbprsInputDataLocationS3 (\ s a -> s{_gbprsInputDataLocationS3 = a}); --- | A link to the file that contains logs of the 'CreateBatchPrediction' operation.-gbprLogUri :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprLogUri = lens _gbprLogUri (\s a -> s { _gbprLogUri = a })+-- | The ID of the 'MLModel' that generated predictions for the+-- 'BatchPrediction' request.+gbprsMLModelId :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsMLModelId = lens _gbprsMLModelId (\ s a -> s{_gbprsMLModelId = a}); --- | The ID of the 'MLModel' that generated predictions for the 'BatchPrediction'--- request.-gbprMLModelId :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprMLModelId = lens _gbprMLModelId (\s a -> s { _gbprMLModelId = a })+-- | The ID of the 'DataSource' that was used to create the+-- 'BatchPrediction'.+gbprsBatchPredictionDataSourceId :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsBatchPredictionDataSourceId = lens _gbprsBatchPredictionDataSourceId (\ s a -> s{_gbprsBatchPredictionDataSourceId = a}); --- | A description of the most recent details about processing the batch--- prediction request.-gbprMessage :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprMessage = lens _gbprMessage (\s a -> s { _gbprMessage = a })+-- | An ID assigned to the 'BatchPrediction' at creation. This value should+-- be identical to the value of the 'BatchPredictionID' in the request.+gbprsBatchPredictionId :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsBatchPredictionId = lens _gbprsBatchPredictionId (\ s a -> s{_gbprsBatchPredictionId = a});  -- | A user-supplied name or description of the 'BatchPrediction'.-gbprName :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprName = lens _gbprName (\s a -> s { _gbprName = a })---- | The location of an Amazon S3 bucket or directory to receive the operation--- results.-gbprOutputUri :: Lens' GetBatchPredictionResponse (Maybe Text)-gbprOutputUri = lens _gbprOutputUri (\s a -> s { _gbprOutputUri = a })---- | 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.-gbprStatus :: Lens' GetBatchPredictionResponse (Maybe EntityStatus)-gbprStatus = lens _gbprStatus (\s a -> s { _gbprStatus = a })--instance ToPath GetBatchPrediction where-    toPath = const "/"--instance ToQuery GetBatchPrediction where-    toQuery = const mempty+gbprsName :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsName = lens _gbprsName (\ s a -> s{_gbprsName = a}); -instance ToHeaders GetBatchPrediction+-- | The AWS user account that invoked the 'BatchPrediction'. The account+-- type can be either an AWS root account or an AWS Identity and Access+-- Management (IAM) user account.+gbprsCreatedByIAMUser :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsCreatedByIAMUser = lens _gbprsCreatedByIAMUser (\ s a -> s{_gbprsCreatedByIAMUser = a}); -instance ToJSON GetBatchPrediction where-    toJSON GetBatchPrediction{..} = object-        [ "BatchPredictionId" .= _gbpBatchPredictionId-        ]+-- | A link to the file that contains logs of the CreateBatchPrediction+-- operation.+gbprsLogURI :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsLogURI = lens _gbprsLogURI (\ s a -> s{_gbprsLogURI = a}); -instance AWSRequest GetBatchPrediction where-    type Sv GetBatchPrediction = MachineLearning-    type Rs GetBatchPrediction = GetBatchPredictionResponse+-- | A description of the most recent details about processing the batch+-- prediction request.+gbprsMessage :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsMessage = lens _gbprsMessage (\ s a -> s{_gbprsMessage = a}); -    request  = post "GetBatchPrediction"-    response = jsonResponse+-- | The location of an Amazon S3 bucket or directory to receive the+-- operation results.+gbprsOutputURI :: Lens' GetBatchPredictionResponse (Maybe Text)+gbprsOutputURI = lens _gbprsOutputURI (\ s a -> s{_gbprsOutputURI = a}); -instance FromJSON GetBatchPredictionResponse where-    parseJSON = withObject "GetBatchPredictionResponse" $ \o -> GetBatchPredictionResponse-        <$> o .:? "BatchPredictionDataSourceId"-        <*> o .:? "BatchPredictionId"-        <*> o .:? "CreatedAt"-        <*> o .:? "CreatedByIamUser"-        <*> o .:? "InputDataLocationS3"-        <*> o .:? "LastUpdatedAt"-        <*> o .:? "LogUri"-        <*> o .:? "MLModelId"-        <*> o .:? "Message"-        <*> o .:? "Name"-        <*> o .:? "OutputUri"-        <*> o .:? "Status"+-- | The response status code.+gbprsStatus :: Lens' GetBatchPredictionResponse Int+gbprsStatus = lens _gbprsStatus (\ s a -> s{_gbprsStatus = a});