packages feed

amazonka-sagemaker (empty) → 1.6.0

raw patch · 116 files changed

+10998/−0 lines, 116 filesdep +amazonka-coredep +amazonka-sagemakerdep +amazonka-testsetup-changed

Dependencies added: amazonka-core, amazonka-sagemaker, amazonka-test, base, bytestring, tasty, tasty-hunit, text, time, unordered-containers

Files

+ LICENSE view
@@ -0,0 +1,367 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+    means each individual or legal entity that creates, contributes to+    the creation of, or owns Covered Software.++1.2. "Contributor Version"+    means the combination of the Contributions of others (if any) used+    by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+    means Covered Software of a particular Contributor.++1.4. "Covered Software"+    means Source Code Form to which the initial Contributor has attached+    the notice in Exhibit A, the Executable Form of such Source Code+    Form, and Modifications of such Source Code Form, in each case+    including portions thereof.++1.5. "Incompatible With Secondary Licenses"+    means++    (a) that the initial Contributor has attached the notice described+        in Exhibit B to the Covered Software; or++    (b) that the Covered Software was made available under the terms of+        version 1.1 or earlier of the License, but not also under the+        terms of a Secondary License.++1.6. "Executable Form"+    means any form of the work other than Source Code Form.++1.7. "Larger Work"+    means a work that combines Covered Software with other material, in+    a separate file or files, that is not Covered Software.++1.8. "License"+    means this document.++1.9. "Licensable"+    means having the right to grant, to the maximum extent possible,+    whether at the time of the initial grant or subsequently, any and+    all of the rights conveyed by this License.++1.10. "Modifications"+    means any of the following:++    (a) any file in Source Code Form that results from an addition to,+        deletion from, or modification of the contents of Covered+        Software; or++    (b) any new file in Source Code Form that contains any Covered+        Software.++1.11. "Patent Claims" of a Contributor+    means any patent claim(s), including without limitation, method,+    process, and apparatus claims, in any patent Licensable by such+    Contributor that would be infringed, but for the grant of the+    License, by the making, using, selling, offering for sale, having+    made, import, or transfer of either its Contributions or its+    Contributor Version.++1.12. "Secondary License"+    means either the GNU General Public License, Version 2.0, the GNU+    Lesser General Public License, Version 2.1, the GNU Affero General+    Public License, Version 3.0, or any later versions of those+    licenses.++1.13. "Source Code Form"+    means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+    means an individual or a legal entity exercising rights under this+    License. For legal entities, "You" includes any entity that+    controls, is controlled by, or is under common control with You. For+    purposes of this definition, "control" means (a) the power, direct+    or indirect, to cause the direction or management of such entity,+    whether by contract or otherwise, or (b) ownership of more than+    fifty percent (50%) of the outstanding shares or beneficial+    ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+    Licensable by such Contributor to use, reproduce, make available,+    modify, display, perform, distribute, and otherwise exploit its+    Contributions, either on an unmodified basis, with Modifications, or+    as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+    for sale, have made, import, and otherwise transfer either its+    Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+    or++(b) for infringements caused by: (i) Your and any other third party's+    modifications of Covered Software, or (ii) the combination of its+    Contributions with other software (except as part of its Contributor+    Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+    its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+    Form, as described in Section 3.1, and You must inform recipients of+    the Executable Form how they can obtain a copy of such Source Code+    Form by reasonable means in a timely manner, at a charge no more+    than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+    License, or sublicense it under different terms, provided that the+    license for the Executable Form does not attempt to limit or alter+    the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+*                                                                      *+*  6. Disclaimer of Warranty                                           *+*  -------------------------                                           *+*                                                                      *+*  Covered Software is provided under this License on an "as is"       *+*  basis, without warranty of any kind, either expressed, implied, or  *+*  statutory, including, without limitation, warranties that the       *+*  Covered Software is free of defects, merchantable, fit for a        *+*  particular purpose or non-infringing. The entire risk as to the     *+*  quality and performance of the Covered Software is with You.        *+*  Should any Covered Software prove defective in any respect, You     *+*  (not any Contributor) assume the cost of any necessary servicing,   *+*  repair, or correction. This disclaimer of warranty constitutes an   *+*  essential part of this License. No use of any Covered Software is   *+*  authorized under this License except under this disclaimer.         *+*                                                                      *+************************************************************************++************************************************************************+*                                                                      *+*  7. Limitation of Liability                                          *+*  --------------------------                                          *+*                                                                      *+*  Under no circumstances and under no legal theory, whether tort      *+*  (including negligence), contract, or otherwise, shall any           *+*  Contributor, or anyone who distributes Covered Software as          *+*  permitted above, be liable to You for any direct, indirect,         *+*  special, incidental, or consequential damages of any character      *+*  including, without limitation, damages for lost profits, loss of    *+*  goodwill, work stoppage, computer failure or malfunction, or any    *+*  and all other commercial damages or losses, even if such party      *+*  shall have been informed of the possibility of such damages. This   *+*  limitation of liability shall not apply to liability for death or   *+*  personal injury resulting from such party's negligence to the       *+*  extent applicable law prohibits such limitation. Some               *+*  jurisdictions do not allow the exclusion or limitation of           *+*  incidental or consequential damages, so this exclusion and          *+*  limitation may not apply to You.                                    *+*                                                                      *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++  This Source Code Form is subject to the terms of the Mozilla Public+  License, v. 2.0. If a copy of the MPL was not distributed with this+  file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.
+ README.md view
@@ -0,0 +1,45 @@+# Amazon SageMaker Service SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version++`1.6.0`+++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-sagemaker)+and the [AWS API Reference](https://aws.amazon.com/documentation/).++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, sending requests,+and receiving responses.++Lenses are used for constructing and manipulating types,+due to the depth 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).++See [Network.AWS.SageMaker](http://hackage.haskell.org/package/amazonka-sagemaker/docs/Network-AWS-SageMaker.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+++## Contribute++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+++## Licence++`amazonka-sagemaker` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).++Parts of the code are derived from AWS service descriptions, licensed under Apache 2.0.+Source files subject to this contain an additional licensing clause in their header.
+ Setup.hs view
@@ -0,0 +1,2 @@+import           Distribution.Simple+main = defaultMain
+ amazonka-sagemaker.cabal view
@@ -0,0 +1,119 @@+name:                  amazonka-sagemaker+version:               1.6.0+synopsis:              Amazon SageMaker Service SDK.+homepage:              https://github.com/brendanhay/amazonka+bug-reports:           https://github.com/brendanhay/amazonka/issues+license:               MPL-2.0+license-file:          LICENSE+author:                Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2018 Brendan Hay+category:              Network, AWS, Cloud, Distributed Computing+build-type:            Simple+cabal-version:         >= 1.10+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+description:+    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, sending requests,+    and receiving responses.+    .+    Lenses are used for constructing and manipulating types,+    due to the depth 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.SageMaker" or <https://aws.amazon.com/documentation/ the AWS documentation>+    to get started.++source-repository head+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-sagemaker++library+    default-language:  Haskell2010+    hs-source-dirs:    src gen++    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields++    exposed-modules:+          Network.AWS.SageMaker+        , Network.AWS.SageMaker.AddTags+        , Network.AWS.SageMaker.CreateEndpoint+        , Network.AWS.SageMaker.CreateEndpointConfig+        , Network.AWS.SageMaker.CreateModel+        , Network.AWS.SageMaker.CreateNotebookInstance+        , Network.AWS.SageMaker.CreateNotebookInstanceLifecycleConfig+        , Network.AWS.SageMaker.CreatePresignedNotebookInstanceURL+        , Network.AWS.SageMaker.CreateTrainingJob+        , Network.AWS.SageMaker.DeleteEndpoint+        , Network.AWS.SageMaker.DeleteEndpointConfig+        , Network.AWS.SageMaker.DeleteModel+        , Network.AWS.SageMaker.DeleteNotebookInstance+        , Network.AWS.SageMaker.DeleteNotebookInstanceLifecycleConfig+        , Network.AWS.SageMaker.DeleteTags+        , Network.AWS.SageMaker.DescribeEndpoint+        , Network.AWS.SageMaker.DescribeEndpointConfig+        , Network.AWS.SageMaker.DescribeModel+        , Network.AWS.SageMaker.DescribeNotebookInstance+        , Network.AWS.SageMaker.DescribeNotebookInstanceLifecycleConfig+        , Network.AWS.SageMaker.DescribeTrainingJob+        , Network.AWS.SageMaker.ListEndpointConfigs+        , Network.AWS.SageMaker.ListEndpoints+        , Network.AWS.SageMaker.ListModels+        , Network.AWS.SageMaker.ListNotebookInstanceLifecycleConfigs+        , Network.AWS.SageMaker.ListNotebookInstances+        , Network.AWS.SageMaker.ListTags+        , Network.AWS.SageMaker.ListTrainingJobs+        , Network.AWS.SageMaker.StartNotebookInstance+        , Network.AWS.SageMaker.StopNotebookInstance+        , Network.AWS.SageMaker.StopTrainingJob+        , Network.AWS.SageMaker.Types+        , Network.AWS.SageMaker.UpdateEndpoint+        , Network.AWS.SageMaker.UpdateEndpointWeightsAndCapacities+        , Network.AWS.SageMaker.UpdateNotebookInstance+        , Network.AWS.SageMaker.UpdateNotebookInstanceLifecycleConfig+        , Network.AWS.SageMaker.Waiters++    other-modules:+          Network.AWS.SageMaker.Types.Product+        , Network.AWS.SageMaker.Types.Sum++    build-depends:+          amazonka-core == 1.6.0.*+        , base          >= 4.7     && < 5++test-suite amazonka-sagemaker-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This section is encoded by the template and any modules added by+    -- hand outside these namespaces will not correctly be added to the+    -- distribution package.+    other-modules:+          Test.AWS.SageMaker+        , Test.AWS.Gen.SageMaker+        , Test.AWS.SageMaker.Internal++    build-depends:+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*+        , amazonka-sagemaker+        , base+        , bytestring+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers
+ fixture/AddTags.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/AddTagsResponse.proto view
+ fixture/CreateEndpoint.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateEndpointConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateEndpointConfigResponse.proto view
+ fixture/CreateEndpointResponse.proto view
+ fixture/CreateModel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateModelResponse.proto view
+ fixture/CreateNotebookInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateNotebookInstanceLifecycleConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateNotebookInstanceLifecycleConfigResponse.proto view
+ fixture/CreateNotebookInstanceResponse.proto view
+ fixture/CreatePresignedNotebookInstanceURL.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreatePresignedNotebookInstanceURLResponse.proto view
+ fixture/CreateTrainingJob.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateTrainingJobResponse.proto view
+ fixture/DeleteEndpoint.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteEndpointConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteEndpointConfigResponse.proto view
+ fixture/DeleteEndpointResponse.proto view
+ fixture/DeleteModel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteModelResponse.proto view
+ fixture/DeleteNotebookInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteNotebookInstanceLifecycleConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteNotebookInstanceLifecycleConfigResponse.proto view
+ fixture/DeleteNotebookInstanceResponse.proto view
+ fixture/DeleteTags.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteTagsResponse.proto view
+ fixture/DescribeEndpoint.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeEndpointConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeEndpointConfigResponse.proto view
+ fixture/DescribeEndpointResponse.proto view
+ fixture/DescribeModel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeModelResponse.proto view
+ fixture/DescribeNotebookInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeNotebookInstanceLifecycleConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeNotebookInstanceLifecycleConfigResponse.proto view
+ fixture/DescribeNotebookInstanceResponse.proto view
+ fixture/DescribeTrainingJob.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeTrainingJobResponse.proto view
+ fixture/ListEndpointConfigs.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListEndpointConfigsResponse.proto view
+ fixture/ListEndpoints.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListEndpointsResponse.proto view
+ fixture/ListModels.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListModelsResponse.proto view
+ fixture/ListNotebookInstanceLifecycleConfigs.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListNotebookInstanceLifecycleConfigsResponse.proto view
+ fixture/ListNotebookInstances.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListNotebookInstancesResponse.proto view
+ fixture/ListTags.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListTagsResponse.proto view
+ fixture/ListTrainingJobs.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListTrainingJobsResponse.proto view
+ fixture/StartNotebookInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/StartNotebookInstanceResponse.proto view
+ fixture/StopNotebookInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/StopNotebookInstanceResponse.proto view
+ fixture/StopTrainingJob.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/StopTrainingJobResponse.proto view
+ fixture/UpdateEndpoint.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateEndpointResponse.proto view
+ fixture/UpdateEndpointWeightsAndCapacities.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateEndpointWeightsAndCapacitiesResponse.proto view
+ fixture/UpdateNotebookInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateNotebookInstanceLifecycleConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sagemaker/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sagemaker.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateNotebookInstanceLifecycleConfigResponse.proto view
+ fixture/UpdateNotebookInstanceResponse.proto view
+ gen/Network/AWS/SageMaker.hs view
@@ -0,0 +1,449 @@+{-# 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.SageMaker+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Definition of the public APIs exposed by SageMaker+module Network.AWS.SageMaker+    (+    -- * Service Configuration+      sageMaker++    -- * Errors+    -- $errors++    -- ** ResourceLimitExceeded+    , _ResourceLimitExceeded++    -- ** ResourceInUse+    , _ResourceInUse++    -- ** ResourceNotFound+    , _ResourceNotFound++    -- * Waiters+    -- $waiters++    -- ** NotebookInstanceDeleted+    , notebookInstanceDeleted++    -- ** EndpointDeleted+    , endpointDeleted++    -- ** EndpointInService+    , endpointInService++    -- ** NotebookInstanceInService+    , notebookInstanceInService++    -- ** TrainingJobCompletedOrStopped+    , trainingJobCompletedOrStopped++    -- ** NotebookInstanceStopped+    , notebookInstanceStopped++    -- * Operations+    -- $operations++    -- ** CreateNotebookInstance+    , module Network.AWS.SageMaker.CreateNotebookInstance++    -- ** DescribeEndpointConfig+    , module Network.AWS.SageMaker.DescribeEndpointConfig++    -- ** CreateEndpoint+    , module Network.AWS.SageMaker.CreateEndpoint++    -- ** DescribeTrainingJob+    , module Network.AWS.SageMaker.DescribeTrainingJob++    -- ** DeleteEndpoint+    , module Network.AWS.SageMaker.DeleteEndpoint++    -- ** UpdateEndpoint+    , module Network.AWS.SageMaker.UpdateEndpoint++    -- ** DeleteNotebookInstanceLifecycleConfig+    , module Network.AWS.SageMaker.DeleteNotebookInstanceLifecycleConfig++    -- ** UpdateNotebookInstanceLifecycleConfig+    , module Network.AWS.SageMaker.UpdateNotebookInstanceLifecycleConfig++    -- ** DescribeNotebookInstance+    , module Network.AWS.SageMaker.DescribeNotebookInstance++    -- ** CreateEndpointConfig+    , module Network.AWS.SageMaker.CreateEndpointConfig++    -- ** StopNotebookInstance+    , module Network.AWS.SageMaker.StopNotebookInstance++    -- ** UpdateEndpointWeightsAndCapacities+    , module Network.AWS.SageMaker.UpdateEndpointWeightsAndCapacities++    -- ** DeleteTags+    , module Network.AWS.SageMaker.DeleteTags++    -- ** DeleteEndpointConfig+    , module Network.AWS.SageMaker.DeleteEndpointConfig++    -- ** CreateModel+    , module Network.AWS.SageMaker.CreateModel++    -- ** DeleteModel+    , module Network.AWS.SageMaker.DeleteModel++    -- ** ListModels (Paginated)+    , module Network.AWS.SageMaker.ListModels++    -- ** DescribeNotebookInstanceLifecycleConfig+    , module Network.AWS.SageMaker.DescribeNotebookInstanceLifecycleConfig++    -- ** ListNotebookInstances (Paginated)+    , module Network.AWS.SageMaker.ListNotebookInstances++    -- ** DeleteNotebookInstance+    , module Network.AWS.SageMaker.DeleteNotebookInstance++    -- ** UpdateNotebookInstance+    , module Network.AWS.SageMaker.UpdateNotebookInstance++    -- ** StopTrainingJob+    , module Network.AWS.SageMaker.StopTrainingJob++    -- ** DescribeModel+    , module Network.AWS.SageMaker.DescribeModel++    -- ** ListEndpoints (Paginated)+    , module Network.AWS.SageMaker.ListEndpoints++    -- ** CreatePresignedNotebookInstanceURL+    , module Network.AWS.SageMaker.CreatePresignedNotebookInstanceURL++    -- ** ListNotebookInstanceLifecycleConfigs+    , module Network.AWS.SageMaker.ListNotebookInstanceLifecycleConfigs++    -- ** CreateNotebookInstanceLifecycleConfig+    , module Network.AWS.SageMaker.CreateNotebookInstanceLifecycleConfig++    -- ** StartNotebookInstance+    , module Network.AWS.SageMaker.StartNotebookInstance++    -- ** AddTags+    , module Network.AWS.SageMaker.AddTags++    -- ** ListEndpointConfigs (Paginated)+    , module Network.AWS.SageMaker.ListEndpointConfigs++    -- ** ListTags (Paginated)+    , module Network.AWS.SageMaker.ListTags++    -- ** CreateTrainingJob+    , module Network.AWS.SageMaker.CreateTrainingJob++    -- ** DescribeEndpoint+    , module Network.AWS.SageMaker.DescribeEndpoint++    -- ** ListTrainingJobs (Paginated)+    , module Network.AWS.SageMaker.ListTrainingJobs++    -- * Types++    -- ** CompressionType+    , CompressionType (..)++    -- ** DirectInternetAccess+    , DirectInternetAccess (..)++    -- ** EndpointConfigSortKey+    , EndpointConfigSortKey (..)++    -- ** EndpointSortKey+    , EndpointSortKey (..)++    -- ** EndpointStatus+    , EndpointStatus (..)++    -- ** InstanceType+    , InstanceType (..)++    -- ** ModelSortKey+    , ModelSortKey (..)++    -- ** NotebookInstanceLifecycleConfigSortKey+    , NotebookInstanceLifecycleConfigSortKey (..)++    -- ** NotebookInstanceLifecycleConfigSortOrder+    , NotebookInstanceLifecycleConfigSortOrder (..)++    -- ** NotebookInstanceSortKey+    , NotebookInstanceSortKey (..)++    -- ** NotebookInstanceSortOrder+    , NotebookInstanceSortOrder (..)++    -- ** NotebookInstanceStatus+    , NotebookInstanceStatus (..)++    -- ** OrderKey+    , OrderKey (..)++    -- ** ProductionVariantInstanceType+    , ProductionVariantInstanceType (..)++    -- ** RecordWrapper+    , RecordWrapper (..)++    -- ** S3DataDistribution+    , S3DataDistribution (..)++    -- ** S3DataType+    , S3DataType (..)++    -- ** SecondaryStatus+    , SecondaryStatus (..)++    -- ** SortBy+    , SortBy (..)++    -- ** SortOrder+    , SortOrder (..)++    -- ** TrainingInputMode+    , TrainingInputMode (..)++    -- ** TrainingInstanceType+    , TrainingInstanceType (..)++    -- ** TrainingJobStatus+    , TrainingJobStatus (..)++    -- ** AlgorithmSpecification+    , AlgorithmSpecification+    , algorithmSpecification+    , asTrainingImage+    , asTrainingInputMode++    -- ** Channel+    , Channel+    , channel+    , cRecordWrapperType+    , cCompressionType+    , cContentType+    , cChannelName+    , cDataSource++    -- ** ContainerDefinition+    , ContainerDefinition+    , containerDefinition+    , cdModelDataURL+    , cdEnvironment+    , cdContainerHostname+    , cdImage++    -- ** DataSource+    , DataSource+    , dataSource+    , dsS3DataSource++    -- ** DesiredWeightAndCapacity+    , DesiredWeightAndCapacity+    , desiredWeightAndCapacity+    , dwacDesiredInstanceCount+    , dwacDesiredWeight+    , dwacVariantName++    -- ** EndpointConfigSummary+    , EndpointConfigSummary+    , endpointConfigSummary+    , ecsEndpointConfigName+    , ecsEndpointConfigARN+    , ecsCreationTime++    -- ** EndpointSummary+    , EndpointSummary+    , endpointSummary+    , esEndpointName+    , esEndpointARN+    , esCreationTime+    , esLastModifiedTime+    , esEndpointStatus++    -- ** ModelArtifacts+    , ModelArtifacts+    , modelArtifacts+    , maS3ModelArtifacts++    -- ** ModelSummary+    , ModelSummary+    , modelSummary+    , msModelName+    , msModelARN+    , msCreationTime++    -- ** NotebookInstanceLifecycleConfigSummary+    , NotebookInstanceLifecycleConfigSummary+    , notebookInstanceLifecycleConfigSummary+    , nilcsCreationTime+    , nilcsLastModifiedTime+    , nilcsNotebookInstanceLifecycleConfigName+    , nilcsNotebookInstanceLifecycleConfigARN++    -- ** NotebookInstanceLifecycleHook+    , NotebookInstanceLifecycleHook+    , notebookInstanceLifecycleHook+    , nilhContent++    -- ** NotebookInstanceSummary+    , NotebookInstanceSummary+    , notebookInstanceSummary+    , nisCreationTime+    , nisURL+    , nisLastModifiedTime+    , nisInstanceType+    , nisNotebookInstanceStatus+    , nisNotebookInstanceLifecycleConfigName+    , nisNotebookInstanceName+    , nisNotebookInstanceARN++    -- ** OutputDataConfig+    , OutputDataConfig+    , outputDataConfig+    , odcKMSKeyId+    , odcS3OutputPath++    -- ** ProductionVariant+    , ProductionVariant+    , productionVariant+    , pvInitialVariantWeight+    , pvVariantName+    , pvModelName+    , pvInitialInstanceCount+    , pvInstanceType++    -- ** ProductionVariantSummary+    , ProductionVariantSummary+    , productionVariantSummary+    , pvsDesiredInstanceCount+    , pvsDesiredWeight+    , pvsCurrentWeight+    , pvsCurrentInstanceCount+    , pvsVariantName++    -- ** ResourceConfig+    , ResourceConfig+    , resourceConfig+    , rcVolumeKMSKeyId+    , rcInstanceType+    , rcInstanceCount+    , rcVolumeSizeInGB++    -- ** S3DataSource+    , S3DataSource+    , s3DataSource+    , sdsS3DataDistributionType+    , sdsS3DataType+    , sdsS3URI++    -- ** StoppingCondition+    , StoppingCondition+    , stoppingCondition+    , scMaxRuntimeInSeconds++    -- ** Tag+    , Tag+    , tag+    , tagKey+    , tagValue++    -- ** TrainingJobSummary+    , TrainingJobSummary+    , trainingJobSummary+    , tjsTrainingEndTime+    , tjsLastModifiedTime+    , tjsTrainingJobName+    , tjsTrainingJobARN+    , tjsCreationTime+    , tjsTrainingJobStatus++    -- ** VPCConfig+    , VPCConfig+    , vpcConfig+    , vcSecurityGroupIds+    , vcSubnets+    ) where++import Network.AWS.SageMaker.AddTags+import Network.AWS.SageMaker.CreateEndpoint+import Network.AWS.SageMaker.CreateEndpointConfig+import Network.AWS.SageMaker.CreateModel+import Network.AWS.SageMaker.CreateNotebookInstance+import Network.AWS.SageMaker.CreateNotebookInstanceLifecycleConfig+import Network.AWS.SageMaker.CreatePresignedNotebookInstanceURL+import Network.AWS.SageMaker.CreateTrainingJob+import Network.AWS.SageMaker.DeleteEndpoint+import Network.AWS.SageMaker.DeleteEndpointConfig+import Network.AWS.SageMaker.DeleteModel+import Network.AWS.SageMaker.DeleteNotebookInstance+import Network.AWS.SageMaker.DeleteNotebookInstanceLifecycleConfig+import Network.AWS.SageMaker.DeleteTags+import Network.AWS.SageMaker.DescribeEndpoint+import Network.AWS.SageMaker.DescribeEndpointConfig+import Network.AWS.SageMaker.DescribeModel+import Network.AWS.SageMaker.DescribeNotebookInstance+import Network.AWS.SageMaker.DescribeNotebookInstanceLifecycleConfig+import Network.AWS.SageMaker.DescribeTrainingJob+import Network.AWS.SageMaker.ListEndpointConfigs+import Network.AWS.SageMaker.ListEndpoints+import Network.AWS.SageMaker.ListModels+import Network.AWS.SageMaker.ListNotebookInstanceLifecycleConfigs+import Network.AWS.SageMaker.ListNotebookInstances+import Network.AWS.SageMaker.ListTags+import Network.AWS.SageMaker.ListTrainingJobs+import Network.AWS.SageMaker.StartNotebookInstance+import Network.AWS.SageMaker.StopNotebookInstance+import Network.AWS.SageMaker.StopTrainingJob+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.UpdateEndpoint+import Network.AWS.SageMaker.UpdateEndpointWeightsAndCapacities+import Network.AWS.SageMaker.UpdateNotebookInstance+import Network.AWS.SageMaker.UpdateNotebookInstanceLifecycleConfig+import Network.AWS.SageMaker.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 'SageMaker'.+-}++{- $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.+-}
+ gen/Network/AWS/SageMaker/AddTags.hs view
@@ -0,0 +1,143 @@+{-# 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.SageMaker.AddTags+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds or overwrites one or more tags for the specified Amazon SageMaker resource. You can add tags to notebook instances, training jobs, models, endpoint configurations, and endpoints.+--+--+-- Each tag consists of a key and an optional value. Tag keys must be unique per resource. For more information about tags, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+--+module Network.AWS.SageMaker.AddTags+    (+    -- * Creating a Request+      addTags+    , AddTags+    -- * Request Lenses+    , atResourceARN+    , atTags++    -- * Destructuring the Response+    , addTagsResponse+    , AddTagsResponse+    -- * Response Lenses+    , atrsTags+    , atrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'addTags' smart constructor.+data AddTags = AddTags'+  { _atResourceARN :: !Text+  , _atTags        :: ![Tag]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AddTags' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atResourceARN' - The Amazon Resource Name (ARN) of the resource that you want to tag.+--+-- * 'atTags' - An array of @Tag@ objects. Each tag is a key-value pair. Only the @key@ parameter is required. If you don't specify a value, Amazon SageMaker sets the value to an empty string.+addTags+    :: Text -- ^ 'atResourceARN'+    -> AddTags+addTags pResourceARN_ =+  AddTags' {_atResourceARN = pResourceARN_, _atTags = mempty}+++-- | The Amazon Resource Name (ARN) of the resource that you want to tag.+atResourceARN :: Lens' AddTags Text+atResourceARN = lens _atResourceARN (\ s a -> s{_atResourceARN = a})++-- | An array of @Tag@ objects. Each tag is a key-value pair. Only the @key@ parameter is required. If you don't specify a value, Amazon SageMaker sets the value to an empty string.+atTags :: Lens' AddTags [Tag]+atTags = lens _atTags (\ s a -> s{_atTags = a}) . _Coerce++instance AWSRequest AddTags where+        type Rs AddTags = AddTagsResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 AddTagsResponse' <$>+                   (x .?> "Tags" .!@ mempty) <*> (pure (fromEnum s)))++instance Hashable AddTags where++instance NFData AddTags where++instance ToHeaders AddTags where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.AddTags" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AddTags where+        toJSON AddTags'{..}+          = object+              (catMaybes+                 [Just ("ResourceArn" .= _atResourceARN),+                  Just ("Tags" .= _atTags)])++instance ToPath AddTags where+        toPath = const "/"++instance ToQuery AddTags where+        toQuery = const mempty++-- | /See:/ 'addTagsResponse' smart constructor.+data AddTagsResponse = AddTagsResponse'+  { _atrsTags           :: !(Maybe [Tag])+  , _atrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AddTagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atrsTags' - A list of tags associated with the Amazon SageMaker resource.+--+-- * 'atrsResponseStatus' - -- | The response status code.+addTagsResponse+    :: Int -- ^ 'atrsResponseStatus'+    -> AddTagsResponse+addTagsResponse pResponseStatus_ =+  AddTagsResponse' {_atrsTags = Nothing, _atrsResponseStatus = pResponseStatus_}+++-- | A list of tags associated with the Amazon SageMaker resource.+atrsTags :: Lens' AddTagsResponse [Tag]+atrsTags = lens _atrsTags (\ s a -> s{_atrsTags = a}) . _Default . _Coerce++-- | -- | The response status code.+atrsResponseStatus :: Lens' AddTagsResponse Int+atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a})++instance NFData AddTagsResponse where
+ gen/Network/AWS/SageMaker/CreateEndpoint.hs view
@@ -0,0 +1,166 @@+{-# 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.SageMaker.CreateEndpoint+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an endpoint using the endpoint configuration specified in the request. Amazon SageMaker uses the endpoint to provision resources and deploy models. You create the endpoint configuration with the <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateEndpointConfig.html CreateEndpointConfig> API.+--+--+-- The endpoint name must be unique within an AWS Region in your AWS account.+--+-- When it receives the request, Amazon SageMaker creates the endpoint, launches the resources (ML compute instances), and deploys the model(s) on them.+--+-- When Amazon SageMaker receives the request, it sets the endpoint status to @Creating@ . After it creates the endpoint, it sets the status to @InService@ . Amazon SageMaker can then process incoming requests for inferences. To check the status of an endpoint, use the <http://docs.aws.amazon.com/sagemaker/latest/dg/API_DescribeEndpoint.html DescribeEndpoint> API.+--+-- For an example, see <http://docs.aws.amazon.com/sagemaker/latest/dg/ex1.html Exercise 1: Using the K-Means Algorithm Provided by Amazon SageMaker> .+--+module Network.AWS.SageMaker.CreateEndpoint+    (+    -- * Creating a Request+      createEndpoint+    , CreateEndpoint+    -- * Request Lenses+    , ceTags+    , ceEndpointName+    , ceEndpointConfigName++    -- * Destructuring the Response+    , createEndpointResponse+    , CreateEndpointResponse+    -- * Response Lenses+    , cersResponseStatus+    , cersEndpointARN+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'createEndpoint' smart constructor.+data CreateEndpoint = CreateEndpoint'+  { _ceTags               :: !(Maybe [Tag])+  , _ceEndpointName       :: !Text+  , _ceEndpointConfigName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateEndpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ceTags' - An array of key-value pairs. For more information, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+--+-- * 'ceEndpointName' - The name of the endpoint. The name must be unique within an AWS Region in your AWS account.+--+-- * 'ceEndpointConfigName' - The name of an endpoint configuration. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateEndpointConfig.html CreateEndpointConfig> .+createEndpoint+    :: Text -- ^ 'ceEndpointName'+    -> Text -- ^ 'ceEndpointConfigName'+    -> CreateEndpoint+createEndpoint pEndpointName_ pEndpointConfigName_ =+  CreateEndpoint'+    { _ceTags = Nothing+    , _ceEndpointName = pEndpointName_+    , _ceEndpointConfigName = pEndpointConfigName_+    }+++-- | An array of key-value pairs. For more information, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+ceTags :: Lens' CreateEndpoint [Tag]+ceTags = lens _ceTags (\ s a -> s{_ceTags = a}) . _Default . _Coerce++-- | The name of the endpoint. The name must be unique within an AWS Region in your AWS account.+ceEndpointName :: Lens' CreateEndpoint Text+ceEndpointName = lens _ceEndpointName (\ s a -> s{_ceEndpointName = a})++-- | The name of an endpoint configuration. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateEndpointConfig.html CreateEndpointConfig> .+ceEndpointConfigName :: Lens' CreateEndpoint Text+ceEndpointConfigName = lens _ceEndpointConfigName (\ s a -> s{_ceEndpointConfigName = a})++instance AWSRequest CreateEndpoint where+        type Rs CreateEndpoint = CreateEndpointResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 CreateEndpointResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "EndpointArn"))++instance Hashable CreateEndpoint where++instance NFData CreateEndpoint where++instance ToHeaders CreateEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.CreateEndpoint" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateEndpoint where+        toJSON CreateEndpoint'{..}+          = object+              (catMaybes+                 [("Tags" .=) <$> _ceTags,+                  Just ("EndpointName" .= _ceEndpointName),+                  Just+                    ("EndpointConfigName" .= _ceEndpointConfigName)])++instance ToPath CreateEndpoint where+        toPath = const "/"++instance ToQuery CreateEndpoint where+        toQuery = const mempty++-- | /See:/ 'createEndpointResponse' smart constructor.+data CreateEndpointResponse = CreateEndpointResponse'+  { _cersResponseStatus :: !Int+  , _cersEndpointARN    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateEndpointResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cersResponseStatus' - -- | The response status code.+--+-- * 'cersEndpointARN' - The Amazon Resource Name (ARN) of the endpoint.+createEndpointResponse+    :: Int -- ^ 'cersResponseStatus'+    -> Text -- ^ 'cersEndpointARN'+    -> CreateEndpointResponse+createEndpointResponse pResponseStatus_ pEndpointARN_ =+  CreateEndpointResponse'+    {_cersResponseStatus = pResponseStatus_, _cersEndpointARN = pEndpointARN_}+++-- | -- | The response status code.+cersResponseStatus :: Lens' CreateEndpointResponse Int+cersResponseStatus = lens _cersResponseStatus (\ s a -> s{_cersResponseStatus = a})++-- | The Amazon Resource Name (ARN) of the endpoint.+cersEndpointARN :: Lens' CreateEndpointResponse Text+cersEndpointARN = lens _cersEndpointARN (\ s a -> s{_cersEndpointARN = a})++instance NFData CreateEndpointResponse where
+ gen/Network/AWS/SageMaker/CreateEndpointConfig.hs view
@@ -0,0 +1,176 @@+{-# 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.SageMaker.CreateEndpointConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an endpoint configuration that Amazon SageMaker hosting services uses to deploy models. In the configuration, you identify one or more models, created using the @CreateModel@ API, to deploy and the resources that you want Amazon SageMaker to provision. Then you call the <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateEndpoint.html CreateEndpoint> API.+--+--+-- In the request, you define one or more @ProductionVariant@ s, each of which identifies a model. Each @ProductionVariant@ parameter also describes the resources that you want Amazon SageMaker to provision. This includes the number and type of ML compute instances to deploy.+--+-- If you are hosting multiple models, you also assign a @VariantWeight@ to specify how much traffic you want to allocate to each model. For example, suppose that you want to host two models, A and B, and you assign traffic weight 2 for model A and 1 for model B. Amazon SageMaker distributes two-thirds of the traffic to Model A, and one-third to model B.+--+module Network.AWS.SageMaker.CreateEndpointConfig+    (+    -- * Creating a Request+      createEndpointConfig+    , CreateEndpointConfig+    -- * Request Lenses+    , cecKMSKeyId+    , cecTags+    , cecEndpointConfigName+    , cecProductionVariants++    -- * Destructuring the Response+    , createEndpointConfigResponse+    , CreateEndpointConfigResponse+    -- * Response Lenses+    , cecrsResponseStatus+    , cecrsEndpointConfigARN+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'createEndpointConfig' smart constructor.+data CreateEndpointConfig = CreateEndpointConfig'+  { _cecKMSKeyId           :: !(Maybe Text)+  , _cecTags               :: !(Maybe [Tag])+  , _cecEndpointConfigName :: !Text+  , _cecProductionVariants :: !(List1 ProductionVariant)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateEndpointConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cecKMSKeyId' - The Amazon Resource Name (ARN) of a AWS Key Management Service key that Amazon SageMaker uses to encrypt data on the storage volume attached to the ML compute instance that hosts the endpoint.+--+-- * 'cecTags' - An array of key-value pairs. For more information, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+--+-- * 'cecEndpointConfigName' - The name of the endpoint configuration. You specify this name in a <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateEndpoint.html CreateEndpoint> request.+--+-- * 'cecProductionVariants' - An array of @ProductionVariant@ objects, one for each model that you want to host at this endpoint.+createEndpointConfig+    :: Text -- ^ 'cecEndpointConfigName'+    -> NonEmpty ProductionVariant -- ^ 'cecProductionVariants'+    -> CreateEndpointConfig+createEndpointConfig pEndpointConfigName_ pProductionVariants_ =+  CreateEndpointConfig'+    { _cecKMSKeyId = Nothing+    , _cecTags = Nothing+    , _cecEndpointConfigName = pEndpointConfigName_+    , _cecProductionVariants = _List1 # pProductionVariants_+    }+++-- | The Amazon Resource Name (ARN) of a AWS Key Management Service key that Amazon SageMaker uses to encrypt data on the storage volume attached to the ML compute instance that hosts the endpoint.+cecKMSKeyId :: Lens' CreateEndpointConfig (Maybe Text)+cecKMSKeyId = lens _cecKMSKeyId (\ s a -> s{_cecKMSKeyId = a})++-- | An array of key-value pairs. For more information, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+cecTags :: Lens' CreateEndpointConfig [Tag]+cecTags = lens _cecTags (\ s a -> s{_cecTags = a}) . _Default . _Coerce++-- | The name of the endpoint configuration. You specify this name in a <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateEndpoint.html CreateEndpoint> request.+cecEndpointConfigName :: Lens' CreateEndpointConfig Text+cecEndpointConfigName = lens _cecEndpointConfigName (\ s a -> s{_cecEndpointConfigName = a})++-- | An array of @ProductionVariant@ objects, one for each model that you want to host at this endpoint.+cecProductionVariants :: Lens' CreateEndpointConfig (NonEmpty ProductionVariant)+cecProductionVariants = lens _cecProductionVariants (\ s a -> s{_cecProductionVariants = a}) . _List1++instance AWSRequest CreateEndpointConfig where+        type Rs CreateEndpointConfig =+             CreateEndpointConfigResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 CreateEndpointConfigResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "EndpointConfigArn"))++instance Hashable CreateEndpointConfig where++instance NFData CreateEndpointConfig where++instance ToHeaders CreateEndpointConfig where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.CreateEndpointConfig" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateEndpointConfig where+        toJSON CreateEndpointConfig'{..}+          = object+              (catMaybes+                 [("KmsKeyId" .=) <$> _cecKMSKeyId,+                  ("Tags" .=) <$> _cecTags,+                  Just+                    ("EndpointConfigName" .= _cecEndpointConfigName),+                  Just+                    ("ProductionVariants" .= _cecProductionVariants)])++instance ToPath CreateEndpointConfig where+        toPath = const "/"++instance ToQuery CreateEndpointConfig where+        toQuery = const mempty++-- | /See:/ 'createEndpointConfigResponse' smart constructor.+data CreateEndpointConfigResponse = CreateEndpointConfigResponse'+  { _cecrsResponseStatus    :: !Int+  , _cecrsEndpointConfigARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateEndpointConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cecrsResponseStatus' - -- | The response status code.+--+-- * 'cecrsEndpointConfigARN' - The Amazon Resource Name (ARN) of the endpoint configuration.+createEndpointConfigResponse+    :: Int -- ^ 'cecrsResponseStatus'+    -> Text -- ^ 'cecrsEndpointConfigARN'+    -> CreateEndpointConfigResponse+createEndpointConfigResponse pResponseStatus_ pEndpointConfigARN_ =+  CreateEndpointConfigResponse'+    { _cecrsResponseStatus = pResponseStatus_+    , _cecrsEndpointConfigARN = pEndpointConfigARN_+    }+++-- | -- | The response status code.+cecrsResponseStatus :: Lens' CreateEndpointConfigResponse Int+cecrsResponseStatus = lens _cecrsResponseStatus (\ s a -> s{_cecrsResponseStatus = a})++-- | The Amazon Resource Name (ARN) of the endpoint configuration.+cecrsEndpointConfigARN :: Lens' CreateEndpointConfigResponse Text+cecrsEndpointConfigARN = lens _cecrsEndpointConfigARN (\ s a -> s{_cecrsEndpointConfigARN = a})++instance NFData CreateEndpointConfigResponse where
+ gen/Network/AWS/SageMaker/CreateModel.hs view
@@ -0,0 +1,186 @@+{-# 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.SageMaker.CreateModel+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a model in Amazon SageMaker. In the request, you name the model and describe one or more containers. For each container, you specify the docker image containing inference code, artifacts (from prior training), and custom environment map that the inference code uses when you deploy the model into production.+--+--+-- Use this API to create a model only if you want to use Amazon SageMaker hosting services. To host your model, you create an endpoint configuration with the @CreateEndpointConfig@ API, and then create an endpoint with the @CreateEndpoint@ API.+--+-- Amazon SageMaker then deploys all of the containers that you defined for the model in the hosting environment.+--+-- In the @CreateModel@ request, you must define a container with the @PrimaryContainer@ parameter.+--+-- In the request, you also provide an IAM role that Amazon SageMaker can assume to access model artifacts and docker image for deployment on ML compute hosting instances. In addition, you also use the IAM role to manage permissions the inference code needs. For example, if the inference code access any other AWS resources, you grant necessary permissions via this role.+--+module Network.AWS.SageMaker.CreateModel+    (+    -- * Creating a Request+      createModel+    , CreateModel+    -- * Request Lenses+    , cmVPCConfig+    , cmTags+    , cmModelName+    , cmPrimaryContainer+    , cmExecutionRoleARN++    -- * Destructuring the Response+    , createModelResponse+    , CreateModelResponse+    -- * Response Lenses+    , cmrsResponseStatus+    , cmrsModelARN+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'createModel' smart constructor.+data CreateModel = CreateModel'+  { _cmVPCConfig        :: !(Maybe VPCConfig)+  , _cmTags             :: !(Maybe [Tag])+  , _cmModelName        :: !Text+  , _cmPrimaryContainer :: !ContainerDefinition+  , _cmExecutionRoleARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateModel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmVPCConfig' - A object that specifies the VPC that you want your model to connect to. Control access to and from your training container by configuring the VPC. For more information, see 'host-vpc' .+--+-- * 'cmTags' - An array of key-value pairs. For more information, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+--+-- * 'cmModelName' - The name of the new model.+--+-- * 'cmPrimaryContainer' - The location of the primary docker image containing inference code, associated artifacts, and custom environment map that the inference code uses when the model is deployed into production.+--+-- * 'cmExecutionRoleARN' - The Amazon Resource Name (ARN) of the IAM role that Amazon SageMaker can assume to access model artifacts and docker image for deployment on ML compute instances. Deploying on ML compute instances is part of model hosting. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/sagemaker-roles.html Amazon SageMaker Roles> .+createModel+    :: Text -- ^ 'cmModelName'+    -> ContainerDefinition -- ^ 'cmPrimaryContainer'+    -> Text -- ^ 'cmExecutionRoleARN'+    -> CreateModel+createModel pModelName_ pPrimaryContainer_ pExecutionRoleARN_ =+  CreateModel'+    { _cmVPCConfig = Nothing+    , _cmTags = Nothing+    , _cmModelName = pModelName_+    , _cmPrimaryContainer = pPrimaryContainer_+    , _cmExecutionRoleARN = pExecutionRoleARN_+    }+++-- | A object that specifies the VPC that you want your model to connect to. Control access to and from your training container by configuring the VPC. For more information, see 'host-vpc' .+cmVPCConfig :: Lens' CreateModel (Maybe VPCConfig)+cmVPCConfig = lens _cmVPCConfig (\ s a -> s{_cmVPCConfig = a})++-- | An array of key-value pairs. For more information, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+cmTags :: Lens' CreateModel [Tag]+cmTags = lens _cmTags (\ s a -> s{_cmTags = a}) . _Default . _Coerce++-- | The name of the new model.+cmModelName :: Lens' CreateModel Text+cmModelName = lens _cmModelName (\ s a -> s{_cmModelName = a})++-- | The location of the primary docker image containing inference code, associated artifacts, and custom environment map that the inference code uses when the model is deployed into production.+cmPrimaryContainer :: Lens' CreateModel ContainerDefinition+cmPrimaryContainer = lens _cmPrimaryContainer (\ s a -> s{_cmPrimaryContainer = a})++-- | The Amazon Resource Name (ARN) of the IAM role that Amazon SageMaker can assume to access model artifacts and docker image for deployment on ML compute instances. Deploying on ML compute instances is part of model hosting. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/sagemaker-roles.html Amazon SageMaker Roles> .+cmExecutionRoleARN :: Lens' CreateModel Text+cmExecutionRoleARN = lens _cmExecutionRoleARN (\ s a -> s{_cmExecutionRoleARN = a})++instance AWSRequest CreateModel where+        type Rs CreateModel = CreateModelResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 CreateModelResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "ModelArn"))++instance Hashable CreateModel where++instance NFData CreateModel where++instance ToHeaders CreateModel where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.CreateModel" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateModel where+        toJSON CreateModel'{..}+          = object+              (catMaybes+                 [("VpcConfig" .=) <$> _cmVPCConfig,+                  ("Tags" .=) <$> _cmTags,+                  Just ("ModelName" .= _cmModelName),+                  Just ("PrimaryContainer" .= _cmPrimaryContainer),+                  Just ("ExecutionRoleArn" .= _cmExecutionRoleARN)])++instance ToPath CreateModel where+        toPath = const "/"++instance ToQuery CreateModel where+        toQuery = const mempty++-- | /See:/ 'createModelResponse' smart constructor.+data CreateModelResponse = CreateModelResponse'+  { _cmrsResponseStatus :: !Int+  , _cmrsModelARN       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateModelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmrsResponseStatus' - -- | The response status code.+--+-- * 'cmrsModelARN' - The ARN of the model created in Amazon SageMaker.+createModelResponse+    :: Int -- ^ 'cmrsResponseStatus'+    -> Text -- ^ 'cmrsModelARN'+    -> CreateModelResponse+createModelResponse pResponseStatus_ pModelARN_ =+  CreateModelResponse'+    {_cmrsResponseStatus = pResponseStatus_, _cmrsModelARN = pModelARN_}+++-- | -- | The response status code.+cmrsResponseStatus :: Lens' CreateModelResponse Int+cmrsResponseStatus = lens _cmrsResponseStatus (\ s a -> s{_cmrsResponseStatus = a})++-- | The ARN of the model created in Amazon SageMaker.+cmrsModelARN :: Lens' CreateModelResponse Text+cmrsModelARN = lens _cmrsModelARN (\ s a -> s{_cmrsModelARN = a})++instance NFData CreateModelResponse where
+ gen/Network/AWS/SageMaker/CreateNotebookInstance.hs view
@@ -0,0 +1,244 @@+{-# 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.SageMaker.CreateNotebookInstance+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an Amazon SageMaker notebook instance. A notebook instance is a machine learning (ML) compute instance running on a Jupyter notebook.+--+--+-- In a @CreateNotebookInstance@ request, specify the type of ML compute instance that you want to run. Amazon SageMaker launches the instance, installs common libraries that you can use to explore datasets for model training, and attaches an ML storage volume to the notebook instance.+--+-- Amazon SageMaker also provides a set of example notebooks. Each notebook demonstrates how to use Amazon SageMaker with a specific algorithm or with a machine learning framework.+--+-- After receiving the request, Amazon SageMaker does the following:+--+--     * Creates a network interface in the Amazon SageMaker VPC.+--+--     * (Option) If you specified @SubnetId@ , Amazon SageMaker creates a network interface in your own VPC, which is inferred from the subnet ID that you provide in the input. When creating this network interface, Amazon SageMaker attaches the security group that you specified in the request to the network interface that it creates in your VPC.+--+--     * Launches an EC2 instance of the type specified in the request in the Amazon SageMaker VPC. If you specified @SubnetId@ of your VPC, Amazon SageMaker specifies both network interfaces when launching this instance. This enables inbound traffic from your own VPC to the notebook instance, assuming that the security groups allow it.+--+--+--+-- After creating the notebook instance, Amazon SageMaker returns its Amazon Resource Name (ARN).+--+-- After Amazon SageMaker creates the notebook instance, you can connect to the Jupyter server and work in Jupyter notebooks. For example, you can write code to explore a dataset that you can use for model training, train a model, host models by creating Amazon SageMaker endpoints, and validate hosted models.+--+-- For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/how-it-works.html How It Works> .+--+module Network.AWS.SageMaker.CreateNotebookInstance+    (+    -- * Creating a Request+      createNotebookInstance+    , CreateNotebookInstance+    -- * Request Lenses+    , cniSecurityGroupIds+    , cniLifecycleConfigName+    , cniSubnetId+    , cniKMSKeyId+    , cniDirectInternetAccess+    , cniTags+    , cniNotebookInstanceName+    , cniInstanceType+    , cniRoleARN++    -- * Destructuring the Response+    , createNotebookInstanceResponse+    , CreateNotebookInstanceResponse+    -- * Response Lenses+    , cnirsNotebookInstanceARN+    , cnirsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'createNotebookInstance' smart constructor.+data CreateNotebookInstance = CreateNotebookInstance'+  { _cniSecurityGroupIds     :: !(Maybe [Text])+  , _cniLifecycleConfigName  :: !(Maybe Text)+  , _cniSubnetId             :: !(Maybe Text)+  , _cniKMSKeyId             :: !(Maybe Text)+  , _cniDirectInternetAccess :: !(Maybe DirectInternetAccess)+  , _cniTags                 :: !(Maybe [Tag])+  , _cniNotebookInstanceName :: !Text+  , _cniInstanceType         :: !InstanceType+  , _cniRoleARN              :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateNotebookInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cniSecurityGroupIds' - The VPC security group IDs, in the form sg-xxxxxxxx. The security groups must be for the same VPC as specified in the subnet.+--+-- * 'cniLifecycleConfigName' - The name of a lifecycle configuration to associate with the notebook instance. For information about lifestyle configurations, see 'notebook-lifecycle-config' .+--+-- * 'cniSubnetId' - The ID of the subnet in a VPC to which you would like to have a connectivity from your ML compute instance.+--+-- * 'cniKMSKeyId' - If you provide a AWS KMS key ID, Amazon SageMaker uses it to encrypt data at rest on the ML storage volume that is attached to your notebook instance.+--+-- * 'cniDirectInternetAccess' - Sets whether Amazon SageMaker provides internet access to the notebook instance. If you set this to @Disabled@ this notebook instance will be able to access resources only in your VPC, and will not be able to connect to Amazon SageMaker training and endpoint services unless your configure a NAT Gateway in your VPC. For more information, see 'appendix-notebook-and-internet-access' . You can set the value of this parameter to @Disabled@ only if you set a value for the @SubnetId@ parameter.+--+-- * 'cniTags' - A list of tags to associate with the notebook instance. You can add tags later by using the @CreateTags@ API.+--+-- * 'cniNotebookInstanceName' - The name of the new notebook instance.+--+-- * 'cniInstanceType' - The type of ML compute instance to launch for the notebook instance.+--+-- * 'cniRoleARN' - When you send any requests to AWS resources from the notebook instance, Amazon SageMaker assumes this role to perform tasks on your behalf. You must grant this role necessary permissions so Amazon SageMaker can perform these tasks. The policy must allow the Amazon SageMaker service principal (sagemaker.amazonaws.com) permissions to assume this role. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/sagemaker-roles.html Amazon SageMaker Roles> .+createNotebookInstance+    :: Text -- ^ 'cniNotebookInstanceName'+    -> InstanceType -- ^ 'cniInstanceType'+    -> Text -- ^ 'cniRoleARN'+    -> CreateNotebookInstance+createNotebookInstance pNotebookInstanceName_ pInstanceType_ pRoleARN_ =+  CreateNotebookInstance'+    { _cniSecurityGroupIds = Nothing+    , _cniLifecycleConfigName = Nothing+    , _cniSubnetId = Nothing+    , _cniKMSKeyId = Nothing+    , _cniDirectInternetAccess = Nothing+    , _cniTags = Nothing+    , _cniNotebookInstanceName = pNotebookInstanceName_+    , _cniInstanceType = pInstanceType_+    , _cniRoleARN = pRoleARN_+    }+++-- | The VPC security group IDs, in the form sg-xxxxxxxx. The security groups must be for the same VPC as specified in the subnet.+cniSecurityGroupIds :: Lens' CreateNotebookInstance [Text]+cniSecurityGroupIds = lens _cniSecurityGroupIds (\ s a -> s{_cniSecurityGroupIds = a}) . _Default . _Coerce++-- | The name of a lifecycle configuration to associate with the notebook instance. For information about lifestyle configurations, see 'notebook-lifecycle-config' .+cniLifecycleConfigName :: Lens' CreateNotebookInstance (Maybe Text)+cniLifecycleConfigName = lens _cniLifecycleConfigName (\ s a -> s{_cniLifecycleConfigName = a})++-- | The ID of the subnet in a VPC to which you would like to have a connectivity from your ML compute instance.+cniSubnetId :: Lens' CreateNotebookInstance (Maybe Text)+cniSubnetId = lens _cniSubnetId (\ s a -> s{_cniSubnetId = a})++-- | If you provide a AWS KMS key ID, Amazon SageMaker uses it to encrypt data at rest on the ML storage volume that is attached to your notebook instance.+cniKMSKeyId :: Lens' CreateNotebookInstance (Maybe Text)+cniKMSKeyId = lens _cniKMSKeyId (\ s a -> s{_cniKMSKeyId = a})++-- | Sets whether Amazon SageMaker provides internet access to the notebook instance. If you set this to @Disabled@ this notebook instance will be able to access resources only in your VPC, and will not be able to connect to Amazon SageMaker training and endpoint services unless your configure a NAT Gateway in your VPC. For more information, see 'appendix-notebook-and-internet-access' . You can set the value of this parameter to @Disabled@ only if you set a value for the @SubnetId@ parameter.+cniDirectInternetAccess :: Lens' CreateNotebookInstance (Maybe DirectInternetAccess)+cniDirectInternetAccess = lens _cniDirectInternetAccess (\ s a -> s{_cniDirectInternetAccess = a})++-- | A list of tags to associate with the notebook instance. You can add tags later by using the @CreateTags@ API.+cniTags :: Lens' CreateNotebookInstance [Tag]+cniTags = lens _cniTags (\ s a -> s{_cniTags = a}) . _Default . _Coerce++-- | The name of the new notebook instance.+cniNotebookInstanceName :: Lens' CreateNotebookInstance Text+cniNotebookInstanceName = lens _cniNotebookInstanceName (\ s a -> s{_cniNotebookInstanceName = a})++-- | The type of ML compute instance to launch for the notebook instance.+cniInstanceType :: Lens' CreateNotebookInstance InstanceType+cniInstanceType = lens _cniInstanceType (\ s a -> s{_cniInstanceType = a})++-- | When you send any requests to AWS resources from the notebook instance, Amazon SageMaker assumes this role to perform tasks on your behalf. You must grant this role necessary permissions so Amazon SageMaker can perform these tasks. The policy must allow the Amazon SageMaker service principal (sagemaker.amazonaws.com) permissions to assume this role. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/sagemaker-roles.html Amazon SageMaker Roles> .+cniRoleARN :: Lens' CreateNotebookInstance Text+cniRoleARN = lens _cniRoleARN (\ s a -> s{_cniRoleARN = a})++instance AWSRequest CreateNotebookInstance where+        type Rs CreateNotebookInstance =+             CreateNotebookInstanceResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 CreateNotebookInstanceResponse' <$>+                   (x .?> "NotebookInstanceArn") <*>+                     (pure (fromEnum s)))++instance Hashable CreateNotebookInstance where++instance NFData CreateNotebookInstance where++instance ToHeaders CreateNotebookInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.CreateNotebookInstance" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateNotebookInstance where+        toJSON CreateNotebookInstance'{..}+          = object+              (catMaybes+                 [("SecurityGroupIds" .=) <$> _cniSecurityGroupIds,+                  ("LifecycleConfigName" .=) <$>+                    _cniLifecycleConfigName,+                  ("SubnetId" .=) <$> _cniSubnetId,+                  ("KmsKeyId" .=) <$> _cniKMSKeyId,+                  ("DirectInternetAccess" .=) <$>+                    _cniDirectInternetAccess,+                  ("Tags" .=) <$> _cniTags,+                  Just+                    ("NotebookInstanceName" .= _cniNotebookInstanceName),+                  Just ("InstanceType" .= _cniInstanceType),+                  Just ("RoleArn" .= _cniRoleARN)])++instance ToPath CreateNotebookInstance where+        toPath = const "/"++instance ToQuery CreateNotebookInstance where+        toQuery = const mempty++-- | /See:/ 'createNotebookInstanceResponse' smart constructor.+data CreateNotebookInstanceResponse = CreateNotebookInstanceResponse'+  { _cnirsNotebookInstanceARN :: !(Maybe Text)+  , _cnirsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateNotebookInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cnirsNotebookInstanceARN' - The Amazon Resource Name (ARN) of the notebook instance.+--+-- * 'cnirsResponseStatus' - -- | The response status code.+createNotebookInstanceResponse+    :: Int -- ^ 'cnirsResponseStatus'+    -> CreateNotebookInstanceResponse+createNotebookInstanceResponse pResponseStatus_ =+  CreateNotebookInstanceResponse'+    { _cnirsNotebookInstanceARN = Nothing+    , _cnirsResponseStatus = pResponseStatus_+    }+++-- | The Amazon Resource Name (ARN) of the notebook instance.+cnirsNotebookInstanceARN :: Lens' CreateNotebookInstanceResponse (Maybe Text)+cnirsNotebookInstanceARN = lens _cnirsNotebookInstanceARN (\ s a -> s{_cnirsNotebookInstanceARN = a})++-- | -- | The response status code.+cnirsResponseStatus :: Lens' CreateNotebookInstanceResponse Int+cnirsResponseStatus = lens _cnirsResponseStatus (\ s a -> s{_cnirsResponseStatus = a})++instance NFData CreateNotebookInstanceResponse where
+ gen/Network/AWS/SageMaker/CreateNotebookInstanceLifecycleConfig.hs view
@@ -0,0 +1,186 @@+{-# 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.SageMaker.CreateNotebookInstanceLifecycleConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a lifecycle configuration that you can associate with a notebook instance. A /lifecycle configuration/ is a collection of shell scripts that run when you create or start a notebook instance.+--+--+-- Each lifecycle configuration script has a limit of 16384 characters.+--+-- The value of the @> PATH@ environment variable that is available to both scripts is @/sbin:bin:/usr/sbin:/usr/bin@ .+--+-- View CloudWatch Logs for notebook instance lifecycle configurations in log group @/aws/sagemaker/NotebookInstances@ in log stream @[notebook-instance-name]/[LifecycleConfigHook]@ .+--+-- Lifecycle configuration scripts cannot run for longer than 5 minutes. If a script runs for longer than 5 minutes, it fails and the notebook instance is not created or started.+--+-- For information about notebook instance lifestyle configurations, see 'notebook-lifecycle-config' .+--+module Network.AWS.SageMaker.CreateNotebookInstanceLifecycleConfig+    (+    -- * Creating a Request+      createNotebookInstanceLifecycleConfig+    , CreateNotebookInstanceLifecycleConfig+    -- * Request Lenses+    , cnilcOnCreate+    , cnilcOnStart+    , cnilcNotebookInstanceLifecycleConfigName++    -- * Destructuring the Response+    , createNotebookInstanceLifecycleConfigResponse+    , CreateNotebookInstanceLifecycleConfigResponse+    -- * Response Lenses+    , cnilcrsNotebookInstanceLifecycleConfigARN+    , cnilcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'createNotebookInstanceLifecycleConfig' smart constructor.+data CreateNotebookInstanceLifecycleConfig = CreateNotebookInstanceLifecycleConfig'+  { _cnilcOnCreate :: !(Maybe [NotebookInstanceLifecycleHook])+  , _cnilcOnStart :: !(Maybe [NotebookInstanceLifecycleHook])+  , _cnilcNotebookInstanceLifecycleConfigName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateNotebookInstanceLifecycleConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cnilcOnCreate' - A shell script that runs only once, when you create a notebook instance.+--+-- * 'cnilcOnStart' - A shell script that runs every time you start a notebook instance, including when you create the notebook instance.+--+-- * 'cnilcNotebookInstanceLifecycleConfigName' - The name of the lifecycle configuration.+createNotebookInstanceLifecycleConfig+    :: Text -- ^ 'cnilcNotebookInstanceLifecycleConfigName'+    -> CreateNotebookInstanceLifecycleConfig+createNotebookInstanceLifecycleConfig pNotebookInstanceLifecycleConfigName_ =+  CreateNotebookInstanceLifecycleConfig'+    { _cnilcOnCreate = Nothing+    , _cnilcOnStart = Nothing+    , _cnilcNotebookInstanceLifecycleConfigName =+        pNotebookInstanceLifecycleConfigName_+    }+++-- | A shell script that runs only once, when you create a notebook instance.+cnilcOnCreate :: Lens' CreateNotebookInstanceLifecycleConfig [NotebookInstanceLifecycleHook]+cnilcOnCreate = lens _cnilcOnCreate (\ s a -> s{_cnilcOnCreate = a}) . _Default . _Coerce++-- | A shell script that runs every time you start a notebook instance, including when you create the notebook instance.+cnilcOnStart :: Lens' CreateNotebookInstanceLifecycleConfig [NotebookInstanceLifecycleHook]+cnilcOnStart = lens _cnilcOnStart (\ s a -> s{_cnilcOnStart = a}) . _Default . _Coerce++-- | The name of the lifecycle configuration.+cnilcNotebookInstanceLifecycleConfigName :: Lens' CreateNotebookInstanceLifecycleConfig Text+cnilcNotebookInstanceLifecycleConfigName = lens _cnilcNotebookInstanceLifecycleConfigName (\ s a -> s{_cnilcNotebookInstanceLifecycleConfigName = a})++instance AWSRequest+           CreateNotebookInstanceLifecycleConfig+         where+        type Rs CreateNotebookInstanceLifecycleConfig =+             CreateNotebookInstanceLifecycleConfigResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 CreateNotebookInstanceLifecycleConfigResponse' <$>+                   (x .?> "NotebookInstanceLifecycleConfigArn") <*>+                     (pure (fromEnum s)))++instance Hashable+           CreateNotebookInstanceLifecycleConfig+         where++instance NFData CreateNotebookInstanceLifecycleConfig+         where++instance ToHeaders+           CreateNotebookInstanceLifecycleConfig+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.CreateNotebookInstanceLifecycleConfig" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateNotebookInstanceLifecycleConfig+         where+        toJSON CreateNotebookInstanceLifecycleConfig'{..}+          = object+              (catMaybes+                 [("OnCreate" .=) <$> _cnilcOnCreate,+                  ("OnStart" .=) <$> _cnilcOnStart,+                  Just+                    ("NotebookInstanceLifecycleConfigName" .=+                       _cnilcNotebookInstanceLifecycleConfigName)])++instance ToPath CreateNotebookInstanceLifecycleConfig+         where+        toPath = const "/"++instance ToQuery+           CreateNotebookInstanceLifecycleConfig+         where+        toQuery = const mempty++-- | /See:/ 'createNotebookInstanceLifecycleConfigResponse' smart constructor.+data CreateNotebookInstanceLifecycleConfigResponse = CreateNotebookInstanceLifecycleConfigResponse'+  { _cnilcrsNotebookInstanceLifecycleConfigARN :: !(Maybe Text)+  , _cnilcrsResponseStatus                     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateNotebookInstanceLifecycleConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cnilcrsNotebookInstanceLifecycleConfigARN' - The Amazon Resource Name (ARN) of the lifecycle configuration.+--+-- * 'cnilcrsResponseStatus' - -- | The response status code.+createNotebookInstanceLifecycleConfigResponse+    :: Int -- ^ 'cnilcrsResponseStatus'+    -> CreateNotebookInstanceLifecycleConfigResponse+createNotebookInstanceLifecycleConfigResponse pResponseStatus_ =+  CreateNotebookInstanceLifecycleConfigResponse'+    { _cnilcrsNotebookInstanceLifecycleConfigARN = Nothing+    , _cnilcrsResponseStatus = pResponseStatus_+    }+++-- | The Amazon Resource Name (ARN) of the lifecycle configuration.+cnilcrsNotebookInstanceLifecycleConfigARN :: Lens' CreateNotebookInstanceLifecycleConfigResponse (Maybe Text)+cnilcrsNotebookInstanceLifecycleConfigARN = lens _cnilcrsNotebookInstanceLifecycleConfigARN (\ s a -> s{_cnilcrsNotebookInstanceLifecycleConfigARN = a})++-- | -- | The response status code.+cnilcrsResponseStatus :: Lens' CreateNotebookInstanceLifecycleConfigResponse Int+cnilcrsResponseStatus = lens _cnilcrsResponseStatus (\ s a -> s{_cnilcrsResponseStatus = a})++instance NFData+           CreateNotebookInstanceLifecycleConfigResponse+         where
+ gen/Network/AWS/SageMaker/CreatePresignedNotebookInstanceURL.hs view
@@ -0,0 +1,160 @@+{-# 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.SageMaker.CreatePresignedNotebookInstanceURL+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a URL that you can use to connect to the Juypter server from a notebook instance. In the Amazon SageMaker console, when you choose @Open@ next to a notebook instance, Amazon SageMaker opens a new tab showing the Jupyter server home page from the notebook instance. The console uses this API to get the URL and show the page.+--+--+module Network.AWS.SageMaker.CreatePresignedNotebookInstanceURL+    (+    -- * Creating a Request+      createPresignedNotebookInstanceURL+    , CreatePresignedNotebookInstanceURL+    -- * Request Lenses+    , cpniuSessionExpirationDurationInSeconds+    , cpniuNotebookInstanceName++    -- * Destructuring the Response+    , createPresignedNotebookInstanceURLResponse+    , CreatePresignedNotebookInstanceURLResponse+    -- * Response Lenses+    , cpniursAuthorizedURL+    , cpniursResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'createPresignedNotebookInstanceURL' smart constructor.+data CreatePresignedNotebookInstanceURL = CreatePresignedNotebookInstanceURL'+  { _cpniuSessionExpirationDurationInSeconds :: !(Maybe Nat)+  , _cpniuNotebookInstanceName               :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreatePresignedNotebookInstanceURL' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpniuSessionExpirationDurationInSeconds' - The duration of the session, in seconds. The default is 12 hours.+--+-- * 'cpniuNotebookInstanceName' - The name of the notebook instance.+createPresignedNotebookInstanceURL+    :: Text -- ^ 'cpniuNotebookInstanceName'+    -> CreatePresignedNotebookInstanceURL+createPresignedNotebookInstanceURL pNotebookInstanceName_ =+  CreatePresignedNotebookInstanceURL'+    { _cpniuSessionExpirationDurationInSeconds = Nothing+    , _cpniuNotebookInstanceName = pNotebookInstanceName_+    }+++-- | The duration of the session, in seconds. The default is 12 hours.+cpniuSessionExpirationDurationInSeconds :: Lens' CreatePresignedNotebookInstanceURL (Maybe Natural)+cpniuSessionExpirationDurationInSeconds = lens _cpniuSessionExpirationDurationInSeconds (\ s a -> s{_cpniuSessionExpirationDurationInSeconds = a}) . mapping _Nat++-- | The name of the notebook instance.+cpniuNotebookInstanceName :: Lens' CreatePresignedNotebookInstanceURL Text+cpniuNotebookInstanceName = lens _cpniuNotebookInstanceName (\ s a -> s{_cpniuNotebookInstanceName = a})++instance AWSRequest+           CreatePresignedNotebookInstanceURL+         where+        type Rs CreatePresignedNotebookInstanceURL =+             CreatePresignedNotebookInstanceURLResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 CreatePresignedNotebookInstanceURLResponse' <$>+                   (x .?> "AuthorizedUrl") <*> (pure (fromEnum s)))++instance Hashable CreatePresignedNotebookInstanceURL+         where++instance NFData CreatePresignedNotebookInstanceURL+         where++instance ToHeaders CreatePresignedNotebookInstanceURL+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.CreatePresignedNotebookInstanceUrl" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreatePresignedNotebookInstanceURL+         where+        toJSON CreatePresignedNotebookInstanceURL'{..}+          = object+              (catMaybes+                 [("SessionExpirationDurationInSeconds" .=) <$>+                    _cpniuSessionExpirationDurationInSeconds,+                  Just+                    ("NotebookInstanceName" .=+                       _cpniuNotebookInstanceName)])++instance ToPath CreatePresignedNotebookInstanceURL+         where+        toPath = const "/"++instance ToQuery CreatePresignedNotebookInstanceURL+         where+        toQuery = const mempty++-- | /See:/ 'createPresignedNotebookInstanceURLResponse' smart constructor.+data CreatePresignedNotebookInstanceURLResponse = CreatePresignedNotebookInstanceURLResponse'+  { _cpniursAuthorizedURL  :: !(Maybe Text)+  , _cpniursResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreatePresignedNotebookInstanceURLResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpniursAuthorizedURL' - A JSON object that contains the URL string.+--+-- * 'cpniursResponseStatus' - -- | The response status code.+createPresignedNotebookInstanceURLResponse+    :: Int -- ^ 'cpniursResponseStatus'+    -> CreatePresignedNotebookInstanceURLResponse+createPresignedNotebookInstanceURLResponse pResponseStatus_ =+  CreatePresignedNotebookInstanceURLResponse'+    {_cpniursAuthorizedURL = Nothing, _cpniursResponseStatus = pResponseStatus_}+++-- | A JSON object that contains the URL string.+cpniursAuthorizedURL :: Lens' CreatePresignedNotebookInstanceURLResponse (Maybe Text)+cpniursAuthorizedURL = lens _cpniursAuthorizedURL (\ s a -> s{_cpniursAuthorizedURL = a})++-- | -- | The response status code.+cpniursResponseStatus :: Lens' CreatePresignedNotebookInstanceURLResponse Int+cpniursResponseStatus = lens _cpniursResponseStatus (\ s a -> s{_cpniursResponseStatus = a})++instance NFData+           CreatePresignedNotebookInstanceURLResponse+         where
+ gen/Network/AWS/SageMaker/CreateTrainingJob.hs view
@@ -0,0 +1,260 @@+{-# 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.SageMaker.CreateTrainingJob+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts a model training job. After training completes, Amazon SageMaker saves the resulting model artifacts to an Amazon S3 location that you specify.+--+--+-- If you choose to host your model using Amazon SageMaker hosting services, you can use the resulting model artifacts as part of the model. You can also use the artifacts in a deep learning service other than Amazon SageMaker, provided that you know how to use them for inferences.+--+-- In the request body, you provide the following:+--+--     * @AlgorithmSpecification@ - Identifies the training algorithm to use.+--+--     * @HyperParameters@ - Specify these algorithm-specific parameters to influence the quality of the final model. For a list of hyperparameters for each training algorithm provided by Amazon SageMaker, see <http://docs.aws.amazon.com/sagemaker/latest/dg/algos.html Algorithms> .+--+--     * @InputDataConfig@ - Describes the training dataset and the Amazon S3 location where it is stored.+--+--     * @OutputDataConfig@ - Identifies the Amazon S3 location where you want Amazon SageMaker to save the results of model training.+--+--+--+--     * @ResourceConfig@ - Identifies the resources, ML compute instances, and ML storage volumes to deploy for model training. In distributed training, you specify more than one instance.+--+--     * @RoleARN@ - The Amazon Resource Number (ARN) that Amazon SageMaker assumes to perform tasks on your behalf during model training. You must grant this role the necessary permissions so that Amazon SageMaker can successfully complete model training.+--+--     * @StoppingCondition@ - Sets a duration for training. Use this parameter to cap model training costs.+--+--+--+-- For more information about Amazon SageMaker, see <http://docs.aws.amazon.com/sagemaker/latest/dg/how-it-works.html How It Works> .+--+module Network.AWS.SageMaker.CreateTrainingJob+    (+    -- * Creating a Request+      createTrainingJob+    , CreateTrainingJob+    -- * Request Lenses+    , ctjHyperParameters+    , ctjVPCConfig+    , ctjTags+    , ctjTrainingJobName+    , ctjAlgorithmSpecification+    , ctjRoleARN+    , ctjInputDataConfig+    , ctjOutputDataConfig+    , ctjResourceConfig+    , ctjStoppingCondition++    -- * Destructuring the Response+    , createTrainingJobResponse+    , CreateTrainingJobResponse+    -- * Response Lenses+    , ctjrsResponseStatus+    , ctjrsTrainingJobARN+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'createTrainingJob' smart constructor.+data CreateTrainingJob = CreateTrainingJob'+  { _ctjHyperParameters        :: !(Maybe (Map Text Text))+  , _ctjVPCConfig              :: !(Maybe VPCConfig)+  , _ctjTags                   :: !(Maybe [Tag])+  , _ctjTrainingJobName        :: !Text+  , _ctjAlgorithmSpecification :: !AlgorithmSpecification+  , _ctjRoleARN                :: !Text+  , _ctjInputDataConfig        :: !(List1 Channel)+  , _ctjOutputDataConfig       :: !OutputDataConfig+  , _ctjResourceConfig         :: !ResourceConfig+  , _ctjStoppingCondition      :: !StoppingCondition+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateTrainingJob' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctjHyperParameters' - Algorithm-specific parameters. You set hyperparameters before you start the learning process. Hyperparameters influence the quality of the model. For a list of hyperparameters for each training algorithm provided by Amazon SageMaker, see <http://docs.aws.amazon.com/sagemaker/latest/dg/algos.html Algorithms> .  You can specify a maximum of 100 hyperparameters. Each hyperparameter is a key-value pair. Each key and value is limited to 256 characters, as specified by the @Length Constraint@ .+--+-- * 'ctjVPCConfig' - A object that specifies the VPC that you want your training job to connect to. Control access to and from your training container by configuring the VPC. For more information, see 'train-vpc'+--+-- * 'ctjTags' - An array of key-value pairs. For more information, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+--+-- * 'ctjTrainingJobName' - The name of the training job. The name must be unique within an AWS Region in an AWS account. It appears in the Amazon SageMaker console.+--+-- * 'ctjAlgorithmSpecification' - The registry path of the Docker image that contains the training algorithm and algorithm-specific metadata, including the input mode. For more information about algorithms provided by Amazon SageMaker, see <http://docs.aws.amazon.com/sagemaker/latest/dg/algos.html Algorithms> . For information about providing your own algorithms, see 'your-algorithms' .+--+-- * 'ctjRoleARN' - The Amazon Resource Name (ARN) of an IAM role that Amazon SageMaker can assume to perform tasks on your behalf.  During model training, Amazon SageMaker needs your permission to read input data from an S3 bucket, download a Docker image that contains training code, write model artifacts to an S3 bucket, write logs to Amazon CloudWatch Logs, and publish metrics to Amazon CloudWatch. You grant permissions for all of these tasks to an IAM role. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/sagemaker-roles.html Amazon SageMaker Roles> .+--+-- * 'ctjInputDataConfig' - An array of @Channel@ objects. Each channel is a named input source. @InputDataConfig@ describes the input data and its location.  Algorithms can accept input data from one or more channels. For example, an algorithm might have two channels of input data, @training_data@ and @validation_data@ . The configuration for each channel provides the S3 location where the input data is stored. It also provides information about the stored data: the MIME type, compression method, and whether the data is wrapped in RecordIO format.  Depending on the input mode that the algorithm supports, Amazon SageMaker either copies input data files from an S3 bucket to a local directory in the Docker container, or makes it available as input streams.+--+-- * 'ctjOutputDataConfig' - Specifies the path to the S3 bucket where you want to store model artifacts. Amazon SageMaker creates subfolders for the artifacts.+--+-- * 'ctjResourceConfig' - The resources, including the ML compute instances and ML storage volumes, to use for model training.  ML storage volumes store model artifacts and incremental states. Training algorithms might also use ML storage volumes for scratch space. If you want Amazon SageMaker to use the ML storage volume to store the training data, choose @File@ as the @TrainingInputMode@ in the algorithm specification. For distributed training algorithms, specify an instance count greater than 1.+--+-- * 'ctjStoppingCondition' - Sets a duration for training. Use this parameter to cap model training costs. To stop a job, Amazon SageMaker sends the algorithm the @SIGTERM@ signal, which delays job termination for 120 seconds. Algorithms might use this 120-second window to save the model artifacts.  When Amazon SageMaker terminates a job because the stopping condition has been met, training algorithms provided by Amazon SageMaker save the intermediate results of the job. This intermediate data is a valid model artifact. You can use it to create a model using the @CreateModel@ API.+createTrainingJob+    :: Text -- ^ 'ctjTrainingJobName'+    -> AlgorithmSpecification -- ^ 'ctjAlgorithmSpecification'+    -> Text -- ^ 'ctjRoleARN'+    -> NonEmpty Channel -- ^ 'ctjInputDataConfig'+    -> OutputDataConfig -- ^ 'ctjOutputDataConfig'+    -> ResourceConfig -- ^ 'ctjResourceConfig'+    -> StoppingCondition -- ^ 'ctjStoppingCondition'+    -> CreateTrainingJob+createTrainingJob pTrainingJobName_ pAlgorithmSpecification_ pRoleARN_ pInputDataConfig_ pOutputDataConfig_ pResourceConfig_ pStoppingCondition_ =+  CreateTrainingJob'+    { _ctjHyperParameters = Nothing+    , _ctjVPCConfig = Nothing+    , _ctjTags = Nothing+    , _ctjTrainingJobName = pTrainingJobName_+    , _ctjAlgorithmSpecification = pAlgorithmSpecification_+    , _ctjRoleARN = pRoleARN_+    , _ctjInputDataConfig = _List1 # pInputDataConfig_+    , _ctjOutputDataConfig = pOutputDataConfig_+    , _ctjResourceConfig = pResourceConfig_+    , _ctjStoppingCondition = pStoppingCondition_+    }+++-- | Algorithm-specific parameters. You set hyperparameters before you start the learning process. Hyperparameters influence the quality of the model. For a list of hyperparameters for each training algorithm provided by Amazon SageMaker, see <http://docs.aws.amazon.com/sagemaker/latest/dg/algos.html Algorithms> .  You can specify a maximum of 100 hyperparameters. Each hyperparameter is a key-value pair. Each key and value is limited to 256 characters, as specified by the @Length Constraint@ .+ctjHyperParameters :: Lens' CreateTrainingJob (HashMap Text Text)+ctjHyperParameters = lens _ctjHyperParameters (\ s a -> s{_ctjHyperParameters = a}) . _Default . _Map++-- | A object that specifies the VPC that you want your training job to connect to. Control access to and from your training container by configuring the VPC. For more information, see 'train-vpc'+ctjVPCConfig :: Lens' CreateTrainingJob (Maybe VPCConfig)+ctjVPCConfig = lens _ctjVPCConfig (\ s a -> s{_ctjVPCConfig = a})++-- | An array of key-value pairs. For more information, see <http://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html#allocation-what Using Cost Allocation Tags> in the /AWS Billing and Cost Management User Guide/ .+ctjTags :: Lens' CreateTrainingJob [Tag]+ctjTags = lens _ctjTags (\ s a -> s{_ctjTags = a}) . _Default . _Coerce++-- | The name of the training job. The name must be unique within an AWS Region in an AWS account. It appears in the Amazon SageMaker console.+ctjTrainingJobName :: Lens' CreateTrainingJob Text+ctjTrainingJobName = lens _ctjTrainingJobName (\ s a -> s{_ctjTrainingJobName = a})++-- | The registry path of the Docker image that contains the training algorithm and algorithm-specific metadata, including the input mode. For more information about algorithms provided by Amazon SageMaker, see <http://docs.aws.amazon.com/sagemaker/latest/dg/algos.html Algorithms> . For information about providing your own algorithms, see 'your-algorithms' .+ctjAlgorithmSpecification :: Lens' CreateTrainingJob AlgorithmSpecification+ctjAlgorithmSpecification = lens _ctjAlgorithmSpecification (\ s a -> s{_ctjAlgorithmSpecification = a})++-- | The Amazon Resource Name (ARN) of an IAM role that Amazon SageMaker can assume to perform tasks on your behalf.  During model training, Amazon SageMaker needs your permission to read input data from an S3 bucket, download a Docker image that contains training code, write model artifacts to an S3 bucket, write logs to Amazon CloudWatch Logs, and publish metrics to Amazon CloudWatch. You grant permissions for all of these tasks to an IAM role. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/sagemaker-roles.html Amazon SageMaker Roles> .+ctjRoleARN :: Lens' CreateTrainingJob Text+ctjRoleARN = lens _ctjRoleARN (\ s a -> s{_ctjRoleARN = a})++-- | An array of @Channel@ objects. Each channel is a named input source. @InputDataConfig@ describes the input data and its location.  Algorithms can accept input data from one or more channels. For example, an algorithm might have two channels of input data, @training_data@ and @validation_data@ . The configuration for each channel provides the S3 location where the input data is stored. It also provides information about the stored data: the MIME type, compression method, and whether the data is wrapped in RecordIO format.  Depending on the input mode that the algorithm supports, Amazon SageMaker either copies input data files from an S3 bucket to a local directory in the Docker container, or makes it available as input streams.+ctjInputDataConfig :: Lens' CreateTrainingJob (NonEmpty Channel)+ctjInputDataConfig = lens _ctjInputDataConfig (\ s a -> s{_ctjInputDataConfig = a}) . _List1++-- | Specifies the path to the S3 bucket where you want to store model artifacts. Amazon SageMaker creates subfolders for the artifacts.+ctjOutputDataConfig :: Lens' CreateTrainingJob OutputDataConfig+ctjOutputDataConfig = lens _ctjOutputDataConfig (\ s a -> s{_ctjOutputDataConfig = a})++-- | The resources, including the ML compute instances and ML storage volumes, to use for model training.  ML storage volumes store model artifacts and incremental states. Training algorithms might also use ML storage volumes for scratch space. If you want Amazon SageMaker to use the ML storage volume to store the training data, choose @File@ as the @TrainingInputMode@ in the algorithm specification. For distributed training algorithms, specify an instance count greater than 1.+ctjResourceConfig :: Lens' CreateTrainingJob ResourceConfig+ctjResourceConfig = lens _ctjResourceConfig (\ s a -> s{_ctjResourceConfig = a})++-- | Sets a duration for training. Use this parameter to cap model training costs. To stop a job, Amazon SageMaker sends the algorithm the @SIGTERM@ signal, which delays job termination for 120 seconds. Algorithms might use this 120-second window to save the model artifacts.  When Amazon SageMaker terminates a job because the stopping condition has been met, training algorithms provided by Amazon SageMaker save the intermediate results of the job. This intermediate data is a valid model artifact. You can use it to create a model using the @CreateModel@ API.+ctjStoppingCondition :: Lens' CreateTrainingJob StoppingCondition+ctjStoppingCondition = lens _ctjStoppingCondition (\ s a -> s{_ctjStoppingCondition = a})++instance AWSRequest CreateTrainingJob where+        type Rs CreateTrainingJob = CreateTrainingJobResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 CreateTrainingJobResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "TrainingJobArn"))++instance Hashable CreateTrainingJob where++instance NFData CreateTrainingJob where++instance ToHeaders CreateTrainingJob where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.CreateTrainingJob" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateTrainingJob where+        toJSON CreateTrainingJob'{..}+          = object+              (catMaybes+                 [("HyperParameters" .=) <$> _ctjHyperParameters,+                  ("VpcConfig" .=) <$> _ctjVPCConfig,+                  ("Tags" .=) <$> _ctjTags,+                  Just ("TrainingJobName" .= _ctjTrainingJobName),+                  Just+                    ("AlgorithmSpecification" .=+                       _ctjAlgorithmSpecification),+                  Just ("RoleArn" .= _ctjRoleARN),+                  Just ("InputDataConfig" .= _ctjInputDataConfig),+                  Just ("OutputDataConfig" .= _ctjOutputDataConfig),+                  Just ("ResourceConfig" .= _ctjResourceConfig),+                  Just ("StoppingCondition" .= _ctjStoppingCondition)])++instance ToPath CreateTrainingJob where+        toPath = const "/"++instance ToQuery CreateTrainingJob where+        toQuery = const mempty++-- | /See:/ 'createTrainingJobResponse' smart constructor.+data CreateTrainingJobResponse = CreateTrainingJobResponse'+  { _ctjrsResponseStatus :: !Int+  , _ctjrsTrainingJobARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateTrainingJobResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctjrsResponseStatus' - -- | The response status code.+--+-- * 'ctjrsTrainingJobARN' - The Amazon Resource Name (ARN) of the training job.+createTrainingJobResponse+    :: Int -- ^ 'ctjrsResponseStatus'+    -> Text -- ^ 'ctjrsTrainingJobARN'+    -> CreateTrainingJobResponse+createTrainingJobResponse pResponseStatus_ pTrainingJobARN_ =+  CreateTrainingJobResponse'+    { _ctjrsResponseStatus = pResponseStatus_+    , _ctjrsTrainingJobARN = pTrainingJobARN_+    }+++-- | -- | The response status code.+ctjrsResponseStatus :: Lens' CreateTrainingJobResponse Int+ctjrsResponseStatus = lens _ctjrsResponseStatus (\ s a -> s{_ctjrsResponseStatus = a})++-- | The Amazon Resource Name (ARN) of the training job.+ctjrsTrainingJobARN :: Lens' CreateTrainingJobResponse Text+ctjrsTrainingJobARN = lens _ctjrsTrainingJobARN (\ s a -> s{_ctjrsTrainingJobARN = a})++instance NFData CreateTrainingJobResponse where
+ gen/Network/AWS/SageMaker/DeleteEndpoint.hs view
@@ -0,0 +1,109 @@+{-# 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.SageMaker.DeleteEndpoint+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an endpoint. Amazon SageMaker frees up all of the resources that were deployed when the endpoint was created.+--+--+module Network.AWS.SageMaker.DeleteEndpoint+    (+    -- * Creating a Request+      deleteEndpoint+    , DeleteEndpoint+    -- * Request Lenses+    , deEndpointName++    -- * Destructuring the Response+    , deleteEndpointResponse+    , DeleteEndpointResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'deleteEndpoint' smart constructor.+newtype DeleteEndpoint = DeleteEndpoint'+  { _deEndpointName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEndpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'deEndpointName' - The name of the endpoint that you want to delete.+deleteEndpoint+    :: Text -- ^ 'deEndpointName'+    -> DeleteEndpoint+deleteEndpoint pEndpointName_ =+  DeleteEndpoint' {_deEndpointName = pEndpointName_}+++-- | The name of the endpoint that you want to delete.+deEndpointName :: Lens' DeleteEndpoint Text+deEndpointName = lens _deEndpointName (\ s a -> s{_deEndpointName = a})++instance AWSRequest DeleteEndpoint where+        type Rs DeleteEndpoint = DeleteEndpointResponse+        request = postJSON sageMaker+        response = receiveNull DeleteEndpointResponse'++instance Hashable DeleteEndpoint where++instance NFData DeleteEndpoint where++instance ToHeaders DeleteEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DeleteEndpoint" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteEndpoint where+        toJSON DeleteEndpoint'{..}+          = object+              (catMaybes+                 [Just ("EndpointName" .= _deEndpointName)])++instance ToPath DeleteEndpoint where+        toPath = const "/"++instance ToQuery DeleteEndpoint where+        toQuery = const mempty++-- | /See:/ 'deleteEndpointResponse' smart constructor.+data DeleteEndpointResponse =+  DeleteEndpointResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEndpointResponse' with the minimum fields required to make a request.+--+deleteEndpointResponse+    :: DeleteEndpointResponse+deleteEndpointResponse = DeleteEndpointResponse'+++instance NFData DeleteEndpointResponse where
+ gen/Network/AWS/SageMaker/DeleteEndpointConfig.hs view
@@ -0,0 +1,111 @@+{-# 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.SageMaker.DeleteEndpointConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an endpoint configuration. The @DeleteEndpoingConfig@ API deletes only the specified configuration. It does not delete endpoints created using the configuration.+--+--+module Network.AWS.SageMaker.DeleteEndpointConfig+    (+    -- * Creating a Request+      deleteEndpointConfig+    , DeleteEndpointConfig+    -- * Request Lenses+    , dEndpointConfigName++    -- * Destructuring the Response+    , deleteEndpointConfigResponse+    , DeleteEndpointConfigResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'deleteEndpointConfig' smart constructor.+newtype DeleteEndpointConfig = DeleteEndpointConfig'+  { _dEndpointConfigName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEndpointConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dEndpointConfigName' - The name of the endpoint configuration that you want to delete.+deleteEndpointConfig+    :: Text -- ^ 'dEndpointConfigName'+    -> DeleteEndpointConfig+deleteEndpointConfig pEndpointConfigName_ =+  DeleteEndpointConfig' {_dEndpointConfigName = pEndpointConfigName_}+++-- | The name of the endpoint configuration that you want to delete.+dEndpointConfigName :: Lens' DeleteEndpointConfig Text+dEndpointConfigName = lens _dEndpointConfigName (\ s a -> s{_dEndpointConfigName = a})++instance AWSRequest DeleteEndpointConfig where+        type Rs DeleteEndpointConfig =+             DeleteEndpointConfigResponse+        request = postJSON sageMaker+        response = receiveNull DeleteEndpointConfigResponse'++instance Hashable DeleteEndpointConfig where++instance NFData DeleteEndpointConfig where++instance ToHeaders DeleteEndpointConfig where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DeleteEndpointConfig" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteEndpointConfig where+        toJSON DeleteEndpointConfig'{..}+          = object+              (catMaybes+                 [Just+                    ("EndpointConfigName" .= _dEndpointConfigName)])++instance ToPath DeleteEndpointConfig where+        toPath = const "/"++instance ToQuery DeleteEndpointConfig where+        toQuery = const mempty++-- | /See:/ 'deleteEndpointConfigResponse' smart constructor.+data DeleteEndpointConfigResponse =+  DeleteEndpointConfigResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEndpointConfigResponse' with the minimum fields required to make a request.+--+deleteEndpointConfigResponse+    :: DeleteEndpointConfigResponse+deleteEndpointConfigResponse = DeleteEndpointConfigResponse'+++instance NFData DeleteEndpointConfigResponse where
+ gen/Network/AWS/SageMaker/DeleteModel.hs view
@@ -0,0 +1,107 @@+{-# 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.SageMaker.DeleteModel+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a model. The @DeleteModel@ API deletes only the model entry that was created in Amazon SageMaker when you called the <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateModel.html CreateModel> API. It does not delete model artifacts, inference code, or the IAM role that you specified when creating the model.+--+--+module Network.AWS.SageMaker.DeleteModel+    (+    -- * Creating a Request+      deleteModel+    , DeleteModel+    -- * Request Lenses+    , dmModelName++    -- * Destructuring the Response+    , deleteModelResponse+    , DeleteModelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'deleteModel' smart constructor.+newtype DeleteModel = DeleteModel'+  { _dmModelName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteModel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dmModelName' - The name of the model to delete.+deleteModel+    :: Text -- ^ 'dmModelName'+    -> DeleteModel+deleteModel pModelName_ = DeleteModel' {_dmModelName = pModelName_}+++-- | The name of the model to delete.+dmModelName :: Lens' DeleteModel Text+dmModelName = lens _dmModelName (\ s a -> s{_dmModelName = a})++instance AWSRequest DeleteModel where+        type Rs DeleteModel = DeleteModelResponse+        request = postJSON sageMaker+        response = receiveNull DeleteModelResponse'++instance Hashable DeleteModel where++instance NFData DeleteModel where++instance ToHeaders DeleteModel where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DeleteModel" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteModel where+        toJSON DeleteModel'{..}+          = object+              (catMaybes [Just ("ModelName" .= _dmModelName)])++instance ToPath DeleteModel where+        toPath = const "/"++instance ToQuery DeleteModel where+        toQuery = const mempty++-- | /See:/ 'deleteModelResponse' smart constructor.+data DeleteModelResponse =+  DeleteModelResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteModelResponse' with the minimum fields required to make a request.+--+deleteModelResponse+    :: DeleteModelResponse+deleteModelResponse = DeleteModelResponse'+++instance NFData DeleteModelResponse where
+ gen/Network/AWS/SageMaker/DeleteNotebookInstance.hs view
@@ -0,0 +1,114 @@+{-# 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.SageMaker.DeleteNotebookInstance+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an Amazon SageMaker notebook instance. Before you can delete a notebook instance, you must call the @StopNotebookInstance@ API.+--+--+-- /Important:/ When you delete a notebook instance, you lose all of your data. Amazon SageMaker removes the ML compute instance, and deletes the ML storage volume and the network interface associated with the notebook instance.+--+module Network.AWS.SageMaker.DeleteNotebookInstance+    (+    -- * Creating a Request+      deleteNotebookInstance+    , DeleteNotebookInstance+    -- * Request Lenses+    , dNotebookInstanceName++    -- * Destructuring the Response+    , deleteNotebookInstanceResponse+    , DeleteNotebookInstanceResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'deleteNotebookInstance' smart constructor.+newtype DeleteNotebookInstance = DeleteNotebookInstance'+  { _dNotebookInstanceName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteNotebookInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dNotebookInstanceName' - The name of the Amazon SageMaker notebook instance to delete.+deleteNotebookInstance+    :: Text -- ^ 'dNotebookInstanceName'+    -> DeleteNotebookInstance+deleteNotebookInstance pNotebookInstanceName_ =+  DeleteNotebookInstance' {_dNotebookInstanceName = pNotebookInstanceName_}+++-- | The name of the Amazon SageMaker notebook instance to delete.+dNotebookInstanceName :: Lens' DeleteNotebookInstance Text+dNotebookInstanceName = lens _dNotebookInstanceName (\ s a -> s{_dNotebookInstanceName = a})++instance AWSRequest DeleteNotebookInstance where+        type Rs DeleteNotebookInstance =+             DeleteNotebookInstanceResponse+        request = postJSON sageMaker+        response+          = receiveNull DeleteNotebookInstanceResponse'++instance Hashable DeleteNotebookInstance where++instance NFData DeleteNotebookInstance where++instance ToHeaders DeleteNotebookInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DeleteNotebookInstance" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteNotebookInstance where+        toJSON DeleteNotebookInstance'{..}+          = object+              (catMaybes+                 [Just+                    ("NotebookInstanceName" .= _dNotebookInstanceName)])++instance ToPath DeleteNotebookInstance where+        toPath = const "/"++instance ToQuery DeleteNotebookInstance where+        toQuery = const mempty++-- | /See:/ 'deleteNotebookInstanceResponse' smart constructor.+data DeleteNotebookInstanceResponse =+  DeleteNotebookInstanceResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteNotebookInstanceResponse' with the minimum fields required to make a request.+--+deleteNotebookInstanceResponse+    :: DeleteNotebookInstanceResponse+deleteNotebookInstanceResponse = DeleteNotebookInstanceResponse'+++instance NFData DeleteNotebookInstanceResponse where
+ gen/Network/AWS/SageMaker/DeleteNotebookInstanceLifecycleConfig.hs view
@@ -0,0 +1,132 @@+{-# 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.SageMaker.DeleteNotebookInstanceLifecycleConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a notebook instance lifecycle configuration.+--+--+module Network.AWS.SageMaker.DeleteNotebookInstanceLifecycleConfig+    (+    -- * Creating a Request+      deleteNotebookInstanceLifecycleConfig+    , DeleteNotebookInstanceLifecycleConfig+    -- * Request Lenses+    , dnilcNotebookInstanceLifecycleConfigName++    -- * Destructuring the Response+    , deleteNotebookInstanceLifecycleConfigResponse+    , DeleteNotebookInstanceLifecycleConfigResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'deleteNotebookInstanceLifecycleConfig' smart constructor.+newtype DeleteNotebookInstanceLifecycleConfig = DeleteNotebookInstanceLifecycleConfig'+  { _dnilcNotebookInstanceLifecycleConfigName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteNotebookInstanceLifecycleConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnilcNotebookInstanceLifecycleConfigName' - The name of the lifecycle configuration to delete.+deleteNotebookInstanceLifecycleConfig+    :: Text -- ^ 'dnilcNotebookInstanceLifecycleConfigName'+    -> DeleteNotebookInstanceLifecycleConfig+deleteNotebookInstanceLifecycleConfig pNotebookInstanceLifecycleConfigName_ =+  DeleteNotebookInstanceLifecycleConfig'+    { _dnilcNotebookInstanceLifecycleConfigName =+        pNotebookInstanceLifecycleConfigName_+    }+++-- | The name of the lifecycle configuration to delete.+dnilcNotebookInstanceLifecycleConfigName :: Lens' DeleteNotebookInstanceLifecycleConfig Text+dnilcNotebookInstanceLifecycleConfigName = lens _dnilcNotebookInstanceLifecycleConfigName (\ s a -> s{_dnilcNotebookInstanceLifecycleConfigName = a})++instance AWSRequest+           DeleteNotebookInstanceLifecycleConfig+         where+        type Rs DeleteNotebookInstanceLifecycleConfig =+             DeleteNotebookInstanceLifecycleConfigResponse+        request = postJSON sageMaker+        response+          = receiveNull+              DeleteNotebookInstanceLifecycleConfigResponse'++instance Hashable+           DeleteNotebookInstanceLifecycleConfig+         where++instance NFData DeleteNotebookInstanceLifecycleConfig+         where++instance ToHeaders+           DeleteNotebookInstanceLifecycleConfig+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DeleteNotebookInstanceLifecycleConfig" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteNotebookInstanceLifecycleConfig+         where+        toJSON DeleteNotebookInstanceLifecycleConfig'{..}+          = object+              (catMaybes+                 [Just+                    ("NotebookInstanceLifecycleConfigName" .=+                       _dnilcNotebookInstanceLifecycleConfigName)])++instance ToPath DeleteNotebookInstanceLifecycleConfig+         where+        toPath = const "/"++instance ToQuery+           DeleteNotebookInstanceLifecycleConfig+         where+        toQuery = const mempty++-- | /See:/ 'deleteNotebookInstanceLifecycleConfigResponse' smart constructor.+data DeleteNotebookInstanceLifecycleConfigResponse =+  DeleteNotebookInstanceLifecycleConfigResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteNotebookInstanceLifecycleConfigResponse' with the minimum fields required to make a request.+--+deleteNotebookInstanceLifecycleConfigResponse+    :: DeleteNotebookInstanceLifecycleConfigResponse+deleteNotebookInstanceLifecycleConfigResponse =+  DeleteNotebookInstanceLifecycleConfigResponse'+++instance NFData+           DeleteNotebookInstanceLifecycleConfigResponse+         where
+ gen/Network/AWS/SageMaker/DeleteTags.hs view
@@ -0,0 +1,135 @@+{-# 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.SageMaker.DeleteTags+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified tags from an Amazon SageMaker resource.+--+--+-- To list a resource's tags, use the @ListTags@ API.+--+module Network.AWS.SageMaker.DeleteTags+    (+    -- * Creating a Request+      deleteTags+    , DeleteTags+    -- * Request Lenses+    , dtResourceARN+    , dtTagKeys++    -- * Destructuring the Response+    , deleteTagsResponse+    , DeleteTagsResponse+    -- * Response Lenses+    , dtrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'deleteTags' smart constructor.+data DeleteTags = DeleteTags'+  { _dtResourceARN :: !Text+  , _dtTagKeys     :: !(List1 Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteTags' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtResourceARN' - The Amazon Resource Name (ARN) of the resource whose tags you want to delete.+--+-- * 'dtTagKeys' - An array or one or more tag keys to delete.+deleteTags+    :: Text -- ^ 'dtResourceARN'+    -> NonEmpty Text -- ^ 'dtTagKeys'+    -> DeleteTags+deleteTags pResourceARN_ pTagKeys_ =+  DeleteTags' {_dtResourceARN = pResourceARN_, _dtTagKeys = _List1 # pTagKeys_}+++-- | The Amazon Resource Name (ARN) of the resource whose tags you want to delete.+dtResourceARN :: Lens' DeleteTags Text+dtResourceARN = lens _dtResourceARN (\ s a -> s{_dtResourceARN = a})++-- | An array or one or more tag keys to delete.+dtTagKeys :: Lens' DeleteTags (NonEmpty Text)+dtTagKeys = lens _dtTagKeys (\ s a -> s{_dtTagKeys = a}) . _List1++instance AWSRequest DeleteTags where+        type Rs DeleteTags = DeleteTagsResponse+        request = postJSON sageMaker+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteTagsResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteTags where++instance NFData DeleteTags where++instance ToHeaders DeleteTags where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DeleteTags" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteTags where+        toJSON DeleteTags'{..}+          = object+              (catMaybes+                 [Just ("ResourceArn" .= _dtResourceARN),+                  Just ("TagKeys" .= _dtTagKeys)])++instance ToPath DeleteTags where+        toPath = const "/"++instance ToQuery DeleteTags where+        toQuery = const mempty++-- | /See:/ 'deleteTagsResponse' smart constructor.+newtype DeleteTagsResponse = DeleteTagsResponse'+  { _dtrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteTagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtrsResponseStatus' - -- | The response status code.+deleteTagsResponse+    :: Int -- ^ 'dtrsResponseStatus'+    -> DeleteTagsResponse+deleteTagsResponse pResponseStatus_ =+  DeleteTagsResponse' {_dtrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dtrsResponseStatus :: Lens' DeleteTagsResponse Int+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})++instance NFData DeleteTagsResponse where
+ gen/Network/AWS/SageMaker/DescribeEndpoint.hs view
@@ -0,0 +1,211 @@+{-# 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.SageMaker.DescribeEndpoint+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the description of an endpoint.+--+--+module Network.AWS.SageMaker.DescribeEndpoint+    (+    -- * Creating a Request+      describeEndpoint+    , DescribeEndpoint+    -- * Request Lenses+    , dEndpointName++    -- * Destructuring the Response+    , describeEndpointResponse+    , DescribeEndpointResponse+    -- * Response Lenses+    , dersFailureReason+    , dersProductionVariants+    , dersResponseStatus+    , dersEndpointName+    , dersEndpointARN+    , dersEndpointConfigName+    , dersEndpointStatus+    , dersCreationTime+    , dersLastModifiedTime+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'describeEndpoint' smart constructor.+newtype DescribeEndpoint = DescribeEndpoint'+  { _dEndpointName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEndpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dEndpointName' - The name of the endpoint.+describeEndpoint+    :: Text -- ^ 'dEndpointName'+    -> DescribeEndpoint+describeEndpoint pEndpointName_ =+  DescribeEndpoint' {_dEndpointName = pEndpointName_}+++-- | The name of the endpoint.+dEndpointName :: Lens' DescribeEndpoint Text+dEndpointName = lens _dEndpointName (\ s a -> s{_dEndpointName = a})++instance AWSRequest DescribeEndpoint where+        type Rs DescribeEndpoint = DescribeEndpointResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEndpointResponse' <$>+                   (x .?> "FailureReason") <*>+                     (x .?> "ProductionVariants")+                     <*> (pure (fromEnum s))+                     <*> (x .:> "EndpointName")+                     <*> (x .:> "EndpointArn")+                     <*> (x .:> "EndpointConfigName")+                     <*> (x .:> "EndpointStatus")+                     <*> (x .:> "CreationTime")+                     <*> (x .:> "LastModifiedTime"))++instance Hashable DescribeEndpoint where++instance NFData DescribeEndpoint where++instance ToHeaders DescribeEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DescribeEndpoint" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEndpoint where+        toJSON DescribeEndpoint'{..}+          = object+              (catMaybes [Just ("EndpointName" .= _dEndpointName)])++instance ToPath DescribeEndpoint where+        toPath = const "/"++instance ToQuery DescribeEndpoint where+        toQuery = const mempty++-- | /See:/ 'describeEndpointResponse' smart constructor.+data DescribeEndpointResponse = DescribeEndpointResponse'+  { _dersFailureReason      :: !(Maybe Text)+  , _dersProductionVariants :: !(Maybe (List1 ProductionVariantSummary))+  , _dersResponseStatus     :: !Int+  , _dersEndpointName       :: !Text+  , _dersEndpointARN        :: !Text+  , _dersEndpointConfigName :: !Text+  , _dersEndpointStatus     :: !EndpointStatus+  , _dersCreationTime       :: !POSIX+  , _dersLastModifiedTime   :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEndpointResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dersFailureReason' - If the status of the endpoint is @Failed@ , the reason why it failed.+--+-- * 'dersProductionVariants' - An array of ProductionVariant objects, one for each model hosted behind this endpoint.+--+-- * 'dersResponseStatus' - -- | The response status code.+--+-- * 'dersEndpointName' - Name of the endpoint.+--+-- * 'dersEndpointARN' - The Amazon Resource Name (ARN) of the endpoint.+--+-- * 'dersEndpointConfigName' - The name of the endpoint configuration associated with this endpoint.+--+-- * 'dersEndpointStatus' - The status of the endpoint.+--+-- * 'dersCreationTime' - A timestamp that shows when the endpoint was created.+--+-- * 'dersLastModifiedTime' - A timestamp that shows when the endpoint was last modified.+describeEndpointResponse+    :: Int -- ^ 'dersResponseStatus'+    -> Text -- ^ 'dersEndpointName'+    -> Text -- ^ 'dersEndpointARN'+    -> Text -- ^ 'dersEndpointConfigName'+    -> EndpointStatus -- ^ 'dersEndpointStatus'+    -> UTCTime -- ^ 'dersCreationTime'+    -> UTCTime -- ^ 'dersLastModifiedTime'+    -> DescribeEndpointResponse+describeEndpointResponse pResponseStatus_ pEndpointName_ pEndpointARN_ pEndpointConfigName_ pEndpointStatus_ pCreationTime_ pLastModifiedTime_ =+  DescribeEndpointResponse'+    { _dersFailureReason = Nothing+    , _dersProductionVariants = Nothing+    , _dersResponseStatus = pResponseStatus_+    , _dersEndpointName = pEndpointName_+    , _dersEndpointARN = pEndpointARN_+    , _dersEndpointConfigName = pEndpointConfigName_+    , _dersEndpointStatus = pEndpointStatus_+    , _dersCreationTime = _Time # pCreationTime_+    , _dersLastModifiedTime = _Time # pLastModifiedTime_+    }+++-- | If the status of the endpoint is @Failed@ , the reason why it failed.+dersFailureReason :: Lens' DescribeEndpointResponse (Maybe Text)+dersFailureReason = lens _dersFailureReason (\ s a -> s{_dersFailureReason = a})++-- | An array of ProductionVariant objects, one for each model hosted behind this endpoint.+dersProductionVariants :: Lens' DescribeEndpointResponse (Maybe (NonEmpty ProductionVariantSummary))+dersProductionVariants = lens _dersProductionVariants (\ s a -> s{_dersProductionVariants = a}) . mapping _List1++-- | -- | The response status code.+dersResponseStatus :: Lens' DescribeEndpointResponse Int+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})++-- | Name of the endpoint.+dersEndpointName :: Lens' DescribeEndpointResponse Text+dersEndpointName = lens _dersEndpointName (\ s a -> s{_dersEndpointName = a})++-- | The Amazon Resource Name (ARN) of the endpoint.+dersEndpointARN :: Lens' DescribeEndpointResponse Text+dersEndpointARN = lens _dersEndpointARN (\ s a -> s{_dersEndpointARN = a})++-- | The name of the endpoint configuration associated with this endpoint.+dersEndpointConfigName :: Lens' DescribeEndpointResponse Text+dersEndpointConfigName = lens _dersEndpointConfigName (\ s a -> s{_dersEndpointConfigName = a})++-- | The status of the endpoint.+dersEndpointStatus :: Lens' DescribeEndpointResponse EndpointStatus+dersEndpointStatus = lens _dersEndpointStatus (\ s a -> s{_dersEndpointStatus = a})++-- | A timestamp that shows when the endpoint was created.+dersCreationTime :: Lens' DescribeEndpointResponse UTCTime+dersCreationTime = lens _dersCreationTime (\ s a -> s{_dersCreationTime = a}) . _Time++-- | A timestamp that shows when the endpoint was last modified.+dersLastModifiedTime :: Lens' DescribeEndpointResponse UTCTime+dersLastModifiedTime = lens _dersLastModifiedTime (\ s a -> s{_dersLastModifiedTime = a}) . _Time++instance NFData DescribeEndpointResponse where
+ gen/Network/AWS/SageMaker/DescribeEndpointConfig.hs view
@@ -0,0 +1,181 @@+{-# 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.SageMaker.DescribeEndpointConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the description of an endpoint configuration created using the @CreateEndpointConfig@ API.+--+--+module Network.AWS.SageMaker.DescribeEndpointConfig+    (+    -- * Creating a Request+      describeEndpointConfig+    , DescribeEndpointConfig+    -- * Request Lenses+    , decEndpointConfigName++    -- * Destructuring the Response+    , describeEndpointConfigResponse+    , DescribeEndpointConfigResponse+    -- * Response Lenses+    , decrsKMSKeyId+    , decrsResponseStatus+    , decrsEndpointConfigName+    , decrsEndpointConfigARN+    , decrsProductionVariants+    , decrsCreationTime+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'describeEndpointConfig' smart constructor.+newtype DescribeEndpointConfig = DescribeEndpointConfig'+  { _decEndpointConfigName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEndpointConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'decEndpointConfigName' - The name of the endpoint configuration.+describeEndpointConfig+    :: Text -- ^ 'decEndpointConfigName'+    -> DescribeEndpointConfig+describeEndpointConfig pEndpointConfigName_ =+  DescribeEndpointConfig' {_decEndpointConfigName = pEndpointConfigName_}+++-- | The name of the endpoint configuration.+decEndpointConfigName :: Lens' DescribeEndpointConfig Text+decEndpointConfigName = lens _decEndpointConfigName (\ s a -> s{_decEndpointConfigName = a})++instance AWSRequest DescribeEndpointConfig where+        type Rs DescribeEndpointConfig =+             DescribeEndpointConfigResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEndpointConfigResponse' <$>+                   (x .?> "KmsKeyId") <*> (pure (fromEnum s)) <*>+                     (x .:> "EndpointConfigName")+                     <*> (x .:> "EndpointConfigArn")+                     <*> (x .:> "ProductionVariants")+                     <*> (x .:> "CreationTime"))++instance Hashable DescribeEndpointConfig where++instance NFData DescribeEndpointConfig where++instance ToHeaders DescribeEndpointConfig where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DescribeEndpointConfig" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEndpointConfig where+        toJSON DescribeEndpointConfig'{..}+          = object+              (catMaybes+                 [Just+                    ("EndpointConfigName" .= _decEndpointConfigName)])++instance ToPath DescribeEndpointConfig where+        toPath = const "/"++instance ToQuery DescribeEndpointConfig where+        toQuery = const mempty++-- | /See:/ 'describeEndpointConfigResponse' smart constructor.+data DescribeEndpointConfigResponse = DescribeEndpointConfigResponse'+  { _decrsKMSKeyId           :: !(Maybe Text)+  , _decrsResponseStatus     :: !Int+  , _decrsEndpointConfigName :: !Text+  , _decrsEndpointConfigARN  :: !Text+  , _decrsProductionVariants :: !(List1 ProductionVariant)+  , _decrsCreationTime       :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEndpointConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'decrsKMSKeyId' - AWS KMS key ID Amazon SageMaker uses to encrypt data when storing it on the ML storage volume attached to the instance.+--+-- * 'decrsResponseStatus' - -- | The response status code.+--+-- * 'decrsEndpointConfigName' - Name of the Amazon SageMaker endpoint configuration.+--+-- * 'decrsEndpointConfigARN' - The Amazon Resource Name (ARN) of the endpoint configuration.+--+-- * 'decrsProductionVariants' - An array of @ProductionVariant@ objects, one for each model that you want to host at this endpoint.+--+-- * 'decrsCreationTime' - A timestamp that shows when the endpoint configuration was created.+describeEndpointConfigResponse+    :: Int -- ^ 'decrsResponseStatus'+    -> Text -- ^ 'decrsEndpointConfigName'+    -> Text -- ^ 'decrsEndpointConfigARN'+    -> NonEmpty ProductionVariant -- ^ 'decrsProductionVariants'+    -> UTCTime -- ^ 'decrsCreationTime'+    -> DescribeEndpointConfigResponse+describeEndpointConfigResponse pResponseStatus_ pEndpointConfigName_ pEndpointConfigARN_ pProductionVariants_ pCreationTime_ =+  DescribeEndpointConfigResponse'+    { _decrsKMSKeyId = Nothing+    , _decrsResponseStatus = pResponseStatus_+    , _decrsEndpointConfigName = pEndpointConfigName_+    , _decrsEndpointConfigARN = pEndpointConfigARN_+    , _decrsProductionVariants = _List1 # pProductionVariants_+    , _decrsCreationTime = _Time # pCreationTime_+    }+++-- | AWS KMS key ID Amazon SageMaker uses to encrypt data when storing it on the ML storage volume attached to the instance.+decrsKMSKeyId :: Lens' DescribeEndpointConfigResponse (Maybe Text)+decrsKMSKeyId = lens _decrsKMSKeyId (\ s a -> s{_decrsKMSKeyId = a})++-- | -- | The response status code.+decrsResponseStatus :: Lens' DescribeEndpointConfigResponse Int+decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a})++-- | Name of the Amazon SageMaker endpoint configuration.+decrsEndpointConfigName :: Lens' DescribeEndpointConfigResponse Text+decrsEndpointConfigName = lens _decrsEndpointConfigName (\ s a -> s{_decrsEndpointConfigName = a})++-- | The Amazon Resource Name (ARN) of the endpoint configuration.+decrsEndpointConfigARN :: Lens' DescribeEndpointConfigResponse Text+decrsEndpointConfigARN = lens _decrsEndpointConfigARN (\ s a -> s{_decrsEndpointConfigARN = a})++-- | An array of @ProductionVariant@ objects, one for each model that you want to host at this endpoint.+decrsProductionVariants :: Lens' DescribeEndpointConfigResponse (NonEmpty ProductionVariant)+decrsProductionVariants = lens _decrsProductionVariants (\ s a -> s{_decrsProductionVariants = a}) . _List1++-- | A timestamp that shows when the endpoint configuration was created.+decrsCreationTime :: Lens' DescribeEndpointConfigResponse UTCTime+decrsCreationTime = lens _decrsCreationTime (\ s a -> s{_decrsCreationTime = a}) . _Time++instance NFData DescribeEndpointConfigResponse where
+ gen/Network/AWS/SageMaker/DescribeModel.hs view
@@ -0,0 +1,188 @@+{-# 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.SageMaker.DescribeModel+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes a model that you created using the @CreateModel@ API.+--+--+module Network.AWS.SageMaker.DescribeModel+    (+    -- * Creating a Request+      describeModel+    , DescribeModel+    -- * Request Lenses+    , dModelName++    -- * Destructuring the Response+    , describeModelResponse+    , DescribeModelResponse+    -- * Response Lenses+    , dmrsVPCConfig+    , dmrsResponseStatus+    , dmrsModelName+    , dmrsPrimaryContainer+    , dmrsExecutionRoleARN+    , dmrsCreationTime+    , dmrsModelARN+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'describeModel' smart constructor.+newtype DescribeModel = DescribeModel'+  { _dModelName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeModel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dModelName' - The name of the model.+describeModel+    :: Text -- ^ 'dModelName'+    -> DescribeModel+describeModel pModelName_ = DescribeModel' {_dModelName = pModelName_}+++-- | The name of the model.+dModelName :: Lens' DescribeModel Text+dModelName = lens _dModelName (\ s a -> s{_dModelName = a})++instance AWSRequest DescribeModel where+        type Rs DescribeModel = DescribeModelResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 DescribeModelResponse' <$>+                   (x .?> "VpcConfig") <*> (pure (fromEnum s)) <*>+                     (x .:> "ModelName")+                     <*> (x .:> "PrimaryContainer")+                     <*> (x .:> "ExecutionRoleArn")+                     <*> (x .:> "CreationTime")+                     <*> (x .:> "ModelArn"))++instance Hashable DescribeModel where++instance NFData DescribeModel where++instance ToHeaders DescribeModel where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DescribeModel" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeModel where+        toJSON DescribeModel'{..}+          = object+              (catMaybes [Just ("ModelName" .= _dModelName)])++instance ToPath DescribeModel where+        toPath = const "/"++instance ToQuery DescribeModel where+        toQuery = const mempty++-- | /See:/ 'describeModelResponse' smart constructor.+data DescribeModelResponse = DescribeModelResponse'+  { _dmrsVPCConfig        :: !(Maybe VPCConfig)+  , _dmrsResponseStatus   :: !Int+  , _dmrsModelName        :: !Text+  , _dmrsPrimaryContainer :: !ContainerDefinition+  , _dmrsExecutionRoleARN :: !Text+  , _dmrsCreationTime     :: !POSIX+  , _dmrsModelARN         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeModelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dmrsVPCConfig' - A object that specifies the VPC that this model has access to. For more information, see 'host-vpc'+--+-- * 'dmrsResponseStatus' - -- | The response status code.+--+-- * 'dmrsModelName' - Name of the Amazon SageMaker model.+--+-- * 'dmrsPrimaryContainer' - The location of the primary inference code, associated artifacts, and custom environment map that the inference code uses when it is deployed in production.+--+-- * 'dmrsExecutionRoleARN' - The Amazon Resource Name (ARN) of the IAM role that you specified for the model.+--+-- * 'dmrsCreationTime' - A timestamp that shows when the model was created.+--+-- * 'dmrsModelARN' - The Amazon Resource Name (ARN) of the model.+describeModelResponse+    :: Int -- ^ 'dmrsResponseStatus'+    -> Text -- ^ 'dmrsModelName'+    -> ContainerDefinition -- ^ 'dmrsPrimaryContainer'+    -> Text -- ^ 'dmrsExecutionRoleARN'+    -> UTCTime -- ^ 'dmrsCreationTime'+    -> Text -- ^ 'dmrsModelARN'+    -> DescribeModelResponse+describeModelResponse pResponseStatus_ pModelName_ pPrimaryContainer_ pExecutionRoleARN_ pCreationTime_ pModelARN_ =+  DescribeModelResponse'+    { _dmrsVPCConfig = Nothing+    , _dmrsResponseStatus = pResponseStatus_+    , _dmrsModelName = pModelName_+    , _dmrsPrimaryContainer = pPrimaryContainer_+    , _dmrsExecutionRoleARN = pExecutionRoleARN_+    , _dmrsCreationTime = _Time # pCreationTime_+    , _dmrsModelARN = pModelARN_+    }+++-- | A object that specifies the VPC that this model has access to. For more information, see 'host-vpc'+dmrsVPCConfig :: Lens' DescribeModelResponse (Maybe VPCConfig)+dmrsVPCConfig = lens _dmrsVPCConfig (\ s a -> s{_dmrsVPCConfig = a})++-- | -- | The response status code.+dmrsResponseStatus :: Lens' DescribeModelResponse Int+dmrsResponseStatus = lens _dmrsResponseStatus (\ s a -> s{_dmrsResponseStatus = a})++-- | Name of the Amazon SageMaker model.+dmrsModelName :: Lens' DescribeModelResponse Text+dmrsModelName = lens _dmrsModelName (\ s a -> s{_dmrsModelName = a})++-- | The location of the primary inference code, associated artifacts, and custom environment map that the inference code uses when it is deployed in production.+dmrsPrimaryContainer :: Lens' DescribeModelResponse ContainerDefinition+dmrsPrimaryContainer = lens _dmrsPrimaryContainer (\ s a -> s{_dmrsPrimaryContainer = a})++-- | The Amazon Resource Name (ARN) of the IAM role that you specified for the model.+dmrsExecutionRoleARN :: Lens' DescribeModelResponse Text+dmrsExecutionRoleARN = lens _dmrsExecutionRoleARN (\ s a -> s{_dmrsExecutionRoleARN = a})++-- | A timestamp that shows when the model was created.+dmrsCreationTime :: Lens' DescribeModelResponse UTCTime+dmrsCreationTime = lens _dmrsCreationTime (\ s a -> s{_dmrsCreationTime = a}) . _Time++-- | The Amazon Resource Name (ARN) of the model.+dmrsModelARN :: Lens' DescribeModelResponse Text+dmrsModelARN = lens _dmrsModelARN (\ s a -> s{_dmrsModelARN = a})++instance NFData DescribeModelResponse where
+ gen/Network/AWS/SageMaker/DescribeNotebookInstance.hs view
@@ -0,0 +1,280 @@+{-# 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.SageMaker.DescribeNotebookInstance+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about a notebook instance.+--+--+module Network.AWS.SageMaker.DescribeNotebookInstance+    (+    -- * Creating a Request+      describeNotebookInstance+    , DescribeNotebookInstance+    -- * Request Lenses+    , dniNotebookInstanceName++    -- * Destructuring the Response+    , describeNotebookInstanceResponse+    , DescribeNotebookInstanceResponse+    -- * Response Lenses+    , dnirsCreationTime+    , dnirsFailureReason+    , dnirsNotebookInstanceName+    , dnirsSecurityGroups+    , dnirsURL+    , dnirsLastModifiedTime+    , dnirsNetworkInterfaceId+    , dnirsSubnetId+    , dnirsInstanceType+    , dnirsKMSKeyId+    , dnirsDirectInternetAccess+    , dnirsNotebookInstanceARN+    , dnirsNotebookInstanceLifecycleConfigName+    , dnirsRoleARN+    , dnirsResponseStatus+    , dnirsNotebookInstanceStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'describeNotebookInstance' smart constructor.+newtype DescribeNotebookInstance = DescribeNotebookInstance'+  { _dniNotebookInstanceName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeNotebookInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dniNotebookInstanceName' - The name of the notebook instance that you want information about.+describeNotebookInstance+    :: Text -- ^ 'dniNotebookInstanceName'+    -> DescribeNotebookInstance+describeNotebookInstance pNotebookInstanceName_ =+  DescribeNotebookInstance' {_dniNotebookInstanceName = pNotebookInstanceName_}+++-- | The name of the notebook instance that you want information about.+dniNotebookInstanceName :: Lens' DescribeNotebookInstance Text+dniNotebookInstanceName = lens _dniNotebookInstanceName (\ s a -> s{_dniNotebookInstanceName = a})++instance AWSRequest DescribeNotebookInstance where+        type Rs DescribeNotebookInstance =+             DescribeNotebookInstanceResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 DescribeNotebookInstanceResponse' <$>+                   (x .?> "CreationTime") <*> (x .?> "FailureReason")+                     <*> (x .?> "NotebookInstanceName")+                     <*> (x .?> "SecurityGroups" .!@ mempty)+                     <*> (x .?> "Url")+                     <*> (x .?> "LastModifiedTime")+                     <*> (x .?> "NetworkInterfaceId")+                     <*> (x .?> "SubnetId")+                     <*> (x .?> "InstanceType")+                     <*> (x .?> "KmsKeyId")+                     <*> (x .?> "DirectInternetAccess")+                     <*> (x .?> "NotebookInstanceArn")+                     <*> (x .?> "NotebookInstanceLifecycleConfigName")+                     <*> (x .?> "RoleArn")+                     <*> (pure (fromEnum s))+                     <*> (x .:> "NotebookInstanceStatus"))++instance Hashable DescribeNotebookInstance where++instance NFData DescribeNotebookInstance where++instance ToHeaders DescribeNotebookInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DescribeNotebookInstance" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeNotebookInstance where+        toJSON DescribeNotebookInstance'{..}+          = object+              (catMaybes+                 [Just+                    ("NotebookInstanceName" .=+                       _dniNotebookInstanceName)])++instance ToPath DescribeNotebookInstance where+        toPath = const "/"++instance ToQuery DescribeNotebookInstance where+        toQuery = const mempty++-- | /See:/ 'describeNotebookInstanceResponse' smart constructor.+data DescribeNotebookInstanceResponse = DescribeNotebookInstanceResponse'+  { _dnirsCreationTime                        :: !(Maybe POSIX)+  , _dnirsFailureReason                       :: !(Maybe Text)+  , _dnirsNotebookInstanceName                :: !(Maybe Text)+  , _dnirsSecurityGroups                      :: !(Maybe [Text])+  , _dnirsURL                                 :: !(Maybe Text)+  , _dnirsLastModifiedTime                    :: !(Maybe POSIX)+  , _dnirsNetworkInterfaceId                  :: !(Maybe Text)+  , _dnirsSubnetId                            :: !(Maybe Text)+  , _dnirsInstanceType                        :: !(Maybe InstanceType)+  , _dnirsKMSKeyId                            :: !(Maybe Text)+  , _dnirsDirectInternetAccess                :: !(Maybe DirectInternetAccess)+  , _dnirsNotebookInstanceARN                 :: !(Maybe Text)+  , _dnirsNotebookInstanceLifecycleConfigName :: !(Maybe Text)+  , _dnirsRoleARN                             :: !(Maybe Text)+  , _dnirsResponseStatus                      :: !Int+  , _dnirsNotebookInstanceStatus              :: !NotebookInstanceStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeNotebookInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnirsCreationTime' - A timestamp. Use this parameter to return the time when the notebook instance was created+--+-- * 'dnirsFailureReason' - If status is failed, the reason it failed.+--+-- * 'dnirsNotebookInstanceName' - Name of the Amazon SageMaker notebook instance.+--+-- * 'dnirsSecurityGroups' - The IDs of the VPC security groups.+--+-- * 'dnirsURL' - The URL that you use to connect to the Jupyter notebook that is running in your notebook instance.+--+-- * 'dnirsLastModifiedTime' - A timestamp. Use this parameter to retrieve the time when the notebook instance was last modified.+--+-- * 'dnirsNetworkInterfaceId' - Network interface IDs that Amazon SageMaker created at the time of creating the instance.+--+-- * 'dnirsSubnetId' - The ID of the VPC subnet.+--+-- * 'dnirsInstanceType' - The type of ML compute instance running on the notebook instance.+--+-- * 'dnirsKMSKeyId' - AWS KMS key ID Amazon SageMaker uses to encrypt data when storing it on the ML storage volume attached to the instance.+--+-- * 'dnirsDirectInternetAccess' - Describes whether Amazon SageMaker provides internet access to the notebook instance. If this value is set to /Disabled, he notebook instance does not have internet access, and cannot connect to Amazon SageMaker training and endpoint services/ . For more information, see 'appendix-notebook-and-internet-access' .+--+-- * 'dnirsNotebookInstanceARN' - The Amazon Resource Name (ARN) of the notebook instance.+--+-- * 'dnirsNotebookInstanceLifecycleConfigName' - Returns the name of a notebook instance lifecycle configuration. For information about notebook instance lifestyle configurations, see 'notebook-lifecycle-config' .+--+-- * 'dnirsRoleARN' - Amazon Resource Name (ARN) of the IAM role associated with the instance.+--+-- * 'dnirsResponseStatus' - -- | The response status code.+--+-- * 'dnirsNotebookInstanceStatus' - The status of the notebook instance.+describeNotebookInstanceResponse+    :: Int -- ^ 'dnirsResponseStatus'+    -> NotebookInstanceStatus -- ^ 'dnirsNotebookInstanceStatus'+    -> DescribeNotebookInstanceResponse+describeNotebookInstanceResponse pResponseStatus_ pNotebookInstanceStatus_ =+  DescribeNotebookInstanceResponse'+    { _dnirsCreationTime = Nothing+    , _dnirsFailureReason = Nothing+    , _dnirsNotebookInstanceName = Nothing+    , _dnirsSecurityGroups = Nothing+    , _dnirsURL = Nothing+    , _dnirsLastModifiedTime = Nothing+    , _dnirsNetworkInterfaceId = Nothing+    , _dnirsSubnetId = Nothing+    , _dnirsInstanceType = Nothing+    , _dnirsKMSKeyId = Nothing+    , _dnirsDirectInternetAccess = Nothing+    , _dnirsNotebookInstanceARN = Nothing+    , _dnirsNotebookInstanceLifecycleConfigName = Nothing+    , _dnirsRoleARN = Nothing+    , _dnirsResponseStatus = pResponseStatus_+    , _dnirsNotebookInstanceStatus = pNotebookInstanceStatus_+    }+++-- | A timestamp. Use this parameter to return the time when the notebook instance was created+dnirsCreationTime :: Lens' DescribeNotebookInstanceResponse (Maybe UTCTime)+dnirsCreationTime = lens _dnirsCreationTime (\ s a -> s{_dnirsCreationTime = a}) . mapping _Time++-- | If status is failed, the reason it failed.+dnirsFailureReason :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsFailureReason = lens _dnirsFailureReason (\ s a -> s{_dnirsFailureReason = a})++-- | Name of the Amazon SageMaker notebook instance.+dnirsNotebookInstanceName :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsNotebookInstanceName = lens _dnirsNotebookInstanceName (\ s a -> s{_dnirsNotebookInstanceName = a})++-- | The IDs of the VPC security groups.+dnirsSecurityGroups :: Lens' DescribeNotebookInstanceResponse [Text]+dnirsSecurityGroups = lens _dnirsSecurityGroups (\ s a -> s{_dnirsSecurityGroups = a}) . _Default . _Coerce++-- | The URL that you use to connect to the Jupyter notebook that is running in your notebook instance.+dnirsURL :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsURL = lens _dnirsURL (\ s a -> s{_dnirsURL = a})++-- | A timestamp. Use this parameter to retrieve the time when the notebook instance was last modified.+dnirsLastModifiedTime :: Lens' DescribeNotebookInstanceResponse (Maybe UTCTime)+dnirsLastModifiedTime = lens _dnirsLastModifiedTime (\ s a -> s{_dnirsLastModifiedTime = a}) . mapping _Time++-- | Network interface IDs that Amazon SageMaker created at the time of creating the instance.+dnirsNetworkInterfaceId :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsNetworkInterfaceId = lens _dnirsNetworkInterfaceId (\ s a -> s{_dnirsNetworkInterfaceId = a})++-- | The ID of the VPC subnet.+dnirsSubnetId :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsSubnetId = lens _dnirsSubnetId (\ s a -> s{_dnirsSubnetId = a})++-- | The type of ML compute instance running on the notebook instance.+dnirsInstanceType :: Lens' DescribeNotebookInstanceResponse (Maybe InstanceType)+dnirsInstanceType = lens _dnirsInstanceType (\ s a -> s{_dnirsInstanceType = a})++-- | AWS KMS key ID Amazon SageMaker uses to encrypt data when storing it on the ML storage volume attached to the instance.+dnirsKMSKeyId :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsKMSKeyId = lens _dnirsKMSKeyId (\ s a -> s{_dnirsKMSKeyId = a})++-- | Describes whether Amazon SageMaker provides internet access to the notebook instance. If this value is set to /Disabled, he notebook instance does not have internet access, and cannot connect to Amazon SageMaker training and endpoint services/ . For more information, see 'appendix-notebook-and-internet-access' .+dnirsDirectInternetAccess :: Lens' DescribeNotebookInstanceResponse (Maybe DirectInternetAccess)+dnirsDirectInternetAccess = lens _dnirsDirectInternetAccess (\ s a -> s{_dnirsDirectInternetAccess = a})++-- | The Amazon Resource Name (ARN) of the notebook instance.+dnirsNotebookInstanceARN :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsNotebookInstanceARN = lens _dnirsNotebookInstanceARN (\ s a -> s{_dnirsNotebookInstanceARN = a})++-- | Returns the name of a notebook instance lifecycle configuration. For information about notebook instance lifestyle configurations, see 'notebook-lifecycle-config' .+dnirsNotebookInstanceLifecycleConfigName :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsNotebookInstanceLifecycleConfigName = lens _dnirsNotebookInstanceLifecycleConfigName (\ s a -> s{_dnirsNotebookInstanceLifecycleConfigName = a})++-- | Amazon Resource Name (ARN) of the IAM role associated with the instance.+dnirsRoleARN :: Lens' DescribeNotebookInstanceResponse (Maybe Text)+dnirsRoleARN = lens _dnirsRoleARN (\ s a -> s{_dnirsRoleARN = a})++-- | -- | The response status code.+dnirsResponseStatus :: Lens' DescribeNotebookInstanceResponse Int+dnirsResponseStatus = lens _dnirsResponseStatus (\ s a -> s{_dnirsResponseStatus = a})++-- | The status of the notebook instance.+dnirsNotebookInstanceStatus :: Lens' DescribeNotebookInstanceResponse NotebookInstanceStatus+dnirsNotebookInstanceStatus = lens _dnirsNotebookInstanceStatus (\ s a -> s{_dnirsNotebookInstanceStatus = a})++instance NFData DescribeNotebookInstanceResponse+         where
+ gen/Network/AWS/SageMaker/DescribeNotebookInstanceLifecycleConfig.hs view
@@ -0,0 +1,211 @@+{-# 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.SageMaker.DescribeNotebookInstanceLifecycleConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a description of a notebook instance lifecycle configuration.+--+--+-- For information about notebook instance lifestyle configurations, see 'notebook-lifecycle-config' .+--+module Network.AWS.SageMaker.DescribeNotebookInstanceLifecycleConfig+    (+    -- * Creating a Request+      describeNotebookInstanceLifecycleConfig+    , DescribeNotebookInstanceLifecycleConfig+    -- * Request Lenses+    , dNotebookInstanceLifecycleConfigName++    -- * Destructuring the Response+    , describeNotebookInstanceLifecycleConfigResponse+    , DescribeNotebookInstanceLifecycleConfigResponse+    -- * Response Lenses+    , dnilcrsCreationTime+    , dnilcrsOnCreate+    , dnilcrsLastModifiedTime+    , dnilcrsNotebookInstanceLifecycleConfigARN+    , dnilcrsOnStart+    , dnilcrsNotebookInstanceLifecycleConfigName+    , dnilcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'describeNotebookInstanceLifecycleConfig' smart constructor.+newtype DescribeNotebookInstanceLifecycleConfig = DescribeNotebookInstanceLifecycleConfig'+  { _dNotebookInstanceLifecycleConfigName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeNotebookInstanceLifecycleConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dNotebookInstanceLifecycleConfigName' - The name of the lifecycle configuration to describe.+describeNotebookInstanceLifecycleConfig+    :: Text -- ^ 'dNotebookInstanceLifecycleConfigName'+    -> DescribeNotebookInstanceLifecycleConfig+describeNotebookInstanceLifecycleConfig pNotebookInstanceLifecycleConfigName_ =+  DescribeNotebookInstanceLifecycleConfig'+    { _dNotebookInstanceLifecycleConfigName =+        pNotebookInstanceLifecycleConfigName_+    }+++-- | The name of the lifecycle configuration to describe.+dNotebookInstanceLifecycleConfigName :: Lens' DescribeNotebookInstanceLifecycleConfig Text+dNotebookInstanceLifecycleConfigName = lens _dNotebookInstanceLifecycleConfigName (\ s a -> s{_dNotebookInstanceLifecycleConfigName = a})++instance AWSRequest+           DescribeNotebookInstanceLifecycleConfig+         where+        type Rs DescribeNotebookInstanceLifecycleConfig =+             DescribeNotebookInstanceLifecycleConfigResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 DescribeNotebookInstanceLifecycleConfigResponse' <$>+                   (x .?> "CreationTime") <*>+                     (x .?> "OnCreate" .!@ mempty)+                     <*> (x .?> "LastModifiedTime")+                     <*> (x .?> "NotebookInstanceLifecycleConfigArn")+                     <*> (x .?> "OnStart" .!@ mempty)+                     <*> (x .?> "NotebookInstanceLifecycleConfigName")+                     <*> (pure (fromEnum s)))++instance Hashable+           DescribeNotebookInstanceLifecycleConfig+         where++instance NFData+           DescribeNotebookInstanceLifecycleConfig+         where++instance ToHeaders+           DescribeNotebookInstanceLifecycleConfig+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DescribeNotebookInstanceLifecycleConfig"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON+           DescribeNotebookInstanceLifecycleConfig+         where+        toJSON DescribeNotebookInstanceLifecycleConfig'{..}+          = object+              (catMaybes+                 [Just+                    ("NotebookInstanceLifecycleConfigName" .=+                       _dNotebookInstanceLifecycleConfigName)])++instance ToPath+           DescribeNotebookInstanceLifecycleConfig+         where+        toPath = const "/"++instance ToQuery+           DescribeNotebookInstanceLifecycleConfig+         where+        toQuery = const mempty++-- | /See:/ 'describeNotebookInstanceLifecycleConfigResponse' smart constructor.+data DescribeNotebookInstanceLifecycleConfigResponse = DescribeNotebookInstanceLifecycleConfigResponse'+  { _dnilcrsCreationTime :: !(Maybe POSIX)+  , _dnilcrsOnCreate :: !(Maybe [NotebookInstanceLifecycleHook])+  , _dnilcrsLastModifiedTime :: !(Maybe POSIX)+  , _dnilcrsNotebookInstanceLifecycleConfigARN :: !(Maybe Text)+  , _dnilcrsOnStart :: !(Maybe [NotebookInstanceLifecycleHook])+  , _dnilcrsNotebookInstanceLifecycleConfigName :: !(Maybe Text)+  , _dnilcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeNotebookInstanceLifecycleConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnilcrsCreationTime' - A timestamp that tells when the lifecycle configuration was created.+--+-- * 'dnilcrsOnCreate' - The shell script that runs only once, when you create a notebook instance.+--+-- * 'dnilcrsLastModifiedTime' - A timestamp that tells when the lifecycle configuration was last modified.+--+-- * 'dnilcrsNotebookInstanceLifecycleConfigARN' - The Amazon Resource Name (ARN) of the lifecycle configuration.+--+-- * 'dnilcrsOnStart' - The shell script that runs every time you start a notebook instance, including when you create the notebook instance.+--+-- * 'dnilcrsNotebookInstanceLifecycleConfigName' - The name of the lifecycle configuration.+--+-- * 'dnilcrsResponseStatus' - -- | The response status code.+describeNotebookInstanceLifecycleConfigResponse+    :: Int -- ^ 'dnilcrsResponseStatus'+    -> DescribeNotebookInstanceLifecycleConfigResponse+describeNotebookInstanceLifecycleConfigResponse pResponseStatus_ =+  DescribeNotebookInstanceLifecycleConfigResponse'+    { _dnilcrsCreationTime = Nothing+    , _dnilcrsOnCreate = Nothing+    , _dnilcrsLastModifiedTime = Nothing+    , _dnilcrsNotebookInstanceLifecycleConfigARN = Nothing+    , _dnilcrsOnStart = Nothing+    , _dnilcrsNotebookInstanceLifecycleConfigName = Nothing+    , _dnilcrsResponseStatus = pResponseStatus_+    }+++-- | A timestamp that tells when the lifecycle configuration was created.+dnilcrsCreationTime :: Lens' DescribeNotebookInstanceLifecycleConfigResponse (Maybe UTCTime)+dnilcrsCreationTime = lens _dnilcrsCreationTime (\ s a -> s{_dnilcrsCreationTime = a}) . mapping _Time++-- | The shell script that runs only once, when you create a notebook instance.+dnilcrsOnCreate :: Lens' DescribeNotebookInstanceLifecycleConfigResponse [NotebookInstanceLifecycleHook]+dnilcrsOnCreate = lens _dnilcrsOnCreate (\ s a -> s{_dnilcrsOnCreate = a}) . _Default . _Coerce++-- | A timestamp that tells when the lifecycle configuration was last modified.+dnilcrsLastModifiedTime :: Lens' DescribeNotebookInstanceLifecycleConfigResponse (Maybe UTCTime)+dnilcrsLastModifiedTime = lens _dnilcrsLastModifiedTime (\ s a -> s{_dnilcrsLastModifiedTime = a}) . mapping _Time++-- | The Amazon Resource Name (ARN) of the lifecycle configuration.+dnilcrsNotebookInstanceLifecycleConfigARN :: Lens' DescribeNotebookInstanceLifecycleConfigResponse (Maybe Text)+dnilcrsNotebookInstanceLifecycleConfigARN = lens _dnilcrsNotebookInstanceLifecycleConfigARN (\ s a -> s{_dnilcrsNotebookInstanceLifecycleConfigARN = a})++-- | The shell script that runs every time you start a notebook instance, including when you create the notebook instance.+dnilcrsOnStart :: Lens' DescribeNotebookInstanceLifecycleConfigResponse [NotebookInstanceLifecycleHook]+dnilcrsOnStart = lens _dnilcrsOnStart (\ s a -> s{_dnilcrsOnStart = a}) . _Default . _Coerce++-- | The name of the lifecycle configuration.+dnilcrsNotebookInstanceLifecycleConfigName :: Lens' DescribeNotebookInstanceLifecycleConfigResponse (Maybe Text)+dnilcrsNotebookInstanceLifecycleConfigName = lens _dnilcrsNotebookInstanceLifecycleConfigName (\ s a -> s{_dnilcrsNotebookInstanceLifecycleConfigName = a})++-- | -- | The response status code.+dnilcrsResponseStatus :: Lens' DescribeNotebookInstanceLifecycleConfigResponse Int+dnilcrsResponseStatus = lens _dnilcrsResponseStatus (\ s a -> s{_dnilcrsResponseStatus = a})++instance NFData+           DescribeNotebookInstanceLifecycleConfigResponse+         where
+ gen/Network/AWS/SageMaker/DescribeTrainingJob.hs view
@@ -0,0 +1,316 @@+{-# 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.SageMaker.DescribeTrainingJob+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about a training job.+--+--+module Network.AWS.SageMaker.DescribeTrainingJob+    (+    -- * Creating a Request+      describeTrainingJob+    , DescribeTrainingJob+    -- * Request Lenses+    , dtjTrainingJobName++    -- * Destructuring the Response+    , describeTrainingJobResponse+    , DescribeTrainingJobResponse+    -- * Response Lenses+    , dtjrsFailureReason+    , dtjrsTrainingEndTime+    , dtjrsLastModifiedTime+    , dtjrsHyperParameters+    , dtjrsVPCConfig+    , dtjrsOutputDataConfig+    , dtjrsTrainingStartTime+    , dtjrsRoleARN+    , dtjrsResponseStatus+    , dtjrsTrainingJobName+    , dtjrsTrainingJobARN+    , dtjrsModelArtifacts+    , dtjrsTrainingJobStatus+    , dtjrsSecondaryStatus+    , dtjrsAlgorithmSpecification+    , dtjrsInputDataConfig+    , dtjrsResourceConfig+    , dtjrsStoppingCondition+    , dtjrsCreationTime+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'describeTrainingJob' smart constructor.+newtype DescribeTrainingJob = DescribeTrainingJob'+  { _dtjTrainingJobName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeTrainingJob' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtjTrainingJobName' - The name of the training job.+describeTrainingJob+    :: Text -- ^ 'dtjTrainingJobName'+    -> DescribeTrainingJob+describeTrainingJob pTrainingJobName_ =+  DescribeTrainingJob' {_dtjTrainingJobName = pTrainingJobName_}+++-- | The name of the training job.+dtjTrainingJobName :: Lens' DescribeTrainingJob Text+dtjTrainingJobName = lens _dtjTrainingJobName (\ s a -> s{_dtjTrainingJobName = a})++instance AWSRequest DescribeTrainingJob where+        type Rs DescribeTrainingJob =+             DescribeTrainingJobResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 DescribeTrainingJobResponse' <$>+                   (x .?> "FailureReason") <*> (x .?> "TrainingEndTime")+                     <*> (x .?> "LastModifiedTime")+                     <*> (x .?> "HyperParameters" .!@ mempty)+                     <*> (x .?> "VpcConfig")+                     <*> (x .?> "OutputDataConfig")+                     <*> (x .?> "TrainingStartTime")+                     <*> (x .?> "RoleArn")+                     <*> (pure (fromEnum s))+                     <*> (x .:> "TrainingJobName")+                     <*> (x .:> "TrainingJobArn")+                     <*> (x .:> "ModelArtifacts")+                     <*> (x .:> "TrainingJobStatus")+                     <*> (x .:> "SecondaryStatus")+                     <*> (x .:> "AlgorithmSpecification")+                     <*> (x .:> "InputDataConfig")+                     <*> (x .:> "ResourceConfig")+                     <*> (x .:> "StoppingCondition")+                     <*> (x .:> "CreationTime"))++instance Hashable DescribeTrainingJob where++instance NFData DescribeTrainingJob where++instance ToHeaders DescribeTrainingJob where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.DescribeTrainingJob" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeTrainingJob where+        toJSON DescribeTrainingJob'{..}+          = object+              (catMaybes+                 [Just ("TrainingJobName" .= _dtjTrainingJobName)])++instance ToPath DescribeTrainingJob where+        toPath = const "/"++instance ToQuery DescribeTrainingJob where+        toQuery = const mempty++-- | /See:/ 'describeTrainingJobResponse' smart constructor.+data DescribeTrainingJobResponse = DescribeTrainingJobResponse'+  { _dtjrsFailureReason          :: !(Maybe Text)+  , _dtjrsTrainingEndTime        :: !(Maybe POSIX)+  , _dtjrsLastModifiedTime       :: !(Maybe POSIX)+  , _dtjrsHyperParameters        :: !(Maybe (Map Text Text))+  , _dtjrsVPCConfig              :: !(Maybe VPCConfig)+  , _dtjrsOutputDataConfig       :: !(Maybe OutputDataConfig)+  , _dtjrsTrainingStartTime      :: !(Maybe POSIX)+  , _dtjrsRoleARN                :: !(Maybe Text)+  , _dtjrsResponseStatus         :: !Int+  , _dtjrsTrainingJobName        :: !Text+  , _dtjrsTrainingJobARN         :: !Text+  , _dtjrsModelArtifacts         :: !ModelArtifacts+  , _dtjrsTrainingJobStatus      :: !TrainingJobStatus+  , _dtjrsSecondaryStatus        :: !SecondaryStatus+  , _dtjrsAlgorithmSpecification :: !AlgorithmSpecification+  , _dtjrsInputDataConfig        :: !(List1 Channel)+  , _dtjrsResourceConfig         :: !ResourceConfig+  , _dtjrsStoppingCondition      :: !StoppingCondition+  , _dtjrsCreationTime           :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeTrainingJobResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtjrsFailureReason' - If the training job failed, the reason it failed.+--+-- * 'dtjrsTrainingEndTime' - A timestamp that indicates when model training ended.+--+-- * 'dtjrsLastModifiedTime' - A timestamp that indicates when the status of the training job was last modified.+--+-- * 'dtjrsHyperParameters' - Algorithm-specific parameters.+--+-- * 'dtjrsVPCConfig' - A object that specifies the VPC that this training job has access to. For more information, see 'train-vpc' .+--+-- * 'dtjrsOutputDataConfig' - The S3 path where model artifacts that you configured when creating the job are stored. Amazon SageMaker creates subfolders for model artifacts.+--+-- * 'dtjrsTrainingStartTime' - A timestamp that indicates when training started.+--+-- * 'dtjrsRoleARN' - The AWS Identity and Access Management (IAM) role configured for the training job.+--+-- * 'dtjrsResponseStatus' - -- | The response status code.+--+-- * 'dtjrsTrainingJobName' - Name of the model training job.+--+-- * 'dtjrsTrainingJobARN' - The Amazon Resource Name (ARN) of the training job.+--+-- * 'dtjrsModelArtifacts' - Information about the Amazon S3 location that is configured for storing model artifacts.+--+-- * 'dtjrsTrainingJobStatus' - The status of the training job.  For the @InProgress@ status, Amazon SageMaker can return these secondary statuses:     * Starting - Preparing for training.     * Downloading - Optional stage for algorithms that support File training input mode. It indicates data is being downloaded to ML storage volumes.     * Training - Training is in progress.     * Uploading - Training is complete and model upload is in progress. For the @Stopped@ training status, Amazon SageMaker can return these secondary statuses:     * MaxRuntimeExceeded - Job stopped as a result of maximum allowed runtime exceeded.+--+-- * 'dtjrsSecondaryStatus' - Provides granular information about the system state. For more information, see @TrainingJobStatus@ .+--+-- * 'dtjrsAlgorithmSpecification' - Information about the algorithm used for training, and algorithm metadata.+--+-- * 'dtjrsInputDataConfig' - An array of @Channel@ objects that describes each data input channel.+--+-- * 'dtjrsResourceConfig' - Resources, including ML compute instances and ML storage volumes, that are configured for model training.+--+-- * 'dtjrsStoppingCondition' - The condition under which to stop the training job.+--+-- * 'dtjrsCreationTime' - A timestamp that indicates when the training job was created.+describeTrainingJobResponse+    :: Int -- ^ 'dtjrsResponseStatus'+    -> Text -- ^ 'dtjrsTrainingJobName'+    -> Text -- ^ 'dtjrsTrainingJobARN'+    -> ModelArtifacts -- ^ 'dtjrsModelArtifacts'+    -> TrainingJobStatus -- ^ 'dtjrsTrainingJobStatus'+    -> SecondaryStatus -- ^ 'dtjrsSecondaryStatus'+    -> AlgorithmSpecification -- ^ 'dtjrsAlgorithmSpecification'+    -> NonEmpty Channel -- ^ 'dtjrsInputDataConfig'+    -> ResourceConfig -- ^ 'dtjrsResourceConfig'+    -> StoppingCondition -- ^ 'dtjrsStoppingCondition'+    -> UTCTime -- ^ 'dtjrsCreationTime'+    -> DescribeTrainingJobResponse+describeTrainingJobResponse pResponseStatus_ pTrainingJobName_ pTrainingJobARN_ pModelArtifacts_ pTrainingJobStatus_ pSecondaryStatus_ pAlgorithmSpecification_ pInputDataConfig_ pResourceConfig_ pStoppingCondition_ pCreationTime_ =+  DescribeTrainingJobResponse'+    { _dtjrsFailureReason = Nothing+    , _dtjrsTrainingEndTime = Nothing+    , _dtjrsLastModifiedTime = Nothing+    , _dtjrsHyperParameters = Nothing+    , _dtjrsVPCConfig = Nothing+    , _dtjrsOutputDataConfig = Nothing+    , _dtjrsTrainingStartTime = Nothing+    , _dtjrsRoleARN = Nothing+    , _dtjrsResponseStatus = pResponseStatus_+    , _dtjrsTrainingJobName = pTrainingJobName_+    , _dtjrsTrainingJobARN = pTrainingJobARN_+    , _dtjrsModelArtifacts = pModelArtifacts_+    , _dtjrsTrainingJobStatus = pTrainingJobStatus_+    , _dtjrsSecondaryStatus = pSecondaryStatus_+    , _dtjrsAlgorithmSpecification = pAlgorithmSpecification_+    , _dtjrsInputDataConfig = _List1 # pInputDataConfig_+    , _dtjrsResourceConfig = pResourceConfig_+    , _dtjrsStoppingCondition = pStoppingCondition_+    , _dtjrsCreationTime = _Time # pCreationTime_+    }+++-- | If the training job failed, the reason it failed.+dtjrsFailureReason :: Lens' DescribeTrainingJobResponse (Maybe Text)+dtjrsFailureReason = lens _dtjrsFailureReason (\ s a -> s{_dtjrsFailureReason = a})++-- | A timestamp that indicates when model training ended.+dtjrsTrainingEndTime :: Lens' DescribeTrainingJobResponse (Maybe UTCTime)+dtjrsTrainingEndTime = lens _dtjrsTrainingEndTime (\ s a -> s{_dtjrsTrainingEndTime = a}) . mapping _Time++-- | A timestamp that indicates when the status of the training job was last modified.+dtjrsLastModifiedTime :: Lens' DescribeTrainingJobResponse (Maybe UTCTime)+dtjrsLastModifiedTime = lens _dtjrsLastModifiedTime (\ s a -> s{_dtjrsLastModifiedTime = a}) . mapping _Time++-- | Algorithm-specific parameters.+dtjrsHyperParameters :: Lens' DescribeTrainingJobResponse (HashMap Text Text)+dtjrsHyperParameters = lens _dtjrsHyperParameters (\ s a -> s{_dtjrsHyperParameters = a}) . _Default . _Map++-- | A object that specifies the VPC that this training job has access to. For more information, see 'train-vpc' .+dtjrsVPCConfig :: Lens' DescribeTrainingJobResponse (Maybe VPCConfig)+dtjrsVPCConfig = lens _dtjrsVPCConfig (\ s a -> s{_dtjrsVPCConfig = a})++-- | The S3 path where model artifacts that you configured when creating the job are stored. Amazon SageMaker creates subfolders for model artifacts.+dtjrsOutputDataConfig :: Lens' DescribeTrainingJobResponse (Maybe OutputDataConfig)+dtjrsOutputDataConfig = lens _dtjrsOutputDataConfig (\ s a -> s{_dtjrsOutputDataConfig = a})++-- | A timestamp that indicates when training started.+dtjrsTrainingStartTime :: Lens' DescribeTrainingJobResponse (Maybe UTCTime)+dtjrsTrainingStartTime = lens _dtjrsTrainingStartTime (\ s a -> s{_dtjrsTrainingStartTime = a}) . mapping _Time++-- | The AWS Identity and Access Management (IAM) role configured for the training job.+dtjrsRoleARN :: Lens' DescribeTrainingJobResponse (Maybe Text)+dtjrsRoleARN = lens _dtjrsRoleARN (\ s a -> s{_dtjrsRoleARN = a})++-- | -- | The response status code.+dtjrsResponseStatus :: Lens' DescribeTrainingJobResponse Int+dtjrsResponseStatus = lens _dtjrsResponseStatus (\ s a -> s{_dtjrsResponseStatus = a})++-- | Name of the model training job.+dtjrsTrainingJobName :: Lens' DescribeTrainingJobResponse Text+dtjrsTrainingJobName = lens _dtjrsTrainingJobName (\ s a -> s{_dtjrsTrainingJobName = a})++-- | The Amazon Resource Name (ARN) of the training job.+dtjrsTrainingJobARN :: Lens' DescribeTrainingJobResponse Text+dtjrsTrainingJobARN = lens _dtjrsTrainingJobARN (\ s a -> s{_dtjrsTrainingJobARN = a})++-- | Information about the Amazon S3 location that is configured for storing model artifacts.+dtjrsModelArtifacts :: Lens' DescribeTrainingJobResponse ModelArtifacts+dtjrsModelArtifacts = lens _dtjrsModelArtifacts (\ s a -> s{_dtjrsModelArtifacts = a})++-- | The status of the training job.  For the @InProgress@ status, Amazon SageMaker can return these secondary statuses:     * Starting - Preparing for training.     * Downloading - Optional stage for algorithms that support File training input mode. It indicates data is being downloaded to ML storage volumes.     * Training - Training is in progress.     * Uploading - Training is complete and model upload is in progress. For the @Stopped@ training status, Amazon SageMaker can return these secondary statuses:     * MaxRuntimeExceeded - Job stopped as a result of maximum allowed runtime exceeded.+dtjrsTrainingJobStatus :: Lens' DescribeTrainingJobResponse TrainingJobStatus+dtjrsTrainingJobStatus = lens _dtjrsTrainingJobStatus (\ s a -> s{_dtjrsTrainingJobStatus = a})++-- | Provides granular information about the system state. For more information, see @TrainingJobStatus@ .+dtjrsSecondaryStatus :: Lens' DescribeTrainingJobResponse SecondaryStatus+dtjrsSecondaryStatus = lens _dtjrsSecondaryStatus (\ s a -> s{_dtjrsSecondaryStatus = a})++-- | Information about the algorithm used for training, and algorithm metadata.+dtjrsAlgorithmSpecification :: Lens' DescribeTrainingJobResponse AlgorithmSpecification+dtjrsAlgorithmSpecification = lens _dtjrsAlgorithmSpecification (\ s a -> s{_dtjrsAlgorithmSpecification = a})++-- | An array of @Channel@ objects that describes each data input channel.+dtjrsInputDataConfig :: Lens' DescribeTrainingJobResponse (NonEmpty Channel)+dtjrsInputDataConfig = lens _dtjrsInputDataConfig (\ s a -> s{_dtjrsInputDataConfig = a}) . _List1++-- | Resources, including ML compute instances and ML storage volumes, that are configured for model training.+dtjrsResourceConfig :: Lens' DescribeTrainingJobResponse ResourceConfig+dtjrsResourceConfig = lens _dtjrsResourceConfig (\ s a -> s{_dtjrsResourceConfig = a})++-- | The condition under which to stop the training job.+dtjrsStoppingCondition :: Lens' DescribeTrainingJobResponse StoppingCondition+dtjrsStoppingCondition = lens _dtjrsStoppingCondition (\ s a -> s{_dtjrsStoppingCondition = a})++-- | A timestamp that indicates when the training job was created.+dtjrsCreationTime :: Lens' DescribeTrainingJobResponse UTCTime+dtjrsCreationTime = lens _dtjrsCreationTime (\ s a -> s{_dtjrsCreationTime = a}) . _Time++instance NFData DescribeTrainingJobResponse where
+ gen/Network/AWS/SageMaker/ListEndpointConfigs.hs view
@@ -0,0 +1,217 @@+{-# 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.SageMaker.ListEndpointConfigs+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists endpoint configurations.+--+--+--+-- This operation returns paginated results.+module Network.AWS.SageMaker.ListEndpointConfigs+    (+    -- * Creating a Request+      listEndpointConfigs+    , ListEndpointConfigs+    -- * Request Lenses+    , lecNameContains+    , lecCreationTimeAfter+    , lecNextToken+    , lecSortOrder+    , lecCreationTimeBefore+    , lecMaxResults+    , lecSortBy++    -- * Destructuring the Response+    , listEndpointConfigsResponse+    , ListEndpointConfigsResponse+    -- * Response Lenses+    , lecrsNextToken+    , lecrsResponseStatus+    , lecrsEndpointConfigs+    ) where++import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'listEndpointConfigs' smart constructor.+data ListEndpointConfigs = ListEndpointConfigs'+  { _lecNameContains       :: !(Maybe Text)+  , _lecCreationTimeAfter  :: !(Maybe POSIX)+  , _lecNextToken          :: !(Maybe Text)+  , _lecSortOrder          :: !(Maybe OrderKey)+  , _lecCreationTimeBefore :: !(Maybe POSIX)+  , _lecMaxResults         :: !(Maybe Nat)+  , _lecSortBy             :: !(Maybe EndpointConfigSortKey)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListEndpointConfigs' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lecNameContains' - A string in the endpoint configuration name. This filter returns only endpoint configurations whose name contains the specified string.+--+-- * 'lecCreationTimeAfter' - A filter that returns only endpoint configurations created after the specified time (timestamp).+--+-- * 'lecNextToken' - If the result of the previous @ListEndpointConfig@ request was truncated, the response includes a @NextToken@ . To retrieve the next set of endpoint configurations, use the token in the next request.+--+-- * 'lecSortOrder' - The sort order for results. The default is @Ascending@ .+--+-- * 'lecCreationTimeBefore' - A filter that returns only endpoint configurations created before the specified time (timestamp).+--+-- * 'lecMaxResults' - The maximum number of training jobs to return in the response.+--+-- * 'lecSortBy' - The field to sort results by. The default is @CreationTime@ .+listEndpointConfigs+    :: ListEndpointConfigs+listEndpointConfigs =+  ListEndpointConfigs'+    { _lecNameContains = Nothing+    , _lecCreationTimeAfter = Nothing+    , _lecNextToken = Nothing+    , _lecSortOrder = Nothing+    , _lecCreationTimeBefore = Nothing+    , _lecMaxResults = Nothing+    , _lecSortBy = Nothing+    }+++-- | A string in the endpoint configuration name. This filter returns only endpoint configurations whose name contains the specified string.+lecNameContains :: Lens' ListEndpointConfigs (Maybe Text)+lecNameContains = lens _lecNameContains (\ s a -> s{_lecNameContains = a})++-- | A filter that returns only endpoint configurations created after the specified time (timestamp).+lecCreationTimeAfter :: Lens' ListEndpointConfigs (Maybe UTCTime)+lecCreationTimeAfter = lens _lecCreationTimeAfter (\ s a -> s{_lecCreationTimeAfter = a}) . mapping _Time++-- | If the result of the previous @ListEndpointConfig@ request was truncated, the response includes a @NextToken@ . To retrieve the next set of endpoint configurations, use the token in the next request.+lecNextToken :: Lens' ListEndpointConfigs (Maybe Text)+lecNextToken = lens _lecNextToken (\ s a -> s{_lecNextToken = a})++-- | The sort order for results. The default is @Ascending@ .+lecSortOrder :: Lens' ListEndpointConfigs (Maybe OrderKey)+lecSortOrder = lens _lecSortOrder (\ s a -> s{_lecSortOrder = a})++-- | A filter that returns only endpoint configurations created before the specified time (timestamp).+lecCreationTimeBefore :: Lens' ListEndpointConfigs (Maybe UTCTime)+lecCreationTimeBefore = lens _lecCreationTimeBefore (\ s a -> s{_lecCreationTimeBefore = a}) . mapping _Time++-- | The maximum number of training jobs to return in the response.+lecMaxResults :: Lens' ListEndpointConfigs (Maybe Natural)+lecMaxResults = lens _lecMaxResults (\ s a -> s{_lecMaxResults = a}) . mapping _Nat++-- | The field to sort results by. The default is @CreationTime@ .+lecSortBy :: Lens' ListEndpointConfigs (Maybe EndpointConfigSortKey)+lecSortBy = lens _lecSortBy (\ s a -> s{_lecSortBy = a})++instance AWSPager ListEndpointConfigs where+        page rq rs+          | stop (rs ^. lecrsNextToken) = Nothing+          | stop (rs ^. lecrsEndpointConfigs) = Nothing+          | otherwise =+            Just $ rq & lecNextToken .~ rs ^. lecrsNextToken++instance AWSRequest ListEndpointConfigs where+        type Rs ListEndpointConfigs =+             ListEndpointConfigsResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 ListEndpointConfigsResponse' <$>+                   (x .?> "NextToken") <*> (pure (fromEnum s)) <*>+                     (x .?> "EndpointConfigs" .!@ mempty))++instance Hashable ListEndpointConfigs where++instance NFData ListEndpointConfigs where++instance ToHeaders ListEndpointConfigs where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.ListEndpointConfigs" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListEndpointConfigs where+        toJSON ListEndpointConfigs'{..}+          = object+              (catMaybes+                 [("NameContains" .=) <$> _lecNameContains,+                  ("CreationTimeAfter" .=) <$> _lecCreationTimeAfter,+                  ("NextToken" .=) <$> _lecNextToken,+                  ("SortOrder" .=) <$> _lecSortOrder,+                  ("CreationTimeBefore" .=) <$> _lecCreationTimeBefore,+                  ("MaxResults" .=) <$> _lecMaxResults,+                  ("SortBy" .=) <$> _lecSortBy])++instance ToPath ListEndpointConfigs where+        toPath = const "/"++instance ToQuery ListEndpointConfigs where+        toQuery = const mempty++-- | /See:/ 'listEndpointConfigsResponse' smart constructor.+data ListEndpointConfigsResponse = ListEndpointConfigsResponse'+  { _lecrsNextToken       :: !(Maybe Text)+  , _lecrsResponseStatus  :: !Int+  , _lecrsEndpointConfigs :: ![EndpointConfigSummary]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListEndpointConfigsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lecrsNextToken' - If the response is truncated, Amazon SageMaker returns this token. To retrieve the next set of endpoint configurations, use it in the subsequent request+--+-- * 'lecrsResponseStatus' - -- | The response status code.+--+-- * 'lecrsEndpointConfigs' - An array of endpoint configurations.+listEndpointConfigsResponse+    :: Int -- ^ 'lecrsResponseStatus'+    -> ListEndpointConfigsResponse+listEndpointConfigsResponse pResponseStatus_ =+  ListEndpointConfigsResponse'+    { _lecrsNextToken = Nothing+    , _lecrsResponseStatus = pResponseStatus_+    , _lecrsEndpointConfigs = mempty+    }+++-- | If the response is truncated, Amazon SageMaker returns this token. To retrieve the next set of endpoint configurations, use it in the subsequent request+lecrsNextToken :: Lens' ListEndpointConfigsResponse (Maybe Text)+lecrsNextToken = lens _lecrsNextToken (\ s a -> s{_lecrsNextToken = a})++-- | -- | The response status code.+lecrsResponseStatus :: Lens' ListEndpointConfigsResponse Int+lecrsResponseStatus = lens _lecrsResponseStatus (\ s a -> s{_lecrsResponseStatus = a})++-- | An array of endpoint configurations.+lecrsEndpointConfigs :: Lens' ListEndpointConfigsResponse [EndpointConfigSummary]+lecrsEndpointConfigs = lens _lecrsEndpointConfigs (\ s a -> s{_lecrsEndpointConfigs = a}) . _Coerce++instance NFData ListEndpointConfigsResponse where
+ gen/Network/AWS/SageMaker/ListEndpoints.hs view
@@ -0,0 +1,248 @@+{-# 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.SageMaker.ListEndpoints+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists endpoints.+--+--+--+-- This operation returns paginated results.+module Network.AWS.SageMaker.ListEndpoints+    (+    -- * Creating a Request+      listEndpoints+    , ListEndpoints+    -- * Request Lenses+    , leNameContains+    , leLastModifiedTimeBefore+    , leCreationTimeAfter+    , leNextToken+    , leSortOrder+    , leLastModifiedTimeAfter+    , leCreationTimeBefore+    , leStatusEquals+    , leMaxResults+    , leSortBy++    -- * Destructuring the Response+    , listEndpointsResponse+    , ListEndpointsResponse+    -- * Response Lenses+    , lersNextToken+    , lersResponseStatus+    , lersEndpoints+    ) where++import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'listEndpoints' smart constructor.+data ListEndpoints = ListEndpoints'+  { _leNameContains           :: !(Maybe Text)+  , _leLastModifiedTimeBefore :: !(Maybe POSIX)+  , _leCreationTimeAfter      :: !(Maybe POSIX)+  , _leNextToken              :: !(Maybe Text)+  , _leSortOrder              :: !(Maybe OrderKey)+  , _leLastModifiedTimeAfter  :: !(Maybe POSIX)+  , _leCreationTimeBefore     :: !(Maybe POSIX)+  , _leStatusEquals           :: !(Maybe EndpointStatus)+  , _leMaxResults             :: !(Maybe Nat)+  , _leSortBy                 :: !(Maybe EndpointSortKey)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListEndpoints' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'leNameContains' - A string in endpoint names. This filter returns only endpoints whose name contains the specified string.+--+-- * 'leLastModifiedTimeBefore' - A filter that returns only endpoints that were modified before the specified timestamp.+--+-- * 'leCreationTimeAfter' - A filter that returns only endpoints that were created after the specified time (timestamp).+--+-- * 'leNextToken' - If the result of a @ListEndpoints@ request was truncated, the response includes a @NextToken@ . To retrieve the next set of endpoints, use the token in the next request.+--+-- * 'leSortOrder' - The sort order for results. The default is @Ascending@ .+--+-- * 'leLastModifiedTimeAfter' - A filter that returns only endpoints that were modified after the specified timestamp.+--+-- * 'leCreationTimeBefore' - A filter that returns only endpoints that were created before the specified time (timestamp).+--+-- * 'leStatusEquals' - A filter that returns only endpoints with the specified status.+--+-- * 'leMaxResults' - The maximum number of endpoints to return in the response.+--+-- * 'leSortBy' - Sorts the list of results. The default is @CreationTime@ .+listEndpoints+    :: ListEndpoints+listEndpoints =+  ListEndpoints'+    { _leNameContains = Nothing+    , _leLastModifiedTimeBefore = Nothing+    , _leCreationTimeAfter = Nothing+    , _leNextToken = Nothing+    , _leSortOrder = Nothing+    , _leLastModifiedTimeAfter = Nothing+    , _leCreationTimeBefore = Nothing+    , _leStatusEquals = Nothing+    , _leMaxResults = Nothing+    , _leSortBy = Nothing+    }+++-- | A string in endpoint names. This filter returns only endpoints whose name contains the specified string.+leNameContains :: Lens' ListEndpoints (Maybe Text)+leNameContains = lens _leNameContains (\ s a -> s{_leNameContains = a})++-- | A filter that returns only endpoints that were modified before the specified timestamp.+leLastModifiedTimeBefore :: Lens' ListEndpoints (Maybe UTCTime)+leLastModifiedTimeBefore = lens _leLastModifiedTimeBefore (\ s a -> s{_leLastModifiedTimeBefore = a}) . mapping _Time++-- | A filter that returns only endpoints that were created after the specified time (timestamp).+leCreationTimeAfter :: Lens' ListEndpoints (Maybe UTCTime)+leCreationTimeAfter = lens _leCreationTimeAfter (\ s a -> s{_leCreationTimeAfter = a}) . mapping _Time++-- | If the result of a @ListEndpoints@ request was truncated, the response includes a @NextToken@ . To retrieve the next set of endpoints, use the token in the next request.+leNextToken :: Lens' ListEndpoints (Maybe Text)+leNextToken = lens _leNextToken (\ s a -> s{_leNextToken = a})++-- | The sort order for results. The default is @Ascending@ .+leSortOrder :: Lens' ListEndpoints (Maybe OrderKey)+leSortOrder = lens _leSortOrder (\ s a -> s{_leSortOrder = a})++-- | A filter that returns only endpoints that were modified after the specified timestamp.+leLastModifiedTimeAfter :: Lens' ListEndpoints (Maybe UTCTime)+leLastModifiedTimeAfter = lens _leLastModifiedTimeAfter (\ s a -> s{_leLastModifiedTimeAfter = a}) . mapping _Time++-- | A filter that returns only endpoints that were created before the specified time (timestamp).+leCreationTimeBefore :: Lens' ListEndpoints (Maybe UTCTime)+leCreationTimeBefore = lens _leCreationTimeBefore (\ s a -> s{_leCreationTimeBefore = a}) . mapping _Time++-- | A filter that returns only endpoints with the specified status.+leStatusEquals :: Lens' ListEndpoints (Maybe EndpointStatus)+leStatusEquals = lens _leStatusEquals (\ s a -> s{_leStatusEquals = a})++-- | The maximum number of endpoints to return in the response.+leMaxResults :: Lens' ListEndpoints (Maybe Natural)+leMaxResults = lens _leMaxResults (\ s a -> s{_leMaxResults = a}) . mapping _Nat++-- | Sorts the list of results. The default is @CreationTime@ .+leSortBy :: Lens' ListEndpoints (Maybe EndpointSortKey)+leSortBy = lens _leSortBy (\ s a -> s{_leSortBy = a})++instance AWSPager ListEndpoints where+        page rq rs+          | stop (rs ^. lersNextToken) = Nothing+          | stop (rs ^. lersEndpoints) = Nothing+          | otherwise =+            Just $ rq & leNextToken .~ rs ^. lersNextToken++instance AWSRequest ListEndpoints where+        type Rs ListEndpoints = ListEndpointsResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 ListEndpointsResponse' <$>+                   (x .?> "NextToken") <*> (pure (fromEnum s)) <*>+                     (x .?> "Endpoints" .!@ mempty))++instance Hashable ListEndpoints where++instance NFData ListEndpoints where++instance ToHeaders ListEndpoints where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.ListEndpoints" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListEndpoints where+        toJSON ListEndpoints'{..}+          = object+              (catMaybes+                 [("NameContains" .=) <$> _leNameContains,+                  ("LastModifiedTimeBefore" .=) <$>+                    _leLastModifiedTimeBefore,+                  ("CreationTimeAfter" .=) <$> _leCreationTimeAfter,+                  ("NextToken" .=) <$> _leNextToken,+                  ("SortOrder" .=) <$> _leSortOrder,+                  ("LastModifiedTimeAfter" .=) <$>+                    _leLastModifiedTimeAfter,+                  ("CreationTimeBefore" .=) <$> _leCreationTimeBefore,+                  ("StatusEquals" .=) <$> _leStatusEquals,+                  ("MaxResults" .=) <$> _leMaxResults,+                  ("SortBy" .=) <$> _leSortBy])++instance ToPath ListEndpoints where+        toPath = const "/"++instance ToQuery ListEndpoints where+        toQuery = const mempty++-- | /See:/ 'listEndpointsResponse' smart constructor.+data ListEndpointsResponse = ListEndpointsResponse'+  { _lersNextToken      :: !(Maybe Text)+  , _lersResponseStatus :: !Int+  , _lersEndpoints      :: ![EndpointSummary]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListEndpointsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lersNextToken' - If the response is truncated, Amazon SageMaker returns this token. To retrieve the next set of training jobs, use it in the subsequent request.+--+-- * 'lersResponseStatus' - -- | The response status code.+--+-- * 'lersEndpoints' - An array or endpoint objects.+listEndpointsResponse+    :: Int -- ^ 'lersResponseStatus'+    -> ListEndpointsResponse+listEndpointsResponse pResponseStatus_ =+  ListEndpointsResponse'+    { _lersNextToken = Nothing+    , _lersResponseStatus = pResponseStatus_+    , _lersEndpoints = mempty+    }+++-- | If the response is truncated, Amazon SageMaker returns this token. To retrieve the next set of training jobs, use it in the subsequent request.+lersNextToken :: Lens' ListEndpointsResponse (Maybe Text)+lersNextToken = lens _lersNextToken (\ s a -> s{_lersNextToken = a})++-- | -- | The response status code.+lersResponseStatus :: Lens' ListEndpointsResponse Int+lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a})++-- | An array or endpoint objects.+lersEndpoints :: Lens' ListEndpointsResponse [EndpointSummary]+lersEndpoints = lens _lersEndpoints (\ s a -> s{_lersEndpoints = a}) . _Coerce++instance NFData ListEndpointsResponse where
+ gen/Network/AWS/SageMaker/ListModels.hs view
@@ -0,0 +1,216 @@+{-# 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.SageMaker.ListModels+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists models created with the <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateModel.html CreateModel> API.+--+--+--+-- This operation returns paginated results.+module Network.AWS.SageMaker.ListModels+    (+    -- * Creating a Request+      listModels+    , ListModels+    -- * Request Lenses+    , lmNameContains+    , lmCreationTimeAfter+    , lmNextToken+    , lmSortOrder+    , lmCreationTimeBefore+    , lmMaxResults+    , lmSortBy++    -- * Destructuring the Response+    , listModelsResponse+    , ListModelsResponse+    -- * Response Lenses+    , lmrsNextToken+    , lmrsResponseStatus+    , lmrsModels+    ) where++import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'listModels' smart constructor.+data ListModels = ListModels'+  { _lmNameContains       :: !(Maybe Text)+  , _lmCreationTimeAfter  :: !(Maybe POSIX)+  , _lmNextToken          :: !(Maybe Text)+  , _lmSortOrder          :: !(Maybe OrderKey)+  , _lmCreationTimeBefore :: !(Maybe POSIX)+  , _lmMaxResults         :: !(Maybe Nat)+  , _lmSortBy             :: !(Maybe ModelSortKey)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListModels' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lmNameContains' - A string in the training job name. This filter returns only models in the training job whose name contains the specified string.+--+-- * 'lmCreationTimeAfter' - A filter that returns only models created after the specified time (timestamp).+--+-- * 'lmNextToken' - If the response to a previous @ListModels@ request was truncated, the response includes a @NextToken@ . To retrieve the next set of models, use the token in the next request.+--+-- * 'lmSortOrder' - The sort order for results. The default is @Ascending@ .+--+-- * 'lmCreationTimeBefore' - A filter that returns only models created before the specified time (timestamp).+--+-- * 'lmMaxResults' - The maximum number of models to return in the response.+--+-- * 'lmSortBy' - Sorts the list of results. The default is @CreationTime@ .+listModels+    :: ListModels+listModels =+  ListModels'+    { _lmNameContains = Nothing+    , _lmCreationTimeAfter = Nothing+    , _lmNextToken = Nothing+    , _lmSortOrder = Nothing+    , _lmCreationTimeBefore = Nothing+    , _lmMaxResults = Nothing+    , _lmSortBy = Nothing+    }+++-- | A string in the training job name. This filter returns only models in the training job whose name contains the specified string.+lmNameContains :: Lens' ListModels (Maybe Text)+lmNameContains = lens _lmNameContains (\ s a -> s{_lmNameContains = a})++-- | A filter that returns only models created after the specified time (timestamp).+lmCreationTimeAfter :: Lens' ListModels (Maybe UTCTime)+lmCreationTimeAfter = lens _lmCreationTimeAfter (\ s a -> s{_lmCreationTimeAfter = a}) . mapping _Time++-- | If the response to a previous @ListModels@ request was truncated, the response includes a @NextToken@ . To retrieve the next set of models, use the token in the next request.+lmNextToken :: Lens' ListModels (Maybe Text)+lmNextToken = lens _lmNextToken (\ s a -> s{_lmNextToken = a})++-- | The sort order for results. The default is @Ascending@ .+lmSortOrder :: Lens' ListModels (Maybe OrderKey)+lmSortOrder = lens _lmSortOrder (\ s a -> s{_lmSortOrder = a})++-- | A filter that returns only models created before the specified time (timestamp).+lmCreationTimeBefore :: Lens' ListModels (Maybe UTCTime)+lmCreationTimeBefore = lens _lmCreationTimeBefore (\ s a -> s{_lmCreationTimeBefore = a}) . mapping _Time++-- | The maximum number of models to return in the response.+lmMaxResults :: Lens' ListModels (Maybe Natural)+lmMaxResults = lens _lmMaxResults (\ s a -> s{_lmMaxResults = a}) . mapping _Nat++-- | Sorts the list of results. The default is @CreationTime@ .+lmSortBy :: Lens' ListModels (Maybe ModelSortKey)+lmSortBy = lens _lmSortBy (\ s a -> s{_lmSortBy = a})++instance AWSPager ListModels where+        page rq rs+          | stop (rs ^. lmrsNextToken) = Nothing+          | stop (rs ^. lmrsModels) = Nothing+          | otherwise =+            Just $ rq & lmNextToken .~ rs ^. lmrsNextToken++instance AWSRequest ListModels where+        type Rs ListModels = ListModelsResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 ListModelsResponse' <$>+                   (x .?> "NextToken") <*> (pure (fromEnum s)) <*>+                     (x .?> "Models" .!@ mempty))++instance Hashable ListModels where++instance NFData ListModels where++instance ToHeaders ListModels where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.ListModels" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListModels where+        toJSON ListModels'{..}+          = object+              (catMaybes+                 [("NameContains" .=) <$> _lmNameContains,+                  ("CreationTimeAfter" .=) <$> _lmCreationTimeAfter,+                  ("NextToken" .=) <$> _lmNextToken,+                  ("SortOrder" .=) <$> _lmSortOrder,+                  ("CreationTimeBefore" .=) <$> _lmCreationTimeBefore,+                  ("MaxResults" .=) <$> _lmMaxResults,+                  ("SortBy" .=) <$> _lmSortBy])++instance ToPath ListModels where+        toPath = const "/"++instance ToQuery ListModels where+        toQuery = const mempty++-- | /See:/ 'listModelsResponse' smart constructor.+data ListModelsResponse = ListModelsResponse'+  { _lmrsNextToken      :: !(Maybe Text)+  , _lmrsResponseStatus :: !Int+  , _lmrsModels         :: ![ModelSummary]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListModelsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lmrsNextToken' - If the response is truncated, Amazon SageMaker returns this token. To retrieve the next set of models, use it in the subsequent request.+--+-- * 'lmrsResponseStatus' - -- | The response status code.+--+-- * 'lmrsModels' - An array of @ModelSummary@ objects, each of which lists a model.+listModelsResponse+    :: Int -- ^ 'lmrsResponseStatus'+    -> ListModelsResponse+listModelsResponse pResponseStatus_ =+  ListModelsResponse'+    { _lmrsNextToken = Nothing+    , _lmrsResponseStatus = pResponseStatus_+    , _lmrsModels = mempty+    }+++-- | If the response is truncated, Amazon SageMaker returns this token. To retrieve the next set of models, use it in the subsequent request.+lmrsNextToken :: Lens' ListModelsResponse (Maybe Text)+lmrsNextToken = lens _lmrsNextToken (\ s a -> s{_lmrsNextToken = a})++-- | -- | The response status code.+lmrsResponseStatus :: Lens' ListModelsResponse Int+lmrsResponseStatus = lens _lmrsResponseStatus (\ s a -> s{_lmrsResponseStatus = a})++-- | An array of @ModelSummary@ objects, each of which lists a model.+lmrsModels :: Lens' ListModelsResponse [ModelSummary]+lmrsModels = lens _lmrsModels (\ s a -> s{_lmrsModels = a}) . _Coerce++instance NFData ListModelsResponse where
+ gen/Network/AWS/SageMaker/ListNotebookInstanceLifecycleConfigs.hs view
@@ -0,0 +1,244 @@+{-# 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.SageMaker.ListNotebookInstanceLifecycleConfigs+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists notebook instance lifestyle configurations created with the API.+--+--+module Network.AWS.SageMaker.ListNotebookInstanceLifecycleConfigs+    (+    -- * Creating a Request+      listNotebookInstanceLifecycleConfigs+    , ListNotebookInstanceLifecycleConfigs+    -- * Request Lenses+    , lnilcNameContains+    , lnilcLastModifiedTimeBefore+    , lnilcCreationTimeAfter+    , lnilcNextToken+    , lnilcSortOrder+    , lnilcLastModifiedTimeAfter+    , lnilcCreationTimeBefore+    , lnilcMaxResults+    , lnilcSortBy++    -- * Destructuring the Response+    , listNotebookInstanceLifecycleConfigsResponse+    , ListNotebookInstanceLifecycleConfigsResponse+    -- * Response Lenses+    , lnilcrsNextToken+    , lnilcrsNotebookInstanceLifecycleConfigs+    , lnilcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'listNotebookInstanceLifecycleConfigs' smart constructor.+data ListNotebookInstanceLifecycleConfigs = ListNotebookInstanceLifecycleConfigs'+  { _lnilcNameContains :: !(Maybe Text)+  , _lnilcLastModifiedTimeBefore :: !(Maybe POSIX)+  , _lnilcCreationTimeAfter :: !(Maybe POSIX)+  , _lnilcNextToken :: !(Maybe Text)+  , _lnilcSortOrder :: !(Maybe NotebookInstanceLifecycleConfigSortOrder)+  , _lnilcLastModifiedTimeAfter :: !(Maybe POSIX)+  , _lnilcCreationTimeBefore :: !(Maybe POSIX)+  , _lnilcMaxResults :: !(Maybe Nat)+  , _lnilcSortBy :: !(Maybe NotebookInstanceLifecycleConfigSortKey)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListNotebookInstanceLifecycleConfigs' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lnilcNameContains' - A string in the lifecycle configuration name. This filter returns only lifecycle configurations whose name contains the specified string.+--+-- * 'lnilcLastModifiedTimeBefore' - A filter that returns only lifecycle configurations that were modified before the specified time (timestamp).+--+-- * 'lnilcCreationTimeAfter' - A filter that returns only lifecycle configurations that were created after the specified time (timestamp).+--+-- * 'lnilcNextToken' - If the result of a @ListNotebookInstanceLifecycleConfigs@ request was truncated, the response includes a @NextToken@ . To get the next set of lifecycle configurations, use the token in the next request.+--+-- * 'lnilcSortOrder' - The sort order for results.+--+-- * 'lnilcLastModifiedTimeAfter' - A filter that returns only lifecycle configurations that were modified after the specified time (timestamp).+--+-- * 'lnilcCreationTimeBefore' - A filter that returns only lifecycle configurations that were created before the specified time (timestamp).+--+-- * 'lnilcMaxResults' - The maximum number of lifecycle configurations to return in the response.+--+-- * 'lnilcSortBy' - Sorts the list of results. The default is @CreationTime@ .+listNotebookInstanceLifecycleConfigs+    :: ListNotebookInstanceLifecycleConfigs+listNotebookInstanceLifecycleConfigs =+  ListNotebookInstanceLifecycleConfigs'+    { _lnilcNameContains = Nothing+    , _lnilcLastModifiedTimeBefore = Nothing+    , _lnilcCreationTimeAfter = Nothing+    , _lnilcNextToken = Nothing+    , _lnilcSortOrder = Nothing+    , _lnilcLastModifiedTimeAfter = Nothing+    , _lnilcCreationTimeBefore = Nothing+    , _lnilcMaxResults = Nothing+    , _lnilcSortBy = Nothing+    }+++-- | A string in the lifecycle configuration name. This filter returns only lifecycle configurations whose name contains the specified string.+lnilcNameContains :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe Text)+lnilcNameContains = lens _lnilcNameContains (\ s a -> s{_lnilcNameContains = a})++-- | A filter that returns only lifecycle configurations that were modified before the specified time (timestamp).+lnilcLastModifiedTimeBefore :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe UTCTime)+lnilcLastModifiedTimeBefore = lens _lnilcLastModifiedTimeBefore (\ s a -> s{_lnilcLastModifiedTimeBefore = a}) . mapping _Time++-- | A filter that returns only lifecycle configurations that were created after the specified time (timestamp).+lnilcCreationTimeAfter :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe UTCTime)+lnilcCreationTimeAfter = lens _lnilcCreationTimeAfter (\ s a -> s{_lnilcCreationTimeAfter = a}) . mapping _Time++-- | If the result of a @ListNotebookInstanceLifecycleConfigs@ request was truncated, the response includes a @NextToken@ . To get the next set of lifecycle configurations, use the token in the next request.+lnilcNextToken :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe Text)+lnilcNextToken = lens _lnilcNextToken (\ s a -> s{_lnilcNextToken = a})++-- | The sort order for results.+lnilcSortOrder :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe NotebookInstanceLifecycleConfigSortOrder)+lnilcSortOrder = lens _lnilcSortOrder (\ s a -> s{_lnilcSortOrder = a})++-- | A filter that returns only lifecycle configurations that were modified after the specified time (timestamp).+lnilcLastModifiedTimeAfter :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe UTCTime)+lnilcLastModifiedTimeAfter = lens _lnilcLastModifiedTimeAfter (\ s a -> s{_lnilcLastModifiedTimeAfter = a}) . mapping _Time++-- | A filter that returns only lifecycle configurations that were created before the specified time (timestamp).+lnilcCreationTimeBefore :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe UTCTime)+lnilcCreationTimeBefore = lens _lnilcCreationTimeBefore (\ s a -> s{_lnilcCreationTimeBefore = a}) . mapping _Time++-- | The maximum number of lifecycle configurations to return in the response.+lnilcMaxResults :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe Natural)+lnilcMaxResults = lens _lnilcMaxResults (\ s a -> s{_lnilcMaxResults = a}) . mapping _Nat++-- | Sorts the list of results. The default is @CreationTime@ .+lnilcSortBy :: Lens' ListNotebookInstanceLifecycleConfigs (Maybe NotebookInstanceLifecycleConfigSortKey)+lnilcSortBy = lens _lnilcSortBy (\ s a -> s{_lnilcSortBy = a})++instance AWSRequest+           ListNotebookInstanceLifecycleConfigs+         where+        type Rs ListNotebookInstanceLifecycleConfigs =+             ListNotebookInstanceLifecycleConfigsResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 ListNotebookInstanceLifecycleConfigsResponse' <$>+                   (x .?> "NextToken") <*>+                     (x .?> "NotebookInstanceLifecycleConfigs" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable+           ListNotebookInstanceLifecycleConfigs+         where++instance NFData ListNotebookInstanceLifecycleConfigs+         where++instance ToHeaders+           ListNotebookInstanceLifecycleConfigs+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.ListNotebookInstanceLifecycleConfigs" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListNotebookInstanceLifecycleConfigs+         where+        toJSON ListNotebookInstanceLifecycleConfigs'{..}+          = object+              (catMaybes+                 [("NameContains" .=) <$> _lnilcNameContains,+                  ("LastModifiedTimeBefore" .=) <$>+                    _lnilcLastModifiedTimeBefore,+                  ("CreationTimeAfter" .=) <$> _lnilcCreationTimeAfter,+                  ("NextToken" .=) <$> _lnilcNextToken,+                  ("SortOrder" .=) <$> _lnilcSortOrder,+                  ("LastModifiedTimeAfter" .=) <$>+                    _lnilcLastModifiedTimeAfter,+                  ("CreationTimeBefore" .=) <$>+                    _lnilcCreationTimeBefore,+                  ("MaxResults" .=) <$> _lnilcMaxResults,+                  ("SortBy" .=) <$> _lnilcSortBy])++instance ToPath ListNotebookInstanceLifecycleConfigs+         where+        toPath = const "/"++instance ToQuery ListNotebookInstanceLifecycleConfigs+         where+        toQuery = const mempty++-- | /See:/ 'listNotebookInstanceLifecycleConfigsResponse' smart constructor.+data ListNotebookInstanceLifecycleConfigsResponse = ListNotebookInstanceLifecycleConfigsResponse'+  { _lnilcrsNextToken :: !(Maybe Text)+  , _lnilcrsNotebookInstanceLifecycleConfigs :: !(Maybe [NotebookInstanceLifecycleConfigSummary])+  , _lnilcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListNotebookInstanceLifecycleConfigsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lnilcrsNextToken' - If the response is truncated, Amazon SageMaker returns this token. To get the next set of lifecycle configurations, use it in the next request.+--+-- * 'lnilcrsNotebookInstanceLifecycleConfigs' - An array of @NotebookInstanceLifecycleConfiguration@ objects, each listing a lifecycle configuration.+--+-- * 'lnilcrsResponseStatus' - -- | The response status code.+listNotebookInstanceLifecycleConfigsResponse+    :: Int -- ^ 'lnilcrsResponseStatus'+    -> ListNotebookInstanceLifecycleConfigsResponse+listNotebookInstanceLifecycleConfigsResponse pResponseStatus_ =+  ListNotebookInstanceLifecycleConfigsResponse'+    { _lnilcrsNextToken = Nothing+    , _lnilcrsNotebookInstanceLifecycleConfigs = Nothing+    , _lnilcrsResponseStatus = pResponseStatus_+    }+++-- | If the response is truncated, Amazon SageMaker returns this token. To get the next set of lifecycle configurations, use it in the next request.+lnilcrsNextToken :: Lens' ListNotebookInstanceLifecycleConfigsResponse (Maybe Text)+lnilcrsNextToken = lens _lnilcrsNextToken (\ s a -> s{_lnilcrsNextToken = a})++-- | An array of @NotebookInstanceLifecycleConfiguration@ objects, each listing a lifecycle configuration.+lnilcrsNotebookInstanceLifecycleConfigs :: Lens' ListNotebookInstanceLifecycleConfigsResponse [NotebookInstanceLifecycleConfigSummary]+lnilcrsNotebookInstanceLifecycleConfigs = lens _lnilcrsNotebookInstanceLifecycleConfigs (\ s a -> s{_lnilcrsNotebookInstanceLifecycleConfigs = a}) . _Default . _Coerce++-- | -- | The response status code.+lnilcrsResponseStatus :: Lens' ListNotebookInstanceLifecycleConfigsResponse Int+lnilcrsResponseStatus = lens _lnilcrsResponseStatus (\ s a -> s{_lnilcrsResponseStatus = a})++instance NFData+           ListNotebookInstanceLifecycleConfigsResponse+         where
+ gen/Network/AWS/SageMaker/ListNotebookInstances.hs view
@@ -0,0 +1,261 @@+{-# 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.SageMaker.ListNotebookInstances+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of the Amazon SageMaker notebook instances in the requester's account in an AWS Region.+--+--+--+-- This operation returns paginated results.+module Network.AWS.SageMaker.ListNotebookInstances+    (+    -- * Creating a Request+      listNotebookInstances+    , ListNotebookInstances+    -- * Request Lenses+    , lniNameContains+    , lniLastModifiedTimeBefore+    , lniNotebookInstanceLifecycleConfigNameContains+    , lniCreationTimeAfter+    , lniNextToken+    , lniSortOrder+    , lniLastModifiedTimeAfter+    , lniCreationTimeBefore+    , lniStatusEquals+    , lniMaxResults+    , lniSortBy++    -- * Destructuring the Response+    , listNotebookInstancesResponse+    , ListNotebookInstancesResponse+    -- * Response Lenses+    , lnirsNotebookInstances+    , lnirsNextToken+    , lnirsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'listNotebookInstances' smart constructor.+data ListNotebookInstances = ListNotebookInstances'+  { _lniNameContains :: !(Maybe Text)+  , _lniLastModifiedTimeBefore :: !(Maybe POSIX)+  , _lniNotebookInstanceLifecycleConfigNameContains :: !(Maybe Text)+  , _lniCreationTimeAfter :: !(Maybe POSIX)+  , _lniNextToken :: !(Maybe Text)+  , _lniSortOrder :: !(Maybe NotebookInstanceSortOrder)+  , _lniLastModifiedTimeAfter :: !(Maybe POSIX)+  , _lniCreationTimeBefore :: !(Maybe POSIX)+  , _lniStatusEquals :: !(Maybe NotebookInstanceStatus)+  , _lniMaxResults :: !(Maybe Nat)+  , _lniSortBy :: !(Maybe NotebookInstanceSortKey)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListNotebookInstances' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lniNameContains' - A string in the notebook instances' name. This filter returns only notebook instances whose name contains the specified string.+--+-- * 'lniLastModifiedTimeBefore' - A filter that returns only notebook instances that were modified before the specified time (timestamp).+--+-- * 'lniNotebookInstanceLifecycleConfigNameContains' - A string in the name of a notebook instances lifecycle configuration associated with this notebook instance. This filter returns only notebook instances associated with a lifecycle configuration with a name that contains the specified string.+--+-- * 'lniCreationTimeAfter' - A filter that returns only notebook instances that were created after the specified time (timestamp).+--+-- * 'lniNextToken' - If the previous call to the @ListNotebookInstances@ is truncated, the response includes a @NextToken@ . You can use this token in your subsequent @ListNotebookInstances@ request to fetch the next set of notebook instances.+--+-- * 'lniSortOrder' - The sort order for results.+--+-- * 'lniLastModifiedTimeAfter' - A filter that returns only notebook instances that were modified after the specified time (timestamp).+--+-- * 'lniCreationTimeBefore' - A filter that returns only notebook instances that were created before the specified time (timestamp).+--+-- * 'lniStatusEquals' - A filter that returns only notebook instances with the specified status.+--+-- * 'lniMaxResults' - The maximum number of notebook instances to return.+--+-- * 'lniSortBy' - The field to sort results by. The default is @Name@ .+listNotebookInstances+    :: ListNotebookInstances+listNotebookInstances =+  ListNotebookInstances'+    { _lniNameContains = Nothing+    , _lniLastModifiedTimeBefore = Nothing+    , _lniNotebookInstanceLifecycleConfigNameContains = Nothing+    , _lniCreationTimeAfter = Nothing+    , _lniNextToken = Nothing+    , _lniSortOrder = Nothing+    , _lniLastModifiedTimeAfter = Nothing+    , _lniCreationTimeBefore = Nothing+    , _lniStatusEquals = Nothing+    , _lniMaxResults = Nothing+    , _lniSortBy = Nothing+    }+++-- | A string in the notebook instances' name. This filter returns only notebook instances whose name contains the specified string.+lniNameContains :: Lens' ListNotebookInstances (Maybe Text)+lniNameContains = lens _lniNameContains (\ s a -> s{_lniNameContains = a})++-- | A filter that returns only notebook instances that were modified before the specified time (timestamp).+lniLastModifiedTimeBefore :: Lens' ListNotebookInstances (Maybe UTCTime)+lniLastModifiedTimeBefore = lens _lniLastModifiedTimeBefore (\ s a -> s{_lniLastModifiedTimeBefore = a}) . mapping _Time++-- | A string in the name of a notebook instances lifecycle configuration associated with this notebook instance. This filter returns only notebook instances associated with a lifecycle configuration with a name that contains the specified string.+lniNotebookInstanceLifecycleConfigNameContains :: Lens' ListNotebookInstances (Maybe Text)+lniNotebookInstanceLifecycleConfigNameContains = lens _lniNotebookInstanceLifecycleConfigNameContains (\ s a -> s{_lniNotebookInstanceLifecycleConfigNameContains = a})++-- | A filter that returns only notebook instances that were created after the specified time (timestamp).+lniCreationTimeAfter :: Lens' ListNotebookInstances (Maybe UTCTime)+lniCreationTimeAfter = lens _lniCreationTimeAfter (\ s a -> s{_lniCreationTimeAfter = a}) . mapping _Time++-- | If the previous call to the @ListNotebookInstances@ is truncated, the response includes a @NextToken@ . You can use this token in your subsequent @ListNotebookInstances@ request to fetch the next set of notebook instances.+lniNextToken :: Lens' ListNotebookInstances (Maybe Text)+lniNextToken = lens _lniNextToken (\ s a -> s{_lniNextToken = a})++-- | The sort order for results.+lniSortOrder :: Lens' ListNotebookInstances (Maybe NotebookInstanceSortOrder)+lniSortOrder = lens _lniSortOrder (\ s a -> s{_lniSortOrder = a})++-- | A filter that returns only notebook instances that were modified after the specified time (timestamp).+lniLastModifiedTimeAfter :: Lens' ListNotebookInstances (Maybe UTCTime)+lniLastModifiedTimeAfter = lens _lniLastModifiedTimeAfter (\ s a -> s{_lniLastModifiedTimeAfter = a}) . mapping _Time++-- | A filter that returns only notebook instances that were created before the specified time (timestamp).+lniCreationTimeBefore :: Lens' ListNotebookInstances (Maybe UTCTime)+lniCreationTimeBefore = lens _lniCreationTimeBefore (\ s a -> s{_lniCreationTimeBefore = a}) . mapping _Time++-- | A filter that returns only notebook instances with the specified status.+lniStatusEquals :: Lens' ListNotebookInstances (Maybe NotebookInstanceStatus)+lniStatusEquals = lens _lniStatusEquals (\ s a -> s{_lniStatusEquals = a})++-- | The maximum number of notebook instances to return.+lniMaxResults :: Lens' ListNotebookInstances (Maybe Natural)+lniMaxResults = lens _lniMaxResults (\ s a -> s{_lniMaxResults = a}) . mapping _Nat++-- | The field to sort results by. The default is @Name@ .+lniSortBy :: Lens' ListNotebookInstances (Maybe NotebookInstanceSortKey)+lniSortBy = lens _lniSortBy (\ s a -> s{_lniSortBy = a})++instance AWSPager ListNotebookInstances where+        page rq rs+          | stop (rs ^. lnirsNextToken) = Nothing+          | stop (rs ^. lnirsNotebookInstances) = Nothing+          | otherwise =+            Just $ rq & lniNextToken .~ rs ^. lnirsNextToken++instance AWSRequest ListNotebookInstances where+        type Rs ListNotebookInstances =+             ListNotebookInstancesResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 ListNotebookInstancesResponse' <$>+                   (x .?> "NotebookInstances" .!@ mempty) <*>+                     (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable ListNotebookInstances where++instance NFData ListNotebookInstances where++instance ToHeaders ListNotebookInstances where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.ListNotebookInstances" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListNotebookInstances where+        toJSON ListNotebookInstances'{..}+          = object+              (catMaybes+                 [("NameContains" .=) <$> _lniNameContains,+                  ("LastModifiedTimeBefore" .=) <$>+                    _lniLastModifiedTimeBefore,+                  ("NotebookInstanceLifecycleConfigNameContains" .=)+                    <$> _lniNotebookInstanceLifecycleConfigNameContains,+                  ("CreationTimeAfter" .=) <$> _lniCreationTimeAfter,+                  ("NextToken" .=) <$> _lniNextToken,+                  ("SortOrder" .=) <$> _lniSortOrder,+                  ("LastModifiedTimeAfter" .=) <$>+                    _lniLastModifiedTimeAfter,+                  ("CreationTimeBefore" .=) <$> _lniCreationTimeBefore,+                  ("StatusEquals" .=) <$> _lniStatusEquals,+                  ("MaxResults" .=) <$> _lniMaxResults,+                  ("SortBy" .=) <$> _lniSortBy])++instance ToPath ListNotebookInstances where+        toPath = const "/"++instance ToQuery ListNotebookInstances where+        toQuery = const mempty++-- | /See:/ 'listNotebookInstancesResponse' smart constructor.+data ListNotebookInstancesResponse = ListNotebookInstancesResponse'+  { _lnirsNotebookInstances :: !(Maybe [NotebookInstanceSummary])+  , _lnirsNextToken         :: !(Maybe Text)+  , _lnirsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListNotebookInstancesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lnirsNotebookInstances' - An array of @NotebookInstanceSummary@ objects, one for each notebook instance.+--+-- * 'lnirsNextToken' - If the response to the previous @ListNotebookInstances@ request was truncated, Amazon SageMaker returns this token. To retrieve the next set of notebook instances, use the token in the next request.+--+-- * 'lnirsResponseStatus' - -- | The response status code.+listNotebookInstancesResponse+    :: Int -- ^ 'lnirsResponseStatus'+    -> ListNotebookInstancesResponse+listNotebookInstancesResponse pResponseStatus_ =+  ListNotebookInstancesResponse'+    { _lnirsNotebookInstances = Nothing+    , _lnirsNextToken = Nothing+    , _lnirsResponseStatus = pResponseStatus_+    }+++-- | An array of @NotebookInstanceSummary@ objects, one for each notebook instance.+lnirsNotebookInstances :: Lens' ListNotebookInstancesResponse [NotebookInstanceSummary]+lnirsNotebookInstances = lens _lnirsNotebookInstances (\ s a -> s{_lnirsNotebookInstances = a}) . _Default . _Coerce++-- | If the response to the previous @ListNotebookInstances@ request was truncated, Amazon SageMaker returns this token. To retrieve the next set of notebook instances, use the token in the next request.+lnirsNextToken :: Lens' ListNotebookInstancesResponse (Maybe Text)+lnirsNextToken = lens _lnirsNextToken (\ s a -> s{_lnirsNextToken = a})++-- | -- | The response status code.+lnirsResponseStatus :: Lens' ListNotebookInstancesResponse Int+lnirsResponseStatus = lens _lnirsResponseStatus (\ s a -> s{_lnirsResponseStatus = a})++instance NFData ListNotebookInstancesResponse where
+ gen/Network/AWS/SageMaker/ListTags.hs view
@@ -0,0 +1,177 @@+{-# 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.SageMaker.ListTags+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the tags for the specified Amazon SageMaker resource.+--+--+--+-- This operation returns paginated results.+module Network.AWS.SageMaker.ListTags+    (+    -- * Creating a Request+      listTags+    , ListTags+    -- * Request Lenses+    , ltNextToken+    , ltMaxResults+    , ltResourceARN++    -- * Destructuring the Response+    , listTagsResponse+    , ListTagsResponse+    -- * Response Lenses+    , ltrsNextToken+    , ltrsTags+    , ltrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'listTags' smart constructor.+data ListTags = ListTags'+  { _ltNextToken   :: !(Maybe Text)+  , _ltMaxResults  :: !(Maybe Nat)+  , _ltResourceARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTags' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltNextToken' - If the response to the previous @ListTags@ request is truncated, Amazon SageMaker returns this token. To retrieve the next set of tags, use it in the subsequent request.+--+-- * 'ltMaxResults' - Maximum number of tags to return.+--+-- * 'ltResourceARN' - The Amazon Resource Name (ARN) of the resource whose tags you want to retrieve.+listTags+    :: Text -- ^ 'ltResourceARN'+    -> ListTags+listTags pResourceARN_ =+  ListTags'+    { _ltNextToken = Nothing+    , _ltMaxResults = Nothing+    , _ltResourceARN = pResourceARN_+    }+++-- | If the response to the previous @ListTags@ request is truncated, Amazon SageMaker returns this token. To retrieve the next set of tags, use it in the subsequent request.+ltNextToken :: Lens' ListTags (Maybe Text)+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a})++-- | Maximum number of tags to return.+ltMaxResults :: Lens' ListTags (Maybe Natural)+ltMaxResults = lens _ltMaxResults (\ s a -> s{_ltMaxResults = a}) . mapping _Nat++-- | The Amazon Resource Name (ARN) of the resource whose tags you want to retrieve.+ltResourceARN :: Lens' ListTags Text+ltResourceARN = lens _ltResourceARN (\ s a -> s{_ltResourceARN = a})++instance AWSPager ListTags where+        page rq rs+          | stop (rs ^. ltrsNextToken) = Nothing+          | stop (rs ^. ltrsTags) = Nothing+          | otherwise =+            Just $ rq & ltNextToken .~ rs ^. ltrsNextToken++instance AWSRequest ListTags where+        type Rs ListTags = ListTagsResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 ListTagsResponse' <$>+                   (x .?> "NextToken") <*> (x .?> "Tags" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable ListTags where++instance NFData ListTags where++instance ToHeaders ListTags where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.ListTags" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListTags where+        toJSON ListTags'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _ltNextToken,+                  ("MaxResults" .=) <$> _ltMaxResults,+                  Just ("ResourceArn" .= _ltResourceARN)])++instance ToPath ListTags where+        toPath = const "/"++instance ToQuery ListTags where+        toQuery = const mempty++-- | /See:/ 'listTagsResponse' smart constructor.+data ListTagsResponse = ListTagsResponse'+  { _ltrsNextToken      :: !(Maybe Text)+  , _ltrsTags           :: !(Maybe [Tag])+  , _ltrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltrsNextToken' - If response is truncated, Amazon SageMaker includes a token in the response. You can use this token in your subsequent request to fetch next set of tokens.+--+-- * 'ltrsTags' - An array of @Tag@ objects, each with a tag key and a value.+--+-- * 'ltrsResponseStatus' - -- | The response status code.+listTagsResponse+    :: Int -- ^ 'ltrsResponseStatus'+    -> ListTagsResponse+listTagsResponse pResponseStatus_ =+  ListTagsResponse'+    { _ltrsNextToken = Nothing+    , _ltrsTags = Nothing+    , _ltrsResponseStatus = pResponseStatus_+    }+++-- | If response is truncated, Amazon SageMaker includes a token in the response. You can use this token in your subsequent request to fetch next set of tokens.+ltrsNextToken :: Lens' ListTagsResponse (Maybe Text)+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a})++-- | An array of @Tag@ objects, each with a tag key and a value.+ltrsTags :: Lens' ListTagsResponse [Tag]+ltrsTags = lens _ltrsTags (\ s a -> s{_ltrsTags = a}) . _Default . _Coerce++-- | -- | The response status code.+ltrsResponseStatus :: Lens' ListTagsResponse Int+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})++instance NFData ListTagsResponse where
+ gen/Network/AWS/SageMaker/ListTrainingJobs.hs view
@@ -0,0 +1,248 @@+{-# 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.SageMaker.ListTrainingJobs+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists training jobs.+--+--+--+-- This operation returns paginated results.+module Network.AWS.SageMaker.ListTrainingJobs+    (+    -- * Creating a Request+      listTrainingJobs+    , ListTrainingJobs+    -- * Request Lenses+    , ltjNameContains+    , ltjLastModifiedTimeBefore+    , ltjCreationTimeAfter+    , ltjNextToken+    , ltjSortOrder+    , ltjLastModifiedTimeAfter+    , ltjCreationTimeBefore+    , ltjStatusEquals+    , ltjMaxResults+    , ltjSortBy++    -- * Destructuring the Response+    , listTrainingJobsResponse+    , ListTrainingJobsResponse+    -- * Response Lenses+    , ltjrsNextToken+    , ltjrsResponseStatus+    , ltjrsTrainingJobSummaries+    ) where++import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'listTrainingJobs' smart constructor.+data ListTrainingJobs = ListTrainingJobs'+  { _ltjNameContains           :: !(Maybe Text)+  , _ltjLastModifiedTimeBefore :: !(Maybe POSIX)+  , _ltjCreationTimeAfter      :: !(Maybe POSIX)+  , _ltjNextToken              :: !(Maybe Text)+  , _ltjSortOrder              :: !(Maybe SortOrder)+  , _ltjLastModifiedTimeAfter  :: !(Maybe POSIX)+  , _ltjCreationTimeBefore     :: !(Maybe POSIX)+  , _ltjStatusEquals           :: !(Maybe TrainingJobStatus)+  , _ltjMaxResults             :: !(Maybe Nat)+  , _ltjSortBy                 :: !(Maybe SortBy)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTrainingJobs' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltjNameContains' - A string in the training job name. This filter returns only models whose name contains the specified string.+--+-- * 'ltjLastModifiedTimeBefore' - A filter that returns only training jobs modified before the specified time (timestamp).+--+-- * 'ltjCreationTimeAfter' - A filter that only training jobs created after the specified time (timestamp).+--+-- * 'ltjNextToken' - If the result of the previous @ListTrainingJobs@ request was truncated, the response includes a @NextToken@ . To retrieve the next set of training jobs, use the token in the next request.+--+-- * 'ltjSortOrder' - The sort order for results. The default is @Ascending@ .+--+-- * 'ltjLastModifiedTimeAfter' - A filter that returns only training jobs modified after the specified time (timestamp).+--+-- * 'ltjCreationTimeBefore' - A filter that returns only training jobs created before the specified time (timestamp).+--+-- * 'ltjStatusEquals' - A filter that retrieves only training jobs with a specific status.+--+-- * 'ltjMaxResults' - The maximum number of training jobs to return in the response.+--+-- * 'ltjSortBy' - The field to sort results by. The default is @CreationTime@ .+listTrainingJobs+    :: ListTrainingJobs+listTrainingJobs =+  ListTrainingJobs'+    { _ltjNameContains = Nothing+    , _ltjLastModifiedTimeBefore = Nothing+    , _ltjCreationTimeAfter = Nothing+    , _ltjNextToken = Nothing+    , _ltjSortOrder = Nothing+    , _ltjLastModifiedTimeAfter = Nothing+    , _ltjCreationTimeBefore = Nothing+    , _ltjStatusEquals = Nothing+    , _ltjMaxResults = Nothing+    , _ltjSortBy = Nothing+    }+++-- | A string in the training job name. This filter returns only models whose name contains the specified string.+ltjNameContains :: Lens' ListTrainingJobs (Maybe Text)+ltjNameContains = lens _ltjNameContains (\ s a -> s{_ltjNameContains = a})++-- | A filter that returns only training jobs modified before the specified time (timestamp).+ltjLastModifiedTimeBefore :: Lens' ListTrainingJobs (Maybe UTCTime)+ltjLastModifiedTimeBefore = lens _ltjLastModifiedTimeBefore (\ s a -> s{_ltjLastModifiedTimeBefore = a}) . mapping _Time++-- | A filter that only training jobs created after the specified time (timestamp).+ltjCreationTimeAfter :: Lens' ListTrainingJobs (Maybe UTCTime)+ltjCreationTimeAfter = lens _ltjCreationTimeAfter (\ s a -> s{_ltjCreationTimeAfter = a}) . mapping _Time++-- | If the result of the previous @ListTrainingJobs@ request was truncated, the response includes a @NextToken@ . To retrieve the next set of training jobs, use the token in the next request.+ltjNextToken :: Lens' ListTrainingJobs (Maybe Text)+ltjNextToken = lens _ltjNextToken (\ s a -> s{_ltjNextToken = a})++-- | The sort order for results. The default is @Ascending@ .+ltjSortOrder :: Lens' ListTrainingJobs (Maybe SortOrder)+ltjSortOrder = lens _ltjSortOrder (\ s a -> s{_ltjSortOrder = a})++-- | A filter that returns only training jobs modified after the specified time (timestamp).+ltjLastModifiedTimeAfter :: Lens' ListTrainingJobs (Maybe UTCTime)+ltjLastModifiedTimeAfter = lens _ltjLastModifiedTimeAfter (\ s a -> s{_ltjLastModifiedTimeAfter = a}) . mapping _Time++-- | A filter that returns only training jobs created before the specified time (timestamp).+ltjCreationTimeBefore :: Lens' ListTrainingJobs (Maybe UTCTime)+ltjCreationTimeBefore = lens _ltjCreationTimeBefore (\ s a -> s{_ltjCreationTimeBefore = a}) . mapping _Time++-- | A filter that retrieves only training jobs with a specific status.+ltjStatusEquals :: Lens' ListTrainingJobs (Maybe TrainingJobStatus)+ltjStatusEquals = lens _ltjStatusEquals (\ s a -> s{_ltjStatusEquals = a})++-- | The maximum number of training jobs to return in the response.+ltjMaxResults :: Lens' ListTrainingJobs (Maybe Natural)+ltjMaxResults = lens _ltjMaxResults (\ s a -> s{_ltjMaxResults = a}) . mapping _Nat++-- | The field to sort results by. The default is @CreationTime@ .+ltjSortBy :: Lens' ListTrainingJobs (Maybe SortBy)+ltjSortBy = lens _ltjSortBy (\ s a -> s{_ltjSortBy = a})++instance AWSPager ListTrainingJobs where+        page rq rs+          | stop (rs ^. ltjrsNextToken) = Nothing+          | stop (rs ^. ltjrsTrainingJobSummaries) = Nothing+          | otherwise =+            Just $ rq & ltjNextToken .~ rs ^. ltjrsNextToken++instance AWSRequest ListTrainingJobs where+        type Rs ListTrainingJobs = ListTrainingJobsResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 ListTrainingJobsResponse' <$>+                   (x .?> "NextToken") <*> (pure (fromEnum s)) <*>+                     (x .?> "TrainingJobSummaries" .!@ mempty))++instance Hashable ListTrainingJobs where++instance NFData ListTrainingJobs where++instance ToHeaders ListTrainingJobs where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.ListTrainingJobs" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListTrainingJobs where+        toJSON ListTrainingJobs'{..}+          = object+              (catMaybes+                 [("NameContains" .=) <$> _ltjNameContains,+                  ("LastModifiedTimeBefore" .=) <$>+                    _ltjLastModifiedTimeBefore,+                  ("CreationTimeAfter" .=) <$> _ltjCreationTimeAfter,+                  ("NextToken" .=) <$> _ltjNextToken,+                  ("SortOrder" .=) <$> _ltjSortOrder,+                  ("LastModifiedTimeAfter" .=) <$>+                    _ltjLastModifiedTimeAfter,+                  ("CreationTimeBefore" .=) <$> _ltjCreationTimeBefore,+                  ("StatusEquals" .=) <$> _ltjStatusEquals,+                  ("MaxResults" .=) <$> _ltjMaxResults,+                  ("SortBy" .=) <$> _ltjSortBy])++instance ToPath ListTrainingJobs where+        toPath = const "/"++instance ToQuery ListTrainingJobs where+        toQuery = const mempty++-- | /See:/ 'listTrainingJobsResponse' smart constructor.+data ListTrainingJobsResponse = ListTrainingJobsResponse'+  { _ltjrsNextToken            :: !(Maybe Text)+  , _ltjrsResponseStatus       :: !Int+  , _ltjrsTrainingJobSummaries :: ![TrainingJobSummary]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTrainingJobsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltjrsNextToken' - If the response is truncated, Amazon SageMaker returns this token. To retrieve the next set of training jobs, use it in the subsequent request.+--+-- * 'ltjrsResponseStatus' - -- | The response status code.+--+-- * 'ltjrsTrainingJobSummaries' - An array of @TrainingJobSummary@ objects, each listing a training job.+listTrainingJobsResponse+    :: Int -- ^ 'ltjrsResponseStatus'+    -> ListTrainingJobsResponse+listTrainingJobsResponse pResponseStatus_ =+  ListTrainingJobsResponse'+    { _ltjrsNextToken = Nothing+    , _ltjrsResponseStatus = pResponseStatus_+    , _ltjrsTrainingJobSummaries = mempty+    }+++-- | If the response is truncated, Amazon SageMaker returns this token. To retrieve the next set of training jobs, use it in the subsequent request.+ltjrsNextToken :: Lens' ListTrainingJobsResponse (Maybe Text)+ltjrsNextToken = lens _ltjrsNextToken (\ s a -> s{_ltjrsNextToken = a})++-- | -- | The response status code.+ltjrsResponseStatus :: Lens' ListTrainingJobsResponse Int+ltjrsResponseStatus = lens _ltjrsResponseStatus (\ s a -> s{_ltjrsResponseStatus = a})++-- | An array of @TrainingJobSummary@ objects, each listing a training job.+ltjrsTrainingJobSummaries :: Lens' ListTrainingJobsResponse [TrainingJobSummary]+ltjrsTrainingJobSummaries = lens _ltjrsTrainingJobSummaries (\ s a -> s{_ltjrsTrainingJobSummaries = a}) . _Coerce++instance NFData ListTrainingJobsResponse where
+ gen/Network/AWS/SageMaker/StartNotebookInstance.hs view
@@ -0,0 +1,111 @@+{-# 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.SageMaker.StartNotebookInstance+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Launches an ML compute instance with the latest version of the libraries and attaches your ML storage volume. After configuring the notebook instance, Amazon SageMaker sets the notebook instance status to @InService@ . A notebook instance's status must be @InService@ before you can connect to your Jupyter notebook.+--+--+module Network.AWS.SageMaker.StartNotebookInstance+    (+    -- * Creating a Request+      startNotebookInstance+    , StartNotebookInstance+    -- * Request Lenses+    , sNotebookInstanceName++    -- * Destructuring the Response+    , startNotebookInstanceResponse+    , StartNotebookInstanceResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'startNotebookInstance' smart constructor.+newtype StartNotebookInstance = StartNotebookInstance'+  { _sNotebookInstanceName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartNotebookInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sNotebookInstanceName' - The name of the notebook instance to start.+startNotebookInstance+    :: Text -- ^ 'sNotebookInstanceName'+    -> StartNotebookInstance+startNotebookInstance pNotebookInstanceName_ =+  StartNotebookInstance' {_sNotebookInstanceName = pNotebookInstanceName_}+++-- | The name of the notebook instance to start.+sNotebookInstanceName :: Lens' StartNotebookInstance Text+sNotebookInstanceName = lens _sNotebookInstanceName (\ s a -> s{_sNotebookInstanceName = a})++instance AWSRequest StartNotebookInstance where+        type Rs StartNotebookInstance =+             StartNotebookInstanceResponse+        request = postJSON sageMaker+        response = receiveNull StartNotebookInstanceResponse'++instance Hashable StartNotebookInstance where++instance NFData StartNotebookInstance where++instance ToHeaders StartNotebookInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.StartNotebookInstance" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartNotebookInstance where+        toJSON StartNotebookInstance'{..}+          = object+              (catMaybes+                 [Just+                    ("NotebookInstanceName" .= _sNotebookInstanceName)])++instance ToPath StartNotebookInstance where+        toPath = const "/"++instance ToQuery StartNotebookInstance where+        toQuery = const mempty++-- | /See:/ 'startNotebookInstanceResponse' smart constructor.+data StartNotebookInstanceResponse =+  StartNotebookInstanceResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartNotebookInstanceResponse' with the minimum fields required to make a request.+--+startNotebookInstanceResponse+    :: StartNotebookInstanceResponse+startNotebookInstanceResponse = StartNotebookInstanceResponse'+++instance NFData StartNotebookInstanceResponse where
+ gen/Network/AWS/SageMaker/StopNotebookInstance.hs view
@@ -0,0 +1,114 @@+{-# 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.SageMaker.StopNotebookInstance+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Terminates the ML compute instance. Before terminating the instance, Amazon SageMaker disconnects the ML storage volume from it. Amazon SageMaker preserves the ML storage volume.+--+--+-- To access data on the ML storage volume for a notebook instance that has been terminated, call the @StartNotebookInstance@ API. @StartNotebookInstance@ launches another ML compute instance, configures it, and attaches the preserved ML storage volume so you can continue your work.+--+module Network.AWS.SageMaker.StopNotebookInstance+    (+    -- * Creating a Request+      stopNotebookInstance+    , StopNotebookInstance+    -- * Request Lenses+    , sniNotebookInstanceName++    -- * Destructuring the Response+    , stopNotebookInstanceResponse+    , StopNotebookInstanceResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'stopNotebookInstance' smart constructor.+newtype StopNotebookInstance = StopNotebookInstance'+  { _sniNotebookInstanceName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopNotebookInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sniNotebookInstanceName' - The name of the notebook instance to terminate.+stopNotebookInstance+    :: Text -- ^ 'sniNotebookInstanceName'+    -> StopNotebookInstance+stopNotebookInstance pNotebookInstanceName_ =+  StopNotebookInstance' {_sniNotebookInstanceName = pNotebookInstanceName_}+++-- | The name of the notebook instance to terminate.+sniNotebookInstanceName :: Lens' StopNotebookInstance Text+sniNotebookInstanceName = lens _sniNotebookInstanceName (\ s a -> s{_sniNotebookInstanceName = a})++instance AWSRequest StopNotebookInstance where+        type Rs StopNotebookInstance =+             StopNotebookInstanceResponse+        request = postJSON sageMaker+        response = receiveNull StopNotebookInstanceResponse'++instance Hashable StopNotebookInstance where++instance NFData StopNotebookInstance where++instance ToHeaders StopNotebookInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.StopNotebookInstance" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StopNotebookInstance where+        toJSON StopNotebookInstance'{..}+          = object+              (catMaybes+                 [Just+                    ("NotebookInstanceName" .=+                       _sniNotebookInstanceName)])++instance ToPath StopNotebookInstance where+        toPath = const "/"++instance ToQuery StopNotebookInstance where+        toQuery = const mempty++-- | /See:/ 'stopNotebookInstanceResponse' smart constructor.+data StopNotebookInstanceResponse =+  StopNotebookInstanceResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopNotebookInstanceResponse' with the minimum fields required to make a request.+--+stopNotebookInstanceResponse+    :: StopNotebookInstanceResponse+stopNotebookInstanceResponse = StopNotebookInstanceResponse'+++instance NFData StopNotebookInstanceResponse where
+ gen/Network/AWS/SageMaker/StopTrainingJob.hs view
@@ -0,0 +1,113 @@+{-# 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.SageMaker.StopTrainingJob+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops a training job. To stop a job, Amazon SageMaker sends the algorithm the @SIGTERM@ signal, which delays job termination for 120 seconds. Algorithms might use this 120-second window to save the model artifacts, so the results of the training is not lost.+--+--+-- Training algorithms provided by Amazon SageMaker save the intermediate results of a model training job. This intermediate data is a valid model artifact. You can use the model artifacts that are saved when Amazon SageMaker stops a training job to create a model.+--+-- When it receives a @StopTrainingJob@ request, Amazon SageMaker changes the status of the job to @Stopping@ . After Amazon SageMaker stops the job, it sets the status to @Stopped@ .+--+module Network.AWS.SageMaker.StopTrainingJob+    (+    -- * Creating a Request+      stopTrainingJob+    , StopTrainingJob+    -- * Request Lenses+    , stjTrainingJobName++    -- * Destructuring the Response+    , stopTrainingJobResponse+    , StopTrainingJobResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'stopTrainingJob' smart constructor.+newtype StopTrainingJob = StopTrainingJob'+  { _stjTrainingJobName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopTrainingJob' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'stjTrainingJobName' - The name of the training job to stop.+stopTrainingJob+    :: Text -- ^ 'stjTrainingJobName'+    -> StopTrainingJob+stopTrainingJob pTrainingJobName_ =+  StopTrainingJob' {_stjTrainingJobName = pTrainingJobName_}+++-- | The name of the training job to stop.+stjTrainingJobName :: Lens' StopTrainingJob Text+stjTrainingJobName = lens _stjTrainingJobName (\ s a -> s{_stjTrainingJobName = a})++instance AWSRequest StopTrainingJob where+        type Rs StopTrainingJob = StopTrainingJobResponse+        request = postJSON sageMaker+        response = receiveNull StopTrainingJobResponse'++instance Hashable StopTrainingJob where++instance NFData StopTrainingJob where++instance ToHeaders StopTrainingJob where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.StopTrainingJob" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StopTrainingJob where+        toJSON StopTrainingJob'{..}+          = object+              (catMaybes+                 [Just ("TrainingJobName" .= _stjTrainingJobName)])++instance ToPath StopTrainingJob where+        toPath = const "/"++instance ToQuery StopTrainingJob where+        toQuery = const mempty++-- | /See:/ 'stopTrainingJobResponse' smart constructor.+data StopTrainingJobResponse =+  StopTrainingJobResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopTrainingJobResponse' with the minimum fields required to make a request.+--+stopTrainingJobResponse+    :: StopTrainingJobResponse+stopTrainingJobResponse = StopTrainingJobResponse'+++instance NFData StopTrainingJobResponse where
+ gen/Network/AWS/SageMaker/Types.hs view
@@ -0,0 +1,311 @@+{-# LANGUAGE OverloadedStrings #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SageMaker.Types+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.SageMaker.Types+    (+    -- * Service Configuration+      sageMaker++    -- * Errors+    , _ResourceLimitExceeded+    , _ResourceInUse+    , _ResourceNotFound++    -- * CompressionType+    , CompressionType (..)++    -- * DirectInternetAccess+    , DirectInternetAccess (..)++    -- * EndpointConfigSortKey+    , EndpointConfigSortKey (..)++    -- * EndpointSortKey+    , EndpointSortKey (..)++    -- * EndpointStatus+    , EndpointStatus (..)++    -- * InstanceType+    , InstanceType (..)++    -- * ModelSortKey+    , ModelSortKey (..)++    -- * NotebookInstanceLifecycleConfigSortKey+    , NotebookInstanceLifecycleConfigSortKey (..)++    -- * NotebookInstanceLifecycleConfigSortOrder+    , NotebookInstanceLifecycleConfigSortOrder (..)++    -- * NotebookInstanceSortKey+    , NotebookInstanceSortKey (..)++    -- * NotebookInstanceSortOrder+    , NotebookInstanceSortOrder (..)++    -- * NotebookInstanceStatus+    , NotebookInstanceStatus (..)++    -- * OrderKey+    , OrderKey (..)++    -- * ProductionVariantInstanceType+    , ProductionVariantInstanceType (..)++    -- * RecordWrapper+    , RecordWrapper (..)++    -- * S3DataDistribution+    , S3DataDistribution (..)++    -- * S3DataType+    , S3DataType (..)++    -- * SecondaryStatus+    , SecondaryStatus (..)++    -- * SortBy+    , SortBy (..)++    -- * SortOrder+    , SortOrder (..)++    -- * TrainingInputMode+    , TrainingInputMode (..)++    -- * TrainingInstanceType+    , TrainingInstanceType (..)++    -- * TrainingJobStatus+    , TrainingJobStatus (..)++    -- * AlgorithmSpecification+    , AlgorithmSpecification+    , algorithmSpecification+    , asTrainingImage+    , asTrainingInputMode++    -- * Channel+    , Channel+    , channel+    , cRecordWrapperType+    , cCompressionType+    , cContentType+    , cChannelName+    , cDataSource++    -- * ContainerDefinition+    , ContainerDefinition+    , containerDefinition+    , cdModelDataURL+    , cdEnvironment+    , cdContainerHostname+    , cdImage++    -- * DataSource+    , DataSource+    , dataSource+    , dsS3DataSource++    -- * DesiredWeightAndCapacity+    , DesiredWeightAndCapacity+    , desiredWeightAndCapacity+    , dwacDesiredInstanceCount+    , dwacDesiredWeight+    , dwacVariantName++    -- * EndpointConfigSummary+    , EndpointConfigSummary+    , endpointConfigSummary+    , ecsEndpointConfigName+    , ecsEndpointConfigARN+    , ecsCreationTime++    -- * EndpointSummary+    , EndpointSummary+    , endpointSummary+    , esEndpointName+    , esEndpointARN+    , esCreationTime+    , esLastModifiedTime+    , esEndpointStatus++    -- * ModelArtifacts+    , ModelArtifacts+    , modelArtifacts+    , maS3ModelArtifacts++    -- * ModelSummary+    , ModelSummary+    , modelSummary+    , msModelName+    , msModelARN+    , msCreationTime++    -- * NotebookInstanceLifecycleConfigSummary+    , NotebookInstanceLifecycleConfigSummary+    , notebookInstanceLifecycleConfigSummary+    , nilcsCreationTime+    , nilcsLastModifiedTime+    , nilcsNotebookInstanceLifecycleConfigName+    , nilcsNotebookInstanceLifecycleConfigARN++    -- * NotebookInstanceLifecycleHook+    , NotebookInstanceLifecycleHook+    , notebookInstanceLifecycleHook+    , nilhContent++    -- * NotebookInstanceSummary+    , NotebookInstanceSummary+    , notebookInstanceSummary+    , nisCreationTime+    , nisURL+    , nisLastModifiedTime+    , nisInstanceType+    , nisNotebookInstanceStatus+    , nisNotebookInstanceLifecycleConfigName+    , nisNotebookInstanceName+    , nisNotebookInstanceARN++    -- * OutputDataConfig+    , OutputDataConfig+    , outputDataConfig+    , odcKMSKeyId+    , odcS3OutputPath++    -- * ProductionVariant+    , ProductionVariant+    , productionVariant+    , pvInitialVariantWeight+    , pvVariantName+    , pvModelName+    , pvInitialInstanceCount+    , pvInstanceType++    -- * ProductionVariantSummary+    , ProductionVariantSummary+    , productionVariantSummary+    , pvsDesiredInstanceCount+    , pvsDesiredWeight+    , pvsCurrentWeight+    , pvsCurrentInstanceCount+    , pvsVariantName++    -- * ResourceConfig+    , ResourceConfig+    , resourceConfig+    , rcVolumeKMSKeyId+    , rcInstanceType+    , rcInstanceCount+    , rcVolumeSizeInGB++    -- * S3DataSource+    , S3DataSource+    , s3DataSource+    , sdsS3DataDistributionType+    , sdsS3DataType+    , sdsS3URI++    -- * StoppingCondition+    , StoppingCondition+    , stoppingCondition+    , scMaxRuntimeInSeconds++    -- * Tag+    , Tag+    , tag+    , tagKey+    , tagValue++    -- * TrainingJobSummary+    , TrainingJobSummary+    , trainingJobSummary+    , tjsTrainingEndTime+    , tjsLastModifiedTime+    , tjsTrainingJobName+    , tjsTrainingJobARN+    , tjsCreationTime+    , tjsTrainingJobStatus++    -- * VPCConfig+    , VPCConfig+    , vpcConfig+    , vcSecurityGroupIds+    , vcSubnets+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.SageMaker.Types.Product+import Network.AWS.SageMaker.Types.Sum+import Network.AWS.Sign.V4++-- | API version @2017-07-24@ of the Amazon SageMaker Service SDK configuration.+sageMaker :: Service+sageMaker =+  Service+    { _svcAbbrev = "SageMaker"+    , _svcSigner = v4+    , _svcPrefix = "sagemaker"+    , _svcVersion = "2017-07-24"+    , _svcEndpoint = defaultEndpoint sageMaker+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "SageMaker"+    , _svcRetry = retry+    }+  where+    retry =+      Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"+      | has (hasStatus 429) e = Just "too_many_requests"+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+        Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"+      | has (hasStatus 502) e = Just "bad_gateway"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing+++-- | You have exceeded an Amazon SageMaker resource limit. For example, you might have too many training jobs created.+--+--+_ResourceLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceLimitExceeded = _MatchServiceError sageMaker "ResourceLimitExceeded"+++-- | Resource being accessed is in use.+--+--+_ResourceInUse :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceInUse = _MatchServiceError sageMaker "ResourceInUse"+++-- | Resource being access is not found.+--+--+_ResourceNotFound :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceNotFound = _MatchServiceError sageMaker "ResourceNotFound"+
+ gen/Network/AWS/SageMaker/Types/Product.hs view
@@ -0,0 +1,1390 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SageMaker.Types.Product+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.SageMaker.Types.Product where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.SageMaker.Types.Sum++-- | Specifies the training algorithm to use in a <http://docs.aws.amazon.com/sagemaker/latest/dg/API_CreateTrainingJob.html CreateTrainingJob> request.+--+--+-- For more information about algorithms provided by Amazon SageMaker, see <http://docs.aws.amazon.com/sagemaker/latest/dg/algos.html Algorithms> . For information about using your own algorithms, see 'your-algorithms' .+--+--+-- /See:/ 'algorithmSpecification' smart constructor.+data AlgorithmSpecification = AlgorithmSpecification'+  { _asTrainingImage     :: !Text+  , _asTrainingInputMode :: !TrainingInputMode+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AlgorithmSpecification' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'asTrainingImage' - The registry path of the Docker image that contains the training algorithm. For information about docker registry paths for built-in algorithms, see 'sagemaker-algo-docker-registry-paths' .+--+-- * 'asTrainingInputMode' - The input mode that the algorithm supports. For the input modes that Amazon SageMaker algorithms support, see <http://docs.aws.amazon.com/sagemaker/latest/dg/algos.html Algorithms> . If an algorithm supports the @File@ input mode, Amazon SageMaker downloads the training data from S3 to the provisioned ML storage Volume, and mounts the directory to docker volume for training container. If an algorithm supports the @Pipe@ input mode, Amazon SageMaker streams data directly from S3 to the container.  In File mode, make sure you provision ML storage volume with sufficient capacity to accommodate the data download from S3. In addition to the training data, the ML storage volume also stores the output model. The algorithm container use ML storage volume to also store intermediate information, if any.  For distributed algorithms using File mode, training data is distributed uniformly, and your training duration is predictable if the input data objects size is approximately same. Amazon SageMaker does not split the files any further for model training. If the object sizes are skewed, training won't be optimal as the data distribution is also skewed where one host in a training cluster is overloaded, thus becoming bottleneck in training.+algorithmSpecification+    :: Text -- ^ 'asTrainingImage'+    -> TrainingInputMode -- ^ 'asTrainingInputMode'+    -> AlgorithmSpecification+algorithmSpecification pTrainingImage_ pTrainingInputMode_ =+  AlgorithmSpecification'+    { _asTrainingImage = pTrainingImage_+    , _asTrainingInputMode = pTrainingInputMode_+    }+++-- | The registry path of the Docker image that contains the training algorithm. For information about docker registry paths for built-in algorithms, see 'sagemaker-algo-docker-registry-paths' .+asTrainingImage :: Lens' AlgorithmSpecification Text+asTrainingImage = lens _asTrainingImage (\ s a -> s{_asTrainingImage = a})++-- | The input mode that the algorithm supports. For the input modes that Amazon SageMaker algorithms support, see <http://docs.aws.amazon.com/sagemaker/latest/dg/algos.html Algorithms> . If an algorithm supports the @File@ input mode, Amazon SageMaker downloads the training data from S3 to the provisioned ML storage Volume, and mounts the directory to docker volume for training container. If an algorithm supports the @Pipe@ input mode, Amazon SageMaker streams data directly from S3 to the container.  In File mode, make sure you provision ML storage volume with sufficient capacity to accommodate the data download from S3. In addition to the training data, the ML storage volume also stores the output model. The algorithm container use ML storage volume to also store intermediate information, if any.  For distributed algorithms using File mode, training data is distributed uniformly, and your training duration is predictable if the input data objects size is approximately same. Amazon SageMaker does not split the files any further for model training. If the object sizes are skewed, training won't be optimal as the data distribution is also skewed where one host in a training cluster is overloaded, thus becoming bottleneck in training.+asTrainingInputMode :: Lens' AlgorithmSpecification TrainingInputMode+asTrainingInputMode = lens _asTrainingInputMode (\ s a -> s{_asTrainingInputMode = a})++instance FromJSON AlgorithmSpecification where+        parseJSON+          = withObject "AlgorithmSpecification"+              (\ x ->+                 AlgorithmSpecification' <$>+                   (x .: "TrainingImage") <*>+                     (x .: "TrainingInputMode"))++instance Hashable AlgorithmSpecification where++instance NFData AlgorithmSpecification where++instance ToJSON AlgorithmSpecification where+        toJSON AlgorithmSpecification'{..}+          = object+              (catMaybes+                 [Just ("TrainingImage" .= _asTrainingImage),+                  Just ("TrainingInputMode" .= _asTrainingInputMode)])++-- | A channel is a named input source that training algorithms can consume.+--+--+--+-- /See:/ 'channel' smart constructor.+data Channel = Channel'+  { _cRecordWrapperType :: !(Maybe RecordWrapper)+  , _cCompressionType   :: !(Maybe CompressionType)+  , _cContentType       :: !(Maybe Text)+  , _cChannelName       :: !Text+  , _cDataSource        :: !DataSource+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Channel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cRecordWrapperType' -  Specify RecordIO as the value when input data is in raw format but the training algorithm requires the RecordIO format, in which caseAmazon SageMaker wraps each individual S3 object in a RecordIO record. If the input data is already in RecordIO format, you don't need to set this attribute. For more information, see <https://mxnet.incubator.apache.org/how_to/recordio.html?highlight=im2rec Create a Dataset Using RecordIO> .  In FILE mode, leave this field unset or set it to None.+--+-- * 'cCompressionType' - If training data is compressed, the compression type. The default value is @None@ . @CompressionType@ is used only in PIPE input mode. In FILE mode, leave this field unset or set it to None.+--+-- * 'cContentType' - The MIME type of the data.+--+-- * 'cChannelName' - The name of the channel.+--+-- * 'cDataSource' - The location of the channel data.+channel+    :: Text -- ^ 'cChannelName'+    -> DataSource -- ^ 'cDataSource'+    -> Channel+channel pChannelName_ pDataSource_ =+  Channel'+    { _cRecordWrapperType = Nothing+    , _cCompressionType = Nothing+    , _cContentType = Nothing+    , _cChannelName = pChannelName_+    , _cDataSource = pDataSource_+    }+++-- |  Specify RecordIO as the value when input data is in raw format but the training algorithm requires the RecordIO format, in which caseAmazon SageMaker wraps each individual S3 object in a RecordIO record. If the input data is already in RecordIO format, you don't need to set this attribute. For more information, see <https://mxnet.incubator.apache.org/how_to/recordio.html?highlight=im2rec Create a Dataset Using RecordIO> .  In FILE mode, leave this field unset or set it to None.+cRecordWrapperType :: Lens' Channel (Maybe RecordWrapper)+cRecordWrapperType = lens _cRecordWrapperType (\ s a -> s{_cRecordWrapperType = a})++-- | If training data is compressed, the compression type. The default value is @None@ . @CompressionType@ is used only in PIPE input mode. In FILE mode, leave this field unset or set it to None.+cCompressionType :: Lens' Channel (Maybe CompressionType)+cCompressionType = lens _cCompressionType (\ s a -> s{_cCompressionType = a})++-- | The MIME type of the data.+cContentType :: Lens' Channel (Maybe Text)+cContentType = lens _cContentType (\ s a -> s{_cContentType = a})++-- | The name of the channel.+cChannelName :: Lens' Channel Text+cChannelName = lens _cChannelName (\ s a -> s{_cChannelName = a})++-- | The location of the channel data.+cDataSource :: Lens' Channel DataSource+cDataSource = lens _cDataSource (\ s a -> s{_cDataSource = a})++instance FromJSON Channel where+        parseJSON+          = withObject "Channel"+              (\ x ->+                 Channel' <$>+                   (x .:? "RecordWrapperType") <*>+                     (x .:? "CompressionType")+                     <*> (x .:? "ContentType")+                     <*> (x .: "ChannelName")+                     <*> (x .: "DataSource"))++instance Hashable Channel where++instance NFData Channel where++instance ToJSON Channel where+        toJSON Channel'{..}+          = object+              (catMaybes+                 [("RecordWrapperType" .=) <$> _cRecordWrapperType,+                  ("CompressionType" .=) <$> _cCompressionType,+                  ("ContentType" .=) <$> _cContentType,+                  Just ("ChannelName" .= _cChannelName),+                  Just ("DataSource" .= _cDataSource)])++-- | Describes the container, as part of model definition.+--+--+--+-- /See:/ 'containerDefinition' smart constructor.+data ContainerDefinition = ContainerDefinition'+  { _cdModelDataURL      :: !(Maybe Text)+  , _cdEnvironment       :: !(Maybe (Map Text Text))+  , _cdContainerHostname :: !(Maybe Text)+  , _cdImage             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContainerDefinition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdModelDataURL' - The S3 path where the model artifacts, which result from model training, are stored. This path must point to a single gzip compressed tar archive (.tar.gz suffix).+--+-- * 'cdEnvironment' - The environment variables to set in the Docker container. Each key and value in the @Environment@ string to string map can have length of up to 1024. We support up to 16 entries in the map.+--+-- * 'cdContainerHostname' - The DNS host name for the container after Amazon SageMaker deploys it.+--+-- * 'cdImage' - The Amazon EC2 Container Registry (Amazon ECR) path where inference code is stored. If you are using your own custom algorithm instead of an algorithm provided by Amazon SageMaker, the inference code must meet Amazon SageMaker requirements. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/your-algorithms.html Using Your Own Algorithms with Amazon SageMaker>+containerDefinition+    :: Text -- ^ 'cdImage'+    -> ContainerDefinition+containerDefinition pImage_ =+  ContainerDefinition'+    { _cdModelDataURL = Nothing+    , _cdEnvironment = Nothing+    , _cdContainerHostname = Nothing+    , _cdImage = pImage_+    }+++-- | The S3 path where the model artifacts, which result from model training, are stored. This path must point to a single gzip compressed tar archive (.tar.gz suffix).+cdModelDataURL :: Lens' ContainerDefinition (Maybe Text)+cdModelDataURL = lens _cdModelDataURL (\ s a -> s{_cdModelDataURL = a})++-- | The environment variables to set in the Docker container. Each key and value in the @Environment@ string to string map can have length of up to 1024. We support up to 16 entries in the map.+cdEnvironment :: Lens' ContainerDefinition (HashMap Text Text)+cdEnvironment = lens _cdEnvironment (\ s a -> s{_cdEnvironment = a}) . _Default . _Map++-- | The DNS host name for the container after Amazon SageMaker deploys it.+cdContainerHostname :: Lens' ContainerDefinition (Maybe Text)+cdContainerHostname = lens _cdContainerHostname (\ s a -> s{_cdContainerHostname = a})++-- | The Amazon EC2 Container Registry (Amazon ECR) path where inference code is stored. If you are using your own custom algorithm instead of an algorithm provided by Amazon SageMaker, the inference code must meet Amazon SageMaker requirements. For more information, see <http://docs.aws.amazon.com/sagemaker/latest/dg/your-algorithms.html Using Your Own Algorithms with Amazon SageMaker>+cdImage :: Lens' ContainerDefinition Text+cdImage = lens _cdImage (\ s a -> s{_cdImage = a})++instance FromJSON ContainerDefinition where+        parseJSON+          = withObject "ContainerDefinition"+              (\ x ->+                 ContainerDefinition' <$>+                   (x .:? "ModelDataUrl") <*>+                     (x .:? "Environment" .!= mempty)+                     <*> (x .:? "ContainerHostname")+                     <*> (x .: "Image"))++instance Hashable ContainerDefinition where++instance NFData ContainerDefinition where++instance ToJSON ContainerDefinition where+        toJSON ContainerDefinition'{..}+          = object+              (catMaybes+                 [("ModelDataUrl" .=) <$> _cdModelDataURL,+                  ("Environment" .=) <$> _cdEnvironment,+                  ("ContainerHostname" .=) <$> _cdContainerHostname,+                  Just ("Image" .= _cdImage)])++-- | Describes the location of the channel data.+--+--+--+-- /See:/ 'dataSource' smart constructor.+newtype DataSource = DataSource'+  { _dsS3DataSource :: S3DataSource+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DataSource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsS3DataSource' - The S3 location of the data source that is associated with a channel.+dataSource+    :: S3DataSource -- ^ 'dsS3DataSource'+    -> DataSource+dataSource pS3DataSource_ = DataSource' {_dsS3DataSource = pS3DataSource_}+++-- | The S3 location of the data source that is associated with a channel.+dsS3DataSource :: Lens' DataSource S3DataSource+dsS3DataSource = lens _dsS3DataSource (\ s a -> s{_dsS3DataSource = a})++instance FromJSON DataSource where+        parseJSON+          = withObject "DataSource"+              (\ x -> DataSource' <$> (x .: "S3DataSource"))++instance Hashable DataSource where++instance NFData DataSource where++instance ToJSON DataSource where+        toJSON DataSource'{..}+          = object+              (catMaybes+                 [Just ("S3DataSource" .= _dsS3DataSource)])++-- | Specifies weight and capacity values for a production variant.+--+--+--+-- /See:/ 'desiredWeightAndCapacity' smart constructor.+data DesiredWeightAndCapacity = DesiredWeightAndCapacity'+  { _dwacDesiredInstanceCount :: !(Maybe Nat)+  , _dwacDesiredWeight        :: !(Maybe Double)+  , _dwacVariantName          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DesiredWeightAndCapacity' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dwacDesiredInstanceCount' - The variant's capacity.+--+-- * 'dwacDesiredWeight' - The variant's weight.+--+-- * 'dwacVariantName' - The name of the variant to update.+desiredWeightAndCapacity+    :: Text -- ^ 'dwacVariantName'+    -> DesiredWeightAndCapacity+desiredWeightAndCapacity pVariantName_ =+  DesiredWeightAndCapacity'+    { _dwacDesiredInstanceCount = Nothing+    , _dwacDesiredWeight = Nothing+    , _dwacVariantName = pVariantName_+    }+++-- | The variant's capacity.+dwacDesiredInstanceCount :: Lens' DesiredWeightAndCapacity (Maybe Natural)+dwacDesiredInstanceCount = lens _dwacDesiredInstanceCount (\ s a -> s{_dwacDesiredInstanceCount = a}) . mapping _Nat++-- | The variant's weight.+dwacDesiredWeight :: Lens' DesiredWeightAndCapacity (Maybe Double)+dwacDesiredWeight = lens _dwacDesiredWeight (\ s a -> s{_dwacDesiredWeight = a})++-- | The name of the variant to update.+dwacVariantName :: Lens' DesiredWeightAndCapacity Text+dwacVariantName = lens _dwacVariantName (\ s a -> s{_dwacVariantName = a})++instance Hashable DesiredWeightAndCapacity where++instance NFData DesiredWeightAndCapacity where++instance ToJSON DesiredWeightAndCapacity where+        toJSON DesiredWeightAndCapacity'{..}+          = object+              (catMaybes+                 [("DesiredInstanceCount" .=) <$>+                    _dwacDesiredInstanceCount,+                  ("DesiredWeight" .=) <$> _dwacDesiredWeight,+                  Just ("VariantName" .= _dwacVariantName)])++-- | Provides summary information for an endpoint configuration.+--+--+--+-- /See:/ 'endpointConfigSummary' smart constructor.+data EndpointConfigSummary = EndpointConfigSummary'+  { _ecsEndpointConfigName :: !Text+  , _ecsEndpointConfigARN  :: !Text+  , _ecsCreationTime       :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EndpointConfigSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ecsEndpointConfigName' - The name of the endpoint configuration.+--+-- * 'ecsEndpointConfigARN' - The Amazon Resource Name (ARN) of the endpoint configuration.+--+-- * 'ecsCreationTime' - A timestamp that shows when the endpoint configuration was created.+endpointConfigSummary+    :: Text -- ^ 'ecsEndpointConfigName'+    -> Text -- ^ 'ecsEndpointConfigARN'+    -> UTCTime -- ^ 'ecsCreationTime'+    -> EndpointConfigSummary+endpointConfigSummary pEndpointConfigName_ pEndpointConfigARN_ pCreationTime_ =+  EndpointConfigSummary'+    { _ecsEndpointConfigName = pEndpointConfigName_+    , _ecsEndpointConfigARN = pEndpointConfigARN_+    , _ecsCreationTime = _Time # pCreationTime_+    }+++-- | The name of the endpoint configuration.+ecsEndpointConfigName :: Lens' EndpointConfigSummary Text+ecsEndpointConfigName = lens _ecsEndpointConfigName (\ s a -> s{_ecsEndpointConfigName = a})++-- | The Amazon Resource Name (ARN) of the endpoint configuration.+ecsEndpointConfigARN :: Lens' EndpointConfigSummary Text+ecsEndpointConfigARN = lens _ecsEndpointConfigARN (\ s a -> s{_ecsEndpointConfigARN = a})++-- | A timestamp that shows when the endpoint configuration was created.+ecsCreationTime :: Lens' EndpointConfigSummary UTCTime+ecsCreationTime = lens _ecsCreationTime (\ s a -> s{_ecsCreationTime = a}) . _Time++instance FromJSON EndpointConfigSummary where+        parseJSON+          = withObject "EndpointConfigSummary"+              (\ x ->+                 EndpointConfigSummary' <$>+                   (x .: "EndpointConfigName") <*>+                     (x .: "EndpointConfigArn")+                     <*> (x .: "CreationTime"))++instance Hashable EndpointConfigSummary where++instance NFData EndpointConfigSummary where++-- | Provides summary information for an endpoint.+--+--+--+-- /See:/ 'endpointSummary' smart constructor.+data EndpointSummary = EndpointSummary'+  { _esEndpointName     :: !Text+  , _esEndpointARN      :: !Text+  , _esCreationTime     :: !POSIX+  , _esLastModifiedTime :: !POSIX+  , _esEndpointStatus   :: !EndpointStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EndpointSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'esEndpointName' - The name of the endpoint.+--+-- * 'esEndpointARN' - The Amazon Resource Name (ARN) of the endpoint.+--+-- * 'esCreationTime' - A timestamp that shows when the endpoint was created.+--+-- * 'esLastModifiedTime' - A timestamp that shows when the endpoint was last modified.+--+-- * 'esEndpointStatus' - The status of the endpoint.+endpointSummary+    :: Text -- ^ 'esEndpointName'+    -> Text -- ^ 'esEndpointARN'+    -> UTCTime -- ^ 'esCreationTime'+    -> UTCTime -- ^ 'esLastModifiedTime'+    -> EndpointStatus -- ^ 'esEndpointStatus'+    -> EndpointSummary+endpointSummary pEndpointName_ pEndpointARN_ pCreationTime_ pLastModifiedTime_ pEndpointStatus_ =+  EndpointSummary'+    { _esEndpointName = pEndpointName_+    , _esEndpointARN = pEndpointARN_+    , _esCreationTime = _Time # pCreationTime_+    , _esLastModifiedTime = _Time # pLastModifiedTime_+    , _esEndpointStatus = pEndpointStatus_+    }+++-- | The name of the endpoint.+esEndpointName :: Lens' EndpointSummary Text+esEndpointName = lens _esEndpointName (\ s a -> s{_esEndpointName = a})++-- | The Amazon Resource Name (ARN) of the endpoint.+esEndpointARN :: Lens' EndpointSummary Text+esEndpointARN = lens _esEndpointARN (\ s a -> s{_esEndpointARN = a})++-- | A timestamp that shows when the endpoint was created.+esCreationTime :: Lens' EndpointSummary UTCTime+esCreationTime = lens _esCreationTime (\ s a -> s{_esCreationTime = a}) . _Time++-- | A timestamp that shows when the endpoint was last modified.+esLastModifiedTime :: Lens' EndpointSummary UTCTime+esLastModifiedTime = lens _esLastModifiedTime (\ s a -> s{_esLastModifiedTime = a}) . _Time++-- | The status of the endpoint.+esEndpointStatus :: Lens' EndpointSummary EndpointStatus+esEndpointStatus = lens _esEndpointStatus (\ s a -> s{_esEndpointStatus = a})++instance FromJSON EndpointSummary where+        parseJSON+          = withObject "EndpointSummary"+              (\ x ->+                 EndpointSummary' <$>+                   (x .: "EndpointName") <*> (x .: "EndpointArn") <*>+                     (x .: "CreationTime")+                     <*> (x .: "LastModifiedTime")+                     <*> (x .: "EndpointStatus"))++instance Hashable EndpointSummary where++instance NFData EndpointSummary where++-- | Provides information about the location that is configured for storing model artifacts.+--+--+--+-- /See:/ 'modelArtifacts' smart constructor.+newtype ModelArtifacts = ModelArtifacts'+  { _maS3ModelArtifacts :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModelArtifacts' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'maS3ModelArtifacts' - The path of the S3 object that contains the model artifacts. For example, @s3://bucket-name/keynameprefix/model.tar.gz@ .+modelArtifacts+    :: Text -- ^ 'maS3ModelArtifacts'+    -> ModelArtifacts+modelArtifacts pS3ModelArtifacts_ =+  ModelArtifacts' {_maS3ModelArtifacts = pS3ModelArtifacts_}+++-- | The path of the S3 object that contains the model artifacts. For example, @s3://bucket-name/keynameprefix/model.tar.gz@ .+maS3ModelArtifacts :: Lens' ModelArtifacts Text+maS3ModelArtifacts = lens _maS3ModelArtifacts (\ s a -> s{_maS3ModelArtifacts = a})++instance FromJSON ModelArtifacts where+        parseJSON+          = withObject "ModelArtifacts"+              (\ x ->+                 ModelArtifacts' <$> (x .: "S3ModelArtifacts"))++instance Hashable ModelArtifacts where++instance NFData ModelArtifacts where++-- | Provides summary information about a model.+--+--+--+-- /See:/ 'modelSummary' smart constructor.+data ModelSummary = ModelSummary'+  { _msModelName    :: !Text+  , _msModelARN     :: !Text+  , _msCreationTime :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModelSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'msModelName' - The name of the model that you want a summary for.+--+-- * 'msModelARN' - The Amazon Resource Name (ARN) of the model.+--+-- * 'msCreationTime' - A timestamp that indicates when the model was created.+modelSummary+    :: Text -- ^ 'msModelName'+    -> Text -- ^ 'msModelARN'+    -> UTCTime -- ^ 'msCreationTime'+    -> ModelSummary+modelSummary pModelName_ pModelARN_ pCreationTime_ =+  ModelSummary'+    { _msModelName = pModelName_+    , _msModelARN = pModelARN_+    , _msCreationTime = _Time # pCreationTime_+    }+++-- | The name of the model that you want a summary for.+msModelName :: Lens' ModelSummary Text+msModelName = lens _msModelName (\ s a -> s{_msModelName = a})++-- | The Amazon Resource Name (ARN) of the model.+msModelARN :: Lens' ModelSummary Text+msModelARN = lens _msModelARN (\ s a -> s{_msModelARN = a})++-- | A timestamp that indicates when the model was created.+msCreationTime :: Lens' ModelSummary UTCTime+msCreationTime = lens _msCreationTime (\ s a -> s{_msCreationTime = a}) . _Time++instance FromJSON ModelSummary where+        parseJSON+          = withObject "ModelSummary"+              (\ x ->+                 ModelSummary' <$>+                   (x .: "ModelName") <*> (x .: "ModelArn") <*>+                     (x .: "CreationTime"))++instance Hashable ModelSummary where++instance NFData ModelSummary where++-- | Provides a summary of a notebook instance lifecycle configuration.+--+--+--+-- /See:/ 'notebookInstanceLifecycleConfigSummary' smart constructor.+data NotebookInstanceLifecycleConfigSummary = NotebookInstanceLifecycleConfigSummary'+  { _nilcsCreationTime                        :: !(Maybe POSIX)+  , _nilcsLastModifiedTime                    :: !(Maybe POSIX)+  , _nilcsNotebookInstanceLifecycleConfigName :: !Text+  , _nilcsNotebookInstanceLifecycleConfigARN  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NotebookInstanceLifecycleConfigSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nilcsCreationTime' - A timestamp that tells when the lifecycle configuration was created.+--+-- * 'nilcsLastModifiedTime' - A timestamp that tells when the lifecycle configuration was last modified.+--+-- * 'nilcsNotebookInstanceLifecycleConfigName' - The name of the lifecycle configuration.+--+-- * 'nilcsNotebookInstanceLifecycleConfigARN' - The Amazon Resource Name (ARN) of the lifecycle configuration.+notebookInstanceLifecycleConfigSummary+    :: Text -- ^ 'nilcsNotebookInstanceLifecycleConfigName'+    -> Text -- ^ 'nilcsNotebookInstanceLifecycleConfigARN'+    -> NotebookInstanceLifecycleConfigSummary+notebookInstanceLifecycleConfigSummary pNotebookInstanceLifecycleConfigName_ pNotebookInstanceLifecycleConfigARN_ =+  NotebookInstanceLifecycleConfigSummary'+    { _nilcsCreationTime = Nothing+    , _nilcsLastModifiedTime = Nothing+    , _nilcsNotebookInstanceLifecycleConfigName =+        pNotebookInstanceLifecycleConfigName_+    , _nilcsNotebookInstanceLifecycleConfigARN =+        pNotebookInstanceLifecycleConfigARN_+    }+++-- | A timestamp that tells when the lifecycle configuration was created.+nilcsCreationTime :: Lens' NotebookInstanceLifecycleConfigSummary (Maybe UTCTime)+nilcsCreationTime = lens _nilcsCreationTime (\ s a -> s{_nilcsCreationTime = a}) . mapping _Time++-- | A timestamp that tells when the lifecycle configuration was last modified.+nilcsLastModifiedTime :: Lens' NotebookInstanceLifecycleConfigSummary (Maybe UTCTime)+nilcsLastModifiedTime = lens _nilcsLastModifiedTime (\ s a -> s{_nilcsLastModifiedTime = a}) . mapping _Time++-- | The name of the lifecycle configuration.+nilcsNotebookInstanceLifecycleConfigName :: Lens' NotebookInstanceLifecycleConfigSummary Text+nilcsNotebookInstanceLifecycleConfigName = lens _nilcsNotebookInstanceLifecycleConfigName (\ s a -> s{_nilcsNotebookInstanceLifecycleConfigName = a})++-- | The Amazon Resource Name (ARN) of the lifecycle configuration.+nilcsNotebookInstanceLifecycleConfigARN :: Lens' NotebookInstanceLifecycleConfigSummary Text+nilcsNotebookInstanceLifecycleConfigARN = lens _nilcsNotebookInstanceLifecycleConfigARN (\ s a -> s{_nilcsNotebookInstanceLifecycleConfigARN = a})++instance FromJSON+           NotebookInstanceLifecycleConfigSummary+         where+        parseJSON+          = withObject "NotebookInstanceLifecycleConfigSummary"+              (\ x ->+                 NotebookInstanceLifecycleConfigSummary' <$>+                   (x .:? "CreationTime") <*> (x .:? "LastModifiedTime")+                     <*> (x .: "NotebookInstanceLifecycleConfigName")+                     <*> (x .: "NotebookInstanceLifecycleConfigArn"))++instance Hashable+           NotebookInstanceLifecycleConfigSummary+         where++instance NFData+           NotebookInstanceLifecycleConfigSummary+         where++-- | Contains the notebook instance lifecycle configuration script.+--+--+-- Each lifecycle configuration script has a limit of 16384 characters.+--+-- The value of the @> PATH@ environment variable that is available to both scripts is @/sbin:bin:/usr/sbin:/usr/bin@ .+--+-- View CloudWatch Logs for notebook instance lifecycle configurations in log group @/aws/sagemaker/NotebookInstances@ in log stream @[notebook-instance-name]/[LifecycleConfigHook]@ .+--+-- Lifecycle configuration scripts cannot run for longer than 5 minutes. If a script runs for longer than 5 minutes, it fails and the notebook instance is not created or started.+--+-- For information about notebook instance lifestyle configurations, see 'notebook-lifecycle-config' .+--+--+-- /See:/ 'notebookInstanceLifecycleHook' smart constructor.+newtype NotebookInstanceLifecycleHook = NotebookInstanceLifecycleHook'+  { _nilhContent :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NotebookInstanceLifecycleHook' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nilhContent' - A base64-encoded string that contains a shell script for a notebook instance lifecycle configuration.+notebookInstanceLifecycleHook+    :: NotebookInstanceLifecycleHook+notebookInstanceLifecycleHook =+  NotebookInstanceLifecycleHook' {_nilhContent = Nothing}+++-- | A base64-encoded string that contains a shell script for a notebook instance lifecycle configuration.+nilhContent :: Lens' NotebookInstanceLifecycleHook (Maybe Text)+nilhContent = lens _nilhContent (\ s a -> s{_nilhContent = a})++instance FromJSON NotebookInstanceLifecycleHook where+        parseJSON+          = withObject "NotebookInstanceLifecycleHook"+              (\ x ->+                 NotebookInstanceLifecycleHook' <$> (x .:? "Content"))++instance Hashable NotebookInstanceLifecycleHook where++instance NFData NotebookInstanceLifecycleHook where++instance ToJSON NotebookInstanceLifecycleHook where+        toJSON NotebookInstanceLifecycleHook'{..}+          = object+              (catMaybes [("Content" .=) <$> _nilhContent])++-- | Provides summary information for an Amazon SageMaker notebook instance.+--+--+--+-- /See:/ 'notebookInstanceSummary' smart constructor.+data NotebookInstanceSummary = NotebookInstanceSummary'+  { _nisCreationTime                        :: !(Maybe POSIX)+  , _nisURL                                 :: !(Maybe Text)+  , _nisLastModifiedTime                    :: !(Maybe POSIX)+  , _nisInstanceType                        :: !(Maybe InstanceType)+  , _nisNotebookInstanceStatus              :: !(Maybe NotebookInstanceStatus)+  , _nisNotebookInstanceLifecycleConfigName :: !(Maybe Text)+  , _nisNotebookInstanceName                :: !Text+  , _nisNotebookInstanceARN                 :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NotebookInstanceSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nisCreationTime' - A timestamp that shows when the notebook instance was created.+--+-- * 'nisURL' - The URL that you use to connect to the Jupyter instance running in your notebook instance.+--+-- * 'nisLastModifiedTime' - A timestamp that shows when the notebook instance was last modified.+--+-- * 'nisInstanceType' - The type of ML compute instance that the notebook instance is running on.+--+-- * 'nisNotebookInstanceStatus' - The status of the notebook instance.+--+-- * 'nisNotebookInstanceLifecycleConfigName' - The name of a notebook instance lifecycle configuration associated with this notebook instance. For information about notebook instance lifestyle configurations, see 'notebook-lifecycle-config' .+--+-- * 'nisNotebookInstanceName' - The name of the notebook instance that you want a summary for.+--+-- * 'nisNotebookInstanceARN' - The Amazon Resource Name (ARN) of the notebook instance.+notebookInstanceSummary+    :: Text -- ^ 'nisNotebookInstanceName'+    -> Text -- ^ 'nisNotebookInstanceARN'+    -> NotebookInstanceSummary+notebookInstanceSummary pNotebookInstanceName_ pNotebookInstanceARN_ =+  NotebookInstanceSummary'+    { _nisCreationTime = Nothing+    , _nisURL = Nothing+    , _nisLastModifiedTime = Nothing+    , _nisInstanceType = Nothing+    , _nisNotebookInstanceStatus = Nothing+    , _nisNotebookInstanceLifecycleConfigName = Nothing+    , _nisNotebookInstanceName = pNotebookInstanceName_+    , _nisNotebookInstanceARN = pNotebookInstanceARN_+    }+++-- | A timestamp that shows when the notebook instance was created.+nisCreationTime :: Lens' NotebookInstanceSummary (Maybe UTCTime)+nisCreationTime = lens _nisCreationTime (\ s a -> s{_nisCreationTime = a}) . mapping _Time++-- | The URL that you use to connect to the Jupyter instance running in your notebook instance.+nisURL :: Lens' NotebookInstanceSummary (Maybe Text)+nisURL = lens _nisURL (\ s a -> s{_nisURL = a})++-- | A timestamp that shows when the notebook instance was last modified.+nisLastModifiedTime :: Lens' NotebookInstanceSummary (Maybe UTCTime)+nisLastModifiedTime = lens _nisLastModifiedTime (\ s a -> s{_nisLastModifiedTime = a}) . mapping _Time++-- | The type of ML compute instance that the notebook instance is running on.+nisInstanceType :: Lens' NotebookInstanceSummary (Maybe InstanceType)+nisInstanceType = lens _nisInstanceType (\ s a -> s{_nisInstanceType = a})++-- | The status of the notebook instance.+nisNotebookInstanceStatus :: Lens' NotebookInstanceSummary (Maybe NotebookInstanceStatus)+nisNotebookInstanceStatus = lens _nisNotebookInstanceStatus (\ s a -> s{_nisNotebookInstanceStatus = a})++-- | The name of a notebook instance lifecycle configuration associated with this notebook instance. For information about notebook instance lifestyle configurations, see 'notebook-lifecycle-config' .+nisNotebookInstanceLifecycleConfigName :: Lens' NotebookInstanceSummary (Maybe Text)+nisNotebookInstanceLifecycleConfigName = lens _nisNotebookInstanceLifecycleConfigName (\ s a -> s{_nisNotebookInstanceLifecycleConfigName = a})++-- | The name of the notebook instance that you want a summary for.+nisNotebookInstanceName :: Lens' NotebookInstanceSummary Text+nisNotebookInstanceName = lens _nisNotebookInstanceName (\ s a -> s{_nisNotebookInstanceName = a})++-- | The Amazon Resource Name (ARN) of the notebook instance.+nisNotebookInstanceARN :: Lens' NotebookInstanceSummary Text+nisNotebookInstanceARN = lens _nisNotebookInstanceARN (\ s a -> s{_nisNotebookInstanceARN = a})++instance FromJSON NotebookInstanceSummary where+        parseJSON+          = withObject "NotebookInstanceSummary"+              (\ x ->+                 NotebookInstanceSummary' <$>+                   (x .:? "CreationTime") <*> (x .:? "Url") <*>+                     (x .:? "LastModifiedTime")+                     <*> (x .:? "InstanceType")+                     <*> (x .:? "NotebookInstanceStatus")+                     <*> (x .:? "NotebookInstanceLifecycleConfigName")+                     <*> (x .: "NotebookInstanceName")+                     <*> (x .: "NotebookInstanceArn"))++instance Hashable NotebookInstanceSummary where++instance NFData NotebookInstanceSummary where++-- | Provides information about how to store model training results (model artifacts).+--+--+--+-- /See:/ 'outputDataConfig' smart constructor.+data OutputDataConfig = OutputDataConfig'+  { _odcKMSKeyId     :: !(Maybe Text)+  , _odcS3OutputPath :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OutputDataConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'odcKMSKeyId' - The AWS Key Management Service (AWS KMS) key that Amazon SageMaker uses to encrypt the model artifacts at rest using Amazon S3 server-side encryption.+--+-- * 'odcS3OutputPath' - Identifies the S3 path where you want Amazon SageMaker to store the model artifacts. For example, @s3://bucket-name/key-name-prefix@ .+outputDataConfig+    :: Text -- ^ 'odcS3OutputPath'+    -> OutputDataConfig+outputDataConfig pS3OutputPath_ =+  OutputDataConfig' {_odcKMSKeyId = Nothing, _odcS3OutputPath = pS3OutputPath_}+++-- | The AWS Key Management Service (AWS KMS) key that Amazon SageMaker uses to encrypt the model artifacts at rest using Amazon S3 server-side encryption.+odcKMSKeyId :: Lens' OutputDataConfig (Maybe Text)+odcKMSKeyId = lens _odcKMSKeyId (\ s a -> s{_odcKMSKeyId = a})++-- | Identifies the S3 path where you want Amazon SageMaker to store the model artifacts. For example, @s3://bucket-name/key-name-prefix@ .+odcS3OutputPath :: Lens' OutputDataConfig Text+odcS3OutputPath = lens _odcS3OutputPath (\ s a -> s{_odcS3OutputPath = a})++instance FromJSON OutputDataConfig where+        parseJSON+          = withObject "OutputDataConfig"+              (\ x ->+                 OutputDataConfig' <$>+                   (x .:? "KmsKeyId") <*> (x .: "S3OutputPath"))++instance Hashable OutputDataConfig where++instance NFData OutputDataConfig where++instance ToJSON OutputDataConfig where+        toJSON OutputDataConfig'{..}+          = object+              (catMaybes+                 [("KmsKeyId" .=) <$> _odcKMSKeyId,+                  Just ("S3OutputPath" .= _odcS3OutputPath)])++-- | Identifies a model that you want to host and the resources to deploy for hosting it. If you are deploying multiple models, tell Amazon SageMaker how to distribute traffic among the models by specifying variant weights.+--+--+--+-- /See:/ 'productionVariant' smart constructor.+data ProductionVariant = ProductionVariant'+  { _pvInitialVariantWeight :: !(Maybe Double)+  , _pvVariantName          :: !Text+  , _pvModelName            :: !Text+  , _pvInitialInstanceCount :: !Nat+  , _pvInstanceType         :: !ProductionVariantInstanceType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ProductionVariant' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pvInitialVariantWeight' - Determines initial traffic distribution among all of the models that you specify in the endpoint configuration. The traffic to a production variant is determined by the ratio of the @VariantWeight@ to the sum of all @VariantWeight@ values across all ProductionVariants. If unspecified, it defaults to 1.0.+--+-- * 'pvVariantName' - The name of the production variant.+--+-- * 'pvModelName' - The name of the model that you want to host. This is the name that you specified when creating the model.+--+-- * 'pvInitialInstanceCount' - Number of instances to launch initially.+--+-- * 'pvInstanceType' - The ML compute instance type.+productionVariant+    :: Text -- ^ 'pvVariantName'+    -> Text -- ^ 'pvModelName'+    -> Natural -- ^ 'pvInitialInstanceCount'+    -> ProductionVariantInstanceType -- ^ 'pvInstanceType'+    -> ProductionVariant+productionVariant pVariantName_ pModelName_ pInitialInstanceCount_ pInstanceType_ =+  ProductionVariant'+    { _pvInitialVariantWeight = Nothing+    , _pvVariantName = pVariantName_+    , _pvModelName = pModelName_+    , _pvInitialInstanceCount = _Nat # pInitialInstanceCount_+    , _pvInstanceType = pInstanceType_+    }+++-- | Determines initial traffic distribution among all of the models that you specify in the endpoint configuration. The traffic to a production variant is determined by the ratio of the @VariantWeight@ to the sum of all @VariantWeight@ values across all ProductionVariants. If unspecified, it defaults to 1.0.+pvInitialVariantWeight :: Lens' ProductionVariant (Maybe Double)+pvInitialVariantWeight = lens _pvInitialVariantWeight (\ s a -> s{_pvInitialVariantWeight = a})++-- | The name of the production variant.+pvVariantName :: Lens' ProductionVariant Text+pvVariantName = lens _pvVariantName (\ s a -> s{_pvVariantName = a})++-- | The name of the model that you want to host. This is the name that you specified when creating the model.+pvModelName :: Lens' ProductionVariant Text+pvModelName = lens _pvModelName (\ s a -> s{_pvModelName = a})++-- | Number of instances to launch initially.+pvInitialInstanceCount :: Lens' ProductionVariant Natural+pvInitialInstanceCount = lens _pvInitialInstanceCount (\ s a -> s{_pvInitialInstanceCount = a}) . _Nat++-- | The ML compute instance type.+pvInstanceType :: Lens' ProductionVariant ProductionVariantInstanceType+pvInstanceType = lens _pvInstanceType (\ s a -> s{_pvInstanceType = a})++instance FromJSON ProductionVariant where+        parseJSON+          = withObject "ProductionVariant"+              (\ x ->+                 ProductionVariant' <$>+                   (x .:? "InitialVariantWeight") <*>+                     (x .: "VariantName")+                     <*> (x .: "ModelName")+                     <*> (x .: "InitialInstanceCount")+                     <*> (x .: "InstanceType"))++instance Hashable ProductionVariant where++instance NFData ProductionVariant where++instance ToJSON ProductionVariant where+        toJSON ProductionVariant'{..}+          = object+              (catMaybes+                 [("InitialVariantWeight" .=) <$>+                    _pvInitialVariantWeight,+                  Just ("VariantName" .= _pvVariantName),+                  Just ("ModelName" .= _pvModelName),+                  Just+                    ("InitialInstanceCount" .= _pvInitialInstanceCount),+                  Just ("InstanceType" .= _pvInstanceType)])++-- | Describes weight and capacities for a production variant associated with an endpoint. If you sent a request to the @UpdateEndpointWeightsAndCapacities@ API and the endpoint status is @Updating@ , you get different desired and current values.+--+--+--+-- /See:/ 'productionVariantSummary' smart constructor.+data ProductionVariantSummary = ProductionVariantSummary'+  { _pvsDesiredInstanceCount :: !(Maybe Nat)+  , _pvsDesiredWeight        :: !(Maybe Double)+  , _pvsCurrentWeight        :: !(Maybe Double)+  , _pvsCurrentInstanceCount :: !(Maybe Nat)+  , _pvsVariantName          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ProductionVariantSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pvsDesiredInstanceCount' - The number of instances requested in the @UpdateEndpointWeightsAndCapacities@ request.+--+-- * 'pvsDesiredWeight' - The requested weight, as specified in the @UpdateEndpointWeightsAndCapacities@ request.+--+-- * 'pvsCurrentWeight' - The weight associated with the variant.+--+-- * 'pvsCurrentInstanceCount' - The number of instances associated with the variant.+--+-- * 'pvsVariantName' - The name of the variant.+productionVariantSummary+    :: Text -- ^ 'pvsVariantName'+    -> ProductionVariantSummary+productionVariantSummary pVariantName_ =+  ProductionVariantSummary'+    { _pvsDesiredInstanceCount = Nothing+    , _pvsDesiredWeight = Nothing+    , _pvsCurrentWeight = Nothing+    , _pvsCurrentInstanceCount = Nothing+    , _pvsVariantName = pVariantName_+    }+++-- | The number of instances requested in the @UpdateEndpointWeightsAndCapacities@ request.+pvsDesiredInstanceCount :: Lens' ProductionVariantSummary (Maybe Natural)+pvsDesiredInstanceCount = lens _pvsDesiredInstanceCount (\ s a -> s{_pvsDesiredInstanceCount = a}) . mapping _Nat++-- | The requested weight, as specified in the @UpdateEndpointWeightsAndCapacities@ request.+pvsDesiredWeight :: Lens' ProductionVariantSummary (Maybe Double)+pvsDesiredWeight = lens _pvsDesiredWeight (\ s a -> s{_pvsDesiredWeight = a})++-- | The weight associated with the variant.+pvsCurrentWeight :: Lens' ProductionVariantSummary (Maybe Double)+pvsCurrentWeight = lens _pvsCurrentWeight (\ s a -> s{_pvsCurrentWeight = a})++-- | The number of instances associated with the variant.+pvsCurrentInstanceCount :: Lens' ProductionVariantSummary (Maybe Natural)+pvsCurrentInstanceCount = lens _pvsCurrentInstanceCount (\ s a -> s{_pvsCurrentInstanceCount = a}) . mapping _Nat++-- | The name of the variant.+pvsVariantName :: Lens' ProductionVariantSummary Text+pvsVariantName = lens _pvsVariantName (\ s a -> s{_pvsVariantName = a})++instance FromJSON ProductionVariantSummary where+        parseJSON+          = withObject "ProductionVariantSummary"+              (\ x ->+                 ProductionVariantSummary' <$>+                   (x .:? "DesiredInstanceCount") <*>+                     (x .:? "DesiredWeight")+                     <*> (x .:? "CurrentWeight")+                     <*> (x .:? "CurrentInstanceCount")+                     <*> (x .: "VariantName"))++instance Hashable ProductionVariantSummary where++instance NFData ProductionVariantSummary where++-- | Describes the resources, including ML compute instances and ML storage volumes, to use for model training.+--+--+--+-- /See:/ 'resourceConfig' smart constructor.+data ResourceConfig = ResourceConfig'+  { _rcVolumeKMSKeyId :: !(Maybe Text)+  , _rcInstanceType   :: !TrainingInstanceType+  , _rcInstanceCount  :: !Nat+  , _rcVolumeSizeInGB :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourceConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcVolumeKMSKeyId' - The Amazon Resource Name (ARN) of a AWS Key Management Service key that Amazon SageMaker uses to encrypt data on the storage volume attached to the ML compute instance(s) that run the training job.+--+-- * 'rcInstanceType' - The ML compute instance type.+--+-- * 'rcInstanceCount' - The number of ML compute instances to use. For distributed training, provide a value greater than 1.+--+-- * 'rcVolumeSizeInGB' - The size of the ML storage volume that you want to provision.  ML storage volumes store model artifacts and incremental states. Training algorithms might also use the ML storage volume for scratch space. If you want to store the training data in the ML storage volume, choose @File@ as the @TrainingInputMode@ in the algorithm specification.  You must specify sufficient ML storage for your scenario.+resourceConfig+    :: TrainingInstanceType -- ^ 'rcInstanceType'+    -> Natural -- ^ 'rcInstanceCount'+    -> Natural -- ^ 'rcVolumeSizeInGB'+    -> ResourceConfig+resourceConfig pInstanceType_ pInstanceCount_ pVolumeSizeInGB_ =+  ResourceConfig'+    { _rcVolumeKMSKeyId = Nothing+    , _rcInstanceType = pInstanceType_+    , _rcInstanceCount = _Nat # pInstanceCount_+    , _rcVolumeSizeInGB = _Nat # pVolumeSizeInGB_+    }+++-- | The Amazon Resource Name (ARN) of a AWS Key Management Service key that Amazon SageMaker uses to encrypt data on the storage volume attached to the ML compute instance(s) that run the training job.+rcVolumeKMSKeyId :: Lens' ResourceConfig (Maybe Text)+rcVolumeKMSKeyId = lens _rcVolumeKMSKeyId (\ s a -> s{_rcVolumeKMSKeyId = a})++-- | The ML compute instance type.+rcInstanceType :: Lens' ResourceConfig TrainingInstanceType+rcInstanceType = lens _rcInstanceType (\ s a -> s{_rcInstanceType = a})++-- | The number of ML compute instances to use. For distributed training, provide a value greater than 1.+rcInstanceCount :: Lens' ResourceConfig Natural+rcInstanceCount = lens _rcInstanceCount (\ s a -> s{_rcInstanceCount = a}) . _Nat++-- | The size of the ML storage volume that you want to provision.  ML storage volumes store model artifacts and incremental states. Training algorithms might also use the ML storage volume for scratch space. If you want to store the training data in the ML storage volume, choose @File@ as the @TrainingInputMode@ in the algorithm specification.  You must specify sufficient ML storage for your scenario.+rcVolumeSizeInGB :: Lens' ResourceConfig Natural+rcVolumeSizeInGB = lens _rcVolumeSizeInGB (\ s a -> s{_rcVolumeSizeInGB = a}) . _Nat++instance FromJSON ResourceConfig where+        parseJSON+          = withObject "ResourceConfig"+              (\ x ->+                 ResourceConfig' <$>+                   (x .:? "VolumeKmsKeyId") <*> (x .: "InstanceType")+                     <*> (x .: "InstanceCount")+                     <*> (x .: "VolumeSizeInGB"))++instance Hashable ResourceConfig where++instance NFData ResourceConfig where++instance ToJSON ResourceConfig where+        toJSON ResourceConfig'{..}+          = object+              (catMaybes+                 [("VolumeKmsKeyId" .=) <$> _rcVolumeKMSKeyId,+                  Just ("InstanceType" .= _rcInstanceType),+                  Just ("InstanceCount" .= _rcInstanceCount),+                  Just ("VolumeSizeInGB" .= _rcVolumeSizeInGB)])++-- | Describes the S3 data source.+--+--+--+-- /See:/ 's3DataSource' smart constructor.+data S3DataSource = S3DataSource'+  { _sdsS3DataDistributionType :: !(Maybe S3DataDistribution)+  , _sdsS3DataType             :: !S3DataType+  , _sdsS3URI                  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'S3DataSource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sdsS3DataDistributionType' - If you want Amazon SageMaker to replicate the entire dataset on each ML compute instance that is launched for model training, specify @FullyReplicated@ .  If you want Amazon SageMaker to replicate a subset of data on each ML compute instance that is launched for model training, specify @ShardedByS3Key@ . If there are /n/ ML compute instances launched for a training job, each instance gets approximately 1//n/ of the number of S3 objects. In this case, model training on each machine uses only the subset of training data.  Don't choose more ML compute instances for training than available S3 objects. If you do, some nodes won't get any data and you will pay for nodes that aren't getting any training data. This applies in both FILE and PIPE modes. Keep this in mind when developing algorithms.  In distributed training, where you use multiple ML compute EC2 instances, you might choose @ShardedByS3Key@ . If the algorithm requires copying training data to the ML storage volume (when @TrainingInputMode@ is set to @File@ ), this copies 1//n/ of the number of objects.+--+-- * 'sdsS3DataType' - If you choose @S3Prefix@ , @S3Uri@ identifies a key name prefix. Amazon SageMaker uses all objects with the specified key name prefix for model training.  If you choose @ManifestFile@ , @S3Uri@ identifies an object that is a manifest file containing a list of object keys that you want Amazon SageMaker to use for model training.+--+-- * 'sdsS3URI' - Depending on the value specified for the @S3DataType@ , identifies either a key name prefix or a manifest. For example:      * A key name prefix might look like this: @s3://bucketname/exampleprefix@ .      * A manifest might look like this: @s3://bucketname/example.manifest@  The manifest is an S3 object which is a JSON file with the following format:  @[@  @{"prefix": "s3://customer_bucket/some/prefix/"},@  @"relative/path/to/custdata-1",@  @"relative/path/custdata-2",@  @...@  @]@  The preceding JSON matches the following @s3Uris@ :  @s3://customer_bucket/some/prefix/relative/path/to/custdata-1@  @s3://customer_bucket/some/prefix/relative/path/custdata-1@  @...@  The complete set of @s3uris@ in this manifest constitutes the input data for the channel for this datasource. The object that each @s3uris@ points to must readable by the IAM role that Amazon SageMaker uses to perform tasks on your behalf.+s3DataSource+    :: S3DataType -- ^ 'sdsS3DataType'+    -> Text -- ^ 'sdsS3URI'+    -> S3DataSource+s3DataSource pS3DataType_ pS3URI_ =+  S3DataSource'+    { _sdsS3DataDistributionType = Nothing+    , _sdsS3DataType = pS3DataType_+    , _sdsS3URI = pS3URI_+    }+++-- | If you want Amazon SageMaker to replicate the entire dataset on each ML compute instance that is launched for model training, specify @FullyReplicated@ .  If you want Amazon SageMaker to replicate a subset of data on each ML compute instance that is launched for model training, specify @ShardedByS3Key@ . If there are /n/ ML compute instances launched for a training job, each instance gets approximately 1//n/ of the number of S3 objects. In this case, model training on each machine uses only the subset of training data.  Don't choose more ML compute instances for training than available S3 objects. If you do, some nodes won't get any data and you will pay for nodes that aren't getting any training data. This applies in both FILE and PIPE modes. Keep this in mind when developing algorithms.  In distributed training, where you use multiple ML compute EC2 instances, you might choose @ShardedByS3Key@ . If the algorithm requires copying training data to the ML storage volume (when @TrainingInputMode@ is set to @File@ ), this copies 1//n/ of the number of objects.+sdsS3DataDistributionType :: Lens' S3DataSource (Maybe S3DataDistribution)+sdsS3DataDistributionType = lens _sdsS3DataDistributionType (\ s a -> s{_sdsS3DataDistributionType = a})++-- | If you choose @S3Prefix@ , @S3Uri@ identifies a key name prefix. Amazon SageMaker uses all objects with the specified key name prefix for model training.  If you choose @ManifestFile@ , @S3Uri@ identifies an object that is a manifest file containing a list of object keys that you want Amazon SageMaker to use for model training.+sdsS3DataType :: Lens' S3DataSource S3DataType+sdsS3DataType = lens _sdsS3DataType (\ s a -> s{_sdsS3DataType = a})++-- | Depending on the value specified for the @S3DataType@ , identifies either a key name prefix or a manifest. For example:      * A key name prefix might look like this: @s3://bucketname/exampleprefix@ .      * A manifest might look like this: @s3://bucketname/example.manifest@  The manifest is an S3 object which is a JSON file with the following format:  @[@  @{"prefix": "s3://customer_bucket/some/prefix/"},@  @"relative/path/to/custdata-1",@  @"relative/path/custdata-2",@  @...@  @]@  The preceding JSON matches the following @s3Uris@ :  @s3://customer_bucket/some/prefix/relative/path/to/custdata-1@  @s3://customer_bucket/some/prefix/relative/path/custdata-1@  @...@  The complete set of @s3uris@ in this manifest constitutes the input data for the channel for this datasource. The object that each @s3uris@ points to must readable by the IAM role that Amazon SageMaker uses to perform tasks on your behalf.+sdsS3URI :: Lens' S3DataSource Text+sdsS3URI = lens _sdsS3URI (\ s a -> s{_sdsS3URI = a})++instance FromJSON S3DataSource where+        parseJSON+          = withObject "S3DataSource"+              (\ x ->+                 S3DataSource' <$>+                   (x .:? "S3DataDistributionType") <*>+                     (x .: "S3DataType")+                     <*> (x .: "S3Uri"))++instance Hashable S3DataSource where++instance NFData S3DataSource where++instance ToJSON S3DataSource where+        toJSON S3DataSource'{..}+          = object+              (catMaybes+                 [("S3DataDistributionType" .=) <$>+                    _sdsS3DataDistributionType,+                  Just ("S3DataType" .= _sdsS3DataType),+                  Just ("S3Uri" .= _sdsS3URI)])++-- | Specifies how long model training can run. When model training reaches the limit, Amazon SageMaker ends the training job. Use this API to cap model training cost.+--+--+-- To stop a job, Amazon SageMaker sends the algorithm the @SIGTERM@ signal, which delays job termination for120 seconds. Algorithms might use this 120-second window to save the model artifacts, so the results of training is not lost.+--+-- Training algorithms provided by Amazon SageMaker automatically saves the intermediate results of a model training job (it is best effort case, as model might not be ready to save as some stages, for example training just started). This intermediate data is a valid model artifact. You can use it to create a model (@CreateModel@ ).+--+--+-- /See:/ 'stoppingCondition' smart constructor.+newtype StoppingCondition = StoppingCondition'+  { _scMaxRuntimeInSeconds :: Maybe Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StoppingCondition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scMaxRuntimeInSeconds' - The maximum length of time, in seconds, that the training job can run. If model training does not complete during this time, Amazon SageMaker ends the job. If value is not specified, default value is 1 day. Maximum value is 5 days.+stoppingCondition+    :: StoppingCondition+stoppingCondition = StoppingCondition' {_scMaxRuntimeInSeconds = Nothing}+++-- | The maximum length of time, in seconds, that the training job can run. If model training does not complete during this time, Amazon SageMaker ends the job. If value is not specified, default value is 1 day. Maximum value is 5 days.+scMaxRuntimeInSeconds :: Lens' StoppingCondition (Maybe Natural)+scMaxRuntimeInSeconds = lens _scMaxRuntimeInSeconds (\ s a -> s{_scMaxRuntimeInSeconds = a}) . mapping _Nat++instance FromJSON StoppingCondition where+        parseJSON+          = withObject "StoppingCondition"+              (\ x ->+                 StoppingCondition' <$> (x .:? "MaxRuntimeInSeconds"))++instance Hashable StoppingCondition where++instance NFData StoppingCondition where++instance ToJSON StoppingCondition where+        toJSON StoppingCondition'{..}+          = object+              (catMaybes+                 [("MaxRuntimeInSeconds" .=) <$>+                    _scMaxRuntimeInSeconds])++-- | Describes a tag.+--+--+--+-- /See:/ 'tag' smart constructor.+data Tag = Tag'+  { _tagKey   :: !Text+  , _tagValue :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Tag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tagKey' - The tag key.+--+-- * 'tagValue' - The tag value.+tag+    :: Text -- ^ 'tagKey'+    -> Text -- ^ 'tagValue'+    -> Tag+tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_}+++-- | The tag key.+tagKey :: Lens' Tag Text+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})++-- | The tag value.+tagValue :: Lens' Tag Text+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})++instance FromJSON Tag where+        parseJSON+          = withObject "Tag"+              (\ x -> Tag' <$> (x .: "Key") <*> (x .: "Value"))++instance Hashable Tag where++instance NFData Tag where++instance ToJSON Tag where+        toJSON Tag'{..}+          = object+              (catMaybes+                 [Just ("Key" .= _tagKey),+                  Just ("Value" .= _tagValue)])++-- | Provides summary information about a training job.+--+--+--+-- /See:/ 'trainingJobSummary' smart constructor.+data TrainingJobSummary = TrainingJobSummary'+  { _tjsTrainingEndTime   :: !(Maybe POSIX)+  , _tjsLastModifiedTime  :: !(Maybe POSIX)+  , _tjsTrainingJobName   :: !Text+  , _tjsTrainingJobARN    :: !Text+  , _tjsCreationTime      :: !POSIX+  , _tjsTrainingJobStatus :: !TrainingJobStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TrainingJobSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tjsTrainingEndTime' - A timestamp that shows when the training job ended. This field is set only if the training job has one of the terminal statuses (@Completed@ , @Failed@ , or @Stopped@ ).+--+-- * 'tjsLastModifiedTime' - Timestamp when the training job was last modified.+--+-- * 'tjsTrainingJobName' - The name of the training job that you want a summary for.+--+-- * 'tjsTrainingJobARN' - The Amazon Resource Name (ARN) of the training job.+--+-- * 'tjsCreationTime' - A timestamp that shows when the training job was created.+--+-- * 'tjsTrainingJobStatus' - The status of the training job.+trainingJobSummary+    :: Text -- ^ 'tjsTrainingJobName'+    -> Text -- ^ 'tjsTrainingJobARN'+    -> UTCTime -- ^ 'tjsCreationTime'+    -> TrainingJobStatus -- ^ 'tjsTrainingJobStatus'+    -> TrainingJobSummary+trainingJobSummary pTrainingJobName_ pTrainingJobARN_ pCreationTime_ pTrainingJobStatus_ =+  TrainingJobSummary'+    { _tjsTrainingEndTime = Nothing+    , _tjsLastModifiedTime = Nothing+    , _tjsTrainingJobName = pTrainingJobName_+    , _tjsTrainingJobARN = pTrainingJobARN_+    , _tjsCreationTime = _Time # pCreationTime_+    , _tjsTrainingJobStatus = pTrainingJobStatus_+    }+++-- | A timestamp that shows when the training job ended. This field is set only if the training job has one of the terminal statuses (@Completed@ , @Failed@ , or @Stopped@ ).+tjsTrainingEndTime :: Lens' TrainingJobSummary (Maybe UTCTime)+tjsTrainingEndTime = lens _tjsTrainingEndTime (\ s a -> s{_tjsTrainingEndTime = a}) . mapping _Time++-- | Timestamp when the training job was last modified.+tjsLastModifiedTime :: Lens' TrainingJobSummary (Maybe UTCTime)+tjsLastModifiedTime = lens _tjsLastModifiedTime (\ s a -> s{_tjsLastModifiedTime = a}) . mapping _Time++-- | The name of the training job that you want a summary for.+tjsTrainingJobName :: Lens' TrainingJobSummary Text+tjsTrainingJobName = lens _tjsTrainingJobName (\ s a -> s{_tjsTrainingJobName = a})++-- | The Amazon Resource Name (ARN) of the training job.+tjsTrainingJobARN :: Lens' TrainingJobSummary Text+tjsTrainingJobARN = lens _tjsTrainingJobARN (\ s a -> s{_tjsTrainingJobARN = a})++-- | A timestamp that shows when the training job was created.+tjsCreationTime :: Lens' TrainingJobSummary UTCTime+tjsCreationTime = lens _tjsCreationTime (\ s a -> s{_tjsCreationTime = a}) . _Time++-- | The status of the training job.+tjsTrainingJobStatus :: Lens' TrainingJobSummary TrainingJobStatus+tjsTrainingJobStatus = lens _tjsTrainingJobStatus (\ s a -> s{_tjsTrainingJobStatus = a})++instance FromJSON TrainingJobSummary where+        parseJSON+          = withObject "TrainingJobSummary"+              (\ x ->+                 TrainingJobSummary' <$>+                   (x .:? "TrainingEndTime") <*>+                     (x .:? "LastModifiedTime")+                     <*> (x .: "TrainingJobName")+                     <*> (x .: "TrainingJobArn")+                     <*> (x .: "CreationTime")+                     <*> (x .: "TrainingJobStatus"))++instance Hashable TrainingJobSummary where++instance NFData TrainingJobSummary where++-- | Specifies a VPC that your training jobs and hosted models have access to. Control access to and from your training and model containers by configuring the VPC. For more information, see 'host-vpc' and 'train-vpc' .+--+--+--+-- /See:/ 'vpcConfig' smart constructor.+data VPCConfig = VPCConfig'+  { _vcSecurityGroupIds :: !(List1 Text)+  , _vcSubnets          :: !(List1 Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VPCConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vcSecurityGroupIds' - The VPC security group IDs, in the form sg-xxxxxxxx. Specify the security groups for the VPC that is specified in the @Subnets@ field.+--+-- * 'vcSubnets' - The ID of the subnets in the VPC to which you want to connect your training job or model.+vpcConfig+    :: NonEmpty Text -- ^ 'vcSecurityGroupIds'+    -> NonEmpty Text -- ^ 'vcSubnets'+    -> VPCConfig+vpcConfig pSecurityGroupIds_ pSubnets_ =+  VPCConfig'+    { _vcSecurityGroupIds = _List1 # pSecurityGroupIds_+    , _vcSubnets = _List1 # pSubnets_+    }+++-- | The VPC security group IDs, in the form sg-xxxxxxxx. Specify the security groups for the VPC that is specified in the @Subnets@ field.+vcSecurityGroupIds :: Lens' VPCConfig (NonEmpty Text)+vcSecurityGroupIds = lens _vcSecurityGroupIds (\ s a -> s{_vcSecurityGroupIds = a}) . _List1++-- | The ID of the subnets in the VPC to which you want to connect your training job or model.+vcSubnets :: Lens' VPCConfig (NonEmpty Text)+vcSubnets = lens _vcSubnets (\ s a -> s{_vcSubnets = a}) . _List1++instance FromJSON VPCConfig where+        parseJSON+          = withObject "VPCConfig"+              (\ x ->+                 VPCConfig' <$>+                   (x .: "SecurityGroupIds") <*> (x .: "Subnets"))++instance Hashable VPCConfig where++instance NFData VPCConfig where++instance ToJSON VPCConfig where+        toJSON VPCConfig'{..}+          = object+              (catMaybes+                 [Just ("SecurityGroupIds" .= _vcSecurityGroupIds),+                  Just ("Subnets" .= _vcSubnets)])
+ gen/Network/AWS/SageMaker/Types/Sum.hs view
@@ -0,0 +1,947 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE LambdaCase         #-}+{-# LANGUAGE OverloadedStrings  #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SageMaker.Types.Sum+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.SageMaker.Types.Sum where++import Network.AWS.Prelude++data CompressionType+  = CTGzip+  | CTNone+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText CompressionType where+    parser = takeLowerText >>= \case+        "gzip" -> pure CTGzip+        "none" -> pure CTNone+        e -> fromTextError $ "Failure parsing CompressionType from value: '" <> e+           <> "'. Accepted values: gzip, none"++instance ToText CompressionType where+    toText = \case+        CTGzip -> "Gzip"+        CTNone -> "None"++instance Hashable     CompressionType+instance NFData       CompressionType+instance ToByteString CompressionType+instance ToQuery      CompressionType+instance ToHeader     CompressionType++instance ToJSON CompressionType where+    toJSON = toJSONText++instance FromJSON CompressionType where+    parseJSON = parseJSONText "CompressionType"++data DirectInternetAccess+  = Disabled+  | Enabled+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText DirectInternetAccess where+    parser = takeLowerText >>= \case+        "disabled" -> pure Disabled+        "enabled" -> pure Enabled+        e -> fromTextError $ "Failure parsing DirectInternetAccess from value: '" <> e+           <> "'. Accepted values: disabled, enabled"++instance ToText DirectInternetAccess where+    toText = \case+        Disabled -> "Disabled"+        Enabled -> "Enabled"++instance Hashable     DirectInternetAccess+instance NFData       DirectInternetAccess+instance ToByteString DirectInternetAccess+instance ToQuery      DirectInternetAccess+instance ToHeader     DirectInternetAccess++instance ToJSON DirectInternetAccess where+    toJSON = toJSONText++instance FromJSON DirectInternetAccess where+    parseJSON = parseJSONText "DirectInternetAccess"++data EndpointConfigSortKey+  = CreationTime+  | Name+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText EndpointConfigSortKey where+    parser = takeLowerText >>= \case+        "creationtime" -> pure CreationTime+        "name" -> pure Name+        e -> fromTextError $ "Failure parsing EndpointConfigSortKey from value: '" <> e+           <> "'. Accepted values: creationtime, name"++instance ToText EndpointConfigSortKey where+    toText = \case+        CreationTime -> "CreationTime"+        Name -> "Name"++instance Hashable     EndpointConfigSortKey+instance NFData       EndpointConfigSortKey+instance ToByteString EndpointConfigSortKey+instance ToQuery      EndpointConfigSortKey+instance ToHeader     EndpointConfigSortKey++instance ToJSON EndpointConfigSortKey where+    toJSON = toJSONText++data EndpointSortKey+  = ESKCreationTime+  | ESKName+  | ESKStatus+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText EndpointSortKey where+    parser = takeLowerText >>= \case+        "creationtime" -> pure ESKCreationTime+        "name" -> pure ESKName+        "status" -> pure ESKStatus+        e -> fromTextError $ "Failure parsing EndpointSortKey from value: '" <> e+           <> "'. Accepted values: creationtime, name, status"++instance ToText EndpointSortKey where+    toText = \case+        ESKCreationTime -> "CreationTime"+        ESKName -> "Name"+        ESKStatus -> "Status"++instance Hashable     EndpointSortKey+instance NFData       EndpointSortKey+instance ToByteString EndpointSortKey+instance ToQuery      EndpointSortKey+instance ToHeader     EndpointSortKey++instance ToJSON EndpointSortKey where+    toJSON = toJSONText++data EndpointStatus+  = Creating+  | Deleting+  | Failed+  | InService+  | OutOfService+  | RollingBack+  | Updating+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText EndpointStatus where+    parser = takeLowerText >>= \case+        "creating" -> pure Creating+        "deleting" -> pure Deleting+        "failed" -> pure Failed+        "inservice" -> pure InService+        "outofservice" -> pure OutOfService+        "rollingback" -> pure RollingBack+        "updating" -> pure Updating+        e -> fromTextError $ "Failure parsing EndpointStatus from value: '" <> e+           <> "'. Accepted values: creating, deleting, failed, inservice, outofservice, rollingback, updating"++instance ToText EndpointStatus where+    toText = \case+        Creating -> "Creating"+        Deleting -> "Deleting"+        Failed -> "Failed"+        InService -> "InService"+        OutOfService -> "OutOfService"+        RollingBack -> "RollingBack"+        Updating -> "Updating"++instance Hashable     EndpointStatus+instance NFData       EndpointStatus+instance ToByteString EndpointStatus+instance ToQuery      EndpointStatus+instance ToHeader     EndpointStatus++instance ToJSON EndpointStatus where+    toJSON = toJSONText++instance FromJSON EndpointStatus where+    parseJSON = parseJSONText "EndpointStatus"++data InstanceType+  = Ml_M4_10XLarge+  | Ml_M4_16XLarge+  | Ml_M4_2XLarge+  | Ml_M4_4XLarge+  | Ml_M4_XLarge+  | Ml_P2_16XLarge+  | Ml_P2_8XLarge+  | Ml_P2_XLarge+  | Ml_P3_16XLarge+  | Ml_P3_2XLarge+  | Ml_P3_8XLarge+  | Ml_T2_2XLarge+  | Ml_T2_Large+  | Ml_T2_Medium+  | Ml_T2_XLarge+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText InstanceType where+    parser = takeLowerText >>= \case+        "ml.m4.10xlarge" -> pure Ml_M4_10XLarge+        "ml.m4.16xlarge" -> pure Ml_M4_16XLarge+        "ml.m4.2xlarge" -> pure Ml_M4_2XLarge+        "ml.m4.4xlarge" -> pure Ml_M4_4XLarge+        "ml.m4.xlarge" -> pure Ml_M4_XLarge+        "ml.p2.16xlarge" -> pure Ml_P2_16XLarge+        "ml.p2.8xlarge" -> pure Ml_P2_8XLarge+        "ml.p2.xlarge" -> pure Ml_P2_XLarge+        "ml.p3.16xlarge" -> pure Ml_P3_16XLarge+        "ml.p3.2xlarge" -> pure Ml_P3_2XLarge+        "ml.p3.8xlarge" -> pure Ml_P3_8XLarge+        "ml.t2.2xlarge" -> pure Ml_T2_2XLarge+        "ml.t2.large" -> pure Ml_T2_Large+        "ml.t2.medium" -> pure Ml_T2_Medium+        "ml.t2.xlarge" -> pure Ml_T2_XLarge+        e -> fromTextError $ "Failure parsing InstanceType from value: '" <> e+           <> "'. Accepted values: ml.m4.10xlarge, ml.m4.16xlarge, ml.m4.2xlarge, ml.m4.4xlarge, ml.m4.xlarge, ml.p2.16xlarge, ml.p2.8xlarge, ml.p2.xlarge, ml.p3.16xlarge, ml.p3.2xlarge, ml.p3.8xlarge, ml.t2.2xlarge, ml.t2.large, ml.t2.medium, ml.t2.xlarge"++instance ToText InstanceType where+    toText = \case+        Ml_M4_10XLarge -> "ml.m4.10xlarge"+        Ml_M4_16XLarge -> "ml.m4.16xlarge"+        Ml_M4_2XLarge -> "ml.m4.2xlarge"+        Ml_M4_4XLarge -> "ml.m4.4xlarge"+        Ml_M4_XLarge -> "ml.m4.xlarge"+        Ml_P2_16XLarge -> "ml.p2.16xlarge"+        Ml_P2_8XLarge -> "ml.p2.8xlarge"+        Ml_P2_XLarge -> "ml.p2.xlarge"+        Ml_P3_16XLarge -> "ml.p3.16xlarge"+        Ml_P3_2XLarge -> "ml.p3.2xlarge"+        Ml_P3_8XLarge -> "ml.p3.8xlarge"+        Ml_T2_2XLarge -> "ml.t2.2xlarge"+        Ml_T2_Large -> "ml.t2.large"+        Ml_T2_Medium -> "ml.t2.medium"+        Ml_T2_XLarge -> "ml.t2.xlarge"++instance Hashable     InstanceType+instance NFData       InstanceType+instance ToByteString InstanceType+instance ToQuery      InstanceType+instance ToHeader     InstanceType++instance ToJSON InstanceType where+    toJSON = toJSONText++instance FromJSON InstanceType where+    parseJSON = parseJSONText "InstanceType"++data ModelSortKey+  = MSKCreationTime+  | MSKName+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ModelSortKey where+    parser = takeLowerText >>= \case+        "creationtime" -> pure MSKCreationTime+        "name" -> pure MSKName+        e -> fromTextError $ "Failure parsing ModelSortKey from value: '" <> e+           <> "'. Accepted values: creationtime, name"++instance ToText ModelSortKey where+    toText = \case+        MSKCreationTime -> "CreationTime"+        MSKName -> "Name"++instance Hashable     ModelSortKey+instance NFData       ModelSortKey+instance ToByteString ModelSortKey+instance ToQuery      ModelSortKey+instance ToHeader     ModelSortKey++instance ToJSON ModelSortKey where+    toJSON = toJSONText++data NotebookInstanceLifecycleConfigSortKey+  = NILCSKCreationTime+  | NILCSKLastModifiedTime+  | NILCSKName+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText NotebookInstanceLifecycleConfigSortKey where+    parser = takeLowerText >>= \case+        "creationtime" -> pure NILCSKCreationTime+        "lastmodifiedtime" -> pure NILCSKLastModifiedTime+        "name" -> pure NILCSKName+        e -> fromTextError $ "Failure parsing NotebookInstanceLifecycleConfigSortKey from value: '" <> e+           <> "'. Accepted values: creationtime, lastmodifiedtime, name"++instance ToText NotebookInstanceLifecycleConfigSortKey where+    toText = \case+        NILCSKCreationTime -> "CreationTime"+        NILCSKLastModifiedTime -> "LastModifiedTime"+        NILCSKName -> "Name"++instance Hashable     NotebookInstanceLifecycleConfigSortKey+instance NFData       NotebookInstanceLifecycleConfigSortKey+instance ToByteString NotebookInstanceLifecycleConfigSortKey+instance ToQuery      NotebookInstanceLifecycleConfigSortKey+instance ToHeader     NotebookInstanceLifecycleConfigSortKey++instance ToJSON NotebookInstanceLifecycleConfigSortKey where+    toJSON = toJSONText++data NotebookInstanceLifecycleConfigSortOrder+  = NILCSOAscending+  | NILCSODescending+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText NotebookInstanceLifecycleConfigSortOrder where+    parser = takeLowerText >>= \case+        "ascending" -> pure NILCSOAscending+        "descending" -> pure NILCSODescending+        e -> fromTextError $ "Failure parsing NotebookInstanceLifecycleConfigSortOrder from value: '" <> e+           <> "'. Accepted values: ascending, descending"++instance ToText NotebookInstanceLifecycleConfigSortOrder where+    toText = \case+        NILCSOAscending -> "Ascending"+        NILCSODescending -> "Descending"++instance Hashable     NotebookInstanceLifecycleConfigSortOrder+instance NFData       NotebookInstanceLifecycleConfigSortOrder+instance ToByteString NotebookInstanceLifecycleConfigSortOrder+instance ToQuery      NotebookInstanceLifecycleConfigSortOrder+instance ToHeader     NotebookInstanceLifecycleConfigSortOrder++instance ToJSON NotebookInstanceLifecycleConfigSortOrder where+    toJSON = toJSONText++data NotebookInstanceSortKey+  = NISKCreationTime+  | NISKName+  | NISKStatus+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText NotebookInstanceSortKey where+    parser = takeLowerText >>= \case+        "creationtime" -> pure NISKCreationTime+        "name" -> pure NISKName+        "status" -> pure NISKStatus+        e -> fromTextError $ "Failure parsing NotebookInstanceSortKey from value: '" <> e+           <> "'. Accepted values: creationtime, name, status"++instance ToText NotebookInstanceSortKey where+    toText = \case+        NISKCreationTime -> "CreationTime"+        NISKName -> "Name"+        NISKStatus -> "Status"++instance Hashable     NotebookInstanceSortKey+instance NFData       NotebookInstanceSortKey+instance ToByteString NotebookInstanceSortKey+instance ToQuery      NotebookInstanceSortKey+instance ToHeader     NotebookInstanceSortKey++instance ToJSON NotebookInstanceSortKey where+    toJSON = toJSONText++data NotebookInstanceSortOrder+  = Ascending+  | Descending+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText NotebookInstanceSortOrder where+    parser = takeLowerText >>= \case+        "ascending" -> pure Ascending+        "descending" -> pure Descending+        e -> fromTextError $ "Failure parsing NotebookInstanceSortOrder from value: '" <> e+           <> "'. Accepted values: ascending, descending"++instance ToText NotebookInstanceSortOrder where+    toText = \case+        Ascending -> "Ascending"+        Descending -> "Descending"++instance Hashable     NotebookInstanceSortOrder+instance NFData       NotebookInstanceSortOrder+instance ToByteString NotebookInstanceSortOrder+instance ToQuery      NotebookInstanceSortOrder+instance ToHeader     NotebookInstanceSortOrder++instance ToJSON NotebookInstanceSortOrder where+    toJSON = toJSONText++data NotebookInstanceStatus+  = NISDeleting+  | NISFailed+  | NISInService+  | NISPending+  | NISStopped+  | NISStopping+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText NotebookInstanceStatus where+    parser = takeLowerText >>= \case+        "deleting" -> pure NISDeleting+        "failed" -> pure NISFailed+        "inservice" -> pure NISInService+        "pending" -> pure NISPending+        "stopped" -> pure NISStopped+        "stopping" -> pure NISStopping+        e -> fromTextError $ "Failure parsing NotebookInstanceStatus from value: '" <> e+           <> "'. Accepted values: deleting, failed, inservice, pending, stopped, stopping"++instance ToText NotebookInstanceStatus where+    toText = \case+        NISDeleting -> "Deleting"+        NISFailed -> "Failed"+        NISInService -> "InService"+        NISPending -> "Pending"+        NISStopped -> "Stopped"+        NISStopping -> "Stopping"++instance Hashable     NotebookInstanceStatus+instance NFData       NotebookInstanceStatus+instance ToByteString NotebookInstanceStatus+instance ToQuery      NotebookInstanceStatus+instance ToHeader     NotebookInstanceStatus++instance ToJSON NotebookInstanceStatus where+    toJSON = toJSONText++instance FromJSON NotebookInstanceStatus where+    parseJSON = parseJSONText "NotebookInstanceStatus"++data OrderKey+  = OKAscending+  | OKDescending+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText OrderKey where+    parser = takeLowerText >>= \case+        "ascending" -> pure OKAscending+        "descending" -> pure OKDescending+        e -> fromTextError $ "Failure parsing OrderKey from value: '" <> e+           <> "'. Accepted values: ascending, descending"++instance ToText OrderKey where+    toText = \case+        OKAscending -> "Ascending"+        OKDescending -> "Descending"++instance Hashable     OrderKey+instance NFData       OrderKey+instance ToByteString OrderKey+instance ToQuery      OrderKey+instance ToHeader     OrderKey++instance ToJSON OrderKey where+    toJSON = toJSONText++data ProductionVariantInstanceType+  = PVITMl_C4_2XLarge+  | PVITMl_C4_4XLarge+  | PVITMl_C4_8XLarge+  | PVITMl_C4_Large+  | PVITMl_C4_XLarge+  | PVITMl_C5_18XLarge+  | PVITMl_C5_2XLarge+  | PVITMl_C5_4XLarge+  | PVITMl_C5_9XLarge+  | PVITMl_C5_Large+  | PVITMl_C5_XLarge+  | PVITMl_M4_10XLarge+  | PVITMl_M4_16XLarge+  | PVITMl_M4_2XLarge+  | PVITMl_M4_4XLarge+  | PVITMl_M4_XLarge+  | PVITMl_M5_12XLarge+  | PVITMl_M5_24XLarge+  | PVITMl_M5_2XLarge+  | PVITMl_M5_4XLarge+  | PVITMl_M5_Large+  | PVITMl_M5_XLarge+  | PVITMl_P2_16XLarge+  | PVITMl_P2_8XLarge+  | PVITMl_P2_XLarge+  | PVITMl_P3_16XLarge+  | PVITMl_P3_2XLarge+  | PVITMl_P3_8XLarge+  | PVITMl_T2_2XLarge+  | PVITMl_T2_Large+  | PVITMl_T2_Medium+  | PVITMl_T2_XLarge+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ProductionVariantInstanceType where+    parser = takeLowerText >>= \case+        "ml.c4.2xlarge" -> pure PVITMl_C4_2XLarge+        "ml.c4.4xlarge" -> pure PVITMl_C4_4XLarge+        "ml.c4.8xlarge" -> pure PVITMl_C4_8XLarge+        "ml.c4.large" -> pure PVITMl_C4_Large+        "ml.c4.xlarge" -> pure PVITMl_C4_XLarge+        "ml.c5.18xlarge" -> pure PVITMl_C5_18XLarge+        "ml.c5.2xlarge" -> pure PVITMl_C5_2XLarge+        "ml.c5.4xlarge" -> pure PVITMl_C5_4XLarge+        "ml.c5.9xlarge" -> pure PVITMl_C5_9XLarge+        "ml.c5.large" -> pure PVITMl_C5_Large+        "ml.c5.xlarge" -> pure PVITMl_C5_XLarge+        "ml.m4.10xlarge" -> pure PVITMl_M4_10XLarge+        "ml.m4.16xlarge" -> pure PVITMl_M4_16XLarge+        "ml.m4.2xlarge" -> pure PVITMl_M4_2XLarge+        "ml.m4.4xlarge" -> pure PVITMl_M4_4XLarge+        "ml.m4.xlarge" -> pure PVITMl_M4_XLarge+        "ml.m5.12xlarge" -> pure PVITMl_M5_12XLarge+        "ml.m5.24xlarge" -> pure PVITMl_M5_24XLarge+        "ml.m5.2xlarge" -> pure PVITMl_M5_2XLarge+        "ml.m5.4xlarge" -> pure PVITMl_M5_4XLarge+        "ml.m5.large" -> pure PVITMl_M5_Large+        "ml.m5.xlarge" -> pure PVITMl_M5_XLarge+        "ml.p2.16xlarge" -> pure PVITMl_P2_16XLarge+        "ml.p2.8xlarge" -> pure PVITMl_P2_8XLarge+        "ml.p2.xlarge" -> pure PVITMl_P2_XLarge+        "ml.p3.16xlarge" -> pure PVITMl_P3_16XLarge+        "ml.p3.2xlarge" -> pure PVITMl_P3_2XLarge+        "ml.p3.8xlarge" -> pure PVITMl_P3_8XLarge+        "ml.t2.2xlarge" -> pure PVITMl_T2_2XLarge+        "ml.t2.large" -> pure PVITMl_T2_Large+        "ml.t2.medium" -> pure PVITMl_T2_Medium+        "ml.t2.xlarge" -> pure PVITMl_T2_XLarge+        e -> fromTextError $ "Failure parsing ProductionVariantInstanceType from value: '" <> e+           <> "'. Accepted values: ml.c4.2xlarge, ml.c4.4xlarge, ml.c4.8xlarge, ml.c4.large, ml.c4.xlarge, ml.c5.18xlarge, ml.c5.2xlarge, ml.c5.4xlarge, ml.c5.9xlarge, ml.c5.large, ml.c5.xlarge, ml.m4.10xlarge, ml.m4.16xlarge, ml.m4.2xlarge, ml.m4.4xlarge, ml.m4.xlarge, ml.m5.12xlarge, ml.m5.24xlarge, ml.m5.2xlarge, ml.m5.4xlarge, ml.m5.large, ml.m5.xlarge, ml.p2.16xlarge, ml.p2.8xlarge, ml.p2.xlarge, ml.p3.16xlarge, ml.p3.2xlarge, ml.p3.8xlarge, ml.t2.2xlarge, ml.t2.large, ml.t2.medium, ml.t2.xlarge"++instance ToText ProductionVariantInstanceType where+    toText = \case+        PVITMl_C4_2XLarge -> "ml.c4.2xlarge"+        PVITMl_C4_4XLarge -> "ml.c4.4xlarge"+        PVITMl_C4_8XLarge -> "ml.c4.8xlarge"+        PVITMl_C4_Large -> "ml.c4.large"+        PVITMl_C4_XLarge -> "ml.c4.xlarge"+        PVITMl_C5_18XLarge -> "ml.c5.18xlarge"+        PVITMl_C5_2XLarge -> "ml.c5.2xlarge"+        PVITMl_C5_4XLarge -> "ml.c5.4xlarge"+        PVITMl_C5_9XLarge -> "ml.c5.9xlarge"+        PVITMl_C5_Large -> "ml.c5.large"+        PVITMl_C5_XLarge -> "ml.c5.xlarge"+        PVITMl_M4_10XLarge -> "ml.m4.10xlarge"+        PVITMl_M4_16XLarge -> "ml.m4.16xlarge"+        PVITMl_M4_2XLarge -> "ml.m4.2xlarge"+        PVITMl_M4_4XLarge -> "ml.m4.4xlarge"+        PVITMl_M4_XLarge -> "ml.m4.xlarge"+        PVITMl_M5_12XLarge -> "ml.m5.12xlarge"+        PVITMl_M5_24XLarge -> "ml.m5.24xlarge"+        PVITMl_M5_2XLarge -> "ml.m5.2xlarge"+        PVITMl_M5_4XLarge -> "ml.m5.4xlarge"+        PVITMl_M5_Large -> "ml.m5.large"+        PVITMl_M5_XLarge -> "ml.m5.xlarge"+        PVITMl_P2_16XLarge -> "ml.p2.16xlarge"+        PVITMl_P2_8XLarge -> "ml.p2.8xlarge"+        PVITMl_P2_XLarge -> "ml.p2.xlarge"+        PVITMl_P3_16XLarge -> "ml.p3.16xlarge"+        PVITMl_P3_2XLarge -> "ml.p3.2xlarge"+        PVITMl_P3_8XLarge -> "ml.p3.8xlarge"+        PVITMl_T2_2XLarge -> "ml.t2.2xlarge"+        PVITMl_T2_Large -> "ml.t2.large"+        PVITMl_T2_Medium -> "ml.t2.medium"+        PVITMl_T2_XLarge -> "ml.t2.xlarge"++instance Hashable     ProductionVariantInstanceType+instance NFData       ProductionVariantInstanceType+instance ToByteString ProductionVariantInstanceType+instance ToQuery      ProductionVariantInstanceType+instance ToHeader     ProductionVariantInstanceType++instance ToJSON ProductionVariantInstanceType where+    toJSON = toJSONText++instance FromJSON ProductionVariantInstanceType where+    parseJSON = parseJSONText "ProductionVariantInstanceType"++data RecordWrapper+  = None+  | RecordIO+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText RecordWrapper where+    parser = takeLowerText >>= \case+        "none" -> pure None+        "recordio" -> pure RecordIO+        e -> fromTextError $ "Failure parsing RecordWrapper from value: '" <> e+           <> "'. Accepted values: none, recordio"++instance ToText RecordWrapper where+    toText = \case+        None -> "None"+        RecordIO -> "RecordIO"++instance Hashable     RecordWrapper+instance NFData       RecordWrapper+instance ToByteString RecordWrapper+instance ToQuery      RecordWrapper+instance ToHeader     RecordWrapper++instance ToJSON RecordWrapper where+    toJSON = toJSONText++instance FromJSON RecordWrapper where+    parseJSON = parseJSONText "RecordWrapper"++data S3DataDistribution+  = FullyReplicated+  | ShardedByS3Key+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText S3DataDistribution where+    parser = takeLowerText >>= \case+        "fullyreplicated" -> pure FullyReplicated+        "shardedbys3key" -> pure ShardedByS3Key+        e -> fromTextError $ "Failure parsing S3DataDistribution from value: '" <> e+           <> "'. Accepted values: fullyreplicated, shardedbys3key"++instance ToText S3DataDistribution where+    toText = \case+        FullyReplicated -> "FullyReplicated"+        ShardedByS3Key -> "ShardedByS3Key"++instance Hashable     S3DataDistribution+instance NFData       S3DataDistribution+instance ToByteString S3DataDistribution+instance ToQuery      S3DataDistribution+instance ToHeader     S3DataDistribution++instance ToJSON S3DataDistribution where+    toJSON = toJSONText++instance FromJSON S3DataDistribution where+    parseJSON = parseJSONText "S3DataDistribution"++data S3DataType+  = ManifestFile+  | S3Prefix+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText S3DataType where+    parser = takeLowerText >>= \case+        "manifestfile" -> pure ManifestFile+        "s3prefix" -> pure S3Prefix+        e -> fromTextError $ "Failure parsing S3DataType from value: '" <> e+           <> "'. Accepted values: manifestfile, s3prefix"++instance ToText S3DataType where+    toText = \case+        ManifestFile -> "ManifestFile"+        S3Prefix -> "S3Prefix"++instance Hashable     S3DataType+instance NFData       S3DataType+instance ToByteString S3DataType+instance ToQuery      S3DataType+instance ToHeader     S3DataType++instance ToJSON S3DataType where+    toJSON = toJSONText++instance FromJSON S3DataType where+    parseJSON = parseJSONText "S3DataType"++data SecondaryStatus+  = SSCompleted+  | SSDownloading+  | SSFailed+  | SSMaxRuntimeExceeded+  | SSStarting+  | SSStopped+  | SSStopping+  | SSTraining+  | SSUploading+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText SecondaryStatus where+    parser = takeLowerText >>= \case+        "completed" -> pure SSCompleted+        "downloading" -> pure SSDownloading+        "failed" -> pure SSFailed+        "maxruntimeexceeded" -> pure SSMaxRuntimeExceeded+        "starting" -> pure SSStarting+        "stopped" -> pure SSStopped+        "stopping" -> pure SSStopping+        "training" -> pure SSTraining+        "uploading" -> pure SSUploading+        e -> fromTextError $ "Failure parsing SecondaryStatus from value: '" <> e+           <> "'. Accepted values: completed, downloading, failed, maxruntimeexceeded, starting, stopped, stopping, training, uploading"++instance ToText SecondaryStatus where+    toText = \case+        SSCompleted -> "Completed"+        SSDownloading -> "Downloading"+        SSFailed -> "Failed"+        SSMaxRuntimeExceeded -> "MaxRuntimeExceeded"+        SSStarting -> "Starting"+        SSStopped -> "Stopped"+        SSStopping -> "Stopping"+        SSTraining -> "Training"+        SSUploading -> "Uploading"++instance Hashable     SecondaryStatus+instance NFData       SecondaryStatus+instance ToByteString SecondaryStatus+instance ToQuery      SecondaryStatus+instance ToHeader     SecondaryStatus++instance FromJSON SecondaryStatus where+    parseJSON = parseJSONText "SecondaryStatus"++data SortBy+  = SBCreationTime+  | SBName+  | SBStatus+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText SortBy where+    parser = takeLowerText >>= \case+        "creationtime" -> pure SBCreationTime+        "name" -> pure SBName+        "status" -> pure SBStatus+        e -> fromTextError $ "Failure parsing SortBy from value: '" <> e+           <> "'. Accepted values: creationtime, name, status"++instance ToText SortBy where+    toText = \case+        SBCreationTime -> "CreationTime"+        SBName -> "Name"+        SBStatus -> "Status"++instance Hashable     SortBy+instance NFData       SortBy+instance ToByteString SortBy+instance ToQuery      SortBy+instance ToHeader     SortBy++instance ToJSON SortBy where+    toJSON = toJSONText++data SortOrder+  = SOAscending+  | SODescending+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText SortOrder where+    parser = takeLowerText >>= \case+        "ascending" -> pure SOAscending+        "descending" -> pure SODescending+        e -> fromTextError $ "Failure parsing SortOrder from value: '" <> e+           <> "'. Accepted values: ascending, descending"++instance ToText SortOrder where+    toText = \case+        SOAscending -> "Ascending"+        SODescending -> "Descending"++instance Hashable     SortOrder+instance NFData       SortOrder+instance ToByteString SortOrder+instance ToQuery      SortOrder+instance ToHeader     SortOrder++instance ToJSON SortOrder where+    toJSON = toJSONText++data TrainingInputMode+  = File+  | Pipe+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText TrainingInputMode where+    parser = takeLowerText >>= \case+        "file" -> pure File+        "pipe" -> pure Pipe+        e -> fromTextError $ "Failure parsing TrainingInputMode from value: '" <> e+           <> "'. Accepted values: file, pipe"++instance ToText TrainingInputMode where+    toText = \case+        File -> "File"+        Pipe -> "Pipe"++instance Hashable     TrainingInputMode+instance NFData       TrainingInputMode+instance ToByteString TrainingInputMode+instance ToQuery      TrainingInputMode+instance ToHeader     TrainingInputMode++instance ToJSON TrainingInputMode where+    toJSON = toJSONText++instance FromJSON TrainingInputMode where+    parseJSON = parseJSONText "TrainingInputMode"++data TrainingInstanceType+  = TITMl_C4_2XLarge+  | TITMl_C4_4XLarge+  | TITMl_C4_8XLarge+  | TITMl_C4_XLarge+  | TITMl_C5_18XLarge+  | TITMl_C5_2XLarge+  | TITMl_C5_4XLarge+  | TITMl_C5_9XLarge+  | TITMl_C5_XLarge+  | TITMl_M4_10XLarge+  | TITMl_M4_16XLarge+  | TITMl_M4_2XLarge+  | TITMl_M4_4XLarge+  | TITMl_M4_XLarge+  | TITMl_M5_12XLarge+  | TITMl_M5_24XLarge+  | TITMl_M5_2XLarge+  | TITMl_M5_4XLarge+  | TITMl_M5_Large+  | TITMl_M5_XLarge+  | TITMl_P2_16XLarge+  | TITMl_P2_8XLarge+  | TITMl_P2_XLarge+  | TITMl_P3_16XLarge+  | TITMl_P3_2XLarge+  | TITMl_P3_8XLarge+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText TrainingInstanceType where+    parser = takeLowerText >>= \case+        "ml.c4.2xlarge" -> pure TITMl_C4_2XLarge+        "ml.c4.4xlarge" -> pure TITMl_C4_4XLarge+        "ml.c4.8xlarge" -> pure TITMl_C4_8XLarge+        "ml.c4.xlarge" -> pure TITMl_C4_XLarge+        "ml.c5.18xlarge" -> pure TITMl_C5_18XLarge+        "ml.c5.2xlarge" -> pure TITMl_C5_2XLarge+        "ml.c5.4xlarge" -> pure TITMl_C5_4XLarge+        "ml.c5.9xlarge" -> pure TITMl_C5_9XLarge+        "ml.c5.xlarge" -> pure TITMl_C5_XLarge+        "ml.m4.10xlarge" -> pure TITMl_M4_10XLarge+        "ml.m4.16xlarge" -> pure TITMl_M4_16XLarge+        "ml.m4.2xlarge" -> pure TITMl_M4_2XLarge+        "ml.m4.4xlarge" -> pure TITMl_M4_4XLarge+        "ml.m4.xlarge" -> pure TITMl_M4_XLarge+        "ml.m5.12xlarge" -> pure TITMl_M5_12XLarge+        "ml.m5.24xlarge" -> pure TITMl_M5_24XLarge+        "ml.m5.2xlarge" -> pure TITMl_M5_2XLarge+        "ml.m5.4xlarge" -> pure TITMl_M5_4XLarge+        "ml.m5.large" -> pure TITMl_M5_Large+        "ml.m5.xlarge" -> pure TITMl_M5_XLarge+        "ml.p2.16xlarge" -> pure TITMl_P2_16XLarge+        "ml.p2.8xlarge" -> pure TITMl_P2_8XLarge+        "ml.p2.xlarge" -> pure TITMl_P2_XLarge+        "ml.p3.16xlarge" -> pure TITMl_P3_16XLarge+        "ml.p3.2xlarge" -> pure TITMl_P3_2XLarge+        "ml.p3.8xlarge" -> pure TITMl_P3_8XLarge+        e -> fromTextError $ "Failure parsing TrainingInstanceType from value: '" <> e+           <> "'. Accepted values: ml.c4.2xlarge, ml.c4.4xlarge, ml.c4.8xlarge, ml.c4.xlarge, ml.c5.18xlarge, ml.c5.2xlarge, ml.c5.4xlarge, ml.c5.9xlarge, ml.c5.xlarge, ml.m4.10xlarge, ml.m4.16xlarge, ml.m4.2xlarge, ml.m4.4xlarge, ml.m4.xlarge, ml.m5.12xlarge, ml.m5.24xlarge, ml.m5.2xlarge, ml.m5.4xlarge, ml.m5.large, ml.m5.xlarge, ml.p2.16xlarge, ml.p2.8xlarge, ml.p2.xlarge, ml.p3.16xlarge, ml.p3.2xlarge, ml.p3.8xlarge"++instance ToText TrainingInstanceType where+    toText = \case+        TITMl_C4_2XLarge -> "ml.c4.2xlarge"+        TITMl_C4_4XLarge -> "ml.c4.4xlarge"+        TITMl_C4_8XLarge -> "ml.c4.8xlarge"+        TITMl_C4_XLarge -> "ml.c4.xlarge"+        TITMl_C5_18XLarge -> "ml.c5.18xlarge"+        TITMl_C5_2XLarge -> "ml.c5.2xlarge"+        TITMl_C5_4XLarge -> "ml.c5.4xlarge"+        TITMl_C5_9XLarge -> "ml.c5.9xlarge"+        TITMl_C5_XLarge -> "ml.c5.xlarge"+        TITMl_M4_10XLarge -> "ml.m4.10xlarge"+        TITMl_M4_16XLarge -> "ml.m4.16xlarge"+        TITMl_M4_2XLarge -> "ml.m4.2xlarge"+        TITMl_M4_4XLarge -> "ml.m4.4xlarge"+        TITMl_M4_XLarge -> "ml.m4.xlarge"+        TITMl_M5_12XLarge -> "ml.m5.12xlarge"+        TITMl_M5_24XLarge -> "ml.m5.24xlarge"+        TITMl_M5_2XLarge -> "ml.m5.2xlarge"+        TITMl_M5_4XLarge -> "ml.m5.4xlarge"+        TITMl_M5_Large -> "ml.m5.large"+        TITMl_M5_XLarge -> "ml.m5.xlarge"+        TITMl_P2_16XLarge -> "ml.p2.16xlarge"+        TITMl_P2_8XLarge -> "ml.p2.8xlarge"+        TITMl_P2_XLarge -> "ml.p2.xlarge"+        TITMl_P3_16XLarge -> "ml.p3.16xlarge"+        TITMl_P3_2XLarge -> "ml.p3.2xlarge"+        TITMl_P3_8XLarge -> "ml.p3.8xlarge"++instance Hashable     TrainingInstanceType+instance NFData       TrainingInstanceType+instance ToByteString TrainingInstanceType+instance ToQuery      TrainingInstanceType+instance ToHeader     TrainingInstanceType++instance ToJSON TrainingInstanceType where+    toJSON = toJSONText++instance FromJSON TrainingInstanceType where+    parseJSON = parseJSONText "TrainingInstanceType"++data TrainingJobStatus+  = TJSCompleted+  | TJSFailed+  | TJSInProgress+  | TJSStopped+  | TJSStopping+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText TrainingJobStatus where+    parser = takeLowerText >>= \case+        "completed" -> pure TJSCompleted+        "failed" -> pure TJSFailed+        "inprogress" -> pure TJSInProgress+        "stopped" -> pure TJSStopped+        "stopping" -> pure TJSStopping+        e -> fromTextError $ "Failure parsing TrainingJobStatus from value: '" <> e+           <> "'. Accepted values: completed, failed, inprogress, stopped, stopping"++instance ToText TrainingJobStatus where+    toText = \case+        TJSCompleted -> "Completed"+        TJSFailed -> "Failed"+        TJSInProgress -> "InProgress"+        TJSStopped -> "Stopped"+        TJSStopping -> "Stopping"++instance Hashable     TrainingJobStatus+instance NFData       TrainingJobStatus+instance ToByteString TrainingJobStatus+instance ToQuery      TrainingJobStatus+instance ToHeader     TrainingJobStatus++instance ToJSON TrainingJobStatus where+    toJSON = toJSONText++instance FromJSON TrainingJobStatus where+    parseJSON = parseJSONText "TrainingJobStatus"
+ gen/Network/AWS/SageMaker/UpdateEndpoint.hs view
@@ -0,0 +1,150 @@+{-# 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.SageMaker.UpdateEndpoint+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deploys the new @EndpointConfig@ specified in the request, switches to using newly created endpoint, and then deletes resources provisioned for the endpoint using the previous @EndpointConfig@ (there is no availability loss).+--+--+-- When Amazon SageMaker receives the request, it sets the endpoint status to @Updating@ . After updating the endpoint, it sets the status to @InService@ . To check the status of an endpoint, use the <http://docs.aws.amazon.com/sagemaker/latest/dg/API_DescribeEndpoint.html DescribeEndpoint> API.+--+module Network.AWS.SageMaker.UpdateEndpoint+    (+    -- * Creating a Request+      updateEndpoint+    , UpdateEndpoint+    -- * Request Lenses+    , ueEndpointName+    , ueEndpointConfigName++    -- * Destructuring the Response+    , updateEndpointResponse+    , UpdateEndpointResponse+    -- * Response Lenses+    , uersResponseStatus+    , uersEndpointARN+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'updateEndpoint' smart constructor.+data UpdateEndpoint = UpdateEndpoint'+  { _ueEndpointName       :: !Text+  , _ueEndpointConfigName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateEndpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ueEndpointName' - The name of the endpoint whose configuration you want to update.+--+-- * 'ueEndpointConfigName' - The name of the new endpoint configuration.+updateEndpoint+    :: Text -- ^ 'ueEndpointName'+    -> Text -- ^ 'ueEndpointConfigName'+    -> UpdateEndpoint+updateEndpoint pEndpointName_ pEndpointConfigName_ =+  UpdateEndpoint'+    { _ueEndpointName = pEndpointName_+    , _ueEndpointConfigName = pEndpointConfigName_+    }+++-- | The name of the endpoint whose configuration you want to update.+ueEndpointName :: Lens' UpdateEndpoint Text+ueEndpointName = lens _ueEndpointName (\ s a -> s{_ueEndpointName = a})++-- | The name of the new endpoint configuration.+ueEndpointConfigName :: Lens' UpdateEndpoint Text+ueEndpointConfigName = lens _ueEndpointConfigName (\ s a -> s{_ueEndpointConfigName = a})++instance AWSRequest UpdateEndpoint where+        type Rs UpdateEndpoint = UpdateEndpointResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 UpdateEndpointResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "EndpointArn"))++instance Hashable UpdateEndpoint where++instance NFData UpdateEndpoint where++instance ToHeaders UpdateEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.UpdateEndpoint" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateEndpoint where+        toJSON UpdateEndpoint'{..}+          = object+              (catMaybes+                 [Just ("EndpointName" .= _ueEndpointName),+                  Just+                    ("EndpointConfigName" .= _ueEndpointConfigName)])++instance ToPath UpdateEndpoint where+        toPath = const "/"++instance ToQuery UpdateEndpoint where+        toQuery = const mempty++-- | /See:/ 'updateEndpointResponse' smart constructor.+data UpdateEndpointResponse = UpdateEndpointResponse'+  { _uersResponseStatus :: !Int+  , _uersEndpointARN    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateEndpointResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uersResponseStatus' - -- | The response status code.+--+-- * 'uersEndpointARN' - The Amazon Resource Name (ARN) of the endpoint.+updateEndpointResponse+    :: Int -- ^ 'uersResponseStatus'+    -> Text -- ^ 'uersEndpointARN'+    -> UpdateEndpointResponse+updateEndpointResponse pResponseStatus_ pEndpointARN_ =+  UpdateEndpointResponse'+    {_uersResponseStatus = pResponseStatus_, _uersEndpointARN = pEndpointARN_}+++-- | -- | The response status code.+uersResponseStatus :: Lens' UpdateEndpointResponse Int+uersResponseStatus = lens _uersResponseStatus (\ s a -> s{_uersResponseStatus = a})++-- | The Amazon Resource Name (ARN) of the endpoint.+uersEndpointARN :: Lens' UpdateEndpointResponse Text+uersEndpointARN = lens _uersEndpointARN (\ s a -> s{_uersEndpointARN = a})++instance NFData UpdateEndpointResponse where
+ gen/Network/AWS/SageMaker/UpdateEndpointWeightsAndCapacities.hs view
@@ -0,0 +1,163 @@+{-# 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.SageMaker.UpdateEndpointWeightsAndCapacities+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates variant weight of one or more variants associated with an existing endpoint, or capacity of one variant associated with an existing endpoint. When it receives the request, Amazon SageMaker sets the endpoint status to @Updating@ . After updating the endpoint, it sets the status to @InService@ . To check the status of an endpoint, use the <http://docs.aws.amazon.com/sagemaker/latest/dg/API_DescribeEndpoint.html DescribeEndpoint> API.+--+--+module Network.AWS.SageMaker.UpdateEndpointWeightsAndCapacities+    (+    -- * Creating a Request+      updateEndpointWeightsAndCapacities+    , UpdateEndpointWeightsAndCapacities+    -- * Request Lenses+    , uewacEndpointName+    , uewacDesiredWeightsAndCapacities++    -- * Destructuring the Response+    , updateEndpointWeightsAndCapacitiesResponse+    , UpdateEndpointWeightsAndCapacitiesResponse+    -- * Response Lenses+    , uewacrsResponseStatus+    , uewacrsEndpointARN+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'updateEndpointWeightsAndCapacities' smart constructor.+data UpdateEndpointWeightsAndCapacities = UpdateEndpointWeightsAndCapacities'+  { _uewacEndpointName                :: !Text+  , _uewacDesiredWeightsAndCapacities :: !(List1 DesiredWeightAndCapacity)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateEndpointWeightsAndCapacities' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uewacEndpointName' - The name of an existing Amazon SageMaker endpoint.+--+-- * 'uewacDesiredWeightsAndCapacities' - An object that provides new capacity and weight values for a variant.+updateEndpointWeightsAndCapacities+    :: Text -- ^ 'uewacEndpointName'+    -> NonEmpty DesiredWeightAndCapacity -- ^ 'uewacDesiredWeightsAndCapacities'+    -> UpdateEndpointWeightsAndCapacities+updateEndpointWeightsAndCapacities pEndpointName_ pDesiredWeightsAndCapacities_ =+  UpdateEndpointWeightsAndCapacities'+    { _uewacEndpointName = pEndpointName_+    , _uewacDesiredWeightsAndCapacities = _List1 # pDesiredWeightsAndCapacities_+    }+++-- | The name of an existing Amazon SageMaker endpoint.+uewacEndpointName :: Lens' UpdateEndpointWeightsAndCapacities Text+uewacEndpointName = lens _uewacEndpointName (\ s a -> s{_uewacEndpointName = a})++-- | An object that provides new capacity and weight values for a variant.+uewacDesiredWeightsAndCapacities :: Lens' UpdateEndpointWeightsAndCapacities (NonEmpty DesiredWeightAndCapacity)+uewacDesiredWeightsAndCapacities = lens _uewacDesiredWeightsAndCapacities (\ s a -> s{_uewacDesiredWeightsAndCapacities = a}) . _List1++instance AWSRequest+           UpdateEndpointWeightsAndCapacities+         where+        type Rs UpdateEndpointWeightsAndCapacities =+             UpdateEndpointWeightsAndCapacitiesResponse+        request = postJSON sageMaker+        response+          = receiveJSON+              (\ s h x ->+                 UpdateEndpointWeightsAndCapacitiesResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "EndpointArn"))++instance Hashable UpdateEndpointWeightsAndCapacities+         where++instance NFData UpdateEndpointWeightsAndCapacities+         where++instance ToHeaders UpdateEndpointWeightsAndCapacities+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.UpdateEndpointWeightsAndCapacities" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateEndpointWeightsAndCapacities+         where+        toJSON UpdateEndpointWeightsAndCapacities'{..}+          = object+              (catMaybes+                 [Just ("EndpointName" .= _uewacEndpointName),+                  Just+                    ("DesiredWeightsAndCapacities" .=+                       _uewacDesiredWeightsAndCapacities)])++instance ToPath UpdateEndpointWeightsAndCapacities+         where+        toPath = const "/"++instance ToQuery UpdateEndpointWeightsAndCapacities+         where+        toQuery = const mempty++-- | /See:/ 'updateEndpointWeightsAndCapacitiesResponse' smart constructor.+data UpdateEndpointWeightsAndCapacitiesResponse = UpdateEndpointWeightsAndCapacitiesResponse'+  { _uewacrsResponseStatus :: !Int+  , _uewacrsEndpointARN    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateEndpointWeightsAndCapacitiesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uewacrsResponseStatus' - -- | The response status code.+--+-- * 'uewacrsEndpointARN' - The Amazon Resource Name (ARN) of the updated endpoint.+updateEndpointWeightsAndCapacitiesResponse+    :: Int -- ^ 'uewacrsResponseStatus'+    -> Text -- ^ 'uewacrsEndpointARN'+    -> UpdateEndpointWeightsAndCapacitiesResponse+updateEndpointWeightsAndCapacitiesResponse pResponseStatus_ pEndpointARN_ =+  UpdateEndpointWeightsAndCapacitiesResponse'+    { _uewacrsResponseStatus = pResponseStatus_+    , _uewacrsEndpointARN = pEndpointARN_+    }+++-- | -- | The response status code.+uewacrsResponseStatus :: Lens' UpdateEndpointWeightsAndCapacitiesResponse Int+uewacrsResponseStatus = lens _uewacrsResponseStatus (\ s a -> s{_uewacrsResponseStatus = a})++-- | The Amazon Resource Name (ARN) of the updated endpoint.+uewacrsEndpointARN :: Lens' UpdateEndpointWeightsAndCapacitiesResponse Text+uewacrsEndpointARN = lens _uewacrsEndpointARN (\ s a -> s{_uewacrsEndpointARN = a})++instance NFData+           UpdateEndpointWeightsAndCapacitiesResponse+         where
+ gen/Network/AWS/SageMaker/UpdateNotebookInstance.hs view
@@ -0,0 +1,149 @@+{-# 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.SageMaker.UpdateNotebookInstance+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a notebook instance. NotebookInstance updates include upgrading or downgrading the ML compute instance used for your notebook instance to accommodate changes in your workload requirements. You can also update the VPC security groups.+--+--+module Network.AWS.SageMaker.UpdateNotebookInstance+    (+    -- * Creating a Request+      updateNotebookInstance+    , UpdateNotebookInstance+    -- * Request Lenses+    , uniInstanceType+    , uniRoleARN+    , uniNotebookInstanceName++    -- * Destructuring the Response+    , updateNotebookInstanceResponse+    , UpdateNotebookInstanceResponse+    -- * Response Lenses+    , unirsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'updateNotebookInstance' smart constructor.+data UpdateNotebookInstance = UpdateNotebookInstance'+  { _uniInstanceType         :: !(Maybe InstanceType)+  , _uniRoleARN              :: !(Maybe Text)+  , _uniNotebookInstanceName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateNotebookInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uniInstanceType' - The Amazon ML compute instance type.+--+-- * 'uniRoleARN' - Amazon Resource Name (ARN) of the IAM role to associate with the instance.+--+-- * 'uniNotebookInstanceName' - The name of the notebook instance to update.+updateNotebookInstance+    :: Text -- ^ 'uniNotebookInstanceName'+    -> UpdateNotebookInstance+updateNotebookInstance pNotebookInstanceName_ =+  UpdateNotebookInstance'+    { _uniInstanceType = Nothing+    , _uniRoleARN = Nothing+    , _uniNotebookInstanceName = pNotebookInstanceName_+    }+++-- | The Amazon ML compute instance type.+uniInstanceType :: Lens' UpdateNotebookInstance (Maybe InstanceType)+uniInstanceType = lens _uniInstanceType (\ s a -> s{_uniInstanceType = a})++-- | Amazon Resource Name (ARN) of the IAM role to associate with the instance.+uniRoleARN :: Lens' UpdateNotebookInstance (Maybe Text)+uniRoleARN = lens _uniRoleARN (\ s a -> s{_uniRoleARN = a})++-- | The name of the notebook instance to update.+uniNotebookInstanceName :: Lens' UpdateNotebookInstance Text+uniNotebookInstanceName = lens _uniNotebookInstanceName (\ s a -> s{_uniNotebookInstanceName = a})++instance AWSRequest UpdateNotebookInstance where+        type Rs UpdateNotebookInstance =+             UpdateNotebookInstanceResponse+        request = postJSON sageMaker+        response+          = receiveEmpty+              (\ s h x ->+                 UpdateNotebookInstanceResponse' <$>+                   (pure (fromEnum s)))++instance Hashable UpdateNotebookInstance where++instance NFData UpdateNotebookInstance where++instance ToHeaders UpdateNotebookInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.UpdateNotebookInstance" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateNotebookInstance where+        toJSON UpdateNotebookInstance'{..}+          = object+              (catMaybes+                 [("InstanceType" .=) <$> _uniInstanceType,+                  ("RoleArn" .=) <$> _uniRoleARN,+                  Just+                    ("NotebookInstanceName" .=+                       _uniNotebookInstanceName)])++instance ToPath UpdateNotebookInstance where+        toPath = const "/"++instance ToQuery UpdateNotebookInstance where+        toQuery = const mempty++-- | /See:/ 'updateNotebookInstanceResponse' smart constructor.+newtype UpdateNotebookInstanceResponse = UpdateNotebookInstanceResponse'+  { _unirsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateNotebookInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'unirsResponseStatus' - -- | The response status code.+updateNotebookInstanceResponse+    :: Int -- ^ 'unirsResponseStatus'+    -> UpdateNotebookInstanceResponse+updateNotebookInstanceResponse pResponseStatus_ =+  UpdateNotebookInstanceResponse' {_unirsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+unirsResponseStatus :: Lens' UpdateNotebookInstanceResponse Int+unirsResponseStatus = lens _unirsResponseStatus (\ s a -> s{_unirsResponseStatus = a})++instance NFData UpdateNotebookInstanceResponse where
+ gen/Network/AWS/SageMaker/UpdateNotebookInstanceLifecycleConfig.hs view
@@ -0,0 +1,165 @@+{-# 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.SageMaker.UpdateNotebookInstanceLifecycleConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a notebook instance lifecycle configuration created with the API.+--+--+module Network.AWS.SageMaker.UpdateNotebookInstanceLifecycleConfig+    (+    -- * Creating a Request+      updateNotebookInstanceLifecycleConfig+    , UpdateNotebookInstanceLifecycleConfig+    -- * Request Lenses+    , unilcOnCreate+    , unilcOnStart+    , unilcNotebookInstanceLifecycleConfigName++    -- * Destructuring the Response+    , updateNotebookInstanceLifecycleConfigResponse+    , UpdateNotebookInstanceLifecycleConfigResponse+    -- * Response Lenses+    , unilcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SageMaker.Types+import Network.AWS.SageMaker.Types.Product++-- | /See:/ 'updateNotebookInstanceLifecycleConfig' smart constructor.+data UpdateNotebookInstanceLifecycleConfig = UpdateNotebookInstanceLifecycleConfig'+  { _unilcOnCreate :: !(Maybe [NotebookInstanceLifecycleHook])+  , _unilcOnStart :: !(Maybe [NotebookInstanceLifecycleHook])+  , _unilcNotebookInstanceLifecycleConfigName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateNotebookInstanceLifecycleConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'unilcOnCreate' - The shell script that runs only once, when you create a notebook instance+--+-- * 'unilcOnStart' - The shell script that runs every time you start a notebook instance, including when you create the notebook instance.+--+-- * 'unilcNotebookInstanceLifecycleConfigName' - The name of the lifecycle configuration.+updateNotebookInstanceLifecycleConfig+    :: Text -- ^ 'unilcNotebookInstanceLifecycleConfigName'+    -> UpdateNotebookInstanceLifecycleConfig+updateNotebookInstanceLifecycleConfig pNotebookInstanceLifecycleConfigName_ =+  UpdateNotebookInstanceLifecycleConfig'+    { _unilcOnCreate = Nothing+    , _unilcOnStart = Nothing+    , _unilcNotebookInstanceLifecycleConfigName =+        pNotebookInstanceLifecycleConfigName_+    }+++-- | The shell script that runs only once, when you create a notebook instance+unilcOnCreate :: Lens' UpdateNotebookInstanceLifecycleConfig [NotebookInstanceLifecycleHook]+unilcOnCreate = lens _unilcOnCreate (\ s a -> s{_unilcOnCreate = a}) . _Default . _Coerce++-- | The shell script that runs every time you start a notebook instance, including when you create the notebook instance.+unilcOnStart :: Lens' UpdateNotebookInstanceLifecycleConfig [NotebookInstanceLifecycleHook]+unilcOnStart = lens _unilcOnStart (\ s a -> s{_unilcOnStart = a}) . _Default . _Coerce++-- | The name of the lifecycle configuration.+unilcNotebookInstanceLifecycleConfigName :: Lens' UpdateNotebookInstanceLifecycleConfig Text+unilcNotebookInstanceLifecycleConfigName = lens _unilcNotebookInstanceLifecycleConfigName (\ s a -> s{_unilcNotebookInstanceLifecycleConfigName = a})++instance AWSRequest+           UpdateNotebookInstanceLifecycleConfig+         where+        type Rs UpdateNotebookInstanceLifecycleConfig =+             UpdateNotebookInstanceLifecycleConfigResponse+        request = postJSON sageMaker+        response+          = receiveEmpty+              (\ s h x ->+                 UpdateNotebookInstanceLifecycleConfigResponse' <$>+                   (pure (fromEnum s)))++instance Hashable+           UpdateNotebookInstanceLifecycleConfig+         where++instance NFData UpdateNotebookInstanceLifecycleConfig+         where++instance ToHeaders+           UpdateNotebookInstanceLifecycleConfig+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SageMaker.UpdateNotebookInstanceLifecycleConfig" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateNotebookInstanceLifecycleConfig+         where+        toJSON UpdateNotebookInstanceLifecycleConfig'{..}+          = object+              (catMaybes+                 [("OnCreate" .=) <$> _unilcOnCreate,+                  ("OnStart" .=) <$> _unilcOnStart,+                  Just+                    ("NotebookInstanceLifecycleConfigName" .=+                       _unilcNotebookInstanceLifecycleConfigName)])++instance ToPath UpdateNotebookInstanceLifecycleConfig+         where+        toPath = const "/"++instance ToQuery+           UpdateNotebookInstanceLifecycleConfig+         where+        toQuery = const mempty++-- | /See:/ 'updateNotebookInstanceLifecycleConfigResponse' smart constructor.+newtype UpdateNotebookInstanceLifecycleConfigResponse = UpdateNotebookInstanceLifecycleConfigResponse'+  { _unilcrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateNotebookInstanceLifecycleConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'unilcrsResponseStatus' - -- | The response status code.+updateNotebookInstanceLifecycleConfigResponse+    :: Int -- ^ 'unilcrsResponseStatus'+    -> UpdateNotebookInstanceLifecycleConfigResponse+updateNotebookInstanceLifecycleConfigResponse pResponseStatus_ =+  UpdateNotebookInstanceLifecycleConfigResponse'+    {_unilcrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+unilcrsResponseStatus :: Lens' UpdateNotebookInstanceLifecycleConfigResponse Int+unilcrsResponseStatus = lens _unilcrsResponseStatus (\ s a -> s{_unilcrsResponseStatus = a})++instance NFData+           UpdateNotebookInstanceLifecycleConfigResponse+         where
+ gen/Network/AWS/SageMaker/Waiters.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE TypeFamilies      #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SageMaker.Waiters+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.SageMaker.Waiters where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.SageMaker.DescribeEndpoint+import Network.AWS.SageMaker.DescribeEndpoint+import Network.AWS.SageMaker.DescribeNotebookInstance+import Network.AWS.SageMaker.DescribeNotebookInstance+import Network.AWS.SageMaker.DescribeNotebookInstance+import Network.AWS.SageMaker.DescribeTrainingJob+import Network.AWS.SageMaker.Types+import Network.AWS.Waiter++-- | Polls 'Network.AWS.SageMaker.DescribeNotebookInstance' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks.+notebookInstanceDeleted :: Wait DescribeNotebookInstance+notebookInstanceDeleted =+  Wait+    { _waitName = "NotebookInstanceDeleted"+    , _waitAttempts = 60+    , _waitDelay = 30+    , _waitAcceptors =+        [ matchError "ValidationException" AcceptSuccess+        , matchAll+            "Failed"+            AcceptFailure+            (dnirsNotebookInstanceStatus . to toTextCI)+        ]+    }+++-- | Polls 'Network.AWS.SageMaker.DescribeEndpoint' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks.+endpointDeleted :: Wait DescribeEndpoint+endpointDeleted =+  Wait+    { _waitName = "EndpointDeleted"+    , _waitAttempts = 60+    , _waitDelay = 30+    , _waitAcceptors =+        [ matchError "ValidationException" AcceptSuccess+        , matchAll "Failed" AcceptFailure (dersEndpointStatus . to toTextCI)+        ]+    }+++-- | Polls 'Network.AWS.SageMaker.DescribeEndpoint' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks.+endpointInService :: Wait DescribeEndpoint+endpointInService =+  Wait+    { _waitName = "EndpointInService"+    , _waitAttempts = 120+    , _waitDelay = 30+    , _waitAcceptors =+        [ matchAll "InService" AcceptSuccess (dersEndpointStatus . to toTextCI)+        , matchAll "Failed" AcceptFailure (dersEndpointStatus . to toTextCI)+        , matchError "ValidationException" AcceptFailure+        ]+    }+++-- | Polls 'Network.AWS.SageMaker.DescribeNotebookInstance' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks.+notebookInstanceInService :: Wait DescribeNotebookInstance+notebookInstanceInService =+  Wait+    { _waitName = "NotebookInstanceInService"+    , _waitAttempts = 60+    , _waitDelay = 30+    , _waitAcceptors =+        [ matchAll+            "InService"+            AcceptSuccess+            (dnirsNotebookInstanceStatus . to toTextCI)+        , matchAll+            "Failed"+            AcceptFailure+            (dnirsNotebookInstanceStatus . to toTextCI)+        ]+    }+++-- | Polls 'Network.AWS.SageMaker.DescribeTrainingJob' every 120 seconds until a successful state is reached. An error is returned after 180 failed checks.+trainingJobCompletedOrStopped :: Wait DescribeTrainingJob+trainingJobCompletedOrStopped =+  Wait+    { _waitName = "TrainingJobCompletedOrStopped"+    , _waitAttempts = 180+    , _waitDelay = 120+    , _waitAcceptors =+        [ matchAll+            "Completed"+            AcceptSuccess+            (dtjrsTrainingJobStatus . to toTextCI)+        , matchAll+            "Stopped"+            AcceptSuccess+            (dtjrsTrainingJobStatus . to toTextCI)+        , matchAll "Failed" AcceptFailure (dtjrsTrainingJobStatus . to toTextCI)+        , matchError "ValidationException" AcceptFailure+        ]+    }+++-- | Polls 'Network.AWS.SageMaker.DescribeNotebookInstance' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks.+notebookInstanceStopped :: Wait DescribeNotebookInstance+notebookInstanceStopped =+  Wait+    { _waitName = "NotebookInstanceStopped"+    , _waitAttempts = 60+    , _waitDelay = 30+    , _waitAcceptors =+        [ matchAll+            "Stopped"+            AcceptSuccess+            (dnirsNotebookInstanceStatus . to toTextCI)+        , matchAll+            "Failed"+            AcceptFailure+            (dnirsNotebookInstanceStatus . to toTextCI)+        ]+    }+
+ src/.gitkeep view
+ test/Main.hs view
@@ -0,0 +1,21 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Main+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Main (main) where++import Test.Tasty+import Test.AWS.SageMaker+import Test.AWS.SageMaker.Internal++main :: IO ()+main = defaultMain $ testGroup "SageMaker"+    [ testGroup "tests"    tests+    , testGroup "fixtures" fixtures+    ]
+ test/Test/AWS/Gen/SageMaker.hs view
@@ -0,0 +1,651 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-orphans        #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.AWS.Gen.SageMaker+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Test.AWS.Gen.SageMaker where++import Data.Proxy+import Network.AWS.SageMaker+import Test.AWS.Fixture+import Test.AWS.Prelude+import Test.AWS.SageMaker.Internal+import Test.Tasty++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ requestCreateNotebookInstance $+--             createNotebookInstance+--+--         , requestDescribeEndpointConfig $+--             describeEndpointConfig+--+--         , requestCreateEndpoint $+--             createEndpoint+--+--         , requestDescribeTrainingJob $+--             describeTrainingJob+--+--         , requestDeleteEndpoint $+--             deleteEndpoint+--+--         , requestUpdateEndpoint $+--             updateEndpoint+--+--         , requestDeleteNotebookInstanceLifecycleConfig $+--             deleteNotebookInstanceLifecycleConfig+--+--         , requestUpdateNotebookInstanceLifecycleConfig $+--             updateNotebookInstanceLifecycleConfig+--+--         , requestDescribeNotebookInstance $+--             describeNotebookInstance+--+--         , requestCreateEndpointConfig $+--             createEndpointConfig+--+--         , requestStopNotebookInstance $+--             stopNotebookInstance+--+--         , requestUpdateEndpointWeightsAndCapacities $+--             updateEndpointWeightsAndCapacities+--+--         , requestDeleteTags $+--             deleteTags+--+--         , requestDeleteEndpointConfig $+--             deleteEndpointConfig+--+--         , requestCreateModel $+--             createModel+--+--         , requestDeleteModel $+--             deleteModel+--+--         , requestListModels $+--             listModels+--+--         , requestDescribeNotebookInstanceLifecycleConfig $+--             describeNotebookInstanceLifecycleConfig+--+--         , requestListNotebookInstances $+--             listNotebookInstances+--+--         , requestDeleteNotebookInstance $+--             deleteNotebookInstance+--+--         , requestUpdateNotebookInstance $+--             updateNotebookInstance+--+--         , requestStopTrainingJob $+--             stopTrainingJob+--+--         , requestDescribeModel $+--             describeModel+--+--         , requestListEndpoints $+--             listEndpoints+--+--         , requestCreatePresignedNotebookInstanceURL $+--             createPresignedNotebookInstanceURL+--+--         , requestListNotebookInstanceLifecycleConfigs $+--             listNotebookInstanceLifecycleConfigs+--+--         , requestCreateNotebookInstanceLifecycleConfig $+--             createNotebookInstanceLifecycleConfig+--+--         , requestStartNotebookInstance $+--             startNotebookInstance+--+--         , requestAddTags $+--             addTags+--+--         , requestListEndpointConfigs $+--             listEndpointConfigs+--+--         , requestListTags $+--             listTags+--+--         , requestCreateTrainingJob $+--             createTrainingJob+--+--         , requestDescribeEndpoint $+--             describeEndpoint+--+--         , requestListTrainingJobs $+--             listTrainingJobs+--+--           ]++--     , testGroup "response"+--         [ responseCreateNotebookInstance $+--             createNotebookInstanceResponse+--+--         , responseDescribeEndpointConfig $+--             describeEndpointConfigResponse+--+--         , responseCreateEndpoint $+--             createEndpointResponse+--+--         , responseDescribeTrainingJob $+--             describeTrainingJobResponse+--+--         , responseDeleteEndpoint $+--             deleteEndpointResponse+--+--         , responseUpdateEndpoint $+--             updateEndpointResponse+--+--         , responseDeleteNotebookInstanceLifecycleConfig $+--             deleteNotebookInstanceLifecycleConfigResponse+--+--         , responseUpdateNotebookInstanceLifecycleConfig $+--             updateNotebookInstanceLifecycleConfigResponse+--+--         , responseDescribeNotebookInstance $+--             describeNotebookInstanceResponse+--+--         , responseCreateEndpointConfig $+--             createEndpointConfigResponse+--+--         , responseStopNotebookInstance $+--             stopNotebookInstanceResponse+--+--         , responseUpdateEndpointWeightsAndCapacities $+--             updateEndpointWeightsAndCapacitiesResponse+--+--         , responseDeleteTags $+--             deleteTagsResponse+--+--         , responseDeleteEndpointConfig $+--             deleteEndpointConfigResponse+--+--         , responseCreateModel $+--             createModelResponse+--+--         , responseDeleteModel $+--             deleteModelResponse+--+--         , responseListModels $+--             listModelsResponse+--+--         , responseDescribeNotebookInstanceLifecycleConfig $+--             describeNotebookInstanceLifecycleConfigResponse+--+--         , responseListNotebookInstances $+--             listNotebookInstancesResponse+--+--         , responseDeleteNotebookInstance $+--             deleteNotebookInstanceResponse+--+--         , responseUpdateNotebookInstance $+--             updateNotebookInstanceResponse+--+--         , responseStopTrainingJob $+--             stopTrainingJobResponse+--+--         , responseDescribeModel $+--             describeModelResponse+--+--         , responseListEndpoints $+--             listEndpointsResponse+--+--         , responseCreatePresignedNotebookInstanceURL $+--             createPresignedNotebookInstanceURLResponse+--+--         , responseListNotebookInstanceLifecycleConfigs $+--             listNotebookInstanceLifecycleConfigsResponse+--+--         , responseCreateNotebookInstanceLifecycleConfig $+--             createNotebookInstanceLifecycleConfigResponse+--+--         , responseStartNotebookInstance $+--             startNotebookInstanceResponse+--+--         , responseAddTags $+--             addTagsResponse+--+--         , responseListEndpointConfigs $+--             listEndpointConfigsResponse+--+--         , responseListTags $+--             listTagsResponse+--+--         , responseCreateTrainingJob $+--             createTrainingJobResponse+--+--         , responseDescribeEndpoint $+--             describeEndpointResponse+--+--         , responseListTrainingJobs $+--             listTrainingJobsResponse+--+--           ]+--     ]++-- Requests++requestCreateNotebookInstance :: CreateNotebookInstance -> TestTree+requestCreateNotebookInstance = req+    "CreateNotebookInstance"+    "fixture/CreateNotebookInstance.yaml"++requestDescribeEndpointConfig :: DescribeEndpointConfig -> TestTree+requestDescribeEndpointConfig = req+    "DescribeEndpointConfig"+    "fixture/DescribeEndpointConfig.yaml"++requestCreateEndpoint :: CreateEndpoint -> TestTree+requestCreateEndpoint = req+    "CreateEndpoint"+    "fixture/CreateEndpoint.yaml"++requestDescribeTrainingJob :: DescribeTrainingJob -> TestTree+requestDescribeTrainingJob = req+    "DescribeTrainingJob"+    "fixture/DescribeTrainingJob.yaml"++requestDeleteEndpoint :: DeleteEndpoint -> TestTree+requestDeleteEndpoint = req+    "DeleteEndpoint"+    "fixture/DeleteEndpoint.yaml"++requestUpdateEndpoint :: UpdateEndpoint -> TestTree+requestUpdateEndpoint = req+    "UpdateEndpoint"+    "fixture/UpdateEndpoint.yaml"++requestDeleteNotebookInstanceLifecycleConfig :: DeleteNotebookInstanceLifecycleConfig -> TestTree+requestDeleteNotebookInstanceLifecycleConfig = req+    "DeleteNotebookInstanceLifecycleConfig"+    "fixture/DeleteNotebookInstanceLifecycleConfig.yaml"++requestUpdateNotebookInstanceLifecycleConfig :: UpdateNotebookInstanceLifecycleConfig -> TestTree+requestUpdateNotebookInstanceLifecycleConfig = req+    "UpdateNotebookInstanceLifecycleConfig"+    "fixture/UpdateNotebookInstanceLifecycleConfig.yaml"++requestDescribeNotebookInstance :: DescribeNotebookInstance -> TestTree+requestDescribeNotebookInstance = req+    "DescribeNotebookInstance"+    "fixture/DescribeNotebookInstance.yaml"++requestCreateEndpointConfig :: CreateEndpointConfig -> TestTree+requestCreateEndpointConfig = req+    "CreateEndpointConfig"+    "fixture/CreateEndpointConfig.yaml"++requestStopNotebookInstance :: StopNotebookInstance -> TestTree+requestStopNotebookInstance = req+    "StopNotebookInstance"+    "fixture/StopNotebookInstance.yaml"++requestUpdateEndpointWeightsAndCapacities :: UpdateEndpointWeightsAndCapacities -> TestTree+requestUpdateEndpointWeightsAndCapacities = req+    "UpdateEndpointWeightsAndCapacities"+    "fixture/UpdateEndpointWeightsAndCapacities.yaml"++requestDeleteTags :: DeleteTags -> TestTree+requestDeleteTags = req+    "DeleteTags"+    "fixture/DeleteTags.yaml"++requestDeleteEndpointConfig :: DeleteEndpointConfig -> TestTree+requestDeleteEndpointConfig = req+    "DeleteEndpointConfig"+    "fixture/DeleteEndpointConfig.yaml"++requestCreateModel :: CreateModel -> TestTree+requestCreateModel = req+    "CreateModel"+    "fixture/CreateModel.yaml"++requestDeleteModel :: DeleteModel -> TestTree+requestDeleteModel = req+    "DeleteModel"+    "fixture/DeleteModel.yaml"++requestListModels :: ListModels -> TestTree+requestListModels = req+    "ListModels"+    "fixture/ListModels.yaml"++requestDescribeNotebookInstanceLifecycleConfig :: DescribeNotebookInstanceLifecycleConfig -> TestTree+requestDescribeNotebookInstanceLifecycleConfig = req+    "DescribeNotebookInstanceLifecycleConfig"+    "fixture/DescribeNotebookInstanceLifecycleConfig.yaml"++requestListNotebookInstances :: ListNotebookInstances -> TestTree+requestListNotebookInstances = req+    "ListNotebookInstances"+    "fixture/ListNotebookInstances.yaml"++requestDeleteNotebookInstance :: DeleteNotebookInstance -> TestTree+requestDeleteNotebookInstance = req+    "DeleteNotebookInstance"+    "fixture/DeleteNotebookInstance.yaml"++requestUpdateNotebookInstance :: UpdateNotebookInstance -> TestTree+requestUpdateNotebookInstance = req+    "UpdateNotebookInstance"+    "fixture/UpdateNotebookInstance.yaml"++requestStopTrainingJob :: StopTrainingJob -> TestTree+requestStopTrainingJob = req+    "StopTrainingJob"+    "fixture/StopTrainingJob.yaml"++requestDescribeModel :: DescribeModel -> TestTree+requestDescribeModel = req+    "DescribeModel"+    "fixture/DescribeModel.yaml"++requestListEndpoints :: ListEndpoints -> TestTree+requestListEndpoints = req+    "ListEndpoints"+    "fixture/ListEndpoints.yaml"++requestCreatePresignedNotebookInstanceURL :: CreatePresignedNotebookInstanceURL -> TestTree+requestCreatePresignedNotebookInstanceURL = req+    "CreatePresignedNotebookInstanceURL"+    "fixture/CreatePresignedNotebookInstanceURL.yaml"++requestListNotebookInstanceLifecycleConfigs :: ListNotebookInstanceLifecycleConfigs -> TestTree+requestListNotebookInstanceLifecycleConfigs = req+    "ListNotebookInstanceLifecycleConfigs"+    "fixture/ListNotebookInstanceLifecycleConfigs.yaml"++requestCreateNotebookInstanceLifecycleConfig :: CreateNotebookInstanceLifecycleConfig -> TestTree+requestCreateNotebookInstanceLifecycleConfig = req+    "CreateNotebookInstanceLifecycleConfig"+    "fixture/CreateNotebookInstanceLifecycleConfig.yaml"++requestStartNotebookInstance :: StartNotebookInstance -> TestTree+requestStartNotebookInstance = req+    "StartNotebookInstance"+    "fixture/StartNotebookInstance.yaml"++requestAddTags :: AddTags -> TestTree+requestAddTags = req+    "AddTags"+    "fixture/AddTags.yaml"++requestListEndpointConfigs :: ListEndpointConfigs -> TestTree+requestListEndpointConfigs = req+    "ListEndpointConfigs"+    "fixture/ListEndpointConfigs.yaml"++requestListTags :: ListTags -> TestTree+requestListTags = req+    "ListTags"+    "fixture/ListTags.yaml"++requestCreateTrainingJob :: CreateTrainingJob -> TestTree+requestCreateTrainingJob = req+    "CreateTrainingJob"+    "fixture/CreateTrainingJob.yaml"++requestDescribeEndpoint :: DescribeEndpoint -> TestTree+requestDescribeEndpoint = req+    "DescribeEndpoint"+    "fixture/DescribeEndpoint.yaml"++requestListTrainingJobs :: ListTrainingJobs -> TestTree+requestListTrainingJobs = req+    "ListTrainingJobs"+    "fixture/ListTrainingJobs.yaml"++-- Responses++responseCreateNotebookInstance :: CreateNotebookInstanceResponse -> TestTree+responseCreateNotebookInstance = res+    "CreateNotebookInstanceResponse"+    "fixture/CreateNotebookInstanceResponse.proto"+    sageMaker+    (Proxy :: Proxy CreateNotebookInstance)++responseDescribeEndpointConfig :: DescribeEndpointConfigResponse -> TestTree+responseDescribeEndpointConfig = res+    "DescribeEndpointConfigResponse"+    "fixture/DescribeEndpointConfigResponse.proto"+    sageMaker+    (Proxy :: Proxy DescribeEndpointConfig)++responseCreateEndpoint :: CreateEndpointResponse -> TestTree+responseCreateEndpoint = res+    "CreateEndpointResponse"+    "fixture/CreateEndpointResponse.proto"+    sageMaker+    (Proxy :: Proxy CreateEndpoint)++responseDescribeTrainingJob :: DescribeTrainingJobResponse -> TestTree+responseDescribeTrainingJob = res+    "DescribeTrainingJobResponse"+    "fixture/DescribeTrainingJobResponse.proto"+    sageMaker+    (Proxy :: Proxy DescribeTrainingJob)++responseDeleteEndpoint :: DeleteEndpointResponse -> TestTree+responseDeleteEndpoint = res+    "DeleteEndpointResponse"+    "fixture/DeleteEndpointResponse.proto"+    sageMaker+    (Proxy :: Proxy DeleteEndpoint)++responseUpdateEndpoint :: UpdateEndpointResponse -> TestTree+responseUpdateEndpoint = res+    "UpdateEndpointResponse"+    "fixture/UpdateEndpointResponse.proto"+    sageMaker+    (Proxy :: Proxy UpdateEndpoint)++responseDeleteNotebookInstanceLifecycleConfig :: DeleteNotebookInstanceLifecycleConfigResponse -> TestTree+responseDeleteNotebookInstanceLifecycleConfig = res+    "DeleteNotebookInstanceLifecycleConfigResponse"+    "fixture/DeleteNotebookInstanceLifecycleConfigResponse.proto"+    sageMaker+    (Proxy :: Proxy DeleteNotebookInstanceLifecycleConfig)++responseUpdateNotebookInstanceLifecycleConfig :: UpdateNotebookInstanceLifecycleConfigResponse -> TestTree+responseUpdateNotebookInstanceLifecycleConfig = res+    "UpdateNotebookInstanceLifecycleConfigResponse"+    "fixture/UpdateNotebookInstanceLifecycleConfigResponse.proto"+    sageMaker+    (Proxy :: Proxy UpdateNotebookInstanceLifecycleConfig)++responseDescribeNotebookInstance :: DescribeNotebookInstanceResponse -> TestTree+responseDescribeNotebookInstance = res+    "DescribeNotebookInstanceResponse"+    "fixture/DescribeNotebookInstanceResponse.proto"+    sageMaker+    (Proxy :: Proxy DescribeNotebookInstance)++responseCreateEndpointConfig :: CreateEndpointConfigResponse -> TestTree+responseCreateEndpointConfig = res+    "CreateEndpointConfigResponse"+    "fixture/CreateEndpointConfigResponse.proto"+    sageMaker+    (Proxy :: Proxy CreateEndpointConfig)++responseStopNotebookInstance :: StopNotebookInstanceResponse -> TestTree+responseStopNotebookInstance = res+    "StopNotebookInstanceResponse"+    "fixture/StopNotebookInstanceResponse.proto"+    sageMaker+    (Proxy :: Proxy StopNotebookInstance)++responseUpdateEndpointWeightsAndCapacities :: UpdateEndpointWeightsAndCapacitiesResponse -> TestTree+responseUpdateEndpointWeightsAndCapacities = res+    "UpdateEndpointWeightsAndCapacitiesResponse"+    "fixture/UpdateEndpointWeightsAndCapacitiesResponse.proto"+    sageMaker+    (Proxy :: Proxy UpdateEndpointWeightsAndCapacities)++responseDeleteTags :: DeleteTagsResponse -> TestTree+responseDeleteTags = res+    "DeleteTagsResponse"+    "fixture/DeleteTagsResponse.proto"+    sageMaker+    (Proxy :: Proxy DeleteTags)++responseDeleteEndpointConfig :: DeleteEndpointConfigResponse -> TestTree+responseDeleteEndpointConfig = res+    "DeleteEndpointConfigResponse"+    "fixture/DeleteEndpointConfigResponse.proto"+    sageMaker+    (Proxy :: Proxy DeleteEndpointConfig)++responseCreateModel :: CreateModelResponse -> TestTree+responseCreateModel = res+    "CreateModelResponse"+    "fixture/CreateModelResponse.proto"+    sageMaker+    (Proxy :: Proxy CreateModel)++responseDeleteModel :: DeleteModelResponse -> TestTree+responseDeleteModel = res+    "DeleteModelResponse"+    "fixture/DeleteModelResponse.proto"+    sageMaker+    (Proxy :: Proxy DeleteModel)++responseListModels :: ListModelsResponse -> TestTree+responseListModels = res+    "ListModelsResponse"+    "fixture/ListModelsResponse.proto"+    sageMaker+    (Proxy :: Proxy ListModels)++responseDescribeNotebookInstanceLifecycleConfig :: DescribeNotebookInstanceLifecycleConfigResponse -> TestTree+responseDescribeNotebookInstanceLifecycleConfig = res+    "DescribeNotebookInstanceLifecycleConfigResponse"+    "fixture/DescribeNotebookInstanceLifecycleConfigResponse.proto"+    sageMaker+    (Proxy :: Proxy DescribeNotebookInstanceLifecycleConfig)++responseListNotebookInstances :: ListNotebookInstancesResponse -> TestTree+responseListNotebookInstances = res+    "ListNotebookInstancesResponse"+    "fixture/ListNotebookInstancesResponse.proto"+    sageMaker+    (Proxy :: Proxy ListNotebookInstances)++responseDeleteNotebookInstance :: DeleteNotebookInstanceResponse -> TestTree+responseDeleteNotebookInstance = res+    "DeleteNotebookInstanceResponse"+    "fixture/DeleteNotebookInstanceResponse.proto"+    sageMaker+    (Proxy :: Proxy DeleteNotebookInstance)++responseUpdateNotebookInstance :: UpdateNotebookInstanceResponse -> TestTree+responseUpdateNotebookInstance = res+    "UpdateNotebookInstanceResponse"+    "fixture/UpdateNotebookInstanceResponse.proto"+    sageMaker+    (Proxy :: Proxy UpdateNotebookInstance)++responseStopTrainingJob :: StopTrainingJobResponse -> TestTree+responseStopTrainingJob = res+    "StopTrainingJobResponse"+    "fixture/StopTrainingJobResponse.proto"+    sageMaker+    (Proxy :: Proxy StopTrainingJob)++responseDescribeModel :: DescribeModelResponse -> TestTree+responseDescribeModel = res+    "DescribeModelResponse"+    "fixture/DescribeModelResponse.proto"+    sageMaker+    (Proxy :: Proxy DescribeModel)++responseListEndpoints :: ListEndpointsResponse -> TestTree+responseListEndpoints = res+    "ListEndpointsResponse"+    "fixture/ListEndpointsResponse.proto"+    sageMaker+    (Proxy :: Proxy ListEndpoints)++responseCreatePresignedNotebookInstanceURL :: CreatePresignedNotebookInstanceURLResponse -> TestTree+responseCreatePresignedNotebookInstanceURL = res+    "CreatePresignedNotebookInstanceURLResponse"+    "fixture/CreatePresignedNotebookInstanceURLResponse.proto"+    sageMaker+    (Proxy :: Proxy CreatePresignedNotebookInstanceURL)++responseListNotebookInstanceLifecycleConfigs :: ListNotebookInstanceLifecycleConfigsResponse -> TestTree+responseListNotebookInstanceLifecycleConfigs = res+    "ListNotebookInstanceLifecycleConfigsResponse"+    "fixture/ListNotebookInstanceLifecycleConfigsResponse.proto"+    sageMaker+    (Proxy :: Proxy ListNotebookInstanceLifecycleConfigs)++responseCreateNotebookInstanceLifecycleConfig :: CreateNotebookInstanceLifecycleConfigResponse -> TestTree+responseCreateNotebookInstanceLifecycleConfig = res+    "CreateNotebookInstanceLifecycleConfigResponse"+    "fixture/CreateNotebookInstanceLifecycleConfigResponse.proto"+    sageMaker+    (Proxy :: Proxy CreateNotebookInstanceLifecycleConfig)++responseStartNotebookInstance :: StartNotebookInstanceResponse -> TestTree+responseStartNotebookInstance = res+    "StartNotebookInstanceResponse"+    "fixture/StartNotebookInstanceResponse.proto"+    sageMaker+    (Proxy :: Proxy StartNotebookInstance)++responseAddTags :: AddTagsResponse -> TestTree+responseAddTags = res+    "AddTagsResponse"+    "fixture/AddTagsResponse.proto"+    sageMaker+    (Proxy :: Proxy AddTags)++responseListEndpointConfigs :: ListEndpointConfigsResponse -> TestTree+responseListEndpointConfigs = res+    "ListEndpointConfigsResponse"+    "fixture/ListEndpointConfigsResponse.proto"+    sageMaker+    (Proxy :: Proxy ListEndpointConfigs)++responseListTags :: ListTagsResponse -> TestTree+responseListTags = res+    "ListTagsResponse"+    "fixture/ListTagsResponse.proto"+    sageMaker+    (Proxy :: Proxy ListTags)++responseCreateTrainingJob :: CreateTrainingJobResponse -> TestTree+responseCreateTrainingJob = res+    "CreateTrainingJobResponse"+    "fixture/CreateTrainingJobResponse.proto"+    sageMaker+    (Proxy :: Proxy CreateTrainingJob)++responseDescribeEndpoint :: DescribeEndpointResponse -> TestTree+responseDescribeEndpoint = res+    "DescribeEndpointResponse"+    "fixture/DescribeEndpointResponse.proto"+    sageMaker+    (Proxy :: Proxy DescribeEndpoint)++responseListTrainingJobs :: ListTrainingJobsResponse -> TestTree+responseListTrainingJobs = res+    "ListTrainingJobsResponse"+    "fixture/ListTrainingJobsResponse.proto"+    sageMaker+    (Proxy :: Proxy ListTrainingJobs)
+ test/Test/AWS/SageMaker.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.AWS.SageMaker+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Test.AWS.SageMaker+    ( tests+    , fixtures+    ) where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/AWS/SageMaker/Internal.hs view
@@ -0,0 +1,9 @@+-- |+-- Module      : Test.AWS.SageMaker.Internal+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Test.AWS.SageMaker.Internal where