packages feed

amazonka-iotdeviceadvisor (empty) → 2.0

raw patch · 68 files changed

+6459/−0 lines, 68 filesdep +amazonka-coredep +amazonka-iotdeviceadvisordep +amazonka-test

Dependencies added: amazonka-core, amazonka-iotdeviceadvisor, amazonka-test, base, bytestring, case-insensitive, 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,44 @@+# Amazon IoT Core Device Advisor SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version+ +`2.0` - Derived from API version @2020-09-18@ of the AWS service descriptions, licensed under Apache 2.0.++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-iotdeviceadvisor)+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 [Amazonka.IoTDeviceAdvisor](http://hackage.haskell.org/package/amazonka-iotdeviceadvisor/docs/Amazonka-IoTDeviceAdvisor.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-iotdeviceadvisor` 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.
+ amazonka-iotdeviceadvisor.cabal view
@@ -0,0 +1,111 @@+cabal-version:      2.2+name:               amazonka-iotdeviceadvisor+version:            2.0+synopsis:           Amazon IoT Core Device Advisor 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>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep++description:+  Derived from API version @2020-09-18@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  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.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.IoTDeviceAdvisor.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.IoTDeviceAdvisor" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.++source-repository head+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-iotdeviceadvisor++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:+    Amazonka.IoTDeviceAdvisor+    Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition+    Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition+    Amazonka.IoTDeviceAdvisor.GetEndpoint+    Amazonka.IoTDeviceAdvisor.GetSuiteDefinition+    Amazonka.IoTDeviceAdvisor.GetSuiteRun+    Amazonka.IoTDeviceAdvisor.GetSuiteRunReport+    Amazonka.IoTDeviceAdvisor.Lens+    Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions+    Amazonka.IoTDeviceAdvisor.ListSuiteRuns+    Amazonka.IoTDeviceAdvisor.ListTagsForResource+    Amazonka.IoTDeviceAdvisor.StartSuiteRun+    Amazonka.IoTDeviceAdvisor.StopSuiteRun+    Amazonka.IoTDeviceAdvisor.TagResource+    Amazonka.IoTDeviceAdvisor.Types+    Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest+    Amazonka.IoTDeviceAdvisor.Types.GroupResult+    Amazonka.IoTDeviceAdvisor.Types.Protocol+    Amazonka.IoTDeviceAdvisor.Types.Status+    Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration+    Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation+    Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration+    Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation+    Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus+    Amazonka.IoTDeviceAdvisor.Types.TestCaseRun+    Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario+    Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus+    Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType+    Amazonka.IoTDeviceAdvisor.Types.TestResult+    Amazonka.IoTDeviceAdvisor.UntagResource+    Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition+    Amazonka.IoTDeviceAdvisor.Waiters++  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5++test-suite amazonka-iotdeviceadvisor-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.Amazonka.Gen.IoTDeviceAdvisor+    Test.Amazonka.IoTDeviceAdvisor+    Test.Amazonka.IoTDeviceAdvisor.Internal++  build-depends:+    , amazonka-core              >=2.0 && <2.1+    , amazonka-iotdeviceadvisor+    , amazonka-test              >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers
+ fixture/CreateSuiteDefinition.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/CreateSuiteDefinitionResponse.proto view
+ fixture/DeleteSuiteDefinition.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/DeleteSuiteDefinitionResponse.proto view
+ fixture/GetEndpoint.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/GetEndpointResponse.proto view
+ fixture/GetSuiteDefinition.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/GetSuiteDefinitionResponse.proto view
+ fixture/GetSuiteRun.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/GetSuiteRunReport.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/GetSuiteRunReportResponse.proto view
+ fixture/GetSuiteRunResponse.proto view
+ fixture/ListSuiteDefinitions.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/ListSuiteDefinitionsResponse.proto view
+ fixture/ListSuiteRuns.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/ListSuiteRunsResponse.proto view
+ fixture/ListTagsForResource.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/ListTagsForResourceResponse.proto view
+ fixture/StartSuiteRun.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/StartSuiteRunResponse.proto view
+ fixture/StopSuiteRun.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/StopSuiteRunResponse.proto view
+ fixture/TagResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/TagResourceResponse.proto view
+ fixture/UntagResource.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/UntagResourceResponse.proto view
+ fixture/UpdateSuiteDefinition.yaml view
@@ -0,0 +1,10 @@+---+method: PATCH+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  api.iotdeviceadvisor.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/UpdateSuiteDefinitionResponse.proto view
+ gen/Amazonka/IoTDeviceAdvisor.hs view
@@ -0,0 +1,233 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.IoTDeviceAdvisor+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2020-09-18@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Web Services IoT Core Device Advisor is a cloud-based, fully+-- managed test capability for validating IoT devices during device+-- software development. Device Advisor provides pre-built tests that you+-- can use to validate IoT devices for reliable and secure connectivity+-- with Amazon Web Services IoT Core before deploying devices to+-- production. By using Device Advisor, you can confirm that your devices+-- can connect to Amazon Web Services IoT Core, follow security best+-- practices and, if applicable, receive software updates from IoT Device+-- Management. You can also download signed qualification reports to submit+-- to the Amazon Web Services Partner Network to get your device qualified+-- for the Amazon Web Services Partner Device Catalog without the need to+-- send your device in and wait for it to be tested.+module Amazonka.IoTDeviceAdvisor+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ConflictException+    _ConflictException,++    -- ** InternalServerException+    _InternalServerException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateSuiteDefinition+    CreateSuiteDefinition (CreateSuiteDefinition'),+    newCreateSuiteDefinition,+    CreateSuiteDefinitionResponse (CreateSuiteDefinitionResponse'),+    newCreateSuiteDefinitionResponse,++    -- ** DeleteSuiteDefinition+    DeleteSuiteDefinition (DeleteSuiteDefinition'),+    newDeleteSuiteDefinition,+    DeleteSuiteDefinitionResponse (DeleteSuiteDefinitionResponse'),+    newDeleteSuiteDefinitionResponse,++    -- ** GetEndpoint+    GetEndpoint (GetEndpoint'),+    newGetEndpoint,+    GetEndpointResponse (GetEndpointResponse'),+    newGetEndpointResponse,++    -- ** GetSuiteDefinition+    GetSuiteDefinition (GetSuiteDefinition'),+    newGetSuiteDefinition,+    GetSuiteDefinitionResponse (GetSuiteDefinitionResponse'),+    newGetSuiteDefinitionResponse,++    -- ** GetSuiteRun+    GetSuiteRun (GetSuiteRun'),+    newGetSuiteRun,+    GetSuiteRunResponse (GetSuiteRunResponse'),+    newGetSuiteRunResponse,++    -- ** GetSuiteRunReport+    GetSuiteRunReport (GetSuiteRunReport'),+    newGetSuiteRunReport,+    GetSuiteRunReportResponse (GetSuiteRunReportResponse'),+    newGetSuiteRunReportResponse,++    -- ** ListSuiteDefinitions+    ListSuiteDefinitions (ListSuiteDefinitions'),+    newListSuiteDefinitions,+    ListSuiteDefinitionsResponse (ListSuiteDefinitionsResponse'),+    newListSuiteDefinitionsResponse,++    -- ** ListSuiteRuns+    ListSuiteRuns (ListSuiteRuns'),+    newListSuiteRuns,+    ListSuiteRunsResponse (ListSuiteRunsResponse'),+    newListSuiteRunsResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** StartSuiteRun+    StartSuiteRun (StartSuiteRun'),+    newStartSuiteRun,+    StartSuiteRunResponse (StartSuiteRunResponse'),+    newStartSuiteRunResponse,++    -- ** StopSuiteRun+    StopSuiteRun (StopSuiteRun'),+    newStopSuiteRun,+    StopSuiteRunResponse (StopSuiteRunResponse'),+    newStopSuiteRunResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateSuiteDefinition+    UpdateSuiteDefinition (UpdateSuiteDefinition'),+    newUpdateSuiteDefinition,+    UpdateSuiteDefinitionResponse (UpdateSuiteDefinitionResponse'),+    newUpdateSuiteDefinitionResponse,++    -- * Types++    -- ** Protocol+    Protocol (..),++    -- ** Status+    Status (..),++    -- ** SuiteRunStatus+    SuiteRunStatus (..),++    -- ** TestCaseScenarioStatus+    TestCaseScenarioStatus (..),++    -- ** TestCaseScenarioType+    TestCaseScenarioType (..),++    -- ** DeviceUnderTest+    DeviceUnderTest (DeviceUnderTest'),+    newDeviceUnderTest,++    -- ** GroupResult+    GroupResult (GroupResult'),+    newGroupResult,++    -- ** SuiteDefinitionConfiguration+    SuiteDefinitionConfiguration (SuiteDefinitionConfiguration'),+    newSuiteDefinitionConfiguration,++    -- ** SuiteDefinitionInformation+    SuiteDefinitionInformation (SuiteDefinitionInformation'),+    newSuiteDefinitionInformation,++    -- ** SuiteRunConfiguration+    SuiteRunConfiguration (SuiteRunConfiguration'),+    newSuiteRunConfiguration,++    -- ** SuiteRunInformation+    SuiteRunInformation (SuiteRunInformation'),+    newSuiteRunInformation,++    -- ** TestCaseRun+    TestCaseRun (TestCaseRun'),+    newTestCaseRun,++    -- ** TestCaseScenario+    TestCaseScenario (TestCaseScenario'),+    newTestCaseScenario,++    -- ** TestResult+    TestResult (TestResult'),+    newTestResult,+  )+where++import Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition+import Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition+import Amazonka.IoTDeviceAdvisor.GetEndpoint+import Amazonka.IoTDeviceAdvisor.GetSuiteDefinition+import Amazonka.IoTDeviceAdvisor.GetSuiteRun+import Amazonka.IoTDeviceAdvisor.GetSuiteRunReport+import Amazonka.IoTDeviceAdvisor.Lens+import Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions+import Amazonka.IoTDeviceAdvisor.ListSuiteRuns+import Amazonka.IoTDeviceAdvisor.ListTagsForResource+import Amazonka.IoTDeviceAdvisor.StartSuiteRun+import Amazonka.IoTDeviceAdvisor.StopSuiteRun+import Amazonka.IoTDeviceAdvisor.TagResource+import Amazonka.IoTDeviceAdvisor.Types+import Amazonka.IoTDeviceAdvisor.UntagResource+import Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition+import Amazonka.IoTDeviceAdvisor.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 'IoTDeviceAdvisor'.++-- $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/Amazonka/IoTDeviceAdvisor/CreateSuiteDefinition.hs view
@@ -0,0 +1,230 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a Device Advisor test suite.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions CreateSuiteDefinition>+-- action.+module Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition+  ( -- * Creating a Request+    CreateSuiteDefinition (..),+    newCreateSuiteDefinition,++    -- * Request Lenses+    createSuiteDefinition_tags,+    createSuiteDefinition_suiteDefinitionConfiguration,++    -- * Destructuring the Response+    CreateSuiteDefinitionResponse (..),+    newCreateSuiteDefinitionResponse,++    -- * Response Lenses+    createSuiteDefinitionResponse_createdAt,+    createSuiteDefinitionResponse_suiteDefinitionArn,+    createSuiteDefinitionResponse_suiteDefinitionId,+    createSuiteDefinitionResponse_suiteDefinitionName,+    createSuiteDefinitionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateSuiteDefinition' smart constructor.+data CreateSuiteDefinition = CreateSuiteDefinition'+  { -- | The tags to be attached to the suite definition.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | Creates a Device Advisor test suite with suite definition configuration.+    suiteDefinitionConfiguration :: SuiteDefinitionConfiguration+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSuiteDefinition' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'createSuiteDefinition_tags' - The tags to be attached to the suite definition.+--+-- 'suiteDefinitionConfiguration', 'createSuiteDefinition_suiteDefinitionConfiguration' - Creates a Device Advisor test suite with suite definition configuration.+newCreateSuiteDefinition ::+  -- | 'suiteDefinitionConfiguration'+  SuiteDefinitionConfiguration ->+  CreateSuiteDefinition+newCreateSuiteDefinition+  pSuiteDefinitionConfiguration_ =+    CreateSuiteDefinition'+      { tags = Prelude.Nothing,+        suiteDefinitionConfiguration =+          pSuiteDefinitionConfiguration_+      }++-- | The tags to be attached to the suite definition.+createSuiteDefinition_tags :: Lens.Lens' CreateSuiteDefinition (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createSuiteDefinition_tags = Lens.lens (\CreateSuiteDefinition' {tags} -> tags) (\s@CreateSuiteDefinition' {} a -> s {tags = a} :: CreateSuiteDefinition) Prelude.. Lens.mapping Lens.coerced++-- | Creates a Device Advisor test suite with suite definition configuration.+createSuiteDefinition_suiteDefinitionConfiguration :: Lens.Lens' CreateSuiteDefinition SuiteDefinitionConfiguration+createSuiteDefinition_suiteDefinitionConfiguration = Lens.lens (\CreateSuiteDefinition' {suiteDefinitionConfiguration} -> suiteDefinitionConfiguration) (\s@CreateSuiteDefinition' {} a -> s {suiteDefinitionConfiguration = a} :: CreateSuiteDefinition)++instance Core.AWSRequest CreateSuiteDefinition where+  type+    AWSResponse CreateSuiteDefinition =+      CreateSuiteDefinitionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateSuiteDefinitionResponse'+            Prelude.<$> (x Data..?> "createdAt")+            Prelude.<*> (x Data..?> "suiteDefinitionArn")+            Prelude.<*> (x Data..?> "suiteDefinitionId")+            Prelude.<*> (x Data..?> "suiteDefinitionName")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateSuiteDefinition where+  hashWithSalt _salt CreateSuiteDefinition' {..} =+    _salt+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` suiteDefinitionConfiguration++instance Prelude.NFData CreateSuiteDefinition where+  rnf CreateSuiteDefinition' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf suiteDefinitionConfiguration++instance Data.ToHeaders CreateSuiteDefinition where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateSuiteDefinition where+  toJSON CreateSuiteDefinition' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just+              ( "suiteDefinitionConfiguration"+                  Data..= suiteDefinitionConfiguration+              )+          ]+      )++instance Data.ToPath CreateSuiteDefinition where+  toPath = Prelude.const "/suiteDefinitions"++instance Data.ToQuery CreateSuiteDefinition where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateSuiteDefinitionResponse' smart constructor.+data CreateSuiteDefinitionResponse = CreateSuiteDefinitionResponse'+  { -- | The timestamp of when the test suite was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the test suite.+    suiteDefinitionArn :: Prelude.Maybe Prelude.Text,+    -- | The UUID of the test suite created.+    suiteDefinitionId :: Prelude.Maybe Prelude.Text,+    -- | The suite definition name of the test suite. This is a required+    -- parameter.+    suiteDefinitionName :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSuiteDefinitionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdAt', 'createSuiteDefinitionResponse_createdAt' - The timestamp of when the test suite was created.+--+-- 'suiteDefinitionArn', 'createSuiteDefinitionResponse_suiteDefinitionArn' - The Amazon Resource Name (ARN) of the test suite.+--+-- 'suiteDefinitionId', 'createSuiteDefinitionResponse_suiteDefinitionId' - The UUID of the test suite created.+--+-- 'suiteDefinitionName', 'createSuiteDefinitionResponse_suiteDefinitionName' - The suite definition name of the test suite. This is a required+-- parameter.+--+-- 'httpStatus', 'createSuiteDefinitionResponse_httpStatus' - The response's http status code.+newCreateSuiteDefinitionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateSuiteDefinitionResponse+newCreateSuiteDefinitionResponse pHttpStatus_ =+  CreateSuiteDefinitionResponse'+    { createdAt =+        Prelude.Nothing,+      suiteDefinitionArn = Prelude.Nothing,+      suiteDefinitionId = Prelude.Nothing,+      suiteDefinitionName = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The timestamp of when the test suite was created.+createSuiteDefinitionResponse_createdAt :: Lens.Lens' CreateSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime)+createSuiteDefinitionResponse_createdAt = Lens.lens (\CreateSuiteDefinitionResponse' {createdAt} -> createdAt) (\s@CreateSuiteDefinitionResponse' {} a -> s {createdAt = a} :: CreateSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the test suite.+createSuiteDefinitionResponse_suiteDefinitionArn :: Lens.Lens' CreateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+createSuiteDefinitionResponse_suiteDefinitionArn = Lens.lens (\CreateSuiteDefinitionResponse' {suiteDefinitionArn} -> suiteDefinitionArn) (\s@CreateSuiteDefinitionResponse' {} a -> s {suiteDefinitionArn = a} :: CreateSuiteDefinitionResponse)++-- | The UUID of the test suite created.+createSuiteDefinitionResponse_suiteDefinitionId :: Lens.Lens' CreateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+createSuiteDefinitionResponse_suiteDefinitionId = Lens.lens (\CreateSuiteDefinitionResponse' {suiteDefinitionId} -> suiteDefinitionId) (\s@CreateSuiteDefinitionResponse' {} a -> s {suiteDefinitionId = a} :: CreateSuiteDefinitionResponse)++-- | The suite definition name of the test suite. This is a required+-- parameter.+createSuiteDefinitionResponse_suiteDefinitionName :: Lens.Lens' CreateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+createSuiteDefinitionResponse_suiteDefinitionName = Lens.lens (\CreateSuiteDefinitionResponse' {suiteDefinitionName} -> suiteDefinitionName) (\s@CreateSuiteDefinitionResponse' {} a -> s {suiteDefinitionName = a} :: CreateSuiteDefinitionResponse)++-- | The response's http status code.+createSuiteDefinitionResponse_httpStatus :: Lens.Lens' CreateSuiteDefinitionResponse Prelude.Int+createSuiteDefinitionResponse_httpStatus = Lens.lens (\CreateSuiteDefinitionResponse' {httpStatus} -> httpStatus) (\s@CreateSuiteDefinitionResponse' {} a -> s {httpStatus = a} :: CreateSuiteDefinitionResponse)++instance Prelude.NFData CreateSuiteDefinitionResponse where+  rnf CreateSuiteDefinitionResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf suiteDefinitionArn+      `Prelude.seq` Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteDefinitionName+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/DeleteSuiteDefinition.hs view
@@ -0,0 +1,155 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a Device Advisor test suite.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions DeleteSuiteDefinition>+-- action.+module Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition+  ( -- * Creating a Request+    DeleteSuiteDefinition (..),+    newDeleteSuiteDefinition,++    -- * Request Lenses+    deleteSuiteDefinition_suiteDefinitionId,++    -- * Destructuring the Response+    DeleteSuiteDefinitionResponse (..),+    newDeleteSuiteDefinitionResponse,++    -- * Response Lenses+    deleteSuiteDefinitionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteSuiteDefinition' smart constructor.+data DeleteSuiteDefinition = DeleteSuiteDefinition'+  { -- | Suite definition ID of the test suite to be deleted.+    suiteDefinitionId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSuiteDefinition' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'suiteDefinitionId', 'deleteSuiteDefinition_suiteDefinitionId' - Suite definition ID of the test suite to be deleted.+newDeleteSuiteDefinition ::+  -- | 'suiteDefinitionId'+  Prelude.Text ->+  DeleteSuiteDefinition+newDeleteSuiteDefinition pSuiteDefinitionId_ =+  DeleteSuiteDefinition'+    { suiteDefinitionId =+        pSuiteDefinitionId_+    }++-- | Suite definition ID of the test suite to be deleted.+deleteSuiteDefinition_suiteDefinitionId :: Lens.Lens' DeleteSuiteDefinition Prelude.Text+deleteSuiteDefinition_suiteDefinitionId = Lens.lens (\DeleteSuiteDefinition' {suiteDefinitionId} -> suiteDefinitionId) (\s@DeleteSuiteDefinition' {} a -> s {suiteDefinitionId = a} :: DeleteSuiteDefinition)++instance Core.AWSRequest DeleteSuiteDefinition where+  type+    AWSResponse DeleteSuiteDefinition =+      DeleteSuiteDefinitionResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteSuiteDefinitionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteSuiteDefinition where+  hashWithSalt _salt DeleteSuiteDefinition' {..} =+    _salt `Prelude.hashWithSalt` suiteDefinitionId++instance Prelude.NFData DeleteSuiteDefinition where+  rnf DeleteSuiteDefinition' {..} =+    Prelude.rnf suiteDefinitionId++instance Data.ToHeaders DeleteSuiteDefinition where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteSuiteDefinition where+  toPath DeleteSuiteDefinition' {..} =+    Prelude.mconcat+      ["/suiteDefinitions/", Data.toBS suiteDefinitionId]++instance Data.ToQuery DeleteSuiteDefinition where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteSuiteDefinitionResponse' smart constructor.+data DeleteSuiteDefinitionResponse = DeleteSuiteDefinitionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSuiteDefinitionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteSuiteDefinitionResponse_httpStatus' - The response's http status code.+newDeleteSuiteDefinitionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteSuiteDefinitionResponse+newDeleteSuiteDefinitionResponse pHttpStatus_ =+  DeleteSuiteDefinitionResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteSuiteDefinitionResponse_httpStatus :: Lens.Lens' DeleteSuiteDefinitionResponse Prelude.Int+deleteSuiteDefinitionResponse_httpStatus = Lens.lens (\DeleteSuiteDefinitionResponse' {httpStatus} -> httpStatus) (\s@DeleteSuiteDefinitionResponse' {} a -> s {httpStatus = a} :: DeleteSuiteDefinitionResponse)++instance Prelude.NFData DeleteSuiteDefinitionResponse where+  rnf DeleteSuiteDefinitionResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/GetEndpoint.hs view
@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.GetEndpoint+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about an Device Advisor endpoint.+module Amazonka.IoTDeviceAdvisor.GetEndpoint+  ( -- * Creating a Request+    GetEndpoint (..),+    newGetEndpoint,++    -- * Request Lenses+    getEndpoint_certificateArn,+    getEndpoint_thingArn,++    -- * Destructuring the Response+    GetEndpointResponse (..),+    newGetEndpointResponse,++    -- * Response Lenses+    getEndpointResponse_endpoint,+    getEndpointResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetEndpoint' smart constructor.+data GetEndpoint = GetEndpoint'+  { -- | The certificate ARN of the device. This is an optional parameter.+    certificateArn :: Prelude.Maybe Prelude.Text,+    -- | The thing ARN of the device. This is an optional parameter.+    thingArn :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEndpoint' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'certificateArn', 'getEndpoint_certificateArn' - The certificate ARN of the device. This is an optional parameter.+--+-- 'thingArn', 'getEndpoint_thingArn' - The thing ARN of the device. This is an optional parameter.+newGetEndpoint ::+  GetEndpoint+newGetEndpoint =+  GetEndpoint'+    { certificateArn = Prelude.Nothing,+      thingArn = Prelude.Nothing+    }++-- | The certificate ARN of the device. This is an optional parameter.+getEndpoint_certificateArn :: Lens.Lens' GetEndpoint (Prelude.Maybe Prelude.Text)+getEndpoint_certificateArn = Lens.lens (\GetEndpoint' {certificateArn} -> certificateArn) (\s@GetEndpoint' {} a -> s {certificateArn = a} :: GetEndpoint)++-- | The thing ARN of the device. This is an optional parameter.+getEndpoint_thingArn :: Lens.Lens' GetEndpoint (Prelude.Maybe Prelude.Text)+getEndpoint_thingArn = Lens.lens (\GetEndpoint' {thingArn} -> thingArn) (\s@GetEndpoint' {} a -> s {thingArn = a} :: GetEndpoint)++instance Core.AWSRequest GetEndpoint where+  type AWSResponse GetEndpoint = GetEndpointResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetEndpointResponse'+            Prelude.<$> (x Data..?> "endpoint")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetEndpoint where+  hashWithSalt _salt GetEndpoint' {..} =+    _salt+      `Prelude.hashWithSalt` certificateArn+      `Prelude.hashWithSalt` thingArn++instance Prelude.NFData GetEndpoint where+  rnf GetEndpoint' {..} =+    Prelude.rnf certificateArn+      `Prelude.seq` Prelude.rnf thingArn++instance Data.ToHeaders GetEndpoint where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetEndpoint where+  toPath = Prelude.const "/endpoint"++instance Data.ToQuery GetEndpoint where+  toQuery GetEndpoint' {..} =+    Prelude.mconcat+      [ "certificateArn" Data.=: certificateArn,+        "thingArn" Data.=: thingArn+      ]++-- | /See:/ 'newGetEndpointResponse' smart constructor.+data GetEndpointResponse = GetEndpointResponse'+  { -- | The response of an Device Advisor endpoint.+    endpoint :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEndpointResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'endpoint', 'getEndpointResponse_endpoint' - The response of an Device Advisor endpoint.+--+-- 'httpStatus', 'getEndpointResponse_httpStatus' - The response's http status code.+newGetEndpointResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetEndpointResponse+newGetEndpointResponse pHttpStatus_ =+  GetEndpointResponse'+    { endpoint = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The response of an Device Advisor endpoint.+getEndpointResponse_endpoint :: Lens.Lens' GetEndpointResponse (Prelude.Maybe Prelude.Text)+getEndpointResponse_endpoint = Lens.lens (\GetEndpointResponse' {endpoint} -> endpoint) (\s@GetEndpointResponse' {} a -> s {endpoint = a} :: GetEndpointResponse)++-- | The response's http status code.+getEndpointResponse_httpStatus :: Lens.Lens' GetEndpointResponse Prelude.Int+getEndpointResponse_httpStatus = Lens.lens (\GetEndpointResponse' {httpStatus} -> httpStatus) (\s@GetEndpointResponse' {} a -> s {httpStatus = a} :: GetEndpointResponse)++instance Prelude.NFData GetEndpointResponse where+  rnf GetEndpointResponse' {..} =+    Prelude.rnf endpoint+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/GetSuiteDefinition.hs view
@@ -0,0 +1,268 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.GetSuiteDefinition+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a Device Advisor test suite.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions GetSuiteDefinition>+-- action.+module Amazonka.IoTDeviceAdvisor.GetSuiteDefinition+  ( -- * Creating a Request+    GetSuiteDefinition (..),+    newGetSuiteDefinition,++    -- * Request Lenses+    getSuiteDefinition_suiteDefinitionVersion,+    getSuiteDefinition_suiteDefinitionId,++    -- * Destructuring the Response+    GetSuiteDefinitionResponse (..),+    newGetSuiteDefinitionResponse,++    -- * Response Lenses+    getSuiteDefinitionResponse_createdAt,+    getSuiteDefinitionResponse_lastModifiedAt,+    getSuiteDefinitionResponse_latestVersion,+    getSuiteDefinitionResponse_suiteDefinitionArn,+    getSuiteDefinitionResponse_suiteDefinitionConfiguration,+    getSuiteDefinitionResponse_suiteDefinitionId,+    getSuiteDefinitionResponse_suiteDefinitionVersion,+    getSuiteDefinitionResponse_tags,+    getSuiteDefinitionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetSuiteDefinition' smart constructor.+data GetSuiteDefinition = GetSuiteDefinition'+  { -- | Suite definition version of the test suite to get.+    suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,+    -- | Suite definition ID of the test suite to get.+    suiteDefinitionId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSuiteDefinition' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'suiteDefinitionVersion', 'getSuiteDefinition_suiteDefinitionVersion' - Suite definition version of the test suite to get.+--+-- 'suiteDefinitionId', 'getSuiteDefinition_suiteDefinitionId' - Suite definition ID of the test suite to get.+newGetSuiteDefinition ::+  -- | 'suiteDefinitionId'+  Prelude.Text ->+  GetSuiteDefinition+newGetSuiteDefinition pSuiteDefinitionId_ =+  GetSuiteDefinition'+    { suiteDefinitionVersion =+        Prelude.Nothing,+      suiteDefinitionId = pSuiteDefinitionId_+    }++-- | Suite definition version of the test suite to get.+getSuiteDefinition_suiteDefinitionVersion :: Lens.Lens' GetSuiteDefinition (Prelude.Maybe Prelude.Text)+getSuiteDefinition_suiteDefinitionVersion = Lens.lens (\GetSuiteDefinition' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@GetSuiteDefinition' {} a -> s {suiteDefinitionVersion = a} :: GetSuiteDefinition)++-- | Suite definition ID of the test suite to get.+getSuiteDefinition_suiteDefinitionId :: Lens.Lens' GetSuiteDefinition Prelude.Text+getSuiteDefinition_suiteDefinitionId = Lens.lens (\GetSuiteDefinition' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteDefinition' {} a -> s {suiteDefinitionId = a} :: GetSuiteDefinition)++instance Core.AWSRequest GetSuiteDefinition where+  type+    AWSResponse GetSuiteDefinition =+      GetSuiteDefinitionResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetSuiteDefinitionResponse'+            Prelude.<$> (x Data..?> "createdAt")+            Prelude.<*> (x Data..?> "lastModifiedAt")+            Prelude.<*> (x Data..?> "latestVersion")+            Prelude.<*> (x Data..?> "suiteDefinitionArn")+            Prelude.<*> (x Data..?> "suiteDefinitionConfiguration")+            Prelude.<*> (x Data..?> "suiteDefinitionId")+            Prelude.<*> (x Data..?> "suiteDefinitionVersion")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetSuiteDefinition where+  hashWithSalt _salt GetSuiteDefinition' {..} =+    _salt+      `Prelude.hashWithSalt` suiteDefinitionVersion+      `Prelude.hashWithSalt` suiteDefinitionId++instance Prelude.NFData GetSuiteDefinition where+  rnf GetSuiteDefinition' {..} =+    Prelude.rnf suiteDefinitionVersion+      `Prelude.seq` Prelude.rnf suiteDefinitionId++instance Data.ToHeaders GetSuiteDefinition where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetSuiteDefinition where+  toPath GetSuiteDefinition' {..} =+    Prelude.mconcat+      ["/suiteDefinitions/", Data.toBS suiteDefinitionId]++instance Data.ToQuery GetSuiteDefinition where+  toQuery GetSuiteDefinition' {..} =+    Prelude.mconcat+      [ "suiteDefinitionVersion"+          Data.=: suiteDefinitionVersion+      ]++-- | /See:/ 'newGetSuiteDefinitionResponse' smart constructor.+data GetSuiteDefinitionResponse = GetSuiteDefinitionResponse'+  { -- | Date (in Unix epoch time) when the suite definition was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | Date (in Unix epoch time) when the suite definition was last modified.+    lastModifiedAt :: Prelude.Maybe Data.POSIX,+    -- | Latest suite definition version of the suite definition.+    latestVersion :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the suite definition.+    suiteDefinitionArn :: Prelude.Maybe Prelude.Text,+    -- | Suite configuration of the suite definition.+    suiteDefinitionConfiguration :: Prelude.Maybe SuiteDefinitionConfiguration,+    -- | Suite definition ID of the suite definition.+    suiteDefinitionId :: Prelude.Maybe Prelude.Text,+    -- | Suite definition version of the suite definition.+    suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,+    -- | Tags attached to the suite definition.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSuiteDefinitionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdAt', 'getSuiteDefinitionResponse_createdAt' - Date (in Unix epoch time) when the suite definition was created.+--+-- 'lastModifiedAt', 'getSuiteDefinitionResponse_lastModifiedAt' - Date (in Unix epoch time) when the suite definition was last modified.+--+-- 'latestVersion', 'getSuiteDefinitionResponse_latestVersion' - Latest suite definition version of the suite definition.+--+-- 'suiteDefinitionArn', 'getSuiteDefinitionResponse_suiteDefinitionArn' - The ARN of the suite definition.+--+-- 'suiteDefinitionConfiguration', 'getSuiteDefinitionResponse_suiteDefinitionConfiguration' - Suite configuration of the suite definition.+--+-- 'suiteDefinitionId', 'getSuiteDefinitionResponse_suiteDefinitionId' - Suite definition ID of the suite definition.+--+-- 'suiteDefinitionVersion', 'getSuiteDefinitionResponse_suiteDefinitionVersion' - Suite definition version of the suite definition.+--+-- 'tags', 'getSuiteDefinitionResponse_tags' - Tags attached to the suite definition.+--+-- 'httpStatus', 'getSuiteDefinitionResponse_httpStatus' - The response's http status code.+newGetSuiteDefinitionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetSuiteDefinitionResponse+newGetSuiteDefinitionResponse pHttpStatus_ =+  GetSuiteDefinitionResponse'+    { createdAt =+        Prelude.Nothing,+      lastModifiedAt = Prelude.Nothing,+      latestVersion = Prelude.Nothing,+      suiteDefinitionArn = Prelude.Nothing,+      suiteDefinitionConfiguration = Prelude.Nothing,+      suiteDefinitionId = Prelude.Nothing,+      suiteDefinitionVersion = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Date (in Unix epoch time) when the suite definition was created.+getSuiteDefinitionResponse_createdAt :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime)+getSuiteDefinitionResponse_createdAt = Lens.lens (\GetSuiteDefinitionResponse' {createdAt} -> createdAt) (\s@GetSuiteDefinitionResponse' {} a -> s {createdAt = a} :: GetSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time++-- | Date (in Unix epoch time) when the suite definition was last modified.+getSuiteDefinitionResponse_lastModifiedAt :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime)+getSuiteDefinitionResponse_lastModifiedAt = Lens.lens (\GetSuiteDefinitionResponse' {lastModifiedAt} -> lastModifiedAt) (\s@GetSuiteDefinitionResponse' {} a -> s {lastModifiedAt = a} :: GetSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time++-- | Latest suite definition version of the suite definition.+getSuiteDefinitionResponse_latestVersion :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+getSuiteDefinitionResponse_latestVersion = Lens.lens (\GetSuiteDefinitionResponse' {latestVersion} -> latestVersion) (\s@GetSuiteDefinitionResponse' {} a -> s {latestVersion = a} :: GetSuiteDefinitionResponse)++-- | The ARN of the suite definition.+getSuiteDefinitionResponse_suiteDefinitionArn :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+getSuiteDefinitionResponse_suiteDefinitionArn = Lens.lens (\GetSuiteDefinitionResponse' {suiteDefinitionArn} -> suiteDefinitionArn) (\s@GetSuiteDefinitionResponse' {} a -> s {suiteDefinitionArn = a} :: GetSuiteDefinitionResponse)++-- | Suite configuration of the suite definition.+getSuiteDefinitionResponse_suiteDefinitionConfiguration :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe SuiteDefinitionConfiguration)+getSuiteDefinitionResponse_suiteDefinitionConfiguration = Lens.lens (\GetSuiteDefinitionResponse' {suiteDefinitionConfiguration} -> suiteDefinitionConfiguration) (\s@GetSuiteDefinitionResponse' {} a -> s {suiteDefinitionConfiguration = a} :: GetSuiteDefinitionResponse)++-- | Suite definition ID of the suite definition.+getSuiteDefinitionResponse_suiteDefinitionId :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+getSuiteDefinitionResponse_suiteDefinitionId = Lens.lens (\GetSuiteDefinitionResponse' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteDefinitionResponse' {} a -> s {suiteDefinitionId = a} :: GetSuiteDefinitionResponse)++-- | Suite definition version of the suite definition.+getSuiteDefinitionResponse_suiteDefinitionVersion :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+getSuiteDefinitionResponse_suiteDefinitionVersion = Lens.lens (\GetSuiteDefinitionResponse' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@GetSuiteDefinitionResponse' {} a -> s {suiteDefinitionVersion = a} :: GetSuiteDefinitionResponse)++-- | Tags attached to the suite definition.+getSuiteDefinitionResponse_tags :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+getSuiteDefinitionResponse_tags = Lens.lens (\GetSuiteDefinitionResponse' {tags} -> tags) (\s@GetSuiteDefinitionResponse' {} a -> s {tags = a} :: GetSuiteDefinitionResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getSuiteDefinitionResponse_httpStatus :: Lens.Lens' GetSuiteDefinitionResponse Prelude.Int+getSuiteDefinitionResponse_httpStatus = Lens.lens (\GetSuiteDefinitionResponse' {httpStatus} -> httpStatus) (\s@GetSuiteDefinitionResponse' {} a -> s {httpStatus = a} :: GetSuiteDefinitionResponse)++instance Prelude.NFData GetSuiteDefinitionResponse where+  rnf GetSuiteDefinitionResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf latestVersion+      `Prelude.seq` Prelude.rnf suiteDefinitionArn+      `Prelude.seq` Prelude.rnf suiteDefinitionConfiguration+      `Prelude.seq` Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteDefinitionVersion+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/GetSuiteRun.hs view
@@ -0,0 +1,303 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.GetSuiteRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a Device Advisor test suite run.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions GetSuiteRun>+-- action.+module Amazonka.IoTDeviceAdvisor.GetSuiteRun+  ( -- * Creating a Request+    GetSuiteRun (..),+    newGetSuiteRun,++    -- * Request Lenses+    getSuiteRun_suiteDefinitionId,+    getSuiteRun_suiteRunId,++    -- * Destructuring the Response+    GetSuiteRunResponse (..),+    newGetSuiteRunResponse,++    -- * Response Lenses+    getSuiteRunResponse_endTime,+    getSuiteRunResponse_errorReason,+    getSuiteRunResponse_startTime,+    getSuiteRunResponse_status,+    getSuiteRunResponse_suiteDefinitionId,+    getSuiteRunResponse_suiteDefinitionVersion,+    getSuiteRunResponse_suiteRunArn,+    getSuiteRunResponse_suiteRunConfiguration,+    getSuiteRunResponse_suiteRunId,+    getSuiteRunResponse_tags,+    getSuiteRunResponse_testResult,+    getSuiteRunResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetSuiteRun' smart constructor.+data GetSuiteRun = GetSuiteRun'+  { -- | Suite definition ID for the test suite run.+    suiteDefinitionId :: Prelude.Text,+    -- | Suite run ID for the test suite run.+    suiteRunId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSuiteRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'suiteDefinitionId', 'getSuiteRun_suiteDefinitionId' - Suite definition ID for the test suite run.+--+-- 'suiteRunId', 'getSuiteRun_suiteRunId' - Suite run ID for the test suite run.+newGetSuiteRun ::+  -- | 'suiteDefinitionId'+  Prelude.Text ->+  -- | 'suiteRunId'+  Prelude.Text ->+  GetSuiteRun+newGetSuiteRun pSuiteDefinitionId_ pSuiteRunId_ =+  GetSuiteRun'+    { suiteDefinitionId =+        pSuiteDefinitionId_,+      suiteRunId = pSuiteRunId_+    }++-- | Suite definition ID for the test suite run.+getSuiteRun_suiteDefinitionId :: Lens.Lens' GetSuiteRun Prelude.Text+getSuiteRun_suiteDefinitionId = Lens.lens (\GetSuiteRun' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteRun' {} a -> s {suiteDefinitionId = a} :: GetSuiteRun)++-- | Suite run ID for the test suite run.+getSuiteRun_suiteRunId :: Lens.Lens' GetSuiteRun Prelude.Text+getSuiteRun_suiteRunId = Lens.lens (\GetSuiteRun' {suiteRunId} -> suiteRunId) (\s@GetSuiteRun' {} a -> s {suiteRunId = a} :: GetSuiteRun)++instance Core.AWSRequest GetSuiteRun where+  type AWSResponse GetSuiteRun = GetSuiteRunResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetSuiteRunResponse'+            Prelude.<$> (x Data..?> "endTime")+            Prelude.<*> (x Data..?> "errorReason")+            Prelude.<*> (x Data..?> "startTime")+            Prelude.<*> (x Data..?> "status")+            Prelude.<*> (x Data..?> "suiteDefinitionId")+            Prelude.<*> (x Data..?> "suiteDefinitionVersion")+            Prelude.<*> (x Data..?> "suiteRunArn")+            Prelude.<*> (x Data..?> "suiteRunConfiguration")+            Prelude.<*> (x Data..?> "suiteRunId")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "testResult")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetSuiteRun where+  hashWithSalt _salt GetSuiteRun' {..} =+    _salt+      `Prelude.hashWithSalt` suiteDefinitionId+      `Prelude.hashWithSalt` suiteRunId++instance Prelude.NFData GetSuiteRun where+  rnf GetSuiteRun' {..} =+    Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteRunId++instance Data.ToHeaders GetSuiteRun where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetSuiteRun where+  toPath GetSuiteRun' {..} =+    Prelude.mconcat+      [ "/suiteDefinitions/",+        Data.toBS suiteDefinitionId,+        "/suiteRuns/",+        Data.toBS suiteRunId+      ]++instance Data.ToQuery GetSuiteRun where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetSuiteRunResponse' smart constructor.+data GetSuiteRunResponse = GetSuiteRunResponse'+  { -- | Date (in Unix epoch time) when the test suite run ended.+    endTime :: Prelude.Maybe Data.POSIX,+    -- | Error reason for any test suite run failure.+    errorReason :: Prelude.Maybe Prelude.Text,+    -- | Date (in Unix epoch time) when the test suite run started.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | Status for the test suite run.+    status :: Prelude.Maybe SuiteRunStatus,+    -- | Suite definition ID for the test suite run.+    suiteDefinitionId :: Prelude.Maybe Prelude.Text,+    -- | Suite definition version for the test suite run.+    suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the suite run.+    suiteRunArn :: Prelude.Maybe Prelude.Text,+    -- | Suite run configuration for the test suite run.+    suiteRunConfiguration :: Prelude.Maybe SuiteRunConfiguration,+    -- | Suite run ID for the test suite run.+    suiteRunId :: Prelude.Maybe Prelude.Text,+    -- | The tags attached to the suite run.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | Test results for the test suite run.+    testResult :: Prelude.Maybe TestResult,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSuiteRunResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'endTime', 'getSuiteRunResponse_endTime' - Date (in Unix epoch time) when the test suite run ended.+--+-- 'errorReason', 'getSuiteRunResponse_errorReason' - Error reason for any test suite run failure.+--+-- 'startTime', 'getSuiteRunResponse_startTime' - Date (in Unix epoch time) when the test suite run started.+--+-- 'status', 'getSuiteRunResponse_status' - Status for the test suite run.+--+-- 'suiteDefinitionId', 'getSuiteRunResponse_suiteDefinitionId' - Suite definition ID for the test suite run.+--+-- 'suiteDefinitionVersion', 'getSuiteRunResponse_suiteDefinitionVersion' - Suite definition version for the test suite run.+--+-- 'suiteRunArn', 'getSuiteRunResponse_suiteRunArn' - The ARN of the suite run.+--+-- 'suiteRunConfiguration', 'getSuiteRunResponse_suiteRunConfiguration' - Suite run configuration for the test suite run.+--+-- 'suiteRunId', 'getSuiteRunResponse_suiteRunId' - Suite run ID for the test suite run.+--+-- 'tags', 'getSuiteRunResponse_tags' - The tags attached to the suite run.+--+-- 'testResult', 'getSuiteRunResponse_testResult' - Test results for the test suite run.+--+-- 'httpStatus', 'getSuiteRunResponse_httpStatus' - The response's http status code.+newGetSuiteRunResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetSuiteRunResponse+newGetSuiteRunResponse pHttpStatus_ =+  GetSuiteRunResponse'+    { endTime = Prelude.Nothing,+      errorReason = Prelude.Nothing,+      startTime = Prelude.Nothing,+      status = Prelude.Nothing,+      suiteDefinitionId = Prelude.Nothing,+      suiteDefinitionVersion = Prelude.Nothing,+      suiteRunArn = Prelude.Nothing,+      suiteRunConfiguration = Prelude.Nothing,+      suiteRunId = Prelude.Nothing,+      tags = Prelude.Nothing,+      testResult = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Date (in Unix epoch time) when the test suite run ended.+getSuiteRunResponse_endTime :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.UTCTime)+getSuiteRunResponse_endTime = Lens.lens (\GetSuiteRunResponse' {endTime} -> endTime) (\s@GetSuiteRunResponse' {} a -> s {endTime = a} :: GetSuiteRunResponse) Prelude.. Lens.mapping Data._Time++-- | Error reason for any test suite run failure.+getSuiteRunResponse_errorReason :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)+getSuiteRunResponse_errorReason = Lens.lens (\GetSuiteRunResponse' {errorReason} -> errorReason) (\s@GetSuiteRunResponse' {} a -> s {errorReason = a} :: GetSuiteRunResponse)++-- | Date (in Unix epoch time) when the test suite run started.+getSuiteRunResponse_startTime :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.UTCTime)+getSuiteRunResponse_startTime = Lens.lens (\GetSuiteRunResponse' {startTime} -> startTime) (\s@GetSuiteRunResponse' {} a -> s {startTime = a} :: GetSuiteRunResponse) Prelude.. Lens.mapping Data._Time++-- | Status for the test suite run.+getSuiteRunResponse_status :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe SuiteRunStatus)+getSuiteRunResponse_status = Lens.lens (\GetSuiteRunResponse' {status} -> status) (\s@GetSuiteRunResponse' {} a -> s {status = a} :: GetSuiteRunResponse)++-- | Suite definition ID for the test suite run.+getSuiteRunResponse_suiteDefinitionId :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)+getSuiteRunResponse_suiteDefinitionId = Lens.lens (\GetSuiteRunResponse' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteRunResponse' {} a -> s {suiteDefinitionId = a} :: GetSuiteRunResponse)++-- | Suite definition version for the test suite run.+getSuiteRunResponse_suiteDefinitionVersion :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)+getSuiteRunResponse_suiteDefinitionVersion = Lens.lens (\GetSuiteRunResponse' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@GetSuiteRunResponse' {} a -> s {suiteDefinitionVersion = a} :: GetSuiteRunResponse)++-- | The ARN of the suite run.+getSuiteRunResponse_suiteRunArn :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)+getSuiteRunResponse_suiteRunArn = Lens.lens (\GetSuiteRunResponse' {suiteRunArn} -> suiteRunArn) (\s@GetSuiteRunResponse' {} a -> s {suiteRunArn = a} :: GetSuiteRunResponse)++-- | Suite run configuration for the test suite run.+getSuiteRunResponse_suiteRunConfiguration :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe SuiteRunConfiguration)+getSuiteRunResponse_suiteRunConfiguration = Lens.lens (\GetSuiteRunResponse' {suiteRunConfiguration} -> suiteRunConfiguration) (\s@GetSuiteRunResponse' {} a -> s {suiteRunConfiguration = a} :: GetSuiteRunResponse)++-- | Suite run ID for the test suite run.+getSuiteRunResponse_suiteRunId :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)+getSuiteRunResponse_suiteRunId = Lens.lens (\GetSuiteRunResponse' {suiteRunId} -> suiteRunId) (\s@GetSuiteRunResponse' {} a -> s {suiteRunId = a} :: GetSuiteRunResponse)++-- | The tags attached to the suite run.+getSuiteRunResponse_tags :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+getSuiteRunResponse_tags = Lens.lens (\GetSuiteRunResponse' {tags} -> tags) (\s@GetSuiteRunResponse' {} a -> s {tags = a} :: GetSuiteRunResponse) Prelude.. Lens.mapping Lens.coerced++-- | Test results for the test suite run.+getSuiteRunResponse_testResult :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe TestResult)+getSuiteRunResponse_testResult = Lens.lens (\GetSuiteRunResponse' {testResult} -> testResult) (\s@GetSuiteRunResponse' {} a -> s {testResult = a} :: GetSuiteRunResponse)++-- | The response's http status code.+getSuiteRunResponse_httpStatus :: Lens.Lens' GetSuiteRunResponse Prelude.Int+getSuiteRunResponse_httpStatus = Lens.lens (\GetSuiteRunResponse' {httpStatus} -> httpStatus) (\s@GetSuiteRunResponse' {} a -> s {httpStatus = a} :: GetSuiteRunResponse)++instance Prelude.NFData GetSuiteRunResponse where+  rnf GetSuiteRunResponse' {..} =+    Prelude.rnf endTime+      `Prelude.seq` Prelude.rnf errorReason+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteDefinitionVersion+      `Prelude.seq` Prelude.rnf suiteRunArn+      `Prelude.seq` Prelude.rnf suiteRunConfiguration+      `Prelude.seq` Prelude.rnf suiteRunId+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf testResult+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/GetSuiteRunReport.hs view
@@ -0,0 +1,188 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.GetSuiteRunReport+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a report download link for a successful Device Advisor qualifying+-- test suite run.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions GetSuiteRunReport>+-- action.+module Amazonka.IoTDeviceAdvisor.GetSuiteRunReport+  ( -- * Creating a Request+    GetSuiteRunReport (..),+    newGetSuiteRunReport,++    -- * Request Lenses+    getSuiteRunReport_suiteDefinitionId,+    getSuiteRunReport_suiteRunId,++    -- * Destructuring the Response+    GetSuiteRunReportResponse (..),+    newGetSuiteRunReportResponse,++    -- * Response Lenses+    getSuiteRunReportResponse_qualificationReportDownloadUrl,+    getSuiteRunReportResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetSuiteRunReport' smart constructor.+data GetSuiteRunReport = GetSuiteRunReport'+  { -- | Suite definition ID of the test suite.+    suiteDefinitionId :: Prelude.Text,+    -- | Suite run ID of the test suite run.+    suiteRunId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSuiteRunReport' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'suiteDefinitionId', 'getSuiteRunReport_suiteDefinitionId' - Suite definition ID of the test suite.+--+-- 'suiteRunId', 'getSuiteRunReport_suiteRunId' - Suite run ID of the test suite run.+newGetSuiteRunReport ::+  -- | 'suiteDefinitionId'+  Prelude.Text ->+  -- | 'suiteRunId'+  Prelude.Text ->+  GetSuiteRunReport+newGetSuiteRunReport pSuiteDefinitionId_ pSuiteRunId_ =+  GetSuiteRunReport'+    { suiteDefinitionId =+        pSuiteDefinitionId_,+      suiteRunId = pSuiteRunId_+    }++-- | Suite definition ID of the test suite.+getSuiteRunReport_suiteDefinitionId :: Lens.Lens' GetSuiteRunReport Prelude.Text+getSuiteRunReport_suiteDefinitionId = Lens.lens (\GetSuiteRunReport' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteRunReport' {} a -> s {suiteDefinitionId = a} :: GetSuiteRunReport)++-- | Suite run ID of the test suite run.+getSuiteRunReport_suiteRunId :: Lens.Lens' GetSuiteRunReport Prelude.Text+getSuiteRunReport_suiteRunId = Lens.lens (\GetSuiteRunReport' {suiteRunId} -> suiteRunId) (\s@GetSuiteRunReport' {} a -> s {suiteRunId = a} :: GetSuiteRunReport)++instance Core.AWSRequest GetSuiteRunReport where+  type+    AWSResponse GetSuiteRunReport =+      GetSuiteRunReportResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetSuiteRunReportResponse'+            Prelude.<$> (x Data..?> "qualificationReportDownloadUrl")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetSuiteRunReport where+  hashWithSalt _salt GetSuiteRunReport' {..} =+    _salt+      `Prelude.hashWithSalt` suiteDefinitionId+      `Prelude.hashWithSalt` suiteRunId++instance Prelude.NFData GetSuiteRunReport where+  rnf GetSuiteRunReport' {..} =+    Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteRunId++instance Data.ToHeaders GetSuiteRunReport where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetSuiteRunReport where+  toPath GetSuiteRunReport' {..} =+    Prelude.mconcat+      [ "/suiteDefinitions/",+        Data.toBS suiteDefinitionId,+        "/suiteRuns/",+        Data.toBS suiteRunId,+        "/report"+      ]++instance Data.ToQuery GetSuiteRunReport where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetSuiteRunReportResponse' smart constructor.+data GetSuiteRunReportResponse = GetSuiteRunReportResponse'+  { -- | Download URL of the qualification report.+    qualificationReportDownloadUrl :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSuiteRunReportResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'qualificationReportDownloadUrl', 'getSuiteRunReportResponse_qualificationReportDownloadUrl' - Download URL of the qualification report.+--+-- 'httpStatus', 'getSuiteRunReportResponse_httpStatus' - The response's http status code.+newGetSuiteRunReportResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetSuiteRunReportResponse+newGetSuiteRunReportResponse pHttpStatus_ =+  GetSuiteRunReportResponse'+    { qualificationReportDownloadUrl =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Download URL of the qualification report.+getSuiteRunReportResponse_qualificationReportDownloadUrl :: Lens.Lens' GetSuiteRunReportResponse (Prelude.Maybe Prelude.Text)+getSuiteRunReportResponse_qualificationReportDownloadUrl = Lens.lens (\GetSuiteRunReportResponse' {qualificationReportDownloadUrl} -> qualificationReportDownloadUrl) (\s@GetSuiteRunReportResponse' {} a -> s {qualificationReportDownloadUrl = a} :: GetSuiteRunReportResponse)++-- | The response's http status code.+getSuiteRunReportResponse_httpStatus :: Lens.Lens' GetSuiteRunReportResponse Prelude.Int+getSuiteRunReportResponse_httpStatus = Lens.lens (\GetSuiteRunReportResponse' {httpStatus} -> httpStatus) (\s@GetSuiteRunReportResponse' {} a -> s {httpStatus = a} :: GetSuiteRunReportResponse)++instance Prelude.NFData GetSuiteRunReportResponse where+  rnf GetSuiteRunReportResponse' {..} =+    Prelude.rnf qualificationReportDownloadUrl+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/Lens.hs view
@@ -0,0 +1,221 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Lens+  ( -- * Operations++    -- ** CreateSuiteDefinition+    createSuiteDefinition_tags,+    createSuiteDefinition_suiteDefinitionConfiguration,+    createSuiteDefinitionResponse_createdAt,+    createSuiteDefinitionResponse_suiteDefinitionArn,+    createSuiteDefinitionResponse_suiteDefinitionId,+    createSuiteDefinitionResponse_suiteDefinitionName,+    createSuiteDefinitionResponse_httpStatus,++    -- ** DeleteSuiteDefinition+    deleteSuiteDefinition_suiteDefinitionId,+    deleteSuiteDefinitionResponse_httpStatus,++    -- ** GetEndpoint+    getEndpoint_certificateArn,+    getEndpoint_thingArn,+    getEndpointResponse_endpoint,+    getEndpointResponse_httpStatus,++    -- ** GetSuiteDefinition+    getSuiteDefinition_suiteDefinitionVersion,+    getSuiteDefinition_suiteDefinitionId,+    getSuiteDefinitionResponse_createdAt,+    getSuiteDefinitionResponse_lastModifiedAt,+    getSuiteDefinitionResponse_latestVersion,+    getSuiteDefinitionResponse_suiteDefinitionArn,+    getSuiteDefinitionResponse_suiteDefinitionConfiguration,+    getSuiteDefinitionResponse_suiteDefinitionId,+    getSuiteDefinitionResponse_suiteDefinitionVersion,+    getSuiteDefinitionResponse_tags,+    getSuiteDefinitionResponse_httpStatus,++    -- ** GetSuiteRun+    getSuiteRun_suiteDefinitionId,+    getSuiteRun_suiteRunId,+    getSuiteRunResponse_endTime,+    getSuiteRunResponse_errorReason,+    getSuiteRunResponse_startTime,+    getSuiteRunResponse_status,+    getSuiteRunResponse_suiteDefinitionId,+    getSuiteRunResponse_suiteDefinitionVersion,+    getSuiteRunResponse_suiteRunArn,+    getSuiteRunResponse_suiteRunConfiguration,+    getSuiteRunResponse_suiteRunId,+    getSuiteRunResponse_tags,+    getSuiteRunResponse_testResult,+    getSuiteRunResponse_httpStatus,++    -- ** GetSuiteRunReport+    getSuiteRunReport_suiteDefinitionId,+    getSuiteRunReport_suiteRunId,+    getSuiteRunReportResponse_qualificationReportDownloadUrl,+    getSuiteRunReportResponse_httpStatus,++    -- ** ListSuiteDefinitions+    listSuiteDefinitions_maxResults,+    listSuiteDefinitions_nextToken,+    listSuiteDefinitionsResponse_nextToken,+    listSuiteDefinitionsResponse_suiteDefinitionInformationList,+    listSuiteDefinitionsResponse_httpStatus,++    -- ** ListSuiteRuns+    listSuiteRuns_maxResults,+    listSuiteRuns_nextToken,+    listSuiteRuns_suiteDefinitionId,+    listSuiteRuns_suiteDefinitionVersion,+    listSuiteRunsResponse_nextToken,+    listSuiteRunsResponse_suiteRunsList,+    listSuiteRunsResponse_httpStatus,++    -- ** ListTagsForResource+    listTagsForResource_resourceArn,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** StartSuiteRun+    startSuiteRun_suiteDefinitionVersion,+    startSuiteRun_tags,+    startSuiteRun_suiteDefinitionId,+    startSuiteRun_suiteRunConfiguration,+    startSuiteRunResponse_createdAt,+    startSuiteRunResponse_endpoint,+    startSuiteRunResponse_suiteRunArn,+    startSuiteRunResponse_suiteRunId,+    startSuiteRunResponse_httpStatus,++    -- ** StopSuiteRun+    stopSuiteRun_suiteDefinitionId,+    stopSuiteRun_suiteRunId,+    stopSuiteRunResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceArn,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceArn,+    untagResource_tagKeys,+    untagResourceResponse_httpStatus,++    -- ** UpdateSuiteDefinition+    updateSuiteDefinition_suiteDefinitionId,+    updateSuiteDefinition_suiteDefinitionConfiguration,+    updateSuiteDefinitionResponse_createdAt,+    updateSuiteDefinitionResponse_lastUpdatedAt,+    updateSuiteDefinitionResponse_suiteDefinitionArn,+    updateSuiteDefinitionResponse_suiteDefinitionId,+    updateSuiteDefinitionResponse_suiteDefinitionName,+    updateSuiteDefinitionResponse_suiteDefinitionVersion,+    updateSuiteDefinitionResponse_httpStatus,++    -- * Types++    -- ** DeviceUnderTest+    deviceUnderTest_certificateArn,+    deviceUnderTest_thingArn,++    -- ** GroupResult+    groupResult_groupId,+    groupResult_groupName,+    groupResult_tests,++    -- ** SuiteDefinitionConfiguration+    suiteDefinitionConfiguration_devices,+    suiteDefinitionConfiguration_intendedForQualification,+    suiteDefinitionConfiguration_isLongDurationTest,+    suiteDefinitionConfiguration_protocol,+    suiteDefinitionConfiguration_suiteDefinitionName,+    suiteDefinitionConfiguration_rootGroup,+    suiteDefinitionConfiguration_devicePermissionRoleArn,++    -- ** SuiteDefinitionInformation+    suiteDefinitionInformation_createdAt,+    suiteDefinitionInformation_defaultDevices,+    suiteDefinitionInformation_intendedForQualification,+    suiteDefinitionInformation_isLongDurationTest,+    suiteDefinitionInformation_protocol,+    suiteDefinitionInformation_suiteDefinitionId,+    suiteDefinitionInformation_suiteDefinitionName,++    -- ** SuiteRunConfiguration+    suiteRunConfiguration_parallelRun,+    suiteRunConfiguration_selectedTestList,+    suiteRunConfiguration_primaryDevice,++    -- ** SuiteRunInformation+    suiteRunInformation_createdAt,+    suiteRunInformation_endAt,+    suiteRunInformation_failed,+    suiteRunInformation_passed,+    suiteRunInformation_startedAt,+    suiteRunInformation_status,+    suiteRunInformation_suiteDefinitionId,+    suiteRunInformation_suiteDefinitionName,+    suiteRunInformation_suiteDefinitionVersion,+    suiteRunInformation_suiteRunId,++    -- ** TestCaseRun+    testCaseRun_endTime,+    testCaseRun_failure,+    testCaseRun_logUrl,+    testCaseRun_startTime,+    testCaseRun_status,+    testCaseRun_testCaseDefinitionId,+    testCaseRun_testCaseDefinitionName,+    testCaseRun_testCaseRunId,+    testCaseRun_testScenarios,+    testCaseRun_warnings,++    -- ** TestCaseScenario+    testCaseScenario_failure,+    testCaseScenario_status,+    testCaseScenario_systemMessage,+    testCaseScenario_testCaseScenarioId,+    testCaseScenario_testCaseScenarioType,++    -- ** TestResult+    testResult_groups,+  )+where++import Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition+import Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition+import Amazonka.IoTDeviceAdvisor.GetEndpoint+import Amazonka.IoTDeviceAdvisor.GetSuiteDefinition+import Amazonka.IoTDeviceAdvisor.GetSuiteRun+import Amazonka.IoTDeviceAdvisor.GetSuiteRunReport+import Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions+import Amazonka.IoTDeviceAdvisor.ListSuiteRuns+import Amazonka.IoTDeviceAdvisor.ListTagsForResource+import Amazonka.IoTDeviceAdvisor.StartSuiteRun+import Amazonka.IoTDeviceAdvisor.StopSuiteRun+import Amazonka.IoTDeviceAdvisor.TagResource+import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest+import Amazonka.IoTDeviceAdvisor.Types.GroupResult+import Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration+import Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation+import Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration+import Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation+import Amazonka.IoTDeviceAdvisor.Types.TestCaseRun+import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario+import Amazonka.IoTDeviceAdvisor.Types.TestResult+import Amazonka.IoTDeviceAdvisor.UntagResource+import Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition
+ gen/Amazonka/IoTDeviceAdvisor/ListSuiteDefinitions.hs view
@@ -0,0 +1,198 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the Device Advisor test suites you have created.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions ListSuiteDefinitions>+-- action.+module Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions+  ( -- * Creating a Request+    ListSuiteDefinitions (..),+    newListSuiteDefinitions,++    -- * Request Lenses+    listSuiteDefinitions_maxResults,+    listSuiteDefinitions_nextToken,++    -- * Destructuring the Response+    ListSuiteDefinitionsResponse (..),+    newListSuiteDefinitionsResponse,++    -- * Response Lenses+    listSuiteDefinitionsResponse_nextToken,+    listSuiteDefinitionsResponse_suiteDefinitionInformationList,+    listSuiteDefinitionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListSuiteDefinitions' smart constructor.+data ListSuiteDefinitions = ListSuiteDefinitions'+  { -- | The maximum number of results to return at once.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token used to get the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSuiteDefinitions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listSuiteDefinitions_maxResults' - The maximum number of results to return at once.+--+-- 'nextToken', 'listSuiteDefinitions_nextToken' - A token used to get the next set of results.+newListSuiteDefinitions ::+  ListSuiteDefinitions+newListSuiteDefinitions =+  ListSuiteDefinitions'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of results to return at once.+listSuiteDefinitions_maxResults :: Lens.Lens' ListSuiteDefinitions (Prelude.Maybe Prelude.Natural)+listSuiteDefinitions_maxResults = Lens.lens (\ListSuiteDefinitions' {maxResults} -> maxResults) (\s@ListSuiteDefinitions' {} a -> s {maxResults = a} :: ListSuiteDefinitions)++-- | A token used to get the next set of results.+listSuiteDefinitions_nextToken :: Lens.Lens' ListSuiteDefinitions (Prelude.Maybe Prelude.Text)+listSuiteDefinitions_nextToken = Lens.lens (\ListSuiteDefinitions' {nextToken} -> nextToken) (\s@ListSuiteDefinitions' {} a -> s {nextToken = a} :: ListSuiteDefinitions)++instance Core.AWSRequest ListSuiteDefinitions where+  type+    AWSResponse ListSuiteDefinitions =+      ListSuiteDefinitionsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSuiteDefinitionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> ( x+                            Data..?> "suiteDefinitionInformationList"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSuiteDefinitions where+  hashWithSalt _salt ListSuiteDefinitions' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListSuiteDefinitions where+  rnf ListSuiteDefinitions' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListSuiteDefinitions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListSuiteDefinitions where+  toPath = Prelude.const "/suiteDefinitions"++instance Data.ToQuery ListSuiteDefinitions where+  toQuery ListSuiteDefinitions' {..} =+    Prelude.mconcat+      [ "maxResults" Data.=: maxResults,+        "nextToken" Data.=: nextToken+      ]++-- | /See:/ 'newListSuiteDefinitionsResponse' smart constructor.+data ListSuiteDefinitionsResponse = ListSuiteDefinitionsResponse'+  { -- | A token used to get the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of objects that provide summaries of information about the+    -- suite definitions in the list.+    suiteDefinitionInformationList :: Prelude.Maybe [SuiteDefinitionInformation],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSuiteDefinitionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSuiteDefinitionsResponse_nextToken' - A token used to get the next set of results.+--+-- 'suiteDefinitionInformationList', 'listSuiteDefinitionsResponse_suiteDefinitionInformationList' - An array of objects that provide summaries of information about the+-- suite definitions in the list.+--+-- 'httpStatus', 'listSuiteDefinitionsResponse_httpStatus' - The response's http status code.+newListSuiteDefinitionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSuiteDefinitionsResponse+newListSuiteDefinitionsResponse pHttpStatus_ =+  ListSuiteDefinitionsResponse'+    { nextToken =+        Prelude.Nothing,+      suiteDefinitionInformationList =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A token used to get the next set of results.+listSuiteDefinitionsResponse_nextToken :: Lens.Lens' ListSuiteDefinitionsResponse (Prelude.Maybe Prelude.Text)+listSuiteDefinitionsResponse_nextToken = Lens.lens (\ListSuiteDefinitionsResponse' {nextToken} -> nextToken) (\s@ListSuiteDefinitionsResponse' {} a -> s {nextToken = a} :: ListSuiteDefinitionsResponse)++-- | An array of objects that provide summaries of information about the+-- suite definitions in the list.+listSuiteDefinitionsResponse_suiteDefinitionInformationList :: Lens.Lens' ListSuiteDefinitionsResponse (Prelude.Maybe [SuiteDefinitionInformation])+listSuiteDefinitionsResponse_suiteDefinitionInformationList = Lens.lens (\ListSuiteDefinitionsResponse' {suiteDefinitionInformationList} -> suiteDefinitionInformationList) (\s@ListSuiteDefinitionsResponse' {} a -> s {suiteDefinitionInformationList = a} :: ListSuiteDefinitionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSuiteDefinitionsResponse_httpStatus :: Lens.Lens' ListSuiteDefinitionsResponse Prelude.Int+listSuiteDefinitionsResponse_httpStatus = Lens.lens (\ListSuiteDefinitionsResponse' {httpStatus} -> httpStatus) (\s@ListSuiteDefinitionsResponse' {} a -> s {httpStatus = a} :: ListSuiteDefinitionsResponse)++instance Prelude.NFData ListSuiteDefinitionsResponse where+  rnf ListSuiteDefinitionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf suiteDefinitionInformationList+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/ListSuiteRuns.hs view
@@ -0,0 +1,228 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.ListSuiteRuns+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists runs of the specified Device Advisor test suite. You can list all+-- runs of the test suite, or the runs of a specific version of the test+-- suite.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions ListSuiteRuns>+-- action.+module Amazonka.IoTDeviceAdvisor.ListSuiteRuns+  ( -- * Creating a Request+    ListSuiteRuns (..),+    newListSuiteRuns,++    -- * Request Lenses+    listSuiteRuns_maxResults,+    listSuiteRuns_nextToken,+    listSuiteRuns_suiteDefinitionId,+    listSuiteRuns_suiteDefinitionVersion,++    -- * Destructuring the Response+    ListSuiteRunsResponse (..),+    newListSuiteRunsResponse,++    -- * Response Lenses+    listSuiteRunsResponse_nextToken,+    listSuiteRunsResponse_suiteRunsList,+    listSuiteRunsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListSuiteRuns' smart constructor.+data ListSuiteRuns = ListSuiteRuns'+  { -- | The maximum number of results to return at once.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token to retrieve the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Lists the test suite runs of the specified test suite based on suite+    -- definition ID.+    suiteDefinitionId :: Prelude.Maybe Prelude.Text,+    -- | Must be passed along with @suiteDefinitionId@. Lists the test suite runs+    -- of the specified test suite based on suite definition version.+    suiteDefinitionVersion :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSuiteRuns' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listSuiteRuns_maxResults' - The maximum number of results to return at once.+--+-- 'nextToken', 'listSuiteRuns_nextToken' - A token to retrieve the next set of results.+--+-- 'suiteDefinitionId', 'listSuiteRuns_suiteDefinitionId' - Lists the test suite runs of the specified test suite based on suite+-- definition ID.+--+-- 'suiteDefinitionVersion', 'listSuiteRuns_suiteDefinitionVersion' - Must be passed along with @suiteDefinitionId@. Lists the test suite runs+-- of the specified test suite based on suite definition version.+newListSuiteRuns ::+  ListSuiteRuns+newListSuiteRuns =+  ListSuiteRuns'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      suiteDefinitionId = Prelude.Nothing,+      suiteDefinitionVersion = Prelude.Nothing+    }++-- | The maximum number of results to return at once.+listSuiteRuns_maxResults :: Lens.Lens' ListSuiteRuns (Prelude.Maybe Prelude.Natural)+listSuiteRuns_maxResults = Lens.lens (\ListSuiteRuns' {maxResults} -> maxResults) (\s@ListSuiteRuns' {} a -> s {maxResults = a} :: ListSuiteRuns)++-- | A token to retrieve the next set of results.+listSuiteRuns_nextToken :: Lens.Lens' ListSuiteRuns (Prelude.Maybe Prelude.Text)+listSuiteRuns_nextToken = Lens.lens (\ListSuiteRuns' {nextToken} -> nextToken) (\s@ListSuiteRuns' {} a -> s {nextToken = a} :: ListSuiteRuns)++-- | Lists the test suite runs of the specified test suite based on suite+-- definition ID.+listSuiteRuns_suiteDefinitionId :: Lens.Lens' ListSuiteRuns (Prelude.Maybe Prelude.Text)+listSuiteRuns_suiteDefinitionId = Lens.lens (\ListSuiteRuns' {suiteDefinitionId} -> suiteDefinitionId) (\s@ListSuiteRuns' {} a -> s {suiteDefinitionId = a} :: ListSuiteRuns)++-- | Must be passed along with @suiteDefinitionId@. Lists the test suite runs+-- of the specified test suite based on suite definition version.+listSuiteRuns_suiteDefinitionVersion :: Lens.Lens' ListSuiteRuns (Prelude.Maybe Prelude.Text)+listSuiteRuns_suiteDefinitionVersion = Lens.lens (\ListSuiteRuns' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@ListSuiteRuns' {} a -> s {suiteDefinitionVersion = a} :: ListSuiteRuns)++instance Core.AWSRequest ListSuiteRuns where+  type+    AWSResponse ListSuiteRuns =+      ListSuiteRunsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSuiteRunsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "suiteRunsList" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSuiteRuns where+  hashWithSalt _salt ListSuiteRuns' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` suiteDefinitionId+      `Prelude.hashWithSalt` suiteDefinitionVersion++instance Prelude.NFData ListSuiteRuns where+  rnf ListSuiteRuns' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteDefinitionVersion++instance Data.ToHeaders ListSuiteRuns where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListSuiteRuns where+  toPath = Prelude.const "/suiteRuns"++instance Data.ToQuery ListSuiteRuns where+  toQuery ListSuiteRuns' {..} =+    Prelude.mconcat+      [ "maxResults" Data.=: maxResults,+        "nextToken" Data.=: nextToken,+        "suiteDefinitionId" Data.=: suiteDefinitionId,+        "suiteDefinitionVersion"+          Data.=: suiteDefinitionVersion+      ]++-- | /See:/ 'newListSuiteRunsResponse' smart constructor.+data ListSuiteRunsResponse = ListSuiteRunsResponse'+  { -- | A token to retrieve the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of objects that provide summaries of information about the+    -- suite runs in the list.+    suiteRunsList :: Prelude.Maybe [SuiteRunInformation],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSuiteRunsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSuiteRunsResponse_nextToken' - A token to retrieve the next set of results.+--+-- 'suiteRunsList', 'listSuiteRunsResponse_suiteRunsList' - An array of objects that provide summaries of information about the+-- suite runs in the list.+--+-- 'httpStatus', 'listSuiteRunsResponse_httpStatus' - The response's http status code.+newListSuiteRunsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSuiteRunsResponse+newListSuiteRunsResponse pHttpStatus_ =+  ListSuiteRunsResponse'+    { nextToken = Prelude.Nothing,+      suiteRunsList = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A token to retrieve the next set of results.+listSuiteRunsResponse_nextToken :: Lens.Lens' ListSuiteRunsResponse (Prelude.Maybe Prelude.Text)+listSuiteRunsResponse_nextToken = Lens.lens (\ListSuiteRunsResponse' {nextToken} -> nextToken) (\s@ListSuiteRunsResponse' {} a -> s {nextToken = a} :: ListSuiteRunsResponse)++-- | An array of objects that provide summaries of information about the+-- suite runs in the list.+listSuiteRunsResponse_suiteRunsList :: Lens.Lens' ListSuiteRunsResponse (Prelude.Maybe [SuiteRunInformation])+listSuiteRunsResponse_suiteRunsList = Lens.lens (\ListSuiteRunsResponse' {suiteRunsList} -> suiteRunsList) (\s@ListSuiteRunsResponse' {} a -> s {suiteRunsList = a} :: ListSuiteRunsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSuiteRunsResponse_httpStatus :: Lens.Lens' ListSuiteRunsResponse Prelude.Int+listSuiteRunsResponse_httpStatus = Lens.lens (\ListSuiteRunsResponse' {httpStatus} -> httpStatus) (\s@ListSuiteRunsResponse' {} a -> s {httpStatus = a} :: ListSuiteRunsResponse)++instance Prelude.NFData ListSuiteRunsResponse where+  rnf ListSuiteRunsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf suiteRunsList+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/ListTagsForResource.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.ListTagsForResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the tags attached to an IoT Device Advisor resource.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions ListTagsForResource>+-- action.+module Amazonka.IoTDeviceAdvisor.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_resourceArn,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | The resource ARN of the IoT Device Advisor resource. This can be+    -- SuiteDefinition ARN or SuiteRun ARN.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'listTagsForResource_resourceArn' - The resource ARN of the IoT Device Advisor resource. This can be+-- SuiteDefinition ARN or SuiteRun ARN.+newListTagsForResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceArn_ =+  ListTagsForResource' {resourceArn = pResourceArn_}++-- | The resource ARN of the IoT Device Advisor resource. This can be+-- SuiteDefinition ARN or SuiteRun ARN.+listTagsForResource_resourceArn :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resourceArn = Lens.lens (\ListTagsForResource' {resourceArn} -> resourceArn) (\s@ListTagsForResource' {} a -> s {resourceArn = a} :: ListTagsForResource)++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} =+    Prelude.rnf resourceArn++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListTagsForResource where+  toPath ListTagsForResource' {..} =+    Prelude.mconcat ["/tags/", Data.toBS resourceArn]++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | The tags attached to the IoT Device Advisor resource.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'listTagsForResourceResponse_tags' - The tags attached to the IoT Device Advisor resource.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { tags =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The tags attached to the IoT Device Advisor resource.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int+listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse)++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/StartSuiteRun.hs view
@@ -0,0 +1,260 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.StartSuiteRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts a Device Advisor test suite run.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions StartSuiteRun>+-- action.+module Amazonka.IoTDeviceAdvisor.StartSuiteRun+  ( -- * Creating a Request+    StartSuiteRun (..),+    newStartSuiteRun,++    -- * Request Lenses+    startSuiteRun_suiteDefinitionVersion,+    startSuiteRun_tags,+    startSuiteRun_suiteDefinitionId,+    startSuiteRun_suiteRunConfiguration,++    -- * Destructuring the Response+    StartSuiteRunResponse (..),+    newStartSuiteRunResponse,++    -- * Response Lenses+    startSuiteRunResponse_createdAt,+    startSuiteRunResponse_endpoint,+    startSuiteRunResponse_suiteRunArn,+    startSuiteRunResponse_suiteRunId,+    startSuiteRunResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartSuiteRun' smart constructor.+data StartSuiteRun = StartSuiteRun'+  { -- | Suite definition version of the test suite.+    suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,+    -- | The tags to be attached to the suite run.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | Suite definition ID of the test suite.+    suiteDefinitionId :: Prelude.Text,+    -- | Suite run configuration.+    suiteRunConfiguration :: SuiteRunConfiguration+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartSuiteRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'suiteDefinitionVersion', 'startSuiteRun_suiteDefinitionVersion' - Suite definition version of the test suite.+--+-- 'tags', 'startSuiteRun_tags' - The tags to be attached to the suite run.+--+-- 'suiteDefinitionId', 'startSuiteRun_suiteDefinitionId' - Suite definition ID of the test suite.+--+-- 'suiteRunConfiguration', 'startSuiteRun_suiteRunConfiguration' - Suite run configuration.+newStartSuiteRun ::+  -- | 'suiteDefinitionId'+  Prelude.Text ->+  -- | 'suiteRunConfiguration'+  SuiteRunConfiguration ->+  StartSuiteRun+newStartSuiteRun+  pSuiteDefinitionId_+  pSuiteRunConfiguration_ =+    StartSuiteRun'+      { suiteDefinitionVersion =+          Prelude.Nothing,+        tags = Prelude.Nothing,+        suiteDefinitionId = pSuiteDefinitionId_,+        suiteRunConfiguration = pSuiteRunConfiguration_+      }++-- | Suite definition version of the test suite.+startSuiteRun_suiteDefinitionVersion :: Lens.Lens' StartSuiteRun (Prelude.Maybe Prelude.Text)+startSuiteRun_suiteDefinitionVersion = Lens.lens (\StartSuiteRun' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@StartSuiteRun' {} a -> s {suiteDefinitionVersion = a} :: StartSuiteRun)++-- | The tags to be attached to the suite run.+startSuiteRun_tags :: Lens.Lens' StartSuiteRun (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+startSuiteRun_tags = Lens.lens (\StartSuiteRun' {tags} -> tags) (\s@StartSuiteRun' {} a -> s {tags = a} :: StartSuiteRun) Prelude.. Lens.mapping Lens.coerced++-- | Suite definition ID of the test suite.+startSuiteRun_suiteDefinitionId :: Lens.Lens' StartSuiteRun Prelude.Text+startSuiteRun_suiteDefinitionId = Lens.lens (\StartSuiteRun' {suiteDefinitionId} -> suiteDefinitionId) (\s@StartSuiteRun' {} a -> s {suiteDefinitionId = a} :: StartSuiteRun)++-- | Suite run configuration.+startSuiteRun_suiteRunConfiguration :: Lens.Lens' StartSuiteRun SuiteRunConfiguration+startSuiteRun_suiteRunConfiguration = Lens.lens (\StartSuiteRun' {suiteRunConfiguration} -> suiteRunConfiguration) (\s@StartSuiteRun' {} a -> s {suiteRunConfiguration = a} :: StartSuiteRun)++instance Core.AWSRequest StartSuiteRun where+  type+    AWSResponse StartSuiteRun =+      StartSuiteRunResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartSuiteRunResponse'+            Prelude.<$> (x Data..?> "createdAt")+            Prelude.<*> (x Data..?> "endpoint")+            Prelude.<*> (x Data..?> "suiteRunArn")+            Prelude.<*> (x Data..?> "suiteRunId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartSuiteRun where+  hashWithSalt _salt StartSuiteRun' {..} =+    _salt+      `Prelude.hashWithSalt` suiteDefinitionVersion+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` suiteDefinitionId+      `Prelude.hashWithSalt` suiteRunConfiguration++instance Prelude.NFData StartSuiteRun where+  rnf StartSuiteRun' {..} =+    Prelude.rnf suiteDefinitionVersion+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteRunConfiguration++instance Data.ToHeaders StartSuiteRun where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartSuiteRun where+  toJSON StartSuiteRun' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("suiteDefinitionVersion" Data..=)+              Prelude.<$> suiteDefinitionVersion,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just+              ( "suiteRunConfiguration"+                  Data..= suiteRunConfiguration+              )+          ]+      )++instance Data.ToPath StartSuiteRun where+  toPath StartSuiteRun' {..} =+    Prelude.mconcat+      [ "/suiteDefinitions/",+        Data.toBS suiteDefinitionId,+        "/suiteRuns"+      ]++instance Data.ToQuery StartSuiteRun where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartSuiteRunResponse' smart constructor.+data StartSuiteRunResponse = StartSuiteRunResponse'+  { -- | Starts a Device Advisor test suite run based on suite create time.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | The response of an Device Advisor test endpoint.+    endpoint :: Prelude.Maybe Prelude.Text,+    -- | Amazon Resource Name (ARN) of the started suite run.+    suiteRunArn :: Prelude.Maybe Prelude.Text,+    -- | Suite Run ID of the started suite run.+    suiteRunId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartSuiteRunResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdAt', 'startSuiteRunResponse_createdAt' - Starts a Device Advisor test suite run based on suite create time.+--+-- 'endpoint', 'startSuiteRunResponse_endpoint' - The response of an Device Advisor test endpoint.+--+-- 'suiteRunArn', 'startSuiteRunResponse_suiteRunArn' - Amazon Resource Name (ARN) of the started suite run.+--+-- 'suiteRunId', 'startSuiteRunResponse_suiteRunId' - Suite Run ID of the started suite run.+--+-- 'httpStatus', 'startSuiteRunResponse_httpStatus' - The response's http status code.+newStartSuiteRunResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartSuiteRunResponse+newStartSuiteRunResponse pHttpStatus_ =+  StartSuiteRunResponse'+    { createdAt = Prelude.Nothing,+      endpoint = Prelude.Nothing,+      suiteRunArn = Prelude.Nothing,+      suiteRunId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Starts a Device Advisor test suite run based on suite create time.+startSuiteRunResponse_createdAt :: Lens.Lens' StartSuiteRunResponse (Prelude.Maybe Prelude.UTCTime)+startSuiteRunResponse_createdAt = Lens.lens (\StartSuiteRunResponse' {createdAt} -> createdAt) (\s@StartSuiteRunResponse' {} a -> s {createdAt = a} :: StartSuiteRunResponse) Prelude.. Lens.mapping Data._Time++-- | The response of an Device Advisor test endpoint.+startSuiteRunResponse_endpoint :: Lens.Lens' StartSuiteRunResponse (Prelude.Maybe Prelude.Text)+startSuiteRunResponse_endpoint = Lens.lens (\StartSuiteRunResponse' {endpoint} -> endpoint) (\s@StartSuiteRunResponse' {} a -> s {endpoint = a} :: StartSuiteRunResponse)++-- | Amazon Resource Name (ARN) of the started suite run.+startSuiteRunResponse_suiteRunArn :: Lens.Lens' StartSuiteRunResponse (Prelude.Maybe Prelude.Text)+startSuiteRunResponse_suiteRunArn = Lens.lens (\StartSuiteRunResponse' {suiteRunArn} -> suiteRunArn) (\s@StartSuiteRunResponse' {} a -> s {suiteRunArn = a} :: StartSuiteRunResponse)++-- | Suite Run ID of the started suite run.+startSuiteRunResponse_suiteRunId :: Lens.Lens' StartSuiteRunResponse (Prelude.Maybe Prelude.Text)+startSuiteRunResponse_suiteRunId = Lens.lens (\StartSuiteRunResponse' {suiteRunId} -> suiteRunId) (\s@StartSuiteRunResponse' {} a -> s {suiteRunId = a} :: StartSuiteRunResponse)++-- | The response's http status code.+startSuiteRunResponse_httpStatus :: Lens.Lens' StartSuiteRunResponse Prelude.Int+startSuiteRunResponse_httpStatus = Lens.lens (\StartSuiteRunResponse' {httpStatus} -> httpStatus) (\s@StartSuiteRunResponse' {} a -> s {httpStatus = a} :: StartSuiteRunResponse)++instance Prelude.NFData StartSuiteRunResponse where+  rnf StartSuiteRunResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf endpoint+      `Prelude.seq` Prelude.rnf suiteRunArn+      `Prelude.seq` Prelude.rnf suiteRunId+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/StopSuiteRun.hs view
@@ -0,0 +1,173 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.StopSuiteRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops a Device Advisor test suite run that is currently running.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions StopSuiteRun>+-- action.+module Amazonka.IoTDeviceAdvisor.StopSuiteRun+  ( -- * Creating a Request+    StopSuiteRun (..),+    newStopSuiteRun,++    -- * Request Lenses+    stopSuiteRun_suiteDefinitionId,+    stopSuiteRun_suiteRunId,++    -- * Destructuring the Response+    StopSuiteRunResponse (..),+    newStopSuiteRunResponse,++    -- * Response Lenses+    stopSuiteRunResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStopSuiteRun' smart constructor.+data StopSuiteRun = StopSuiteRun'+  { -- | Suite definition ID of the test suite run to be stopped.+    suiteDefinitionId :: Prelude.Text,+    -- | Suite run ID of the test suite run to be stopped.+    suiteRunId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopSuiteRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'suiteDefinitionId', 'stopSuiteRun_suiteDefinitionId' - Suite definition ID of the test suite run to be stopped.+--+-- 'suiteRunId', 'stopSuiteRun_suiteRunId' - Suite run ID of the test suite run to be stopped.+newStopSuiteRun ::+  -- | 'suiteDefinitionId'+  Prelude.Text ->+  -- | 'suiteRunId'+  Prelude.Text ->+  StopSuiteRun+newStopSuiteRun pSuiteDefinitionId_ pSuiteRunId_ =+  StopSuiteRun'+    { suiteDefinitionId =+        pSuiteDefinitionId_,+      suiteRunId = pSuiteRunId_+    }++-- | Suite definition ID of the test suite run to be stopped.+stopSuiteRun_suiteDefinitionId :: Lens.Lens' StopSuiteRun Prelude.Text+stopSuiteRun_suiteDefinitionId = Lens.lens (\StopSuiteRun' {suiteDefinitionId} -> suiteDefinitionId) (\s@StopSuiteRun' {} a -> s {suiteDefinitionId = a} :: StopSuiteRun)++-- | Suite run ID of the test suite run to be stopped.+stopSuiteRun_suiteRunId :: Lens.Lens' StopSuiteRun Prelude.Text+stopSuiteRun_suiteRunId = Lens.lens (\StopSuiteRun' {suiteRunId} -> suiteRunId) (\s@StopSuiteRun' {} a -> s {suiteRunId = a} :: StopSuiteRun)++instance Core.AWSRequest StopSuiteRun where+  type AWSResponse StopSuiteRun = StopSuiteRunResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          StopSuiteRunResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopSuiteRun where+  hashWithSalt _salt StopSuiteRun' {..} =+    _salt+      `Prelude.hashWithSalt` suiteDefinitionId+      `Prelude.hashWithSalt` suiteRunId++instance Prelude.NFData StopSuiteRun where+  rnf StopSuiteRun' {..} =+    Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteRunId++instance Data.ToHeaders StopSuiteRun where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopSuiteRun where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath StopSuiteRun where+  toPath StopSuiteRun' {..} =+    Prelude.mconcat+      [ "/suiteDefinitions/",+        Data.toBS suiteDefinitionId,+        "/suiteRuns/",+        Data.toBS suiteRunId,+        "/stop"+      ]++instance Data.ToQuery StopSuiteRun where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStopSuiteRunResponse' smart constructor.+data StopSuiteRunResponse = StopSuiteRunResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopSuiteRunResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'stopSuiteRunResponse_httpStatus' - The response's http status code.+newStopSuiteRunResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopSuiteRunResponse+newStopSuiteRunResponse pHttpStatus_ =+  StopSuiteRunResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+stopSuiteRunResponse_httpStatus :: Lens.Lens' StopSuiteRunResponse Prelude.Int+stopSuiteRunResponse_httpStatus = Lens.lens (\StopSuiteRunResponse' {httpStatus} -> httpStatus) (\s@StopSuiteRunResponse' {} a -> s {httpStatus = a} :: StopSuiteRunResponse)++instance Prelude.NFData StopSuiteRunResponse where+  rnf StopSuiteRunResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/TagResource.hs view
@@ -0,0 +1,170 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.TagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds to and modifies existing tags of an IoT Device Advisor resource.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions TagResource>+-- action.+module Amazonka.IoTDeviceAdvisor.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceArn,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The resource ARN of an IoT Device Advisor resource. This can be+    -- SuiteDefinition ARN or SuiteRun ARN.+    resourceArn :: Prelude.Text,+    -- | The tags to be attached to the IoT Device Advisor resource.+    tags :: Prelude.HashMap Prelude.Text Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'tagResource_resourceArn' - The resource ARN of an IoT Device Advisor resource. This can be+-- SuiteDefinition ARN or SuiteRun ARN.+--+-- 'tags', 'tagResource_tags' - The tags to be attached to the IoT Device Advisor resource.+newTagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  TagResource+newTagResource pResourceArn_ =+  TagResource'+    { resourceArn = pResourceArn_,+      tags = Prelude.mempty+    }++-- | The resource ARN of an IoT Device Advisor resource. This can be+-- SuiteDefinition ARN or SuiteRun ARN.+tagResource_resourceArn :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceArn = Lens.lens (\TagResource' {resourceArn} -> resourceArn) (\s@TagResource' {} a -> s {resourceArn = a} :: TagResource)++-- | The tags to be attached to the IoT Device Advisor resource.+tagResource_tags :: Lens.Lens' TagResource (Prelude.HashMap Prelude.Text Prelude.Text)+tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced++instance Core.AWSRequest TagResource where+  type AWSResponse TagResource = TagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` tags++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("tags" Data..= tags)]+      )++instance Data.ToPath TagResource where+  toPath TagResource' {..} =+    Prelude.mconcat ["/tags/", Data.toBS resourceArn]++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} = Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/Types.hs view
@@ -0,0 +1,246 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _ConflictException,+    _InternalServerException,+    _ResourceNotFoundException,+    _ValidationException,++    -- * Protocol+    Protocol (..),++    -- * Status+    Status (..),++    -- * SuiteRunStatus+    SuiteRunStatus (..),++    -- * TestCaseScenarioStatus+    TestCaseScenarioStatus (..),++    -- * TestCaseScenarioType+    TestCaseScenarioType (..),++    -- * DeviceUnderTest+    DeviceUnderTest (..),+    newDeviceUnderTest,+    deviceUnderTest_certificateArn,+    deviceUnderTest_thingArn,++    -- * GroupResult+    GroupResult (..),+    newGroupResult,+    groupResult_groupId,+    groupResult_groupName,+    groupResult_tests,++    -- * SuiteDefinitionConfiguration+    SuiteDefinitionConfiguration (..),+    newSuiteDefinitionConfiguration,+    suiteDefinitionConfiguration_devices,+    suiteDefinitionConfiguration_intendedForQualification,+    suiteDefinitionConfiguration_isLongDurationTest,+    suiteDefinitionConfiguration_protocol,+    suiteDefinitionConfiguration_suiteDefinitionName,+    suiteDefinitionConfiguration_rootGroup,+    suiteDefinitionConfiguration_devicePermissionRoleArn,++    -- * SuiteDefinitionInformation+    SuiteDefinitionInformation (..),+    newSuiteDefinitionInformation,+    suiteDefinitionInformation_createdAt,+    suiteDefinitionInformation_defaultDevices,+    suiteDefinitionInformation_intendedForQualification,+    suiteDefinitionInformation_isLongDurationTest,+    suiteDefinitionInformation_protocol,+    suiteDefinitionInformation_suiteDefinitionId,+    suiteDefinitionInformation_suiteDefinitionName,++    -- * SuiteRunConfiguration+    SuiteRunConfiguration (..),+    newSuiteRunConfiguration,+    suiteRunConfiguration_parallelRun,+    suiteRunConfiguration_selectedTestList,+    suiteRunConfiguration_primaryDevice,++    -- * SuiteRunInformation+    SuiteRunInformation (..),+    newSuiteRunInformation,+    suiteRunInformation_createdAt,+    suiteRunInformation_endAt,+    suiteRunInformation_failed,+    suiteRunInformation_passed,+    suiteRunInformation_startedAt,+    suiteRunInformation_status,+    suiteRunInformation_suiteDefinitionId,+    suiteRunInformation_suiteDefinitionName,+    suiteRunInformation_suiteDefinitionVersion,+    suiteRunInformation_suiteRunId,++    -- * TestCaseRun+    TestCaseRun (..),+    newTestCaseRun,+    testCaseRun_endTime,+    testCaseRun_failure,+    testCaseRun_logUrl,+    testCaseRun_startTime,+    testCaseRun_status,+    testCaseRun_testCaseDefinitionId,+    testCaseRun_testCaseDefinitionName,+    testCaseRun_testCaseRunId,+    testCaseRun_testScenarios,+    testCaseRun_warnings,++    -- * TestCaseScenario+    TestCaseScenario (..),+    newTestCaseScenario,+    testCaseScenario_failure,+    testCaseScenario_status,+    testCaseScenario_systemMessage,+    testCaseScenario_testCaseScenarioId,+    testCaseScenario_testCaseScenarioType,++    -- * TestResult+    TestResult (..),+    newTestResult,+    testResult_groups,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest+import Amazonka.IoTDeviceAdvisor.Types.GroupResult+import Amazonka.IoTDeviceAdvisor.Types.Protocol+import Amazonka.IoTDeviceAdvisor.Types.Status+import Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration+import Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation+import Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration+import Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation+import Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus+import Amazonka.IoTDeviceAdvisor.Types.TestCaseRun+import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario+import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus+import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType+import Amazonka.IoTDeviceAdvisor.Types.TestResult+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2020-09-18@ of the Amazon IoT Core Device Advisor SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "IoTDeviceAdvisor",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "api.iotdeviceadvisor",+      Core.signingName = "iotdeviceadvisor",+      Core.version = "2020-09-18",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "IoTDeviceAdvisor",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | Sends a Conflict Exception.+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConflictException =+  Core._MatchServiceError+    defaultService+    "ConflictException"+    Prelude.. Core.hasStatus 400++-- | Sends an Internal Failure exception.+_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerException =+  Core._MatchServiceError+    defaultService+    "InternalServerException"+    Prelude.. Core.hasStatus 500++-- | Sends a Resource Not Found exception.+_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceNotFoundException =+  Core._MatchServiceError+    defaultService+    "ResourceNotFoundException"+    Prelude.. Core.hasStatus 404++-- | Sends a validation exception.+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ValidationException =+  Core._MatchServiceError+    defaultService+    "ValidationException"+    Prelude.. Core.hasStatus 400
+ gen/Amazonka/IoTDeviceAdvisor/Types/DeviceUnderTest.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Information of a test device. A thing ARN or a certificate ARN is+-- required.+--+-- /See:/ 'newDeviceUnderTest' smart constructor.+data DeviceUnderTest = DeviceUnderTest'+  { -- | Lists devices certificate ARN.+    certificateArn :: Prelude.Maybe Prelude.Text,+    -- | Lists devices thing ARN.+    thingArn :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeviceUnderTest' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'certificateArn', 'deviceUnderTest_certificateArn' - Lists devices certificate ARN.+--+-- 'thingArn', 'deviceUnderTest_thingArn' - Lists devices thing ARN.+newDeviceUnderTest ::+  DeviceUnderTest+newDeviceUnderTest =+  DeviceUnderTest'+    { certificateArn = Prelude.Nothing,+      thingArn = Prelude.Nothing+    }++-- | Lists devices certificate ARN.+deviceUnderTest_certificateArn :: Lens.Lens' DeviceUnderTest (Prelude.Maybe Prelude.Text)+deviceUnderTest_certificateArn = Lens.lens (\DeviceUnderTest' {certificateArn} -> certificateArn) (\s@DeviceUnderTest' {} a -> s {certificateArn = a} :: DeviceUnderTest)++-- | Lists devices thing ARN.+deviceUnderTest_thingArn :: Lens.Lens' DeviceUnderTest (Prelude.Maybe Prelude.Text)+deviceUnderTest_thingArn = Lens.lens (\DeviceUnderTest' {thingArn} -> thingArn) (\s@DeviceUnderTest' {} a -> s {thingArn = a} :: DeviceUnderTest)++instance Data.FromJSON DeviceUnderTest where+  parseJSON =+    Data.withObject+      "DeviceUnderTest"+      ( \x ->+          DeviceUnderTest'+            Prelude.<$> (x Data..:? "certificateArn")+            Prelude.<*> (x Data..:? "thingArn")+      )++instance Prelude.Hashable DeviceUnderTest where+  hashWithSalt _salt DeviceUnderTest' {..} =+    _salt+      `Prelude.hashWithSalt` certificateArn+      `Prelude.hashWithSalt` thingArn++instance Prelude.NFData DeviceUnderTest where+  rnf DeviceUnderTest' {..} =+    Prelude.rnf certificateArn+      `Prelude.seq` Prelude.rnf thingArn++instance Data.ToJSON DeviceUnderTest where+  toJSON DeviceUnderTest' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("certificateArn" Data..=)+              Prelude.<$> certificateArn,+            ("thingArn" Data..=) Prelude.<$> thingArn+          ]+      )
+ gen/Amazonka/IoTDeviceAdvisor/Types/GroupResult.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.GroupResult+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.GroupResult where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types.TestCaseRun+import qualified Amazonka.Prelude as Prelude++-- | Show Group Result.+--+-- /See:/ 'newGroupResult' smart constructor.+data GroupResult = GroupResult'+  { -- | Group result ID.+    groupId :: Prelude.Maybe Prelude.Text,+    -- | Group Result Name.+    groupName :: Prelude.Maybe Prelude.Text,+    -- | Tests under Group Result.+    tests :: Prelude.Maybe [TestCaseRun]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupResult' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'groupId', 'groupResult_groupId' - Group result ID.+--+-- 'groupName', 'groupResult_groupName' - Group Result Name.+--+-- 'tests', 'groupResult_tests' - Tests under Group Result.+newGroupResult ::+  GroupResult+newGroupResult =+  GroupResult'+    { groupId = Prelude.Nothing,+      groupName = Prelude.Nothing,+      tests = Prelude.Nothing+    }++-- | Group result ID.+groupResult_groupId :: Lens.Lens' GroupResult (Prelude.Maybe Prelude.Text)+groupResult_groupId = Lens.lens (\GroupResult' {groupId} -> groupId) (\s@GroupResult' {} a -> s {groupId = a} :: GroupResult)++-- | Group Result Name.+groupResult_groupName :: Lens.Lens' GroupResult (Prelude.Maybe Prelude.Text)+groupResult_groupName = Lens.lens (\GroupResult' {groupName} -> groupName) (\s@GroupResult' {} a -> s {groupName = a} :: GroupResult)++-- | Tests under Group Result.+groupResult_tests :: Lens.Lens' GroupResult (Prelude.Maybe [TestCaseRun])+groupResult_tests = Lens.lens (\GroupResult' {tests} -> tests) (\s@GroupResult' {} a -> s {tests = a} :: GroupResult) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON GroupResult where+  parseJSON =+    Data.withObject+      "GroupResult"+      ( \x ->+          GroupResult'+            Prelude.<$> (x Data..:? "groupId")+            Prelude.<*> (x Data..:? "groupName")+            Prelude.<*> (x Data..:? "tests" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable GroupResult where+  hashWithSalt _salt GroupResult' {..} =+    _salt+      `Prelude.hashWithSalt` groupId+      `Prelude.hashWithSalt` groupName+      `Prelude.hashWithSalt` tests++instance Prelude.NFData GroupResult where+  rnf GroupResult' {..} =+    Prelude.rnf groupId+      `Prelude.seq` Prelude.rnf groupName+      `Prelude.seq` Prelude.rnf tests
+ gen/Amazonka/IoTDeviceAdvisor/Types/Protocol.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.Protocol+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.Protocol+  ( Protocol+      ( ..,+        Protocol_MqttV3_1_1,+        Protocol_MqttV5+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Protocol = Protocol'+  { fromProtocol ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern Protocol_MqttV3_1_1 :: Protocol+pattern Protocol_MqttV3_1_1 = Protocol' "MqttV3_1_1"++pattern Protocol_MqttV5 :: Protocol+pattern Protocol_MqttV5 = Protocol' "MqttV5"++{-# COMPLETE+  Protocol_MqttV3_1_1,+  Protocol_MqttV5,+  Protocol'+  #-}
+ gen/Amazonka/IoTDeviceAdvisor/Types/Status.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.Status+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.Status+  ( Status+      ( ..,+        Status_CANCELED,+        Status_ERROR,+        Status_FAIL,+        Status_PASS,+        Status_PASS_WITH_WARNINGS,+        Status_PENDING,+        Status_RUNNING,+        Status_STOPPED,+        Status_STOPPING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Status = Status' {fromStatus :: Data.Text}+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern Status_CANCELED :: Status+pattern Status_CANCELED = Status' "CANCELED"++pattern Status_ERROR :: Status+pattern Status_ERROR = Status' "ERROR"++pattern Status_FAIL :: Status+pattern Status_FAIL = Status' "FAIL"++pattern Status_PASS :: Status+pattern Status_PASS = Status' "PASS"++pattern Status_PASS_WITH_WARNINGS :: Status+pattern Status_PASS_WITH_WARNINGS = Status' "PASS_WITH_WARNINGS"++pattern Status_PENDING :: Status+pattern Status_PENDING = Status' "PENDING"++pattern Status_RUNNING :: Status+pattern Status_RUNNING = Status' "RUNNING"++pattern Status_STOPPED :: Status+pattern Status_STOPPED = Status' "STOPPED"++pattern Status_STOPPING :: Status+pattern Status_STOPPING = Status' "STOPPING"++{-# COMPLETE+  Status_CANCELED,+  Status_ERROR,+  Status_FAIL,+  Status_PASS,+  Status_PASS_WITH_WARNINGS,+  Status_PENDING,+  Status_RUNNING,+  Status_STOPPED,+  Status_STOPPING,+  Status'+  #-}
+ gen/Amazonka/IoTDeviceAdvisor/Types/SuiteDefinitionConfiguration.hs view
@@ -0,0 +1,180 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest+import Amazonka.IoTDeviceAdvisor.Types.Protocol+import qualified Amazonka.Prelude as Prelude++-- | Gets the suite definition configuration.+--+-- /See:/ 'newSuiteDefinitionConfiguration' smart constructor.+data SuiteDefinitionConfiguration = SuiteDefinitionConfiguration'+  { -- | Gets the devices configured.+    devices :: Prelude.Maybe [DeviceUnderTest],+    -- | Gets the tests intended for qualification in a suite.+    intendedForQualification :: Prelude.Maybe Prelude.Bool,+    -- | Verifies if the test suite is a long duration test.+    isLongDurationTest :: Prelude.Maybe Prelude.Bool,+    -- | Sets the MQTT protocol that is configured in the suite definition.+    protocol :: Prelude.Maybe Protocol,+    -- | Gets the suite definition name. This is a required parameter.+    suiteDefinitionName :: Prelude.Text,+    -- | Gets the test suite root group. This is a required parameter.+    rootGroup :: Prelude.Text,+    -- | Gets the device permission ARN. This is a required parameter.+    devicePermissionRoleArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SuiteDefinitionConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'devices', 'suiteDefinitionConfiguration_devices' - Gets the devices configured.+--+-- 'intendedForQualification', 'suiteDefinitionConfiguration_intendedForQualification' - Gets the tests intended for qualification in a suite.+--+-- 'isLongDurationTest', 'suiteDefinitionConfiguration_isLongDurationTest' - Verifies if the test suite is a long duration test.+--+-- 'protocol', 'suiteDefinitionConfiguration_protocol' - Sets the MQTT protocol that is configured in the suite definition.+--+-- 'suiteDefinitionName', 'suiteDefinitionConfiguration_suiteDefinitionName' - Gets the suite definition name. This is a required parameter.+--+-- 'rootGroup', 'suiteDefinitionConfiguration_rootGroup' - Gets the test suite root group. This is a required parameter.+--+-- 'devicePermissionRoleArn', 'suiteDefinitionConfiguration_devicePermissionRoleArn' - Gets the device permission ARN. This is a required parameter.+newSuiteDefinitionConfiguration ::+  -- | 'suiteDefinitionName'+  Prelude.Text ->+  -- | 'rootGroup'+  Prelude.Text ->+  -- | 'devicePermissionRoleArn'+  Prelude.Text ->+  SuiteDefinitionConfiguration+newSuiteDefinitionConfiguration+  pSuiteDefinitionName_+  pRootGroup_+  pDevicePermissionRoleArn_ =+    SuiteDefinitionConfiguration'+      { devices =+          Prelude.Nothing,+        intendedForQualification = Prelude.Nothing,+        isLongDurationTest = Prelude.Nothing,+        protocol = Prelude.Nothing,+        suiteDefinitionName = pSuiteDefinitionName_,+        rootGroup = pRootGroup_,+        devicePermissionRoleArn =+          pDevicePermissionRoleArn_+      }++-- | Gets the devices configured.+suiteDefinitionConfiguration_devices :: Lens.Lens' SuiteDefinitionConfiguration (Prelude.Maybe [DeviceUnderTest])+suiteDefinitionConfiguration_devices = Lens.lens (\SuiteDefinitionConfiguration' {devices} -> devices) (\s@SuiteDefinitionConfiguration' {} a -> s {devices = a} :: SuiteDefinitionConfiguration) Prelude.. Lens.mapping Lens.coerced++-- | Gets the tests intended for qualification in a suite.+suiteDefinitionConfiguration_intendedForQualification :: Lens.Lens' SuiteDefinitionConfiguration (Prelude.Maybe Prelude.Bool)+suiteDefinitionConfiguration_intendedForQualification = Lens.lens (\SuiteDefinitionConfiguration' {intendedForQualification} -> intendedForQualification) (\s@SuiteDefinitionConfiguration' {} a -> s {intendedForQualification = a} :: SuiteDefinitionConfiguration)++-- | Verifies if the test suite is a long duration test.+suiteDefinitionConfiguration_isLongDurationTest :: Lens.Lens' SuiteDefinitionConfiguration (Prelude.Maybe Prelude.Bool)+suiteDefinitionConfiguration_isLongDurationTest = Lens.lens (\SuiteDefinitionConfiguration' {isLongDurationTest} -> isLongDurationTest) (\s@SuiteDefinitionConfiguration' {} a -> s {isLongDurationTest = a} :: SuiteDefinitionConfiguration)++-- | Sets the MQTT protocol that is configured in the suite definition.+suiteDefinitionConfiguration_protocol :: Lens.Lens' SuiteDefinitionConfiguration (Prelude.Maybe Protocol)+suiteDefinitionConfiguration_protocol = Lens.lens (\SuiteDefinitionConfiguration' {protocol} -> protocol) (\s@SuiteDefinitionConfiguration' {} a -> s {protocol = a} :: SuiteDefinitionConfiguration)++-- | Gets the suite definition name. This is a required parameter.+suiteDefinitionConfiguration_suiteDefinitionName :: Lens.Lens' SuiteDefinitionConfiguration Prelude.Text+suiteDefinitionConfiguration_suiteDefinitionName = Lens.lens (\SuiteDefinitionConfiguration' {suiteDefinitionName} -> suiteDefinitionName) (\s@SuiteDefinitionConfiguration' {} a -> s {suiteDefinitionName = a} :: SuiteDefinitionConfiguration)++-- | Gets the test suite root group. This is a required parameter.+suiteDefinitionConfiguration_rootGroup :: Lens.Lens' SuiteDefinitionConfiguration Prelude.Text+suiteDefinitionConfiguration_rootGroup = Lens.lens (\SuiteDefinitionConfiguration' {rootGroup} -> rootGroup) (\s@SuiteDefinitionConfiguration' {} a -> s {rootGroup = a} :: SuiteDefinitionConfiguration)++-- | Gets the device permission ARN. This is a required parameter.+suiteDefinitionConfiguration_devicePermissionRoleArn :: Lens.Lens' SuiteDefinitionConfiguration Prelude.Text+suiteDefinitionConfiguration_devicePermissionRoleArn = Lens.lens (\SuiteDefinitionConfiguration' {devicePermissionRoleArn} -> devicePermissionRoleArn) (\s@SuiteDefinitionConfiguration' {} a -> s {devicePermissionRoleArn = a} :: SuiteDefinitionConfiguration)++instance Data.FromJSON SuiteDefinitionConfiguration where+  parseJSON =+    Data.withObject+      "SuiteDefinitionConfiguration"+      ( \x ->+          SuiteDefinitionConfiguration'+            Prelude.<$> (x Data..:? "devices" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "intendedForQualification")+            Prelude.<*> (x Data..:? "isLongDurationTest")+            Prelude.<*> (x Data..:? "protocol")+            Prelude.<*> (x Data..: "suiteDefinitionName")+            Prelude.<*> (x Data..: "rootGroup")+            Prelude.<*> (x Data..: "devicePermissionRoleArn")+      )++instance+  Prelude.Hashable+    SuiteDefinitionConfiguration+  where+  hashWithSalt _salt SuiteDefinitionConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` devices+      `Prelude.hashWithSalt` intendedForQualification+      `Prelude.hashWithSalt` isLongDurationTest+      `Prelude.hashWithSalt` protocol+      `Prelude.hashWithSalt` suiteDefinitionName+      `Prelude.hashWithSalt` rootGroup+      `Prelude.hashWithSalt` devicePermissionRoleArn++instance Prelude.NFData SuiteDefinitionConfiguration where+  rnf SuiteDefinitionConfiguration' {..} =+    Prelude.rnf devices+      `Prelude.seq` Prelude.rnf intendedForQualification+      `Prelude.seq` Prelude.rnf isLongDurationTest+      `Prelude.seq` Prelude.rnf protocol+      `Prelude.seq` Prelude.rnf suiteDefinitionName+      `Prelude.seq` Prelude.rnf rootGroup+      `Prelude.seq` Prelude.rnf devicePermissionRoleArn++instance Data.ToJSON SuiteDefinitionConfiguration where+  toJSON SuiteDefinitionConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("devices" Data..=) Prelude.<$> devices,+            ("intendedForQualification" Data..=)+              Prelude.<$> intendedForQualification,+            ("isLongDurationTest" Data..=)+              Prelude.<$> isLongDurationTest,+            ("protocol" Data..=) Prelude.<$> protocol,+            Prelude.Just+              ("suiteDefinitionName" Data..= suiteDefinitionName),+            Prelude.Just ("rootGroup" Data..= rootGroup),+            Prelude.Just+              ( "devicePermissionRoleArn"+                  Data..= devicePermissionRoleArn+              )+          ]+      )
+ gen/Amazonka/IoTDeviceAdvisor/Types/SuiteDefinitionInformation.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest+import Amazonka.IoTDeviceAdvisor.Types.Protocol+import qualified Amazonka.Prelude as Prelude++-- | Information about the suite definition.+--+-- /See:/ 'newSuiteDefinitionInformation' smart constructor.+data SuiteDefinitionInformation = SuiteDefinitionInformation'+  { -- | Date (in Unix epoch time) when the test suite was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | Specifies the devices that are under test for the test suite.+    defaultDevices :: Prelude.Maybe [DeviceUnderTest],+    -- | Specifies if the test suite is intended for qualification.+    intendedForQualification :: Prelude.Maybe Prelude.Bool,+    -- | Verifies if the test suite is a long duration test.+    isLongDurationTest :: Prelude.Maybe Prelude.Bool,+    -- | Gets the MQTT protocol that is configured in the suite definition.+    protocol :: Prelude.Maybe Protocol,+    -- | Suite definition ID of the test suite.+    suiteDefinitionId :: Prelude.Maybe Prelude.Text,+    -- | Suite name of the test suite.+    suiteDefinitionName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SuiteDefinitionInformation' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdAt', 'suiteDefinitionInformation_createdAt' - Date (in Unix epoch time) when the test suite was created.+--+-- 'defaultDevices', 'suiteDefinitionInformation_defaultDevices' - Specifies the devices that are under test for the test suite.+--+-- 'intendedForQualification', 'suiteDefinitionInformation_intendedForQualification' - Specifies if the test suite is intended for qualification.+--+-- 'isLongDurationTest', 'suiteDefinitionInformation_isLongDurationTest' - Verifies if the test suite is a long duration test.+--+-- 'protocol', 'suiteDefinitionInformation_protocol' - Gets the MQTT protocol that is configured in the suite definition.+--+-- 'suiteDefinitionId', 'suiteDefinitionInformation_suiteDefinitionId' - Suite definition ID of the test suite.+--+-- 'suiteDefinitionName', 'suiteDefinitionInformation_suiteDefinitionName' - Suite name of the test suite.+newSuiteDefinitionInformation ::+  SuiteDefinitionInformation+newSuiteDefinitionInformation =+  SuiteDefinitionInformation'+    { createdAt =+        Prelude.Nothing,+      defaultDevices = Prelude.Nothing,+      intendedForQualification = Prelude.Nothing,+      isLongDurationTest = Prelude.Nothing,+      protocol = Prelude.Nothing,+      suiteDefinitionId = Prelude.Nothing,+      suiteDefinitionName = Prelude.Nothing+    }++-- | Date (in Unix epoch time) when the test suite was created.+suiteDefinitionInformation_createdAt :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.UTCTime)+suiteDefinitionInformation_createdAt = Lens.lens (\SuiteDefinitionInformation' {createdAt} -> createdAt) (\s@SuiteDefinitionInformation' {} a -> s {createdAt = a} :: SuiteDefinitionInformation) Prelude.. Lens.mapping Data._Time++-- | Specifies the devices that are under test for the test suite.+suiteDefinitionInformation_defaultDevices :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe [DeviceUnderTest])+suiteDefinitionInformation_defaultDevices = Lens.lens (\SuiteDefinitionInformation' {defaultDevices} -> defaultDevices) (\s@SuiteDefinitionInformation' {} a -> s {defaultDevices = a} :: SuiteDefinitionInformation) Prelude.. Lens.mapping Lens.coerced++-- | Specifies if the test suite is intended for qualification.+suiteDefinitionInformation_intendedForQualification :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.Bool)+suiteDefinitionInformation_intendedForQualification = Lens.lens (\SuiteDefinitionInformation' {intendedForQualification} -> intendedForQualification) (\s@SuiteDefinitionInformation' {} a -> s {intendedForQualification = a} :: SuiteDefinitionInformation)++-- | Verifies if the test suite is a long duration test.+suiteDefinitionInformation_isLongDurationTest :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.Bool)+suiteDefinitionInformation_isLongDurationTest = Lens.lens (\SuiteDefinitionInformation' {isLongDurationTest} -> isLongDurationTest) (\s@SuiteDefinitionInformation' {} a -> s {isLongDurationTest = a} :: SuiteDefinitionInformation)++-- | Gets the MQTT protocol that is configured in the suite definition.+suiteDefinitionInformation_protocol :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Protocol)+suiteDefinitionInformation_protocol = Lens.lens (\SuiteDefinitionInformation' {protocol} -> protocol) (\s@SuiteDefinitionInformation' {} a -> s {protocol = a} :: SuiteDefinitionInformation)++-- | Suite definition ID of the test suite.+suiteDefinitionInformation_suiteDefinitionId :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.Text)+suiteDefinitionInformation_suiteDefinitionId = Lens.lens (\SuiteDefinitionInformation' {suiteDefinitionId} -> suiteDefinitionId) (\s@SuiteDefinitionInformation' {} a -> s {suiteDefinitionId = a} :: SuiteDefinitionInformation)++-- | Suite name of the test suite.+suiteDefinitionInformation_suiteDefinitionName :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.Text)+suiteDefinitionInformation_suiteDefinitionName = Lens.lens (\SuiteDefinitionInformation' {suiteDefinitionName} -> suiteDefinitionName) (\s@SuiteDefinitionInformation' {} a -> s {suiteDefinitionName = a} :: SuiteDefinitionInformation)++instance Data.FromJSON SuiteDefinitionInformation where+  parseJSON =+    Data.withObject+      "SuiteDefinitionInformation"+      ( \x ->+          SuiteDefinitionInformation'+            Prelude.<$> (x Data..:? "createdAt")+            Prelude.<*> (x Data..:? "defaultDevices" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "intendedForQualification")+            Prelude.<*> (x Data..:? "isLongDurationTest")+            Prelude.<*> (x Data..:? "protocol")+            Prelude.<*> (x Data..:? "suiteDefinitionId")+            Prelude.<*> (x Data..:? "suiteDefinitionName")+      )++instance Prelude.Hashable SuiteDefinitionInformation where+  hashWithSalt _salt SuiteDefinitionInformation' {..} =+    _salt+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` defaultDevices+      `Prelude.hashWithSalt` intendedForQualification+      `Prelude.hashWithSalt` isLongDurationTest+      `Prelude.hashWithSalt` protocol+      `Prelude.hashWithSalt` suiteDefinitionId+      `Prelude.hashWithSalt` suiteDefinitionName++instance Prelude.NFData SuiteDefinitionInformation where+  rnf SuiteDefinitionInformation' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf defaultDevices+      `Prelude.seq` Prelude.rnf intendedForQualification+      `Prelude.seq` Prelude.rnf isLongDurationTest+      `Prelude.seq` Prelude.rnf protocol+      `Prelude.seq` Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteDefinitionName
+ gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunConfiguration.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest+import qualified Amazonka.Prelude as Prelude++-- | Gets suite run configuration.+--+-- /See:/ 'newSuiteRunConfiguration' smart constructor.+data SuiteRunConfiguration = SuiteRunConfiguration'+  { -- | TRUE if multiple test suites run in parallel.+    parallelRun :: Prelude.Maybe Prelude.Bool,+    -- | Sets test case list.+    selectedTestList :: Prelude.Maybe [Prelude.Text],+    -- | Sets the primary device for the test suite run. This requires a thing+    -- ARN or a certificate ARN.+    primaryDevice :: DeviceUnderTest+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SuiteRunConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'parallelRun', 'suiteRunConfiguration_parallelRun' - TRUE if multiple test suites run in parallel.+--+-- 'selectedTestList', 'suiteRunConfiguration_selectedTestList' - Sets test case list.+--+-- 'primaryDevice', 'suiteRunConfiguration_primaryDevice' - Sets the primary device for the test suite run. This requires a thing+-- ARN or a certificate ARN.+newSuiteRunConfiguration ::+  -- | 'primaryDevice'+  DeviceUnderTest ->+  SuiteRunConfiguration+newSuiteRunConfiguration pPrimaryDevice_ =+  SuiteRunConfiguration'+    { parallelRun =+        Prelude.Nothing,+      selectedTestList = Prelude.Nothing,+      primaryDevice = pPrimaryDevice_+    }++-- | TRUE if multiple test suites run in parallel.+suiteRunConfiguration_parallelRun :: Lens.Lens' SuiteRunConfiguration (Prelude.Maybe Prelude.Bool)+suiteRunConfiguration_parallelRun = Lens.lens (\SuiteRunConfiguration' {parallelRun} -> parallelRun) (\s@SuiteRunConfiguration' {} a -> s {parallelRun = a} :: SuiteRunConfiguration)++-- | Sets test case list.+suiteRunConfiguration_selectedTestList :: Lens.Lens' SuiteRunConfiguration (Prelude.Maybe [Prelude.Text])+suiteRunConfiguration_selectedTestList = Lens.lens (\SuiteRunConfiguration' {selectedTestList} -> selectedTestList) (\s@SuiteRunConfiguration' {} a -> s {selectedTestList = a} :: SuiteRunConfiguration) Prelude.. Lens.mapping Lens.coerced++-- | Sets the primary device for the test suite run. This requires a thing+-- ARN or a certificate ARN.+suiteRunConfiguration_primaryDevice :: Lens.Lens' SuiteRunConfiguration DeviceUnderTest+suiteRunConfiguration_primaryDevice = Lens.lens (\SuiteRunConfiguration' {primaryDevice} -> primaryDevice) (\s@SuiteRunConfiguration' {} a -> s {primaryDevice = a} :: SuiteRunConfiguration)++instance Data.FromJSON SuiteRunConfiguration where+  parseJSON =+    Data.withObject+      "SuiteRunConfiguration"+      ( \x ->+          SuiteRunConfiguration'+            Prelude.<$> (x Data..:? "parallelRun")+            Prelude.<*> ( x+                            Data..:? "selectedTestList"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..: "primaryDevice")+      )++instance Prelude.Hashable SuiteRunConfiguration where+  hashWithSalt _salt SuiteRunConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` parallelRun+      `Prelude.hashWithSalt` selectedTestList+      `Prelude.hashWithSalt` primaryDevice++instance Prelude.NFData SuiteRunConfiguration where+  rnf SuiteRunConfiguration' {..} =+    Prelude.rnf parallelRun+      `Prelude.seq` Prelude.rnf selectedTestList+      `Prelude.seq` Prelude.rnf primaryDevice++instance Data.ToJSON SuiteRunConfiguration where+  toJSON SuiteRunConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("parallelRun" Data..=) Prelude.<$> parallelRun,+            ("selectedTestList" Data..=)+              Prelude.<$> selectedTestList,+            Prelude.Just+              ("primaryDevice" Data..= primaryDevice)+          ]+      )
+ gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunInformation.hs view
@@ -0,0 +1,185 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus+import qualified Amazonka.Prelude as Prelude++-- | Information about the suite run.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions SuiteRunInformation>+-- action.+--+-- /See:/ 'newSuiteRunInformation' smart constructor.+data SuiteRunInformation = SuiteRunInformation'+  { -- | Date (in Unix epoch time) when the suite run was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | Date (in Unix epoch time) when the suite run ended.+    endAt :: Prelude.Maybe Data.POSIX,+    -- | Number of test cases that failed in the suite run.+    failed :: Prelude.Maybe Prelude.Natural,+    -- | Number of test cases that passed in the suite run.+    passed :: Prelude.Maybe Prelude.Natural,+    -- | Date (in Unix epoch time) when the suite run was started.+    startedAt :: Prelude.Maybe Data.POSIX,+    -- | Status of the suite run.+    status :: Prelude.Maybe SuiteRunStatus,+    -- | Suite definition ID of the suite run.+    suiteDefinitionId :: Prelude.Maybe Prelude.Text,+    -- | Suite definition name of the suite run.+    suiteDefinitionName :: Prelude.Maybe Prelude.Text,+    -- | Suite definition version of the suite run.+    suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,+    -- | Suite run ID of the suite run.+    suiteRunId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SuiteRunInformation' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdAt', 'suiteRunInformation_createdAt' - Date (in Unix epoch time) when the suite run was created.+--+-- 'endAt', 'suiteRunInformation_endAt' - Date (in Unix epoch time) when the suite run ended.+--+-- 'failed', 'suiteRunInformation_failed' - Number of test cases that failed in the suite run.+--+-- 'passed', 'suiteRunInformation_passed' - Number of test cases that passed in the suite run.+--+-- 'startedAt', 'suiteRunInformation_startedAt' - Date (in Unix epoch time) when the suite run was started.+--+-- 'status', 'suiteRunInformation_status' - Status of the suite run.+--+-- 'suiteDefinitionId', 'suiteRunInformation_suiteDefinitionId' - Suite definition ID of the suite run.+--+-- 'suiteDefinitionName', 'suiteRunInformation_suiteDefinitionName' - Suite definition name of the suite run.+--+-- 'suiteDefinitionVersion', 'suiteRunInformation_suiteDefinitionVersion' - Suite definition version of the suite run.+--+-- 'suiteRunId', 'suiteRunInformation_suiteRunId' - Suite run ID of the suite run.+newSuiteRunInformation ::+  SuiteRunInformation+newSuiteRunInformation =+  SuiteRunInformation'+    { createdAt = Prelude.Nothing,+      endAt = Prelude.Nothing,+      failed = Prelude.Nothing,+      passed = Prelude.Nothing,+      startedAt = Prelude.Nothing,+      status = Prelude.Nothing,+      suiteDefinitionId = Prelude.Nothing,+      suiteDefinitionName = Prelude.Nothing,+      suiteDefinitionVersion = Prelude.Nothing,+      suiteRunId = Prelude.Nothing+    }++-- | Date (in Unix epoch time) when the suite run was created.+suiteRunInformation_createdAt :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.UTCTime)+suiteRunInformation_createdAt = Lens.lens (\SuiteRunInformation' {createdAt} -> createdAt) (\s@SuiteRunInformation' {} a -> s {createdAt = a} :: SuiteRunInformation) Prelude.. Lens.mapping Data._Time++-- | Date (in Unix epoch time) when the suite run ended.+suiteRunInformation_endAt :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.UTCTime)+suiteRunInformation_endAt = Lens.lens (\SuiteRunInformation' {endAt} -> endAt) (\s@SuiteRunInformation' {} a -> s {endAt = a} :: SuiteRunInformation) Prelude.. Lens.mapping Data._Time++-- | Number of test cases that failed in the suite run.+suiteRunInformation_failed :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Natural)+suiteRunInformation_failed = Lens.lens (\SuiteRunInformation' {failed} -> failed) (\s@SuiteRunInformation' {} a -> s {failed = a} :: SuiteRunInformation)++-- | Number of test cases that passed in the suite run.+suiteRunInformation_passed :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Natural)+suiteRunInformation_passed = Lens.lens (\SuiteRunInformation' {passed} -> passed) (\s@SuiteRunInformation' {} a -> s {passed = a} :: SuiteRunInformation)++-- | Date (in Unix epoch time) when the suite run was started.+suiteRunInformation_startedAt :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.UTCTime)+suiteRunInformation_startedAt = Lens.lens (\SuiteRunInformation' {startedAt} -> startedAt) (\s@SuiteRunInformation' {} a -> s {startedAt = a} :: SuiteRunInformation) Prelude.. Lens.mapping Data._Time++-- | Status of the suite run.+suiteRunInformation_status :: Lens.Lens' SuiteRunInformation (Prelude.Maybe SuiteRunStatus)+suiteRunInformation_status = Lens.lens (\SuiteRunInformation' {status} -> status) (\s@SuiteRunInformation' {} a -> s {status = a} :: SuiteRunInformation)++-- | Suite definition ID of the suite run.+suiteRunInformation_suiteDefinitionId :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Text)+suiteRunInformation_suiteDefinitionId = Lens.lens (\SuiteRunInformation' {suiteDefinitionId} -> suiteDefinitionId) (\s@SuiteRunInformation' {} a -> s {suiteDefinitionId = a} :: SuiteRunInformation)++-- | Suite definition name of the suite run.+suiteRunInformation_suiteDefinitionName :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Text)+suiteRunInformation_suiteDefinitionName = Lens.lens (\SuiteRunInformation' {suiteDefinitionName} -> suiteDefinitionName) (\s@SuiteRunInformation' {} a -> s {suiteDefinitionName = a} :: SuiteRunInformation)++-- | Suite definition version of the suite run.+suiteRunInformation_suiteDefinitionVersion :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Text)+suiteRunInformation_suiteDefinitionVersion = Lens.lens (\SuiteRunInformation' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@SuiteRunInformation' {} a -> s {suiteDefinitionVersion = a} :: SuiteRunInformation)++-- | Suite run ID of the suite run.+suiteRunInformation_suiteRunId :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Text)+suiteRunInformation_suiteRunId = Lens.lens (\SuiteRunInformation' {suiteRunId} -> suiteRunId) (\s@SuiteRunInformation' {} a -> s {suiteRunId = a} :: SuiteRunInformation)++instance Data.FromJSON SuiteRunInformation where+  parseJSON =+    Data.withObject+      "SuiteRunInformation"+      ( \x ->+          SuiteRunInformation'+            Prelude.<$> (x Data..:? "createdAt")+            Prelude.<*> (x Data..:? "endAt")+            Prelude.<*> (x Data..:? "failed")+            Prelude.<*> (x Data..:? "passed")+            Prelude.<*> (x Data..:? "startedAt")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "suiteDefinitionId")+            Prelude.<*> (x Data..:? "suiteDefinitionName")+            Prelude.<*> (x Data..:? "suiteDefinitionVersion")+            Prelude.<*> (x Data..:? "suiteRunId")+      )++instance Prelude.Hashable SuiteRunInformation where+  hashWithSalt _salt SuiteRunInformation' {..} =+    _salt+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` endAt+      `Prelude.hashWithSalt` failed+      `Prelude.hashWithSalt` passed+      `Prelude.hashWithSalt` startedAt+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` suiteDefinitionId+      `Prelude.hashWithSalt` suiteDefinitionName+      `Prelude.hashWithSalt` suiteDefinitionVersion+      `Prelude.hashWithSalt` suiteRunId++instance Prelude.NFData SuiteRunInformation where+  rnf SuiteRunInformation' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf endAt+      `Prelude.seq` Prelude.rnf failed+      `Prelude.seq` Prelude.rnf passed+      `Prelude.seq` Prelude.rnf startedAt+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteDefinitionName+      `Prelude.seq` Prelude.rnf suiteDefinitionVersion+      `Prelude.seq` Prelude.rnf suiteRunId
+ gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunStatus.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus+  ( SuiteRunStatus+      ( ..,+        SuiteRunStatus_CANCELED,+        SuiteRunStatus_ERROR,+        SuiteRunStatus_FAIL,+        SuiteRunStatus_PASS,+        SuiteRunStatus_PASS_WITH_WARNINGS,+        SuiteRunStatus_PENDING,+        SuiteRunStatus_RUNNING,+        SuiteRunStatus_STOPPED,+        SuiteRunStatus_STOPPING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SuiteRunStatus = SuiteRunStatus'+  { fromSuiteRunStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern SuiteRunStatus_CANCELED :: SuiteRunStatus+pattern SuiteRunStatus_CANCELED = SuiteRunStatus' "CANCELED"++pattern SuiteRunStatus_ERROR :: SuiteRunStatus+pattern SuiteRunStatus_ERROR = SuiteRunStatus' "ERROR"++pattern SuiteRunStatus_FAIL :: SuiteRunStatus+pattern SuiteRunStatus_FAIL = SuiteRunStatus' "FAIL"++pattern SuiteRunStatus_PASS :: SuiteRunStatus+pattern SuiteRunStatus_PASS = SuiteRunStatus' "PASS"++pattern SuiteRunStatus_PASS_WITH_WARNINGS :: SuiteRunStatus+pattern SuiteRunStatus_PASS_WITH_WARNINGS = SuiteRunStatus' "PASS_WITH_WARNINGS"++pattern SuiteRunStatus_PENDING :: SuiteRunStatus+pattern SuiteRunStatus_PENDING = SuiteRunStatus' "PENDING"++pattern SuiteRunStatus_RUNNING :: SuiteRunStatus+pattern SuiteRunStatus_RUNNING = SuiteRunStatus' "RUNNING"++pattern SuiteRunStatus_STOPPED :: SuiteRunStatus+pattern SuiteRunStatus_STOPPED = SuiteRunStatus' "STOPPED"++pattern SuiteRunStatus_STOPPING :: SuiteRunStatus+pattern SuiteRunStatus_STOPPING = SuiteRunStatus' "STOPPING"++{-# COMPLETE+  SuiteRunStatus_CANCELED,+  SuiteRunStatus_ERROR,+  SuiteRunStatus_FAIL,+  SuiteRunStatus_PASS,+  SuiteRunStatus_PASS_WITH_WARNINGS,+  SuiteRunStatus_PENDING,+  SuiteRunStatus_RUNNING,+  SuiteRunStatus_STOPPED,+  SuiteRunStatus_STOPPING,+  SuiteRunStatus'+  #-}
+ gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseRun.hs view
@@ -0,0 +1,236 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.TestCaseRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.TestCaseRun where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types.Status+import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario+import qualified Amazonka.Prelude as Prelude++-- | Provides the test case run.+--+-- /See:/ 'newTestCaseRun' smart constructor.+data TestCaseRun = TestCaseRun'+  { -- | Provides test case run end time.+    endTime :: Prelude.Maybe Data.POSIX,+    -- | Provides test case run failure result.+    failure :: Prelude.Maybe Prelude.Text,+    -- | Provides test case run log URL.+    logUrl :: Prelude.Maybe Prelude.Text,+    -- | Provides test case run start time.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | Provides the test case run status. Status is one of the following:+    --+    -- -   @PASS@: Test passed.+    --+    -- -   @FAIL@: Test failed.+    --+    -- -   @PENDING@: Test has not started running but is scheduled.+    --+    -- -   @RUNNING@: Test is running.+    --+    -- -   @STOPPING@: Test is performing cleanup steps. You will see this+    --     status only if you stop a suite run.+    --+    -- -   @STOPPED@ Test is stopped. You will see this status only if you stop+    --     a suite run.+    --+    -- -   @PASS_WITH_WARNINGS@: Test passed with warnings.+    --+    -- -   @ERORR@: Test faced an error when running due to an internal issue.+    status :: Prelude.Maybe Status,+    -- | Provides the test case run definition ID.+    testCaseDefinitionId :: Prelude.Maybe Prelude.Text,+    -- | Provides the test case run definition name.+    testCaseDefinitionName :: Prelude.Maybe Prelude.Text,+    -- | Provides the test case run ID.+    testCaseRunId :: Prelude.Maybe Prelude.Text,+    -- | Provides the test scenarios for the test case run.+    testScenarios :: Prelude.Maybe [TestCaseScenario],+    -- | Provides test case run warnings.+    warnings :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TestCaseRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'endTime', 'testCaseRun_endTime' - Provides test case run end time.+--+-- 'failure', 'testCaseRun_failure' - Provides test case run failure result.+--+-- 'logUrl', 'testCaseRun_logUrl' - Provides test case run log URL.+--+-- 'startTime', 'testCaseRun_startTime' - Provides test case run start time.+--+-- 'status', 'testCaseRun_status' - Provides the test case run status. Status is one of the following:+--+-- -   @PASS@: Test passed.+--+-- -   @FAIL@: Test failed.+--+-- -   @PENDING@: Test has not started running but is scheduled.+--+-- -   @RUNNING@: Test is running.+--+-- -   @STOPPING@: Test is performing cleanup steps. You will see this+--     status only if you stop a suite run.+--+-- -   @STOPPED@ Test is stopped. You will see this status only if you stop+--     a suite run.+--+-- -   @PASS_WITH_WARNINGS@: Test passed with warnings.+--+-- -   @ERORR@: Test faced an error when running due to an internal issue.+--+-- 'testCaseDefinitionId', 'testCaseRun_testCaseDefinitionId' - Provides the test case run definition ID.+--+-- 'testCaseDefinitionName', 'testCaseRun_testCaseDefinitionName' - Provides the test case run definition name.+--+-- 'testCaseRunId', 'testCaseRun_testCaseRunId' - Provides the test case run ID.+--+-- 'testScenarios', 'testCaseRun_testScenarios' - Provides the test scenarios for the test case run.+--+-- 'warnings', 'testCaseRun_warnings' - Provides test case run warnings.+newTestCaseRun ::+  TestCaseRun+newTestCaseRun =+  TestCaseRun'+    { endTime = Prelude.Nothing,+      failure = Prelude.Nothing,+      logUrl = Prelude.Nothing,+      startTime = Prelude.Nothing,+      status = Prelude.Nothing,+      testCaseDefinitionId = Prelude.Nothing,+      testCaseDefinitionName = Prelude.Nothing,+      testCaseRunId = Prelude.Nothing,+      testScenarios = Prelude.Nothing,+      warnings = Prelude.Nothing+    }++-- | Provides test case run end time.+testCaseRun_endTime :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.UTCTime)+testCaseRun_endTime = Lens.lens (\TestCaseRun' {endTime} -> endTime) (\s@TestCaseRun' {} a -> s {endTime = a} :: TestCaseRun) Prelude.. Lens.mapping Data._Time++-- | Provides test case run failure result.+testCaseRun_failure :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text)+testCaseRun_failure = Lens.lens (\TestCaseRun' {failure} -> failure) (\s@TestCaseRun' {} a -> s {failure = a} :: TestCaseRun)++-- | Provides test case run log URL.+testCaseRun_logUrl :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text)+testCaseRun_logUrl = Lens.lens (\TestCaseRun' {logUrl} -> logUrl) (\s@TestCaseRun' {} a -> s {logUrl = a} :: TestCaseRun)++-- | Provides test case run start time.+testCaseRun_startTime :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.UTCTime)+testCaseRun_startTime = Lens.lens (\TestCaseRun' {startTime} -> startTime) (\s@TestCaseRun' {} a -> s {startTime = a} :: TestCaseRun) Prelude.. Lens.mapping Data._Time++-- | Provides the test case run status. Status is one of the following:+--+-- -   @PASS@: Test passed.+--+-- -   @FAIL@: Test failed.+--+-- -   @PENDING@: Test has not started running but is scheduled.+--+-- -   @RUNNING@: Test is running.+--+-- -   @STOPPING@: Test is performing cleanup steps. You will see this+--     status only if you stop a suite run.+--+-- -   @STOPPED@ Test is stopped. You will see this status only if you stop+--     a suite run.+--+-- -   @PASS_WITH_WARNINGS@: Test passed with warnings.+--+-- -   @ERORR@: Test faced an error when running due to an internal issue.+testCaseRun_status :: Lens.Lens' TestCaseRun (Prelude.Maybe Status)+testCaseRun_status = Lens.lens (\TestCaseRun' {status} -> status) (\s@TestCaseRun' {} a -> s {status = a} :: TestCaseRun)++-- | Provides the test case run definition ID.+testCaseRun_testCaseDefinitionId :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text)+testCaseRun_testCaseDefinitionId = Lens.lens (\TestCaseRun' {testCaseDefinitionId} -> testCaseDefinitionId) (\s@TestCaseRun' {} a -> s {testCaseDefinitionId = a} :: TestCaseRun)++-- | Provides the test case run definition name.+testCaseRun_testCaseDefinitionName :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text)+testCaseRun_testCaseDefinitionName = Lens.lens (\TestCaseRun' {testCaseDefinitionName} -> testCaseDefinitionName) (\s@TestCaseRun' {} a -> s {testCaseDefinitionName = a} :: TestCaseRun)++-- | Provides the test case run ID.+testCaseRun_testCaseRunId :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text)+testCaseRun_testCaseRunId = Lens.lens (\TestCaseRun' {testCaseRunId} -> testCaseRunId) (\s@TestCaseRun' {} a -> s {testCaseRunId = a} :: TestCaseRun)++-- | Provides the test scenarios for the test case run.+testCaseRun_testScenarios :: Lens.Lens' TestCaseRun (Prelude.Maybe [TestCaseScenario])+testCaseRun_testScenarios = Lens.lens (\TestCaseRun' {testScenarios} -> testScenarios) (\s@TestCaseRun' {} a -> s {testScenarios = a} :: TestCaseRun) Prelude.. Lens.mapping Lens.coerced++-- | Provides test case run warnings.+testCaseRun_warnings :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text)+testCaseRun_warnings = Lens.lens (\TestCaseRun' {warnings} -> warnings) (\s@TestCaseRun' {} a -> s {warnings = a} :: TestCaseRun)++instance Data.FromJSON TestCaseRun where+  parseJSON =+    Data.withObject+      "TestCaseRun"+      ( \x ->+          TestCaseRun'+            Prelude.<$> (x Data..:? "endTime")+            Prelude.<*> (x Data..:? "failure")+            Prelude.<*> (x Data..:? "logUrl")+            Prelude.<*> (x Data..:? "startTime")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "testCaseDefinitionId")+            Prelude.<*> (x Data..:? "testCaseDefinitionName")+            Prelude.<*> (x Data..:? "testCaseRunId")+            Prelude.<*> (x Data..:? "testScenarios" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "warnings")+      )++instance Prelude.Hashable TestCaseRun where+  hashWithSalt _salt TestCaseRun' {..} =+    _salt+      `Prelude.hashWithSalt` endTime+      `Prelude.hashWithSalt` failure+      `Prelude.hashWithSalt` logUrl+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` testCaseDefinitionId+      `Prelude.hashWithSalt` testCaseDefinitionName+      `Prelude.hashWithSalt` testCaseRunId+      `Prelude.hashWithSalt` testScenarios+      `Prelude.hashWithSalt` warnings++instance Prelude.NFData TestCaseRun where+  rnf TestCaseRun' {..} =+    Prelude.rnf endTime+      `Prelude.seq` Prelude.rnf failure+      `Prelude.seq` Prelude.rnf logUrl+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf testCaseDefinitionId+      `Prelude.seq` Prelude.rnf testCaseDefinitionName+      `Prelude.seq` Prelude.rnf testCaseRunId+      `Prelude.seq` Prelude.rnf testScenarios+      `Prelude.seq` Prelude.rnf warnings
+ gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenario.hs view
@@ -0,0 +1,186 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus+import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType+import qualified Amazonka.Prelude as Prelude++-- | Provides test case scenario.+--+-- /See:/ 'newTestCaseScenario' smart constructor.+data TestCaseScenario = TestCaseScenario'+  { -- | Provides test case scenario failure result.+    failure :: Prelude.Maybe Prelude.Text,+    -- | Provides the test case scenario status. Status is one of the following:+    --+    -- -   @PASS@: Test passed.+    --+    -- -   @FAIL@: Test failed.+    --+    -- -   @PENDING@: Test has not started running but is scheduled.+    --+    -- -   @RUNNING@: Test is running.+    --+    -- -   @STOPPING@: Test is performing cleanup steps. You will see this+    --     status only if you stop a suite run.+    --+    -- -   @STOPPED@ Test is stopped. You will see this status only if you stop+    --     a suite run.+    --+    -- -   @PASS_WITH_WARNINGS@: Test passed with warnings.+    --+    -- -   @ERORR@: Test faced an error when running due to an internal issue.+    status :: Prelude.Maybe TestCaseScenarioStatus,+    systemMessage :: Prelude.Maybe Prelude.Text,+    -- | Provides test case scenario ID.+    testCaseScenarioId :: Prelude.Maybe Prelude.Text,+    -- | Provides test case scenario type. Type is one of the following:+    --+    -- -   Advanced+    --+    -- -   Basic+    testCaseScenarioType :: Prelude.Maybe TestCaseScenarioType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TestCaseScenario' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'failure', 'testCaseScenario_failure' - Provides test case scenario failure result.+--+-- 'status', 'testCaseScenario_status' - Provides the test case scenario status. Status is one of the following:+--+-- -   @PASS@: Test passed.+--+-- -   @FAIL@: Test failed.+--+-- -   @PENDING@: Test has not started running but is scheduled.+--+-- -   @RUNNING@: Test is running.+--+-- -   @STOPPING@: Test is performing cleanup steps. You will see this+--     status only if you stop a suite run.+--+-- -   @STOPPED@ Test is stopped. You will see this status only if you stop+--     a suite run.+--+-- -   @PASS_WITH_WARNINGS@: Test passed with warnings.+--+-- -   @ERORR@: Test faced an error when running due to an internal issue.+--+-- 'systemMessage', 'testCaseScenario_systemMessage' -+--+-- 'testCaseScenarioId', 'testCaseScenario_testCaseScenarioId' - Provides test case scenario ID.+--+-- 'testCaseScenarioType', 'testCaseScenario_testCaseScenarioType' - Provides test case scenario type. Type is one of the following:+--+-- -   Advanced+--+-- -   Basic+newTestCaseScenario ::+  TestCaseScenario+newTestCaseScenario =+  TestCaseScenario'+    { failure = Prelude.Nothing,+      status = Prelude.Nothing,+      systemMessage = Prelude.Nothing,+      testCaseScenarioId = Prelude.Nothing,+      testCaseScenarioType = Prelude.Nothing+    }++-- | Provides test case scenario failure result.+testCaseScenario_failure :: Lens.Lens' TestCaseScenario (Prelude.Maybe Prelude.Text)+testCaseScenario_failure = Lens.lens (\TestCaseScenario' {failure} -> failure) (\s@TestCaseScenario' {} a -> s {failure = a} :: TestCaseScenario)++-- | Provides the test case scenario status. Status is one of the following:+--+-- -   @PASS@: Test passed.+--+-- -   @FAIL@: Test failed.+--+-- -   @PENDING@: Test has not started running but is scheduled.+--+-- -   @RUNNING@: Test is running.+--+-- -   @STOPPING@: Test is performing cleanup steps. You will see this+--     status only if you stop a suite run.+--+-- -   @STOPPED@ Test is stopped. You will see this status only if you stop+--     a suite run.+--+-- -   @PASS_WITH_WARNINGS@: Test passed with warnings.+--+-- -   @ERORR@: Test faced an error when running due to an internal issue.+testCaseScenario_status :: Lens.Lens' TestCaseScenario (Prelude.Maybe TestCaseScenarioStatus)+testCaseScenario_status = Lens.lens (\TestCaseScenario' {status} -> status) (\s@TestCaseScenario' {} a -> s {status = a} :: TestCaseScenario)++testCaseScenario_systemMessage :: Lens.Lens' TestCaseScenario (Prelude.Maybe Prelude.Text)+testCaseScenario_systemMessage = Lens.lens (\TestCaseScenario' {systemMessage} -> systemMessage) (\s@TestCaseScenario' {} a -> s {systemMessage = a} :: TestCaseScenario)++-- | Provides test case scenario ID.+testCaseScenario_testCaseScenarioId :: Lens.Lens' TestCaseScenario (Prelude.Maybe Prelude.Text)+testCaseScenario_testCaseScenarioId = Lens.lens (\TestCaseScenario' {testCaseScenarioId} -> testCaseScenarioId) (\s@TestCaseScenario' {} a -> s {testCaseScenarioId = a} :: TestCaseScenario)++-- | Provides test case scenario type. Type is one of the following:+--+-- -   Advanced+--+-- -   Basic+testCaseScenario_testCaseScenarioType :: Lens.Lens' TestCaseScenario (Prelude.Maybe TestCaseScenarioType)+testCaseScenario_testCaseScenarioType = Lens.lens (\TestCaseScenario' {testCaseScenarioType} -> testCaseScenarioType) (\s@TestCaseScenario' {} a -> s {testCaseScenarioType = a} :: TestCaseScenario)++instance Data.FromJSON TestCaseScenario where+  parseJSON =+    Data.withObject+      "TestCaseScenario"+      ( \x ->+          TestCaseScenario'+            Prelude.<$> (x Data..:? "failure")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "systemMessage")+            Prelude.<*> (x Data..:? "testCaseScenarioId")+            Prelude.<*> (x Data..:? "testCaseScenarioType")+      )++instance Prelude.Hashable TestCaseScenario where+  hashWithSalt _salt TestCaseScenario' {..} =+    _salt+      `Prelude.hashWithSalt` failure+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` systemMessage+      `Prelude.hashWithSalt` testCaseScenarioId+      `Prelude.hashWithSalt` testCaseScenarioType++instance Prelude.NFData TestCaseScenario where+  rnf TestCaseScenario' {..} =+    Prelude.rnf failure+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf systemMessage+      `Prelude.seq` Prelude.rnf testCaseScenarioId+      `Prelude.seq` Prelude.rnf testCaseScenarioType
+ gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenarioStatus.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus+  ( TestCaseScenarioStatus+      ( ..,+        TestCaseScenarioStatus_CANCELED,+        TestCaseScenarioStatus_ERROR,+        TestCaseScenarioStatus_FAIL,+        TestCaseScenarioStatus_PASS,+        TestCaseScenarioStatus_PASS_WITH_WARNINGS,+        TestCaseScenarioStatus_PENDING,+        TestCaseScenarioStatus_RUNNING,+        TestCaseScenarioStatus_STOPPED,+        TestCaseScenarioStatus_STOPPING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TestCaseScenarioStatus = TestCaseScenarioStatus'+  { fromTestCaseScenarioStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TestCaseScenarioStatus_CANCELED :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_CANCELED = TestCaseScenarioStatus' "CANCELED"++pattern TestCaseScenarioStatus_ERROR :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_ERROR = TestCaseScenarioStatus' "ERROR"++pattern TestCaseScenarioStatus_FAIL :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_FAIL = TestCaseScenarioStatus' "FAIL"++pattern TestCaseScenarioStatus_PASS :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_PASS = TestCaseScenarioStatus' "PASS"++pattern TestCaseScenarioStatus_PASS_WITH_WARNINGS :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_PASS_WITH_WARNINGS = TestCaseScenarioStatus' "PASS_WITH_WARNINGS"++pattern TestCaseScenarioStatus_PENDING :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_PENDING = TestCaseScenarioStatus' "PENDING"++pattern TestCaseScenarioStatus_RUNNING :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_RUNNING = TestCaseScenarioStatus' "RUNNING"++pattern TestCaseScenarioStatus_STOPPED :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_STOPPED = TestCaseScenarioStatus' "STOPPED"++pattern TestCaseScenarioStatus_STOPPING :: TestCaseScenarioStatus+pattern TestCaseScenarioStatus_STOPPING = TestCaseScenarioStatus' "STOPPING"++{-# COMPLETE+  TestCaseScenarioStatus_CANCELED,+  TestCaseScenarioStatus_ERROR,+  TestCaseScenarioStatus_FAIL,+  TestCaseScenarioStatus_PASS,+  TestCaseScenarioStatus_PASS_WITH_WARNINGS,+  TestCaseScenarioStatus_PENDING,+  TestCaseScenarioStatus_RUNNING,+  TestCaseScenarioStatus_STOPPED,+  TestCaseScenarioStatus_STOPPING,+  TestCaseScenarioStatus'+  #-}
+ gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenarioType.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType+  ( TestCaseScenarioType+      ( ..,+        TestCaseScenarioType_Advanced,+        TestCaseScenarioType_Basic+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TestCaseScenarioType = TestCaseScenarioType'+  { fromTestCaseScenarioType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TestCaseScenarioType_Advanced :: TestCaseScenarioType+pattern TestCaseScenarioType_Advanced = TestCaseScenarioType' "Advanced"++pattern TestCaseScenarioType_Basic :: TestCaseScenarioType+pattern TestCaseScenarioType_Basic = TestCaseScenarioType' "Basic"++{-# COMPLETE+  TestCaseScenarioType_Advanced,+  TestCaseScenarioType_Basic,+  TestCaseScenarioType'+  #-}
+ gen/Amazonka/IoTDeviceAdvisor/Types/TestResult.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Types.TestResult+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Types.TestResult where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types.GroupResult+import qualified Amazonka.Prelude as Prelude++-- | Show each group result.+--+-- /See:/ 'newTestResult' smart constructor.+data TestResult = TestResult'+  { -- | Show each group of test results.+    groups :: Prelude.Maybe [GroupResult]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TestResult' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'groups', 'testResult_groups' - Show each group of test results.+newTestResult ::+  TestResult+newTestResult = TestResult' {groups = Prelude.Nothing}++-- | Show each group of test results.+testResult_groups :: Lens.Lens' TestResult (Prelude.Maybe [GroupResult])+testResult_groups = Lens.lens (\TestResult' {groups} -> groups) (\s@TestResult' {} a -> s {groups = a} :: TestResult) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON TestResult where+  parseJSON =+    Data.withObject+      "TestResult"+      ( \x ->+          TestResult'+            Prelude.<$> (x Data..:? "groups" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable TestResult where+  hashWithSalt _salt TestResult' {..} =+    _salt `Prelude.hashWithSalt` groups++instance Prelude.NFData TestResult where+  rnf TestResult' {..} = Prelude.rnf groups
+ gen/Amazonka/IoTDeviceAdvisor/UntagResource.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.UntagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes tags from an IoT Device Advisor resource.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions UntagResource>+-- action.+module Amazonka.IoTDeviceAdvisor.UntagResource+  ( -- * Creating a Request+    UntagResource (..),+    newUntagResource,++    -- * Request Lenses+    untagResource_resourceArn,+    untagResource_tagKeys,++    -- * Destructuring the Response+    UntagResourceResponse (..),+    newUntagResourceResponse,++    -- * Response Lenses+    untagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUntagResource' smart constructor.+data UntagResource = UntagResource'+  { -- | The resource ARN of an IoT Device Advisor resource. This can be+    -- SuiteDefinition ARN or SuiteRun ARN.+    resourceArn :: Prelude.Text,+    -- | List of tag keys to remove from the IoT Device Advisor resource.+    tagKeys :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'untagResource_resourceArn' - The resource ARN of an IoT Device Advisor resource. This can be+-- SuiteDefinition ARN or SuiteRun ARN.+--+-- 'tagKeys', 'untagResource_tagKeys' - List of tag keys to remove from the IoT Device Advisor resource.+newUntagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  UntagResource+newUntagResource pResourceArn_ =+  UntagResource'+    { resourceArn = pResourceArn_,+      tagKeys = Prelude.mempty+    }++-- | The resource ARN of an IoT Device Advisor resource. This can be+-- SuiteDefinition ARN or SuiteRun ARN.+untagResource_resourceArn :: Lens.Lens' UntagResource Prelude.Text+untagResource_resourceArn = Lens.lens (\UntagResource' {resourceArn} -> resourceArn) (\s@UntagResource' {} a -> s {resourceArn = a} :: UntagResource)++-- | List of tag keys to remove from the IoT Device Advisor resource.+untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text]+untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced++instance Core.AWSRequest UntagResource where+  type+    AWSResponse UntagResource =+      UntagResourceResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UntagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UntagResource where+  hashWithSalt _salt UntagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` tagKeys++instance Prelude.NFData UntagResource where+  rnf UntagResource' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf tagKeys++instance Data.ToHeaders UntagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath UntagResource where+  toPath UntagResource' {..} =+    Prelude.mconcat ["/tags/", Data.toBS resourceArn]++instance Data.ToQuery UntagResource where+  toQuery UntagResource' {..} =+    Prelude.mconcat+      ["tagKeys" Data.=: Data.toQueryList "member" tagKeys]++-- | /See:/ 'newUntagResourceResponse' smart constructor.+data UntagResourceResponse = UntagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'untagResourceResponse_httpStatus' - The response's http status code.+newUntagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UntagResourceResponse+newUntagResourceResponse pHttpStatus_ =+  UntagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+untagResourceResponse_httpStatus :: Lens.Lens' UntagResourceResponse Prelude.Int+untagResourceResponse_httpStatus = Lens.lens (\UntagResourceResponse' {httpStatus} -> httpStatus) (\s@UntagResourceResponse' {} a -> s {httpStatus = a} :: UntagResourceResponse)++instance Prelude.NFData UntagResourceResponse where+  rnf UntagResourceResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/UpdateSuiteDefinition.hs view
@@ -0,0 +1,256 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a Device Advisor test suite.+--+-- Requires permission to access the+-- <https://docs.aws.amazon.com/service-authorization/latest/reference/list_awsiot.html#awsiot-actions-as-permissions UpdateSuiteDefinition>+-- action.+module Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition+  ( -- * Creating a Request+    UpdateSuiteDefinition (..),+    newUpdateSuiteDefinition,++    -- * Request Lenses+    updateSuiteDefinition_suiteDefinitionId,+    updateSuiteDefinition_suiteDefinitionConfiguration,++    -- * Destructuring the Response+    UpdateSuiteDefinitionResponse (..),+    newUpdateSuiteDefinitionResponse,++    -- * Response Lenses+    updateSuiteDefinitionResponse_createdAt,+    updateSuiteDefinitionResponse_lastUpdatedAt,+    updateSuiteDefinitionResponse_suiteDefinitionArn,+    updateSuiteDefinitionResponse_suiteDefinitionId,+    updateSuiteDefinitionResponse_suiteDefinitionName,+    updateSuiteDefinitionResponse_suiteDefinitionVersion,+    updateSuiteDefinitionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateSuiteDefinition' smart constructor.+data UpdateSuiteDefinition = UpdateSuiteDefinition'+  { -- | Suite definition ID of the test suite to be updated.+    suiteDefinitionId :: Prelude.Text,+    -- | Updates a Device Advisor test suite with suite definition configuration.+    suiteDefinitionConfiguration :: SuiteDefinitionConfiguration+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateSuiteDefinition' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'suiteDefinitionId', 'updateSuiteDefinition_suiteDefinitionId' - Suite definition ID of the test suite to be updated.+--+-- 'suiteDefinitionConfiguration', 'updateSuiteDefinition_suiteDefinitionConfiguration' - Updates a Device Advisor test suite with suite definition configuration.+newUpdateSuiteDefinition ::+  -- | 'suiteDefinitionId'+  Prelude.Text ->+  -- | 'suiteDefinitionConfiguration'+  SuiteDefinitionConfiguration ->+  UpdateSuiteDefinition+newUpdateSuiteDefinition+  pSuiteDefinitionId_+  pSuiteDefinitionConfiguration_ =+    UpdateSuiteDefinition'+      { suiteDefinitionId =+          pSuiteDefinitionId_,+        suiteDefinitionConfiguration =+          pSuiteDefinitionConfiguration_+      }++-- | Suite definition ID of the test suite to be updated.+updateSuiteDefinition_suiteDefinitionId :: Lens.Lens' UpdateSuiteDefinition Prelude.Text+updateSuiteDefinition_suiteDefinitionId = Lens.lens (\UpdateSuiteDefinition' {suiteDefinitionId} -> suiteDefinitionId) (\s@UpdateSuiteDefinition' {} a -> s {suiteDefinitionId = a} :: UpdateSuiteDefinition)++-- | Updates a Device Advisor test suite with suite definition configuration.+updateSuiteDefinition_suiteDefinitionConfiguration :: Lens.Lens' UpdateSuiteDefinition SuiteDefinitionConfiguration+updateSuiteDefinition_suiteDefinitionConfiguration = Lens.lens (\UpdateSuiteDefinition' {suiteDefinitionConfiguration} -> suiteDefinitionConfiguration) (\s@UpdateSuiteDefinition' {} a -> s {suiteDefinitionConfiguration = a} :: UpdateSuiteDefinition)++instance Core.AWSRequest UpdateSuiteDefinition where+  type+    AWSResponse UpdateSuiteDefinition =+      UpdateSuiteDefinitionResponse+  request overrides =+    Request.patchJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateSuiteDefinitionResponse'+            Prelude.<$> (x Data..?> "createdAt")+            Prelude.<*> (x Data..?> "lastUpdatedAt")+            Prelude.<*> (x Data..?> "suiteDefinitionArn")+            Prelude.<*> (x Data..?> "suiteDefinitionId")+            Prelude.<*> (x Data..?> "suiteDefinitionName")+            Prelude.<*> (x Data..?> "suiteDefinitionVersion")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateSuiteDefinition where+  hashWithSalt _salt UpdateSuiteDefinition' {..} =+    _salt+      `Prelude.hashWithSalt` suiteDefinitionId+      `Prelude.hashWithSalt` suiteDefinitionConfiguration++instance Prelude.NFData UpdateSuiteDefinition where+  rnf UpdateSuiteDefinition' {..} =+    Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteDefinitionConfiguration++instance Data.ToHeaders UpdateSuiteDefinition where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateSuiteDefinition where+  toJSON UpdateSuiteDefinition' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "suiteDefinitionConfiguration"+                  Data..= suiteDefinitionConfiguration+              )+          ]+      )++instance Data.ToPath UpdateSuiteDefinition where+  toPath UpdateSuiteDefinition' {..} =+    Prelude.mconcat+      ["/suiteDefinitions/", Data.toBS suiteDefinitionId]++instance Data.ToQuery UpdateSuiteDefinition where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateSuiteDefinitionResponse' smart constructor.+data UpdateSuiteDefinitionResponse = UpdateSuiteDefinitionResponse'+  { -- | Timestamp of when the test suite was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | Timestamp of when the test suite was updated.+    lastUpdatedAt :: Prelude.Maybe Data.POSIX,+    -- | Amazon Resource Name (ARN) of the updated test suite.+    suiteDefinitionArn :: Prelude.Maybe Prelude.Text,+    -- | Suite definition ID of the updated test suite.+    suiteDefinitionId :: Prelude.Maybe Prelude.Text,+    -- | Updates the suite definition name. This is a required parameter.+    suiteDefinitionName :: Prelude.Maybe Prelude.Text,+    -- | Suite definition version of the updated test suite.+    suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateSuiteDefinitionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdAt', 'updateSuiteDefinitionResponse_createdAt' - Timestamp of when the test suite was created.+--+-- 'lastUpdatedAt', 'updateSuiteDefinitionResponse_lastUpdatedAt' - Timestamp of when the test suite was updated.+--+-- 'suiteDefinitionArn', 'updateSuiteDefinitionResponse_suiteDefinitionArn' - Amazon Resource Name (ARN) of the updated test suite.+--+-- 'suiteDefinitionId', 'updateSuiteDefinitionResponse_suiteDefinitionId' - Suite definition ID of the updated test suite.+--+-- 'suiteDefinitionName', 'updateSuiteDefinitionResponse_suiteDefinitionName' - Updates the suite definition name. This is a required parameter.+--+-- 'suiteDefinitionVersion', 'updateSuiteDefinitionResponse_suiteDefinitionVersion' - Suite definition version of the updated test suite.+--+-- 'httpStatus', 'updateSuiteDefinitionResponse_httpStatus' - The response's http status code.+newUpdateSuiteDefinitionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateSuiteDefinitionResponse+newUpdateSuiteDefinitionResponse pHttpStatus_ =+  UpdateSuiteDefinitionResponse'+    { createdAt =+        Prelude.Nothing,+      lastUpdatedAt = Prelude.Nothing,+      suiteDefinitionArn = Prelude.Nothing,+      suiteDefinitionId = Prelude.Nothing,+      suiteDefinitionName = Prelude.Nothing,+      suiteDefinitionVersion = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Timestamp of when the test suite was created.+updateSuiteDefinitionResponse_createdAt :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime)+updateSuiteDefinitionResponse_createdAt = Lens.lens (\UpdateSuiteDefinitionResponse' {createdAt} -> createdAt) (\s@UpdateSuiteDefinitionResponse' {} a -> s {createdAt = a} :: UpdateSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time++-- | Timestamp of when the test suite was updated.+updateSuiteDefinitionResponse_lastUpdatedAt :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime)+updateSuiteDefinitionResponse_lastUpdatedAt = Lens.lens (\UpdateSuiteDefinitionResponse' {lastUpdatedAt} -> lastUpdatedAt) (\s@UpdateSuiteDefinitionResponse' {} a -> s {lastUpdatedAt = a} :: UpdateSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time++-- | Amazon Resource Name (ARN) of the updated test suite.+updateSuiteDefinitionResponse_suiteDefinitionArn :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+updateSuiteDefinitionResponse_suiteDefinitionArn = Lens.lens (\UpdateSuiteDefinitionResponse' {suiteDefinitionArn} -> suiteDefinitionArn) (\s@UpdateSuiteDefinitionResponse' {} a -> s {suiteDefinitionArn = a} :: UpdateSuiteDefinitionResponse)++-- | Suite definition ID of the updated test suite.+updateSuiteDefinitionResponse_suiteDefinitionId :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+updateSuiteDefinitionResponse_suiteDefinitionId = Lens.lens (\UpdateSuiteDefinitionResponse' {suiteDefinitionId} -> suiteDefinitionId) (\s@UpdateSuiteDefinitionResponse' {} a -> s {suiteDefinitionId = a} :: UpdateSuiteDefinitionResponse)++-- | Updates the suite definition name. This is a required parameter.+updateSuiteDefinitionResponse_suiteDefinitionName :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+updateSuiteDefinitionResponse_suiteDefinitionName = Lens.lens (\UpdateSuiteDefinitionResponse' {suiteDefinitionName} -> suiteDefinitionName) (\s@UpdateSuiteDefinitionResponse' {} a -> s {suiteDefinitionName = a} :: UpdateSuiteDefinitionResponse)++-- | Suite definition version of the updated test suite.+updateSuiteDefinitionResponse_suiteDefinitionVersion :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)+updateSuiteDefinitionResponse_suiteDefinitionVersion = Lens.lens (\UpdateSuiteDefinitionResponse' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@UpdateSuiteDefinitionResponse' {} a -> s {suiteDefinitionVersion = a} :: UpdateSuiteDefinitionResponse)++-- | The response's http status code.+updateSuiteDefinitionResponse_httpStatus :: Lens.Lens' UpdateSuiteDefinitionResponse Prelude.Int+updateSuiteDefinitionResponse_httpStatus = Lens.lens (\UpdateSuiteDefinitionResponse' {httpStatus} -> httpStatus) (\s@UpdateSuiteDefinitionResponse' {} a -> s {httpStatus = a} :: UpdateSuiteDefinitionResponse)++instance Prelude.NFData UpdateSuiteDefinitionResponse where+  rnf UpdateSuiteDefinitionResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastUpdatedAt+      `Prelude.seq` Prelude.rnf suiteDefinitionArn+      `Prelude.seq` Prelude.rnf suiteDefinitionId+      `Prelude.seq` Prelude.rnf suiteDefinitionName+      `Prelude.seq` Prelude.rnf suiteDefinitionVersion+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/IoTDeviceAdvisor/Waiters.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.IoTDeviceAdvisor.Waiters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.IoTDeviceAdvisor.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.IoTDeviceAdvisor.Lens+import Amazonka.IoTDeviceAdvisor.Types+import qualified Amazonka.Prelude as Prelude
+ src/.gitkeep view
+ test/Main.hs view
@@ -0,0 +1,23 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Main+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Main (main) where++import Test.Amazonka.IoTDeviceAdvisor+import Test.Amazonka.IoTDeviceAdvisor.Internal+import Test.Tasty++main :: IO ()+main =+  defaultMain $+    testGroup+      "IoTDeviceAdvisor"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]
+ test/Test/Amazonka/Gen/IoTDeviceAdvisor.hs view
@@ -0,0 +1,318 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.Amazonka.Gen.IoTDeviceAdvisor+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Gen.IoTDeviceAdvisor where++import Amazonka.IoTDeviceAdvisor+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.IoTDeviceAdvisor.Internal+import Test.Amazonka.Prelude+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"+--         [ requestCreateSuiteDefinition $+--             newCreateSuiteDefinition+--+--         , requestDeleteSuiteDefinition $+--             newDeleteSuiteDefinition+--+--         , requestGetEndpoint $+--             newGetEndpoint+--+--         , requestGetSuiteDefinition $+--             newGetSuiteDefinition+--+--         , requestGetSuiteRun $+--             newGetSuiteRun+--+--         , requestGetSuiteRunReport $+--             newGetSuiteRunReport+--+--         , requestListSuiteDefinitions $+--             newListSuiteDefinitions+--+--         , requestListSuiteRuns $+--             newListSuiteRuns+--+--         , requestListTagsForResource $+--             newListTagsForResource+--+--         , requestStartSuiteRun $+--             newStartSuiteRun+--+--         , requestStopSuiteRun $+--             newStopSuiteRun+--+--         , requestTagResource $+--             newTagResource+--+--         , requestUntagResource $+--             newUntagResource+--+--         , requestUpdateSuiteDefinition $+--             newUpdateSuiteDefinition+--+--           ]++--     , testGroup "response"+--         [ responseCreateSuiteDefinition $+--             newCreateSuiteDefinitionResponse+--+--         , responseDeleteSuiteDefinition $+--             newDeleteSuiteDefinitionResponse+--+--         , responseGetEndpoint $+--             newGetEndpointResponse+--+--         , responseGetSuiteDefinition $+--             newGetSuiteDefinitionResponse+--+--         , responseGetSuiteRun $+--             newGetSuiteRunResponse+--+--         , responseGetSuiteRunReport $+--             newGetSuiteRunReportResponse+--+--         , responseListSuiteDefinitions $+--             newListSuiteDefinitionsResponse+--+--         , responseListSuiteRuns $+--             newListSuiteRunsResponse+--+--         , responseListTagsForResource $+--             newListTagsForResourceResponse+--+--         , responseStartSuiteRun $+--             newStartSuiteRunResponse+--+--         , responseStopSuiteRun $+--             newStopSuiteRunResponse+--+--         , responseTagResource $+--             newTagResourceResponse+--+--         , responseUntagResource $+--             newUntagResourceResponse+--+--         , responseUpdateSuiteDefinition $+--             newUpdateSuiteDefinitionResponse+--+--           ]+--     ]++-- Requests++requestCreateSuiteDefinition :: CreateSuiteDefinition -> TestTree+requestCreateSuiteDefinition =+  req+    "CreateSuiteDefinition"+    "fixture/CreateSuiteDefinition.yaml"++requestDeleteSuiteDefinition :: DeleteSuiteDefinition -> TestTree+requestDeleteSuiteDefinition =+  req+    "DeleteSuiteDefinition"+    "fixture/DeleteSuiteDefinition.yaml"++requestGetEndpoint :: GetEndpoint -> TestTree+requestGetEndpoint =+  req+    "GetEndpoint"+    "fixture/GetEndpoint.yaml"++requestGetSuiteDefinition :: GetSuiteDefinition -> TestTree+requestGetSuiteDefinition =+  req+    "GetSuiteDefinition"+    "fixture/GetSuiteDefinition.yaml"++requestGetSuiteRun :: GetSuiteRun -> TestTree+requestGetSuiteRun =+  req+    "GetSuiteRun"+    "fixture/GetSuiteRun.yaml"++requestGetSuiteRunReport :: GetSuiteRunReport -> TestTree+requestGetSuiteRunReport =+  req+    "GetSuiteRunReport"+    "fixture/GetSuiteRunReport.yaml"++requestListSuiteDefinitions :: ListSuiteDefinitions -> TestTree+requestListSuiteDefinitions =+  req+    "ListSuiteDefinitions"+    "fixture/ListSuiteDefinitions.yaml"++requestListSuiteRuns :: ListSuiteRuns -> TestTree+requestListSuiteRuns =+  req+    "ListSuiteRuns"+    "fixture/ListSuiteRuns.yaml"++requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource =+  req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++requestStartSuiteRun :: StartSuiteRun -> TestTree+requestStartSuiteRun =+  req+    "StartSuiteRun"+    "fixture/StartSuiteRun.yaml"++requestStopSuiteRun :: StopSuiteRun -> TestTree+requestStopSuiteRun =+  req+    "StopSuiteRun"+    "fixture/StopSuiteRun.yaml"++requestTagResource :: TagResource -> TestTree+requestTagResource =+  req+    "TagResource"+    "fixture/TagResource.yaml"++requestUntagResource :: UntagResource -> TestTree+requestUntagResource =+  req+    "UntagResource"+    "fixture/UntagResource.yaml"++requestUpdateSuiteDefinition :: UpdateSuiteDefinition -> TestTree+requestUpdateSuiteDefinition =+  req+    "UpdateSuiteDefinition"+    "fixture/UpdateSuiteDefinition.yaml"++-- Responses++responseCreateSuiteDefinition :: CreateSuiteDefinitionResponse -> TestTree+responseCreateSuiteDefinition =+  res+    "CreateSuiteDefinitionResponse"+    "fixture/CreateSuiteDefinitionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateSuiteDefinition)++responseDeleteSuiteDefinition :: DeleteSuiteDefinitionResponse -> TestTree+responseDeleteSuiteDefinition =+  res+    "DeleteSuiteDefinitionResponse"+    "fixture/DeleteSuiteDefinitionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteSuiteDefinition)++responseGetEndpoint :: GetEndpointResponse -> TestTree+responseGetEndpoint =+  res+    "GetEndpointResponse"+    "fixture/GetEndpointResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetEndpoint)++responseGetSuiteDefinition :: GetSuiteDefinitionResponse -> TestTree+responseGetSuiteDefinition =+  res+    "GetSuiteDefinitionResponse"+    "fixture/GetSuiteDefinitionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetSuiteDefinition)++responseGetSuiteRun :: GetSuiteRunResponse -> TestTree+responseGetSuiteRun =+  res+    "GetSuiteRunResponse"+    "fixture/GetSuiteRunResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetSuiteRun)++responseGetSuiteRunReport :: GetSuiteRunReportResponse -> TestTree+responseGetSuiteRunReport =+  res+    "GetSuiteRunReportResponse"+    "fixture/GetSuiteRunReportResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetSuiteRunReport)++responseListSuiteDefinitions :: ListSuiteDefinitionsResponse -> TestTree+responseListSuiteDefinitions =+  res+    "ListSuiteDefinitionsResponse"+    "fixture/ListSuiteDefinitionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListSuiteDefinitions)++responseListSuiteRuns :: ListSuiteRunsResponse -> TestTree+responseListSuiteRuns =+  res+    "ListSuiteRunsResponse"+    "fixture/ListSuiteRunsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListSuiteRuns)++responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource =+  res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTagsForResource)++responseStartSuiteRun :: StartSuiteRunResponse -> TestTree+responseStartSuiteRun =+  res+    "StartSuiteRunResponse"+    "fixture/StartSuiteRunResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartSuiteRun)++responseStopSuiteRun :: StopSuiteRunResponse -> TestTree+responseStopSuiteRun =+  res+    "StopSuiteRunResponse"+    "fixture/StopSuiteRunResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StopSuiteRun)++responseTagResource :: TagResourceResponse -> TestTree+responseTagResource =+  res+    "TagResourceResponse"+    "fixture/TagResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy TagResource)++responseUntagResource :: UntagResourceResponse -> TestTree+responseUntagResource =+  res+    "UntagResourceResponse"+    "fixture/UntagResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UntagResource)++responseUpdateSuiteDefinition :: UpdateSuiteDefinitionResponse -> TestTree+responseUpdateSuiteDefinition =+  res+    "UpdateSuiteDefinitionResponse"+    "fixture/UpdateSuiteDefinitionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateSuiteDefinition)
+ test/Test/Amazonka/IoTDeviceAdvisor.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.IoTDeviceAdvisor+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.IoTDeviceAdvisor+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/IoTDeviceAdvisor/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.IoTDeviceAdvisor.Internal+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.IoTDeviceAdvisor.Internal where