packages feed

amazonka-lookoutequipment (empty) → 2.0

raw patch · 158 files changed

+16805/−0 lines, 158 filesdep +amazonka-coredep +amazonka-lookoutequipmentdep +amazonka-test

Dependencies added: amazonka-core, amazonka-lookoutequipment, 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 Lookout for Equipment SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version+ +`2.0` - Derived from API version @2020-12-15@ of the AWS service descriptions, licensed under Apache 2.0.++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-lookoutequipment)+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.LookoutEquipment](http://hackage.haskell.org/package/amazonka-lookoutequipment/docs/Amazonka-LookoutEquipment.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-lookoutequipment` 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-lookoutequipment.cabal view
@@ -0,0 +1,163 @@+cabal-version:      2.2+name:               amazonka-lookoutequipment+version:            2.0+synopsis:           Amazon Lookout for Equipment 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-12-15@ 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.LookoutEquipment.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.LookoutEquipment" 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-lookoutequipment++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.LookoutEquipment+    Amazonka.LookoutEquipment.CreateDataset+    Amazonka.LookoutEquipment.CreateInferenceScheduler+    Amazonka.LookoutEquipment.CreateLabel+    Amazonka.LookoutEquipment.CreateLabelGroup+    Amazonka.LookoutEquipment.CreateModel+    Amazonka.LookoutEquipment.DeleteDataset+    Amazonka.LookoutEquipment.DeleteInferenceScheduler+    Amazonka.LookoutEquipment.DeleteLabel+    Amazonka.LookoutEquipment.DeleteLabelGroup+    Amazonka.LookoutEquipment.DeleteModel+    Amazonka.LookoutEquipment.DescribeDataIngestionJob+    Amazonka.LookoutEquipment.DescribeDataset+    Amazonka.LookoutEquipment.DescribeInferenceScheduler+    Amazonka.LookoutEquipment.DescribeLabel+    Amazonka.LookoutEquipment.DescribeLabelGroup+    Amazonka.LookoutEquipment.DescribeModel+    Amazonka.LookoutEquipment.Lens+    Amazonka.LookoutEquipment.ListDataIngestionJobs+    Amazonka.LookoutEquipment.ListDatasets+    Amazonka.LookoutEquipment.ListInferenceEvents+    Amazonka.LookoutEquipment.ListInferenceExecutions+    Amazonka.LookoutEquipment.ListInferenceSchedulers+    Amazonka.LookoutEquipment.ListLabelGroups+    Amazonka.LookoutEquipment.ListLabels+    Amazonka.LookoutEquipment.ListModels+    Amazonka.LookoutEquipment.ListSensorStatistics+    Amazonka.LookoutEquipment.ListTagsForResource+    Amazonka.LookoutEquipment.StartDataIngestionJob+    Amazonka.LookoutEquipment.StartInferenceScheduler+    Amazonka.LookoutEquipment.StopInferenceScheduler+    Amazonka.LookoutEquipment.TagResource+    Amazonka.LookoutEquipment.Types+    Amazonka.LookoutEquipment.Types.CategoricalValues+    Amazonka.LookoutEquipment.Types.CountPercent+    Amazonka.LookoutEquipment.Types.DataIngestionJobSummary+    Amazonka.LookoutEquipment.Types.DataPreProcessingConfiguration+    Amazonka.LookoutEquipment.Types.DataQualitySummary+    Amazonka.LookoutEquipment.Types.DatasetSchema+    Amazonka.LookoutEquipment.Types.DatasetStatus+    Amazonka.LookoutEquipment.Types.DatasetSummary+    Amazonka.LookoutEquipment.Types.DataUploadFrequency+    Amazonka.LookoutEquipment.Types.DuplicateTimestamps+    Amazonka.LookoutEquipment.Types.InferenceEventSummary+    Amazonka.LookoutEquipment.Types.InferenceExecutionStatus+    Amazonka.LookoutEquipment.Types.InferenceExecutionSummary+    Amazonka.LookoutEquipment.Types.InferenceInputConfiguration+    Amazonka.LookoutEquipment.Types.InferenceInputNameConfiguration+    Amazonka.LookoutEquipment.Types.InferenceOutputConfiguration+    Amazonka.LookoutEquipment.Types.InferenceS3InputConfiguration+    Amazonka.LookoutEquipment.Types.InferenceS3OutputConfiguration+    Amazonka.LookoutEquipment.Types.InferenceSchedulerStatus+    Amazonka.LookoutEquipment.Types.InferenceSchedulerSummary+    Amazonka.LookoutEquipment.Types.IngestedFilesSummary+    Amazonka.LookoutEquipment.Types.IngestionInputConfiguration+    Amazonka.LookoutEquipment.Types.IngestionJobStatus+    Amazonka.LookoutEquipment.Types.IngestionS3InputConfiguration+    Amazonka.LookoutEquipment.Types.InsufficientSensorData+    Amazonka.LookoutEquipment.Types.InvalidSensorData+    Amazonka.LookoutEquipment.Types.LabelGroupSummary+    Amazonka.LookoutEquipment.Types.LabelRating+    Amazonka.LookoutEquipment.Types.LabelsInputConfiguration+    Amazonka.LookoutEquipment.Types.LabelsS3InputConfiguration+    Amazonka.LookoutEquipment.Types.LabelSummary+    Amazonka.LookoutEquipment.Types.LargeTimestampGaps+    Amazonka.LookoutEquipment.Types.LatestInferenceResult+    Amazonka.LookoutEquipment.Types.MissingCompleteSensorData+    Amazonka.LookoutEquipment.Types.MissingSensorData+    Amazonka.LookoutEquipment.Types.ModelStatus+    Amazonka.LookoutEquipment.Types.ModelSummary+    Amazonka.LookoutEquipment.Types.Monotonicity+    Amazonka.LookoutEquipment.Types.MonotonicValues+    Amazonka.LookoutEquipment.Types.MultipleOperatingModes+    Amazonka.LookoutEquipment.Types.S3Object+    Amazonka.LookoutEquipment.Types.SensorStatisticsSummary+    Amazonka.LookoutEquipment.Types.SensorsWithShortDateRange+    Amazonka.LookoutEquipment.Types.StatisticalIssueStatus+    Amazonka.LookoutEquipment.Types.Tag+    Amazonka.LookoutEquipment.Types.TargetSamplingRate+    Amazonka.LookoutEquipment.Types.UnsupportedTimestamps+    Amazonka.LookoutEquipment.UntagResource+    Amazonka.LookoutEquipment.UpdateInferenceScheduler+    Amazonka.LookoutEquipment.UpdateLabelGroup+    Amazonka.LookoutEquipment.Waiters++  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5++test-suite amazonka-lookoutequipment-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.LookoutEquipment+    Test.Amazonka.LookoutEquipment+    Test.Amazonka.LookoutEquipment.Internal++  build-depends:+    , amazonka-core              >=2.0 && <2.1+    , amazonka-lookoutequipment+    , amazonka-test              >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers
+ fixture/CreateDataset.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/CreateDatasetResponse.proto view
+ fixture/CreateInferenceScheduler.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/CreateInferenceSchedulerResponse.proto view
+ fixture/CreateLabel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/CreateLabelGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/CreateLabelGroupResponse.proto view
+ fixture/CreateLabelResponse.proto view
+ fixture/CreateModel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateModelResponse.proto view
+ fixture/DeleteDataset.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DeleteDatasetResponse.proto view
+ fixture/DeleteInferenceScheduler.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DeleteInferenceSchedulerResponse.proto view
+ fixture/DeleteLabel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DeleteLabelGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DeleteLabelGroupResponse.proto view
+ fixture/DeleteLabelResponse.proto view
+ fixture/DeleteModel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteModelResponse.proto view
+ fixture/DescribeDataIngestionJob.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DescribeDataIngestionJobResponse.proto view
+ fixture/DescribeDataset.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DescribeDatasetResponse.proto view
+ fixture/DescribeInferenceScheduler.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DescribeInferenceSchedulerResponse.proto view
+ fixture/DescribeLabel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DescribeLabelGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/DescribeLabelGroupResponse.proto view
+ fixture/DescribeLabelResponse.proto view
+ fixture/DescribeModel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeModelResponse.proto view
+ fixture/ListDataIngestionJobs.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/ListDataIngestionJobsResponse.proto view
+ fixture/ListDatasets.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/ListDatasetsResponse.proto view
+ fixture/ListInferenceEvents.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/ListInferenceEventsResponse.proto view
+ fixture/ListInferenceExecutions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/ListInferenceExecutionsResponse.proto view
+ fixture/ListInferenceSchedulers.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/ListInferenceSchedulersResponse.proto view
+ fixture/ListLabelGroups.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/ListLabelGroupsResponse.proto view
+ fixture/ListLabels.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/ListLabelsResponse.proto view
+ fixture/ListModels.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListModelsResponse.proto view
+ fixture/ListSensorStatistics.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/ListSensorStatisticsResponse.proto view
+ fixture/ListTagsForResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/StartDataIngestionJob.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/StartDataIngestionJobResponse.proto view
+ fixture/StartInferenceScheduler.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/StartInferenceSchedulerResponse.proto view
+ fixture/StopInferenceScheduler.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/StopInferenceSchedulerResponse.proto view
+ fixture/TagResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/UpdateInferenceScheduler.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/UpdateInferenceSchedulerResponse.proto view
+ fixture/UpdateLabelGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lookoutequipment/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lookoutequipment.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/UpdateLabelGroupResponse.proto view
+ gen/Amazonka/LookoutEquipment.hs view
@@ -0,0 +1,492 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.LookoutEquipment+-- 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-12-15@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Lookout for Equipment is a machine learning service that uses+-- advanced analytics to identify anomalies in machines from sensor data+-- for use in predictive maintenance.+module Amazonka.LookoutEquipment+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** ConflictException+    _ConflictException,++    -- ** InternalServerException+    _InternalServerException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ServiceQuotaExceededException+    _ServiceQuotaExceededException,++    -- ** ThrottlingException+    _ThrottlingException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateDataset+    CreateDataset (CreateDataset'),+    newCreateDataset,+    CreateDatasetResponse (CreateDatasetResponse'),+    newCreateDatasetResponse,++    -- ** CreateInferenceScheduler+    CreateInferenceScheduler (CreateInferenceScheduler'),+    newCreateInferenceScheduler,+    CreateInferenceSchedulerResponse (CreateInferenceSchedulerResponse'),+    newCreateInferenceSchedulerResponse,++    -- ** CreateLabel+    CreateLabel (CreateLabel'),+    newCreateLabel,+    CreateLabelResponse (CreateLabelResponse'),+    newCreateLabelResponse,++    -- ** CreateLabelGroup+    CreateLabelGroup (CreateLabelGroup'),+    newCreateLabelGroup,+    CreateLabelGroupResponse (CreateLabelGroupResponse'),+    newCreateLabelGroupResponse,++    -- ** CreateModel+    CreateModel (CreateModel'),+    newCreateModel,+    CreateModelResponse (CreateModelResponse'),+    newCreateModelResponse,++    -- ** DeleteDataset+    DeleteDataset (DeleteDataset'),+    newDeleteDataset,+    DeleteDatasetResponse (DeleteDatasetResponse'),+    newDeleteDatasetResponse,++    -- ** DeleteInferenceScheduler+    DeleteInferenceScheduler (DeleteInferenceScheduler'),+    newDeleteInferenceScheduler,+    DeleteInferenceSchedulerResponse (DeleteInferenceSchedulerResponse'),+    newDeleteInferenceSchedulerResponse,++    -- ** DeleteLabel+    DeleteLabel (DeleteLabel'),+    newDeleteLabel,+    DeleteLabelResponse (DeleteLabelResponse'),+    newDeleteLabelResponse,++    -- ** DeleteLabelGroup+    DeleteLabelGroup (DeleteLabelGroup'),+    newDeleteLabelGroup,+    DeleteLabelGroupResponse (DeleteLabelGroupResponse'),+    newDeleteLabelGroupResponse,++    -- ** DeleteModel+    DeleteModel (DeleteModel'),+    newDeleteModel,+    DeleteModelResponse (DeleteModelResponse'),+    newDeleteModelResponse,++    -- ** DescribeDataIngestionJob+    DescribeDataIngestionJob (DescribeDataIngestionJob'),+    newDescribeDataIngestionJob,+    DescribeDataIngestionJobResponse (DescribeDataIngestionJobResponse'),+    newDescribeDataIngestionJobResponse,++    -- ** DescribeDataset+    DescribeDataset (DescribeDataset'),+    newDescribeDataset,+    DescribeDatasetResponse (DescribeDatasetResponse'),+    newDescribeDatasetResponse,++    -- ** DescribeInferenceScheduler+    DescribeInferenceScheduler (DescribeInferenceScheduler'),+    newDescribeInferenceScheduler,+    DescribeInferenceSchedulerResponse (DescribeInferenceSchedulerResponse'),+    newDescribeInferenceSchedulerResponse,++    -- ** DescribeLabel+    DescribeLabel (DescribeLabel'),+    newDescribeLabel,+    DescribeLabelResponse (DescribeLabelResponse'),+    newDescribeLabelResponse,++    -- ** DescribeLabelGroup+    DescribeLabelGroup (DescribeLabelGroup'),+    newDescribeLabelGroup,+    DescribeLabelGroupResponse (DescribeLabelGroupResponse'),+    newDescribeLabelGroupResponse,++    -- ** DescribeModel+    DescribeModel (DescribeModel'),+    newDescribeModel,+    DescribeModelResponse (DescribeModelResponse'),+    newDescribeModelResponse,++    -- ** ListDataIngestionJobs+    ListDataIngestionJobs (ListDataIngestionJobs'),+    newListDataIngestionJobs,+    ListDataIngestionJobsResponse (ListDataIngestionJobsResponse'),+    newListDataIngestionJobsResponse,++    -- ** ListDatasets+    ListDatasets (ListDatasets'),+    newListDatasets,+    ListDatasetsResponse (ListDatasetsResponse'),+    newListDatasetsResponse,++    -- ** ListInferenceEvents+    ListInferenceEvents (ListInferenceEvents'),+    newListInferenceEvents,+    ListInferenceEventsResponse (ListInferenceEventsResponse'),+    newListInferenceEventsResponse,++    -- ** ListInferenceExecutions+    ListInferenceExecutions (ListInferenceExecutions'),+    newListInferenceExecutions,+    ListInferenceExecutionsResponse (ListInferenceExecutionsResponse'),+    newListInferenceExecutionsResponse,++    -- ** ListInferenceSchedulers+    ListInferenceSchedulers (ListInferenceSchedulers'),+    newListInferenceSchedulers,+    ListInferenceSchedulersResponse (ListInferenceSchedulersResponse'),+    newListInferenceSchedulersResponse,++    -- ** ListLabelGroups+    ListLabelGroups (ListLabelGroups'),+    newListLabelGroups,+    ListLabelGroupsResponse (ListLabelGroupsResponse'),+    newListLabelGroupsResponse,++    -- ** ListLabels+    ListLabels (ListLabels'),+    newListLabels,+    ListLabelsResponse (ListLabelsResponse'),+    newListLabelsResponse,++    -- ** ListModels+    ListModels (ListModels'),+    newListModels,+    ListModelsResponse (ListModelsResponse'),+    newListModelsResponse,++    -- ** ListSensorStatistics+    ListSensorStatistics (ListSensorStatistics'),+    newListSensorStatistics,+    ListSensorStatisticsResponse (ListSensorStatisticsResponse'),+    newListSensorStatisticsResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** StartDataIngestionJob+    StartDataIngestionJob (StartDataIngestionJob'),+    newStartDataIngestionJob,+    StartDataIngestionJobResponse (StartDataIngestionJobResponse'),+    newStartDataIngestionJobResponse,++    -- ** StartInferenceScheduler+    StartInferenceScheduler (StartInferenceScheduler'),+    newStartInferenceScheduler,+    StartInferenceSchedulerResponse (StartInferenceSchedulerResponse'),+    newStartInferenceSchedulerResponse,++    -- ** StopInferenceScheduler+    StopInferenceScheduler (StopInferenceScheduler'),+    newStopInferenceScheduler,+    StopInferenceSchedulerResponse (StopInferenceSchedulerResponse'),+    newStopInferenceSchedulerResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateInferenceScheduler+    UpdateInferenceScheduler (UpdateInferenceScheduler'),+    newUpdateInferenceScheduler,+    UpdateInferenceSchedulerResponse (UpdateInferenceSchedulerResponse'),+    newUpdateInferenceSchedulerResponse,++    -- ** UpdateLabelGroup+    UpdateLabelGroup (UpdateLabelGroup'),+    newUpdateLabelGroup,+    UpdateLabelGroupResponse (UpdateLabelGroupResponse'),+    newUpdateLabelGroupResponse,++    -- * Types++    -- ** DataUploadFrequency+    DataUploadFrequency (..),++    -- ** DatasetStatus+    DatasetStatus (..),++    -- ** InferenceExecutionStatus+    InferenceExecutionStatus (..),++    -- ** InferenceSchedulerStatus+    InferenceSchedulerStatus (..),++    -- ** IngestionJobStatus+    IngestionJobStatus (..),++    -- ** LabelRating+    LabelRating (..),++    -- ** LatestInferenceResult+    LatestInferenceResult (..),++    -- ** ModelStatus+    ModelStatus (..),++    -- ** Monotonicity+    Monotonicity (..),++    -- ** StatisticalIssueStatus+    StatisticalIssueStatus (..),++    -- ** TargetSamplingRate+    TargetSamplingRate (..),++    -- ** CategoricalValues+    CategoricalValues (CategoricalValues'),+    newCategoricalValues,++    -- ** CountPercent+    CountPercent (CountPercent'),+    newCountPercent,++    -- ** DataIngestionJobSummary+    DataIngestionJobSummary (DataIngestionJobSummary'),+    newDataIngestionJobSummary,++    -- ** DataPreProcessingConfiguration+    DataPreProcessingConfiguration (DataPreProcessingConfiguration'),+    newDataPreProcessingConfiguration,++    -- ** DataQualitySummary+    DataQualitySummary (DataQualitySummary'),+    newDataQualitySummary,++    -- ** DatasetSchema+    DatasetSchema (DatasetSchema'),+    newDatasetSchema,++    -- ** DatasetSummary+    DatasetSummary (DatasetSummary'),+    newDatasetSummary,++    -- ** DuplicateTimestamps+    DuplicateTimestamps (DuplicateTimestamps'),+    newDuplicateTimestamps,++    -- ** InferenceEventSummary+    InferenceEventSummary (InferenceEventSummary'),+    newInferenceEventSummary,++    -- ** InferenceExecutionSummary+    InferenceExecutionSummary (InferenceExecutionSummary'),+    newInferenceExecutionSummary,++    -- ** InferenceInputConfiguration+    InferenceInputConfiguration (InferenceInputConfiguration'),+    newInferenceInputConfiguration,++    -- ** InferenceInputNameConfiguration+    InferenceInputNameConfiguration (InferenceInputNameConfiguration'),+    newInferenceInputNameConfiguration,++    -- ** InferenceOutputConfiguration+    InferenceOutputConfiguration (InferenceOutputConfiguration'),+    newInferenceOutputConfiguration,++    -- ** InferenceS3InputConfiguration+    InferenceS3InputConfiguration (InferenceS3InputConfiguration'),+    newInferenceS3InputConfiguration,++    -- ** InferenceS3OutputConfiguration+    InferenceS3OutputConfiguration (InferenceS3OutputConfiguration'),+    newInferenceS3OutputConfiguration,++    -- ** InferenceSchedulerSummary+    InferenceSchedulerSummary (InferenceSchedulerSummary'),+    newInferenceSchedulerSummary,++    -- ** IngestedFilesSummary+    IngestedFilesSummary (IngestedFilesSummary'),+    newIngestedFilesSummary,++    -- ** IngestionInputConfiguration+    IngestionInputConfiguration (IngestionInputConfiguration'),+    newIngestionInputConfiguration,++    -- ** IngestionS3InputConfiguration+    IngestionS3InputConfiguration (IngestionS3InputConfiguration'),+    newIngestionS3InputConfiguration,++    -- ** InsufficientSensorData+    InsufficientSensorData (InsufficientSensorData'),+    newInsufficientSensorData,++    -- ** InvalidSensorData+    InvalidSensorData (InvalidSensorData'),+    newInvalidSensorData,++    -- ** LabelGroupSummary+    LabelGroupSummary (LabelGroupSummary'),+    newLabelGroupSummary,++    -- ** LabelSummary+    LabelSummary (LabelSummary'),+    newLabelSummary,++    -- ** LabelsInputConfiguration+    LabelsInputConfiguration (LabelsInputConfiguration'),+    newLabelsInputConfiguration,++    -- ** LabelsS3InputConfiguration+    LabelsS3InputConfiguration (LabelsS3InputConfiguration'),+    newLabelsS3InputConfiguration,++    -- ** LargeTimestampGaps+    LargeTimestampGaps (LargeTimestampGaps'),+    newLargeTimestampGaps,++    -- ** MissingCompleteSensorData+    MissingCompleteSensorData (MissingCompleteSensorData'),+    newMissingCompleteSensorData,++    -- ** MissingSensorData+    MissingSensorData (MissingSensorData'),+    newMissingSensorData,++    -- ** ModelSummary+    ModelSummary (ModelSummary'),+    newModelSummary,++    -- ** MonotonicValues+    MonotonicValues (MonotonicValues'),+    newMonotonicValues,++    -- ** MultipleOperatingModes+    MultipleOperatingModes (MultipleOperatingModes'),+    newMultipleOperatingModes,++    -- ** S3Object+    S3Object (S3Object'),+    newS3Object,++    -- ** SensorStatisticsSummary+    SensorStatisticsSummary (SensorStatisticsSummary'),+    newSensorStatisticsSummary,++    -- ** SensorsWithShortDateRange+    SensorsWithShortDateRange (SensorsWithShortDateRange'),+    newSensorsWithShortDateRange,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** UnsupportedTimestamps+    UnsupportedTimestamps (UnsupportedTimestamps'),+    newUnsupportedTimestamps,+  )+where++import Amazonka.LookoutEquipment.CreateDataset+import Amazonka.LookoutEquipment.CreateInferenceScheduler+import Amazonka.LookoutEquipment.CreateLabel+import Amazonka.LookoutEquipment.CreateLabelGroup+import Amazonka.LookoutEquipment.CreateModel+import Amazonka.LookoutEquipment.DeleteDataset+import Amazonka.LookoutEquipment.DeleteInferenceScheduler+import Amazonka.LookoutEquipment.DeleteLabel+import Amazonka.LookoutEquipment.DeleteLabelGroup+import Amazonka.LookoutEquipment.DeleteModel+import Amazonka.LookoutEquipment.DescribeDataIngestionJob+import Amazonka.LookoutEquipment.DescribeDataset+import Amazonka.LookoutEquipment.DescribeInferenceScheduler+import Amazonka.LookoutEquipment.DescribeLabel+import Amazonka.LookoutEquipment.DescribeLabelGroup+import Amazonka.LookoutEquipment.DescribeModel+import Amazonka.LookoutEquipment.Lens+import Amazonka.LookoutEquipment.ListDataIngestionJobs+import Amazonka.LookoutEquipment.ListDatasets+import Amazonka.LookoutEquipment.ListInferenceEvents+import Amazonka.LookoutEquipment.ListInferenceExecutions+import Amazonka.LookoutEquipment.ListInferenceSchedulers+import Amazonka.LookoutEquipment.ListLabelGroups+import Amazonka.LookoutEquipment.ListLabels+import Amazonka.LookoutEquipment.ListModels+import Amazonka.LookoutEquipment.ListSensorStatistics+import Amazonka.LookoutEquipment.ListTagsForResource+import Amazonka.LookoutEquipment.StartDataIngestionJob+import Amazonka.LookoutEquipment.StartInferenceScheduler+import Amazonka.LookoutEquipment.StopInferenceScheduler+import Amazonka.LookoutEquipment.TagResource+import Amazonka.LookoutEquipment.Types+import Amazonka.LookoutEquipment.UntagResource+import Amazonka.LookoutEquipment.UpdateInferenceScheduler+import Amazonka.LookoutEquipment.UpdateLabelGroup+import Amazonka.LookoutEquipment.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 'LookoutEquipment'.++-- $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/LookoutEquipment/CreateDataset.hs view
@@ -0,0 +1,265 @@+{-# 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.LookoutEquipment.CreateDataset+-- 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 container for a collection of data being ingested for+-- analysis. The dataset contains the metadata describing where the data is+-- and what the data actually looks like. In other words, it contains the+-- location of the data source, the data schema, and other information. A+-- dataset also contains any tags associated with the ingested data.+module Amazonka.LookoutEquipment.CreateDataset+  ( -- * Creating a Request+    CreateDataset (..),+    newCreateDataset,++    -- * Request Lenses+    createDataset_datasetSchema,+    createDataset_serverSideKmsKeyId,+    createDataset_tags,+    createDataset_datasetName,+    createDataset_clientToken,++    -- * Destructuring the Response+    CreateDatasetResponse (..),+    newCreateDatasetResponse,++    -- * Response Lenses+    createDatasetResponse_datasetArn,+    createDatasetResponse_datasetName,+    createDatasetResponse_status,+    createDatasetResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateDataset' smart constructor.+data CreateDataset = CreateDataset'+  { -- | A JSON description of the data that is in each time series dataset,+    -- including names, column names, and data types.+    datasetSchema :: Prelude.Maybe DatasetSchema,+    -- | Provides the identifier of the KMS key used to encrypt dataset data by+    -- Amazon Lookout for Equipment.+    serverSideKmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Any tags associated with the ingested data described in the dataset.+    tags :: Prelude.Maybe [Tag],+    -- | The name of the dataset being created.+    datasetName :: Prelude.Text,+    -- | A unique identifier for the request. If you do not set the client+    -- request token, Amazon Lookout for Equipment generates one.+    clientToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDataset' 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:+--+-- 'datasetSchema', 'createDataset_datasetSchema' - A JSON description of the data that is in each time series dataset,+-- including names, column names, and data types.+--+-- 'serverSideKmsKeyId', 'createDataset_serverSideKmsKeyId' - Provides the identifier of the KMS key used to encrypt dataset data by+-- Amazon Lookout for Equipment.+--+-- 'tags', 'createDataset_tags' - Any tags associated with the ingested data described in the dataset.+--+-- 'datasetName', 'createDataset_datasetName' - The name of the dataset being created.+--+-- 'clientToken', 'createDataset_clientToken' - A unique identifier for the request. If you do not set the client+-- request token, Amazon Lookout for Equipment generates one.+newCreateDataset ::+  -- | 'datasetName'+  Prelude.Text ->+  -- | 'clientToken'+  Prelude.Text ->+  CreateDataset+newCreateDataset pDatasetName_ pClientToken_ =+  CreateDataset'+    { datasetSchema = Prelude.Nothing,+      serverSideKmsKeyId = Prelude.Nothing,+      tags = Prelude.Nothing,+      datasetName = pDatasetName_,+      clientToken = pClientToken_+    }++-- | A JSON description of the data that is in each time series dataset,+-- including names, column names, and data types.+createDataset_datasetSchema :: Lens.Lens' CreateDataset (Prelude.Maybe DatasetSchema)+createDataset_datasetSchema = Lens.lens (\CreateDataset' {datasetSchema} -> datasetSchema) (\s@CreateDataset' {} a -> s {datasetSchema = a} :: CreateDataset)++-- | Provides the identifier of the KMS key used to encrypt dataset data by+-- Amazon Lookout for Equipment.+createDataset_serverSideKmsKeyId :: Lens.Lens' CreateDataset (Prelude.Maybe Prelude.Text)+createDataset_serverSideKmsKeyId = Lens.lens (\CreateDataset' {serverSideKmsKeyId} -> serverSideKmsKeyId) (\s@CreateDataset' {} a -> s {serverSideKmsKeyId = a} :: CreateDataset)++-- | Any tags associated with the ingested data described in the dataset.+createDataset_tags :: Lens.Lens' CreateDataset (Prelude.Maybe [Tag])+createDataset_tags = Lens.lens (\CreateDataset' {tags} -> tags) (\s@CreateDataset' {} a -> s {tags = a} :: CreateDataset) Prelude.. Lens.mapping Lens.coerced++-- | The name of the dataset being created.+createDataset_datasetName :: Lens.Lens' CreateDataset Prelude.Text+createDataset_datasetName = Lens.lens (\CreateDataset' {datasetName} -> datasetName) (\s@CreateDataset' {} a -> s {datasetName = a} :: CreateDataset)++-- | A unique identifier for the request. If you do not set the client+-- request token, Amazon Lookout for Equipment generates one.+createDataset_clientToken :: Lens.Lens' CreateDataset Prelude.Text+createDataset_clientToken = Lens.lens (\CreateDataset' {clientToken} -> clientToken) (\s@CreateDataset' {} a -> s {clientToken = a} :: CreateDataset)++instance Core.AWSRequest CreateDataset where+  type+    AWSResponse CreateDataset =+      CreateDatasetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateDatasetResponse'+            Prelude.<$> (x Data..?> "DatasetArn")+            Prelude.<*> (x Data..?> "DatasetName")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateDataset where+  hashWithSalt _salt CreateDataset' {..} =+    _salt+      `Prelude.hashWithSalt` datasetSchema+      `Prelude.hashWithSalt` serverSideKmsKeyId+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` datasetName+      `Prelude.hashWithSalt` clientToken++instance Prelude.NFData CreateDataset where+  rnf CreateDataset' {..} =+    Prelude.rnf datasetSchema+      `Prelude.seq` Prelude.rnf serverSideKmsKeyId+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf clientToken++instance Data.ToHeaders CreateDataset where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.CreateDataset" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateDataset where+  toJSON CreateDataset' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DatasetSchema" Data..=) Prelude.<$> datasetSchema,+            ("ServerSideKmsKeyId" Data..=)+              Prelude.<$> serverSideKmsKeyId,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("DatasetName" Data..= datasetName),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath CreateDataset where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateDataset where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateDatasetResponse' smart constructor.+data CreateDatasetResponse = CreateDatasetResponse'+  { -- | The Amazon Resource Name (ARN) of the dataset being created.+    datasetArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the dataset being created.+    datasetName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the @CreateDataset@ operation.+    status :: Prelude.Maybe DatasetStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDatasetResponse' 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:+--+-- 'datasetArn', 'createDatasetResponse_datasetArn' - The Amazon Resource Name (ARN) of the dataset being created.+--+-- 'datasetName', 'createDatasetResponse_datasetName' - The name of the dataset being created.+--+-- 'status', 'createDatasetResponse_status' - Indicates the status of the @CreateDataset@ operation.+--+-- 'httpStatus', 'createDatasetResponse_httpStatus' - The response's http status code.+newCreateDatasetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateDatasetResponse+newCreateDatasetResponse pHttpStatus_ =+  CreateDatasetResponse'+    { datasetArn =+        Prelude.Nothing,+      datasetName = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon Resource Name (ARN) of the dataset being created.+createDatasetResponse_datasetArn :: Lens.Lens' CreateDatasetResponse (Prelude.Maybe Prelude.Text)+createDatasetResponse_datasetArn = Lens.lens (\CreateDatasetResponse' {datasetArn} -> datasetArn) (\s@CreateDatasetResponse' {} a -> s {datasetArn = a} :: CreateDatasetResponse)++-- | The name of the dataset being created.+createDatasetResponse_datasetName :: Lens.Lens' CreateDatasetResponse (Prelude.Maybe Prelude.Text)+createDatasetResponse_datasetName = Lens.lens (\CreateDatasetResponse' {datasetName} -> datasetName) (\s@CreateDatasetResponse' {} a -> s {datasetName = a} :: CreateDatasetResponse)++-- | Indicates the status of the @CreateDataset@ operation.+createDatasetResponse_status :: Lens.Lens' CreateDatasetResponse (Prelude.Maybe DatasetStatus)+createDatasetResponse_status = Lens.lens (\CreateDatasetResponse' {status} -> status) (\s@CreateDatasetResponse' {} a -> s {status = a} :: CreateDatasetResponse)++-- | The response's http status code.+createDatasetResponse_httpStatus :: Lens.Lens' CreateDatasetResponse Prelude.Int+createDatasetResponse_httpStatus = Lens.lens (\CreateDatasetResponse' {httpStatus} -> httpStatus) (\s@CreateDatasetResponse' {} a -> s {httpStatus = a} :: CreateDatasetResponse)++instance Prelude.NFData CreateDatasetResponse where+  rnf CreateDatasetResponse' {..} =+    Prelude.rnf datasetArn+      `Prelude.seq` Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/CreateInferenceScheduler.hs view
@@ -0,0 +1,430 @@+{-# 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.LookoutEquipment.CreateInferenceScheduler+-- 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 scheduled inference. Scheduling an inference is setting up a+-- continuous real-time inference plan to analyze new measurement data.+-- When setting up the schedule, you provide an S3 bucket location for the+-- input data, assign it a delimiter between separate entries in the data,+-- set an offset delay if desired, and set the frequency of inferencing.+-- You must also provide an S3 bucket location for the output data.+module Amazonka.LookoutEquipment.CreateInferenceScheduler+  ( -- * Creating a Request+    CreateInferenceScheduler (..),+    newCreateInferenceScheduler,++    -- * Request Lenses+    createInferenceScheduler_dataDelayOffsetInMinutes,+    createInferenceScheduler_serverSideKmsKeyId,+    createInferenceScheduler_tags,+    createInferenceScheduler_modelName,+    createInferenceScheduler_inferenceSchedulerName,+    createInferenceScheduler_dataUploadFrequency,+    createInferenceScheduler_dataInputConfiguration,+    createInferenceScheduler_dataOutputConfiguration,+    createInferenceScheduler_roleArn,+    createInferenceScheduler_clientToken,++    -- * Destructuring the Response+    CreateInferenceSchedulerResponse (..),+    newCreateInferenceSchedulerResponse,++    -- * Response Lenses+    createInferenceSchedulerResponse_inferenceSchedulerArn,+    createInferenceSchedulerResponse_inferenceSchedulerName,+    createInferenceSchedulerResponse_status,+    createInferenceSchedulerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateInferenceScheduler' smart constructor.+data CreateInferenceScheduler = CreateInferenceScheduler'+  { -- | The interval (in minutes) of planned delay at the start of each+    -- inference segment. For example, if inference is set to run every ten+    -- minutes, the delay is set to five minutes and the time is 09:08. The+    -- inference scheduler will wake up at the configured interval (which,+    -- without a delay configured, would be 09:10) plus the additional five+    -- minute delay time (so 09:15) to check your Amazon S3 bucket. The delay+    -- provides a buffer for you to upload data at the same frequency, so that+    -- you don\'t have to stop and restart the scheduler when uploading new+    -- data.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/lookout-for-equipment/latest/ug/understanding-inference-process.html Understanding the inference process>.+    dataDelayOffsetInMinutes :: Prelude.Maybe Prelude.Natural,+    -- | Provides the identifier of the KMS key used to encrypt inference+    -- scheduler data by Amazon Lookout for Equipment.+    serverSideKmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Any tags associated with the inference scheduler.+    tags :: Prelude.Maybe [Tag],+    -- | The name of the previously trained ML model being used to create the+    -- inference scheduler.+    modelName :: Prelude.Text,+    -- | The name of the inference scheduler being created.+    inferenceSchedulerName :: Prelude.Text,+    -- | How often data is uploaded to the source Amazon S3 bucket for the input+    -- data. The value chosen is the length of time between data uploads. For+    -- instance, if you select 5 minutes, Amazon Lookout for Equipment will+    -- upload the real-time data to the source bucket once every 5 minutes.+    -- This frequency also determines how often Amazon Lookout for Equipment+    -- runs inference on your data.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/lookout-for-equipment/latest/ug/understanding-inference-process.html Understanding the inference process>.+    dataUploadFrequency :: DataUploadFrequency,+    -- | Specifies configuration information for the input data for the inference+    -- scheduler, including delimiter, format, and dataset location.+    dataInputConfiguration :: InferenceInputConfiguration,+    -- | Specifies configuration information for the output results for the+    -- inference scheduler, including the S3 location for the output.+    dataOutputConfiguration :: InferenceOutputConfiguration,+    -- | The Amazon Resource Name (ARN) of a role with permission to access the+    -- data source being used for the inference.+    roleArn :: Prelude.Text,+    -- | A unique identifier for the request. If you do not set the client+    -- request token, Amazon Lookout for Equipment generates one.+    clientToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateInferenceScheduler' 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:+--+-- 'dataDelayOffsetInMinutes', 'createInferenceScheduler_dataDelayOffsetInMinutes' - The interval (in minutes) of planned delay at the start of each+-- inference segment. For example, if inference is set to run every ten+-- minutes, the delay is set to five minutes and the time is 09:08. The+-- inference scheduler will wake up at the configured interval (which,+-- without a delay configured, would be 09:10) plus the additional five+-- minute delay time (so 09:15) to check your Amazon S3 bucket. The delay+-- provides a buffer for you to upload data at the same frequency, so that+-- you don\'t have to stop and restart the scheduler when uploading new+-- data.+--+-- For more information, see+-- <https://docs.aws.amazon.com/lookout-for-equipment/latest/ug/understanding-inference-process.html Understanding the inference process>.+--+-- 'serverSideKmsKeyId', 'createInferenceScheduler_serverSideKmsKeyId' - Provides the identifier of the KMS key used to encrypt inference+-- scheduler data by Amazon Lookout for Equipment.+--+-- 'tags', 'createInferenceScheduler_tags' - Any tags associated with the inference scheduler.+--+-- 'modelName', 'createInferenceScheduler_modelName' - The name of the previously trained ML model being used to create the+-- inference scheduler.+--+-- 'inferenceSchedulerName', 'createInferenceScheduler_inferenceSchedulerName' - The name of the inference scheduler being created.+--+-- 'dataUploadFrequency', 'createInferenceScheduler_dataUploadFrequency' - How often data is uploaded to the source Amazon S3 bucket for the input+-- data. The value chosen is the length of time between data uploads. For+-- instance, if you select 5 minutes, Amazon Lookout for Equipment will+-- upload the real-time data to the source bucket once every 5 minutes.+-- This frequency also determines how often Amazon Lookout for Equipment+-- runs inference on your data.+--+-- For more information, see+-- <https://docs.aws.amazon.com/lookout-for-equipment/latest/ug/understanding-inference-process.html Understanding the inference process>.+--+-- 'dataInputConfiguration', 'createInferenceScheduler_dataInputConfiguration' - Specifies configuration information for the input data for the inference+-- scheduler, including delimiter, format, and dataset location.+--+-- 'dataOutputConfiguration', 'createInferenceScheduler_dataOutputConfiguration' - Specifies configuration information for the output results for the+-- inference scheduler, including the S3 location for the output.+--+-- 'roleArn', 'createInferenceScheduler_roleArn' - The Amazon Resource Name (ARN) of a role with permission to access the+-- data source being used for the inference.+--+-- 'clientToken', 'createInferenceScheduler_clientToken' - A unique identifier for the request. If you do not set the client+-- request token, Amazon Lookout for Equipment generates one.+newCreateInferenceScheduler ::+  -- | 'modelName'+  Prelude.Text ->+  -- | 'inferenceSchedulerName'+  Prelude.Text ->+  -- | 'dataUploadFrequency'+  DataUploadFrequency ->+  -- | 'dataInputConfiguration'+  InferenceInputConfiguration ->+  -- | 'dataOutputConfiguration'+  InferenceOutputConfiguration ->+  -- | 'roleArn'+  Prelude.Text ->+  -- | 'clientToken'+  Prelude.Text ->+  CreateInferenceScheduler+newCreateInferenceScheduler+  pModelName_+  pInferenceSchedulerName_+  pDataUploadFrequency_+  pDataInputConfiguration_+  pDataOutputConfiguration_+  pRoleArn_+  pClientToken_ =+    CreateInferenceScheduler'+      { dataDelayOffsetInMinutes =+          Prelude.Nothing,+        serverSideKmsKeyId = Prelude.Nothing,+        tags = Prelude.Nothing,+        modelName = pModelName_,+        inferenceSchedulerName = pInferenceSchedulerName_,+        dataUploadFrequency = pDataUploadFrequency_,+        dataInputConfiguration = pDataInputConfiguration_,+        dataOutputConfiguration =+          pDataOutputConfiguration_,+        roleArn = pRoleArn_,+        clientToken = pClientToken_+      }++-- | The interval (in minutes) of planned delay at the start of each+-- inference segment. For example, if inference is set to run every ten+-- minutes, the delay is set to five minutes and the time is 09:08. The+-- inference scheduler will wake up at the configured interval (which,+-- without a delay configured, would be 09:10) plus the additional five+-- minute delay time (so 09:15) to check your Amazon S3 bucket. The delay+-- provides a buffer for you to upload data at the same frequency, so that+-- you don\'t have to stop and restart the scheduler when uploading new+-- data.+--+-- For more information, see+-- <https://docs.aws.amazon.com/lookout-for-equipment/latest/ug/understanding-inference-process.html Understanding the inference process>.+createInferenceScheduler_dataDelayOffsetInMinutes :: Lens.Lens' CreateInferenceScheduler (Prelude.Maybe Prelude.Natural)+createInferenceScheduler_dataDelayOffsetInMinutes = Lens.lens (\CreateInferenceScheduler' {dataDelayOffsetInMinutes} -> dataDelayOffsetInMinutes) (\s@CreateInferenceScheduler' {} a -> s {dataDelayOffsetInMinutes = a} :: CreateInferenceScheduler)++-- | Provides the identifier of the KMS key used to encrypt inference+-- scheduler data by Amazon Lookout for Equipment.+createInferenceScheduler_serverSideKmsKeyId :: Lens.Lens' CreateInferenceScheduler (Prelude.Maybe Prelude.Text)+createInferenceScheduler_serverSideKmsKeyId = Lens.lens (\CreateInferenceScheduler' {serverSideKmsKeyId} -> serverSideKmsKeyId) (\s@CreateInferenceScheduler' {} a -> s {serverSideKmsKeyId = a} :: CreateInferenceScheduler)++-- | Any tags associated with the inference scheduler.+createInferenceScheduler_tags :: Lens.Lens' CreateInferenceScheduler (Prelude.Maybe [Tag])+createInferenceScheduler_tags = Lens.lens (\CreateInferenceScheduler' {tags} -> tags) (\s@CreateInferenceScheduler' {} a -> s {tags = a} :: CreateInferenceScheduler) Prelude.. Lens.mapping Lens.coerced++-- | The name of the previously trained ML model being used to create the+-- inference scheduler.+createInferenceScheduler_modelName :: Lens.Lens' CreateInferenceScheduler Prelude.Text+createInferenceScheduler_modelName = Lens.lens (\CreateInferenceScheduler' {modelName} -> modelName) (\s@CreateInferenceScheduler' {} a -> s {modelName = a} :: CreateInferenceScheduler)++-- | The name of the inference scheduler being created.+createInferenceScheduler_inferenceSchedulerName :: Lens.Lens' CreateInferenceScheduler Prelude.Text+createInferenceScheduler_inferenceSchedulerName = Lens.lens (\CreateInferenceScheduler' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@CreateInferenceScheduler' {} a -> s {inferenceSchedulerName = a} :: CreateInferenceScheduler)++-- | How often data is uploaded to the source Amazon S3 bucket for the input+-- data. The value chosen is the length of time between data uploads. For+-- instance, if you select 5 minutes, Amazon Lookout for Equipment will+-- upload the real-time data to the source bucket once every 5 minutes.+-- This frequency also determines how often Amazon Lookout for Equipment+-- runs inference on your data.+--+-- For more information, see+-- <https://docs.aws.amazon.com/lookout-for-equipment/latest/ug/understanding-inference-process.html Understanding the inference process>.+createInferenceScheduler_dataUploadFrequency :: Lens.Lens' CreateInferenceScheduler DataUploadFrequency+createInferenceScheduler_dataUploadFrequency = Lens.lens (\CreateInferenceScheduler' {dataUploadFrequency} -> dataUploadFrequency) (\s@CreateInferenceScheduler' {} a -> s {dataUploadFrequency = a} :: CreateInferenceScheduler)++-- | Specifies configuration information for the input data for the inference+-- scheduler, including delimiter, format, and dataset location.+createInferenceScheduler_dataInputConfiguration :: Lens.Lens' CreateInferenceScheduler InferenceInputConfiguration+createInferenceScheduler_dataInputConfiguration = Lens.lens (\CreateInferenceScheduler' {dataInputConfiguration} -> dataInputConfiguration) (\s@CreateInferenceScheduler' {} a -> s {dataInputConfiguration = a} :: CreateInferenceScheduler)++-- | Specifies configuration information for the output results for the+-- inference scheduler, including the S3 location for the output.+createInferenceScheduler_dataOutputConfiguration :: Lens.Lens' CreateInferenceScheduler InferenceOutputConfiguration+createInferenceScheduler_dataOutputConfiguration = Lens.lens (\CreateInferenceScheduler' {dataOutputConfiguration} -> dataOutputConfiguration) (\s@CreateInferenceScheduler' {} a -> s {dataOutputConfiguration = a} :: CreateInferenceScheduler)++-- | The Amazon Resource Name (ARN) of a role with permission to access the+-- data source being used for the inference.+createInferenceScheduler_roleArn :: Lens.Lens' CreateInferenceScheduler Prelude.Text+createInferenceScheduler_roleArn = Lens.lens (\CreateInferenceScheduler' {roleArn} -> roleArn) (\s@CreateInferenceScheduler' {} a -> s {roleArn = a} :: CreateInferenceScheduler)++-- | A unique identifier for the request. If you do not set the client+-- request token, Amazon Lookout for Equipment generates one.+createInferenceScheduler_clientToken :: Lens.Lens' CreateInferenceScheduler Prelude.Text+createInferenceScheduler_clientToken = Lens.lens (\CreateInferenceScheduler' {clientToken} -> clientToken) (\s@CreateInferenceScheduler' {} a -> s {clientToken = a} :: CreateInferenceScheduler)++instance Core.AWSRequest CreateInferenceScheduler where+  type+    AWSResponse CreateInferenceScheduler =+      CreateInferenceSchedulerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateInferenceSchedulerResponse'+            Prelude.<$> (x Data..?> "InferenceSchedulerArn")+            Prelude.<*> (x Data..?> "InferenceSchedulerName")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateInferenceScheduler where+  hashWithSalt _salt CreateInferenceScheduler' {..} =+    _salt+      `Prelude.hashWithSalt` dataDelayOffsetInMinutes+      `Prelude.hashWithSalt` serverSideKmsKeyId+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` modelName+      `Prelude.hashWithSalt` inferenceSchedulerName+      `Prelude.hashWithSalt` dataUploadFrequency+      `Prelude.hashWithSalt` dataInputConfiguration+      `Prelude.hashWithSalt` dataOutputConfiguration+      `Prelude.hashWithSalt` roleArn+      `Prelude.hashWithSalt` clientToken++instance Prelude.NFData CreateInferenceScheduler where+  rnf CreateInferenceScheduler' {..} =+    Prelude.rnf dataDelayOffsetInMinutes+      `Prelude.seq` Prelude.rnf serverSideKmsKeyId+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf inferenceSchedulerName+      `Prelude.seq` Prelude.rnf dataUploadFrequency+      `Prelude.seq` Prelude.rnf dataInputConfiguration+      `Prelude.seq` Prelude.rnf dataOutputConfiguration+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf clientToken++instance Data.ToHeaders CreateInferenceScheduler where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.CreateInferenceScheduler" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateInferenceScheduler where+  toJSON CreateInferenceScheduler' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DataDelayOffsetInMinutes" Data..=)+              Prelude.<$> dataDelayOffsetInMinutes,+            ("ServerSideKmsKeyId" Data..=)+              Prelude.<$> serverSideKmsKeyId,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("ModelName" Data..= modelName),+            Prelude.Just+              ( "InferenceSchedulerName"+                  Data..= inferenceSchedulerName+              ),+            Prelude.Just+              ("DataUploadFrequency" Data..= dataUploadFrequency),+            Prelude.Just+              ( "DataInputConfiguration"+                  Data..= dataInputConfiguration+              ),+            Prelude.Just+              ( "DataOutputConfiguration"+                  Data..= dataOutputConfiguration+              ),+            Prelude.Just ("RoleArn" Data..= roleArn),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath CreateInferenceScheduler where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateInferenceScheduler where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateInferenceSchedulerResponse' smart constructor.+data CreateInferenceSchedulerResponse = CreateInferenceSchedulerResponse'+  { -- | The Amazon Resource Name (ARN) of the inference scheduler being created.+    inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,+    -- | The name of inference scheduler being created.+    inferenceSchedulerName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the @CreateInferenceScheduler@ operation.+    status :: Prelude.Maybe InferenceSchedulerStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateInferenceSchedulerResponse' 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:+--+-- 'inferenceSchedulerArn', 'createInferenceSchedulerResponse_inferenceSchedulerArn' - The Amazon Resource Name (ARN) of the inference scheduler being created.+--+-- 'inferenceSchedulerName', 'createInferenceSchedulerResponse_inferenceSchedulerName' - The name of inference scheduler being created.+--+-- 'status', 'createInferenceSchedulerResponse_status' - Indicates the status of the @CreateInferenceScheduler@ operation.+--+-- 'httpStatus', 'createInferenceSchedulerResponse_httpStatus' - The response's http status code.+newCreateInferenceSchedulerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateInferenceSchedulerResponse+newCreateInferenceSchedulerResponse pHttpStatus_ =+  CreateInferenceSchedulerResponse'+    { inferenceSchedulerArn =+        Prelude.Nothing,+      inferenceSchedulerName = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon Resource Name (ARN) of the inference scheduler being created.+createInferenceSchedulerResponse_inferenceSchedulerArn :: Lens.Lens' CreateInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+createInferenceSchedulerResponse_inferenceSchedulerArn = Lens.lens (\CreateInferenceSchedulerResponse' {inferenceSchedulerArn} -> inferenceSchedulerArn) (\s@CreateInferenceSchedulerResponse' {} a -> s {inferenceSchedulerArn = a} :: CreateInferenceSchedulerResponse)++-- | The name of inference scheduler being created.+createInferenceSchedulerResponse_inferenceSchedulerName :: Lens.Lens' CreateInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+createInferenceSchedulerResponse_inferenceSchedulerName = Lens.lens (\CreateInferenceSchedulerResponse' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@CreateInferenceSchedulerResponse' {} a -> s {inferenceSchedulerName = a} :: CreateInferenceSchedulerResponse)++-- | Indicates the status of the @CreateInferenceScheduler@ operation.+createInferenceSchedulerResponse_status :: Lens.Lens' CreateInferenceSchedulerResponse (Prelude.Maybe InferenceSchedulerStatus)+createInferenceSchedulerResponse_status = Lens.lens (\CreateInferenceSchedulerResponse' {status} -> status) (\s@CreateInferenceSchedulerResponse' {} a -> s {status = a} :: CreateInferenceSchedulerResponse)++-- | The response's http status code.+createInferenceSchedulerResponse_httpStatus :: Lens.Lens' CreateInferenceSchedulerResponse Prelude.Int+createInferenceSchedulerResponse_httpStatus = Lens.lens (\CreateInferenceSchedulerResponse' {httpStatus} -> httpStatus) (\s@CreateInferenceSchedulerResponse' {} a -> s {httpStatus = a} :: CreateInferenceSchedulerResponse)++instance+  Prelude.NFData+    CreateInferenceSchedulerResponse+  where+  rnf CreateInferenceSchedulerResponse' {..} =+    Prelude.rnf inferenceSchedulerArn+      `Prelude.seq` Prelude.rnf inferenceSchedulerName+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/CreateLabel.hs view
@@ -0,0 +1,317 @@+{-# 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.LookoutEquipment.CreateLabel+-- 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 label for an event.+module Amazonka.LookoutEquipment.CreateLabel+  ( -- * Creating a Request+    CreateLabel (..),+    newCreateLabel,++    -- * Request Lenses+    createLabel_equipment,+    createLabel_faultCode,+    createLabel_notes,+    createLabel_labelGroupName,+    createLabel_startTime,+    createLabel_endTime,+    createLabel_rating,+    createLabel_clientToken,++    -- * Destructuring the Response+    CreateLabelResponse (..),+    newCreateLabelResponse,++    -- * Response Lenses+    createLabelResponse_labelId,+    createLabelResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateLabel' smart constructor.+data CreateLabel = CreateLabel'+  { -- | Indicates that a label pertains to a particular piece of equipment.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    equipment :: Prelude.Maybe Prelude.Text,+    -- | Provides additional information about the label. The fault code must be+    -- defined in the FaultCodes attribute of the label group.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    faultCode :: Prelude.Maybe Prelude.Text,+    -- | Metadata providing additional information about the label.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    notes :: Prelude.Maybe Prelude.Text,+    -- | The name of a group of labels.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    labelGroupName :: Prelude.Text,+    -- | The start time of the labeled event.+    startTime :: Data.POSIX,+    -- | The end time of the labeled event.+    endTime :: Data.POSIX,+    -- | Indicates whether a labeled event represents an anomaly.+    rating :: LabelRating,+    -- | A unique identifier for the request to create a label. If you do not set+    -- the client request token, Lookout for Equipment generates one.+    clientToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLabel' 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:+--+-- 'equipment', 'createLabel_equipment' - Indicates that a label pertains to a particular piece of equipment.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'faultCode', 'createLabel_faultCode' - Provides additional information about the label. The fault code must be+-- defined in the FaultCodes attribute of the label group.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'notes', 'createLabel_notes' - Metadata providing additional information about the label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'labelGroupName', 'createLabel_labelGroupName' - The name of a group of labels.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'startTime', 'createLabel_startTime' - The start time of the labeled event.+--+-- 'endTime', 'createLabel_endTime' - The end time of the labeled event.+--+-- 'rating', 'createLabel_rating' - Indicates whether a labeled event represents an anomaly.+--+-- 'clientToken', 'createLabel_clientToken' - A unique identifier for the request to create a label. If you do not set+-- the client request token, Lookout for Equipment generates one.+newCreateLabel ::+  -- | 'labelGroupName'+  Prelude.Text ->+  -- | 'startTime'+  Prelude.UTCTime ->+  -- | 'endTime'+  Prelude.UTCTime ->+  -- | 'rating'+  LabelRating ->+  -- | 'clientToken'+  Prelude.Text ->+  CreateLabel+newCreateLabel+  pLabelGroupName_+  pStartTime_+  pEndTime_+  pRating_+  pClientToken_ =+    CreateLabel'+      { equipment = Prelude.Nothing,+        faultCode = Prelude.Nothing,+        notes = Prelude.Nothing,+        labelGroupName = pLabelGroupName_,+        startTime = Data._Time Lens.# pStartTime_,+        endTime = Data._Time Lens.# pEndTime_,+        rating = pRating_,+        clientToken = pClientToken_+      }++-- | Indicates that a label pertains to a particular piece of equipment.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+createLabel_equipment :: Lens.Lens' CreateLabel (Prelude.Maybe Prelude.Text)+createLabel_equipment = Lens.lens (\CreateLabel' {equipment} -> equipment) (\s@CreateLabel' {} a -> s {equipment = a} :: CreateLabel)++-- | Provides additional information about the label. The fault code must be+-- defined in the FaultCodes attribute of the label group.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+createLabel_faultCode :: Lens.Lens' CreateLabel (Prelude.Maybe Prelude.Text)+createLabel_faultCode = Lens.lens (\CreateLabel' {faultCode} -> faultCode) (\s@CreateLabel' {} a -> s {faultCode = a} :: CreateLabel)++-- | Metadata providing additional information about the label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+createLabel_notes :: Lens.Lens' CreateLabel (Prelude.Maybe Prelude.Text)+createLabel_notes = Lens.lens (\CreateLabel' {notes} -> notes) (\s@CreateLabel' {} a -> s {notes = a} :: CreateLabel)++-- | The name of a group of labels.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+createLabel_labelGroupName :: Lens.Lens' CreateLabel Prelude.Text+createLabel_labelGroupName = Lens.lens (\CreateLabel' {labelGroupName} -> labelGroupName) (\s@CreateLabel' {} a -> s {labelGroupName = a} :: CreateLabel)++-- | The start time of the labeled event.+createLabel_startTime :: Lens.Lens' CreateLabel Prelude.UTCTime+createLabel_startTime = Lens.lens (\CreateLabel' {startTime} -> startTime) (\s@CreateLabel' {} a -> s {startTime = a} :: CreateLabel) Prelude.. Data._Time++-- | The end time of the labeled event.+createLabel_endTime :: Lens.Lens' CreateLabel Prelude.UTCTime+createLabel_endTime = Lens.lens (\CreateLabel' {endTime} -> endTime) (\s@CreateLabel' {} a -> s {endTime = a} :: CreateLabel) Prelude.. Data._Time++-- | Indicates whether a labeled event represents an anomaly.+createLabel_rating :: Lens.Lens' CreateLabel LabelRating+createLabel_rating = Lens.lens (\CreateLabel' {rating} -> rating) (\s@CreateLabel' {} a -> s {rating = a} :: CreateLabel)++-- | A unique identifier for the request to create a label. If you do not set+-- the client request token, Lookout for Equipment generates one.+createLabel_clientToken :: Lens.Lens' CreateLabel Prelude.Text+createLabel_clientToken = Lens.lens (\CreateLabel' {clientToken} -> clientToken) (\s@CreateLabel' {} a -> s {clientToken = a} :: CreateLabel)++instance Core.AWSRequest CreateLabel where+  type AWSResponse CreateLabel = CreateLabelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateLabelResponse'+            Prelude.<$> (x Data..?> "LabelId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateLabel where+  hashWithSalt _salt CreateLabel' {..} =+    _salt+      `Prelude.hashWithSalt` equipment+      `Prelude.hashWithSalt` faultCode+      `Prelude.hashWithSalt` notes+      `Prelude.hashWithSalt` labelGroupName+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` endTime+      `Prelude.hashWithSalt` rating+      `Prelude.hashWithSalt` clientToken++instance Prelude.NFData CreateLabel where+  rnf CreateLabel' {..} =+    Prelude.rnf equipment+      `Prelude.seq` Prelude.rnf faultCode+      `Prelude.seq` Prelude.rnf notes+      `Prelude.seq` Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf endTime+      `Prelude.seq` Prelude.rnf rating+      `Prelude.seq` Prelude.rnf clientToken++instance Data.ToHeaders CreateLabel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.CreateLabel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateLabel where+  toJSON CreateLabel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Equipment" Data..=) Prelude.<$> equipment,+            ("FaultCode" Data..=) Prelude.<$> faultCode,+            ("Notes" Data..=) Prelude.<$> notes,+            Prelude.Just+              ("LabelGroupName" Data..= labelGroupName),+            Prelude.Just ("StartTime" Data..= startTime),+            Prelude.Just ("EndTime" Data..= endTime),+            Prelude.Just ("Rating" Data..= rating),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath CreateLabel where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLabel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateLabelResponse' smart constructor.+data CreateLabelResponse = CreateLabelResponse'+  { -- | The ID of the label that you have created.+    labelId :: 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 'CreateLabelResponse' 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:+--+-- 'labelId', 'createLabelResponse_labelId' - The ID of the label that you have created.+--+-- 'httpStatus', 'createLabelResponse_httpStatus' - The response's http status code.+newCreateLabelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLabelResponse+newCreateLabelResponse pHttpStatus_ =+  CreateLabelResponse'+    { labelId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ID of the label that you have created.+createLabelResponse_labelId :: Lens.Lens' CreateLabelResponse (Prelude.Maybe Prelude.Text)+createLabelResponse_labelId = Lens.lens (\CreateLabelResponse' {labelId} -> labelId) (\s@CreateLabelResponse' {} a -> s {labelId = a} :: CreateLabelResponse)++-- | The response's http status code.+createLabelResponse_httpStatus :: Lens.Lens' CreateLabelResponse Prelude.Int+createLabelResponse_httpStatus = Lens.lens (\CreateLabelResponse' {httpStatus} -> httpStatus) (\s@CreateLabelResponse' {} a -> s {httpStatus = a} :: CreateLabelResponse)++instance Prelude.NFData CreateLabelResponse where+  rnf CreateLabelResponse' {..} =+    Prelude.rnf labelId+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/CreateLabelGroup.hs view
@@ -0,0 +1,266 @@+{-# 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.LookoutEquipment.CreateLabelGroup+-- 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 group of labels.+module Amazonka.LookoutEquipment.CreateLabelGroup+  ( -- * Creating a Request+    CreateLabelGroup (..),+    newCreateLabelGroup,++    -- * Request Lenses+    createLabelGroup_faultCodes,+    createLabelGroup_tags,+    createLabelGroup_labelGroupName,+    createLabelGroup_clientToken,++    -- * Destructuring the Response+    CreateLabelGroupResponse (..),+    newCreateLabelGroupResponse,++    -- * Response Lenses+    createLabelGroupResponse_labelGroupArn,+    createLabelGroupResponse_labelGroupName,+    createLabelGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateLabelGroup' smart constructor.+data CreateLabelGroup = CreateLabelGroup'+  { -- | The acceptable fault codes (indicating the type of anomaly associated+    -- with the label) that can be used with this label group.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    faultCodes :: Prelude.Maybe [Prelude.Text],+    -- | Tags that provide metadata about the label group you are creating.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    tags :: Prelude.Maybe [Tag],+    -- | Names a group of labels.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    labelGroupName :: Prelude.Text,+    -- | A unique identifier for the request to create a label group. If you do+    -- not set the client request token, Lookout for Equipment generates one.+    clientToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLabelGroup' 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:+--+-- 'faultCodes', 'createLabelGroup_faultCodes' - The acceptable fault codes (indicating the type of anomaly associated+-- with the label) that can be used with this label group.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'tags', 'createLabelGroup_tags' - Tags that provide metadata about the label group you are creating.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'labelGroupName', 'createLabelGroup_labelGroupName' - Names a group of labels.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'clientToken', 'createLabelGroup_clientToken' - A unique identifier for the request to create a label group. If you do+-- not set the client request token, Lookout for Equipment generates one.+newCreateLabelGroup ::+  -- | 'labelGroupName'+  Prelude.Text ->+  -- | 'clientToken'+  Prelude.Text ->+  CreateLabelGroup+newCreateLabelGroup pLabelGroupName_ pClientToken_ =+  CreateLabelGroup'+    { faultCodes = Prelude.Nothing,+      tags = Prelude.Nothing,+      labelGroupName = pLabelGroupName_,+      clientToken = pClientToken_+    }++-- | The acceptable fault codes (indicating the type of anomaly associated+-- with the label) that can be used with this label group.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+createLabelGroup_faultCodes :: Lens.Lens' CreateLabelGroup (Prelude.Maybe [Prelude.Text])+createLabelGroup_faultCodes = Lens.lens (\CreateLabelGroup' {faultCodes} -> faultCodes) (\s@CreateLabelGroup' {} a -> s {faultCodes = a} :: CreateLabelGroup) Prelude.. Lens.mapping Lens.coerced++-- | Tags that provide metadata about the label group you are creating.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+createLabelGroup_tags :: Lens.Lens' CreateLabelGroup (Prelude.Maybe [Tag])+createLabelGroup_tags = Lens.lens (\CreateLabelGroup' {tags} -> tags) (\s@CreateLabelGroup' {} a -> s {tags = a} :: CreateLabelGroup) Prelude.. Lens.mapping Lens.coerced++-- | Names a group of labels.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+createLabelGroup_labelGroupName :: Lens.Lens' CreateLabelGroup Prelude.Text+createLabelGroup_labelGroupName = Lens.lens (\CreateLabelGroup' {labelGroupName} -> labelGroupName) (\s@CreateLabelGroup' {} a -> s {labelGroupName = a} :: CreateLabelGroup)++-- | A unique identifier for the request to create a label group. If you do+-- not set the client request token, Lookout for Equipment generates one.+createLabelGroup_clientToken :: Lens.Lens' CreateLabelGroup Prelude.Text+createLabelGroup_clientToken = Lens.lens (\CreateLabelGroup' {clientToken} -> clientToken) (\s@CreateLabelGroup' {} a -> s {clientToken = a} :: CreateLabelGroup)++instance Core.AWSRequest CreateLabelGroup where+  type+    AWSResponse CreateLabelGroup =+      CreateLabelGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateLabelGroupResponse'+            Prelude.<$> (x Data..?> "LabelGroupArn")+            Prelude.<*> (x Data..?> "LabelGroupName")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateLabelGroup where+  hashWithSalt _salt CreateLabelGroup' {..} =+    _salt+      `Prelude.hashWithSalt` faultCodes+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` labelGroupName+      `Prelude.hashWithSalt` clientToken++instance Prelude.NFData CreateLabelGroup where+  rnf CreateLabelGroup' {..} =+    Prelude.rnf faultCodes+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf clientToken++instance Data.ToHeaders CreateLabelGroup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.CreateLabelGroup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateLabelGroup where+  toJSON CreateLabelGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("FaultCodes" Data..=) Prelude.<$> faultCodes,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just+              ("LabelGroupName" Data..= labelGroupName),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath CreateLabelGroup where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLabelGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateLabelGroupResponse' smart constructor.+data CreateLabelGroupResponse = CreateLabelGroupResponse'+  { -- | The ARN of the label group that you have created.+    labelGroupArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the label group that you have created. Data in this field+    -- will be retained for service usage. Follow best practices for the+    -- security of your data.+    labelGroupName :: 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 'CreateLabelGroupResponse' 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:+--+-- 'labelGroupArn', 'createLabelGroupResponse_labelGroupArn' - The ARN of the label group that you have created.+--+-- 'labelGroupName', 'createLabelGroupResponse_labelGroupName' - The name of the label group that you have created. Data in this field+-- will be retained for service usage. Follow best practices for the+-- security of your data.+--+-- 'httpStatus', 'createLabelGroupResponse_httpStatus' - The response's http status code.+newCreateLabelGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLabelGroupResponse+newCreateLabelGroupResponse pHttpStatus_ =+  CreateLabelGroupResponse'+    { labelGroupArn =+        Prelude.Nothing,+      labelGroupName = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the label group that you have created.+createLabelGroupResponse_labelGroupArn :: Lens.Lens' CreateLabelGroupResponse (Prelude.Maybe Prelude.Text)+createLabelGroupResponse_labelGroupArn = Lens.lens (\CreateLabelGroupResponse' {labelGroupArn} -> labelGroupArn) (\s@CreateLabelGroupResponse' {} a -> s {labelGroupArn = a} :: CreateLabelGroupResponse)++-- | The name of the label group that you have created. Data in this field+-- will be retained for service usage. Follow best practices for the+-- security of your data.+createLabelGroupResponse_labelGroupName :: Lens.Lens' CreateLabelGroupResponse (Prelude.Maybe Prelude.Text)+createLabelGroupResponse_labelGroupName = Lens.lens (\CreateLabelGroupResponse' {labelGroupName} -> labelGroupName) (\s@CreateLabelGroupResponse' {} a -> s {labelGroupName = a} :: CreateLabelGroupResponse)++-- | The response's http status code.+createLabelGroupResponse_httpStatus :: Lens.Lens' CreateLabelGroupResponse Prelude.Int+createLabelGroupResponse_httpStatus = Lens.lens (\CreateLabelGroupResponse' {httpStatus} -> httpStatus) (\s@CreateLabelGroupResponse' {} a -> s {httpStatus = a} :: CreateLabelGroupResponse)++instance Prelude.NFData CreateLabelGroupResponse where+  rnf CreateLabelGroupResponse' {..} =+    Prelude.rnf labelGroupArn+      `Prelude.seq` Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/CreateModel.hs view
@@ -0,0 +1,435 @@+{-# 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.LookoutEquipment.CreateModel+-- 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 an ML model for data inference.+--+-- A machine-learning (ML) model is a mathematical model that finds+-- patterns in your data. In Amazon Lookout for Equipment, the model learns+-- the patterns of normal behavior and detects abnormal behavior that could+-- be potential equipment failure (or maintenance events). The models are+-- made by analyzing normal data and abnormalities in machine behavior that+-- have already occurred.+--+-- Your model is trained using a portion of the data from your dataset and+-- uses that data to learn patterns of normal behavior and abnormal+-- patterns that lead to equipment failure. Another portion of the data is+-- used to evaluate the model\'s accuracy.+module Amazonka.LookoutEquipment.CreateModel+  ( -- * Creating a Request+    CreateModel (..),+    newCreateModel,++    -- * Request Lenses+    createModel_dataPreProcessingConfiguration,+    createModel_datasetSchema,+    createModel_evaluationDataEndTime,+    createModel_evaluationDataStartTime,+    createModel_labelsInputConfiguration,+    createModel_offCondition,+    createModel_roleArn,+    createModel_serverSideKmsKeyId,+    createModel_tags,+    createModel_trainingDataEndTime,+    createModel_trainingDataStartTime,+    createModel_modelName,+    createModel_datasetName,+    createModel_clientToken,++    -- * Destructuring the Response+    CreateModelResponse (..),+    newCreateModelResponse,++    -- * Response Lenses+    createModelResponse_modelArn,+    createModelResponse_status,+    createModelResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateModel' smart constructor.+data CreateModel = CreateModel'+  { -- | The configuration is the @TargetSamplingRate@, which is the sampling+    -- rate of the data after post processing by Amazon Lookout for Equipment.+    -- For example, if you provide data that has been collected at a 1 second+    -- level and you want the system to resample the data at a 1 minute rate+    -- before training, the @TargetSamplingRate@ is 1 minute.+    --+    -- When providing a value for the @TargetSamplingRate@, you must attach the+    -- prefix \"PT\" to the rate you want. The value for a 1 second rate is+    -- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+    -- value for a 1 hour rate is /PT1H/+    dataPreProcessingConfiguration :: Prelude.Maybe DataPreProcessingConfiguration,+    -- | The data schema for the ML model being created.+    datasetSchema :: Prelude.Maybe DatasetSchema,+    -- | Indicates the time reference in the dataset that should be used to end+    -- the subset of evaluation data for the ML model.+    evaluationDataEndTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates the time reference in the dataset that should be used to begin+    -- the subset of evaluation data for the ML model.+    evaluationDataStartTime :: Prelude.Maybe Data.POSIX,+    -- | The input configuration for the labels being used for the ML model+    -- that\'s being created.+    labelsInputConfiguration :: Prelude.Maybe LabelsInputConfiguration,+    -- | Indicates that the asset associated with this sensor has been shut off.+    -- As long as this condition is met, Lookout for Equipment will not use+    -- data from this asset for training, evaluation, or inference.+    offCondition :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of a role with permission to access the+    -- data source being used to create the ML model.+    roleArn :: Prelude.Maybe Prelude.Text,+    -- | Provides the identifier of the KMS key used to encrypt model data by+    -- Amazon Lookout for Equipment.+    serverSideKmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Any tags associated with the ML model being created.+    tags :: Prelude.Maybe [Tag],+    -- | Indicates the time reference in the dataset that should be used to end+    -- the subset of training data for the ML model.+    trainingDataEndTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates the time reference in the dataset that should be used to begin+    -- the subset of training data for the ML model.+    trainingDataStartTime :: Prelude.Maybe Data.POSIX,+    -- | The name for the ML model to be created.+    modelName :: Prelude.Text,+    -- | The name of the dataset for the ML model being created.+    datasetName :: Prelude.Text,+    -- | A unique identifier for the request. If you do not set the client+    -- request token, Amazon Lookout for Equipment generates one.+    clientToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateModel' 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:+--+-- 'dataPreProcessingConfiguration', 'createModel_dataPreProcessingConfiguration' - The configuration is the @TargetSamplingRate@, which is the sampling+-- rate of the data after post processing by Amazon Lookout for Equipment.+-- For example, if you provide data that has been collected at a 1 second+-- level and you want the system to resample the data at a 1 minute rate+-- before training, the @TargetSamplingRate@ is 1 minute.+--+-- When providing a value for the @TargetSamplingRate@, you must attach the+-- prefix \"PT\" to the rate you want. The value for a 1 second rate is+-- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+-- value for a 1 hour rate is /PT1H/+--+-- 'datasetSchema', 'createModel_datasetSchema' - The data schema for the ML model being created.+--+-- 'evaluationDataEndTime', 'createModel_evaluationDataEndTime' - Indicates the time reference in the dataset that should be used to end+-- the subset of evaluation data for the ML model.+--+-- 'evaluationDataStartTime', 'createModel_evaluationDataStartTime' - Indicates the time reference in the dataset that should be used to begin+-- the subset of evaluation data for the ML model.+--+-- 'labelsInputConfiguration', 'createModel_labelsInputConfiguration' - The input configuration for the labels being used for the ML model+-- that\'s being created.+--+-- 'offCondition', 'createModel_offCondition' - Indicates that the asset associated with this sensor has been shut off.+-- As long as this condition is met, Lookout for Equipment will not use+-- data from this asset for training, evaluation, or inference.+--+-- 'roleArn', 'createModel_roleArn' - The Amazon Resource Name (ARN) of a role with permission to access the+-- data source being used to create the ML model.+--+-- 'serverSideKmsKeyId', 'createModel_serverSideKmsKeyId' - Provides the identifier of the KMS key used to encrypt model data by+-- Amazon Lookout for Equipment.+--+-- 'tags', 'createModel_tags' - Any tags associated with the ML model being created.+--+-- 'trainingDataEndTime', 'createModel_trainingDataEndTime' - Indicates the time reference in the dataset that should be used to end+-- the subset of training data for the ML model.+--+-- 'trainingDataStartTime', 'createModel_trainingDataStartTime' - Indicates the time reference in the dataset that should be used to begin+-- the subset of training data for the ML model.+--+-- 'modelName', 'createModel_modelName' - The name for the ML model to be created.+--+-- 'datasetName', 'createModel_datasetName' - The name of the dataset for the ML model being created.+--+-- 'clientToken', 'createModel_clientToken' - A unique identifier for the request. If you do not set the client+-- request token, Amazon Lookout for Equipment generates one.+newCreateModel ::+  -- | 'modelName'+  Prelude.Text ->+  -- | 'datasetName'+  Prelude.Text ->+  -- | 'clientToken'+  Prelude.Text ->+  CreateModel+newCreateModel+  pModelName_+  pDatasetName_+  pClientToken_ =+    CreateModel'+      { dataPreProcessingConfiguration =+          Prelude.Nothing,+        datasetSchema = Prelude.Nothing,+        evaluationDataEndTime = Prelude.Nothing,+        evaluationDataStartTime = Prelude.Nothing,+        labelsInputConfiguration = Prelude.Nothing,+        offCondition = Prelude.Nothing,+        roleArn = Prelude.Nothing,+        serverSideKmsKeyId = Prelude.Nothing,+        tags = Prelude.Nothing,+        trainingDataEndTime = Prelude.Nothing,+        trainingDataStartTime = Prelude.Nothing,+        modelName = pModelName_,+        datasetName = pDatasetName_,+        clientToken = pClientToken_+      }++-- | The configuration is the @TargetSamplingRate@, which is the sampling+-- rate of the data after post processing by Amazon Lookout for Equipment.+-- For example, if you provide data that has been collected at a 1 second+-- level and you want the system to resample the data at a 1 minute rate+-- before training, the @TargetSamplingRate@ is 1 minute.+--+-- When providing a value for the @TargetSamplingRate@, you must attach the+-- prefix \"PT\" to the rate you want. The value for a 1 second rate is+-- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+-- value for a 1 hour rate is /PT1H/+createModel_dataPreProcessingConfiguration :: Lens.Lens' CreateModel (Prelude.Maybe DataPreProcessingConfiguration)+createModel_dataPreProcessingConfiguration = Lens.lens (\CreateModel' {dataPreProcessingConfiguration} -> dataPreProcessingConfiguration) (\s@CreateModel' {} a -> s {dataPreProcessingConfiguration = a} :: CreateModel)++-- | The data schema for the ML model being created.+createModel_datasetSchema :: Lens.Lens' CreateModel (Prelude.Maybe DatasetSchema)+createModel_datasetSchema = Lens.lens (\CreateModel' {datasetSchema} -> datasetSchema) (\s@CreateModel' {} a -> s {datasetSchema = a} :: CreateModel)++-- | Indicates the time reference in the dataset that should be used to end+-- the subset of evaluation data for the ML model.+createModel_evaluationDataEndTime :: Lens.Lens' CreateModel (Prelude.Maybe Prelude.UTCTime)+createModel_evaluationDataEndTime = Lens.lens (\CreateModel' {evaluationDataEndTime} -> evaluationDataEndTime) (\s@CreateModel' {} a -> s {evaluationDataEndTime = a} :: CreateModel) Prelude.. Lens.mapping Data._Time++-- | Indicates the time reference in the dataset that should be used to begin+-- the subset of evaluation data for the ML model.+createModel_evaluationDataStartTime :: Lens.Lens' CreateModel (Prelude.Maybe Prelude.UTCTime)+createModel_evaluationDataStartTime = Lens.lens (\CreateModel' {evaluationDataStartTime} -> evaluationDataStartTime) (\s@CreateModel' {} a -> s {evaluationDataStartTime = a} :: CreateModel) Prelude.. Lens.mapping Data._Time++-- | The input configuration for the labels being used for the ML model+-- that\'s being created.+createModel_labelsInputConfiguration :: Lens.Lens' CreateModel (Prelude.Maybe LabelsInputConfiguration)+createModel_labelsInputConfiguration = Lens.lens (\CreateModel' {labelsInputConfiguration} -> labelsInputConfiguration) (\s@CreateModel' {} a -> s {labelsInputConfiguration = a} :: CreateModel)++-- | Indicates that the asset associated with this sensor has been shut off.+-- As long as this condition is met, Lookout for Equipment will not use+-- data from this asset for training, evaluation, or inference.+createModel_offCondition :: Lens.Lens' CreateModel (Prelude.Maybe Prelude.Text)+createModel_offCondition = Lens.lens (\CreateModel' {offCondition} -> offCondition) (\s@CreateModel' {} a -> s {offCondition = a} :: CreateModel)++-- | The Amazon Resource Name (ARN) of a role with permission to access the+-- data source being used to create the ML model.+createModel_roleArn :: Lens.Lens' CreateModel (Prelude.Maybe Prelude.Text)+createModel_roleArn = Lens.lens (\CreateModel' {roleArn} -> roleArn) (\s@CreateModel' {} a -> s {roleArn = a} :: CreateModel)++-- | Provides the identifier of the KMS key used to encrypt model data by+-- Amazon Lookout for Equipment.+createModel_serverSideKmsKeyId :: Lens.Lens' CreateModel (Prelude.Maybe Prelude.Text)+createModel_serverSideKmsKeyId = Lens.lens (\CreateModel' {serverSideKmsKeyId} -> serverSideKmsKeyId) (\s@CreateModel' {} a -> s {serverSideKmsKeyId = a} :: CreateModel)++-- | Any tags associated with the ML model being created.+createModel_tags :: Lens.Lens' CreateModel (Prelude.Maybe [Tag])+createModel_tags = Lens.lens (\CreateModel' {tags} -> tags) (\s@CreateModel' {} a -> s {tags = a} :: CreateModel) Prelude.. Lens.mapping Lens.coerced++-- | Indicates the time reference in the dataset that should be used to end+-- the subset of training data for the ML model.+createModel_trainingDataEndTime :: Lens.Lens' CreateModel (Prelude.Maybe Prelude.UTCTime)+createModel_trainingDataEndTime = Lens.lens (\CreateModel' {trainingDataEndTime} -> trainingDataEndTime) (\s@CreateModel' {} a -> s {trainingDataEndTime = a} :: CreateModel) Prelude.. Lens.mapping Data._Time++-- | Indicates the time reference in the dataset that should be used to begin+-- the subset of training data for the ML model.+createModel_trainingDataStartTime :: Lens.Lens' CreateModel (Prelude.Maybe Prelude.UTCTime)+createModel_trainingDataStartTime = Lens.lens (\CreateModel' {trainingDataStartTime} -> trainingDataStartTime) (\s@CreateModel' {} a -> s {trainingDataStartTime = a} :: CreateModel) Prelude.. Lens.mapping Data._Time++-- | The name for the ML model to be created.+createModel_modelName :: Lens.Lens' CreateModel Prelude.Text+createModel_modelName = Lens.lens (\CreateModel' {modelName} -> modelName) (\s@CreateModel' {} a -> s {modelName = a} :: CreateModel)++-- | The name of the dataset for the ML model being created.+createModel_datasetName :: Lens.Lens' CreateModel Prelude.Text+createModel_datasetName = Lens.lens (\CreateModel' {datasetName} -> datasetName) (\s@CreateModel' {} a -> s {datasetName = a} :: CreateModel)++-- | A unique identifier for the request. If you do not set the client+-- request token, Amazon Lookout for Equipment generates one.+createModel_clientToken :: Lens.Lens' CreateModel Prelude.Text+createModel_clientToken = Lens.lens (\CreateModel' {clientToken} -> clientToken) (\s@CreateModel' {} a -> s {clientToken = a} :: CreateModel)++instance Core.AWSRequest CreateModel where+  type AWSResponse CreateModel = CreateModelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateModelResponse'+            Prelude.<$> (x Data..?> "ModelArn")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateModel where+  hashWithSalt _salt CreateModel' {..} =+    _salt+      `Prelude.hashWithSalt` dataPreProcessingConfiguration+      `Prelude.hashWithSalt` datasetSchema+      `Prelude.hashWithSalt` evaluationDataEndTime+      `Prelude.hashWithSalt` evaluationDataStartTime+      `Prelude.hashWithSalt` labelsInputConfiguration+      `Prelude.hashWithSalt` offCondition+      `Prelude.hashWithSalt` roleArn+      `Prelude.hashWithSalt` serverSideKmsKeyId+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` trainingDataEndTime+      `Prelude.hashWithSalt` trainingDataStartTime+      `Prelude.hashWithSalt` modelName+      `Prelude.hashWithSalt` datasetName+      `Prelude.hashWithSalt` clientToken++instance Prelude.NFData CreateModel where+  rnf CreateModel' {..} =+    Prelude.rnf dataPreProcessingConfiguration+      `Prelude.seq` Prelude.rnf datasetSchema+      `Prelude.seq` Prelude.rnf evaluationDataEndTime+      `Prelude.seq` Prelude.rnf evaluationDataStartTime+      `Prelude.seq` Prelude.rnf labelsInputConfiguration+      `Prelude.seq` Prelude.rnf offCondition+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf serverSideKmsKeyId+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf trainingDataEndTime+      `Prelude.seq` Prelude.rnf trainingDataStartTime+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf clientToken++instance Data.ToHeaders CreateModel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.CreateModel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateModel where+  toJSON CreateModel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DataPreProcessingConfiguration" Data..=)+              Prelude.<$> dataPreProcessingConfiguration,+            ("DatasetSchema" Data..=) Prelude.<$> datasetSchema,+            ("EvaluationDataEndTime" Data..=)+              Prelude.<$> evaluationDataEndTime,+            ("EvaluationDataStartTime" Data..=)+              Prelude.<$> evaluationDataStartTime,+            ("LabelsInputConfiguration" Data..=)+              Prelude.<$> labelsInputConfiguration,+            ("OffCondition" Data..=) Prelude.<$> offCondition,+            ("RoleArn" Data..=) Prelude.<$> roleArn,+            ("ServerSideKmsKeyId" Data..=)+              Prelude.<$> serverSideKmsKeyId,+            ("Tags" Data..=) Prelude.<$> tags,+            ("TrainingDataEndTime" Data..=)+              Prelude.<$> trainingDataEndTime,+            ("TrainingDataStartTime" Data..=)+              Prelude.<$> trainingDataStartTime,+            Prelude.Just ("ModelName" Data..= modelName),+            Prelude.Just ("DatasetName" Data..= datasetName),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath CreateModel where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateModel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateModelResponse' smart constructor.+data CreateModelResponse = CreateModelResponse'+  { -- | The Amazon Resource Name (ARN) of the model being created.+    modelArn :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the @CreateModel@ operation.+    status :: Prelude.Maybe ModelStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateModelResponse' 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:+--+-- 'modelArn', 'createModelResponse_modelArn' - The Amazon Resource Name (ARN) of the model being created.+--+-- 'status', 'createModelResponse_status' - Indicates the status of the @CreateModel@ operation.+--+-- 'httpStatus', 'createModelResponse_httpStatus' - The response's http status code.+newCreateModelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateModelResponse+newCreateModelResponse pHttpStatus_ =+  CreateModelResponse'+    { modelArn = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon Resource Name (ARN) of the model being created.+createModelResponse_modelArn :: Lens.Lens' CreateModelResponse (Prelude.Maybe Prelude.Text)+createModelResponse_modelArn = Lens.lens (\CreateModelResponse' {modelArn} -> modelArn) (\s@CreateModelResponse' {} a -> s {modelArn = a} :: CreateModelResponse)++-- | Indicates the status of the @CreateModel@ operation.+createModelResponse_status :: Lens.Lens' CreateModelResponse (Prelude.Maybe ModelStatus)+createModelResponse_status = Lens.lens (\CreateModelResponse' {status} -> status) (\s@CreateModelResponse' {} a -> s {status = a} :: CreateModelResponse)++-- | The response's http status code.+createModelResponse_httpStatus :: Lens.Lens' CreateModelResponse Prelude.Int+createModelResponse_httpStatus = Lens.lens (\CreateModelResponse' {httpStatus} -> httpStatus) (\s@CreateModelResponse' {} a -> s {httpStatus = a} :: CreateModelResponse)++instance Prelude.NFData CreateModelResponse where+  rnf CreateModelResponse' {..} =+    Prelude.rnf modelArn+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/DeleteDataset.hs view
@@ -0,0 +1,137 @@+{-# 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.LookoutEquipment.DeleteDataset+-- 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 dataset and associated artifacts. The operation will check to+-- see if any inference scheduler or data ingestion job is currently using+-- the dataset, and if there isn\'t, the dataset, its metadata, and any+-- associated data stored in S3 will be deleted. This does not affect any+-- models that used this dataset for training and evaluation, but does+-- prevent it from being used in the future.+module Amazonka.LookoutEquipment.DeleteDataset+  ( -- * Creating a Request+    DeleteDataset (..),+    newDeleteDataset,++    -- * Request Lenses+    deleteDataset_datasetName,++    -- * Destructuring the Response+    DeleteDatasetResponse (..),+    newDeleteDatasetResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteDataset' smart constructor.+data DeleteDataset = DeleteDataset'+  { -- | The name of the dataset to be deleted.+    datasetName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDataset' 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:+--+-- 'datasetName', 'deleteDataset_datasetName' - The name of the dataset to be deleted.+newDeleteDataset ::+  -- | 'datasetName'+  Prelude.Text ->+  DeleteDataset+newDeleteDataset pDatasetName_ =+  DeleteDataset' {datasetName = pDatasetName_}++-- | The name of the dataset to be deleted.+deleteDataset_datasetName :: Lens.Lens' DeleteDataset Prelude.Text+deleteDataset_datasetName = Lens.lens (\DeleteDataset' {datasetName} -> datasetName) (\s@DeleteDataset' {} a -> s {datasetName = a} :: DeleteDataset)++instance Core.AWSRequest DeleteDataset where+  type+    AWSResponse DeleteDataset =+      DeleteDatasetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveNull DeleteDatasetResponse'++instance Prelude.Hashable DeleteDataset where+  hashWithSalt _salt DeleteDataset' {..} =+    _salt `Prelude.hashWithSalt` datasetName++instance Prelude.NFData DeleteDataset where+  rnf DeleteDataset' {..} = Prelude.rnf datasetName++instance Data.ToHeaders DeleteDataset where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DeleteDataset" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteDataset where+  toJSON DeleteDataset' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("DatasetName" Data..= datasetName)]+      )++instance Data.ToPath DeleteDataset where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteDataset where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteDatasetResponse' smart constructor.+data DeleteDatasetResponse = DeleteDatasetResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDatasetResponse' 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.+newDeleteDatasetResponse ::+  DeleteDatasetResponse+newDeleteDatasetResponse = DeleteDatasetResponse'++instance Prelude.NFData DeleteDatasetResponse where+  rnf _ = ()
+ gen/Amazonka/LookoutEquipment/DeleteInferenceScheduler.hs view
@@ -0,0 +1,146 @@+{-# 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.LookoutEquipment.DeleteInferenceScheduler+-- 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 an inference scheduler that has been set up. Already processed+-- output results are not affected.+module Amazonka.LookoutEquipment.DeleteInferenceScheduler+  ( -- * Creating a Request+    DeleteInferenceScheduler (..),+    newDeleteInferenceScheduler,++    -- * Request Lenses+    deleteInferenceScheduler_inferenceSchedulerName,++    -- * Destructuring the Response+    DeleteInferenceSchedulerResponse (..),+    newDeleteInferenceSchedulerResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteInferenceScheduler' smart constructor.+data DeleteInferenceScheduler = DeleteInferenceScheduler'+  { -- | The name of the inference scheduler to be deleted.+    inferenceSchedulerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteInferenceScheduler' 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:+--+-- 'inferenceSchedulerName', 'deleteInferenceScheduler_inferenceSchedulerName' - The name of the inference scheduler to be deleted.+newDeleteInferenceScheduler ::+  -- | 'inferenceSchedulerName'+  Prelude.Text ->+  DeleteInferenceScheduler+newDeleteInferenceScheduler pInferenceSchedulerName_ =+  DeleteInferenceScheduler'+    { inferenceSchedulerName =+        pInferenceSchedulerName_+    }++-- | The name of the inference scheduler to be deleted.+deleteInferenceScheduler_inferenceSchedulerName :: Lens.Lens' DeleteInferenceScheduler Prelude.Text+deleteInferenceScheduler_inferenceSchedulerName = Lens.lens (\DeleteInferenceScheduler' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@DeleteInferenceScheduler' {} a -> s {inferenceSchedulerName = a} :: DeleteInferenceScheduler)++instance Core.AWSRequest DeleteInferenceScheduler where+  type+    AWSResponse DeleteInferenceScheduler =+      DeleteInferenceSchedulerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveNull+      DeleteInferenceSchedulerResponse'++instance Prelude.Hashable DeleteInferenceScheduler where+  hashWithSalt _salt DeleteInferenceScheduler' {..} =+    _salt `Prelude.hashWithSalt` inferenceSchedulerName++instance Prelude.NFData DeleteInferenceScheduler where+  rnf DeleteInferenceScheduler' {..} =+    Prelude.rnf inferenceSchedulerName++instance Data.ToHeaders DeleteInferenceScheduler where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DeleteInferenceScheduler" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteInferenceScheduler where+  toJSON DeleteInferenceScheduler' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "InferenceSchedulerName"+                  Data..= inferenceSchedulerName+              )+          ]+      )++instance Data.ToPath DeleteInferenceScheduler where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteInferenceScheduler where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteInferenceSchedulerResponse' smart constructor.+data DeleteInferenceSchedulerResponse = DeleteInferenceSchedulerResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteInferenceSchedulerResponse' 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.+newDeleteInferenceSchedulerResponse ::+  DeleteInferenceSchedulerResponse+newDeleteInferenceSchedulerResponse =+  DeleteInferenceSchedulerResponse'++instance+  Prelude.NFData+    DeleteInferenceSchedulerResponse+  where+  rnf _ = ()
+ gen/Amazonka/LookoutEquipment/DeleteLabel.hs view
@@ -0,0 +1,156 @@+{-# 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.LookoutEquipment.DeleteLabel+-- 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 label.+module Amazonka.LookoutEquipment.DeleteLabel+  ( -- * Creating a Request+    DeleteLabel (..),+    newDeleteLabel,++    -- * Request Lenses+    deleteLabel_labelGroupName,+    deleteLabel_labelId,++    -- * Destructuring the Response+    DeleteLabelResponse (..),+    newDeleteLabelResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteLabel' smart constructor.+data DeleteLabel = DeleteLabel'+  { -- | The name of the label group that contains the label that you want to+    -- delete. Data in this field will be retained for service usage. Follow+    -- best practices for the security of your data.+    labelGroupName :: Prelude.Text,+    -- | The ID of the label that you want to delete.+    labelId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLabel' 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:+--+-- 'labelGroupName', 'deleteLabel_labelGroupName' - The name of the label group that contains the label that you want to+-- delete. Data in this field will be retained for service usage. Follow+-- best practices for the security of your data.+--+-- 'labelId', 'deleteLabel_labelId' - The ID of the label that you want to delete.+newDeleteLabel ::+  -- | 'labelGroupName'+  Prelude.Text ->+  -- | 'labelId'+  Prelude.Text ->+  DeleteLabel+newDeleteLabel pLabelGroupName_ pLabelId_ =+  DeleteLabel'+    { labelGroupName = pLabelGroupName_,+      labelId = pLabelId_+    }++-- | The name of the label group that contains the label that you want to+-- delete. Data in this field will be retained for service usage. Follow+-- best practices for the security of your data.+deleteLabel_labelGroupName :: Lens.Lens' DeleteLabel Prelude.Text+deleteLabel_labelGroupName = Lens.lens (\DeleteLabel' {labelGroupName} -> labelGroupName) (\s@DeleteLabel' {} a -> s {labelGroupName = a} :: DeleteLabel)++-- | The ID of the label that you want to delete.+deleteLabel_labelId :: Lens.Lens' DeleteLabel Prelude.Text+deleteLabel_labelId = Lens.lens (\DeleteLabel' {labelId} -> labelId) (\s@DeleteLabel' {} a -> s {labelId = a} :: DeleteLabel)++instance Core.AWSRequest DeleteLabel where+  type AWSResponse DeleteLabel = DeleteLabelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response = Response.receiveNull DeleteLabelResponse'++instance Prelude.Hashable DeleteLabel where+  hashWithSalt _salt DeleteLabel' {..} =+    _salt+      `Prelude.hashWithSalt` labelGroupName+      `Prelude.hashWithSalt` labelId++instance Prelude.NFData DeleteLabel where+  rnf DeleteLabel' {..} =+    Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf labelId++instance Data.ToHeaders DeleteLabel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DeleteLabel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteLabel where+  toJSON DeleteLabel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("LabelGroupName" Data..= labelGroupName),+            Prelude.Just ("LabelId" Data..= labelId)+          ]+      )++instance Data.ToPath DeleteLabel where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteLabel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteLabelResponse' smart constructor.+data DeleteLabelResponse = DeleteLabelResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLabelResponse' 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.+newDeleteLabelResponse ::+  DeleteLabelResponse+newDeleteLabelResponse = DeleteLabelResponse'++instance Prelude.NFData DeleteLabelResponse where+  rnf _ = ()
+ gen/Amazonka/LookoutEquipment/DeleteLabelGroup.hs view
@@ -0,0 +1,145 @@+{-# 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.LookoutEquipment.DeleteLabelGroup+-- 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 group of labels.+module Amazonka.LookoutEquipment.DeleteLabelGroup+  ( -- * Creating a Request+    DeleteLabelGroup (..),+    newDeleteLabelGroup,++    -- * Request Lenses+    deleteLabelGroup_labelGroupName,++    -- * Destructuring the Response+    DeleteLabelGroupResponse (..),+    newDeleteLabelGroupResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteLabelGroup' smart constructor.+data DeleteLabelGroup = DeleteLabelGroup'+  { -- | The name of the label group that you want to delete. Data in this field+    -- will be retained for service usage. Follow best practices for the+    -- security of your data.+    labelGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLabelGroup' 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:+--+-- 'labelGroupName', 'deleteLabelGroup_labelGroupName' - The name of the label group that you want to delete. Data in this field+-- will be retained for service usage. Follow best practices for the+-- security of your data.+newDeleteLabelGroup ::+  -- | 'labelGroupName'+  Prelude.Text ->+  DeleteLabelGroup+newDeleteLabelGroup pLabelGroupName_ =+  DeleteLabelGroup'+    { labelGroupName =+        pLabelGroupName_+    }++-- | The name of the label group that you want to delete. Data in this field+-- will be retained for service usage. Follow best practices for the+-- security of your data.+deleteLabelGroup_labelGroupName :: Lens.Lens' DeleteLabelGroup Prelude.Text+deleteLabelGroup_labelGroupName = Lens.lens (\DeleteLabelGroup' {labelGroupName} -> labelGroupName) (\s@DeleteLabelGroup' {} a -> s {labelGroupName = a} :: DeleteLabelGroup)++instance Core.AWSRequest DeleteLabelGroup where+  type+    AWSResponse DeleteLabelGroup =+      DeleteLabelGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveNull DeleteLabelGroupResponse'++instance Prelude.Hashable DeleteLabelGroup where+  hashWithSalt _salt DeleteLabelGroup' {..} =+    _salt `Prelude.hashWithSalt` labelGroupName++instance Prelude.NFData DeleteLabelGroup where+  rnf DeleteLabelGroup' {..} =+    Prelude.rnf labelGroupName++instance Data.ToHeaders DeleteLabelGroup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DeleteLabelGroup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteLabelGroup where+  toJSON DeleteLabelGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("LabelGroupName" Data..= labelGroupName)+          ]+      )++instance Data.ToPath DeleteLabelGroup where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteLabelGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteLabelGroupResponse' smart constructor.+data DeleteLabelGroupResponse = DeleteLabelGroupResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLabelGroupResponse' 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.+newDeleteLabelGroupResponse ::+  DeleteLabelGroupResponse+newDeleteLabelGroupResponse =+  DeleteLabelGroupResponse'++instance Prelude.NFData DeleteLabelGroupResponse where+  rnf _ = ()
+ gen/Amazonka/LookoutEquipment/DeleteModel.hs view
@@ -0,0 +1,131 @@+{-# 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.LookoutEquipment.DeleteModel+-- 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 an ML model currently available for Amazon Lookout for+-- Equipment. This will prevent it from being used with an inference+-- scheduler, even one that is already set up.+module Amazonka.LookoutEquipment.DeleteModel+  ( -- * Creating a Request+    DeleteModel (..),+    newDeleteModel,++    -- * Request Lenses+    deleteModel_modelName,++    -- * Destructuring the Response+    DeleteModelResponse (..),+    newDeleteModelResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteModel' smart constructor.+data DeleteModel = DeleteModel'+  { -- | The name of the ML model to be deleted.+    modelName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteModel' 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:+--+-- 'modelName', 'deleteModel_modelName' - The name of the ML model to be deleted.+newDeleteModel ::+  -- | 'modelName'+  Prelude.Text ->+  DeleteModel+newDeleteModel pModelName_ =+  DeleteModel' {modelName = pModelName_}++-- | The name of the ML model to be deleted.+deleteModel_modelName :: Lens.Lens' DeleteModel Prelude.Text+deleteModel_modelName = Lens.lens (\DeleteModel' {modelName} -> modelName) (\s@DeleteModel' {} a -> s {modelName = a} :: DeleteModel)++instance Core.AWSRequest DeleteModel where+  type AWSResponse DeleteModel = DeleteModelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response = Response.receiveNull DeleteModelResponse'++instance Prelude.Hashable DeleteModel where+  hashWithSalt _salt DeleteModel' {..} =+    _salt `Prelude.hashWithSalt` modelName++instance Prelude.NFData DeleteModel where+  rnf DeleteModel' {..} = Prelude.rnf modelName++instance Data.ToHeaders DeleteModel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DeleteModel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteModel where+  toJSON DeleteModel' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ModelName" Data..= modelName)]+      )++instance Data.ToPath DeleteModel where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteModel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteModelResponse' smart constructor.+data DeleteModelResponse = DeleteModelResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteModelResponse' 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.+newDeleteModelResponse ::+  DeleteModelResponse+newDeleteModelResponse = DeleteModelResponse'++instance Prelude.NFData DeleteModelResponse where+  rnf _ = ()
+ gen/Amazonka/LookoutEquipment/DescribeDataIngestionJob.hs view
@@ -0,0 +1,343 @@+{-# 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.LookoutEquipment.DescribeDataIngestionJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides information on a specific data ingestion job such as creation+-- time, dataset ARN, and status.+module Amazonka.LookoutEquipment.DescribeDataIngestionJob+  ( -- * Creating a Request+    DescribeDataIngestionJob (..),+    newDescribeDataIngestionJob,++    -- * Request Lenses+    describeDataIngestionJob_jobId,++    -- * Destructuring the Response+    DescribeDataIngestionJobResponse (..),+    newDescribeDataIngestionJobResponse,++    -- * Response Lenses+    describeDataIngestionJobResponse_createdAt,+    describeDataIngestionJobResponse_dataEndTime,+    describeDataIngestionJobResponse_dataQualitySummary,+    describeDataIngestionJobResponse_dataStartTime,+    describeDataIngestionJobResponse_datasetArn,+    describeDataIngestionJobResponse_failedReason,+    describeDataIngestionJobResponse_ingestedDataSize,+    describeDataIngestionJobResponse_ingestedFilesSummary,+    describeDataIngestionJobResponse_ingestionInputConfiguration,+    describeDataIngestionJobResponse_jobId,+    describeDataIngestionJobResponse_roleArn,+    describeDataIngestionJobResponse_status,+    describeDataIngestionJobResponse_statusDetail,+    describeDataIngestionJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeDataIngestionJob' smart constructor.+data DescribeDataIngestionJob = DescribeDataIngestionJob'+  { -- | The job ID of the data ingestion job.+    jobId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDataIngestionJob' 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:+--+-- 'jobId', 'describeDataIngestionJob_jobId' - The job ID of the data ingestion job.+newDescribeDataIngestionJob ::+  -- | 'jobId'+  Prelude.Text ->+  DescribeDataIngestionJob+newDescribeDataIngestionJob pJobId_ =+  DescribeDataIngestionJob' {jobId = pJobId_}++-- | The job ID of the data ingestion job.+describeDataIngestionJob_jobId :: Lens.Lens' DescribeDataIngestionJob Prelude.Text+describeDataIngestionJob_jobId = Lens.lens (\DescribeDataIngestionJob' {jobId} -> jobId) (\s@DescribeDataIngestionJob' {} a -> s {jobId = a} :: DescribeDataIngestionJob)++instance Core.AWSRequest DescribeDataIngestionJob where+  type+    AWSResponse DescribeDataIngestionJob =+      DescribeDataIngestionJobResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeDataIngestionJobResponse'+            Prelude.<$> (x Data..?> "CreatedAt")+            Prelude.<*> (x Data..?> "DataEndTime")+            Prelude.<*> (x Data..?> "DataQualitySummary")+            Prelude.<*> (x Data..?> "DataStartTime")+            Prelude.<*> (x Data..?> "DatasetArn")+            Prelude.<*> (x Data..?> "FailedReason")+            Prelude.<*> (x Data..?> "IngestedDataSize")+            Prelude.<*> (x Data..?> "IngestedFilesSummary")+            Prelude.<*> (x Data..?> "IngestionInputConfiguration")+            Prelude.<*> (x Data..?> "JobId")+            Prelude.<*> (x Data..?> "RoleArn")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (x Data..?> "StatusDetail")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeDataIngestionJob where+  hashWithSalt _salt DescribeDataIngestionJob' {..} =+    _salt `Prelude.hashWithSalt` jobId++instance Prelude.NFData DescribeDataIngestionJob where+  rnf DescribeDataIngestionJob' {..} = Prelude.rnf jobId++instance Data.ToHeaders DescribeDataIngestionJob where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DescribeDataIngestionJob" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeDataIngestionJob where+  toJSON DescribeDataIngestionJob' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("JobId" Data..= jobId)]+      )++instance Data.ToPath DescribeDataIngestionJob where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeDataIngestionJob where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeDataIngestionJobResponse' smart constructor.+data DescribeDataIngestionJobResponse = DescribeDataIngestionJobResponse'+  { -- | The time at which the data ingestion job was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | Indicates the latest timestamp corresponding to data that was+    -- successfully ingested during this specific ingestion job.+    dataEndTime :: Prelude.Maybe Data.POSIX,+    -- | Gives statistics about a completed ingestion job. These statistics+    -- primarily relate to quantifying incorrect data such as+    -- MissingCompleteSensorData, MissingSensorData, UnsupportedDateFormats,+    -- InsufficientSensorData, and DuplicateTimeStamps.+    dataQualitySummary :: Prelude.Maybe DataQualitySummary,+    -- | Indicates the earliest timestamp corresponding to data that was+    -- successfully ingested during this specific ingestion job.+    dataStartTime :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the dataset being used in the data+    -- ingestion job.+    datasetArn :: Prelude.Maybe Prelude.Text,+    -- | Specifies the reason for failure when a data ingestion job has failed.+    failedReason :: Prelude.Maybe Prelude.Text,+    -- | Indicates the size of the ingested dataset.+    ingestedDataSize :: Prelude.Maybe Prelude.Natural,+    ingestedFilesSummary :: Prelude.Maybe IngestedFilesSummary,+    -- | Specifies the S3 location configuration for the data input for the data+    -- ingestion job.+    ingestionInputConfiguration :: Prelude.Maybe IngestionInputConfiguration,+    -- | Indicates the job ID of the data ingestion job.+    jobId :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of an IAM role with permission to access+    -- the data source being ingested.+    roleArn :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the @DataIngestionJob@ operation.+    status :: Prelude.Maybe IngestionJobStatus,+    -- | Provides details about status of the ingestion job that is currently in+    -- progress.+    statusDetail :: 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 'DescribeDataIngestionJobResponse' 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', 'describeDataIngestionJobResponse_createdAt' - The time at which the data ingestion job was created.+--+-- 'dataEndTime', 'describeDataIngestionJobResponse_dataEndTime' - Indicates the latest timestamp corresponding to data that was+-- successfully ingested during this specific ingestion job.+--+-- 'dataQualitySummary', 'describeDataIngestionJobResponse_dataQualitySummary' - Gives statistics about a completed ingestion job. These statistics+-- primarily relate to quantifying incorrect data such as+-- MissingCompleteSensorData, MissingSensorData, UnsupportedDateFormats,+-- InsufficientSensorData, and DuplicateTimeStamps.+--+-- 'dataStartTime', 'describeDataIngestionJobResponse_dataStartTime' - Indicates the earliest timestamp corresponding to data that was+-- successfully ingested during this specific ingestion job.+--+-- 'datasetArn', 'describeDataIngestionJobResponse_datasetArn' - The Amazon Resource Name (ARN) of the dataset being used in the data+-- ingestion job.+--+-- 'failedReason', 'describeDataIngestionJobResponse_failedReason' - Specifies the reason for failure when a data ingestion job has failed.+--+-- 'ingestedDataSize', 'describeDataIngestionJobResponse_ingestedDataSize' - Indicates the size of the ingested dataset.+--+-- 'ingestedFilesSummary', 'describeDataIngestionJobResponse_ingestedFilesSummary' - Undocumented member.+--+-- 'ingestionInputConfiguration', 'describeDataIngestionJobResponse_ingestionInputConfiguration' - Specifies the S3 location configuration for the data input for the data+-- ingestion job.+--+-- 'jobId', 'describeDataIngestionJobResponse_jobId' - Indicates the job ID of the data ingestion job.+--+-- 'roleArn', 'describeDataIngestionJobResponse_roleArn' - The Amazon Resource Name (ARN) of an IAM role with permission to access+-- the data source being ingested.+--+-- 'status', 'describeDataIngestionJobResponse_status' - Indicates the status of the @DataIngestionJob@ operation.+--+-- 'statusDetail', 'describeDataIngestionJobResponse_statusDetail' - Provides details about status of the ingestion job that is currently in+-- progress.+--+-- 'httpStatus', 'describeDataIngestionJobResponse_httpStatus' - The response's http status code.+newDescribeDataIngestionJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeDataIngestionJobResponse+newDescribeDataIngestionJobResponse pHttpStatus_ =+  DescribeDataIngestionJobResponse'+    { createdAt =+        Prelude.Nothing,+      dataEndTime = Prelude.Nothing,+      dataQualitySummary = Prelude.Nothing,+      dataStartTime = Prelude.Nothing,+      datasetArn = Prelude.Nothing,+      failedReason = Prelude.Nothing,+      ingestedDataSize = Prelude.Nothing,+      ingestedFilesSummary = Prelude.Nothing,+      ingestionInputConfiguration =+        Prelude.Nothing,+      jobId = Prelude.Nothing,+      roleArn = Prelude.Nothing,+      status = Prelude.Nothing,+      statusDetail = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The time at which the data ingestion job was created.+describeDataIngestionJobResponse_createdAt :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.UTCTime)+describeDataIngestionJobResponse_createdAt = Lens.lens (\DescribeDataIngestionJobResponse' {createdAt} -> createdAt) (\s@DescribeDataIngestionJobResponse' {} a -> s {createdAt = a} :: DescribeDataIngestionJobResponse) Prelude.. Lens.mapping Data._Time++-- | Indicates the latest timestamp corresponding to data that was+-- successfully ingested during this specific ingestion job.+describeDataIngestionJobResponse_dataEndTime :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.UTCTime)+describeDataIngestionJobResponse_dataEndTime = Lens.lens (\DescribeDataIngestionJobResponse' {dataEndTime} -> dataEndTime) (\s@DescribeDataIngestionJobResponse' {} a -> s {dataEndTime = a} :: DescribeDataIngestionJobResponse) Prelude.. Lens.mapping Data._Time++-- | Gives statistics about a completed ingestion job. These statistics+-- primarily relate to quantifying incorrect data such as+-- MissingCompleteSensorData, MissingSensorData, UnsupportedDateFormats,+-- InsufficientSensorData, and DuplicateTimeStamps.+describeDataIngestionJobResponse_dataQualitySummary :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe DataQualitySummary)+describeDataIngestionJobResponse_dataQualitySummary = Lens.lens (\DescribeDataIngestionJobResponse' {dataQualitySummary} -> dataQualitySummary) (\s@DescribeDataIngestionJobResponse' {} a -> s {dataQualitySummary = a} :: DescribeDataIngestionJobResponse)++-- | Indicates the earliest timestamp corresponding to data that was+-- successfully ingested during this specific ingestion job.+describeDataIngestionJobResponse_dataStartTime :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.UTCTime)+describeDataIngestionJobResponse_dataStartTime = Lens.lens (\DescribeDataIngestionJobResponse' {dataStartTime} -> dataStartTime) (\s@DescribeDataIngestionJobResponse' {} a -> s {dataStartTime = a} :: DescribeDataIngestionJobResponse) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the dataset being used in the data+-- ingestion job.+describeDataIngestionJobResponse_datasetArn :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.Text)+describeDataIngestionJobResponse_datasetArn = Lens.lens (\DescribeDataIngestionJobResponse' {datasetArn} -> datasetArn) (\s@DescribeDataIngestionJobResponse' {} a -> s {datasetArn = a} :: DescribeDataIngestionJobResponse)++-- | Specifies the reason for failure when a data ingestion job has failed.+describeDataIngestionJobResponse_failedReason :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.Text)+describeDataIngestionJobResponse_failedReason = Lens.lens (\DescribeDataIngestionJobResponse' {failedReason} -> failedReason) (\s@DescribeDataIngestionJobResponse' {} a -> s {failedReason = a} :: DescribeDataIngestionJobResponse)++-- | Indicates the size of the ingested dataset.+describeDataIngestionJobResponse_ingestedDataSize :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.Natural)+describeDataIngestionJobResponse_ingestedDataSize = Lens.lens (\DescribeDataIngestionJobResponse' {ingestedDataSize} -> ingestedDataSize) (\s@DescribeDataIngestionJobResponse' {} a -> s {ingestedDataSize = a} :: DescribeDataIngestionJobResponse)++-- | Undocumented member.+describeDataIngestionJobResponse_ingestedFilesSummary :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe IngestedFilesSummary)+describeDataIngestionJobResponse_ingestedFilesSummary = Lens.lens (\DescribeDataIngestionJobResponse' {ingestedFilesSummary} -> ingestedFilesSummary) (\s@DescribeDataIngestionJobResponse' {} a -> s {ingestedFilesSummary = a} :: DescribeDataIngestionJobResponse)++-- | Specifies the S3 location configuration for the data input for the data+-- ingestion job.+describeDataIngestionJobResponse_ingestionInputConfiguration :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe IngestionInputConfiguration)+describeDataIngestionJobResponse_ingestionInputConfiguration = Lens.lens (\DescribeDataIngestionJobResponse' {ingestionInputConfiguration} -> ingestionInputConfiguration) (\s@DescribeDataIngestionJobResponse' {} a -> s {ingestionInputConfiguration = a} :: DescribeDataIngestionJobResponse)++-- | Indicates the job ID of the data ingestion job.+describeDataIngestionJobResponse_jobId :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.Text)+describeDataIngestionJobResponse_jobId = Lens.lens (\DescribeDataIngestionJobResponse' {jobId} -> jobId) (\s@DescribeDataIngestionJobResponse' {} a -> s {jobId = a} :: DescribeDataIngestionJobResponse)++-- | The Amazon Resource Name (ARN) of an IAM role with permission to access+-- the data source being ingested.+describeDataIngestionJobResponse_roleArn :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.Text)+describeDataIngestionJobResponse_roleArn = Lens.lens (\DescribeDataIngestionJobResponse' {roleArn} -> roleArn) (\s@DescribeDataIngestionJobResponse' {} a -> s {roleArn = a} :: DescribeDataIngestionJobResponse)++-- | Indicates the status of the @DataIngestionJob@ operation.+describeDataIngestionJobResponse_status :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe IngestionJobStatus)+describeDataIngestionJobResponse_status = Lens.lens (\DescribeDataIngestionJobResponse' {status} -> status) (\s@DescribeDataIngestionJobResponse' {} a -> s {status = a} :: DescribeDataIngestionJobResponse)++-- | Provides details about status of the ingestion job that is currently in+-- progress.+describeDataIngestionJobResponse_statusDetail :: Lens.Lens' DescribeDataIngestionJobResponse (Prelude.Maybe Prelude.Text)+describeDataIngestionJobResponse_statusDetail = Lens.lens (\DescribeDataIngestionJobResponse' {statusDetail} -> statusDetail) (\s@DescribeDataIngestionJobResponse' {} a -> s {statusDetail = a} :: DescribeDataIngestionJobResponse)++-- | The response's http status code.+describeDataIngestionJobResponse_httpStatus :: Lens.Lens' DescribeDataIngestionJobResponse Prelude.Int+describeDataIngestionJobResponse_httpStatus = Lens.lens (\DescribeDataIngestionJobResponse' {httpStatus} -> httpStatus) (\s@DescribeDataIngestionJobResponse' {} a -> s {httpStatus = a} :: DescribeDataIngestionJobResponse)++instance+  Prelude.NFData+    DescribeDataIngestionJobResponse+  where+  rnf DescribeDataIngestionJobResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf dataEndTime+      `Prelude.seq` Prelude.rnf dataQualitySummary+      `Prelude.seq` Prelude.rnf dataStartTime+      `Prelude.seq` Prelude.rnf datasetArn+      `Prelude.seq` Prelude.rnf failedReason+      `Prelude.seq` Prelude.rnf ingestedDataSize+      `Prelude.seq` Prelude.rnf ingestedFilesSummary+      `Prelude.seq` Prelude.rnf ingestionInputConfiguration+      `Prelude.seq` Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusDetail+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/DescribeDataset.hs view
@@ -0,0 +1,352 @@+{-# 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.LookoutEquipment.DescribeDataset+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a JSON description of the data in each time series dataset,+-- including names, column names, and data types.+module Amazonka.LookoutEquipment.DescribeDataset+  ( -- * Creating a Request+    DescribeDataset (..),+    newDescribeDataset,++    -- * Request Lenses+    describeDataset_datasetName,++    -- * Destructuring the Response+    DescribeDatasetResponse (..),+    newDescribeDatasetResponse,++    -- * Response Lenses+    describeDatasetResponse_createdAt,+    describeDatasetResponse_dataEndTime,+    describeDatasetResponse_dataQualitySummary,+    describeDatasetResponse_dataStartTime,+    describeDatasetResponse_datasetArn,+    describeDatasetResponse_datasetName,+    describeDatasetResponse_ingestedFilesSummary,+    describeDatasetResponse_ingestionInputConfiguration,+    describeDatasetResponse_lastUpdatedAt,+    describeDatasetResponse_roleArn,+    describeDatasetResponse_schema,+    describeDatasetResponse_serverSideKmsKeyId,+    describeDatasetResponse_status,+    describeDatasetResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeDataset' smart constructor.+data DescribeDataset = DescribeDataset'+  { -- | The name of the dataset to be described.+    datasetName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDataset' 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:+--+-- 'datasetName', 'describeDataset_datasetName' - The name of the dataset to be described.+newDescribeDataset ::+  -- | 'datasetName'+  Prelude.Text ->+  DescribeDataset+newDescribeDataset pDatasetName_ =+  DescribeDataset' {datasetName = pDatasetName_}++-- | The name of the dataset to be described.+describeDataset_datasetName :: Lens.Lens' DescribeDataset Prelude.Text+describeDataset_datasetName = Lens.lens (\DescribeDataset' {datasetName} -> datasetName) (\s@DescribeDataset' {} a -> s {datasetName = a} :: DescribeDataset)++instance Core.AWSRequest DescribeDataset where+  type+    AWSResponse DescribeDataset =+      DescribeDatasetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeDatasetResponse'+            Prelude.<$> (x Data..?> "CreatedAt")+            Prelude.<*> (x Data..?> "DataEndTime")+            Prelude.<*> (x Data..?> "DataQualitySummary")+            Prelude.<*> (x Data..?> "DataStartTime")+            Prelude.<*> (x Data..?> "DatasetArn")+            Prelude.<*> (x Data..?> "DatasetName")+            Prelude.<*> (x Data..?> "IngestedFilesSummary")+            Prelude.<*> (x Data..?> "IngestionInputConfiguration")+            Prelude.<*> (x Data..?> "LastUpdatedAt")+            Prelude.<*> (x Data..?> "RoleArn")+            Prelude.<*> (x Data..?> "Schema")+            Prelude.<*> (x Data..?> "ServerSideKmsKeyId")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeDataset where+  hashWithSalt _salt DescribeDataset' {..} =+    _salt `Prelude.hashWithSalt` datasetName++instance Prelude.NFData DescribeDataset where+  rnf DescribeDataset' {..} = Prelude.rnf datasetName++instance Data.ToHeaders DescribeDataset where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DescribeDataset" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeDataset where+  toJSON DescribeDataset' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("DatasetName" Data..= datasetName)]+      )++instance Data.ToPath DescribeDataset where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeDataset where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeDatasetResponse' smart constructor.+data DescribeDatasetResponse = DescribeDatasetResponse'+  { -- | Specifies the time the dataset was created in Lookout for Equipment.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | Indicates the latest timestamp corresponding to data that was+    -- successfully ingested during the most recent ingestion of this+    -- particular dataset.+    dataEndTime :: Prelude.Maybe Data.POSIX,+    -- | Gives statistics associated with the given dataset for the latest+    -- successful associated ingestion job id. These statistics primarily+    -- relate to quantifying incorrect data such as MissingCompleteSensorData,+    -- MissingSensorData, UnsupportedDateFormats, InsufficientSensorData, and+    -- DuplicateTimeStamps.+    dataQualitySummary :: Prelude.Maybe DataQualitySummary,+    -- | Indicates the earliest timestamp corresponding to data that was+    -- successfully ingested during the most recent ingestion of this+    -- particular dataset.+    dataStartTime :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the dataset being described.+    datasetArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the dataset being described.+    datasetName :: Prelude.Maybe Prelude.Text,+    -- | IngestedFilesSummary associated with the given dataset for the latest+    -- successful associated ingestion job id.+    ingestedFilesSummary :: Prelude.Maybe IngestedFilesSummary,+    -- | Specifies the S3 location configuration for the data input for the data+    -- ingestion job.+    ingestionInputConfiguration :: Prelude.Maybe IngestionInputConfiguration,+    -- | Specifies the time the dataset was last updated, if it was.+    lastUpdatedAt :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the IAM role that you are using for+    -- this the data ingestion job.+    roleArn :: Prelude.Maybe Prelude.Text,+    -- | A JSON description of the data that is in each time series dataset,+    -- including names, column names, and data types.+    schema :: Prelude.Maybe Prelude.Text,+    -- | Provides the identifier of the KMS key used to encrypt dataset data by+    -- Amazon Lookout for Equipment.+    serverSideKmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the dataset.+    status :: Prelude.Maybe DatasetStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDatasetResponse' 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', 'describeDatasetResponse_createdAt' - Specifies the time the dataset was created in Lookout for Equipment.+--+-- 'dataEndTime', 'describeDatasetResponse_dataEndTime' - Indicates the latest timestamp corresponding to data that was+-- successfully ingested during the most recent ingestion of this+-- particular dataset.+--+-- 'dataQualitySummary', 'describeDatasetResponse_dataQualitySummary' - Gives statistics associated with the given dataset for the latest+-- successful associated ingestion job id. These statistics primarily+-- relate to quantifying incorrect data such as MissingCompleteSensorData,+-- MissingSensorData, UnsupportedDateFormats, InsufficientSensorData, and+-- DuplicateTimeStamps.+--+-- 'dataStartTime', 'describeDatasetResponse_dataStartTime' - Indicates the earliest timestamp corresponding to data that was+-- successfully ingested during the most recent ingestion of this+-- particular dataset.+--+-- 'datasetArn', 'describeDatasetResponse_datasetArn' - The Amazon Resource Name (ARN) of the dataset being described.+--+-- 'datasetName', 'describeDatasetResponse_datasetName' - The name of the dataset being described.+--+-- 'ingestedFilesSummary', 'describeDatasetResponse_ingestedFilesSummary' - IngestedFilesSummary associated with the given dataset for the latest+-- successful associated ingestion job id.+--+-- 'ingestionInputConfiguration', 'describeDatasetResponse_ingestionInputConfiguration' - Specifies the S3 location configuration for the data input for the data+-- ingestion job.+--+-- 'lastUpdatedAt', 'describeDatasetResponse_lastUpdatedAt' - Specifies the time the dataset was last updated, if it was.+--+-- 'roleArn', 'describeDatasetResponse_roleArn' - The Amazon Resource Name (ARN) of the IAM role that you are using for+-- this the data ingestion job.+--+-- 'schema', 'describeDatasetResponse_schema' - A JSON description of the data that is in each time series dataset,+-- including names, column names, and data types.+--+-- 'serverSideKmsKeyId', 'describeDatasetResponse_serverSideKmsKeyId' - Provides the identifier of the KMS key used to encrypt dataset data by+-- Amazon Lookout for Equipment.+--+-- 'status', 'describeDatasetResponse_status' - Indicates the status of the dataset.+--+-- 'httpStatus', 'describeDatasetResponse_httpStatus' - The response's http status code.+newDescribeDatasetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeDatasetResponse+newDescribeDatasetResponse pHttpStatus_ =+  DescribeDatasetResponse'+    { createdAt =+        Prelude.Nothing,+      dataEndTime = Prelude.Nothing,+      dataQualitySummary = Prelude.Nothing,+      dataStartTime = Prelude.Nothing,+      datasetArn = Prelude.Nothing,+      datasetName = Prelude.Nothing,+      ingestedFilesSummary = Prelude.Nothing,+      ingestionInputConfiguration = Prelude.Nothing,+      lastUpdatedAt = Prelude.Nothing,+      roleArn = Prelude.Nothing,+      schema = Prelude.Nothing,+      serverSideKmsKeyId = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Specifies the time the dataset was created in Lookout for Equipment.+describeDatasetResponse_createdAt :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.UTCTime)+describeDatasetResponse_createdAt = Lens.lens (\DescribeDatasetResponse' {createdAt} -> createdAt) (\s@DescribeDatasetResponse' {} a -> s {createdAt = a} :: DescribeDatasetResponse) Prelude.. Lens.mapping Data._Time++-- | Indicates the latest timestamp corresponding to data that was+-- successfully ingested during the most recent ingestion of this+-- particular dataset.+describeDatasetResponse_dataEndTime :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.UTCTime)+describeDatasetResponse_dataEndTime = Lens.lens (\DescribeDatasetResponse' {dataEndTime} -> dataEndTime) (\s@DescribeDatasetResponse' {} a -> s {dataEndTime = a} :: DescribeDatasetResponse) Prelude.. Lens.mapping Data._Time++-- | Gives statistics associated with the given dataset for the latest+-- successful associated ingestion job id. These statistics primarily+-- relate to quantifying incorrect data such as MissingCompleteSensorData,+-- MissingSensorData, UnsupportedDateFormats, InsufficientSensorData, and+-- DuplicateTimeStamps.+describeDatasetResponse_dataQualitySummary :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe DataQualitySummary)+describeDatasetResponse_dataQualitySummary = Lens.lens (\DescribeDatasetResponse' {dataQualitySummary} -> dataQualitySummary) (\s@DescribeDatasetResponse' {} a -> s {dataQualitySummary = a} :: DescribeDatasetResponse)++-- | Indicates the earliest timestamp corresponding to data that was+-- successfully ingested during the most recent ingestion of this+-- particular dataset.+describeDatasetResponse_dataStartTime :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.UTCTime)+describeDatasetResponse_dataStartTime = Lens.lens (\DescribeDatasetResponse' {dataStartTime} -> dataStartTime) (\s@DescribeDatasetResponse' {} a -> s {dataStartTime = a} :: DescribeDatasetResponse) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the dataset being described.+describeDatasetResponse_datasetArn :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.Text)+describeDatasetResponse_datasetArn = Lens.lens (\DescribeDatasetResponse' {datasetArn} -> datasetArn) (\s@DescribeDatasetResponse' {} a -> s {datasetArn = a} :: DescribeDatasetResponse)++-- | The name of the dataset being described.+describeDatasetResponse_datasetName :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.Text)+describeDatasetResponse_datasetName = Lens.lens (\DescribeDatasetResponse' {datasetName} -> datasetName) (\s@DescribeDatasetResponse' {} a -> s {datasetName = a} :: DescribeDatasetResponse)++-- | IngestedFilesSummary associated with the given dataset for the latest+-- successful associated ingestion job id.+describeDatasetResponse_ingestedFilesSummary :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe IngestedFilesSummary)+describeDatasetResponse_ingestedFilesSummary = Lens.lens (\DescribeDatasetResponse' {ingestedFilesSummary} -> ingestedFilesSummary) (\s@DescribeDatasetResponse' {} a -> s {ingestedFilesSummary = a} :: DescribeDatasetResponse)++-- | Specifies the S3 location configuration for the data input for the data+-- ingestion job.+describeDatasetResponse_ingestionInputConfiguration :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe IngestionInputConfiguration)+describeDatasetResponse_ingestionInputConfiguration = Lens.lens (\DescribeDatasetResponse' {ingestionInputConfiguration} -> ingestionInputConfiguration) (\s@DescribeDatasetResponse' {} a -> s {ingestionInputConfiguration = a} :: DescribeDatasetResponse)++-- | Specifies the time the dataset was last updated, if it was.+describeDatasetResponse_lastUpdatedAt :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.UTCTime)+describeDatasetResponse_lastUpdatedAt = Lens.lens (\DescribeDatasetResponse' {lastUpdatedAt} -> lastUpdatedAt) (\s@DescribeDatasetResponse' {} a -> s {lastUpdatedAt = a} :: DescribeDatasetResponse) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the IAM role that you are using for+-- this the data ingestion job.+describeDatasetResponse_roleArn :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.Text)+describeDatasetResponse_roleArn = Lens.lens (\DescribeDatasetResponse' {roleArn} -> roleArn) (\s@DescribeDatasetResponse' {} a -> s {roleArn = a} :: DescribeDatasetResponse)++-- | A JSON description of the data that is in each time series dataset,+-- including names, column names, and data types.+describeDatasetResponse_schema :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.Text)+describeDatasetResponse_schema = Lens.lens (\DescribeDatasetResponse' {schema} -> schema) (\s@DescribeDatasetResponse' {} a -> s {schema = a} :: DescribeDatasetResponse)++-- | Provides the identifier of the KMS key used to encrypt dataset data by+-- Amazon Lookout for Equipment.+describeDatasetResponse_serverSideKmsKeyId :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Prelude.Text)+describeDatasetResponse_serverSideKmsKeyId = Lens.lens (\DescribeDatasetResponse' {serverSideKmsKeyId} -> serverSideKmsKeyId) (\s@DescribeDatasetResponse' {} a -> s {serverSideKmsKeyId = a} :: DescribeDatasetResponse)++-- | Indicates the status of the dataset.+describeDatasetResponse_status :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe DatasetStatus)+describeDatasetResponse_status = Lens.lens (\DescribeDatasetResponse' {status} -> status) (\s@DescribeDatasetResponse' {} a -> s {status = a} :: DescribeDatasetResponse)++-- | The response's http status code.+describeDatasetResponse_httpStatus :: Lens.Lens' DescribeDatasetResponse Prelude.Int+describeDatasetResponse_httpStatus = Lens.lens (\DescribeDatasetResponse' {httpStatus} -> httpStatus) (\s@DescribeDatasetResponse' {} a -> s {httpStatus = a} :: DescribeDatasetResponse)++instance Prelude.NFData DescribeDatasetResponse where+  rnf DescribeDatasetResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf dataEndTime+      `Prelude.seq` Prelude.rnf dataQualitySummary+      `Prelude.seq` Prelude.rnf dataStartTime+      `Prelude.seq` Prelude.rnf datasetArn+      `Prelude.seq` Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf ingestedFilesSummary+      `Prelude.seq` Prelude.rnf ingestionInputConfiguration+      `Prelude.seq` Prelude.rnf lastUpdatedAt+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf schema+      `Prelude.seq` Prelude.rnf serverSideKmsKeyId+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/DescribeInferenceScheduler.hs view
@@ -0,0 +1,410 @@+{-# 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.LookoutEquipment.DescribeInferenceScheduler+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Specifies information about the inference scheduler being used,+-- including name, model, status, and associated metadata+module Amazonka.LookoutEquipment.DescribeInferenceScheduler+  ( -- * Creating a Request+    DescribeInferenceScheduler (..),+    newDescribeInferenceScheduler,++    -- * Request Lenses+    describeInferenceScheduler_inferenceSchedulerName,++    -- * Destructuring the Response+    DescribeInferenceSchedulerResponse (..),+    newDescribeInferenceSchedulerResponse,++    -- * Response Lenses+    describeInferenceSchedulerResponse_createdAt,+    describeInferenceSchedulerResponse_dataDelayOffsetInMinutes,+    describeInferenceSchedulerResponse_dataInputConfiguration,+    describeInferenceSchedulerResponse_dataOutputConfiguration,+    describeInferenceSchedulerResponse_dataUploadFrequency,+    describeInferenceSchedulerResponse_inferenceSchedulerArn,+    describeInferenceSchedulerResponse_inferenceSchedulerName,+    describeInferenceSchedulerResponse_latestInferenceResult,+    describeInferenceSchedulerResponse_modelArn,+    describeInferenceSchedulerResponse_modelName,+    describeInferenceSchedulerResponse_roleArn,+    describeInferenceSchedulerResponse_serverSideKmsKeyId,+    describeInferenceSchedulerResponse_status,+    describeInferenceSchedulerResponse_updatedAt,+    describeInferenceSchedulerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeInferenceScheduler' smart constructor.+data DescribeInferenceScheduler = DescribeInferenceScheduler'+  { -- | The name of the inference scheduler being described.+    inferenceSchedulerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeInferenceScheduler' 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:+--+-- 'inferenceSchedulerName', 'describeInferenceScheduler_inferenceSchedulerName' - The name of the inference scheduler being described.+newDescribeInferenceScheduler ::+  -- | 'inferenceSchedulerName'+  Prelude.Text ->+  DescribeInferenceScheduler+newDescribeInferenceScheduler+  pInferenceSchedulerName_ =+    DescribeInferenceScheduler'+      { inferenceSchedulerName =+          pInferenceSchedulerName_+      }++-- | The name of the inference scheduler being described.+describeInferenceScheduler_inferenceSchedulerName :: Lens.Lens' DescribeInferenceScheduler Prelude.Text+describeInferenceScheduler_inferenceSchedulerName = Lens.lens (\DescribeInferenceScheduler' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@DescribeInferenceScheduler' {} a -> s {inferenceSchedulerName = a} :: DescribeInferenceScheduler)++instance Core.AWSRequest DescribeInferenceScheduler where+  type+    AWSResponse DescribeInferenceScheduler =+      DescribeInferenceSchedulerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeInferenceSchedulerResponse'+            Prelude.<$> (x Data..?> "CreatedAt")+            Prelude.<*> (x Data..?> "DataDelayOffsetInMinutes")+            Prelude.<*> (x Data..?> "DataInputConfiguration")+            Prelude.<*> (x Data..?> "DataOutputConfiguration")+            Prelude.<*> (x Data..?> "DataUploadFrequency")+            Prelude.<*> (x Data..?> "InferenceSchedulerArn")+            Prelude.<*> (x Data..?> "InferenceSchedulerName")+            Prelude.<*> (x Data..?> "LatestInferenceResult")+            Prelude.<*> (x Data..?> "ModelArn")+            Prelude.<*> (x Data..?> "ModelName")+            Prelude.<*> (x Data..?> "RoleArn")+            Prelude.<*> (x Data..?> "ServerSideKmsKeyId")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (x Data..?> "UpdatedAt")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeInferenceScheduler where+  hashWithSalt _salt DescribeInferenceScheduler' {..} =+    _salt `Prelude.hashWithSalt` inferenceSchedulerName++instance Prelude.NFData DescribeInferenceScheduler where+  rnf DescribeInferenceScheduler' {..} =+    Prelude.rnf inferenceSchedulerName++instance Data.ToHeaders DescribeInferenceScheduler where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DescribeInferenceScheduler" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeInferenceScheduler where+  toJSON DescribeInferenceScheduler' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "InferenceSchedulerName"+                  Data..= inferenceSchedulerName+              )+          ]+      )++instance Data.ToPath DescribeInferenceScheduler where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeInferenceScheduler where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeInferenceSchedulerResponse' smart constructor.+data DescribeInferenceSchedulerResponse = DescribeInferenceSchedulerResponse'+  { -- | Specifies the time at which the inference scheduler was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | A period of time (in minutes) by which inference on the data is delayed+    -- after the data starts. For instance, if you select an offset delay time+    -- of five minutes, inference will not begin on the data until the first+    -- data measurement after the five minute mark. For example, if five+    -- minutes is selected, the inference scheduler will wake up at the+    -- configured frequency with the additional five minute delay time to check+    -- the customer S3 bucket. The customer can upload data at the same+    -- frequency and they don\'t need to stop and restart the scheduler when+    -- uploading new data.+    dataDelayOffsetInMinutes :: Prelude.Maybe Prelude.Natural,+    -- | Specifies configuration information for the input data for the inference+    -- scheduler, including delimiter, format, and dataset location.+    dataInputConfiguration :: Prelude.Maybe InferenceInputConfiguration,+    -- | Specifies information for the output results for the inference+    -- scheduler, including the output S3 location.+    dataOutputConfiguration :: Prelude.Maybe InferenceOutputConfiguration,+    -- | Specifies how often data is uploaded to the source S3 bucket for the+    -- input data. This value is the length of time between data uploads. For+    -- instance, if you select 5 minutes, Amazon Lookout for Equipment will+    -- upload the real-time data to the source bucket once every 5 minutes.+    -- This frequency also determines how often Amazon Lookout for Equipment+    -- starts a scheduled inference on your data. In this example, it starts+    -- once every 5 minutes.+    dataUploadFrequency :: Prelude.Maybe DataUploadFrequency,+    -- | The Amazon Resource Name (ARN) of the inference scheduler being+    -- described.+    inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the inference scheduler being described.+    inferenceSchedulerName :: Prelude.Maybe Prelude.Text,+    -- | Indicates whether the latest execution for the inference scheduler was+    -- Anomalous (anomalous events found) or Normal (no anomalous events+    -- found).+    latestInferenceResult :: Prelude.Maybe LatestInferenceResult,+    -- | The Amazon Resource Name (ARN) of the ML model of the inference+    -- scheduler being described.+    modelArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the ML model of the inference scheduler being described.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of a role with permission to access the+    -- data source for the inference scheduler being described.+    roleArn :: Prelude.Maybe Prelude.Text,+    -- | Provides the identifier of the KMS key used to encrypt inference+    -- scheduler data by Amazon Lookout for Equipment.+    serverSideKmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the inference scheduler.+    status :: Prelude.Maybe InferenceSchedulerStatus,+    -- | Specifies the time at which the inference scheduler was last updated, if+    -- it was.+    updatedAt :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeInferenceSchedulerResponse' 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', 'describeInferenceSchedulerResponse_createdAt' - Specifies the time at which the inference scheduler was created.+--+-- 'dataDelayOffsetInMinutes', 'describeInferenceSchedulerResponse_dataDelayOffsetInMinutes' - A period of time (in minutes) by which inference on the data is delayed+-- after the data starts. For instance, if you select an offset delay time+-- of five minutes, inference will not begin on the data until the first+-- data measurement after the five minute mark. For example, if five+-- minutes is selected, the inference scheduler will wake up at the+-- configured frequency with the additional five minute delay time to check+-- the customer S3 bucket. The customer can upload data at the same+-- frequency and they don\'t need to stop and restart the scheduler when+-- uploading new data.+--+-- 'dataInputConfiguration', 'describeInferenceSchedulerResponse_dataInputConfiguration' - Specifies configuration information for the input data for the inference+-- scheduler, including delimiter, format, and dataset location.+--+-- 'dataOutputConfiguration', 'describeInferenceSchedulerResponse_dataOutputConfiguration' - Specifies information for the output results for the inference+-- scheduler, including the output S3 location.+--+-- 'dataUploadFrequency', 'describeInferenceSchedulerResponse_dataUploadFrequency' - Specifies how often data is uploaded to the source S3 bucket for the+-- input data. This value is the length of time between data uploads. For+-- instance, if you select 5 minutes, Amazon Lookout for Equipment will+-- upload the real-time data to the source bucket once every 5 minutes.+-- This frequency also determines how often Amazon Lookout for Equipment+-- starts a scheduled inference on your data. In this example, it starts+-- once every 5 minutes.+--+-- 'inferenceSchedulerArn', 'describeInferenceSchedulerResponse_inferenceSchedulerArn' - The Amazon Resource Name (ARN) of the inference scheduler being+-- described.+--+-- 'inferenceSchedulerName', 'describeInferenceSchedulerResponse_inferenceSchedulerName' - The name of the inference scheduler being described.+--+-- 'latestInferenceResult', 'describeInferenceSchedulerResponse_latestInferenceResult' - Indicates whether the latest execution for the inference scheduler was+-- Anomalous (anomalous events found) or Normal (no anomalous events+-- found).+--+-- 'modelArn', 'describeInferenceSchedulerResponse_modelArn' - The Amazon Resource Name (ARN) of the ML model of the inference+-- scheduler being described.+--+-- 'modelName', 'describeInferenceSchedulerResponse_modelName' - The name of the ML model of the inference scheduler being described.+--+-- 'roleArn', 'describeInferenceSchedulerResponse_roleArn' - The Amazon Resource Name (ARN) of a role with permission to access the+-- data source for the inference scheduler being described.+--+-- 'serverSideKmsKeyId', 'describeInferenceSchedulerResponse_serverSideKmsKeyId' - Provides the identifier of the KMS key used to encrypt inference+-- scheduler data by Amazon Lookout for Equipment.+--+-- 'status', 'describeInferenceSchedulerResponse_status' - Indicates the status of the inference scheduler.+--+-- 'updatedAt', 'describeInferenceSchedulerResponse_updatedAt' - Specifies the time at which the inference scheduler was last updated, if+-- it was.+--+-- 'httpStatus', 'describeInferenceSchedulerResponse_httpStatus' - The response's http status code.+newDescribeInferenceSchedulerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeInferenceSchedulerResponse+newDescribeInferenceSchedulerResponse pHttpStatus_ =+  DescribeInferenceSchedulerResponse'+    { createdAt =+        Prelude.Nothing,+      dataDelayOffsetInMinutes =+        Prelude.Nothing,+      dataInputConfiguration =+        Prelude.Nothing,+      dataOutputConfiguration =+        Prelude.Nothing,+      dataUploadFrequency = Prelude.Nothing,+      inferenceSchedulerArn = Prelude.Nothing,+      inferenceSchedulerName =+        Prelude.Nothing,+      latestInferenceResult = Prelude.Nothing,+      modelArn = Prelude.Nothing,+      modelName = Prelude.Nothing,+      roleArn = Prelude.Nothing,+      serverSideKmsKeyId = Prelude.Nothing,+      status = Prelude.Nothing,+      updatedAt = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Specifies the time at which the inference scheduler was created.+describeInferenceSchedulerResponse_createdAt :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.UTCTime)+describeInferenceSchedulerResponse_createdAt = Lens.lens (\DescribeInferenceSchedulerResponse' {createdAt} -> createdAt) (\s@DescribeInferenceSchedulerResponse' {} a -> s {createdAt = a} :: DescribeInferenceSchedulerResponse) Prelude.. Lens.mapping Data._Time++-- | A period of time (in minutes) by which inference on the data is delayed+-- after the data starts. For instance, if you select an offset delay time+-- of five minutes, inference will not begin on the data until the first+-- data measurement after the five minute mark. For example, if five+-- minutes is selected, the inference scheduler will wake up at the+-- configured frequency with the additional five minute delay time to check+-- the customer S3 bucket. The customer can upload data at the same+-- frequency and they don\'t need to stop and restart the scheduler when+-- uploading new data.+describeInferenceSchedulerResponse_dataDelayOffsetInMinutes :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.Natural)+describeInferenceSchedulerResponse_dataDelayOffsetInMinutes = Lens.lens (\DescribeInferenceSchedulerResponse' {dataDelayOffsetInMinutes} -> dataDelayOffsetInMinutes) (\s@DescribeInferenceSchedulerResponse' {} a -> s {dataDelayOffsetInMinutes = a} :: DescribeInferenceSchedulerResponse)++-- | Specifies configuration information for the input data for the inference+-- scheduler, including delimiter, format, and dataset location.+describeInferenceSchedulerResponse_dataInputConfiguration :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe InferenceInputConfiguration)+describeInferenceSchedulerResponse_dataInputConfiguration = Lens.lens (\DescribeInferenceSchedulerResponse' {dataInputConfiguration} -> dataInputConfiguration) (\s@DescribeInferenceSchedulerResponse' {} a -> s {dataInputConfiguration = a} :: DescribeInferenceSchedulerResponse)++-- | Specifies information for the output results for the inference+-- scheduler, including the output S3 location.+describeInferenceSchedulerResponse_dataOutputConfiguration :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe InferenceOutputConfiguration)+describeInferenceSchedulerResponse_dataOutputConfiguration = Lens.lens (\DescribeInferenceSchedulerResponse' {dataOutputConfiguration} -> dataOutputConfiguration) (\s@DescribeInferenceSchedulerResponse' {} a -> s {dataOutputConfiguration = a} :: DescribeInferenceSchedulerResponse)++-- | Specifies how often data is uploaded to the source S3 bucket for the+-- input data. This value is the length of time between data uploads. For+-- instance, if you select 5 minutes, Amazon Lookout for Equipment will+-- upload the real-time data to the source bucket once every 5 minutes.+-- This frequency also determines how often Amazon Lookout for Equipment+-- starts a scheduled inference on your data. In this example, it starts+-- once every 5 minutes.+describeInferenceSchedulerResponse_dataUploadFrequency :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe DataUploadFrequency)+describeInferenceSchedulerResponse_dataUploadFrequency = Lens.lens (\DescribeInferenceSchedulerResponse' {dataUploadFrequency} -> dataUploadFrequency) (\s@DescribeInferenceSchedulerResponse' {} a -> s {dataUploadFrequency = a} :: DescribeInferenceSchedulerResponse)++-- | The Amazon Resource Name (ARN) of the inference scheduler being+-- described.+describeInferenceSchedulerResponse_inferenceSchedulerArn :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+describeInferenceSchedulerResponse_inferenceSchedulerArn = Lens.lens (\DescribeInferenceSchedulerResponse' {inferenceSchedulerArn} -> inferenceSchedulerArn) (\s@DescribeInferenceSchedulerResponse' {} a -> s {inferenceSchedulerArn = a} :: DescribeInferenceSchedulerResponse)++-- | The name of the inference scheduler being described.+describeInferenceSchedulerResponse_inferenceSchedulerName :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+describeInferenceSchedulerResponse_inferenceSchedulerName = Lens.lens (\DescribeInferenceSchedulerResponse' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@DescribeInferenceSchedulerResponse' {} a -> s {inferenceSchedulerName = a} :: DescribeInferenceSchedulerResponse)++-- | Indicates whether the latest execution for the inference scheduler was+-- Anomalous (anomalous events found) or Normal (no anomalous events+-- found).+describeInferenceSchedulerResponse_latestInferenceResult :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe LatestInferenceResult)+describeInferenceSchedulerResponse_latestInferenceResult = Lens.lens (\DescribeInferenceSchedulerResponse' {latestInferenceResult} -> latestInferenceResult) (\s@DescribeInferenceSchedulerResponse' {} a -> s {latestInferenceResult = a} :: DescribeInferenceSchedulerResponse)++-- | The Amazon Resource Name (ARN) of the ML model of the inference+-- scheduler being described.+describeInferenceSchedulerResponse_modelArn :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+describeInferenceSchedulerResponse_modelArn = Lens.lens (\DescribeInferenceSchedulerResponse' {modelArn} -> modelArn) (\s@DescribeInferenceSchedulerResponse' {} a -> s {modelArn = a} :: DescribeInferenceSchedulerResponse)++-- | The name of the ML model of the inference scheduler being described.+describeInferenceSchedulerResponse_modelName :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+describeInferenceSchedulerResponse_modelName = Lens.lens (\DescribeInferenceSchedulerResponse' {modelName} -> modelName) (\s@DescribeInferenceSchedulerResponse' {} a -> s {modelName = a} :: DescribeInferenceSchedulerResponse)++-- | The Amazon Resource Name (ARN) of a role with permission to access the+-- data source for the inference scheduler being described.+describeInferenceSchedulerResponse_roleArn :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+describeInferenceSchedulerResponse_roleArn = Lens.lens (\DescribeInferenceSchedulerResponse' {roleArn} -> roleArn) (\s@DescribeInferenceSchedulerResponse' {} a -> s {roleArn = a} :: DescribeInferenceSchedulerResponse)++-- | Provides the identifier of the KMS key used to encrypt inference+-- scheduler data by Amazon Lookout for Equipment.+describeInferenceSchedulerResponse_serverSideKmsKeyId :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+describeInferenceSchedulerResponse_serverSideKmsKeyId = Lens.lens (\DescribeInferenceSchedulerResponse' {serverSideKmsKeyId} -> serverSideKmsKeyId) (\s@DescribeInferenceSchedulerResponse' {} a -> s {serverSideKmsKeyId = a} :: DescribeInferenceSchedulerResponse)++-- | Indicates the status of the inference scheduler.+describeInferenceSchedulerResponse_status :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe InferenceSchedulerStatus)+describeInferenceSchedulerResponse_status = Lens.lens (\DescribeInferenceSchedulerResponse' {status} -> status) (\s@DescribeInferenceSchedulerResponse' {} a -> s {status = a} :: DescribeInferenceSchedulerResponse)++-- | Specifies the time at which the inference scheduler was last updated, if+-- it was.+describeInferenceSchedulerResponse_updatedAt :: Lens.Lens' DescribeInferenceSchedulerResponse (Prelude.Maybe Prelude.UTCTime)+describeInferenceSchedulerResponse_updatedAt = Lens.lens (\DescribeInferenceSchedulerResponse' {updatedAt} -> updatedAt) (\s@DescribeInferenceSchedulerResponse' {} a -> s {updatedAt = a} :: DescribeInferenceSchedulerResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describeInferenceSchedulerResponse_httpStatus :: Lens.Lens' DescribeInferenceSchedulerResponse Prelude.Int+describeInferenceSchedulerResponse_httpStatus = Lens.lens (\DescribeInferenceSchedulerResponse' {httpStatus} -> httpStatus) (\s@DescribeInferenceSchedulerResponse' {} a -> s {httpStatus = a} :: DescribeInferenceSchedulerResponse)++instance+  Prelude.NFData+    DescribeInferenceSchedulerResponse+  where+  rnf DescribeInferenceSchedulerResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf dataDelayOffsetInMinutes+      `Prelude.seq` Prelude.rnf dataInputConfiguration+      `Prelude.seq` Prelude.rnf dataOutputConfiguration+      `Prelude.seq` Prelude.rnf dataUploadFrequency+      `Prelude.seq` Prelude.rnf inferenceSchedulerArn+      `Prelude.seq` Prelude.rnf inferenceSchedulerName+      `Prelude.seq` Prelude.rnf latestInferenceResult+      `Prelude.seq` Prelude.rnf modelArn+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf serverSideKmsKeyId+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf updatedAt+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/DescribeLabel.hs view
@@ -0,0 +1,314 @@+{-# 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.LookoutEquipment.DescribeLabel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the name of the label.+module Amazonka.LookoutEquipment.DescribeLabel+  ( -- * Creating a Request+    DescribeLabel (..),+    newDescribeLabel,++    -- * Request Lenses+    describeLabel_labelGroupName,+    describeLabel_labelId,++    -- * Destructuring the Response+    DescribeLabelResponse (..),+    newDescribeLabelResponse,++    -- * Response Lenses+    describeLabelResponse_createdAt,+    describeLabelResponse_endTime,+    describeLabelResponse_equipment,+    describeLabelResponse_faultCode,+    describeLabelResponse_labelGroupArn,+    describeLabelResponse_labelGroupName,+    describeLabelResponse_labelId,+    describeLabelResponse_notes,+    describeLabelResponse_rating,+    describeLabelResponse_startTime,+    describeLabelResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeLabel' smart constructor.+data DescribeLabel = DescribeLabel'+  { -- | Returns the name of the group containing the label.+    labelGroupName :: Prelude.Text,+    -- | Returns the ID of the label.+    labelId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLabel' 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:+--+-- 'labelGroupName', 'describeLabel_labelGroupName' - Returns the name of the group containing the label.+--+-- 'labelId', 'describeLabel_labelId' - Returns the ID of the label.+newDescribeLabel ::+  -- | 'labelGroupName'+  Prelude.Text ->+  -- | 'labelId'+  Prelude.Text ->+  DescribeLabel+newDescribeLabel pLabelGroupName_ pLabelId_ =+  DescribeLabel'+    { labelGroupName = pLabelGroupName_,+      labelId = pLabelId_+    }++-- | Returns the name of the group containing the label.+describeLabel_labelGroupName :: Lens.Lens' DescribeLabel Prelude.Text+describeLabel_labelGroupName = Lens.lens (\DescribeLabel' {labelGroupName} -> labelGroupName) (\s@DescribeLabel' {} a -> s {labelGroupName = a} :: DescribeLabel)++-- | Returns the ID of the label.+describeLabel_labelId :: Lens.Lens' DescribeLabel Prelude.Text+describeLabel_labelId = Lens.lens (\DescribeLabel' {labelId} -> labelId) (\s@DescribeLabel' {} a -> s {labelId = a} :: DescribeLabel)++instance Core.AWSRequest DescribeLabel where+  type+    AWSResponse DescribeLabel =+      DescribeLabelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeLabelResponse'+            Prelude.<$> (x Data..?> "CreatedAt")+            Prelude.<*> (x Data..?> "EndTime")+            Prelude.<*> (x Data..?> "Equipment")+            Prelude.<*> (x Data..?> "FaultCode")+            Prelude.<*> (x Data..?> "LabelGroupArn")+            Prelude.<*> (x Data..?> "LabelGroupName")+            Prelude.<*> (x Data..?> "LabelId")+            Prelude.<*> (x Data..?> "Notes")+            Prelude.<*> (x Data..?> "Rating")+            Prelude.<*> (x Data..?> "StartTime")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeLabel where+  hashWithSalt _salt DescribeLabel' {..} =+    _salt+      `Prelude.hashWithSalt` labelGroupName+      `Prelude.hashWithSalt` labelId++instance Prelude.NFData DescribeLabel where+  rnf DescribeLabel' {..} =+    Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf labelId++instance Data.ToHeaders DescribeLabel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DescribeLabel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeLabel where+  toJSON DescribeLabel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("LabelGroupName" Data..= labelGroupName),+            Prelude.Just ("LabelId" Data..= labelId)+          ]+      )++instance Data.ToPath DescribeLabel where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeLabel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeLabelResponse' smart constructor.+data DescribeLabelResponse = DescribeLabelResponse'+  { -- | The time at which the label was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | The end time of the requested label.+    endTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates that a label pertains to a particular piece of equipment.+    equipment :: Prelude.Maybe Prelude.Text,+    -- | Indicates the type of anomaly associated with the label.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    faultCode :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the requested label group.+    labelGroupArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the requested label group.+    labelGroupName :: Prelude.Maybe Prelude.Text,+    -- | The ID of the requested label.+    labelId :: Prelude.Maybe Prelude.Text,+    -- | Metadata providing additional information about the label.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    notes :: Prelude.Maybe Prelude.Text,+    -- | Indicates whether a labeled event represents an anomaly.+    rating :: Prelude.Maybe LabelRating,+    -- | The start time of the requested label.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLabelResponse' 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', 'describeLabelResponse_createdAt' - The time at which the label was created.+--+-- 'endTime', 'describeLabelResponse_endTime' - The end time of the requested label.+--+-- 'equipment', 'describeLabelResponse_equipment' - Indicates that a label pertains to a particular piece of equipment.+--+-- 'faultCode', 'describeLabelResponse_faultCode' - Indicates the type of anomaly associated with the label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'labelGroupArn', 'describeLabelResponse_labelGroupArn' - The ARN of the requested label group.+--+-- 'labelGroupName', 'describeLabelResponse_labelGroupName' - The name of the requested label group.+--+-- 'labelId', 'describeLabelResponse_labelId' - The ID of the requested label.+--+-- 'notes', 'describeLabelResponse_notes' - Metadata providing additional information about the label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'rating', 'describeLabelResponse_rating' - Indicates whether a labeled event represents an anomaly.+--+-- 'startTime', 'describeLabelResponse_startTime' - The start time of the requested label.+--+-- 'httpStatus', 'describeLabelResponse_httpStatus' - The response's http status code.+newDescribeLabelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeLabelResponse+newDescribeLabelResponse pHttpStatus_ =+  DescribeLabelResponse'+    { createdAt = Prelude.Nothing,+      endTime = Prelude.Nothing,+      equipment = Prelude.Nothing,+      faultCode = Prelude.Nothing,+      labelGroupArn = Prelude.Nothing,+      labelGroupName = Prelude.Nothing,+      labelId = Prelude.Nothing,+      notes = Prelude.Nothing,+      rating = Prelude.Nothing,+      startTime = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The time at which the label was created.+describeLabelResponse_createdAt :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.UTCTime)+describeLabelResponse_createdAt = Lens.lens (\DescribeLabelResponse' {createdAt} -> createdAt) (\s@DescribeLabelResponse' {} a -> s {createdAt = a} :: DescribeLabelResponse) Prelude.. Lens.mapping Data._Time++-- | The end time of the requested label.+describeLabelResponse_endTime :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.UTCTime)+describeLabelResponse_endTime = Lens.lens (\DescribeLabelResponse' {endTime} -> endTime) (\s@DescribeLabelResponse' {} a -> s {endTime = a} :: DescribeLabelResponse) Prelude.. Lens.mapping Data._Time++-- | Indicates that a label pertains to a particular piece of equipment.+describeLabelResponse_equipment :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.Text)+describeLabelResponse_equipment = Lens.lens (\DescribeLabelResponse' {equipment} -> equipment) (\s@DescribeLabelResponse' {} a -> s {equipment = a} :: DescribeLabelResponse)++-- | Indicates the type of anomaly associated with the label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+describeLabelResponse_faultCode :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.Text)+describeLabelResponse_faultCode = Lens.lens (\DescribeLabelResponse' {faultCode} -> faultCode) (\s@DescribeLabelResponse' {} a -> s {faultCode = a} :: DescribeLabelResponse)++-- | The ARN of the requested label group.+describeLabelResponse_labelGroupArn :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.Text)+describeLabelResponse_labelGroupArn = Lens.lens (\DescribeLabelResponse' {labelGroupArn} -> labelGroupArn) (\s@DescribeLabelResponse' {} a -> s {labelGroupArn = a} :: DescribeLabelResponse)++-- | The name of the requested label group.+describeLabelResponse_labelGroupName :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.Text)+describeLabelResponse_labelGroupName = Lens.lens (\DescribeLabelResponse' {labelGroupName} -> labelGroupName) (\s@DescribeLabelResponse' {} a -> s {labelGroupName = a} :: DescribeLabelResponse)++-- | The ID of the requested label.+describeLabelResponse_labelId :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.Text)+describeLabelResponse_labelId = Lens.lens (\DescribeLabelResponse' {labelId} -> labelId) (\s@DescribeLabelResponse' {} a -> s {labelId = a} :: DescribeLabelResponse)++-- | Metadata providing additional information about the label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+describeLabelResponse_notes :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.Text)+describeLabelResponse_notes = Lens.lens (\DescribeLabelResponse' {notes} -> notes) (\s@DescribeLabelResponse' {} a -> s {notes = a} :: DescribeLabelResponse)++-- | Indicates whether a labeled event represents an anomaly.+describeLabelResponse_rating :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe LabelRating)+describeLabelResponse_rating = Lens.lens (\DescribeLabelResponse' {rating} -> rating) (\s@DescribeLabelResponse' {} a -> s {rating = a} :: DescribeLabelResponse)++-- | The start time of the requested label.+describeLabelResponse_startTime :: Lens.Lens' DescribeLabelResponse (Prelude.Maybe Prelude.UTCTime)+describeLabelResponse_startTime = Lens.lens (\DescribeLabelResponse' {startTime} -> startTime) (\s@DescribeLabelResponse' {} a -> s {startTime = a} :: DescribeLabelResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describeLabelResponse_httpStatus :: Lens.Lens' DescribeLabelResponse Prelude.Int+describeLabelResponse_httpStatus = Lens.lens (\DescribeLabelResponse' {httpStatus} -> httpStatus) (\s@DescribeLabelResponse' {} a -> s {httpStatus = a} :: DescribeLabelResponse)++instance Prelude.NFData DescribeLabelResponse where+  rnf DescribeLabelResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf endTime+      `Prelude.seq` Prelude.rnf equipment+      `Prelude.seq` Prelude.rnf faultCode+      `Prelude.seq` Prelude.rnf labelGroupArn+      `Prelude.seq` Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf labelId+      `Prelude.seq` Prelude.rnf notes+      `Prelude.seq` Prelude.rnf rating+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/DescribeLabelGroup.hs view
@@ -0,0 +1,225 @@+{-# 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.LookoutEquipment.DescribeLabelGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the label group.+module Amazonka.LookoutEquipment.DescribeLabelGroup+  ( -- * Creating a Request+    DescribeLabelGroup (..),+    newDescribeLabelGroup,++    -- * Request Lenses+    describeLabelGroup_labelGroupName,++    -- * Destructuring the Response+    DescribeLabelGroupResponse (..),+    newDescribeLabelGroupResponse,++    -- * Response Lenses+    describeLabelGroupResponse_createdAt,+    describeLabelGroupResponse_faultCodes,+    describeLabelGroupResponse_labelGroupArn,+    describeLabelGroupResponse_labelGroupName,+    describeLabelGroupResponse_updatedAt,+    describeLabelGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeLabelGroup' smart constructor.+data DescribeLabelGroup = DescribeLabelGroup'+  { -- | Returns the name of the label group.+    labelGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLabelGroup' 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:+--+-- 'labelGroupName', 'describeLabelGroup_labelGroupName' - Returns the name of the label group.+newDescribeLabelGroup ::+  -- | 'labelGroupName'+  Prelude.Text ->+  DescribeLabelGroup+newDescribeLabelGroup pLabelGroupName_ =+  DescribeLabelGroup'+    { labelGroupName =+        pLabelGroupName_+    }++-- | Returns the name of the label group.+describeLabelGroup_labelGroupName :: Lens.Lens' DescribeLabelGroup Prelude.Text+describeLabelGroup_labelGroupName = Lens.lens (\DescribeLabelGroup' {labelGroupName} -> labelGroupName) (\s@DescribeLabelGroup' {} a -> s {labelGroupName = a} :: DescribeLabelGroup)++instance Core.AWSRequest DescribeLabelGroup where+  type+    AWSResponse DescribeLabelGroup =+      DescribeLabelGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeLabelGroupResponse'+            Prelude.<$> (x Data..?> "CreatedAt")+            Prelude.<*> (x Data..?> "FaultCodes" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "LabelGroupArn")+            Prelude.<*> (x Data..?> "LabelGroupName")+            Prelude.<*> (x Data..?> "UpdatedAt")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeLabelGroup where+  hashWithSalt _salt DescribeLabelGroup' {..} =+    _salt `Prelude.hashWithSalt` labelGroupName++instance Prelude.NFData DescribeLabelGroup where+  rnf DescribeLabelGroup' {..} =+    Prelude.rnf labelGroupName++instance Data.ToHeaders DescribeLabelGroup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DescribeLabelGroup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeLabelGroup where+  toJSON DescribeLabelGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("LabelGroupName" Data..= labelGroupName)+          ]+      )++instance Data.ToPath DescribeLabelGroup where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeLabelGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeLabelGroupResponse' smart constructor.+data DescribeLabelGroupResponse = DescribeLabelGroupResponse'+  { -- | The time at which the label group was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | Codes indicating the type of anomaly associated with the labels in the+    -- lagbel group.+    faultCodes :: Prelude.Maybe [Prelude.Text],+    -- | The ARN of the label group.+    labelGroupArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the label group.+    labelGroupName :: Prelude.Maybe Prelude.Text,+    -- | The time at which the label group was updated.+    updatedAt :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLabelGroupResponse' 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', 'describeLabelGroupResponse_createdAt' - The time at which the label group was created.+--+-- 'faultCodes', 'describeLabelGroupResponse_faultCodes' - Codes indicating the type of anomaly associated with the labels in the+-- lagbel group.+--+-- 'labelGroupArn', 'describeLabelGroupResponse_labelGroupArn' - The ARN of the label group.+--+-- 'labelGroupName', 'describeLabelGroupResponse_labelGroupName' - The name of the label group.+--+-- 'updatedAt', 'describeLabelGroupResponse_updatedAt' - The time at which the label group was updated.+--+-- 'httpStatus', 'describeLabelGroupResponse_httpStatus' - The response's http status code.+newDescribeLabelGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeLabelGroupResponse+newDescribeLabelGroupResponse pHttpStatus_ =+  DescribeLabelGroupResponse'+    { createdAt =+        Prelude.Nothing,+      faultCodes = Prelude.Nothing,+      labelGroupArn = Prelude.Nothing,+      labelGroupName = Prelude.Nothing,+      updatedAt = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The time at which the label group was created.+describeLabelGroupResponse_createdAt :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe Prelude.UTCTime)+describeLabelGroupResponse_createdAt = Lens.lens (\DescribeLabelGroupResponse' {createdAt} -> createdAt) (\s@DescribeLabelGroupResponse' {} a -> s {createdAt = a} :: DescribeLabelGroupResponse) Prelude.. Lens.mapping Data._Time++-- | Codes indicating the type of anomaly associated with the labels in the+-- lagbel group.+describeLabelGroupResponse_faultCodes :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe [Prelude.Text])+describeLabelGroupResponse_faultCodes = Lens.lens (\DescribeLabelGroupResponse' {faultCodes} -> faultCodes) (\s@DescribeLabelGroupResponse' {} a -> s {faultCodes = a} :: DescribeLabelGroupResponse) Prelude.. Lens.mapping Lens.coerced++-- | The ARN of the label group.+describeLabelGroupResponse_labelGroupArn :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe Prelude.Text)+describeLabelGroupResponse_labelGroupArn = Lens.lens (\DescribeLabelGroupResponse' {labelGroupArn} -> labelGroupArn) (\s@DescribeLabelGroupResponse' {} a -> s {labelGroupArn = a} :: DescribeLabelGroupResponse)++-- | The name of the label group.+describeLabelGroupResponse_labelGroupName :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe Prelude.Text)+describeLabelGroupResponse_labelGroupName = Lens.lens (\DescribeLabelGroupResponse' {labelGroupName} -> labelGroupName) (\s@DescribeLabelGroupResponse' {} a -> s {labelGroupName = a} :: DescribeLabelGroupResponse)++-- | The time at which the label group was updated.+describeLabelGroupResponse_updatedAt :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe Prelude.UTCTime)+describeLabelGroupResponse_updatedAt = Lens.lens (\DescribeLabelGroupResponse' {updatedAt} -> updatedAt) (\s@DescribeLabelGroupResponse' {} a -> s {updatedAt = a} :: DescribeLabelGroupResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describeLabelGroupResponse_httpStatus :: Lens.Lens' DescribeLabelGroupResponse Prelude.Int+describeLabelGroupResponse_httpStatus = Lens.lens (\DescribeLabelGroupResponse' {httpStatus} -> httpStatus) (\s@DescribeLabelGroupResponse' {} a -> s {httpStatus = a} :: DescribeLabelGroupResponse)++instance Prelude.NFData DescribeLabelGroupResponse where+  rnf DescribeLabelGroupResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf faultCodes+      `Prelude.seq` Prelude.rnf labelGroupArn+      `Prelude.seq` Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf updatedAt+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/DescribeModel.hs view
@@ -0,0 +1,487 @@+{-# 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.LookoutEquipment.DescribeModel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a JSON containing the overall information about a specific ML+-- model, including model name and ARN, dataset, training and evaluation+-- information, status, and so on.+module Amazonka.LookoutEquipment.DescribeModel+  ( -- * Creating a Request+    DescribeModel (..),+    newDescribeModel,++    -- * Request Lenses+    describeModel_modelName,++    -- * Destructuring the Response+    DescribeModelResponse (..),+    newDescribeModelResponse,++    -- * Response Lenses+    describeModelResponse_createdAt,+    describeModelResponse_dataPreProcessingConfiguration,+    describeModelResponse_datasetArn,+    describeModelResponse_datasetName,+    describeModelResponse_evaluationDataEndTime,+    describeModelResponse_evaluationDataStartTime,+    describeModelResponse_failedReason,+    describeModelResponse_labelsInputConfiguration,+    describeModelResponse_lastUpdatedTime,+    describeModelResponse_modelArn,+    describeModelResponse_modelMetrics,+    describeModelResponse_modelName,+    describeModelResponse_offCondition,+    describeModelResponse_roleArn,+    describeModelResponse_schema,+    describeModelResponse_serverSideKmsKeyId,+    describeModelResponse_status,+    describeModelResponse_trainingDataEndTime,+    describeModelResponse_trainingDataStartTime,+    describeModelResponse_trainingExecutionEndTime,+    describeModelResponse_trainingExecutionStartTime,+    describeModelResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeModel' smart constructor.+data DescribeModel = DescribeModel'+  { -- | The name of the ML model to be described.+    modelName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeModel' 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:+--+-- 'modelName', 'describeModel_modelName' - The name of the ML model to be described.+newDescribeModel ::+  -- | 'modelName'+  Prelude.Text ->+  DescribeModel+newDescribeModel pModelName_ =+  DescribeModel' {modelName = pModelName_}++-- | The name of the ML model to be described.+describeModel_modelName :: Lens.Lens' DescribeModel Prelude.Text+describeModel_modelName = Lens.lens (\DescribeModel' {modelName} -> modelName) (\s@DescribeModel' {} a -> s {modelName = a} :: DescribeModel)++instance Core.AWSRequest DescribeModel where+  type+    AWSResponse DescribeModel =+      DescribeModelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeModelResponse'+            Prelude.<$> (x Data..?> "CreatedAt")+            Prelude.<*> (x Data..?> "DataPreProcessingConfiguration")+            Prelude.<*> (x Data..?> "DatasetArn")+            Prelude.<*> (x Data..?> "DatasetName")+            Prelude.<*> (x Data..?> "EvaluationDataEndTime")+            Prelude.<*> (x Data..?> "EvaluationDataStartTime")+            Prelude.<*> (x Data..?> "FailedReason")+            Prelude.<*> (x Data..?> "LabelsInputConfiguration")+            Prelude.<*> (x Data..?> "LastUpdatedTime")+            Prelude.<*> (x Data..?> "ModelArn")+            Prelude.<*> (x Data..?> "ModelMetrics")+            Prelude.<*> (x Data..?> "ModelName")+            Prelude.<*> (x Data..?> "OffCondition")+            Prelude.<*> (x Data..?> "RoleArn")+            Prelude.<*> (x Data..?> "Schema")+            Prelude.<*> (x Data..?> "ServerSideKmsKeyId")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (x Data..?> "TrainingDataEndTime")+            Prelude.<*> (x Data..?> "TrainingDataStartTime")+            Prelude.<*> (x Data..?> "TrainingExecutionEndTime")+            Prelude.<*> (x Data..?> "TrainingExecutionStartTime")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeModel where+  hashWithSalt _salt DescribeModel' {..} =+    _salt `Prelude.hashWithSalt` modelName++instance Prelude.NFData DescribeModel where+  rnf DescribeModel' {..} = Prelude.rnf modelName++instance Data.ToHeaders DescribeModel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.DescribeModel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeModel where+  toJSON DescribeModel' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ModelName" Data..= modelName)]+      )++instance Data.ToPath DescribeModel where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeModel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeModelResponse' smart constructor.+data DescribeModelResponse = DescribeModelResponse'+  { -- | Indicates the time and date at which the ML model was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | The configuration is the @TargetSamplingRate@, which is the sampling+    -- rate of the data after post processing by Amazon Lookout for Equipment.+    -- For example, if you provide data that has been collected at a 1 second+    -- level and you want the system to resample the data at a 1 minute rate+    -- before training, the @TargetSamplingRate@ is 1 minute.+    --+    -- When providing a value for the @TargetSamplingRate@, you must attach the+    -- prefix \"PT\" to the rate you want. The value for a 1 second rate is+    -- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+    -- value for a 1 hour rate is /PT1H/+    dataPreProcessingConfiguration :: Prelude.Maybe DataPreProcessingConfiguration,+    -- | The Amazon Resouce Name (ARN) of the dataset used to create the ML model+    -- being described.+    datasetArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the dataset being used by the ML being described.+    datasetName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the time reference in the dataset that was used to end the+    -- subset of evaluation data for the ML model.+    evaluationDataEndTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates the time reference in the dataset that was used to begin the+    -- subset of evaluation data for the ML model.+    evaluationDataStartTime :: Prelude.Maybe Data.POSIX,+    -- | If the training of the ML model failed, this indicates the reason for+    -- that failure.+    failedReason :: Prelude.Maybe Prelude.Text,+    -- | Specifies configuration information about the labels input, including+    -- its S3 location.+    labelsInputConfiguration :: Prelude.Maybe LabelsInputConfiguration,+    -- | Indicates the last time the ML model was updated. The type of update is+    -- not specified.+    lastUpdatedTime :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the ML model being described.+    modelArn :: Prelude.Maybe Prelude.Text,+    -- | The Model Metrics show an aggregated summary of the model\'s performance+    -- within the evaluation time range. This is the JSON content of the+    -- metrics created when evaluating the model.+    modelMetrics :: Prelude.Maybe Prelude.Text,+    -- | The name of the ML model being described.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | Indicates that the asset associated with this sensor has been shut off.+    -- As long as this condition is met, Lookout for Equipment will not use+    -- data from this asset for training, evaluation, or inference.+    offCondition :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of a role with permission to access the+    -- data source for the ML model being described.+    roleArn :: Prelude.Maybe Prelude.Text,+    -- | A JSON description of the data that is in each time series dataset,+    -- including names, column names, and data types.+    schema :: Prelude.Maybe Prelude.Text,+    -- | Provides the identifier of the KMS key used to encrypt model data by+    -- Amazon Lookout for Equipment.+    serverSideKmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Specifies the current status of the model being described. Status+    -- describes the status of the most recent action of the model.+    status :: Prelude.Maybe ModelStatus,+    -- | Indicates the time reference in the dataset that was used to end the+    -- subset of training data for the ML model.+    trainingDataEndTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates the time reference in the dataset that was used to begin the+    -- subset of training data for the ML model.+    trainingDataStartTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates the time at which the training of the ML model was completed.+    trainingExecutionEndTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates the time at which the training of the ML model began.+    trainingExecutionStartTime :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeModelResponse' 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', 'describeModelResponse_createdAt' - Indicates the time and date at which the ML model was created.+--+-- 'dataPreProcessingConfiguration', 'describeModelResponse_dataPreProcessingConfiguration' - The configuration is the @TargetSamplingRate@, which is the sampling+-- rate of the data after post processing by Amazon Lookout for Equipment.+-- For example, if you provide data that has been collected at a 1 second+-- level and you want the system to resample the data at a 1 minute rate+-- before training, the @TargetSamplingRate@ is 1 minute.+--+-- When providing a value for the @TargetSamplingRate@, you must attach the+-- prefix \"PT\" to the rate you want. The value for a 1 second rate is+-- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+-- value for a 1 hour rate is /PT1H/+--+-- 'datasetArn', 'describeModelResponse_datasetArn' - The Amazon Resouce Name (ARN) of the dataset used to create the ML model+-- being described.+--+-- 'datasetName', 'describeModelResponse_datasetName' - The name of the dataset being used by the ML being described.+--+-- 'evaluationDataEndTime', 'describeModelResponse_evaluationDataEndTime' - Indicates the time reference in the dataset that was used to end the+-- subset of evaluation data for the ML model.+--+-- 'evaluationDataStartTime', 'describeModelResponse_evaluationDataStartTime' - Indicates the time reference in the dataset that was used to begin the+-- subset of evaluation data for the ML model.+--+-- 'failedReason', 'describeModelResponse_failedReason' - If the training of the ML model failed, this indicates the reason for+-- that failure.+--+-- 'labelsInputConfiguration', 'describeModelResponse_labelsInputConfiguration' - Specifies configuration information about the labels input, including+-- its S3 location.+--+-- 'lastUpdatedTime', 'describeModelResponse_lastUpdatedTime' - Indicates the last time the ML model was updated. The type of update is+-- not specified.+--+-- 'modelArn', 'describeModelResponse_modelArn' - The Amazon Resource Name (ARN) of the ML model being described.+--+-- 'modelMetrics', 'describeModelResponse_modelMetrics' - The Model Metrics show an aggregated summary of the model\'s performance+-- within the evaluation time range. This is the JSON content of the+-- metrics created when evaluating the model.+--+-- 'modelName', 'describeModelResponse_modelName' - The name of the ML model being described.+--+-- 'offCondition', 'describeModelResponse_offCondition' - Indicates that the asset associated with this sensor has been shut off.+-- As long as this condition is met, Lookout for Equipment will not use+-- data from this asset for training, evaluation, or inference.+--+-- 'roleArn', 'describeModelResponse_roleArn' - The Amazon Resource Name (ARN) of a role with permission to access the+-- data source for the ML model being described.+--+-- 'schema', 'describeModelResponse_schema' - A JSON description of the data that is in each time series dataset,+-- including names, column names, and data types.+--+-- 'serverSideKmsKeyId', 'describeModelResponse_serverSideKmsKeyId' - Provides the identifier of the KMS key used to encrypt model data by+-- Amazon Lookout for Equipment.+--+-- 'status', 'describeModelResponse_status' - Specifies the current status of the model being described. Status+-- describes the status of the most recent action of the model.+--+-- 'trainingDataEndTime', 'describeModelResponse_trainingDataEndTime' - Indicates the time reference in the dataset that was used to end the+-- subset of training data for the ML model.+--+-- 'trainingDataStartTime', 'describeModelResponse_trainingDataStartTime' - Indicates the time reference in the dataset that was used to begin the+-- subset of training data for the ML model.+--+-- 'trainingExecutionEndTime', 'describeModelResponse_trainingExecutionEndTime' - Indicates the time at which the training of the ML model was completed.+--+-- 'trainingExecutionStartTime', 'describeModelResponse_trainingExecutionStartTime' - Indicates the time at which the training of the ML model began.+--+-- 'httpStatus', 'describeModelResponse_httpStatus' - The response's http status code.+newDescribeModelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeModelResponse+newDescribeModelResponse pHttpStatus_ =+  DescribeModelResponse'+    { createdAt = Prelude.Nothing,+      dataPreProcessingConfiguration = Prelude.Nothing,+      datasetArn = Prelude.Nothing,+      datasetName = Prelude.Nothing,+      evaluationDataEndTime = Prelude.Nothing,+      evaluationDataStartTime = Prelude.Nothing,+      failedReason = Prelude.Nothing,+      labelsInputConfiguration = Prelude.Nothing,+      lastUpdatedTime = Prelude.Nothing,+      modelArn = Prelude.Nothing,+      modelMetrics = Prelude.Nothing,+      modelName = Prelude.Nothing,+      offCondition = Prelude.Nothing,+      roleArn = Prelude.Nothing,+      schema = Prelude.Nothing,+      serverSideKmsKeyId = Prelude.Nothing,+      status = Prelude.Nothing,+      trainingDataEndTime = Prelude.Nothing,+      trainingDataStartTime = Prelude.Nothing,+      trainingExecutionEndTime = Prelude.Nothing,+      trainingExecutionStartTime = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Indicates the time and date at which the ML model was created.+describeModelResponse_createdAt :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.UTCTime)+describeModelResponse_createdAt = Lens.lens (\DescribeModelResponse' {createdAt} -> createdAt) (\s@DescribeModelResponse' {} a -> s {createdAt = a} :: DescribeModelResponse) Prelude.. Lens.mapping Data._Time++-- | The configuration is the @TargetSamplingRate@, which is the sampling+-- rate of the data after post processing by Amazon Lookout for Equipment.+-- For example, if you provide data that has been collected at a 1 second+-- level and you want the system to resample the data at a 1 minute rate+-- before training, the @TargetSamplingRate@ is 1 minute.+--+-- When providing a value for the @TargetSamplingRate@, you must attach the+-- prefix \"PT\" to the rate you want. The value for a 1 second rate is+-- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+-- value for a 1 hour rate is /PT1H/+describeModelResponse_dataPreProcessingConfiguration :: Lens.Lens' DescribeModelResponse (Prelude.Maybe DataPreProcessingConfiguration)+describeModelResponse_dataPreProcessingConfiguration = Lens.lens (\DescribeModelResponse' {dataPreProcessingConfiguration} -> dataPreProcessingConfiguration) (\s@DescribeModelResponse' {} a -> s {dataPreProcessingConfiguration = a} :: DescribeModelResponse)++-- | The Amazon Resouce Name (ARN) of the dataset used to create the ML model+-- being described.+describeModelResponse_datasetArn :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_datasetArn = Lens.lens (\DescribeModelResponse' {datasetArn} -> datasetArn) (\s@DescribeModelResponse' {} a -> s {datasetArn = a} :: DescribeModelResponse)++-- | The name of the dataset being used by the ML being described.+describeModelResponse_datasetName :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_datasetName = Lens.lens (\DescribeModelResponse' {datasetName} -> datasetName) (\s@DescribeModelResponse' {} a -> s {datasetName = a} :: DescribeModelResponse)++-- | Indicates the time reference in the dataset that was used to end the+-- subset of evaluation data for the ML model.+describeModelResponse_evaluationDataEndTime :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.UTCTime)+describeModelResponse_evaluationDataEndTime = Lens.lens (\DescribeModelResponse' {evaluationDataEndTime} -> evaluationDataEndTime) (\s@DescribeModelResponse' {} a -> s {evaluationDataEndTime = a} :: DescribeModelResponse) Prelude.. Lens.mapping Data._Time++-- | Indicates the time reference in the dataset that was used to begin the+-- subset of evaluation data for the ML model.+describeModelResponse_evaluationDataStartTime :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.UTCTime)+describeModelResponse_evaluationDataStartTime = Lens.lens (\DescribeModelResponse' {evaluationDataStartTime} -> evaluationDataStartTime) (\s@DescribeModelResponse' {} a -> s {evaluationDataStartTime = a} :: DescribeModelResponse) Prelude.. Lens.mapping Data._Time++-- | If the training of the ML model failed, this indicates the reason for+-- that failure.+describeModelResponse_failedReason :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_failedReason = Lens.lens (\DescribeModelResponse' {failedReason} -> failedReason) (\s@DescribeModelResponse' {} a -> s {failedReason = a} :: DescribeModelResponse)++-- | Specifies configuration information about the labels input, including+-- its S3 location.+describeModelResponse_labelsInputConfiguration :: Lens.Lens' DescribeModelResponse (Prelude.Maybe LabelsInputConfiguration)+describeModelResponse_labelsInputConfiguration = Lens.lens (\DescribeModelResponse' {labelsInputConfiguration} -> labelsInputConfiguration) (\s@DescribeModelResponse' {} a -> s {labelsInputConfiguration = a} :: DescribeModelResponse)++-- | Indicates the last time the ML model was updated. The type of update is+-- not specified.+describeModelResponse_lastUpdatedTime :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.UTCTime)+describeModelResponse_lastUpdatedTime = Lens.lens (\DescribeModelResponse' {lastUpdatedTime} -> lastUpdatedTime) (\s@DescribeModelResponse' {} a -> s {lastUpdatedTime = a} :: DescribeModelResponse) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the ML model being described.+describeModelResponse_modelArn :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_modelArn = Lens.lens (\DescribeModelResponse' {modelArn} -> modelArn) (\s@DescribeModelResponse' {} a -> s {modelArn = a} :: DescribeModelResponse)++-- | The Model Metrics show an aggregated summary of the model\'s performance+-- within the evaluation time range. This is the JSON content of the+-- metrics created when evaluating the model.+describeModelResponse_modelMetrics :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_modelMetrics = Lens.lens (\DescribeModelResponse' {modelMetrics} -> modelMetrics) (\s@DescribeModelResponse' {} a -> s {modelMetrics = a} :: DescribeModelResponse)++-- | The name of the ML model being described.+describeModelResponse_modelName :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_modelName = Lens.lens (\DescribeModelResponse' {modelName} -> modelName) (\s@DescribeModelResponse' {} a -> s {modelName = a} :: DescribeModelResponse)++-- | Indicates that the asset associated with this sensor has been shut off.+-- As long as this condition is met, Lookout for Equipment will not use+-- data from this asset for training, evaluation, or inference.+describeModelResponse_offCondition :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_offCondition = Lens.lens (\DescribeModelResponse' {offCondition} -> offCondition) (\s@DescribeModelResponse' {} a -> s {offCondition = a} :: DescribeModelResponse)++-- | The Amazon Resource Name (ARN) of a role with permission to access the+-- data source for the ML model being described.+describeModelResponse_roleArn :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_roleArn = Lens.lens (\DescribeModelResponse' {roleArn} -> roleArn) (\s@DescribeModelResponse' {} a -> s {roleArn = a} :: DescribeModelResponse)++-- | A JSON description of the data that is in each time series dataset,+-- including names, column names, and data types.+describeModelResponse_schema :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_schema = Lens.lens (\DescribeModelResponse' {schema} -> schema) (\s@DescribeModelResponse' {} a -> s {schema = a} :: DescribeModelResponse)++-- | Provides the identifier of the KMS key used to encrypt model data by+-- Amazon Lookout for Equipment.+describeModelResponse_serverSideKmsKeyId :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.Text)+describeModelResponse_serverSideKmsKeyId = Lens.lens (\DescribeModelResponse' {serverSideKmsKeyId} -> serverSideKmsKeyId) (\s@DescribeModelResponse' {} a -> s {serverSideKmsKeyId = a} :: DescribeModelResponse)++-- | Specifies the current status of the model being described. Status+-- describes the status of the most recent action of the model.+describeModelResponse_status :: Lens.Lens' DescribeModelResponse (Prelude.Maybe ModelStatus)+describeModelResponse_status = Lens.lens (\DescribeModelResponse' {status} -> status) (\s@DescribeModelResponse' {} a -> s {status = a} :: DescribeModelResponse)++-- | Indicates the time reference in the dataset that was used to end the+-- subset of training data for the ML model.+describeModelResponse_trainingDataEndTime :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.UTCTime)+describeModelResponse_trainingDataEndTime = Lens.lens (\DescribeModelResponse' {trainingDataEndTime} -> trainingDataEndTime) (\s@DescribeModelResponse' {} a -> s {trainingDataEndTime = a} :: DescribeModelResponse) Prelude.. Lens.mapping Data._Time++-- | Indicates the time reference in the dataset that was used to begin the+-- subset of training data for the ML model.+describeModelResponse_trainingDataStartTime :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.UTCTime)+describeModelResponse_trainingDataStartTime = Lens.lens (\DescribeModelResponse' {trainingDataStartTime} -> trainingDataStartTime) (\s@DescribeModelResponse' {} a -> s {trainingDataStartTime = a} :: DescribeModelResponse) Prelude.. Lens.mapping Data._Time++-- | Indicates the time at which the training of the ML model was completed.+describeModelResponse_trainingExecutionEndTime :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.UTCTime)+describeModelResponse_trainingExecutionEndTime = Lens.lens (\DescribeModelResponse' {trainingExecutionEndTime} -> trainingExecutionEndTime) (\s@DescribeModelResponse' {} a -> s {trainingExecutionEndTime = a} :: DescribeModelResponse) Prelude.. Lens.mapping Data._Time++-- | Indicates the time at which the training of the ML model began.+describeModelResponse_trainingExecutionStartTime :: Lens.Lens' DescribeModelResponse (Prelude.Maybe Prelude.UTCTime)+describeModelResponse_trainingExecutionStartTime = Lens.lens (\DescribeModelResponse' {trainingExecutionStartTime} -> trainingExecutionStartTime) (\s@DescribeModelResponse' {} a -> s {trainingExecutionStartTime = a} :: DescribeModelResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describeModelResponse_httpStatus :: Lens.Lens' DescribeModelResponse Prelude.Int+describeModelResponse_httpStatus = Lens.lens (\DescribeModelResponse' {httpStatus} -> httpStatus) (\s@DescribeModelResponse' {} a -> s {httpStatus = a} :: DescribeModelResponse)++instance Prelude.NFData DescribeModelResponse where+  rnf DescribeModelResponse' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf dataPreProcessingConfiguration+      `Prelude.seq` Prelude.rnf datasetArn+      `Prelude.seq` Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf evaluationDataEndTime+      `Prelude.seq` Prelude.rnf evaluationDataStartTime+      `Prelude.seq` Prelude.rnf failedReason+      `Prelude.seq` Prelude.rnf labelsInputConfiguration+      `Prelude.seq` Prelude.rnf lastUpdatedTime+      `Prelude.seq` Prelude.rnf modelArn+      `Prelude.seq` Prelude.rnf modelMetrics+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf offCondition+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf schema+      `Prelude.seq` Prelude.rnf serverSideKmsKeyId+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf trainingDataEndTime+      `Prelude.seq` Prelude.rnf+        trainingDataStartTime+      `Prelude.seq` Prelude.rnf+        trainingExecutionEndTime+      `Prelude.seq` Prelude.rnf+        trainingExecutionStartTime+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/Lens.hs view
@@ -0,0 +1,606 @@+{-# 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.LookoutEquipment.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.LookoutEquipment.Lens+  ( -- * Operations++    -- ** CreateDataset+    createDataset_datasetSchema,+    createDataset_serverSideKmsKeyId,+    createDataset_tags,+    createDataset_datasetName,+    createDataset_clientToken,+    createDatasetResponse_datasetArn,+    createDatasetResponse_datasetName,+    createDatasetResponse_status,+    createDatasetResponse_httpStatus,++    -- ** CreateInferenceScheduler+    createInferenceScheduler_dataDelayOffsetInMinutes,+    createInferenceScheduler_serverSideKmsKeyId,+    createInferenceScheduler_tags,+    createInferenceScheduler_modelName,+    createInferenceScheduler_inferenceSchedulerName,+    createInferenceScheduler_dataUploadFrequency,+    createInferenceScheduler_dataInputConfiguration,+    createInferenceScheduler_dataOutputConfiguration,+    createInferenceScheduler_roleArn,+    createInferenceScheduler_clientToken,+    createInferenceSchedulerResponse_inferenceSchedulerArn,+    createInferenceSchedulerResponse_inferenceSchedulerName,+    createInferenceSchedulerResponse_status,+    createInferenceSchedulerResponse_httpStatus,++    -- ** CreateLabel+    createLabel_equipment,+    createLabel_faultCode,+    createLabel_notes,+    createLabel_labelGroupName,+    createLabel_startTime,+    createLabel_endTime,+    createLabel_rating,+    createLabel_clientToken,+    createLabelResponse_labelId,+    createLabelResponse_httpStatus,++    -- ** CreateLabelGroup+    createLabelGroup_faultCodes,+    createLabelGroup_tags,+    createLabelGroup_labelGroupName,+    createLabelGroup_clientToken,+    createLabelGroupResponse_labelGroupArn,+    createLabelGroupResponse_labelGroupName,+    createLabelGroupResponse_httpStatus,++    -- ** CreateModel+    createModel_dataPreProcessingConfiguration,+    createModel_datasetSchema,+    createModel_evaluationDataEndTime,+    createModel_evaluationDataStartTime,+    createModel_labelsInputConfiguration,+    createModel_offCondition,+    createModel_roleArn,+    createModel_serverSideKmsKeyId,+    createModel_tags,+    createModel_trainingDataEndTime,+    createModel_trainingDataStartTime,+    createModel_modelName,+    createModel_datasetName,+    createModel_clientToken,+    createModelResponse_modelArn,+    createModelResponse_status,+    createModelResponse_httpStatus,++    -- ** DeleteDataset+    deleteDataset_datasetName,++    -- ** DeleteInferenceScheduler+    deleteInferenceScheduler_inferenceSchedulerName,++    -- ** DeleteLabel+    deleteLabel_labelGroupName,+    deleteLabel_labelId,++    -- ** DeleteLabelGroup+    deleteLabelGroup_labelGroupName,++    -- ** DeleteModel+    deleteModel_modelName,++    -- ** DescribeDataIngestionJob+    describeDataIngestionJob_jobId,+    describeDataIngestionJobResponse_createdAt,+    describeDataIngestionJobResponse_dataEndTime,+    describeDataIngestionJobResponse_dataQualitySummary,+    describeDataIngestionJobResponse_dataStartTime,+    describeDataIngestionJobResponse_datasetArn,+    describeDataIngestionJobResponse_failedReason,+    describeDataIngestionJobResponse_ingestedDataSize,+    describeDataIngestionJobResponse_ingestedFilesSummary,+    describeDataIngestionJobResponse_ingestionInputConfiguration,+    describeDataIngestionJobResponse_jobId,+    describeDataIngestionJobResponse_roleArn,+    describeDataIngestionJobResponse_status,+    describeDataIngestionJobResponse_statusDetail,+    describeDataIngestionJobResponse_httpStatus,++    -- ** DescribeDataset+    describeDataset_datasetName,+    describeDatasetResponse_createdAt,+    describeDatasetResponse_dataEndTime,+    describeDatasetResponse_dataQualitySummary,+    describeDatasetResponse_dataStartTime,+    describeDatasetResponse_datasetArn,+    describeDatasetResponse_datasetName,+    describeDatasetResponse_ingestedFilesSummary,+    describeDatasetResponse_ingestionInputConfiguration,+    describeDatasetResponse_lastUpdatedAt,+    describeDatasetResponse_roleArn,+    describeDatasetResponse_schema,+    describeDatasetResponse_serverSideKmsKeyId,+    describeDatasetResponse_status,+    describeDatasetResponse_httpStatus,++    -- ** DescribeInferenceScheduler+    describeInferenceScheduler_inferenceSchedulerName,+    describeInferenceSchedulerResponse_createdAt,+    describeInferenceSchedulerResponse_dataDelayOffsetInMinutes,+    describeInferenceSchedulerResponse_dataInputConfiguration,+    describeInferenceSchedulerResponse_dataOutputConfiguration,+    describeInferenceSchedulerResponse_dataUploadFrequency,+    describeInferenceSchedulerResponse_inferenceSchedulerArn,+    describeInferenceSchedulerResponse_inferenceSchedulerName,+    describeInferenceSchedulerResponse_latestInferenceResult,+    describeInferenceSchedulerResponse_modelArn,+    describeInferenceSchedulerResponse_modelName,+    describeInferenceSchedulerResponse_roleArn,+    describeInferenceSchedulerResponse_serverSideKmsKeyId,+    describeInferenceSchedulerResponse_status,+    describeInferenceSchedulerResponse_updatedAt,+    describeInferenceSchedulerResponse_httpStatus,++    -- ** DescribeLabel+    describeLabel_labelGroupName,+    describeLabel_labelId,+    describeLabelResponse_createdAt,+    describeLabelResponse_endTime,+    describeLabelResponse_equipment,+    describeLabelResponse_faultCode,+    describeLabelResponse_labelGroupArn,+    describeLabelResponse_labelGroupName,+    describeLabelResponse_labelId,+    describeLabelResponse_notes,+    describeLabelResponse_rating,+    describeLabelResponse_startTime,+    describeLabelResponse_httpStatus,++    -- ** DescribeLabelGroup+    describeLabelGroup_labelGroupName,+    describeLabelGroupResponse_createdAt,+    describeLabelGroupResponse_faultCodes,+    describeLabelGroupResponse_labelGroupArn,+    describeLabelGroupResponse_labelGroupName,+    describeLabelGroupResponse_updatedAt,+    describeLabelGroupResponse_httpStatus,++    -- ** DescribeModel+    describeModel_modelName,+    describeModelResponse_createdAt,+    describeModelResponse_dataPreProcessingConfiguration,+    describeModelResponse_datasetArn,+    describeModelResponse_datasetName,+    describeModelResponse_evaluationDataEndTime,+    describeModelResponse_evaluationDataStartTime,+    describeModelResponse_failedReason,+    describeModelResponse_labelsInputConfiguration,+    describeModelResponse_lastUpdatedTime,+    describeModelResponse_modelArn,+    describeModelResponse_modelMetrics,+    describeModelResponse_modelName,+    describeModelResponse_offCondition,+    describeModelResponse_roleArn,+    describeModelResponse_schema,+    describeModelResponse_serverSideKmsKeyId,+    describeModelResponse_status,+    describeModelResponse_trainingDataEndTime,+    describeModelResponse_trainingDataStartTime,+    describeModelResponse_trainingExecutionEndTime,+    describeModelResponse_trainingExecutionStartTime,+    describeModelResponse_httpStatus,++    -- ** ListDataIngestionJobs+    listDataIngestionJobs_datasetName,+    listDataIngestionJobs_maxResults,+    listDataIngestionJobs_nextToken,+    listDataIngestionJobs_status,+    listDataIngestionJobsResponse_dataIngestionJobSummaries,+    listDataIngestionJobsResponse_nextToken,+    listDataIngestionJobsResponse_httpStatus,++    -- ** ListDatasets+    listDatasets_datasetNameBeginsWith,+    listDatasets_maxResults,+    listDatasets_nextToken,+    listDatasetsResponse_datasetSummaries,+    listDatasetsResponse_nextToken,+    listDatasetsResponse_httpStatus,++    -- ** ListInferenceEvents+    listInferenceEvents_maxResults,+    listInferenceEvents_nextToken,+    listInferenceEvents_inferenceSchedulerName,+    listInferenceEvents_intervalStartTime,+    listInferenceEvents_intervalEndTime,+    listInferenceEventsResponse_inferenceEventSummaries,+    listInferenceEventsResponse_nextToken,+    listInferenceEventsResponse_httpStatus,++    -- ** ListInferenceExecutions+    listInferenceExecutions_dataEndTimeBefore,+    listInferenceExecutions_dataStartTimeAfter,+    listInferenceExecutions_maxResults,+    listInferenceExecutions_nextToken,+    listInferenceExecutions_status,+    listInferenceExecutions_inferenceSchedulerName,+    listInferenceExecutionsResponse_inferenceExecutionSummaries,+    listInferenceExecutionsResponse_nextToken,+    listInferenceExecutionsResponse_httpStatus,++    -- ** ListInferenceSchedulers+    listInferenceSchedulers_inferenceSchedulerNameBeginsWith,+    listInferenceSchedulers_maxResults,+    listInferenceSchedulers_modelName,+    listInferenceSchedulers_nextToken,+    listInferenceSchedulers_status,+    listInferenceSchedulersResponse_inferenceSchedulerSummaries,+    listInferenceSchedulersResponse_nextToken,+    listInferenceSchedulersResponse_httpStatus,++    -- ** ListLabelGroups+    listLabelGroups_labelGroupNameBeginsWith,+    listLabelGroups_maxResults,+    listLabelGroups_nextToken,+    listLabelGroupsResponse_labelGroupSummaries,+    listLabelGroupsResponse_nextToken,+    listLabelGroupsResponse_httpStatus,++    -- ** ListLabels+    listLabels_equipment,+    listLabels_faultCode,+    listLabels_intervalEndTime,+    listLabels_intervalStartTime,+    listLabels_maxResults,+    listLabels_nextToken,+    listLabels_labelGroupName,+    listLabelsResponse_labelSummaries,+    listLabelsResponse_nextToken,+    listLabelsResponse_httpStatus,++    -- ** ListModels+    listModels_datasetNameBeginsWith,+    listModels_maxResults,+    listModels_modelNameBeginsWith,+    listModels_nextToken,+    listModels_status,+    listModelsResponse_modelSummaries,+    listModelsResponse_nextToken,+    listModelsResponse_httpStatus,++    -- ** ListSensorStatistics+    listSensorStatistics_ingestionJobId,+    listSensorStatistics_maxResults,+    listSensorStatistics_nextToken,+    listSensorStatistics_datasetName,+    listSensorStatisticsResponse_nextToken,+    listSensorStatisticsResponse_sensorStatisticsSummaries,+    listSensorStatisticsResponse_httpStatus,++    -- ** ListTagsForResource+    listTagsForResource_resourceArn,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** StartDataIngestionJob+    startDataIngestionJob_datasetName,+    startDataIngestionJob_ingestionInputConfiguration,+    startDataIngestionJob_roleArn,+    startDataIngestionJob_clientToken,+    startDataIngestionJobResponse_jobId,+    startDataIngestionJobResponse_status,+    startDataIngestionJobResponse_httpStatus,++    -- ** StartInferenceScheduler+    startInferenceScheduler_inferenceSchedulerName,+    startInferenceSchedulerResponse_inferenceSchedulerArn,+    startInferenceSchedulerResponse_inferenceSchedulerName,+    startInferenceSchedulerResponse_modelArn,+    startInferenceSchedulerResponse_modelName,+    startInferenceSchedulerResponse_status,+    startInferenceSchedulerResponse_httpStatus,++    -- ** StopInferenceScheduler+    stopInferenceScheduler_inferenceSchedulerName,+    stopInferenceSchedulerResponse_inferenceSchedulerArn,+    stopInferenceSchedulerResponse_inferenceSchedulerName,+    stopInferenceSchedulerResponse_modelArn,+    stopInferenceSchedulerResponse_modelName,+    stopInferenceSchedulerResponse_status,+    stopInferenceSchedulerResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceArn,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceArn,+    untagResource_tagKeys,+    untagResourceResponse_httpStatus,++    -- ** UpdateInferenceScheduler+    updateInferenceScheduler_dataDelayOffsetInMinutes,+    updateInferenceScheduler_dataInputConfiguration,+    updateInferenceScheduler_dataOutputConfiguration,+    updateInferenceScheduler_dataUploadFrequency,+    updateInferenceScheduler_roleArn,+    updateInferenceScheduler_inferenceSchedulerName,++    -- ** UpdateLabelGroup+    updateLabelGroup_faultCodes,+    updateLabelGroup_labelGroupName,++    -- * Types++    -- ** CategoricalValues+    categoricalValues_numberOfCategory,+    categoricalValues_status,++    -- ** CountPercent+    countPercent_count,+    countPercent_percentage,++    -- ** DataIngestionJobSummary+    dataIngestionJobSummary_datasetArn,+    dataIngestionJobSummary_datasetName,+    dataIngestionJobSummary_ingestionInputConfiguration,+    dataIngestionJobSummary_jobId,+    dataIngestionJobSummary_status,++    -- ** DataPreProcessingConfiguration+    dataPreProcessingConfiguration_targetSamplingRate,++    -- ** DataQualitySummary+    dataQualitySummary_insufficientSensorData,+    dataQualitySummary_missingSensorData,+    dataQualitySummary_invalidSensorData,+    dataQualitySummary_unsupportedTimestamps,+    dataQualitySummary_duplicateTimestamps,++    -- ** DatasetSchema+    datasetSchema_inlineDataSchema,++    -- ** DatasetSummary+    datasetSummary_createdAt,+    datasetSummary_datasetArn,+    datasetSummary_datasetName,+    datasetSummary_status,++    -- ** DuplicateTimestamps+    duplicateTimestamps_totalNumberOfDuplicateTimestamps,++    -- ** InferenceEventSummary+    inferenceEventSummary_diagnostics,+    inferenceEventSummary_eventDurationInSeconds,+    inferenceEventSummary_eventEndTime,+    inferenceEventSummary_eventStartTime,+    inferenceEventSummary_inferenceSchedulerArn,+    inferenceEventSummary_inferenceSchedulerName,++    -- ** InferenceExecutionSummary+    inferenceExecutionSummary_customerResultObject,+    inferenceExecutionSummary_dataEndTime,+    inferenceExecutionSummary_dataInputConfiguration,+    inferenceExecutionSummary_dataOutputConfiguration,+    inferenceExecutionSummary_dataStartTime,+    inferenceExecutionSummary_failedReason,+    inferenceExecutionSummary_inferenceSchedulerArn,+    inferenceExecutionSummary_inferenceSchedulerName,+    inferenceExecutionSummary_modelArn,+    inferenceExecutionSummary_modelName,+    inferenceExecutionSummary_scheduledStartTime,+    inferenceExecutionSummary_status,++    -- ** InferenceInputConfiguration+    inferenceInputConfiguration_inferenceInputNameConfiguration,+    inferenceInputConfiguration_inputTimeZoneOffset,+    inferenceInputConfiguration_s3InputConfiguration,++    -- ** InferenceInputNameConfiguration+    inferenceInputNameConfiguration_componentTimestampDelimiter,+    inferenceInputNameConfiguration_timestampFormat,++    -- ** InferenceOutputConfiguration+    inferenceOutputConfiguration_kmsKeyId,+    inferenceOutputConfiguration_s3OutputConfiguration,++    -- ** InferenceS3InputConfiguration+    inferenceS3InputConfiguration_prefix,+    inferenceS3InputConfiguration_bucket,++    -- ** InferenceS3OutputConfiguration+    inferenceS3OutputConfiguration_prefix,+    inferenceS3OutputConfiguration_bucket,++    -- ** InferenceSchedulerSummary+    inferenceSchedulerSummary_dataDelayOffsetInMinutes,+    inferenceSchedulerSummary_dataUploadFrequency,+    inferenceSchedulerSummary_inferenceSchedulerArn,+    inferenceSchedulerSummary_inferenceSchedulerName,+    inferenceSchedulerSummary_latestInferenceResult,+    inferenceSchedulerSummary_modelArn,+    inferenceSchedulerSummary_modelName,+    inferenceSchedulerSummary_status,++    -- ** IngestedFilesSummary+    ingestedFilesSummary_discardedFiles,+    ingestedFilesSummary_totalNumberOfFiles,+    ingestedFilesSummary_ingestedNumberOfFiles,++    -- ** IngestionInputConfiguration+    ingestionInputConfiguration_s3InputConfiguration,++    -- ** IngestionS3InputConfiguration+    ingestionS3InputConfiguration_keyPattern,+    ingestionS3InputConfiguration_prefix,+    ingestionS3InputConfiguration_bucket,++    -- ** InsufficientSensorData+    insufficientSensorData_missingCompleteSensorData,+    insufficientSensorData_sensorsWithShortDateRange,++    -- ** InvalidSensorData+    invalidSensorData_affectedSensorCount,+    invalidSensorData_totalNumberOfInvalidValues,++    -- ** LabelGroupSummary+    labelGroupSummary_createdAt,+    labelGroupSummary_labelGroupArn,+    labelGroupSummary_labelGroupName,+    labelGroupSummary_updatedAt,++    -- ** LabelSummary+    labelSummary_createdAt,+    labelSummary_endTime,+    labelSummary_equipment,+    labelSummary_faultCode,+    labelSummary_labelGroupArn,+    labelSummary_labelGroupName,+    labelSummary_labelId,+    labelSummary_rating,+    labelSummary_startTime,++    -- ** LabelsInputConfiguration+    labelsInputConfiguration_labelGroupName,+    labelsInputConfiguration_s3InputConfiguration,++    -- ** LabelsS3InputConfiguration+    labelsS3InputConfiguration_prefix,+    labelsS3InputConfiguration_bucket,++    -- ** LargeTimestampGaps+    largeTimestampGaps_maxTimestampGapInDays,+    largeTimestampGaps_numberOfLargeTimestampGaps,+    largeTimestampGaps_status,++    -- ** MissingCompleteSensorData+    missingCompleteSensorData_affectedSensorCount,++    -- ** MissingSensorData+    missingSensorData_affectedSensorCount,+    missingSensorData_totalNumberOfMissingValues,++    -- ** ModelSummary+    modelSummary_createdAt,+    modelSummary_datasetArn,+    modelSummary_datasetName,+    modelSummary_modelArn,+    modelSummary_modelName,+    modelSummary_status,++    -- ** MonotonicValues+    monotonicValues_monotonicity,+    monotonicValues_status,++    -- ** MultipleOperatingModes+    multipleOperatingModes_status,++    -- ** S3Object+    s3Object_bucket,+    s3Object_key,++    -- ** SensorStatisticsSummary+    sensorStatisticsSummary_categoricalValues,+    sensorStatisticsSummary_componentName,+    sensorStatisticsSummary_dataEndTime,+    sensorStatisticsSummary_dataExists,+    sensorStatisticsSummary_dataStartTime,+    sensorStatisticsSummary_duplicateTimestamps,+    sensorStatisticsSummary_invalidDateEntries,+    sensorStatisticsSummary_invalidValues,+    sensorStatisticsSummary_largeTimestampGaps,+    sensorStatisticsSummary_missingValues,+    sensorStatisticsSummary_monotonicValues,+    sensorStatisticsSummary_multipleOperatingModes,+    sensorStatisticsSummary_sensorName,++    -- ** SensorsWithShortDateRange+    sensorsWithShortDateRange_affectedSensorCount,++    -- ** Tag+    tag_key,+    tag_value,++    -- ** UnsupportedTimestamps+    unsupportedTimestamps_totalNumberOfUnsupportedTimestamps,+  )+where++import Amazonka.LookoutEquipment.CreateDataset+import Amazonka.LookoutEquipment.CreateInferenceScheduler+import Amazonka.LookoutEquipment.CreateLabel+import Amazonka.LookoutEquipment.CreateLabelGroup+import Amazonka.LookoutEquipment.CreateModel+import Amazonka.LookoutEquipment.DeleteDataset+import Amazonka.LookoutEquipment.DeleteInferenceScheduler+import Amazonka.LookoutEquipment.DeleteLabel+import Amazonka.LookoutEquipment.DeleteLabelGroup+import Amazonka.LookoutEquipment.DeleteModel+import Amazonka.LookoutEquipment.DescribeDataIngestionJob+import Amazonka.LookoutEquipment.DescribeDataset+import Amazonka.LookoutEquipment.DescribeInferenceScheduler+import Amazonka.LookoutEquipment.DescribeLabel+import Amazonka.LookoutEquipment.DescribeLabelGroup+import Amazonka.LookoutEquipment.DescribeModel+import Amazonka.LookoutEquipment.ListDataIngestionJobs+import Amazonka.LookoutEquipment.ListDatasets+import Amazonka.LookoutEquipment.ListInferenceEvents+import Amazonka.LookoutEquipment.ListInferenceExecutions+import Amazonka.LookoutEquipment.ListInferenceSchedulers+import Amazonka.LookoutEquipment.ListLabelGroups+import Amazonka.LookoutEquipment.ListLabels+import Amazonka.LookoutEquipment.ListModels+import Amazonka.LookoutEquipment.ListSensorStatistics+import Amazonka.LookoutEquipment.ListTagsForResource+import Amazonka.LookoutEquipment.StartDataIngestionJob+import Amazonka.LookoutEquipment.StartInferenceScheduler+import Amazonka.LookoutEquipment.StopInferenceScheduler+import Amazonka.LookoutEquipment.TagResource+import Amazonka.LookoutEquipment.Types.CategoricalValues+import Amazonka.LookoutEquipment.Types.CountPercent+import Amazonka.LookoutEquipment.Types.DataIngestionJobSummary+import Amazonka.LookoutEquipment.Types.DataPreProcessingConfiguration+import Amazonka.LookoutEquipment.Types.DataQualitySummary+import Amazonka.LookoutEquipment.Types.DatasetSchema+import Amazonka.LookoutEquipment.Types.DatasetSummary+import Amazonka.LookoutEquipment.Types.DuplicateTimestamps+import Amazonka.LookoutEquipment.Types.InferenceEventSummary+import Amazonka.LookoutEquipment.Types.InferenceExecutionSummary+import Amazonka.LookoutEquipment.Types.InferenceInputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceInputNameConfiguration+import Amazonka.LookoutEquipment.Types.InferenceOutputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceS3InputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceS3OutputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceSchedulerSummary+import Amazonka.LookoutEquipment.Types.IngestedFilesSummary+import Amazonka.LookoutEquipment.Types.IngestionInputConfiguration+import Amazonka.LookoutEquipment.Types.IngestionS3InputConfiguration+import Amazonka.LookoutEquipment.Types.InsufficientSensorData+import Amazonka.LookoutEquipment.Types.InvalidSensorData+import Amazonka.LookoutEquipment.Types.LabelGroupSummary+import Amazonka.LookoutEquipment.Types.LabelSummary+import Amazonka.LookoutEquipment.Types.LabelsInputConfiguration+import Amazonka.LookoutEquipment.Types.LabelsS3InputConfiguration+import Amazonka.LookoutEquipment.Types.LargeTimestampGaps+import Amazonka.LookoutEquipment.Types.MissingCompleteSensorData+import Amazonka.LookoutEquipment.Types.MissingSensorData+import Amazonka.LookoutEquipment.Types.ModelSummary+import Amazonka.LookoutEquipment.Types.MonotonicValues+import Amazonka.LookoutEquipment.Types.MultipleOperatingModes+import Amazonka.LookoutEquipment.Types.S3Object+import Amazonka.LookoutEquipment.Types.SensorStatisticsSummary+import Amazonka.LookoutEquipment.Types.SensorsWithShortDateRange+import Amazonka.LookoutEquipment.Types.Tag+import Amazonka.LookoutEquipment.Types.UnsupportedTimestamps+import Amazonka.LookoutEquipment.UntagResource+import Amazonka.LookoutEquipment.UpdateInferenceScheduler+import Amazonka.LookoutEquipment.UpdateLabelGroup
+ gen/Amazonka/LookoutEquipment/ListDataIngestionJobs.hs view
@@ -0,0 +1,236 @@+{-# 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.LookoutEquipment.ListDataIngestionJobs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a list of all data ingestion jobs, including dataset name and+-- ARN, S3 location of the input data, status, and so on.+module Amazonka.LookoutEquipment.ListDataIngestionJobs+  ( -- * Creating a Request+    ListDataIngestionJobs (..),+    newListDataIngestionJobs,++    -- * Request Lenses+    listDataIngestionJobs_datasetName,+    listDataIngestionJobs_maxResults,+    listDataIngestionJobs_nextToken,+    listDataIngestionJobs_status,++    -- * Destructuring the Response+    ListDataIngestionJobsResponse (..),+    newListDataIngestionJobsResponse,++    -- * Response Lenses+    listDataIngestionJobsResponse_dataIngestionJobSummaries,+    listDataIngestionJobsResponse_nextToken,+    listDataIngestionJobsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListDataIngestionJobs' smart constructor.+data ListDataIngestionJobs = ListDataIngestionJobs'+  { -- | The name of the dataset being used for the data ingestion job.+    datasetName :: Prelude.Maybe Prelude.Text,+    -- | Specifies the maximum number of data ingestion jobs to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | An opaque pagination token indicating where to continue the listing of+    -- data ingestion jobs.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the data ingestion job.+    status :: Prelude.Maybe IngestionJobStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDataIngestionJobs' 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:+--+-- 'datasetName', 'listDataIngestionJobs_datasetName' - The name of the dataset being used for the data ingestion job.+--+-- 'maxResults', 'listDataIngestionJobs_maxResults' - Specifies the maximum number of data ingestion jobs to list.+--+-- 'nextToken', 'listDataIngestionJobs_nextToken' - An opaque pagination token indicating where to continue the listing of+-- data ingestion jobs.+--+-- 'status', 'listDataIngestionJobs_status' - Indicates the status of the data ingestion job.+newListDataIngestionJobs ::+  ListDataIngestionJobs+newListDataIngestionJobs =+  ListDataIngestionJobs'+    { datasetName =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The name of the dataset being used for the data ingestion job.+listDataIngestionJobs_datasetName :: Lens.Lens' ListDataIngestionJobs (Prelude.Maybe Prelude.Text)+listDataIngestionJobs_datasetName = Lens.lens (\ListDataIngestionJobs' {datasetName} -> datasetName) (\s@ListDataIngestionJobs' {} a -> s {datasetName = a} :: ListDataIngestionJobs)++-- | Specifies the maximum number of data ingestion jobs to list.+listDataIngestionJobs_maxResults :: Lens.Lens' ListDataIngestionJobs (Prelude.Maybe Prelude.Natural)+listDataIngestionJobs_maxResults = Lens.lens (\ListDataIngestionJobs' {maxResults} -> maxResults) (\s@ListDataIngestionJobs' {} a -> s {maxResults = a} :: ListDataIngestionJobs)++-- | An opaque pagination token indicating where to continue the listing of+-- data ingestion jobs.+listDataIngestionJobs_nextToken :: Lens.Lens' ListDataIngestionJobs (Prelude.Maybe Prelude.Text)+listDataIngestionJobs_nextToken = Lens.lens (\ListDataIngestionJobs' {nextToken} -> nextToken) (\s@ListDataIngestionJobs' {} a -> s {nextToken = a} :: ListDataIngestionJobs)++-- | Indicates the status of the data ingestion job.+listDataIngestionJobs_status :: Lens.Lens' ListDataIngestionJobs (Prelude.Maybe IngestionJobStatus)+listDataIngestionJobs_status = Lens.lens (\ListDataIngestionJobs' {status} -> status) (\s@ListDataIngestionJobs' {} a -> s {status = a} :: ListDataIngestionJobs)++instance Core.AWSRequest ListDataIngestionJobs where+  type+    AWSResponse ListDataIngestionJobs =+      ListDataIngestionJobsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListDataIngestionJobsResponse'+            Prelude.<$> ( x+                            Data..?> "DataIngestionJobSummaries"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListDataIngestionJobs where+  hashWithSalt _salt ListDataIngestionJobs' {..} =+    _salt+      `Prelude.hashWithSalt` datasetName+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` status++instance Prelude.NFData ListDataIngestionJobs where+  rnf ListDataIngestionJobs' {..} =+    Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf status++instance Data.ToHeaders ListDataIngestionJobs where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListDataIngestionJobs" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListDataIngestionJobs where+  toJSON ListDataIngestionJobs' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DatasetName" Data..=) Prelude.<$> datasetName,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Status" Data..=) Prelude.<$> status+          ]+      )++instance Data.ToPath ListDataIngestionJobs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListDataIngestionJobs where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListDataIngestionJobsResponse' smart constructor.+data ListDataIngestionJobsResponse = ListDataIngestionJobsResponse'+  { -- | Specifies information about the specific data ingestion job, including+    -- dataset name and status.+    dataIngestionJobSummaries :: Prelude.Maybe [DataIngestionJobSummary],+    -- | An opaque pagination token indicating where to continue the listing of+    -- data ingestion jobs.+    nextToken :: 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 'ListDataIngestionJobsResponse' 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:+--+-- 'dataIngestionJobSummaries', 'listDataIngestionJobsResponse_dataIngestionJobSummaries' - Specifies information about the specific data ingestion job, including+-- dataset name and status.+--+-- 'nextToken', 'listDataIngestionJobsResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- data ingestion jobs.+--+-- 'httpStatus', 'listDataIngestionJobsResponse_httpStatus' - The response's http status code.+newListDataIngestionJobsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListDataIngestionJobsResponse+newListDataIngestionJobsResponse pHttpStatus_ =+  ListDataIngestionJobsResponse'+    { dataIngestionJobSummaries =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Specifies information about the specific data ingestion job, including+-- dataset name and status.+listDataIngestionJobsResponse_dataIngestionJobSummaries :: Lens.Lens' ListDataIngestionJobsResponse (Prelude.Maybe [DataIngestionJobSummary])+listDataIngestionJobsResponse_dataIngestionJobSummaries = Lens.lens (\ListDataIngestionJobsResponse' {dataIngestionJobSummaries} -> dataIngestionJobSummaries) (\s@ListDataIngestionJobsResponse' {} a -> s {dataIngestionJobSummaries = a} :: ListDataIngestionJobsResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque pagination token indicating where to continue the listing of+-- data ingestion jobs.+listDataIngestionJobsResponse_nextToken :: Lens.Lens' ListDataIngestionJobsResponse (Prelude.Maybe Prelude.Text)+listDataIngestionJobsResponse_nextToken = Lens.lens (\ListDataIngestionJobsResponse' {nextToken} -> nextToken) (\s@ListDataIngestionJobsResponse' {} a -> s {nextToken = a} :: ListDataIngestionJobsResponse)++-- | The response's http status code.+listDataIngestionJobsResponse_httpStatus :: Lens.Lens' ListDataIngestionJobsResponse Prelude.Int+listDataIngestionJobsResponse_httpStatus = Lens.lens (\ListDataIngestionJobsResponse' {httpStatus} -> httpStatus) (\s@ListDataIngestionJobsResponse' {} a -> s {httpStatus = a} :: ListDataIngestionJobsResponse)++instance Prelude.NFData ListDataIngestionJobsResponse where+  rnf ListDataIngestionJobsResponse' {..} =+    Prelude.rnf dataIngestionJobSummaries+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListDatasets.hs view
@@ -0,0 +1,222 @@+{-# 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.LookoutEquipment.ListDatasets+-- 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 all datasets currently available in your account, filtering on the+-- dataset name.+module Amazonka.LookoutEquipment.ListDatasets+  ( -- * Creating a Request+    ListDatasets (..),+    newListDatasets,++    -- * Request Lenses+    listDatasets_datasetNameBeginsWith,+    listDatasets_maxResults,+    listDatasets_nextToken,++    -- * Destructuring the Response+    ListDatasetsResponse (..),+    newListDatasetsResponse,++    -- * Response Lenses+    listDatasetsResponse_datasetSummaries,+    listDatasetsResponse_nextToken,+    listDatasetsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListDatasets' smart constructor.+data ListDatasets = ListDatasets'+  { -- | The beginning of the name of the datasets to be listed.+    datasetNameBeginsWith :: Prelude.Maybe Prelude.Text,+    -- | Specifies the maximum number of datasets to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | An opaque pagination token indicating where to continue the listing of+    -- datasets.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDatasets' 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:+--+-- 'datasetNameBeginsWith', 'listDatasets_datasetNameBeginsWith' - The beginning of the name of the datasets to be listed.+--+-- 'maxResults', 'listDatasets_maxResults' - Specifies the maximum number of datasets to list.+--+-- 'nextToken', 'listDatasets_nextToken' - An opaque pagination token indicating where to continue the listing of+-- datasets.+newListDatasets ::+  ListDatasets+newListDatasets =+  ListDatasets'+    { datasetNameBeginsWith =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The beginning of the name of the datasets to be listed.+listDatasets_datasetNameBeginsWith :: Lens.Lens' ListDatasets (Prelude.Maybe Prelude.Text)+listDatasets_datasetNameBeginsWith = Lens.lens (\ListDatasets' {datasetNameBeginsWith} -> datasetNameBeginsWith) (\s@ListDatasets' {} a -> s {datasetNameBeginsWith = a} :: ListDatasets)++-- | Specifies the maximum number of datasets to list.+listDatasets_maxResults :: Lens.Lens' ListDatasets (Prelude.Maybe Prelude.Natural)+listDatasets_maxResults = Lens.lens (\ListDatasets' {maxResults} -> maxResults) (\s@ListDatasets' {} a -> s {maxResults = a} :: ListDatasets)++-- | An opaque pagination token indicating where to continue the listing of+-- datasets.+listDatasets_nextToken :: Lens.Lens' ListDatasets (Prelude.Maybe Prelude.Text)+listDatasets_nextToken = Lens.lens (\ListDatasets' {nextToken} -> nextToken) (\s@ListDatasets' {} a -> s {nextToken = a} :: ListDatasets)++instance Core.AWSRequest ListDatasets where+  type AWSResponse ListDatasets = ListDatasetsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListDatasetsResponse'+            Prelude.<$> ( x+                            Data..?> "DatasetSummaries"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListDatasets where+  hashWithSalt _salt ListDatasets' {..} =+    _salt+      `Prelude.hashWithSalt` datasetNameBeginsWith+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListDatasets where+  rnf ListDatasets' {..} =+    Prelude.rnf datasetNameBeginsWith+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListDatasets where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListDatasets" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListDatasets where+  toJSON ListDatasets' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DatasetNameBeginsWith" Data..=)+              Prelude.<$> datasetNameBeginsWith,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListDatasets where+  toPath = Prelude.const "/"++instance Data.ToQuery ListDatasets where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListDatasetsResponse' smart constructor.+data ListDatasetsResponse = ListDatasetsResponse'+  { -- | Provides information about the specified dataset, including creation+    -- time, dataset ARN, and status.+    datasetSummaries :: Prelude.Maybe [DatasetSummary],+    -- | An opaque pagination token indicating where to continue the listing of+    -- datasets.+    nextToken :: 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 'ListDatasetsResponse' 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:+--+-- 'datasetSummaries', 'listDatasetsResponse_datasetSummaries' - Provides information about the specified dataset, including creation+-- time, dataset ARN, and status.+--+-- 'nextToken', 'listDatasetsResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- datasets.+--+-- 'httpStatus', 'listDatasetsResponse_httpStatus' - The response's http status code.+newListDatasetsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListDatasetsResponse+newListDatasetsResponse pHttpStatus_ =+  ListDatasetsResponse'+    { datasetSummaries =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides information about the specified dataset, including creation+-- time, dataset ARN, and status.+listDatasetsResponse_datasetSummaries :: Lens.Lens' ListDatasetsResponse (Prelude.Maybe [DatasetSummary])+listDatasetsResponse_datasetSummaries = Lens.lens (\ListDatasetsResponse' {datasetSummaries} -> datasetSummaries) (\s@ListDatasetsResponse' {} a -> s {datasetSummaries = a} :: ListDatasetsResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque pagination token indicating where to continue the listing of+-- datasets.+listDatasetsResponse_nextToken :: Lens.Lens' ListDatasetsResponse (Prelude.Maybe Prelude.Text)+listDatasetsResponse_nextToken = Lens.lens (\ListDatasetsResponse' {nextToken} -> nextToken) (\s@ListDatasetsResponse' {} a -> s {nextToken = a} :: ListDatasetsResponse)++-- | The response's http status code.+listDatasetsResponse_httpStatus :: Lens.Lens' ListDatasetsResponse Prelude.Int+listDatasetsResponse_httpStatus = Lens.lens (\ListDatasetsResponse' {httpStatus} -> httpStatus) (\s@ListDatasetsResponse' {} a -> s {httpStatus = a} :: ListDatasetsResponse)++instance Prelude.NFData ListDatasetsResponse where+  rnf ListDatasetsResponse' {..} =+    Prelude.rnf datasetSummaries+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListInferenceEvents.hs view
@@ -0,0 +1,273 @@+{-# 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.LookoutEquipment.ListInferenceEvents+-- 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 all inference events that have been found for the specified+-- inference scheduler.+module Amazonka.LookoutEquipment.ListInferenceEvents+  ( -- * Creating a Request+    ListInferenceEvents (..),+    newListInferenceEvents,++    -- * Request Lenses+    listInferenceEvents_maxResults,+    listInferenceEvents_nextToken,+    listInferenceEvents_inferenceSchedulerName,+    listInferenceEvents_intervalStartTime,+    listInferenceEvents_intervalEndTime,++    -- * Destructuring the Response+    ListInferenceEventsResponse (..),+    newListInferenceEventsResponse,++    -- * Response Lenses+    listInferenceEventsResponse_inferenceEventSummaries,+    listInferenceEventsResponse_nextToken,+    listInferenceEventsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListInferenceEvents' smart constructor.+data ListInferenceEvents = ListInferenceEvents'+  { -- | Specifies the maximum number of inference events to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | An opaque pagination token indicating where to continue the listing of+    -- inference events.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the inference scheduler for the inference events listed.+    inferenceSchedulerName :: Prelude.Text,+    -- | Lookout for Equipment will return all the inference events with an end+    -- time equal to or greater than the start time given.+    intervalStartTime :: Data.POSIX,+    -- | Returns all the inference events with an end start time equal to or+    -- greater than less than the end time given+    intervalEndTime :: Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListInferenceEvents' 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', 'listInferenceEvents_maxResults' - Specifies the maximum number of inference events to list.+--+-- 'nextToken', 'listInferenceEvents_nextToken' - An opaque pagination token indicating where to continue the listing of+-- inference events.+--+-- 'inferenceSchedulerName', 'listInferenceEvents_inferenceSchedulerName' - The name of the inference scheduler for the inference events listed.+--+-- 'intervalStartTime', 'listInferenceEvents_intervalStartTime' - Lookout for Equipment will return all the inference events with an end+-- time equal to or greater than the start time given.+--+-- 'intervalEndTime', 'listInferenceEvents_intervalEndTime' - Returns all the inference events with an end start time equal to or+-- greater than less than the end time given+newListInferenceEvents ::+  -- | 'inferenceSchedulerName'+  Prelude.Text ->+  -- | 'intervalStartTime'+  Prelude.UTCTime ->+  -- | 'intervalEndTime'+  Prelude.UTCTime ->+  ListInferenceEvents+newListInferenceEvents+  pInferenceSchedulerName_+  pIntervalStartTime_+  pIntervalEndTime_ =+    ListInferenceEvents'+      { maxResults = Prelude.Nothing,+        nextToken = Prelude.Nothing,+        inferenceSchedulerName = pInferenceSchedulerName_,+        intervalStartTime =+          Data._Time Lens.# pIntervalStartTime_,+        intervalEndTime =+          Data._Time Lens.# pIntervalEndTime_+      }++-- | Specifies the maximum number of inference events to list.+listInferenceEvents_maxResults :: Lens.Lens' ListInferenceEvents (Prelude.Maybe Prelude.Natural)+listInferenceEvents_maxResults = Lens.lens (\ListInferenceEvents' {maxResults} -> maxResults) (\s@ListInferenceEvents' {} a -> s {maxResults = a} :: ListInferenceEvents)++-- | An opaque pagination token indicating where to continue the listing of+-- inference events.+listInferenceEvents_nextToken :: Lens.Lens' ListInferenceEvents (Prelude.Maybe Prelude.Text)+listInferenceEvents_nextToken = Lens.lens (\ListInferenceEvents' {nextToken} -> nextToken) (\s@ListInferenceEvents' {} a -> s {nextToken = a} :: ListInferenceEvents)++-- | The name of the inference scheduler for the inference events listed.+listInferenceEvents_inferenceSchedulerName :: Lens.Lens' ListInferenceEvents Prelude.Text+listInferenceEvents_inferenceSchedulerName = Lens.lens (\ListInferenceEvents' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@ListInferenceEvents' {} a -> s {inferenceSchedulerName = a} :: ListInferenceEvents)++-- | Lookout for Equipment will return all the inference events with an end+-- time equal to or greater than the start time given.+listInferenceEvents_intervalStartTime :: Lens.Lens' ListInferenceEvents Prelude.UTCTime+listInferenceEvents_intervalStartTime = Lens.lens (\ListInferenceEvents' {intervalStartTime} -> intervalStartTime) (\s@ListInferenceEvents' {} a -> s {intervalStartTime = a} :: ListInferenceEvents) Prelude.. Data._Time++-- | Returns all the inference events with an end start time equal to or+-- greater than less than the end time given+listInferenceEvents_intervalEndTime :: Lens.Lens' ListInferenceEvents Prelude.UTCTime+listInferenceEvents_intervalEndTime = Lens.lens (\ListInferenceEvents' {intervalEndTime} -> intervalEndTime) (\s@ListInferenceEvents' {} a -> s {intervalEndTime = a} :: ListInferenceEvents) Prelude.. Data._Time++instance Core.AWSRequest ListInferenceEvents where+  type+    AWSResponse ListInferenceEvents =+      ListInferenceEventsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListInferenceEventsResponse'+            Prelude.<$> ( x+                            Data..?> "InferenceEventSummaries"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListInferenceEvents where+  hashWithSalt _salt ListInferenceEvents' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` inferenceSchedulerName+      `Prelude.hashWithSalt` intervalStartTime+      `Prelude.hashWithSalt` intervalEndTime++instance Prelude.NFData ListInferenceEvents where+  rnf ListInferenceEvents' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf inferenceSchedulerName+      `Prelude.seq` Prelude.rnf intervalStartTime+      `Prelude.seq` Prelude.rnf intervalEndTime++instance Data.ToHeaders ListInferenceEvents where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListInferenceEvents" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListInferenceEvents where+  toJSON ListInferenceEvents' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ( "InferenceSchedulerName"+                  Data..= inferenceSchedulerName+              ),+            Prelude.Just+              ("IntervalStartTime" Data..= intervalStartTime),+            Prelude.Just+              ("IntervalEndTime" Data..= intervalEndTime)+          ]+      )++instance Data.ToPath ListInferenceEvents where+  toPath = Prelude.const "/"++instance Data.ToQuery ListInferenceEvents where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListInferenceEventsResponse' smart constructor.+data ListInferenceEventsResponse = ListInferenceEventsResponse'+  { -- | Provides an array of information about the individual inference events+    -- returned from the @ListInferenceEvents@ operation, including scheduler+    -- used, event start time, event end time, diagnostics, and so on.+    inferenceEventSummaries :: Prelude.Maybe [InferenceEventSummary],+    -- | An opaque pagination token indicating where to continue the listing of+    -- inference executions.+    nextToken :: 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 'ListInferenceEventsResponse' 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:+--+-- 'inferenceEventSummaries', 'listInferenceEventsResponse_inferenceEventSummaries' - Provides an array of information about the individual inference events+-- returned from the @ListInferenceEvents@ operation, including scheduler+-- used, event start time, event end time, diagnostics, and so on.+--+-- 'nextToken', 'listInferenceEventsResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- inference executions.+--+-- 'httpStatus', 'listInferenceEventsResponse_httpStatus' - The response's http status code.+newListInferenceEventsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListInferenceEventsResponse+newListInferenceEventsResponse pHttpStatus_ =+  ListInferenceEventsResponse'+    { inferenceEventSummaries =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides an array of information about the individual inference events+-- returned from the @ListInferenceEvents@ operation, including scheduler+-- used, event start time, event end time, diagnostics, and so on.+listInferenceEventsResponse_inferenceEventSummaries :: Lens.Lens' ListInferenceEventsResponse (Prelude.Maybe [InferenceEventSummary])+listInferenceEventsResponse_inferenceEventSummaries = Lens.lens (\ListInferenceEventsResponse' {inferenceEventSummaries} -> inferenceEventSummaries) (\s@ListInferenceEventsResponse' {} a -> s {inferenceEventSummaries = a} :: ListInferenceEventsResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque pagination token indicating where to continue the listing of+-- inference executions.+listInferenceEventsResponse_nextToken :: Lens.Lens' ListInferenceEventsResponse (Prelude.Maybe Prelude.Text)+listInferenceEventsResponse_nextToken = Lens.lens (\ListInferenceEventsResponse' {nextToken} -> nextToken) (\s@ListInferenceEventsResponse' {} a -> s {nextToken = a} :: ListInferenceEventsResponse)++-- | The response's http status code.+listInferenceEventsResponse_httpStatus :: Lens.Lens' ListInferenceEventsResponse Prelude.Int+listInferenceEventsResponse_httpStatus = Lens.lens (\ListInferenceEventsResponse' {httpStatus} -> httpStatus) (\s@ListInferenceEventsResponse' {} a -> s {httpStatus = a} :: ListInferenceEventsResponse)++instance Prelude.NFData ListInferenceEventsResponse where+  rnf ListInferenceEventsResponse' {..} =+    Prelude.rnf inferenceEventSummaries+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListInferenceExecutions.hs view
@@ -0,0 +1,284 @@+{-# 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.LookoutEquipment.ListInferenceExecutions+-- 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 all inference executions that have been performed by the specified+-- inference scheduler.+module Amazonka.LookoutEquipment.ListInferenceExecutions+  ( -- * Creating a Request+    ListInferenceExecutions (..),+    newListInferenceExecutions,++    -- * Request Lenses+    listInferenceExecutions_dataEndTimeBefore,+    listInferenceExecutions_dataStartTimeAfter,+    listInferenceExecutions_maxResults,+    listInferenceExecutions_nextToken,+    listInferenceExecutions_status,+    listInferenceExecutions_inferenceSchedulerName,++    -- * Destructuring the Response+    ListInferenceExecutionsResponse (..),+    newListInferenceExecutionsResponse,++    -- * Response Lenses+    listInferenceExecutionsResponse_inferenceExecutionSummaries,+    listInferenceExecutionsResponse_nextToken,+    listInferenceExecutionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListInferenceExecutions' smart constructor.+data ListInferenceExecutions = ListInferenceExecutions'+  { -- | The time reference in the inferenced dataset before which Amazon Lookout+    -- for Equipment stopped the inference execution.+    dataEndTimeBefore :: Prelude.Maybe Data.POSIX,+    -- | The time reference in the inferenced dataset after which Amazon Lookout+    -- for Equipment started the inference execution.+    dataStartTimeAfter :: Prelude.Maybe Data.POSIX,+    -- | Specifies the maximum number of inference executions to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | An opaque pagination token indicating where to continue the listing of+    -- inference executions.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The status of the inference execution.+    status :: Prelude.Maybe InferenceExecutionStatus,+    -- | The name of the inference scheduler for the inference execution listed.+    inferenceSchedulerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListInferenceExecutions' 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:+--+-- 'dataEndTimeBefore', 'listInferenceExecutions_dataEndTimeBefore' - The time reference in the inferenced dataset before which Amazon Lookout+-- for Equipment stopped the inference execution.+--+-- 'dataStartTimeAfter', 'listInferenceExecutions_dataStartTimeAfter' - The time reference in the inferenced dataset after which Amazon Lookout+-- for Equipment started the inference execution.+--+-- 'maxResults', 'listInferenceExecutions_maxResults' - Specifies the maximum number of inference executions to list.+--+-- 'nextToken', 'listInferenceExecutions_nextToken' - An opaque pagination token indicating where to continue the listing of+-- inference executions.+--+-- 'status', 'listInferenceExecutions_status' - The status of the inference execution.+--+-- 'inferenceSchedulerName', 'listInferenceExecutions_inferenceSchedulerName' - The name of the inference scheduler for the inference execution listed.+newListInferenceExecutions ::+  -- | 'inferenceSchedulerName'+  Prelude.Text ->+  ListInferenceExecutions+newListInferenceExecutions pInferenceSchedulerName_ =+  ListInferenceExecutions'+    { dataEndTimeBefore =+        Prelude.Nothing,+      dataStartTimeAfter = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      status = Prelude.Nothing,+      inferenceSchedulerName = pInferenceSchedulerName_+    }++-- | The time reference in the inferenced dataset before which Amazon Lookout+-- for Equipment stopped the inference execution.+listInferenceExecutions_dataEndTimeBefore :: Lens.Lens' ListInferenceExecutions (Prelude.Maybe Prelude.UTCTime)+listInferenceExecutions_dataEndTimeBefore = Lens.lens (\ListInferenceExecutions' {dataEndTimeBefore} -> dataEndTimeBefore) (\s@ListInferenceExecutions' {} a -> s {dataEndTimeBefore = a} :: ListInferenceExecutions) Prelude.. Lens.mapping Data._Time++-- | The time reference in the inferenced dataset after which Amazon Lookout+-- for Equipment started the inference execution.+listInferenceExecutions_dataStartTimeAfter :: Lens.Lens' ListInferenceExecutions (Prelude.Maybe Prelude.UTCTime)+listInferenceExecutions_dataStartTimeAfter = Lens.lens (\ListInferenceExecutions' {dataStartTimeAfter} -> dataStartTimeAfter) (\s@ListInferenceExecutions' {} a -> s {dataStartTimeAfter = a} :: ListInferenceExecutions) Prelude.. Lens.mapping Data._Time++-- | Specifies the maximum number of inference executions to list.+listInferenceExecutions_maxResults :: Lens.Lens' ListInferenceExecutions (Prelude.Maybe Prelude.Natural)+listInferenceExecutions_maxResults = Lens.lens (\ListInferenceExecutions' {maxResults} -> maxResults) (\s@ListInferenceExecutions' {} a -> s {maxResults = a} :: ListInferenceExecutions)++-- | An opaque pagination token indicating where to continue the listing of+-- inference executions.+listInferenceExecutions_nextToken :: Lens.Lens' ListInferenceExecutions (Prelude.Maybe Prelude.Text)+listInferenceExecutions_nextToken = Lens.lens (\ListInferenceExecutions' {nextToken} -> nextToken) (\s@ListInferenceExecutions' {} a -> s {nextToken = a} :: ListInferenceExecutions)++-- | The status of the inference execution.+listInferenceExecutions_status :: Lens.Lens' ListInferenceExecutions (Prelude.Maybe InferenceExecutionStatus)+listInferenceExecutions_status = Lens.lens (\ListInferenceExecutions' {status} -> status) (\s@ListInferenceExecutions' {} a -> s {status = a} :: ListInferenceExecutions)++-- | The name of the inference scheduler for the inference execution listed.+listInferenceExecutions_inferenceSchedulerName :: Lens.Lens' ListInferenceExecutions Prelude.Text+listInferenceExecutions_inferenceSchedulerName = Lens.lens (\ListInferenceExecutions' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@ListInferenceExecutions' {} a -> s {inferenceSchedulerName = a} :: ListInferenceExecutions)++instance Core.AWSRequest ListInferenceExecutions where+  type+    AWSResponse ListInferenceExecutions =+      ListInferenceExecutionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListInferenceExecutionsResponse'+            Prelude.<$> ( x+                            Data..?> "InferenceExecutionSummaries"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListInferenceExecutions where+  hashWithSalt _salt ListInferenceExecutions' {..} =+    _salt+      `Prelude.hashWithSalt` dataEndTimeBefore+      `Prelude.hashWithSalt` dataStartTimeAfter+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` inferenceSchedulerName++instance Prelude.NFData ListInferenceExecutions where+  rnf ListInferenceExecutions' {..} =+    Prelude.rnf dataEndTimeBefore+      `Prelude.seq` Prelude.rnf dataStartTimeAfter+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf inferenceSchedulerName++instance Data.ToHeaders ListInferenceExecutions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListInferenceExecutions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListInferenceExecutions where+  toJSON ListInferenceExecutions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DataEndTimeBefore" Data..=)+              Prelude.<$> dataEndTimeBefore,+            ("DataStartTimeAfter" Data..=)+              Prelude.<$> dataStartTimeAfter,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Status" Data..=) Prelude.<$> status,+            Prelude.Just+              ( "InferenceSchedulerName"+                  Data..= inferenceSchedulerName+              )+          ]+      )++instance Data.ToPath ListInferenceExecutions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListInferenceExecutions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListInferenceExecutionsResponse' smart constructor.+data ListInferenceExecutionsResponse = ListInferenceExecutionsResponse'+  { -- | Provides an array of information about the individual inference+    -- executions returned from the @ListInferenceExecutions@ operation,+    -- including model used, inference scheduler, data configuration, and so+    -- on.+    inferenceExecutionSummaries :: Prelude.Maybe [InferenceExecutionSummary],+    -- | An opaque pagination token indicating where to continue the listing of+    -- inference executions.+    nextToken :: 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 'ListInferenceExecutionsResponse' 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:+--+-- 'inferenceExecutionSummaries', 'listInferenceExecutionsResponse_inferenceExecutionSummaries' - Provides an array of information about the individual inference+-- executions returned from the @ListInferenceExecutions@ operation,+-- including model used, inference scheduler, data configuration, and so+-- on.+--+-- 'nextToken', 'listInferenceExecutionsResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- inference executions.+--+-- 'httpStatus', 'listInferenceExecutionsResponse_httpStatus' - The response's http status code.+newListInferenceExecutionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListInferenceExecutionsResponse+newListInferenceExecutionsResponse pHttpStatus_ =+  ListInferenceExecutionsResponse'+    { inferenceExecutionSummaries =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides an array of information about the individual inference+-- executions returned from the @ListInferenceExecutions@ operation,+-- including model used, inference scheduler, data configuration, and so+-- on.+listInferenceExecutionsResponse_inferenceExecutionSummaries :: Lens.Lens' ListInferenceExecutionsResponse (Prelude.Maybe [InferenceExecutionSummary])+listInferenceExecutionsResponse_inferenceExecutionSummaries = Lens.lens (\ListInferenceExecutionsResponse' {inferenceExecutionSummaries} -> inferenceExecutionSummaries) (\s@ListInferenceExecutionsResponse' {} a -> s {inferenceExecutionSummaries = a} :: ListInferenceExecutionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque pagination token indicating where to continue the listing of+-- inference executions.+listInferenceExecutionsResponse_nextToken :: Lens.Lens' ListInferenceExecutionsResponse (Prelude.Maybe Prelude.Text)+listInferenceExecutionsResponse_nextToken = Lens.lens (\ListInferenceExecutionsResponse' {nextToken} -> nextToken) (\s@ListInferenceExecutionsResponse' {} a -> s {nextToken = a} :: ListInferenceExecutionsResponse)++-- | The response's http status code.+listInferenceExecutionsResponse_httpStatus :: Lens.Lens' ListInferenceExecutionsResponse Prelude.Int+listInferenceExecutionsResponse_httpStatus = Lens.lens (\ListInferenceExecutionsResponse' {httpStatus} -> httpStatus) (\s@ListInferenceExecutionsResponse' {} a -> s {httpStatus = a} :: ListInferenceExecutionsResponse)++instance+  Prelude.NFData+    ListInferenceExecutionsResponse+  where+  rnf ListInferenceExecutionsResponse' {..} =+    Prelude.rnf inferenceExecutionSummaries+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListInferenceSchedulers.hs view
@@ -0,0 +1,253 @@+{-# 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.LookoutEquipment.ListInferenceSchedulers+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves a list of all inference schedulers currently available for+-- your account.+module Amazonka.LookoutEquipment.ListInferenceSchedulers+  ( -- * Creating a Request+    ListInferenceSchedulers (..),+    newListInferenceSchedulers,++    -- * Request Lenses+    listInferenceSchedulers_inferenceSchedulerNameBeginsWith,+    listInferenceSchedulers_maxResults,+    listInferenceSchedulers_modelName,+    listInferenceSchedulers_nextToken,+    listInferenceSchedulers_status,++    -- * Destructuring the Response+    ListInferenceSchedulersResponse (..),+    newListInferenceSchedulersResponse,++    -- * Response Lenses+    listInferenceSchedulersResponse_inferenceSchedulerSummaries,+    listInferenceSchedulersResponse_nextToken,+    listInferenceSchedulersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListInferenceSchedulers' smart constructor.+data ListInferenceSchedulers = ListInferenceSchedulers'+  { -- | The beginning of the name of the inference schedulers to be listed.+    inferenceSchedulerNameBeginsWith :: Prelude.Maybe Prelude.Text,+    -- | Specifies the maximum number of inference schedulers to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The name of the ML model used by the inference scheduler to be listed.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | An opaque pagination token indicating where to continue the listing of+    -- inference schedulers.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Specifies the current status of the inference schedulers to list.+    status :: Prelude.Maybe InferenceSchedulerStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListInferenceSchedulers' 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:+--+-- 'inferenceSchedulerNameBeginsWith', 'listInferenceSchedulers_inferenceSchedulerNameBeginsWith' - The beginning of the name of the inference schedulers to be listed.+--+-- 'maxResults', 'listInferenceSchedulers_maxResults' - Specifies the maximum number of inference schedulers to list.+--+-- 'modelName', 'listInferenceSchedulers_modelName' - The name of the ML model used by the inference scheduler to be listed.+--+-- 'nextToken', 'listInferenceSchedulers_nextToken' - An opaque pagination token indicating where to continue the listing of+-- inference schedulers.+--+-- 'status', 'listInferenceSchedulers_status' - Specifies the current status of the inference schedulers to list.+newListInferenceSchedulers ::+  ListInferenceSchedulers+newListInferenceSchedulers =+  ListInferenceSchedulers'+    { inferenceSchedulerNameBeginsWith =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      modelName = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The beginning of the name of the inference schedulers to be listed.+listInferenceSchedulers_inferenceSchedulerNameBeginsWith :: Lens.Lens' ListInferenceSchedulers (Prelude.Maybe Prelude.Text)+listInferenceSchedulers_inferenceSchedulerNameBeginsWith = Lens.lens (\ListInferenceSchedulers' {inferenceSchedulerNameBeginsWith} -> inferenceSchedulerNameBeginsWith) (\s@ListInferenceSchedulers' {} a -> s {inferenceSchedulerNameBeginsWith = a} :: ListInferenceSchedulers)++-- | Specifies the maximum number of inference schedulers to list.+listInferenceSchedulers_maxResults :: Lens.Lens' ListInferenceSchedulers (Prelude.Maybe Prelude.Natural)+listInferenceSchedulers_maxResults = Lens.lens (\ListInferenceSchedulers' {maxResults} -> maxResults) (\s@ListInferenceSchedulers' {} a -> s {maxResults = a} :: ListInferenceSchedulers)++-- | The name of the ML model used by the inference scheduler to be listed.+listInferenceSchedulers_modelName :: Lens.Lens' ListInferenceSchedulers (Prelude.Maybe Prelude.Text)+listInferenceSchedulers_modelName = Lens.lens (\ListInferenceSchedulers' {modelName} -> modelName) (\s@ListInferenceSchedulers' {} a -> s {modelName = a} :: ListInferenceSchedulers)++-- | An opaque pagination token indicating where to continue the listing of+-- inference schedulers.+listInferenceSchedulers_nextToken :: Lens.Lens' ListInferenceSchedulers (Prelude.Maybe Prelude.Text)+listInferenceSchedulers_nextToken = Lens.lens (\ListInferenceSchedulers' {nextToken} -> nextToken) (\s@ListInferenceSchedulers' {} a -> s {nextToken = a} :: ListInferenceSchedulers)++-- | Specifies the current status of the inference schedulers to list.+listInferenceSchedulers_status :: Lens.Lens' ListInferenceSchedulers (Prelude.Maybe InferenceSchedulerStatus)+listInferenceSchedulers_status = Lens.lens (\ListInferenceSchedulers' {status} -> status) (\s@ListInferenceSchedulers' {} a -> s {status = a} :: ListInferenceSchedulers)++instance Core.AWSRequest ListInferenceSchedulers where+  type+    AWSResponse ListInferenceSchedulers =+      ListInferenceSchedulersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListInferenceSchedulersResponse'+            Prelude.<$> ( x+                            Data..?> "InferenceSchedulerSummaries"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListInferenceSchedulers where+  hashWithSalt _salt ListInferenceSchedulers' {..} =+    _salt+      `Prelude.hashWithSalt` inferenceSchedulerNameBeginsWith+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` modelName+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` status++instance Prelude.NFData ListInferenceSchedulers where+  rnf ListInferenceSchedulers' {..} =+    Prelude.rnf inferenceSchedulerNameBeginsWith+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf status++instance Data.ToHeaders ListInferenceSchedulers where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListInferenceSchedulers" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListInferenceSchedulers where+  toJSON ListInferenceSchedulers' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("InferenceSchedulerNameBeginsWith" Data..=)+              Prelude.<$> inferenceSchedulerNameBeginsWith,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("ModelName" Data..=) Prelude.<$> modelName,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Status" Data..=) Prelude.<$> status+          ]+      )++instance Data.ToPath ListInferenceSchedulers where+  toPath = Prelude.const "/"++instance Data.ToQuery ListInferenceSchedulers where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListInferenceSchedulersResponse' smart constructor.+data ListInferenceSchedulersResponse = ListInferenceSchedulersResponse'+  { -- | Provides information about the specified inference scheduler, including+    -- data upload frequency, model name and ARN, and status.+    inferenceSchedulerSummaries :: Prelude.Maybe [InferenceSchedulerSummary],+    -- | An opaque pagination token indicating where to continue the listing of+    -- inference schedulers.+    nextToken :: 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 'ListInferenceSchedulersResponse' 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:+--+-- 'inferenceSchedulerSummaries', 'listInferenceSchedulersResponse_inferenceSchedulerSummaries' - Provides information about the specified inference scheduler, including+-- data upload frequency, model name and ARN, and status.+--+-- 'nextToken', 'listInferenceSchedulersResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- inference schedulers.+--+-- 'httpStatus', 'listInferenceSchedulersResponse_httpStatus' - The response's http status code.+newListInferenceSchedulersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListInferenceSchedulersResponse+newListInferenceSchedulersResponse pHttpStatus_ =+  ListInferenceSchedulersResponse'+    { inferenceSchedulerSummaries =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides information about the specified inference scheduler, including+-- data upload frequency, model name and ARN, and status.+listInferenceSchedulersResponse_inferenceSchedulerSummaries :: Lens.Lens' ListInferenceSchedulersResponse (Prelude.Maybe [InferenceSchedulerSummary])+listInferenceSchedulersResponse_inferenceSchedulerSummaries = Lens.lens (\ListInferenceSchedulersResponse' {inferenceSchedulerSummaries} -> inferenceSchedulerSummaries) (\s@ListInferenceSchedulersResponse' {} a -> s {inferenceSchedulerSummaries = a} :: ListInferenceSchedulersResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque pagination token indicating where to continue the listing of+-- inference schedulers.+listInferenceSchedulersResponse_nextToken :: Lens.Lens' ListInferenceSchedulersResponse (Prelude.Maybe Prelude.Text)+listInferenceSchedulersResponse_nextToken = Lens.lens (\ListInferenceSchedulersResponse' {nextToken} -> nextToken) (\s@ListInferenceSchedulersResponse' {} a -> s {nextToken = a} :: ListInferenceSchedulersResponse)++-- | The response's http status code.+listInferenceSchedulersResponse_httpStatus :: Lens.Lens' ListInferenceSchedulersResponse Prelude.Int+listInferenceSchedulersResponse_httpStatus = Lens.lens (\ListInferenceSchedulersResponse' {httpStatus} -> httpStatus) (\s@ListInferenceSchedulersResponse' {} a -> s {httpStatus = a} :: ListInferenceSchedulersResponse)++instance+  Prelude.NFData+    ListInferenceSchedulersResponse+  where+  rnf ListInferenceSchedulersResponse' {..} =+    Prelude.rnf inferenceSchedulerSummaries+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListLabelGroups.hs view
@@ -0,0 +1,220 @@+{-# 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.LookoutEquipment.ListLabelGroups+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of the label groups.+module Amazonka.LookoutEquipment.ListLabelGroups+  ( -- * Creating a Request+    ListLabelGroups (..),+    newListLabelGroups,++    -- * Request Lenses+    listLabelGroups_labelGroupNameBeginsWith,+    listLabelGroups_maxResults,+    listLabelGroups_nextToken,++    -- * Destructuring the Response+    ListLabelGroupsResponse (..),+    newListLabelGroupsResponse,++    -- * Response Lenses+    listLabelGroupsResponse_labelGroupSummaries,+    listLabelGroupsResponse_nextToken,+    listLabelGroupsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListLabelGroups' smart constructor.+data ListLabelGroups = ListLabelGroups'+  { -- | The beginning of the name of the label groups to be listed.+    labelGroupNameBeginsWith :: Prelude.Maybe Prelude.Text,+    -- | Specifies the maximum number of label groups to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | An opaque pagination token indicating where to continue the listing of+    -- label groups.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLabelGroups' 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:+--+-- 'labelGroupNameBeginsWith', 'listLabelGroups_labelGroupNameBeginsWith' - The beginning of the name of the label groups to be listed.+--+-- 'maxResults', 'listLabelGroups_maxResults' - Specifies the maximum number of label groups to list.+--+-- 'nextToken', 'listLabelGroups_nextToken' - An opaque pagination token indicating where to continue the listing of+-- label groups.+newListLabelGroups ::+  ListLabelGroups+newListLabelGroups =+  ListLabelGroups'+    { labelGroupNameBeginsWith =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The beginning of the name of the label groups to be listed.+listLabelGroups_labelGroupNameBeginsWith :: Lens.Lens' ListLabelGroups (Prelude.Maybe Prelude.Text)+listLabelGroups_labelGroupNameBeginsWith = Lens.lens (\ListLabelGroups' {labelGroupNameBeginsWith} -> labelGroupNameBeginsWith) (\s@ListLabelGroups' {} a -> s {labelGroupNameBeginsWith = a} :: ListLabelGroups)++-- | Specifies the maximum number of label groups to list.+listLabelGroups_maxResults :: Lens.Lens' ListLabelGroups (Prelude.Maybe Prelude.Natural)+listLabelGroups_maxResults = Lens.lens (\ListLabelGroups' {maxResults} -> maxResults) (\s@ListLabelGroups' {} a -> s {maxResults = a} :: ListLabelGroups)++-- | An opaque pagination token indicating where to continue the listing of+-- label groups.+listLabelGroups_nextToken :: Lens.Lens' ListLabelGroups (Prelude.Maybe Prelude.Text)+listLabelGroups_nextToken = Lens.lens (\ListLabelGroups' {nextToken} -> nextToken) (\s@ListLabelGroups' {} a -> s {nextToken = a} :: ListLabelGroups)++instance Core.AWSRequest ListLabelGroups where+  type+    AWSResponse ListLabelGroups =+      ListLabelGroupsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListLabelGroupsResponse'+            Prelude.<$> ( x+                            Data..?> "LabelGroupSummaries"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListLabelGroups where+  hashWithSalt _salt ListLabelGroups' {..} =+    _salt+      `Prelude.hashWithSalt` labelGroupNameBeginsWith+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListLabelGroups where+  rnf ListLabelGroups' {..} =+    Prelude.rnf labelGroupNameBeginsWith+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListLabelGroups where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListLabelGroups" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListLabelGroups where+  toJSON ListLabelGroups' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("LabelGroupNameBeginsWith" Data..=)+              Prelude.<$> labelGroupNameBeginsWith,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListLabelGroups where+  toPath = Prelude.const "/"++instance Data.ToQuery ListLabelGroups where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListLabelGroupsResponse' smart constructor.+data ListLabelGroupsResponse = ListLabelGroupsResponse'+  { -- | A summary of the label groups.+    labelGroupSummaries :: Prelude.Maybe [LabelGroupSummary],+    -- | An opaque pagination token indicating where to continue the listing of+    -- label groups.+    nextToken :: 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 'ListLabelGroupsResponse' 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:+--+-- 'labelGroupSummaries', 'listLabelGroupsResponse_labelGroupSummaries' - A summary of the label groups.+--+-- 'nextToken', 'listLabelGroupsResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- label groups.+--+-- 'httpStatus', 'listLabelGroupsResponse_httpStatus' - The response's http status code.+newListLabelGroupsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListLabelGroupsResponse+newListLabelGroupsResponse pHttpStatus_ =+  ListLabelGroupsResponse'+    { labelGroupSummaries =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A summary of the label groups.+listLabelGroupsResponse_labelGroupSummaries :: Lens.Lens' ListLabelGroupsResponse (Prelude.Maybe [LabelGroupSummary])+listLabelGroupsResponse_labelGroupSummaries = Lens.lens (\ListLabelGroupsResponse' {labelGroupSummaries} -> labelGroupSummaries) (\s@ListLabelGroupsResponse' {} a -> s {labelGroupSummaries = a} :: ListLabelGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque pagination token indicating where to continue the listing of+-- label groups.+listLabelGroupsResponse_nextToken :: Lens.Lens' ListLabelGroupsResponse (Prelude.Maybe Prelude.Text)+listLabelGroupsResponse_nextToken = Lens.lens (\ListLabelGroupsResponse' {nextToken} -> nextToken) (\s@ListLabelGroupsResponse' {} a -> s {nextToken = a} :: ListLabelGroupsResponse)++-- | The response's http status code.+listLabelGroupsResponse_httpStatus :: Lens.Lens' ListLabelGroupsResponse Prelude.Int+listLabelGroupsResponse_httpStatus = Lens.lens (\ListLabelGroupsResponse' {httpStatus} -> httpStatus) (\s@ListLabelGroupsResponse' {} a -> s {httpStatus = a} :: ListLabelGroupsResponse)++instance Prelude.NFData ListLabelGroupsResponse where+  rnf ListLabelGroupsResponse' {..} =+    Prelude.rnf labelGroupSummaries+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListLabels.hs view
@@ -0,0 +1,273 @@+{-# 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.LookoutEquipment.ListLabels+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a list of labels.+module Amazonka.LookoutEquipment.ListLabels+  ( -- * Creating a Request+    ListLabels (..),+    newListLabels,++    -- * Request Lenses+    listLabels_equipment,+    listLabels_faultCode,+    listLabels_intervalEndTime,+    listLabels_intervalStartTime,+    listLabels_maxResults,+    listLabels_nextToken,+    listLabels_labelGroupName,++    -- * Destructuring the Response+    ListLabelsResponse (..),+    newListLabelsResponse,++    -- * Response Lenses+    listLabelsResponse_labelSummaries,+    listLabelsResponse_nextToken,+    listLabelsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListLabels' smart constructor.+data ListLabels = ListLabels'+  { -- | Lists the labels that pertain to a particular piece of equipment.+    equipment :: Prelude.Maybe Prelude.Text,+    -- | Returns labels with a particular fault code.+    faultCode :: Prelude.Maybe Prelude.Text,+    -- | Returns all labels with a start time earlier than the end time given.+    intervalEndTime :: Prelude.Maybe Data.POSIX,+    -- | Returns all the labels with a end time equal to or later than the start+    -- time given.+    intervalStartTime :: Prelude.Maybe Data.POSIX,+    -- | Specifies the maximum number of labels to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | An opaque pagination token indicating where to continue the listing of+    -- label groups.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Retruns the name of the label group.+    labelGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLabels' 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:+--+-- 'equipment', 'listLabels_equipment' - Lists the labels that pertain to a particular piece of equipment.+--+-- 'faultCode', 'listLabels_faultCode' - Returns labels with a particular fault code.+--+-- 'intervalEndTime', 'listLabels_intervalEndTime' - Returns all labels with a start time earlier than the end time given.+--+-- 'intervalStartTime', 'listLabels_intervalStartTime' - Returns all the labels with a end time equal to or later than the start+-- time given.+--+-- 'maxResults', 'listLabels_maxResults' - Specifies the maximum number of labels to list.+--+-- 'nextToken', 'listLabels_nextToken' - An opaque pagination token indicating where to continue the listing of+-- label groups.+--+-- 'labelGroupName', 'listLabels_labelGroupName' - Retruns the name of the label group.+newListLabels ::+  -- | 'labelGroupName'+  Prelude.Text ->+  ListLabels+newListLabels pLabelGroupName_ =+  ListLabels'+    { equipment = Prelude.Nothing,+      faultCode = Prelude.Nothing,+      intervalEndTime = Prelude.Nothing,+      intervalStartTime = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      labelGroupName = pLabelGroupName_+    }++-- | Lists the labels that pertain to a particular piece of equipment.+listLabels_equipment :: Lens.Lens' ListLabels (Prelude.Maybe Prelude.Text)+listLabels_equipment = Lens.lens (\ListLabels' {equipment} -> equipment) (\s@ListLabels' {} a -> s {equipment = a} :: ListLabels)++-- | Returns labels with a particular fault code.+listLabels_faultCode :: Lens.Lens' ListLabels (Prelude.Maybe Prelude.Text)+listLabels_faultCode = Lens.lens (\ListLabels' {faultCode} -> faultCode) (\s@ListLabels' {} a -> s {faultCode = a} :: ListLabels)++-- | Returns all labels with a start time earlier than the end time given.+listLabels_intervalEndTime :: Lens.Lens' ListLabels (Prelude.Maybe Prelude.UTCTime)+listLabels_intervalEndTime = Lens.lens (\ListLabels' {intervalEndTime} -> intervalEndTime) (\s@ListLabels' {} a -> s {intervalEndTime = a} :: ListLabels) Prelude.. Lens.mapping Data._Time++-- | Returns all the labels with a end time equal to or later than the start+-- time given.+listLabels_intervalStartTime :: Lens.Lens' ListLabels (Prelude.Maybe Prelude.UTCTime)+listLabels_intervalStartTime = Lens.lens (\ListLabels' {intervalStartTime} -> intervalStartTime) (\s@ListLabels' {} a -> s {intervalStartTime = a} :: ListLabels) Prelude.. Lens.mapping Data._Time++-- | Specifies the maximum number of labels to list.+listLabels_maxResults :: Lens.Lens' ListLabels (Prelude.Maybe Prelude.Natural)+listLabels_maxResults = Lens.lens (\ListLabels' {maxResults} -> maxResults) (\s@ListLabels' {} a -> s {maxResults = a} :: ListLabels)++-- | An opaque pagination token indicating where to continue the listing of+-- label groups.+listLabels_nextToken :: Lens.Lens' ListLabels (Prelude.Maybe Prelude.Text)+listLabels_nextToken = Lens.lens (\ListLabels' {nextToken} -> nextToken) (\s@ListLabels' {} a -> s {nextToken = a} :: ListLabels)++-- | Retruns the name of the label group.+listLabels_labelGroupName :: Lens.Lens' ListLabels Prelude.Text+listLabels_labelGroupName = Lens.lens (\ListLabels' {labelGroupName} -> labelGroupName) (\s@ListLabels' {} a -> s {labelGroupName = a} :: ListLabels)++instance Core.AWSRequest ListLabels where+  type AWSResponse ListLabels = ListLabelsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListLabelsResponse'+            Prelude.<$> (x Data..?> "LabelSummaries" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListLabels where+  hashWithSalt _salt ListLabels' {..} =+    _salt+      `Prelude.hashWithSalt` equipment+      `Prelude.hashWithSalt` faultCode+      `Prelude.hashWithSalt` intervalEndTime+      `Prelude.hashWithSalt` intervalStartTime+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` labelGroupName++instance Prelude.NFData ListLabels where+  rnf ListLabels' {..} =+    Prelude.rnf equipment+      `Prelude.seq` Prelude.rnf faultCode+      `Prelude.seq` Prelude.rnf intervalEndTime+      `Prelude.seq` Prelude.rnf intervalStartTime+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf labelGroupName++instance Data.ToHeaders ListLabels where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListLabels" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListLabels where+  toJSON ListLabels' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Equipment" Data..=) Prelude.<$> equipment,+            ("FaultCode" Data..=) Prelude.<$> faultCode,+            ("IntervalEndTime" Data..=)+              Prelude.<$> intervalEndTime,+            ("IntervalStartTime" Data..=)+              Prelude.<$> intervalStartTime,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("LabelGroupName" Data..= labelGroupName)+          ]+      )++instance Data.ToPath ListLabels where+  toPath = Prelude.const "/"++instance Data.ToQuery ListLabels where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListLabelsResponse' smart constructor.+data ListLabelsResponse = ListLabelsResponse'+  { -- | A summary of the items in the label group.+    labelSummaries :: Prelude.Maybe [LabelSummary],+    -- | An opaque pagination token indicating where to continue the listing of+    -- datasets.+    nextToken :: 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 'ListLabelsResponse' 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:+--+-- 'labelSummaries', 'listLabelsResponse_labelSummaries' - A summary of the items in the label group.+--+-- 'nextToken', 'listLabelsResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- datasets.+--+-- 'httpStatus', 'listLabelsResponse_httpStatus' - The response's http status code.+newListLabelsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListLabelsResponse+newListLabelsResponse pHttpStatus_ =+  ListLabelsResponse'+    { labelSummaries =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A summary of the items in the label group.+listLabelsResponse_labelSummaries :: Lens.Lens' ListLabelsResponse (Prelude.Maybe [LabelSummary])+listLabelsResponse_labelSummaries = Lens.lens (\ListLabelsResponse' {labelSummaries} -> labelSummaries) (\s@ListLabelsResponse' {} a -> s {labelSummaries = a} :: ListLabelsResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque pagination token indicating where to continue the listing of+-- datasets.+listLabelsResponse_nextToken :: Lens.Lens' ListLabelsResponse (Prelude.Maybe Prelude.Text)+listLabelsResponse_nextToken = Lens.lens (\ListLabelsResponse' {nextToken} -> nextToken) (\s@ListLabelsResponse' {} a -> s {nextToken = a} :: ListLabelsResponse)++-- | The response's http status code.+listLabelsResponse_httpStatus :: Lens.Lens' ListLabelsResponse Prelude.Int+listLabelsResponse_httpStatus = Lens.lens (\ListLabelsResponse' {httpStatus} -> httpStatus) (\s@ListLabelsResponse' {} a -> s {httpStatus = a} :: ListLabelsResponse)++instance Prelude.NFData ListLabelsResponse where+  rnf ListLabelsResponse' {..} =+    Prelude.rnf labelSummaries+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListModels.hs view
@@ -0,0 +1,246 @@+{-# 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.LookoutEquipment.ListModels+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Generates a list of all models in the account, including model name and+-- ARN, dataset, and status.+module Amazonka.LookoutEquipment.ListModels+  ( -- * Creating a Request+    ListModels (..),+    newListModels,++    -- * Request Lenses+    listModels_datasetNameBeginsWith,+    listModels_maxResults,+    listModels_modelNameBeginsWith,+    listModels_nextToken,+    listModels_status,++    -- * Destructuring the Response+    ListModelsResponse (..),+    newListModelsResponse,++    -- * Response Lenses+    listModelsResponse_modelSummaries,+    listModelsResponse_nextToken,+    listModelsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListModels' smart constructor.+data ListModels = ListModels'+  { -- | The beginning of the name of the dataset of the ML models to be listed.+    datasetNameBeginsWith :: Prelude.Maybe Prelude.Text,+    -- | Specifies the maximum number of ML models to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The beginning of the name of the ML models being listed.+    modelNameBeginsWith :: Prelude.Maybe Prelude.Text,+    -- | An opaque pagination token indicating where to continue the listing of+    -- ML models.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The status of the ML model.+    status :: Prelude.Maybe ModelStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListModels' 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:+--+-- 'datasetNameBeginsWith', 'listModels_datasetNameBeginsWith' - The beginning of the name of the dataset of the ML models to be listed.+--+-- 'maxResults', 'listModels_maxResults' - Specifies the maximum number of ML models to list.+--+-- 'modelNameBeginsWith', 'listModels_modelNameBeginsWith' - The beginning of the name of the ML models being listed.+--+-- 'nextToken', 'listModels_nextToken' - An opaque pagination token indicating where to continue the listing of+-- ML models.+--+-- 'status', 'listModels_status' - The status of the ML model.+newListModels ::+  ListModels+newListModels =+  ListModels'+    { datasetNameBeginsWith =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      modelNameBeginsWith = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The beginning of the name of the dataset of the ML models to be listed.+listModels_datasetNameBeginsWith :: Lens.Lens' ListModels (Prelude.Maybe Prelude.Text)+listModels_datasetNameBeginsWith = Lens.lens (\ListModels' {datasetNameBeginsWith} -> datasetNameBeginsWith) (\s@ListModels' {} a -> s {datasetNameBeginsWith = a} :: ListModels)++-- | Specifies the maximum number of ML models to list.+listModels_maxResults :: Lens.Lens' ListModels (Prelude.Maybe Prelude.Natural)+listModels_maxResults = Lens.lens (\ListModels' {maxResults} -> maxResults) (\s@ListModels' {} a -> s {maxResults = a} :: ListModels)++-- | The beginning of the name of the ML models being listed.+listModels_modelNameBeginsWith :: Lens.Lens' ListModels (Prelude.Maybe Prelude.Text)+listModels_modelNameBeginsWith = Lens.lens (\ListModels' {modelNameBeginsWith} -> modelNameBeginsWith) (\s@ListModels' {} a -> s {modelNameBeginsWith = a} :: ListModels)++-- | An opaque pagination token indicating where to continue the listing of+-- ML models.+listModels_nextToken :: Lens.Lens' ListModels (Prelude.Maybe Prelude.Text)+listModels_nextToken = Lens.lens (\ListModels' {nextToken} -> nextToken) (\s@ListModels' {} a -> s {nextToken = a} :: ListModels)++-- | The status of the ML model.+listModels_status :: Lens.Lens' ListModels (Prelude.Maybe ModelStatus)+listModels_status = Lens.lens (\ListModels' {status} -> status) (\s@ListModels' {} a -> s {status = a} :: ListModels)++instance Core.AWSRequest ListModels where+  type AWSResponse ListModels = ListModelsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListModelsResponse'+            Prelude.<$> (x Data..?> "ModelSummaries" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListModels where+  hashWithSalt _salt ListModels' {..} =+    _salt+      `Prelude.hashWithSalt` datasetNameBeginsWith+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` modelNameBeginsWith+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` status++instance Prelude.NFData ListModels where+  rnf ListModels' {..} =+    Prelude.rnf datasetNameBeginsWith+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf modelNameBeginsWith+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf status++instance Data.ToHeaders ListModels where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListModels" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListModels where+  toJSON ListModels' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DatasetNameBeginsWith" Data..=)+              Prelude.<$> datasetNameBeginsWith,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("ModelNameBeginsWith" Data..=)+              Prelude.<$> modelNameBeginsWith,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Status" Data..=) Prelude.<$> status+          ]+      )++instance Data.ToPath ListModels where+  toPath = Prelude.const "/"++instance Data.ToQuery ListModels where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListModelsResponse' smart constructor.+data ListModelsResponse = ListModelsResponse'+  { -- | Provides information on the specified model, including created time,+    -- model and dataset ARNs, and status.+    modelSummaries :: Prelude.Maybe [ModelSummary],+    -- | An opaque pagination token indicating where to continue the listing of+    -- ML models.+    nextToken :: 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 'ListModelsResponse' 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:+--+-- 'modelSummaries', 'listModelsResponse_modelSummaries' - Provides information on the specified model, including created time,+-- model and dataset ARNs, and status.+--+-- 'nextToken', 'listModelsResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- ML models.+--+-- 'httpStatus', 'listModelsResponse_httpStatus' - The response's http status code.+newListModelsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListModelsResponse+newListModelsResponse pHttpStatus_ =+  ListModelsResponse'+    { modelSummaries =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides information on the specified model, including created time,+-- model and dataset ARNs, and status.+listModelsResponse_modelSummaries :: Lens.Lens' ListModelsResponse (Prelude.Maybe [ModelSummary])+listModelsResponse_modelSummaries = Lens.lens (\ListModelsResponse' {modelSummaries} -> modelSummaries) (\s@ListModelsResponse' {} a -> s {modelSummaries = a} :: ListModelsResponse) Prelude.. Lens.mapping Lens.coerced++-- | An opaque pagination token indicating where to continue the listing of+-- ML models.+listModelsResponse_nextToken :: Lens.Lens' ListModelsResponse (Prelude.Maybe Prelude.Text)+listModelsResponse_nextToken = Lens.lens (\ListModelsResponse' {nextToken} -> nextToken) (\s@ListModelsResponse' {} a -> s {nextToken = a} :: ListModelsResponse)++-- | The response's http status code.+listModelsResponse_httpStatus :: Lens.Lens' ListModelsResponse Prelude.Int+listModelsResponse_httpStatus = Lens.lens (\ListModelsResponse' {httpStatus} -> httpStatus) (\s@ListModelsResponse' {} a -> s {httpStatus = a} :: ListModelsResponse)++instance Prelude.NFData ListModelsResponse where+  rnf ListModelsResponse' {..} =+    Prelude.rnf modelSummaries+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListSensorStatistics.hs view
@@ -0,0 +1,255 @@+{-# 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.LookoutEquipment.ListSensorStatistics+-- 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 statistics about the data collected for each of the sensors that+-- have been successfully ingested in the particular dataset. Can also be+-- used to retreive Sensor Statistics for a previous ingestion job.+module Amazonka.LookoutEquipment.ListSensorStatistics+  ( -- * Creating a Request+    ListSensorStatistics (..),+    newListSensorStatistics,++    -- * Request Lenses+    listSensorStatistics_ingestionJobId,+    listSensorStatistics_maxResults,+    listSensorStatistics_nextToken,+    listSensorStatistics_datasetName,++    -- * Destructuring the Response+    ListSensorStatisticsResponse (..),+    newListSensorStatisticsResponse,++    -- * Response Lenses+    listSensorStatisticsResponse_nextToken,+    listSensorStatisticsResponse_sensorStatisticsSummaries,+    listSensorStatisticsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListSensorStatistics' smart constructor.+data ListSensorStatistics = ListSensorStatistics'+  { -- | The ingestion job id associated with the list of Sensor Statistics. To+    -- get sensor statistics for a particular ingestion job id, both dataset+    -- name and ingestion job id must be submitted as inputs.+    ingestionJobId :: Prelude.Maybe Prelude.Text,+    -- | Specifies the maximum number of sensors for which to retrieve+    -- statistics.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | An opaque pagination token indicating where to continue the listing of+    -- sensor statistics.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the dataset associated with the list of Sensor Statistics.+    datasetName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSensorStatistics' 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:+--+-- 'ingestionJobId', 'listSensorStatistics_ingestionJobId' - The ingestion job id associated with the list of Sensor Statistics. To+-- get sensor statistics for a particular ingestion job id, both dataset+-- name and ingestion job id must be submitted as inputs.+--+-- 'maxResults', 'listSensorStatistics_maxResults' - Specifies the maximum number of sensors for which to retrieve+-- statistics.+--+-- 'nextToken', 'listSensorStatistics_nextToken' - An opaque pagination token indicating where to continue the listing of+-- sensor statistics.+--+-- 'datasetName', 'listSensorStatistics_datasetName' - The name of the dataset associated with the list of Sensor Statistics.+newListSensorStatistics ::+  -- | 'datasetName'+  Prelude.Text ->+  ListSensorStatistics+newListSensorStatistics pDatasetName_ =+  ListSensorStatistics'+    { ingestionJobId =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      datasetName = pDatasetName_+    }++-- | The ingestion job id associated with the list of Sensor Statistics. To+-- get sensor statistics for a particular ingestion job id, both dataset+-- name and ingestion job id must be submitted as inputs.+listSensorStatistics_ingestionJobId :: Lens.Lens' ListSensorStatistics (Prelude.Maybe Prelude.Text)+listSensorStatistics_ingestionJobId = Lens.lens (\ListSensorStatistics' {ingestionJobId} -> ingestionJobId) (\s@ListSensorStatistics' {} a -> s {ingestionJobId = a} :: ListSensorStatistics)++-- | Specifies the maximum number of sensors for which to retrieve+-- statistics.+listSensorStatistics_maxResults :: Lens.Lens' ListSensorStatistics (Prelude.Maybe Prelude.Natural)+listSensorStatistics_maxResults = Lens.lens (\ListSensorStatistics' {maxResults} -> maxResults) (\s@ListSensorStatistics' {} a -> s {maxResults = a} :: ListSensorStatistics)++-- | An opaque pagination token indicating where to continue the listing of+-- sensor statistics.+listSensorStatistics_nextToken :: Lens.Lens' ListSensorStatistics (Prelude.Maybe Prelude.Text)+listSensorStatistics_nextToken = Lens.lens (\ListSensorStatistics' {nextToken} -> nextToken) (\s@ListSensorStatistics' {} a -> s {nextToken = a} :: ListSensorStatistics)++-- | The name of the dataset associated with the list of Sensor Statistics.+listSensorStatistics_datasetName :: Lens.Lens' ListSensorStatistics Prelude.Text+listSensorStatistics_datasetName = Lens.lens (\ListSensorStatistics' {datasetName} -> datasetName) (\s@ListSensorStatistics' {} a -> s {datasetName = a} :: ListSensorStatistics)++instance Core.AWSRequest ListSensorStatistics where+  type+    AWSResponse ListSensorStatistics =+      ListSensorStatisticsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSensorStatisticsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "SensorStatisticsSummaries"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSensorStatistics where+  hashWithSalt _salt ListSensorStatistics' {..} =+    _salt+      `Prelude.hashWithSalt` ingestionJobId+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` datasetName++instance Prelude.NFData ListSensorStatistics where+  rnf ListSensorStatistics' {..} =+    Prelude.rnf ingestionJobId+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf datasetName++instance Data.ToHeaders ListSensorStatistics where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListSensorStatistics" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListSensorStatistics where+  toJSON ListSensorStatistics' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("IngestionJobId" Data..=)+              Prelude.<$> ingestionJobId,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("DatasetName" Data..= datasetName)+          ]+      )++instance Data.ToPath ListSensorStatistics where+  toPath = Prelude.const "/"++instance Data.ToQuery ListSensorStatistics where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListSensorStatisticsResponse' smart constructor.+data ListSensorStatisticsResponse = ListSensorStatisticsResponse'+  { -- | An opaque pagination token indicating where to continue the listing of+    -- sensor statistics.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Provides ingestion-based statistics regarding the specified sensor with+    -- respect to various validation types, such as whether data exists, the+    -- number and percentage of missing values, and the number and percentage+    -- of duplicate timestamps.+    sensorStatisticsSummaries :: Prelude.Maybe [SensorStatisticsSummary],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSensorStatisticsResponse' 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', 'listSensorStatisticsResponse_nextToken' - An opaque pagination token indicating where to continue the listing of+-- sensor statistics.+--+-- 'sensorStatisticsSummaries', 'listSensorStatisticsResponse_sensorStatisticsSummaries' - Provides ingestion-based statistics regarding the specified sensor with+-- respect to various validation types, such as whether data exists, the+-- number and percentage of missing values, and the number and percentage+-- of duplicate timestamps.+--+-- 'httpStatus', 'listSensorStatisticsResponse_httpStatus' - The response's http status code.+newListSensorStatisticsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSensorStatisticsResponse+newListSensorStatisticsResponse pHttpStatus_ =+  ListSensorStatisticsResponse'+    { nextToken =+        Prelude.Nothing,+      sensorStatisticsSummaries = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An opaque pagination token indicating where to continue the listing of+-- sensor statistics.+listSensorStatisticsResponse_nextToken :: Lens.Lens' ListSensorStatisticsResponse (Prelude.Maybe Prelude.Text)+listSensorStatisticsResponse_nextToken = Lens.lens (\ListSensorStatisticsResponse' {nextToken} -> nextToken) (\s@ListSensorStatisticsResponse' {} a -> s {nextToken = a} :: ListSensorStatisticsResponse)++-- | Provides ingestion-based statistics regarding the specified sensor with+-- respect to various validation types, such as whether data exists, the+-- number and percentage of missing values, and the number and percentage+-- of duplicate timestamps.+listSensorStatisticsResponse_sensorStatisticsSummaries :: Lens.Lens' ListSensorStatisticsResponse (Prelude.Maybe [SensorStatisticsSummary])+listSensorStatisticsResponse_sensorStatisticsSummaries = Lens.lens (\ListSensorStatisticsResponse' {sensorStatisticsSummaries} -> sensorStatisticsSummaries) (\s@ListSensorStatisticsResponse' {} a -> s {sensorStatisticsSummaries = a} :: ListSensorStatisticsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSensorStatisticsResponse_httpStatus :: Lens.Lens' ListSensorStatisticsResponse Prelude.Int+listSensorStatisticsResponse_httpStatus = Lens.lens (\ListSensorStatisticsResponse' {httpStatus} -> httpStatus) (\s@ListSensorStatisticsResponse' {} a -> s {httpStatus = a} :: ListSensorStatisticsResponse)++instance Prelude.NFData ListSensorStatisticsResponse where+  rnf ListSensorStatisticsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf sensorStatisticsSummaries+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/ListTagsForResource.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.LookoutEquipment.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 all the tags for a specified resource, including key and value.+module Amazonka.LookoutEquipment.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.LookoutEquipment.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 Amazon Resource Name (ARN) of the resource (such as the dataset or+    -- model) that is the focus of the @ListTagsForResource@ operation.+    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 Amazon Resource Name (ARN) of the resource (such as the dataset or+-- model) that is the focus of the @ListTagsForResource@ operation.+newListTagsForResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceArn_ =+  ListTagsForResource' {resourceArn = pResourceArn_}++-- | The Amazon Resource Name (ARN) of the resource (such as the dataset or+-- model) that is the focus of the @ListTagsForResource@ operation.+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.postJSON (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+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ResourceArn" Data..= resourceArn)]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | Any tags associated with the resource.+    tags :: Prelude.Maybe [Tag],+    -- | 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' - Any tags associated with the resource.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { tags =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Any tags associated with the resource.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe [Tag])+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/LookoutEquipment/StartDataIngestionJob.hs view
@@ -0,0 +1,248 @@+{-# 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.LookoutEquipment.StartDataIngestionJob+-- 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 data ingestion job. Amazon Lookout for Equipment returns the+-- job status.+module Amazonka.LookoutEquipment.StartDataIngestionJob+  ( -- * Creating a Request+    StartDataIngestionJob (..),+    newStartDataIngestionJob,++    -- * Request Lenses+    startDataIngestionJob_datasetName,+    startDataIngestionJob_ingestionInputConfiguration,+    startDataIngestionJob_roleArn,+    startDataIngestionJob_clientToken,++    -- * Destructuring the Response+    StartDataIngestionJobResponse (..),+    newStartDataIngestionJobResponse,++    -- * Response Lenses+    startDataIngestionJobResponse_jobId,+    startDataIngestionJobResponse_status,+    startDataIngestionJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartDataIngestionJob' smart constructor.+data StartDataIngestionJob = StartDataIngestionJob'+  { -- | The name of the dataset being used by the data ingestion job.+    datasetName :: Prelude.Text,+    -- | Specifies information for the input data for the data ingestion job,+    -- including dataset S3 location.+    ingestionInputConfiguration :: IngestionInputConfiguration,+    -- | The Amazon Resource Name (ARN) of a role with permission to access the+    -- data source for the data ingestion job.+    roleArn :: Prelude.Text,+    -- | A unique identifier for the request. If you do not set the client+    -- request token, Amazon Lookout for Equipment generates one.+    clientToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartDataIngestionJob' 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:+--+-- 'datasetName', 'startDataIngestionJob_datasetName' - The name of the dataset being used by the data ingestion job.+--+-- 'ingestionInputConfiguration', 'startDataIngestionJob_ingestionInputConfiguration' - Specifies information for the input data for the data ingestion job,+-- including dataset S3 location.+--+-- 'roleArn', 'startDataIngestionJob_roleArn' - The Amazon Resource Name (ARN) of a role with permission to access the+-- data source for the data ingestion job.+--+-- 'clientToken', 'startDataIngestionJob_clientToken' - A unique identifier for the request. If you do not set the client+-- request token, Amazon Lookout for Equipment generates one.+newStartDataIngestionJob ::+  -- | 'datasetName'+  Prelude.Text ->+  -- | 'ingestionInputConfiguration'+  IngestionInputConfiguration ->+  -- | 'roleArn'+  Prelude.Text ->+  -- | 'clientToken'+  Prelude.Text ->+  StartDataIngestionJob+newStartDataIngestionJob+  pDatasetName_+  pIngestionInputConfiguration_+  pRoleArn_+  pClientToken_ =+    StartDataIngestionJob'+      { datasetName = pDatasetName_,+        ingestionInputConfiguration =+          pIngestionInputConfiguration_,+        roleArn = pRoleArn_,+        clientToken = pClientToken_+      }++-- | The name of the dataset being used by the data ingestion job.+startDataIngestionJob_datasetName :: Lens.Lens' StartDataIngestionJob Prelude.Text+startDataIngestionJob_datasetName = Lens.lens (\StartDataIngestionJob' {datasetName} -> datasetName) (\s@StartDataIngestionJob' {} a -> s {datasetName = a} :: StartDataIngestionJob)++-- | Specifies information for the input data for the data ingestion job,+-- including dataset S3 location.+startDataIngestionJob_ingestionInputConfiguration :: Lens.Lens' StartDataIngestionJob IngestionInputConfiguration+startDataIngestionJob_ingestionInputConfiguration = Lens.lens (\StartDataIngestionJob' {ingestionInputConfiguration} -> ingestionInputConfiguration) (\s@StartDataIngestionJob' {} a -> s {ingestionInputConfiguration = a} :: StartDataIngestionJob)++-- | The Amazon Resource Name (ARN) of a role with permission to access the+-- data source for the data ingestion job.+startDataIngestionJob_roleArn :: Lens.Lens' StartDataIngestionJob Prelude.Text+startDataIngestionJob_roleArn = Lens.lens (\StartDataIngestionJob' {roleArn} -> roleArn) (\s@StartDataIngestionJob' {} a -> s {roleArn = a} :: StartDataIngestionJob)++-- | A unique identifier for the request. If you do not set the client+-- request token, Amazon Lookout for Equipment generates one.+startDataIngestionJob_clientToken :: Lens.Lens' StartDataIngestionJob Prelude.Text+startDataIngestionJob_clientToken = Lens.lens (\StartDataIngestionJob' {clientToken} -> clientToken) (\s@StartDataIngestionJob' {} a -> s {clientToken = a} :: StartDataIngestionJob)++instance Core.AWSRequest StartDataIngestionJob where+  type+    AWSResponse StartDataIngestionJob =+      StartDataIngestionJobResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartDataIngestionJobResponse'+            Prelude.<$> (x Data..?> "JobId")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartDataIngestionJob where+  hashWithSalt _salt StartDataIngestionJob' {..} =+    _salt+      `Prelude.hashWithSalt` datasetName+      `Prelude.hashWithSalt` ingestionInputConfiguration+      `Prelude.hashWithSalt` roleArn+      `Prelude.hashWithSalt` clientToken++instance Prelude.NFData StartDataIngestionJob where+  rnf StartDataIngestionJob' {..} =+    Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf ingestionInputConfiguration+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf clientToken++instance Data.ToHeaders StartDataIngestionJob where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.StartDataIngestionJob" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartDataIngestionJob where+  toJSON StartDataIngestionJob' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DatasetName" Data..= datasetName),+            Prelude.Just+              ( "IngestionInputConfiguration"+                  Data..= ingestionInputConfiguration+              ),+            Prelude.Just ("RoleArn" Data..= roleArn),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath StartDataIngestionJob where+  toPath = Prelude.const "/"++instance Data.ToQuery StartDataIngestionJob where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartDataIngestionJobResponse' smart constructor.+data StartDataIngestionJobResponse = StartDataIngestionJobResponse'+  { -- | Indicates the job ID of the data ingestion job.+    jobId :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the @StartDataIngestionJob@ operation.+    status :: Prelude.Maybe IngestionJobStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartDataIngestionJobResponse' 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:+--+-- 'jobId', 'startDataIngestionJobResponse_jobId' - Indicates the job ID of the data ingestion job.+--+-- 'status', 'startDataIngestionJobResponse_status' - Indicates the status of the @StartDataIngestionJob@ operation.+--+-- 'httpStatus', 'startDataIngestionJobResponse_httpStatus' - The response's http status code.+newStartDataIngestionJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartDataIngestionJobResponse+newStartDataIngestionJobResponse pHttpStatus_ =+  StartDataIngestionJobResponse'+    { jobId =+        Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Indicates the job ID of the data ingestion job.+startDataIngestionJobResponse_jobId :: Lens.Lens' StartDataIngestionJobResponse (Prelude.Maybe Prelude.Text)+startDataIngestionJobResponse_jobId = Lens.lens (\StartDataIngestionJobResponse' {jobId} -> jobId) (\s@StartDataIngestionJobResponse' {} a -> s {jobId = a} :: StartDataIngestionJobResponse)++-- | Indicates the status of the @StartDataIngestionJob@ operation.+startDataIngestionJobResponse_status :: Lens.Lens' StartDataIngestionJobResponse (Prelude.Maybe IngestionJobStatus)+startDataIngestionJobResponse_status = Lens.lens (\StartDataIngestionJobResponse' {status} -> status) (\s@StartDataIngestionJobResponse' {} a -> s {status = a} :: StartDataIngestionJobResponse)++-- | The response's http status code.+startDataIngestionJobResponse_httpStatus :: Lens.Lens' StartDataIngestionJobResponse Prelude.Int+startDataIngestionJobResponse_httpStatus = Lens.lens (\StartDataIngestionJobResponse' {httpStatus} -> httpStatus) (\s@StartDataIngestionJobResponse' {} a -> s {httpStatus = a} :: StartDataIngestionJobResponse)++instance Prelude.NFData StartDataIngestionJobResponse where+  rnf StartDataIngestionJobResponse' {..} =+    Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/StartInferenceScheduler.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.LookoutEquipment.StartInferenceScheduler+-- 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 an inference scheduler.+module Amazonka.LookoutEquipment.StartInferenceScheduler+  ( -- * Creating a Request+    StartInferenceScheduler (..),+    newStartInferenceScheduler,++    -- * Request Lenses+    startInferenceScheduler_inferenceSchedulerName,++    -- * Destructuring the Response+    StartInferenceSchedulerResponse (..),+    newStartInferenceSchedulerResponse,++    -- * Response Lenses+    startInferenceSchedulerResponse_inferenceSchedulerArn,+    startInferenceSchedulerResponse_inferenceSchedulerName,+    startInferenceSchedulerResponse_modelArn,+    startInferenceSchedulerResponse_modelName,+    startInferenceSchedulerResponse_status,+    startInferenceSchedulerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartInferenceScheduler' smart constructor.+data StartInferenceScheduler = StartInferenceScheduler'+  { -- | The name of the inference scheduler to be started.+    inferenceSchedulerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartInferenceScheduler' 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:+--+-- 'inferenceSchedulerName', 'startInferenceScheduler_inferenceSchedulerName' - The name of the inference scheduler to be started.+newStartInferenceScheduler ::+  -- | 'inferenceSchedulerName'+  Prelude.Text ->+  StartInferenceScheduler+newStartInferenceScheduler pInferenceSchedulerName_ =+  StartInferenceScheduler'+    { inferenceSchedulerName =+        pInferenceSchedulerName_+    }++-- | The name of the inference scheduler to be started.+startInferenceScheduler_inferenceSchedulerName :: Lens.Lens' StartInferenceScheduler Prelude.Text+startInferenceScheduler_inferenceSchedulerName = Lens.lens (\StartInferenceScheduler' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@StartInferenceScheduler' {} a -> s {inferenceSchedulerName = a} :: StartInferenceScheduler)++instance Core.AWSRequest StartInferenceScheduler where+  type+    AWSResponse StartInferenceScheduler =+      StartInferenceSchedulerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartInferenceSchedulerResponse'+            Prelude.<$> (x Data..?> "InferenceSchedulerArn")+            Prelude.<*> (x Data..?> "InferenceSchedulerName")+            Prelude.<*> (x Data..?> "ModelArn")+            Prelude.<*> (x Data..?> "ModelName")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartInferenceScheduler where+  hashWithSalt _salt StartInferenceScheduler' {..} =+    _salt `Prelude.hashWithSalt` inferenceSchedulerName++instance Prelude.NFData StartInferenceScheduler where+  rnf StartInferenceScheduler' {..} =+    Prelude.rnf inferenceSchedulerName++instance Data.ToHeaders StartInferenceScheduler where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.StartInferenceScheduler" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartInferenceScheduler where+  toJSON StartInferenceScheduler' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "InferenceSchedulerName"+                  Data..= inferenceSchedulerName+              )+          ]+      )++instance Data.ToPath StartInferenceScheduler where+  toPath = Prelude.const "/"++instance Data.ToQuery StartInferenceScheduler where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartInferenceSchedulerResponse' smart constructor.+data StartInferenceSchedulerResponse = StartInferenceSchedulerResponse'+  { -- | The Amazon Resource Name (ARN) of the inference scheduler being started.+    inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the inference scheduler being started.+    inferenceSchedulerName :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the ML model being used by the+    -- inference scheduler.+    modelArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the ML model being used by the inference scheduler.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the inference scheduler.+    status :: Prelude.Maybe InferenceSchedulerStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartInferenceSchedulerResponse' 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:+--+-- 'inferenceSchedulerArn', 'startInferenceSchedulerResponse_inferenceSchedulerArn' - The Amazon Resource Name (ARN) of the inference scheduler being started.+--+-- 'inferenceSchedulerName', 'startInferenceSchedulerResponse_inferenceSchedulerName' - The name of the inference scheduler being started.+--+-- 'modelArn', 'startInferenceSchedulerResponse_modelArn' - The Amazon Resource Name (ARN) of the ML model being used by the+-- inference scheduler.+--+-- 'modelName', 'startInferenceSchedulerResponse_modelName' - The name of the ML model being used by the inference scheduler.+--+-- 'status', 'startInferenceSchedulerResponse_status' - Indicates the status of the inference scheduler.+--+-- 'httpStatus', 'startInferenceSchedulerResponse_httpStatus' - The response's http status code.+newStartInferenceSchedulerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartInferenceSchedulerResponse+newStartInferenceSchedulerResponse pHttpStatus_ =+  StartInferenceSchedulerResponse'+    { inferenceSchedulerArn =+        Prelude.Nothing,+      inferenceSchedulerName = Prelude.Nothing,+      modelArn = Prelude.Nothing,+      modelName = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon Resource Name (ARN) of the inference scheduler being started.+startInferenceSchedulerResponse_inferenceSchedulerArn :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+startInferenceSchedulerResponse_inferenceSchedulerArn = Lens.lens (\StartInferenceSchedulerResponse' {inferenceSchedulerArn} -> inferenceSchedulerArn) (\s@StartInferenceSchedulerResponse' {} a -> s {inferenceSchedulerArn = a} :: StartInferenceSchedulerResponse)++-- | The name of the inference scheduler being started.+startInferenceSchedulerResponse_inferenceSchedulerName :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+startInferenceSchedulerResponse_inferenceSchedulerName = Lens.lens (\StartInferenceSchedulerResponse' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@StartInferenceSchedulerResponse' {} a -> s {inferenceSchedulerName = a} :: StartInferenceSchedulerResponse)++-- | The Amazon Resource Name (ARN) of the ML model being used by the+-- inference scheduler.+startInferenceSchedulerResponse_modelArn :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+startInferenceSchedulerResponse_modelArn = Lens.lens (\StartInferenceSchedulerResponse' {modelArn} -> modelArn) (\s@StartInferenceSchedulerResponse' {} a -> s {modelArn = a} :: StartInferenceSchedulerResponse)++-- | The name of the ML model being used by the inference scheduler.+startInferenceSchedulerResponse_modelName :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+startInferenceSchedulerResponse_modelName = Lens.lens (\StartInferenceSchedulerResponse' {modelName} -> modelName) (\s@StartInferenceSchedulerResponse' {} a -> s {modelName = a} :: StartInferenceSchedulerResponse)++-- | Indicates the status of the inference scheduler.+startInferenceSchedulerResponse_status :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe InferenceSchedulerStatus)+startInferenceSchedulerResponse_status = Lens.lens (\StartInferenceSchedulerResponse' {status} -> status) (\s@StartInferenceSchedulerResponse' {} a -> s {status = a} :: StartInferenceSchedulerResponse)++-- | The response's http status code.+startInferenceSchedulerResponse_httpStatus :: Lens.Lens' StartInferenceSchedulerResponse Prelude.Int+startInferenceSchedulerResponse_httpStatus = Lens.lens (\StartInferenceSchedulerResponse' {httpStatus} -> httpStatus) (\s@StartInferenceSchedulerResponse' {} a -> s {httpStatus = a} :: StartInferenceSchedulerResponse)++instance+  Prelude.NFData+    StartInferenceSchedulerResponse+  where+  rnf StartInferenceSchedulerResponse' {..} =+    Prelude.rnf inferenceSchedulerArn+      `Prelude.seq` Prelude.rnf inferenceSchedulerName+      `Prelude.seq` Prelude.rnf modelArn+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/StopInferenceScheduler.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.LookoutEquipment.StopInferenceScheduler+-- 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 an inference scheduler.+module Amazonka.LookoutEquipment.StopInferenceScheduler+  ( -- * Creating a Request+    StopInferenceScheduler (..),+    newStopInferenceScheduler,++    -- * Request Lenses+    stopInferenceScheduler_inferenceSchedulerName,++    -- * Destructuring the Response+    StopInferenceSchedulerResponse (..),+    newStopInferenceSchedulerResponse,++    -- * Response Lenses+    stopInferenceSchedulerResponse_inferenceSchedulerArn,+    stopInferenceSchedulerResponse_inferenceSchedulerName,+    stopInferenceSchedulerResponse_modelArn,+    stopInferenceSchedulerResponse_modelName,+    stopInferenceSchedulerResponse_status,+    stopInferenceSchedulerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStopInferenceScheduler' smart constructor.+data StopInferenceScheduler = StopInferenceScheduler'+  { -- | The name of the inference scheduler to be stopped.+    inferenceSchedulerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopInferenceScheduler' 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:+--+-- 'inferenceSchedulerName', 'stopInferenceScheduler_inferenceSchedulerName' - The name of the inference scheduler to be stopped.+newStopInferenceScheduler ::+  -- | 'inferenceSchedulerName'+  Prelude.Text ->+  StopInferenceScheduler+newStopInferenceScheduler pInferenceSchedulerName_ =+  StopInferenceScheduler'+    { inferenceSchedulerName =+        pInferenceSchedulerName_+    }++-- | The name of the inference scheduler to be stopped.+stopInferenceScheduler_inferenceSchedulerName :: Lens.Lens' StopInferenceScheduler Prelude.Text+stopInferenceScheduler_inferenceSchedulerName = Lens.lens (\StopInferenceScheduler' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@StopInferenceScheduler' {} a -> s {inferenceSchedulerName = a} :: StopInferenceScheduler)++instance Core.AWSRequest StopInferenceScheduler where+  type+    AWSResponse StopInferenceScheduler =+      StopInferenceSchedulerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StopInferenceSchedulerResponse'+            Prelude.<$> (x Data..?> "InferenceSchedulerArn")+            Prelude.<*> (x Data..?> "InferenceSchedulerName")+            Prelude.<*> (x Data..?> "ModelArn")+            Prelude.<*> (x Data..?> "ModelName")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopInferenceScheduler where+  hashWithSalt _salt StopInferenceScheduler' {..} =+    _salt `Prelude.hashWithSalt` inferenceSchedulerName++instance Prelude.NFData StopInferenceScheduler where+  rnf StopInferenceScheduler' {..} =+    Prelude.rnf inferenceSchedulerName++instance Data.ToHeaders StopInferenceScheduler where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.StopInferenceScheduler" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopInferenceScheduler where+  toJSON StopInferenceScheduler' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "InferenceSchedulerName"+                  Data..= inferenceSchedulerName+              )+          ]+      )++instance Data.ToPath StopInferenceScheduler where+  toPath = Prelude.const "/"++instance Data.ToQuery StopInferenceScheduler where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStopInferenceSchedulerResponse' smart constructor.+data StopInferenceSchedulerResponse = StopInferenceSchedulerResponse'+  { -- | The Amazon Resource Name (ARN) of the inference schedule being stopped.+    inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the inference scheduler being stopped.+    inferenceSchedulerName :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the ML model used by the inference+    -- scheduler being stopped.+    modelArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the ML model used by the inference scheduler being stopped.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the inference scheduler.+    status :: Prelude.Maybe InferenceSchedulerStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopInferenceSchedulerResponse' 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:+--+-- 'inferenceSchedulerArn', 'stopInferenceSchedulerResponse_inferenceSchedulerArn' - The Amazon Resource Name (ARN) of the inference schedule being stopped.+--+-- 'inferenceSchedulerName', 'stopInferenceSchedulerResponse_inferenceSchedulerName' - The name of the inference scheduler being stopped.+--+-- 'modelArn', 'stopInferenceSchedulerResponse_modelArn' - The Amazon Resource Name (ARN) of the ML model used by the inference+-- scheduler being stopped.+--+-- 'modelName', 'stopInferenceSchedulerResponse_modelName' - The name of the ML model used by the inference scheduler being stopped.+--+-- 'status', 'stopInferenceSchedulerResponse_status' - Indicates the status of the inference scheduler.+--+-- 'httpStatus', 'stopInferenceSchedulerResponse_httpStatus' - The response's http status code.+newStopInferenceSchedulerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopInferenceSchedulerResponse+newStopInferenceSchedulerResponse pHttpStatus_ =+  StopInferenceSchedulerResponse'+    { inferenceSchedulerArn =+        Prelude.Nothing,+      inferenceSchedulerName = Prelude.Nothing,+      modelArn = Prelude.Nothing,+      modelName = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon Resource Name (ARN) of the inference schedule being stopped.+stopInferenceSchedulerResponse_inferenceSchedulerArn :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+stopInferenceSchedulerResponse_inferenceSchedulerArn = Lens.lens (\StopInferenceSchedulerResponse' {inferenceSchedulerArn} -> inferenceSchedulerArn) (\s@StopInferenceSchedulerResponse' {} a -> s {inferenceSchedulerArn = a} :: StopInferenceSchedulerResponse)++-- | The name of the inference scheduler being stopped.+stopInferenceSchedulerResponse_inferenceSchedulerName :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+stopInferenceSchedulerResponse_inferenceSchedulerName = Lens.lens (\StopInferenceSchedulerResponse' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@StopInferenceSchedulerResponse' {} a -> s {inferenceSchedulerName = a} :: StopInferenceSchedulerResponse)++-- | The Amazon Resource Name (ARN) of the ML model used by the inference+-- scheduler being stopped.+stopInferenceSchedulerResponse_modelArn :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+stopInferenceSchedulerResponse_modelArn = Lens.lens (\StopInferenceSchedulerResponse' {modelArn} -> modelArn) (\s@StopInferenceSchedulerResponse' {} a -> s {modelArn = a} :: StopInferenceSchedulerResponse)++-- | The name of the ML model used by the inference scheduler being stopped.+stopInferenceSchedulerResponse_modelName :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)+stopInferenceSchedulerResponse_modelName = Lens.lens (\StopInferenceSchedulerResponse' {modelName} -> modelName) (\s@StopInferenceSchedulerResponse' {} a -> s {modelName = a} :: StopInferenceSchedulerResponse)++-- | Indicates the status of the inference scheduler.+stopInferenceSchedulerResponse_status :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe InferenceSchedulerStatus)+stopInferenceSchedulerResponse_status = Lens.lens (\StopInferenceSchedulerResponse' {status} -> status) (\s@StopInferenceSchedulerResponse' {} a -> s {status = a} :: StopInferenceSchedulerResponse)++-- | The response's http status code.+stopInferenceSchedulerResponse_httpStatus :: Lens.Lens' StopInferenceSchedulerResponse Prelude.Int+stopInferenceSchedulerResponse_httpStatus = Lens.lens (\StopInferenceSchedulerResponse' {httpStatus} -> httpStatus) (\s@StopInferenceSchedulerResponse' {} a -> s {httpStatus = a} :: StopInferenceSchedulerResponse)++instance+  Prelude.NFData+    StopInferenceSchedulerResponse+  where+  rnf StopInferenceSchedulerResponse' {..} =+    Prelude.rnf inferenceSchedulerArn+      `Prelude.seq` Prelude.rnf inferenceSchedulerName+      `Prelude.seq` Prelude.rnf modelArn+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/LookoutEquipment/TagResource.hs view
@@ -0,0 +1,179 @@+{-# 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.LookoutEquipment.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)+--+-- Associates a given tag to a resource in your account. A tag is a+-- key-value pair which can be added to an Amazon Lookout for Equipment+-- resource as metadata. Tags can be used for organizing your resources as+-- well as helping you to search and filter by tag. Multiple tags can be+-- added to a resource, either when you create it, or later. Up to 50 tags+-- can be associated with each resource.+module Amazonka.LookoutEquipment.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.LookoutEquipment.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 Amazon Resource Name (ARN) of the specific resource to which the tag+    -- should be associated.+    resourceArn :: Prelude.Text,+    -- | The tag or tags to be associated with a specific resource. Both the tag+    -- key and value are specified.+    tags :: [Tag]+  }+  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 Amazon Resource Name (ARN) of the specific resource to which the tag+-- should be associated.+--+-- 'tags', 'tagResource_tags' - The tag or tags to be associated with a specific resource. Both the tag+-- key and value are specified.+newTagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  TagResource+newTagResource pResourceArn_ =+  TagResource'+    { resourceArn = pResourceArn_,+      tags = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the specific resource to which the tag+-- should be associated.+tagResource_resourceArn :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceArn = Lens.lens (\TagResource' {resourceArn} -> resourceArn) (\s@TagResource' {} a -> s {resourceArn = a} :: TagResource)++-- | The tag or tags to be associated with a specific resource. Both the tag+-- key and value are specified.+tagResource_tags :: Lens.Lens' TagResource [Tag]+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+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.TagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceArn" Data..= resourceArn),+            Prelude.Just ("Tags" Data..= tags)+          ]+      )++instance Data.ToPath TagResource where+  toPath = Prelude.const "/"++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/LookoutEquipment/Types.hs view
@@ -0,0 +1,502 @@+{-# 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.LookoutEquipment.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.LookoutEquipment.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _AccessDeniedException,+    _ConflictException,+    _InternalServerException,+    _ResourceNotFoundException,+    _ServiceQuotaExceededException,+    _ThrottlingException,+    _ValidationException,++    -- * DataUploadFrequency+    DataUploadFrequency (..),++    -- * DatasetStatus+    DatasetStatus (..),++    -- * InferenceExecutionStatus+    InferenceExecutionStatus (..),++    -- * InferenceSchedulerStatus+    InferenceSchedulerStatus (..),++    -- * IngestionJobStatus+    IngestionJobStatus (..),++    -- * LabelRating+    LabelRating (..),++    -- * LatestInferenceResult+    LatestInferenceResult (..),++    -- * ModelStatus+    ModelStatus (..),++    -- * Monotonicity+    Monotonicity (..),++    -- * StatisticalIssueStatus+    StatisticalIssueStatus (..),++    -- * TargetSamplingRate+    TargetSamplingRate (..),++    -- * CategoricalValues+    CategoricalValues (..),+    newCategoricalValues,+    categoricalValues_numberOfCategory,+    categoricalValues_status,++    -- * CountPercent+    CountPercent (..),+    newCountPercent,+    countPercent_count,+    countPercent_percentage,++    -- * DataIngestionJobSummary+    DataIngestionJobSummary (..),+    newDataIngestionJobSummary,+    dataIngestionJobSummary_datasetArn,+    dataIngestionJobSummary_datasetName,+    dataIngestionJobSummary_ingestionInputConfiguration,+    dataIngestionJobSummary_jobId,+    dataIngestionJobSummary_status,++    -- * DataPreProcessingConfiguration+    DataPreProcessingConfiguration (..),+    newDataPreProcessingConfiguration,+    dataPreProcessingConfiguration_targetSamplingRate,++    -- * DataQualitySummary+    DataQualitySummary (..),+    newDataQualitySummary,+    dataQualitySummary_insufficientSensorData,+    dataQualitySummary_missingSensorData,+    dataQualitySummary_invalidSensorData,+    dataQualitySummary_unsupportedTimestamps,+    dataQualitySummary_duplicateTimestamps,++    -- * DatasetSchema+    DatasetSchema (..),+    newDatasetSchema,+    datasetSchema_inlineDataSchema,++    -- * DatasetSummary+    DatasetSummary (..),+    newDatasetSummary,+    datasetSummary_createdAt,+    datasetSummary_datasetArn,+    datasetSummary_datasetName,+    datasetSummary_status,++    -- * DuplicateTimestamps+    DuplicateTimestamps (..),+    newDuplicateTimestamps,+    duplicateTimestamps_totalNumberOfDuplicateTimestamps,++    -- * InferenceEventSummary+    InferenceEventSummary (..),+    newInferenceEventSummary,+    inferenceEventSummary_diagnostics,+    inferenceEventSummary_eventDurationInSeconds,+    inferenceEventSummary_eventEndTime,+    inferenceEventSummary_eventStartTime,+    inferenceEventSummary_inferenceSchedulerArn,+    inferenceEventSummary_inferenceSchedulerName,++    -- * InferenceExecutionSummary+    InferenceExecutionSummary (..),+    newInferenceExecutionSummary,+    inferenceExecutionSummary_customerResultObject,+    inferenceExecutionSummary_dataEndTime,+    inferenceExecutionSummary_dataInputConfiguration,+    inferenceExecutionSummary_dataOutputConfiguration,+    inferenceExecutionSummary_dataStartTime,+    inferenceExecutionSummary_failedReason,+    inferenceExecutionSummary_inferenceSchedulerArn,+    inferenceExecutionSummary_inferenceSchedulerName,+    inferenceExecutionSummary_modelArn,+    inferenceExecutionSummary_modelName,+    inferenceExecutionSummary_scheduledStartTime,+    inferenceExecutionSummary_status,++    -- * InferenceInputConfiguration+    InferenceInputConfiguration (..),+    newInferenceInputConfiguration,+    inferenceInputConfiguration_inferenceInputNameConfiguration,+    inferenceInputConfiguration_inputTimeZoneOffset,+    inferenceInputConfiguration_s3InputConfiguration,++    -- * InferenceInputNameConfiguration+    InferenceInputNameConfiguration (..),+    newInferenceInputNameConfiguration,+    inferenceInputNameConfiguration_componentTimestampDelimiter,+    inferenceInputNameConfiguration_timestampFormat,++    -- * InferenceOutputConfiguration+    InferenceOutputConfiguration (..),+    newInferenceOutputConfiguration,+    inferenceOutputConfiguration_kmsKeyId,+    inferenceOutputConfiguration_s3OutputConfiguration,++    -- * InferenceS3InputConfiguration+    InferenceS3InputConfiguration (..),+    newInferenceS3InputConfiguration,+    inferenceS3InputConfiguration_prefix,+    inferenceS3InputConfiguration_bucket,++    -- * InferenceS3OutputConfiguration+    InferenceS3OutputConfiguration (..),+    newInferenceS3OutputConfiguration,+    inferenceS3OutputConfiguration_prefix,+    inferenceS3OutputConfiguration_bucket,++    -- * InferenceSchedulerSummary+    InferenceSchedulerSummary (..),+    newInferenceSchedulerSummary,+    inferenceSchedulerSummary_dataDelayOffsetInMinutes,+    inferenceSchedulerSummary_dataUploadFrequency,+    inferenceSchedulerSummary_inferenceSchedulerArn,+    inferenceSchedulerSummary_inferenceSchedulerName,+    inferenceSchedulerSummary_latestInferenceResult,+    inferenceSchedulerSummary_modelArn,+    inferenceSchedulerSummary_modelName,+    inferenceSchedulerSummary_status,++    -- * IngestedFilesSummary+    IngestedFilesSummary (..),+    newIngestedFilesSummary,+    ingestedFilesSummary_discardedFiles,+    ingestedFilesSummary_totalNumberOfFiles,+    ingestedFilesSummary_ingestedNumberOfFiles,++    -- * IngestionInputConfiguration+    IngestionInputConfiguration (..),+    newIngestionInputConfiguration,+    ingestionInputConfiguration_s3InputConfiguration,++    -- * IngestionS3InputConfiguration+    IngestionS3InputConfiguration (..),+    newIngestionS3InputConfiguration,+    ingestionS3InputConfiguration_keyPattern,+    ingestionS3InputConfiguration_prefix,+    ingestionS3InputConfiguration_bucket,++    -- * InsufficientSensorData+    InsufficientSensorData (..),+    newInsufficientSensorData,+    insufficientSensorData_missingCompleteSensorData,+    insufficientSensorData_sensorsWithShortDateRange,++    -- * InvalidSensorData+    InvalidSensorData (..),+    newInvalidSensorData,+    invalidSensorData_affectedSensorCount,+    invalidSensorData_totalNumberOfInvalidValues,++    -- * LabelGroupSummary+    LabelGroupSummary (..),+    newLabelGroupSummary,+    labelGroupSummary_createdAt,+    labelGroupSummary_labelGroupArn,+    labelGroupSummary_labelGroupName,+    labelGroupSummary_updatedAt,++    -- * LabelSummary+    LabelSummary (..),+    newLabelSummary,+    labelSummary_createdAt,+    labelSummary_endTime,+    labelSummary_equipment,+    labelSummary_faultCode,+    labelSummary_labelGroupArn,+    labelSummary_labelGroupName,+    labelSummary_labelId,+    labelSummary_rating,+    labelSummary_startTime,++    -- * LabelsInputConfiguration+    LabelsInputConfiguration (..),+    newLabelsInputConfiguration,+    labelsInputConfiguration_labelGroupName,+    labelsInputConfiguration_s3InputConfiguration,++    -- * LabelsS3InputConfiguration+    LabelsS3InputConfiguration (..),+    newLabelsS3InputConfiguration,+    labelsS3InputConfiguration_prefix,+    labelsS3InputConfiguration_bucket,++    -- * LargeTimestampGaps+    LargeTimestampGaps (..),+    newLargeTimestampGaps,+    largeTimestampGaps_maxTimestampGapInDays,+    largeTimestampGaps_numberOfLargeTimestampGaps,+    largeTimestampGaps_status,++    -- * MissingCompleteSensorData+    MissingCompleteSensorData (..),+    newMissingCompleteSensorData,+    missingCompleteSensorData_affectedSensorCount,++    -- * MissingSensorData+    MissingSensorData (..),+    newMissingSensorData,+    missingSensorData_affectedSensorCount,+    missingSensorData_totalNumberOfMissingValues,++    -- * ModelSummary+    ModelSummary (..),+    newModelSummary,+    modelSummary_createdAt,+    modelSummary_datasetArn,+    modelSummary_datasetName,+    modelSummary_modelArn,+    modelSummary_modelName,+    modelSummary_status,++    -- * MonotonicValues+    MonotonicValues (..),+    newMonotonicValues,+    monotonicValues_monotonicity,+    monotonicValues_status,++    -- * MultipleOperatingModes+    MultipleOperatingModes (..),+    newMultipleOperatingModes,+    multipleOperatingModes_status,++    -- * S3Object+    S3Object (..),+    newS3Object,+    s3Object_bucket,+    s3Object_key,++    -- * SensorStatisticsSummary+    SensorStatisticsSummary (..),+    newSensorStatisticsSummary,+    sensorStatisticsSummary_categoricalValues,+    sensorStatisticsSummary_componentName,+    sensorStatisticsSummary_dataEndTime,+    sensorStatisticsSummary_dataExists,+    sensorStatisticsSummary_dataStartTime,+    sensorStatisticsSummary_duplicateTimestamps,+    sensorStatisticsSummary_invalidDateEntries,+    sensorStatisticsSummary_invalidValues,+    sensorStatisticsSummary_largeTimestampGaps,+    sensorStatisticsSummary_missingValues,+    sensorStatisticsSummary_monotonicValues,+    sensorStatisticsSummary_multipleOperatingModes,+    sensorStatisticsSummary_sensorName,++    -- * SensorsWithShortDateRange+    SensorsWithShortDateRange (..),+    newSensorsWithShortDateRange,+    sensorsWithShortDateRange_affectedSensorCount,++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,++    -- * UnsupportedTimestamps+    UnsupportedTimestamps (..),+    newUnsupportedTimestamps,+    unsupportedTimestamps_totalNumberOfUnsupportedTimestamps,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.LookoutEquipment.Types.CategoricalValues+import Amazonka.LookoutEquipment.Types.CountPercent+import Amazonka.LookoutEquipment.Types.DataIngestionJobSummary+import Amazonka.LookoutEquipment.Types.DataPreProcessingConfiguration+import Amazonka.LookoutEquipment.Types.DataQualitySummary+import Amazonka.LookoutEquipment.Types.DataUploadFrequency+import Amazonka.LookoutEquipment.Types.DatasetSchema+import Amazonka.LookoutEquipment.Types.DatasetStatus+import Amazonka.LookoutEquipment.Types.DatasetSummary+import Amazonka.LookoutEquipment.Types.DuplicateTimestamps+import Amazonka.LookoutEquipment.Types.InferenceEventSummary+import Amazonka.LookoutEquipment.Types.InferenceExecutionStatus+import Amazonka.LookoutEquipment.Types.InferenceExecutionSummary+import Amazonka.LookoutEquipment.Types.InferenceInputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceInputNameConfiguration+import Amazonka.LookoutEquipment.Types.InferenceOutputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceS3InputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceS3OutputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceSchedulerStatus+import Amazonka.LookoutEquipment.Types.InferenceSchedulerSummary+import Amazonka.LookoutEquipment.Types.IngestedFilesSummary+import Amazonka.LookoutEquipment.Types.IngestionInputConfiguration+import Amazonka.LookoutEquipment.Types.IngestionJobStatus+import Amazonka.LookoutEquipment.Types.IngestionS3InputConfiguration+import Amazonka.LookoutEquipment.Types.InsufficientSensorData+import Amazonka.LookoutEquipment.Types.InvalidSensorData+import Amazonka.LookoutEquipment.Types.LabelGroupSummary+import Amazonka.LookoutEquipment.Types.LabelRating+import Amazonka.LookoutEquipment.Types.LabelSummary+import Amazonka.LookoutEquipment.Types.LabelsInputConfiguration+import Amazonka.LookoutEquipment.Types.LabelsS3InputConfiguration+import Amazonka.LookoutEquipment.Types.LargeTimestampGaps+import Amazonka.LookoutEquipment.Types.LatestInferenceResult+import Amazonka.LookoutEquipment.Types.MissingCompleteSensorData+import Amazonka.LookoutEquipment.Types.MissingSensorData+import Amazonka.LookoutEquipment.Types.ModelStatus+import Amazonka.LookoutEquipment.Types.ModelSummary+import Amazonka.LookoutEquipment.Types.MonotonicValues+import Amazonka.LookoutEquipment.Types.Monotonicity+import Amazonka.LookoutEquipment.Types.MultipleOperatingModes+import Amazonka.LookoutEquipment.Types.S3Object+import Amazonka.LookoutEquipment.Types.SensorStatisticsSummary+import Amazonka.LookoutEquipment.Types.SensorsWithShortDateRange+import Amazonka.LookoutEquipment.Types.StatisticalIssueStatus+import Amazonka.LookoutEquipment.Types.Tag+import Amazonka.LookoutEquipment.Types.TargetSamplingRate+import Amazonka.LookoutEquipment.Types.UnsupportedTimestamps+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2020-12-15@ of the Amazon Lookout for Equipment SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "LookoutEquipment",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "lookoutequipment",+      Core.signingName = "lookoutequipment",+      Core.version = "2020-12-15",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "LookoutEquipment",+      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++-- | The request could not be completed because you do not have access to the+-- resource.+_AccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AccessDeniedException =+  Core._MatchServiceError+    defaultService+    "AccessDeniedException"++-- | The request could not be completed due to a conflict with the current+-- state of the target resource.+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConflictException =+  Core._MatchServiceError+    defaultService+    "ConflictException"++-- | Processing of the request has failed because of an unknown error,+-- exception or failure.+_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerException =+  Core._MatchServiceError+    defaultService+    "InternalServerException"++-- | The resource requested could not be found. Verify the resource ID and+-- retry your request.+_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceNotFoundException =+  Core._MatchServiceError+    defaultService+    "ResourceNotFoundException"++-- | Resource limitations have been exceeded.+_ServiceQuotaExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceQuotaExceededException =+  Core._MatchServiceError+    defaultService+    "ServiceQuotaExceededException"++-- | The request was denied due to request throttling.+_ThrottlingException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ThrottlingException =+  Core._MatchServiceError+    defaultService+    "ThrottlingException"++-- | The input fails to satisfy constraints specified by Amazon Lookout for+-- Equipment or a related AWS service that\'s being utilized.+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ValidationException =+  Core._MatchServiceError+    defaultService+    "ValidationException"
+ gen/Amazonka/LookoutEquipment/Types/CategoricalValues.hs view
@@ -0,0 +1,91 @@+{-# 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.LookoutEquipment.Types.CategoricalValues+-- 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.LookoutEquipment.Types.CategoricalValues where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.StatisticalIssueStatus+import qualified Amazonka.Prelude as Prelude++-- | Entity that comprises information on categorical values in data.+--+-- /See:/ 'newCategoricalValues' smart constructor.+data CategoricalValues = CategoricalValues'+  { -- | Indicates the number of categories in the data.+    numberOfCategory :: Prelude.Maybe Prelude.Int,+    -- | Indicates whether there is a potential data issue related to categorical+    -- values.+    status :: StatisticalIssueStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CategoricalValues' 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:+--+-- 'numberOfCategory', 'categoricalValues_numberOfCategory' - Indicates the number of categories in the data.+--+-- 'status', 'categoricalValues_status' - Indicates whether there is a potential data issue related to categorical+-- values.+newCategoricalValues ::+  -- | 'status'+  StatisticalIssueStatus ->+  CategoricalValues+newCategoricalValues pStatus_ =+  CategoricalValues'+    { numberOfCategory =+        Prelude.Nothing,+      status = pStatus_+    }++-- | Indicates the number of categories in the data.+categoricalValues_numberOfCategory :: Lens.Lens' CategoricalValues (Prelude.Maybe Prelude.Int)+categoricalValues_numberOfCategory = Lens.lens (\CategoricalValues' {numberOfCategory} -> numberOfCategory) (\s@CategoricalValues' {} a -> s {numberOfCategory = a} :: CategoricalValues)++-- | Indicates whether there is a potential data issue related to categorical+-- values.+categoricalValues_status :: Lens.Lens' CategoricalValues StatisticalIssueStatus+categoricalValues_status = Lens.lens (\CategoricalValues' {status} -> status) (\s@CategoricalValues' {} a -> s {status = a} :: CategoricalValues)++instance Data.FromJSON CategoricalValues where+  parseJSON =+    Data.withObject+      "CategoricalValues"+      ( \x ->+          CategoricalValues'+            Prelude.<$> (x Data..:? "NumberOfCategory")+            Prelude.<*> (x Data..: "Status")+      )++instance Prelude.Hashable CategoricalValues where+  hashWithSalt _salt CategoricalValues' {..} =+    _salt+      `Prelude.hashWithSalt` numberOfCategory+      `Prelude.hashWithSalt` status++instance Prelude.NFData CategoricalValues where+  rnf CategoricalValues' {..} =+    Prelude.rnf numberOfCategory+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/CountPercent.hs view
@@ -0,0 +1,88 @@+{-# 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.LookoutEquipment.Types.CountPercent+-- 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.LookoutEquipment.Types.CountPercent 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++-- | Entity that comprises information of count and percentage.+--+-- /See:/ 'newCountPercent' smart constructor.+data CountPercent = CountPercent'+  { -- | Indicates the count of occurences of the given statistic.+    count :: Prelude.Int,+    -- | Indicates the percentage of occurances of the given statistic.+    percentage :: Prelude.Double+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CountPercent' 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:+--+-- 'count', 'countPercent_count' - Indicates the count of occurences of the given statistic.+--+-- 'percentage', 'countPercent_percentage' - Indicates the percentage of occurances of the given statistic.+newCountPercent ::+  -- | 'count'+  Prelude.Int ->+  -- | 'percentage'+  Prelude.Double ->+  CountPercent+newCountPercent pCount_ pPercentage_ =+  CountPercent'+    { count = pCount_,+      percentage = pPercentage_+    }++-- | Indicates the count of occurences of the given statistic.+countPercent_count :: Lens.Lens' CountPercent Prelude.Int+countPercent_count = Lens.lens (\CountPercent' {count} -> count) (\s@CountPercent' {} a -> s {count = a} :: CountPercent)++-- | Indicates the percentage of occurances of the given statistic.+countPercent_percentage :: Lens.Lens' CountPercent Prelude.Double+countPercent_percentage = Lens.lens (\CountPercent' {percentage} -> percentage) (\s@CountPercent' {} a -> s {percentage = a} :: CountPercent)++instance Data.FromJSON CountPercent where+  parseJSON =+    Data.withObject+      "CountPercent"+      ( \x ->+          CountPercent'+            Prelude.<$> (x Data..: "Count")+            Prelude.<*> (x Data..: "Percentage")+      )++instance Prelude.Hashable CountPercent where+  hashWithSalt _salt CountPercent' {..} =+    _salt+      `Prelude.hashWithSalt` count+      `Prelude.hashWithSalt` percentage++instance Prelude.NFData CountPercent where+  rnf CountPercent' {..} =+    Prelude.rnf count+      `Prelude.seq` Prelude.rnf percentage
+ gen/Amazonka/LookoutEquipment/Types/DataIngestionJobSummary.hs view
@@ -0,0 +1,130 @@+{-# 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.LookoutEquipment.Types.DataIngestionJobSummary+-- 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.LookoutEquipment.Types.DataIngestionJobSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.IngestionInputConfiguration+import Amazonka.LookoutEquipment.Types.IngestionJobStatus+import qualified Amazonka.Prelude as Prelude++-- | Provides information about a specified data ingestion job, including+-- dataset information, data ingestion configuration, and status.+--+-- /See:/ 'newDataIngestionJobSummary' smart constructor.+data DataIngestionJobSummary = DataIngestionJobSummary'+  { -- | The Amazon Resource Name (ARN) of the dataset used in the data ingestion+    -- job.+    datasetArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the dataset used for the data ingestion job.+    datasetName :: Prelude.Maybe Prelude.Text,+    -- | Specifies information for the input data for the data inference job,+    -- including data Amazon S3 location parameters.+    ingestionInputConfiguration :: Prelude.Maybe IngestionInputConfiguration,+    -- | Indicates the job ID of the data ingestion job.+    jobId :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the data ingestion job.+    status :: Prelude.Maybe IngestionJobStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DataIngestionJobSummary' 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:+--+-- 'datasetArn', 'dataIngestionJobSummary_datasetArn' - The Amazon Resource Name (ARN) of the dataset used in the data ingestion+-- job.+--+-- 'datasetName', 'dataIngestionJobSummary_datasetName' - The name of the dataset used for the data ingestion job.+--+-- 'ingestionInputConfiguration', 'dataIngestionJobSummary_ingestionInputConfiguration' - Specifies information for the input data for the data inference job,+-- including data Amazon S3 location parameters.+--+-- 'jobId', 'dataIngestionJobSummary_jobId' - Indicates the job ID of the data ingestion job.+--+-- 'status', 'dataIngestionJobSummary_status' - Indicates the status of the data ingestion job.+newDataIngestionJobSummary ::+  DataIngestionJobSummary+newDataIngestionJobSummary =+  DataIngestionJobSummary'+    { datasetArn =+        Prelude.Nothing,+      datasetName = Prelude.Nothing,+      ingestionInputConfiguration = Prelude.Nothing,+      jobId = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the dataset used in the data ingestion+-- job.+dataIngestionJobSummary_datasetArn :: Lens.Lens' DataIngestionJobSummary (Prelude.Maybe Prelude.Text)+dataIngestionJobSummary_datasetArn = Lens.lens (\DataIngestionJobSummary' {datasetArn} -> datasetArn) (\s@DataIngestionJobSummary' {} a -> s {datasetArn = a} :: DataIngestionJobSummary)++-- | The name of the dataset used for the data ingestion job.+dataIngestionJobSummary_datasetName :: Lens.Lens' DataIngestionJobSummary (Prelude.Maybe Prelude.Text)+dataIngestionJobSummary_datasetName = Lens.lens (\DataIngestionJobSummary' {datasetName} -> datasetName) (\s@DataIngestionJobSummary' {} a -> s {datasetName = a} :: DataIngestionJobSummary)++-- | Specifies information for the input data for the data inference job,+-- including data Amazon S3 location parameters.+dataIngestionJobSummary_ingestionInputConfiguration :: Lens.Lens' DataIngestionJobSummary (Prelude.Maybe IngestionInputConfiguration)+dataIngestionJobSummary_ingestionInputConfiguration = Lens.lens (\DataIngestionJobSummary' {ingestionInputConfiguration} -> ingestionInputConfiguration) (\s@DataIngestionJobSummary' {} a -> s {ingestionInputConfiguration = a} :: DataIngestionJobSummary)++-- | Indicates the job ID of the data ingestion job.+dataIngestionJobSummary_jobId :: Lens.Lens' DataIngestionJobSummary (Prelude.Maybe Prelude.Text)+dataIngestionJobSummary_jobId = Lens.lens (\DataIngestionJobSummary' {jobId} -> jobId) (\s@DataIngestionJobSummary' {} a -> s {jobId = a} :: DataIngestionJobSummary)++-- | Indicates the status of the data ingestion job.+dataIngestionJobSummary_status :: Lens.Lens' DataIngestionJobSummary (Prelude.Maybe IngestionJobStatus)+dataIngestionJobSummary_status = Lens.lens (\DataIngestionJobSummary' {status} -> status) (\s@DataIngestionJobSummary' {} a -> s {status = a} :: DataIngestionJobSummary)++instance Data.FromJSON DataIngestionJobSummary where+  parseJSON =+    Data.withObject+      "DataIngestionJobSummary"+      ( \x ->+          DataIngestionJobSummary'+            Prelude.<$> (x Data..:? "DatasetArn")+            Prelude.<*> (x Data..:? "DatasetName")+            Prelude.<*> (x Data..:? "IngestionInputConfiguration")+            Prelude.<*> (x Data..:? "JobId")+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable DataIngestionJobSummary where+  hashWithSalt _salt DataIngestionJobSummary' {..} =+    _salt+      `Prelude.hashWithSalt` datasetArn+      `Prelude.hashWithSalt` datasetName+      `Prelude.hashWithSalt` ingestionInputConfiguration+      `Prelude.hashWithSalt` jobId+      `Prelude.hashWithSalt` status++instance Prelude.NFData DataIngestionJobSummary where+  rnf DataIngestionJobSummary' {..} =+    Prelude.rnf datasetArn+      `Prelude.seq` Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf ingestionInputConfiguration+      `Prelude.seq` Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/DataPreProcessingConfiguration.hs view
@@ -0,0 +1,123 @@+{-# 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.LookoutEquipment.Types.DataPreProcessingConfiguration+-- 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.LookoutEquipment.Types.DataPreProcessingConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.TargetSamplingRate+import qualified Amazonka.Prelude as Prelude++-- | The configuration is the @TargetSamplingRate@, which is the sampling+-- rate of the data after post processing by Amazon Lookout for Equipment.+-- For example, if you provide data that has been collected at a 1 second+-- level and you want the system to resample the data at a 1 minute rate+-- before training, the @TargetSamplingRate@ is 1 minute.+--+-- When providing a value for the @TargetSamplingRate@, you must attach the+-- prefix \"PT\" to the rate you want. The value for a 1 second rate is+-- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+-- value for a 1 hour rate is /PT1H/+--+-- /See:/ 'newDataPreProcessingConfiguration' smart constructor.+data DataPreProcessingConfiguration = DataPreProcessingConfiguration'+  { -- | The sampling rate of the data after post processing by Amazon Lookout+    -- for Equipment. For example, if you provide data that has been collected+    -- at a 1 second level and you want the system to resample the data at a 1+    -- minute rate before training, the @TargetSamplingRate@ is 1 minute.+    --+    -- When providing a value for the @TargetSamplingRate@, you must attach the+    -- prefix \"PT\" to the rate you want. The value for a 1 second rate is+    -- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+    -- value for a 1 hour rate is /PT1H/+    targetSamplingRate :: Prelude.Maybe TargetSamplingRate+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DataPreProcessingConfiguration' 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:+--+-- 'targetSamplingRate', 'dataPreProcessingConfiguration_targetSamplingRate' - The sampling rate of the data after post processing by Amazon Lookout+-- for Equipment. For example, if you provide data that has been collected+-- at a 1 second level and you want the system to resample the data at a 1+-- minute rate before training, the @TargetSamplingRate@ is 1 minute.+--+-- When providing a value for the @TargetSamplingRate@, you must attach the+-- prefix \"PT\" to the rate you want. The value for a 1 second rate is+-- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+-- value for a 1 hour rate is /PT1H/+newDataPreProcessingConfiguration ::+  DataPreProcessingConfiguration+newDataPreProcessingConfiguration =+  DataPreProcessingConfiguration'+    { targetSamplingRate =+        Prelude.Nothing+    }++-- | The sampling rate of the data after post processing by Amazon Lookout+-- for Equipment. For example, if you provide data that has been collected+-- at a 1 second level and you want the system to resample the data at a 1+-- minute rate before training, the @TargetSamplingRate@ is 1 minute.+--+-- When providing a value for the @TargetSamplingRate@, you must attach the+-- prefix \"PT\" to the rate you want. The value for a 1 second rate is+-- therefore /PT1S/, the value for a 15 minute rate is /PT15M/, and the+-- value for a 1 hour rate is /PT1H/+dataPreProcessingConfiguration_targetSamplingRate :: Lens.Lens' DataPreProcessingConfiguration (Prelude.Maybe TargetSamplingRate)+dataPreProcessingConfiguration_targetSamplingRate = Lens.lens (\DataPreProcessingConfiguration' {targetSamplingRate} -> targetSamplingRate) (\s@DataPreProcessingConfiguration' {} a -> s {targetSamplingRate = a} :: DataPreProcessingConfiguration)++instance Data.FromJSON DataPreProcessingConfiguration where+  parseJSON =+    Data.withObject+      "DataPreProcessingConfiguration"+      ( \x ->+          DataPreProcessingConfiguration'+            Prelude.<$> (x Data..:? "TargetSamplingRate")+      )++instance+  Prelude.Hashable+    DataPreProcessingConfiguration+  where+  hashWithSalt+    _salt+    DataPreProcessingConfiguration' {..} =+      _salt `Prelude.hashWithSalt` targetSamplingRate++instance+  Prelude.NFData+    DataPreProcessingConfiguration+  where+  rnf DataPreProcessingConfiguration' {..} =+    Prelude.rnf targetSamplingRate++instance Data.ToJSON DataPreProcessingConfiguration where+  toJSON DataPreProcessingConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("TargetSamplingRate" Data..=)+              Prelude.<$> targetSamplingRate+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/DataQualitySummary.hs view
@@ -0,0 +1,163 @@+{-# 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.LookoutEquipment.Types.DataQualitySummary+-- 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.LookoutEquipment.Types.DataQualitySummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.DuplicateTimestamps+import Amazonka.LookoutEquipment.Types.InsufficientSensorData+import Amazonka.LookoutEquipment.Types.InvalidSensorData+import Amazonka.LookoutEquipment.Types.MissingSensorData+import Amazonka.LookoutEquipment.Types.UnsupportedTimestamps+import qualified Amazonka.Prelude as Prelude++-- | DataQualitySummary gives aggregated statistics over all the sensors+-- about a completed ingestion job. It primarily gives more information+-- about statistics over different incorrect data like+-- MissingCompleteSensorData, MissingSensorData, UnsupportedDateFormats,+-- InsufficientSensorData, DuplicateTimeStamps.+--+-- /See:/ 'newDataQualitySummary' smart constructor.+data DataQualitySummary = DataQualitySummary'+  { -- | Parameter that gives information about insufficient data for sensors in+    -- the dataset. This includes information about those sensors that have+    -- complete data missing and those with a short date range.+    insufficientSensorData :: InsufficientSensorData,+    -- | Parameter that gives information about data that is missing over all the+    -- sensors in the input data.+    missingSensorData :: MissingSensorData,+    -- | Parameter that gives information about data that is invalid over all the+    -- sensors in the input data.+    invalidSensorData :: InvalidSensorData,+    -- | Parameter that gives information about unsupported timestamps in the+    -- input data.+    unsupportedTimestamps :: UnsupportedTimestamps,+    -- | Parameter that gives information about duplicate timestamps in the input+    -- data.+    duplicateTimestamps :: DuplicateTimestamps+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DataQualitySummary' 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:+--+-- 'insufficientSensorData', 'dataQualitySummary_insufficientSensorData' - Parameter that gives information about insufficient data for sensors in+-- the dataset. This includes information about those sensors that have+-- complete data missing and those with a short date range.+--+-- 'missingSensorData', 'dataQualitySummary_missingSensorData' - Parameter that gives information about data that is missing over all the+-- sensors in the input data.+--+-- 'invalidSensorData', 'dataQualitySummary_invalidSensorData' - Parameter that gives information about data that is invalid over all the+-- sensors in the input data.+--+-- 'unsupportedTimestamps', 'dataQualitySummary_unsupportedTimestamps' - Parameter that gives information about unsupported timestamps in the+-- input data.+--+-- 'duplicateTimestamps', 'dataQualitySummary_duplicateTimestamps' - Parameter that gives information about duplicate timestamps in the input+-- data.+newDataQualitySummary ::+  -- | 'insufficientSensorData'+  InsufficientSensorData ->+  -- | 'missingSensorData'+  MissingSensorData ->+  -- | 'invalidSensorData'+  InvalidSensorData ->+  -- | 'unsupportedTimestamps'+  UnsupportedTimestamps ->+  -- | 'duplicateTimestamps'+  DuplicateTimestamps ->+  DataQualitySummary+newDataQualitySummary+  pInsufficientSensorData_+  pMissingSensorData_+  pInvalidSensorData_+  pUnsupportedTimestamps_+  pDuplicateTimestamps_ =+    DataQualitySummary'+      { insufficientSensorData =+          pInsufficientSensorData_,+        missingSensorData = pMissingSensorData_,+        invalidSensorData = pInvalidSensorData_,+        unsupportedTimestamps = pUnsupportedTimestamps_,+        duplicateTimestamps = pDuplicateTimestamps_+      }++-- | Parameter that gives information about insufficient data for sensors in+-- the dataset. This includes information about those sensors that have+-- complete data missing and those with a short date range.+dataQualitySummary_insufficientSensorData :: Lens.Lens' DataQualitySummary InsufficientSensorData+dataQualitySummary_insufficientSensorData = Lens.lens (\DataQualitySummary' {insufficientSensorData} -> insufficientSensorData) (\s@DataQualitySummary' {} a -> s {insufficientSensorData = a} :: DataQualitySummary)++-- | Parameter that gives information about data that is missing over all the+-- sensors in the input data.+dataQualitySummary_missingSensorData :: Lens.Lens' DataQualitySummary MissingSensorData+dataQualitySummary_missingSensorData = Lens.lens (\DataQualitySummary' {missingSensorData} -> missingSensorData) (\s@DataQualitySummary' {} a -> s {missingSensorData = a} :: DataQualitySummary)++-- | Parameter that gives information about data that is invalid over all the+-- sensors in the input data.+dataQualitySummary_invalidSensorData :: Lens.Lens' DataQualitySummary InvalidSensorData+dataQualitySummary_invalidSensorData = Lens.lens (\DataQualitySummary' {invalidSensorData} -> invalidSensorData) (\s@DataQualitySummary' {} a -> s {invalidSensorData = a} :: DataQualitySummary)++-- | Parameter that gives information about unsupported timestamps in the+-- input data.+dataQualitySummary_unsupportedTimestamps :: Lens.Lens' DataQualitySummary UnsupportedTimestamps+dataQualitySummary_unsupportedTimestamps = Lens.lens (\DataQualitySummary' {unsupportedTimestamps} -> unsupportedTimestamps) (\s@DataQualitySummary' {} a -> s {unsupportedTimestamps = a} :: DataQualitySummary)++-- | Parameter that gives information about duplicate timestamps in the input+-- data.+dataQualitySummary_duplicateTimestamps :: Lens.Lens' DataQualitySummary DuplicateTimestamps+dataQualitySummary_duplicateTimestamps = Lens.lens (\DataQualitySummary' {duplicateTimestamps} -> duplicateTimestamps) (\s@DataQualitySummary' {} a -> s {duplicateTimestamps = a} :: DataQualitySummary)++instance Data.FromJSON DataQualitySummary where+  parseJSON =+    Data.withObject+      "DataQualitySummary"+      ( \x ->+          DataQualitySummary'+            Prelude.<$> (x Data..: "InsufficientSensorData")+            Prelude.<*> (x Data..: "MissingSensorData")+            Prelude.<*> (x Data..: "InvalidSensorData")+            Prelude.<*> (x Data..: "UnsupportedTimestamps")+            Prelude.<*> (x Data..: "DuplicateTimestamps")+      )++instance Prelude.Hashable DataQualitySummary where+  hashWithSalt _salt DataQualitySummary' {..} =+    _salt+      `Prelude.hashWithSalt` insufficientSensorData+      `Prelude.hashWithSalt` missingSensorData+      `Prelude.hashWithSalt` invalidSensorData+      `Prelude.hashWithSalt` unsupportedTimestamps+      `Prelude.hashWithSalt` duplicateTimestamps++instance Prelude.NFData DataQualitySummary where+  rnf DataQualitySummary' {..} =+    Prelude.rnf insufficientSensorData+      `Prelude.seq` Prelude.rnf missingSensorData+      `Prelude.seq` Prelude.rnf invalidSensorData+      `Prelude.seq` Prelude.rnf unsupportedTimestamps+      `Prelude.seq` Prelude.rnf duplicateTimestamps
+ gen/Amazonka/LookoutEquipment/Types/DataUploadFrequency.hs view
@@ -0,0 +1,86 @@+{-# 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.LookoutEquipment.Types.DataUploadFrequency+-- 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.LookoutEquipment.Types.DataUploadFrequency+  ( DataUploadFrequency+      ( ..,+        DataUploadFrequency_PT10M,+        DataUploadFrequency_PT15M,+        DataUploadFrequency_PT1H,+        DataUploadFrequency_PT30M,+        DataUploadFrequency_PT5M+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DataUploadFrequency = DataUploadFrequency'+  { fromDataUploadFrequency ::+      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 DataUploadFrequency_PT10M :: DataUploadFrequency+pattern DataUploadFrequency_PT10M = DataUploadFrequency' "PT10M"++pattern DataUploadFrequency_PT15M :: DataUploadFrequency+pattern DataUploadFrequency_PT15M = DataUploadFrequency' "PT15M"++pattern DataUploadFrequency_PT1H :: DataUploadFrequency+pattern DataUploadFrequency_PT1H = DataUploadFrequency' "PT1H"++pattern DataUploadFrequency_PT30M :: DataUploadFrequency+pattern DataUploadFrequency_PT30M = DataUploadFrequency' "PT30M"++pattern DataUploadFrequency_PT5M :: DataUploadFrequency+pattern DataUploadFrequency_PT5M = DataUploadFrequency' "PT5M"++{-# COMPLETE+  DataUploadFrequency_PT10M,+  DataUploadFrequency_PT15M,+  DataUploadFrequency_PT1H,+  DataUploadFrequency_PT30M,+  DataUploadFrequency_PT5M,+  DataUploadFrequency'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/DatasetSchema.hs view
@@ -0,0 +1,66 @@+{-# 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.LookoutEquipment.Types.DatasetSchema+-- 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.LookoutEquipment.Types.DatasetSchema 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++-- | Provides information about the data schema used with the given dataset.+--+-- /See:/ 'newDatasetSchema' smart constructor.+data DatasetSchema = DatasetSchema'+  { inlineDataSchema :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DatasetSchema' 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:+--+-- 'inlineDataSchema', 'datasetSchema_inlineDataSchema' -+newDatasetSchema ::+  DatasetSchema+newDatasetSchema =+  DatasetSchema' {inlineDataSchema = Prelude.Nothing}++datasetSchema_inlineDataSchema :: Lens.Lens' DatasetSchema (Prelude.Maybe Prelude.Text)+datasetSchema_inlineDataSchema = Lens.lens (\DatasetSchema' {inlineDataSchema} -> inlineDataSchema) (\s@DatasetSchema' {} a -> s {inlineDataSchema = a} :: DatasetSchema)++instance Prelude.Hashable DatasetSchema where+  hashWithSalt _salt DatasetSchema' {..} =+    _salt `Prelude.hashWithSalt` inlineDataSchema++instance Prelude.NFData DatasetSchema where+  rnf DatasetSchema' {..} = Prelude.rnf inlineDataSchema++instance Data.ToJSON DatasetSchema where+  toJSON DatasetSchema' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("InlineDataSchema" Data..=)+              Prelude.<$> inlineDataSchema+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/DatasetStatus.hs view
@@ -0,0 +1,76 @@+{-# 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.LookoutEquipment.Types.DatasetStatus+-- 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.LookoutEquipment.Types.DatasetStatus+  ( DatasetStatus+      ( ..,+        DatasetStatus_ACTIVE,+        DatasetStatus_CREATED,+        DatasetStatus_INGESTION_IN_PROGRESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DatasetStatus = DatasetStatus'+  { fromDatasetStatus ::+      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 DatasetStatus_ACTIVE :: DatasetStatus+pattern DatasetStatus_ACTIVE = DatasetStatus' "ACTIVE"++pattern DatasetStatus_CREATED :: DatasetStatus+pattern DatasetStatus_CREATED = DatasetStatus' "CREATED"++pattern DatasetStatus_INGESTION_IN_PROGRESS :: DatasetStatus+pattern DatasetStatus_INGESTION_IN_PROGRESS = DatasetStatus' "INGESTION_IN_PROGRESS"++{-# COMPLETE+  DatasetStatus_ACTIVE,+  DatasetStatus_CREATED,+  DatasetStatus_INGESTION_IN_PROGRESS,+  DatasetStatus'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/DatasetSummary.hs view
@@ -0,0 +1,113 @@+{-# 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.LookoutEquipment.Types.DatasetSummary+-- 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.LookoutEquipment.Types.DatasetSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.DatasetStatus+import qualified Amazonka.Prelude as Prelude++-- | Contains information about the specific data set, including name, ARN,+-- and status.+--+-- /See:/ 'newDatasetSummary' smart constructor.+data DatasetSummary = DatasetSummary'+  { -- | The time at which the dataset was created in Amazon Lookout for+    -- Equipment.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the specified dataset.+    datasetArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the dataset.+    datasetName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the dataset.+    status :: Prelude.Maybe DatasetStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DatasetSummary' 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', 'datasetSummary_createdAt' - The time at which the dataset was created in Amazon Lookout for+-- Equipment.+--+-- 'datasetArn', 'datasetSummary_datasetArn' - The Amazon Resource Name (ARN) of the specified dataset.+--+-- 'datasetName', 'datasetSummary_datasetName' - The name of the dataset.+--+-- 'status', 'datasetSummary_status' - Indicates the status of the dataset.+newDatasetSummary ::+  DatasetSummary+newDatasetSummary =+  DatasetSummary'+    { createdAt = Prelude.Nothing,+      datasetArn = Prelude.Nothing,+      datasetName = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The time at which the dataset was created in Amazon Lookout for+-- Equipment.+datasetSummary_createdAt :: Lens.Lens' DatasetSummary (Prelude.Maybe Prelude.UTCTime)+datasetSummary_createdAt = Lens.lens (\DatasetSummary' {createdAt} -> createdAt) (\s@DatasetSummary' {} a -> s {createdAt = a} :: DatasetSummary) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the specified dataset.+datasetSummary_datasetArn :: Lens.Lens' DatasetSummary (Prelude.Maybe Prelude.Text)+datasetSummary_datasetArn = Lens.lens (\DatasetSummary' {datasetArn} -> datasetArn) (\s@DatasetSummary' {} a -> s {datasetArn = a} :: DatasetSummary)++-- | The name of the dataset.+datasetSummary_datasetName :: Lens.Lens' DatasetSummary (Prelude.Maybe Prelude.Text)+datasetSummary_datasetName = Lens.lens (\DatasetSummary' {datasetName} -> datasetName) (\s@DatasetSummary' {} a -> s {datasetName = a} :: DatasetSummary)++-- | Indicates the status of the dataset.+datasetSummary_status :: Lens.Lens' DatasetSummary (Prelude.Maybe DatasetStatus)+datasetSummary_status = Lens.lens (\DatasetSummary' {status} -> status) (\s@DatasetSummary' {} a -> s {status = a} :: DatasetSummary)++instance Data.FromJSON DatasetSummary where+  parseJSON =+    Data.withObject+      "DatasetSummary"+      ( \x ->+          DatasetSummary'+            Prelude.<$> (x Data..:? "CreatedAt")+            Prelude.<*> (x Data..:? "DatasetArn")+            Prelude.<*> (x Data..:? "DatasetName")+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable DatasetSummary where+  hashWithSalt _salt DatasetSummary' {..} =+    _salt+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` datasetArn+      `Prelude.hashWithSalt` datasetName+      `Prelude.hashWithSalt` status++instance Prelude.NFData DatasetSummary where+  rnf DatasetSummary' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf datasetArn+      `Prelude.seq` Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/DuplicateTimestamps.hs view
@@ -0,0 +1,77 @@+{-# 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.LookoutEquipment.Types.DuplicateTimestamps+-- 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.LookoutEquipment.Types.DuplicateTimestamps 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++-- | Entity that comprises information abount duplicate timestamps in the+-- dataset.+--+-- /See:/ 'newDuplicateTimestamps' smart constructor.+data DuplicateTimestamps = DuplicateTimestamps'+  { -- | Indicates the total number of duplicate timestamps.+    totalNumberOfDuplicateTimestamps :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DuplicateTimestamps' 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:+--+-- 'totalNumberOfDuplicateTimestamps', 'duplicateTimestamps_totalNumberOfDuplicateTimestamps' - Indicates the total number of duplicate timestamps.+newDuplicateTimestamps ::+  -- | 'totalNumberOfDuplicateTimestamps'+  Prelude.Int ->+  DuplicateTimestamps+newDuplicateTimestamps+  pTotalNumberOfDuplicateTimestamps_ =+    DuplicateTimestamps'+      { totalNumberOfDuplicateTimestamps =+          pTotalNumberOfDuplicateTimestamps_+      }++-- | Indicates the total number of duplicate timestamps.+duplicateTimestamps_totalNumberOfDuplicateTimestamps :: Lens.Lens' DuplicateTimestamps Prelude.Int+duplicateTimestamps_totalNumberOfDuplicateTimestamps = Lens.lens (\DuplicateTimestamps' {totalNumberOfDuplicateTimestamps} -> totalNumberOfDuplicateTimestamps) (\s@DuplicateTimestamps' {} a -> s {totalNumberOfDuplicateTimestamps = a} :: DuplicateTimestamps)++instance Data.FromJSON DuplicateTimestamps where+  parseJSON =+    Data.withObject+      "DuplicateTimestamps"+      ( \x ->+          DuplicateTimestamps'+            Prelude.<$> (x Data..: "TotalNumberOfDuplicateTimestamps")+      )++instance Prelude.Hashable DuplicateTimestamps where+  hashWithSalt _salt DuplicateTimestamps' {..} =+    _salt+      `Prelude.hashWithSalt` totalNumberOfDuplicateTimestamps++instance Prelude.NFData DuplicateTimestamps where+  rnf DuplicateTimestamps' {..} =+    Prelude.rnf totalNumberOfDuplicateTimestamps
+ gen/Amazonka/LookoutEquipment/Types/InferenceEventSummary.hs view
@@ -0,0 +1,140 @@+{-# 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.LookoutEquipment.Types.InferenceEventSummary+-- 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.LookoutEquipment.Types.InferenceEventSummary 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++-- | Contains information about the specific inference event, including start+-- and end time, diagnostics information, event duration and so on.+--+-- /See:/ 'newInferenceEventSummary' smart constructor.+data InferenceEventSummary = InferenceEventSummary'+  { -- | An array which specifies the names and values of all sensors+    -- contributing to an inference event.+    diagnostics :: Prelude.Maybe Prelude.Text,+    -- | Indicates the size of an inference event in seconds.+    eventDurationInSeconds :: Prelude.Maybe Prelude.Natural,+    -- | Indicates the ending time of an inference event.+    eventEndTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates the starting time of an inference event.+    eventStartTime :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the inference scheduler being used for+    -- the inference event.+    inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the inference scheduler being used for the inference events.+    inferenceSchedulerName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InferenceEventSummary' 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:+--+-- 'diagnostics', 'inferenceEventSummary_diagnostics' - An array which specifies the names and values of all sensors+-- contributing to an inference event.+--+-- 'eventDurationInSeconds', 'inferenceEventSummary_eventDurationInSeconds' - Indicates the size of an inference event in seconds.+--+-- 'eventEndTime', 'inferenceEventSummary_eventEndTime' - Indicates the ending time of an inference event.+--+-- 'eventStartTime', 'inferenceEventSummary_eventStartTime' - Indicates the starting time of an inference event.+--+-- 'inferenceSchedulerArn', 'inferenceEventSummary_inferenceSchedulerArn' - The Amazon Resource Name (ARN) of the inference scheduler being used for+-- the inference event.+--+-- 'inferenceSchedulerName', 'inferenceEventSummary_inferenceSchedulerName' - The name of the inference scheduler being used for the inference events.+newInferenceEventSummary ::+  InferenceEventSummary+newInferenceEventSummary =+  InferenceEventSummary'+    { diagnostics =+        Prelude.Nothing,+      eventDurationInSeconds = Prelude.Nothing,+      eventEndTime = Prelude.Nothing,+      eventStartTime = Prelude.Nothing,+      inferenceSchedulerArn = Prelude.Nothing,+      inferenceSchedulerName = Prelude.Nothing+    }++-- | An array which specifies the names and values of all sensors+-- contributing to an inference event.+inferenceEventSummary_diagnostics :: Lens.Lens' InferenceEventSummary (Prelude.Maybe Prelude.Text)+inferenceEventSummary_diagnostics = Lens.lens (\InferenceEventSummary' {diagnostics} -> diagnostics) (\s@InferenceEventSummary' {} a -> s {diagnostics = a} :: InferenceEventSummary)++-- | Indicates the size of an inference event in seconds.+inferenceEventSummary_eventDurationInSeconds :: Lens.Lens' InferenceEventSummary (Prelude.Maybe Prelude.Natural)+inferenceEventSummary_eventDurationInSeconds = Lens.lens (\InferenceEventSummary' {eventDurationInSeconds} -> eventDurationInSeconds) (\s@InferenceEventSummary' {} a -> s {eventDurationInSeconds = a} :: InferenceEventSummary)++-- | Indicates the ending time of an inference event.+inferenceEventSummary_eventEndTime :: Lens.Lens' InferenceEventSummary (Prelude.Maybe Prelude.UTCTime)+inferenceEventSummary_eventEndTime = Lens.lens (\InferenceEventSummary' {eventEndTime} -> eventEndTime) (\s@InferenceEventSummary' {} a -> s {eventEndTime = a} :: InferenceEventSummary) Prelude.. Lens.mapping Data._Time++-- | Indicates the starting time of an inference event.+inferenceEventSummary_eventStartTime :: Lens.Lens' InferenceEventSummary (Prelude.Maybe Prelude.UTCTime)+inferenceEventSummary_eventStartTime = Lens.lens (\InferenceEventSummary' {eventStartTime} -> eventStartTime) (\s@InferenceEventSummary' {} a -> s {eventStartTime = a} :: InferenceEventSummary) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the inference scheduler being used for+-- the inference event.+inferenceEventSummary_inferenceSchedulerArn :: Lens.Lens' InferenceEventSummary (Prelude.Maybe Prelude.Text)+inferenceEventSummary_inferenceSchedulerArn = Lens.lens (\InferenceEventSummary' {inferenceSchedulerArn} -> inferenceSchedulerArn) (\s@InferenceEventSummary' {} a -> s {inferenceSchedulerArn = a} :: InferenceEventSummary)++-- | The name of the inference scheduler being used for the inference events.+inferenceEventSummary_inferenceSchedulerName :: Lens.Lens' InferenceEventSummary (Prelude.Maybe Prelude.Text)+inferenceEventSummary_inferenceSchedulerName = Lens.lens (\InferenceEventSummary' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@InferenceEventSummary' {} a -> s {inferenceSchedulerName = a} :: InferenceEventSummary)++instance Data.FromJSON InferenceEventSummary where+  parseJSON =+    Data.withObject+      "InferenceEventSummary"+      ( \x ->+          InferenceEventSummary'+            Prelude.<$> (x Data..:? "Diagnostics")+            Prelude.<*> (x Data..:? "EventDurationInSeconds")+            Prelude.<*> (x Data..:? "EventEndTime")+            Prelude.<*> (x Data..:? "EventStartTime")+            Prelude.<*> (x Data..:? "InferenceSchedulerArn")+            Prelude.<*> (x Data..:? "InferenceSchedulerName")+      )++instance Prelude.Hashable InferenceEventSummary where+  hashWithSalt _salt InferenceEventSummary' {..} =+    _salt+      `Prelude.hashWithSalt` diagnostics+      `Prelude.hashWithSalt` eventDurationInSeconds+      `Prelude.hashWithSalt` eventEndTime+      `Prelude.hashWithSalt` eventStartTime+      `Prelude.hashWithSalt` inferenceSchedulerArn+      `Prelude.hashWithSalt` inferenceSchedulerName++instance Prelude.NFData InferenceEventSummary where+  rnf InferenceEventSummary' {..} =+    Prelude.rnf diagnostics+      `Prelude.seq` Prelude.rnf eventDurationInSeconds+      `Prelude.seq` Prelude.rnf eventEndTime+      `Prelude.seq` Prelude.rnf eventStartTime+      `Prelude.seq` Prelude.rnf inferenceSchedulerArn+      `Prelude.seq` Prelude.rnf inferenceSchedulerName
+ gen/Amazonka/LookoutEquipment/Types/InferenceExecutionStatus.hs view
@@ -0,0 +1,76 @@+{-# 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.LookoutEquipment.Types.InferenceExecutionStatus+-- 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.LookoutEquipment.Types.InferenceExecutionStatus+  ( InferenceExecutionStatus+      ( ..,+        InferenceExecutionStatus_FAILED,+        InferenceExecutionStatus_IN_PROGRESS,+        InferenceExecutionStatus_SUCCESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype InferenceExecutionStatus = InferenceExecutionStatus'+  { fromInferenceExecutionStatus ::+      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 InferenceExecutionStatus_FAILED :: InferenceExecutionStatus+pattern InferenceExecutionStatus_FAILED = InferenceExecutionStatus' "FAILED"++pattern InferenceExecutionStatus_IN_PROGRESS :: InferenceExecutionStatus+pattern InferenceExecutionStatus_IN_PROGRESS = InferenceExecutionStatus' "IN_PROGRESS"++pattern InferenceExecutionStatus_SUCCESS :: InferenceExecutionStatus+pattern InferenceExecutionStatus_SUCCESS = InferenceExecutionStatus' "SUCCESS"++{-# COMPLETE+  InferenceExecutionStatus_FAILED,+  InferenceExecutionStatus_IN_PROGRESS,+  InferenceExecutionStatus_SUCCESS,+  InferenceExecutionStatus'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/InferenceExecutionSummary.hs view
@@ -0,0 +1,233 @@+{-# 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.LookoutEquipment.Types.InferenceExecutionSummary+-- 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.LookoutEquipment.Types.InferenceExecutionSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.InferenceExecutionStatus+import Amazonka.LookoutEquipment.Types.InferenceInputConfiguration+import Amazonka.LookoutEquipment.Types.InferenceOutputConfiguration+import Amazonka.LookoutEquipment.Types.S3Object+import qualified Amazonka.Prelude as Prelude++-- | Contains information about the specific inference execution, including+-- input and output data configuration, inference scheduling information,+-- status, and so on.+--+-- /See:/ 'newInferenceExecutionSummary' smart constructor.+data InferenceExecutionSummary = InferenceExecutionSummary'+  { customerResultObject :: Prelude.Maybe S3Object,+    -- | Indicates the time reference in the dataset at which the inference+    -- execution stopped.+    dataEndTime :: Prelude.Maybe Data.POSIX,+    -- | Specifies configuration information for the input data for the inference+    -- scheduler, including delimiter, format, and dataset location.+    dataInputConfiguration :: Prelude.Maybe InferenceInputConfiguration,+    -- | Specifies configuration information for the output results from for the+    -- inference execution, including the output Amazon S3 location.+    dataOutputConfiguration :: Prelude.Maybe InferenceOutputConfiguration,+    -- | Indicates the time reference in the dataset at which the inference+    -- execution began.+    dataStartTime :: Prelude.Maybe Data.POSIX,+    -- | Specifies the reason for failure when an inference execution has failed.+    failedReason :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the inference scheduler being used for+    -- the inference execution.+    inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the inference scheduler being used for the inference+    -- execution.+    inferenceSchedulerName :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the ML model used for the inference+    -- execution.+    modelArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the ML model being used for the inference execution.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the start time at which the inference scheduler began the+    -- specific inference execution.+    scheduledStartTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates the status of the inference execution.+    status :: Prelude.Maybe InferenceExecutionStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InferenceExecutionSummary' 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:+--+-- 'customerResultObject', 'inferenceExecutionSummary_customerResultObject' -+--+-- 'dataEndTime', 'inferenceExecutionSummary_dataEndTime' - Indicates the time reference in the dataset at which the inference+-- execution stopped.+--+-- 'dataInputConfiguration', 'inferenceExecutionSummary_dataInputConfiguration' - Specifies configuration information for the input data for the inference+-- scheduler, including delimiter, format, and dataset location.+--+-- 'dataOutputConfiguration', 'inferenceExecutionSummary_dataOutputConfiguration' - Specifies configuration information for the output results from for the+-- inference execution, including the output Amazon S3 location.+--+-- 'dataStartTime', 'inferenceExecutionSummary_dataStartTime' - Indicates the time reference in the dataset at which the inference+-- execution began.+--+-- 'failedReason', 'inferenceExecutionSummary_failedReason' - Specifies the reason for failure when an inference execution has failed.+--+-- 'inferenceSchedulerArn', 'inferenceExecutionSummary_inferenceSchedulerArn' - The Amazon Resource Name (ARN) of the inference scheduler being used for+-- the inference execution.+--+-- 'inferenceSchedulerName', 'inferenceExecutionSummary_inferenceSchedulerName' - The name of the inference scheduler being used for the inference+-- execution.+--+-- 'modelArn', 'inferenceExecutionSummary_modelArn' - The Amazon Resource Name (ARN) of the ML model used for the inference+-- execution.+--+-- 'modelName', 'inferenceExecutionSummary_modelName' - The name of the ML model being used for the inference execution.+--+-- 'scheduledStartTime', 'inferenceExecutionSummary_scheduledStartTime' - Indicates the start time at which the inference scheduler began the+-- specific inference execution.+--+-- 'status', 'inferenceExecutionSummary_status' - Indicates the status of the inference execution.+newInferenceExecutionSummary ::+  InferenceExecutionSummary+newInferenceExecutionSummary =+  InferenceExecutionSummary'+    { customerResultObject =+        Prelude.Nothing,+      dataEndTime = Prelude.Nothing,+      dataInputConfiguration = Prelude.Nothing,+      dataOutputConfiguration = Prelude.Nothing,+      dataStartTime = Prelude.Nothing,+      failedReason = Prelude.Nothing,+      inferenceSchedulerArn = Prelude.Nothing,+      inferenceSchedulerName = Prelude.Nothing,+      modelArn = Prelude.Nothing,+      modelName = Prelude.Nothing,+      scheduledStartTime = Prelude.Nothing,+      status = Prelude.Nothing+    }++inferenceExecutionSummary_customerResultObject :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe S3Object)+inferenceExecutionSummary_customerResultObject = Lens.lens (\InferenceExecutionSummary' {customerResultObject} -> customerResultObject) (\s@InferenceExecutionSummary' {} a -> s {customerResultObject = a} :: InferenceExecutionSummary)++-- | Indicates the time reference in the dataset at which the inference+-- execution stopped.+inferenceExecutionSummary_dataEndTime :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe Prelude.UTCTime)+inferenceExecutionSummary_dataEndTime = Lens.lens (\InferenceExecutionSummary' {dataEndTime} -> dataEndTime) (\s@InferenceExecutionSummary' {} a -> s {dataEndTime = a} :: InferenceExecutionSummary) Prelude.. Lens.mapping Data._Time++-- | Specifies configuration information for the input data for the inference+-- scheduler, including delimiter, format, and dataset location.+inferenceExecutionSummary_dataInputConfiguration :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe InferenceInputConfiguration)+inferenceExecutionSummary_dataInputConfiguration = Lens.lens (\InferenceExecutionSummary' {dataInputConfiguration} -> dataInputConfiguration) (\s@InferenceExecutionSummary' {} a -> s {dataInputConfiguration = a} :: InferenceExecutionSummary)++-- | Specifies configuration information for the output results from for the+-- inference execution, including the output Amazon S3 location.+inferenceExecutionSummary_dataOutputConfiguration :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe InferenceOutputConfiguration)+inferenceExecutionSummary_dataOutputConfiguration = Lens.lens (\InferenceExecutionSummary' {dataOutputConfiguration} -> dataOutputConfiguration) (\s@InferenceExecutionSummary' {} a -> s {dataOutputConfiguration = a} :: InferenceExecutionSummary)++-- | Indicates the time reference in the dataset at which the inference+-- execution began.+inferenceExecutionSummary_dataStartTime :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe Prelude.UTCTime)+inferenceExecutionSummary_dataStartTime = Lens.lens (\InferenceExecutionSummary' {dataStartTime} -> dataStartTime) (\s@InferenceExecutionSummary' {} a -> s {dataStartTime = a} :: InferenceExecutionSummary) Prelude.. Lens.mapping Data._Time++-- | Specifies the reason for failure when an inference execution has failed.+inferenceExecutionSummary_failedReason :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe Prelude.Text)+inferenceExecutionSummary_failedReason = Lens.lens (\InferenceExecutionSummary' {failedReason} -> failedReason) (\s@InferenceExecutionSummary' {} a -> s {failedReason = a} :: InferenceExecutionSummary)++-- | The Amazon Resource Name (ARN) of the inference scheduler being used for+-- the inference execution.+inferenceExecutionSummary_inferenceSchedulerArn :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe Prelude.Text)+inferenceExecutionSummary_inferenceSchedulerArn = Lens.lens (\InferenceExecutionSummary' {inferenceSchedulerArn} -> inferenceSchedulerArn) (\s@InferenceExecutionSummary' {} a -> s {inferenceSchedulerArn = a} :: InferenceExecutionSummary)++-- | The name of the inference scheduler being used for the inference+-- execution.+inferenceExecutionSummary_inferenceSchedulerName :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe Prelude.Text)+inferenceExecutionSummary_inferenceSchedulerName = Lens.lens (\InferenceExecutionSummary' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@InferenceExecutionSummary' {} a -> s {inferenceSchedulerName = a} :: InferenceExecutionSummary)++-- | The Amazon Resource Name (ARN) of the ML model used for the inference+-- execution.+inferenceExecutionSummary_modelArn :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe Prelude.Text)+inferenceExecutionSummary_modelArn = Lens.lens (\InferenceExecutionSummary' {modelArn} -> modelArn) (\s@InferenceExecutionSummary' {} a -> s {modelArn = a} :: InferenceExecutionSummary)++-- | The name of the ML model being used for the inference execution.+inferenceExecutionSummary_modelName :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe Prelude.Text)+inferenceExecutionSummary_modelName = Lens.lens (\InferenceExecutionSummary' {modelName} -> modelName) (\s@InferenceExecutionSummary' {} a -> s {modelName = a} :: InferenceExecutionSummary)++-- | Indicates the start time at which the inference scheduler began the+-- specific inference execution.+inferenceExecutionSummary_scheduledStartTime :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe Prelude.UTCTime)+inferenceExecutionSummary_scheduledStartTime = Lens.lens (\InferenceExecutionSummary' {scheduledStartTime} -> scheduledStartTime) (\s@InferenceExecutionSummary' {} a -> s {scheduledStartTime = a} :: InferenceExecutionSummary) Prelude.. Lens.mapping Data._Time++-- | Indicates the status of the inference execution.+inferenceExecutionSummary_status :: Lens.Lens' InferenceExecutionSummary (Prelude.Maybe InferenceExecutionStatus)+inferenceExecutionSummary_status = Lens.lens (\InferenceExecutionSummary' {status} -> status) (\s@InferenceExecutionSummary' {} a -> s {status = a} :: InferenceExecutionSummary)++instance Data.FromJSON InferenceExecutionSummary where+  parseJSON =+    Data.withObject+      "InferenceExecutionSummary"+      ( \x ->+          InferenceExecutionSummary'+            Prelude.<$> (x Data..:? "CustomerResultObject")+            Prelude.<*> (x Data..:? "DataEndTime")+            Prelude.<*> (x Data..:? "DataInputConfiguration")+            Prelude.<*> (x Data..:? "DataOutputConfiguration")+            Prelude.<*> (x Data..:? "DataStartTime")+            Prelude.<*> (x Data..:? "FailedReason")+            Prelude.<*> (x Data..:? "InferenceSchedulerArn")+            Prelude.<*> (x Data..:? "InferenceSchedulerName")+            Prelude.<*> (x Data..:? "ModelArn")+            Prelude.<*> (x Data..:? "ModelName")+            Prelude.<*> (x Data..:? "ScheduledStartTime")+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable InferenceExecutionSummary where+  hashWithSalt _salt InferenceExecutionSummary' {..} =+    _salt+      `Prelude.hashWithSalt` customerResultObject+      `Prelude.hashWithSalt` dataEndTime+      `Prelude.hashWithSalt` dataInputConfiguration+      `Prelude.hashWithSalt` dataOutputConfiguration+      `Prelude.hashWithSalt` dataStartTime+      `Prelude.hashWithSalt` failedReason+      `Prelude.hashWithSalt` inferenceSchedulerArn+      `Prelude.hashWithSalt` inferenceSchedulerName+      `Prelude.hashWithSalt` modelArn+      `Prelude.hashWithSalt` modelName+      `Prelude.hashWithSalt` scheduledStartTime+      `Prelude.hashWithSalt` status++instance Prelude.NFData InferenceExecutionSummary where+  rnf InferenceExecutionSummary' {..} =+    Prelude.rnf customerResultObject+      `Prelude.seq` Prelude.rnf dataEndTime+      `Prelude.seq` Prelude.rnf dataInputConfiguration+      `Prelude.seq` Prelude.rnf dataOutputConfiguration+      `Prelude.seq` Prelude.rnf dataStartTime+      `Prelude.seq` Prelude.rnf failedReason+      `Prelude.seq` Prelude.rnf inferenceSchedulerArn+      `Prelude.seq` Prelude.rnf inferenceSchedulerName+      `Prelude.seq` Prelude.rnf modelArn+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf scheduledStartTime+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/InferenceInputConfiguration.hs view
@@ -0,0 +1,122 @@+{-# 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.LookoutEquipment.Types.InferenceInputConfiguration+-- 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.LookoutEquipment.Types.InferenceInputConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.InferenceInputNameConfiguration+import Amazonka.LookoutEquipment.Types.InferenceS3InputConfiguration+import qualified Amazonka.Prelude as Prelude++-- | Specifies configuration information for the input data for the+-- inference, including Amazon S3 location of input data..+--+-- /See:/ 'newInferenceInputConfiguration' smart constructor.+data InferenceInputConfiguration = InferenceInputConfiguration'+  { -- | Specifies configuration information for the input data for the+    -- inference, including timestamp format and delimiter.+    inferenceInputNameConfiguration :: Prelude.Maybe InferenceInputNameConfiguration,+    -- | Indicates the difference between your time zone and Coordinated+    -- Universal Time (UTC).+    inputTimeZoneOffset :: Prelude.Maybe Prelude.Text,+    -- | Specifies configuration information for the input data for the+    -- inference, including Amazon S3 location of input data.+    s3InputConfiguration :: Prelude.Maybe InferenceS3InputConfiguration+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InferenceInputConfiguration' 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:+--+-- 'inferenceInputNameConfiguration', 'inferenceInputConfiguration_inferenceInputNameConfiguration' - Specifies configuration information for the input data for the+-- inference, including timestamp format and delimiter.+--+-- 'inputTimeZoneOffset', 'inferenceInputConfiguration_inputTimeZoneOffset' - Indicates the difference between your time zone and Coordinated+-- Universal Time (UTC).+--+-- 's3InputConfiguration', 'inferenceInputConfiguration_s3InputConfiguration' - Specifies configuration information for the input data for the+-- inference, including Amazon S3 location of input data.+newInferenceInputConfiguration ::+  InferenceInputConfiguration+newInferenceInputConfiguration =+  InferenceInputConfiguration'+    { inferenceInputNameConfiguration =+        Prelude.Nothing,+      inputTimeZoneOffset = Prelude.Nothing,+      s3InputConfiguration = Prelude.Nothing+    }++-- | Specifies configuration information for the input data for the+-- inference, including timestamp format and delimiter.+inferenceInputConfiguration_inferenceInputNameConfiguration :: Lens.Lens' InferenceInputConfiguration (Prelude.Maybe InferenceInputNameConfiguration)+inferenceInputConfiguration_inferenceInputNameConfiguration = Lens.lens (\InferenceInputConfiguration' {inferenceInputNameConfiguration} -> inferenceInputNameConfiguration) (\s@InferenceInputConfiguration' {} a -> s {inferenceInputNameConfiguration = a} :: InferenceInputConfiguration)++-- | Indicates the difference between your time zone and Coordinated+-- Universal Time (UTC).+inferenceInputConfiguration_inputTimeZoneOffset :: Lens.Lens' InferenceInputConfiguration (Prelude.Maybe Prelude.Text)+inferenceInputConfiguration_inputTimeZoneOffset = Lens.lens (\InferenceInputConfiguration' {inputTimeZoneOffset} -> inputTimeZoneOffset) (\s@InferenceInputConfiguration' {} a -> s {inputTimeZoneOffset = a} :: InferenceInputConfiguration)++-- | Specifies configuration information for the input data for the+-- inference, including Amazon S3 location of input data.+inferenceInputConfiguration_s3InputConfiguration :: Lens.Lens' InferenceInputConfiguration (Prelude.Maybe InferenceS3InputConfiguration)+inferenceInputConfiguration_s3InputConfiguration = Lens.lens (\InferenceInputConfiguration' {s3InputConfiguration} -> s3InputConfiguration) (\s@InferenceInputConfiguration' {} a -> s {s3InputConfiguration = a} :: InferenceInputConfiguration)++instance Data.FromJSON InferenceInputConfiguration where+  parseJSON =+    Data.withObject+      "InferenceInputConfiguration"+      ( \x ->+          InferenceInputConfiguration'+            Prelude.<$> (x Data..:? "InferenceInputNameConfiguration")+            Prelude.<*> (x Data..:? "InputTimeZoneOffset")+            Prelude.<*> (x Data..:? "S3InputConfiguration")+      )++instance Prelude.Hashable InferenceInputConfiguration where+  hashWithSalt _salt InferenceInputConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` inferenceInputNameConfiguration+      `Prelude.hashWithSalt` inputTimeZoneOffset+      `Prelude.hashWithSalt` s3InputConfiguration++instance Prelude.NFData InferenceInputConfiguration where+  rnf InferenceInputConfiguration' {..} =+    Prelude.rnf inferenceInputNameConfiguration+      `Prelude.seq` Prelude.rnf inputTimeZoneOffset+      `Prelude.seq` Prelude.rnf s3InputConfiguration++instance Data.ToJSON InferenceInputConfiguration where+  toJSON InferenceInputConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("InferenceInputNameConfiguration" Data..=)+              Prelude.<$> inferenceInputNameConfiguration,+            ("InputTimeZoneOffset" Data..=)+              Prelude.<$> inputTimeZoneOffset,+            ("S3InputConfiguration" Data..=)+              Prelude.<$> s3InputConfiguration+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/InferenceInputNameConfiguration.hs view
@@ -0,0 +1,111 @@+{-# 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.LookoutEquipment.Types.InferenceInputNameConfiguration+-- 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.LookoutEquipment.Types.InferenceInputNameConfiguration 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++-- | Specifies configuration information for the input data for the+-- inference, including timestamp format and delimiter.+--+-- /See:/ 'newInferenceInputNameConfiguration' smart constructor.+data InferenceInputNameConfiguration = InferenceInputNameConfiguration'+  { -- | Indicates the delimiter character used between items in the data.+    componentTimestampDelimiter :: Prelude.Maybe Prelude.Text,+    -- | The format of the timestamp, whether Epoch time, or standard, with or+    -- without hyphens (-).+    timestampFormat :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InferenceInputNameConfiguration' 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:+--+-- 'componentTimestampDelimiter', 'inferenceInputNameConfiguration_componentTimestampDelimiter' - Indicates the delimiter character used between items in the data.+--+-- 'timestampFormat', 'inferenceInputNameConfiguration_timestampFormat' - The format of the timestamp, whether Epoch time, or standard, with or+-- without hyphens (-).+newInferenceInputNameConfiguration ::+  InferenceInputNameConfiguration+newInferenceInputNameConfiguration =+  InferenceInputNameConfiguration'+    { componentTimestampDelimiter =+        Prelude.Nothing,+      timestampFormat = Prelude.Nothing+    }++-- | Indicates the delimiter character used between items in the data.+inferenceInputNameConfiguration_componentTimestampDelimiter :: Lens.Lens' InferenceInputNameConfiguration (Prelude.Maybe Prelude.Text)+inferenceInputNameConfiguration_componentTimestampDelimiter = Lens.lens (\InferenceInputNameConfiguration' {componentTimestampDelimiter} -> componentTimestampDelimiter) (\s@InferenceInputNameConfiguration' {} a -> s {componentTimestampDelimiter = a} :: InferenceInputNameConfiguration)++-- | The format of the timestamp, whether Epoch time, or standard, with or+-- without hyphens (-).+inferenceInputNameConfiguration_timestampFormat :: Lens.Lens' InferenceInputNameConfiguration (Prelude.Maybe Prelude.Text)+inferenceInputNameConfiguration_timestampFormat = Lens.lens (\InferenceInputNameConfiguration' {timestampFormat} -> timestampFormat) (\s@InferenceInputNameConfiguration' {} a -> s {timestampFormat = a} :: InferenceInputNameConfiguration)++instance+  Data.FromJSON+    InferenceInputNameConfiguration+  where+  parseJSON =+    Data.withObject+      "InferenceInputNameConfiguration"+      ( \x ->+          InferenceInputNameConfiguration'+            Prelude.<$> (x Data..:? "ComponentTimestampDelimiter")+            Prelude.<*> (x Data..:? "TimestampFormat")+      )++instance+  Prelude.Hashable+    InferenceInputNameConfiguration+  where+  hashWithSalt+    _salt+    InferenceInputNameConfiguration' {..} =+      _salt+        `Prelude.hashWithSalt` componentTimestampDelimiter+        `Prelude.hashWithSalt` timestampFormat++instance+  Prelude.NFData+    InferenceInputNameConfiguration+  where+  rnf InferenceInputNameConfiguration' {..} =+    Prelude.rnf componentTimestampDelimiter+      `Prelude.seq` Prelude.rnf timestampFormat++instance Data.ToJSON InferenceInputNameConfiguration where+  toJSON InferenceInputNameConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ComponentTimestampDelimiter" Data..=)+              Prelude.<$> componentTimestampDelimiter,+            ("TimestampFormat" Data..=)+              Prelude.<$> timestampFormat+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/InferenceOutputConfiguration.hs view
@@ -0,0 +1,109 @@+{-# 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.LookoutEquipment.Types.InferenceOutputConfiguration+-- 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.LookoutEquipment.Types.InferenceOutputConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.InferenceS3OutputConfiguration+import qualified Amazonka.Prelude as Prelude++-- | Specifies configuration information for the output results from for the+-- inference, including KMS key ID and output S3 location.+--+-- /See:/ 'newInferenceOutputConfiguration' smart constructor.+data InferenceOutputConfiguration = InferenceOutputConfiguration'+  { -- | The ID number for the AWS KMS key used to encrypt the inference output.+    kmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Specifies configuration information for the output results from for the+    -- inference, output S3 location.+    s3OutputConfiguration :: InferenceS3OutputConfiguration+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InferenceOutputConfiguration' 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:+--+-- 'kmsKeyId', 'inferenceOutputConfiguration_kmsKeyId' - The ID number for the AWS KMS key used to encrypt the inference output.+--+-- 's3OutputConfiguration', 'inferenceOutputConfiguration_s3OutputConfiguration' - Specifies configuration information for the output results from for the+-- inference, output S3 location.+newInferenceOutputConfiguration ::+  -- | 's3OutputConfiguration'+  InferenceS3OutputConfiguration ->+  InferenceOutputConfiguration+newInferenceOutputConfiguration+  pS3OutputConfiguration_ =+    InferenceOutputConfiguration'+      { kmsKeyId =+          Prelude.Nothing,+        s3OutputConfiguration =+          pS3OutputConfiguration_+      }++-- | The ID number for the AWS KMS key used to encrypt the inference output.+inferenceOutputConfiguration_kmsKeyId :: Lens.Lens' InferenceOutputConfiguration (Prelude.Maybe Prelude.Text)+inferenceOutputConfiguration_kmsKeyId = Lens.lens (\InferenceOutputConfiguration' {kmsKeyId} -> kmsKeyId) (\s@InferenceOutputConfiguration' {} a -> s {kmsKeyId = a} :: InferenceOutputConfiguration)++-- | Specifies configuration information for the output results from for the+-- inference, output S3 location.+inferenceOutputConfiguration_s3OutputConfiguration :: Lens.Lens' InferenceOutputConfiguration InferenceS3OutputConfiguration+inferenceOutputConfiguration_s3OutputConfiguration = Lens.lens (\InferenceOutputConfiguration' {s3OutputConfiguration} -> s3OutputConfiguration) (\s@InferenceOutputConfiguration' {} a -> s {s3OutputConfiguration = a} :: InferenceOutputConfiguration)++instance Data.FromJSON InferenceOutputConfiguration where+  parseJSON =+    Data.withObject+      "InferenceOutputConfiguration"+      ( \x ->+          InferenceOutputConfiguration'+            Prelude.<$> (x Data..:? "KmsKeyId")+            Prelude.<*> (x Data..: "S3OutputConfiguration")+      )++instance+  Prelude.Hashable+    InferenceOutputConfiguration+  where+  hashWithSalt _salt InferenceOutputConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` kmsKeyId+      `Prelude.hashWithSalt` s3OutputConfiguration++instance Prelude.NFData InferenceOutputConfiguration where+  rnf InferenceOutputConfiguration' {..} =+    Prelude.rnf kmsKeyId+      `Prelude.seq` Prelude.rnf s3OutputConfiguration++instance Data.ToJSON InferenceOutputConfiguration where+  toJSON InferenceOutputConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("KmsKeyId" Data..=) Prelude.<$> kmsKeyId,+            Prelude.Just+              ( "S3OutputConfiguration"+                  Data..= s3OutputConfiguration+              )+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/InferenceS3InputConfiguration.hs view
@@ -0,0 +1,99 @@+{-# 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.LookoutEquipment.Types.InferenceS3InputConfiguration+-- 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.LookoutEquipment.Types.InferenceS3InputConfiguration 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++-- | Specifies configuration information for the input data for the+-- inference, including input data S3 location.+--+-- /See:/ 'newInferenceS3InputConfiguration' smart constructor.+data InferenceS3InputConfiguration = InferenceS3InputConfiguration'+  { -- | The prefix for the S3 bucket used for the input data for the inference.+    prefix :: Prelude.Maybe Prelude.Text,+    -- | The bucket containing the input dataset for the inference.+    bucket :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InferenceS3InputConfiguration' 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:+--+-- 'prefix', 'inferenceS3InputConfiguration_prefix' - The prefix for the S3 bucket used for the input data for the inference.+--+-- 'bucket', 'inferenceS3InputConfiguration_bucket' - The bucket containing the input dataset for the inference.+newInferenceS3InputConfiguration ::+  -- | 'bucket'+  Prelude.Text ->+  InferenceS3InputConfiguration+newInferenceS3InputConfiguration pBucket_ =+  InferenceS3InputConfiguration'+    { prefix =+        Prelude.Nothing,+      bucket = pBucket_+    }++-- | The prefix for the S3 bucket used for the input data for the inference.+inferenceS3InputConfiguration_prefix :: Lens.Lens' InferenceS3InputConfiguration (Prelude.Maybe Prelude.Text)+inferenceS3InputConfiguration_prefix = Lens.lens (\InferenceS3InputConfiguration' {prefix} -> prefix) (\s@InferenceS3InputConfiguration' {} a -> s {prefix = a} :: InferenceS3InputConfiguration)++-- | The bucket containing the input dataset for the inference.+inferenceS3InputConfiguration_bucket :: Lens.Lens' InferenceS3InputConfiguration Prelude.Text+inferenceS3InputConfiguration_bucket = Lens.lens (\InferenceS3InputConfiguration' {bucket} -> bucket) (\s@InferenceS3InputConfiguration' {} a -> s {bucket = a} :: InferenceS3InputConfiguration)++instance Data.FromJSON InferenceS3InputConfiguration where+  parseJSON =+    Data.withObject+      "InferenceS3InputConfiguration"+      ( \x ->+          InferenceS3InputConfiguration'+            Prelude.<$> (x Data..:? "Prefix")+            Prelude.<*> (x Data..: "Bucket")+      )++instance+  Prelude.Hashable+    InferenceS3InputConfiguration+  where+  hashWithSalt _salt InferenceS3InputConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` prefix+      `Prelude.hashWithSalt` bucket++instance Prelude.NFData InferenceS3InputConfiguration where+  rnf InferenceS3InputConfiguration' {..} =+    Prelude.rnf prefix `Prelude.seq` Prelude.rnf bucket++instance Data.ToJSON InferenceS3InputConfiguration where+  toJSON InferenceS3InputConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Prefix" Data..=) Prelude.<$> prefix,+            Prelude.Just ("Bucket" Data..= bucket)+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/InferenceS3OutputConfiguration.hs view
@@ -0,0 +1,107 @@+{-# 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.LookoutEquipment.Types.InferenceS3OutputConfiguration+-- 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.LookoutEquipment.Types.InferenceS3OutputConfiguration 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++-- | Specifies configuration information for the output results from the+-- inference, including output S3 location.+--+-- /See:/ 'newInferenceS3OutputConfiguration' smart constructor.+data InferenceS3OutputConfiguration = InferenceS3OutputConfiguration'+  { -- | The prefix for the S3 bucket used for the output results from the+    -- inference.+    prefix :: Prelude.Maybe Prelude.Text,+    -- | The bucket containing the output results from the inference+    bucket :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InferenceS3OutputConfiguration' 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:+--+-- 'prefix', 'inferenceS3OutputConfiguration_prefix' - The prefix for the S3 bucket used for the output results from the+-- inference.+--+-- 'bucket', 'inferenceS3OutputConfiguration_bucket' - The bucket containing the output results from the inference+newInferenceS3OutputConfiguration ::+  -- | 'bucket'+  Prelude.Text ->+  InferenceS3OutputConfiguration+newInferenceS3OutputConfiguration pBucket_ =+  InferenceS3OutputConfiguration'+    { prefix =+        Prelude.Nothing,+      bucket = pBucket_+    }++-- | The prefix for the S3 bucket used for the output results from the+-- inference.+inferenceS3OutputConfiguration_prefix :: Lens.Lens' InferenceS3OutputConfiguration (Prelude.Maybe Prelude.Text)+inferenceS3OutputConfiguration_prefix = Lens.lens (\InferenceS3OutputConfiguration' {prefix} -> prefix) (\s@InferenceS3OutputConfiguration' {} a -> s {prefix = a} :: InferenceS3OutputConfiguration)++-- | The bucket containing the output results from the inference+inferenceS3OutputConfiguration_bucket :: Lens.Lens' InferenceS3OutputConfiguration Prelude.Text+inferenceS3OutputConfiguration_bucket = Lens.lens (\InferenceS3OutputConfiguration' {bucket} -> bucket) (\s@InferenceS3OutputConfiguration' {} a -> s {bucket = a} :: InferenceS3OutputConfiguration)++instance Data.FromJSON InferenceS3OutputConfiguration where+  parseJSON =+    Data.withObject+      "InferenceS3OutputConfiguration"+      ( \x ->+          InferenceS3OutputConfiguration'+            Prelude.<$> (x Data..:? "Prefix")+            Prelude.<*> (x Data..: "Bucket")+      )++instance+  Prelude.Hashable+    InferenceS3OutputConfiguration+  where+  hashWithSalt+    _salt+    InferenceS3OutputConfiguration' {..} =+      _salt+        `Prelude.hashWithSalt` prefix+        `Prelude.hashWithSalt` bucket++instance+  Prelude.NFData+    InferenceS3OutputConfiguration+  where+  rnf InferenceS3OutputConfiguration' {..} =+    Prelude.rnf prefix `Prelude.seq` Prelude.rnf bucket++instance Data.ToJSON InferenceS3OutputConfiguration where+  toJSON InferenceS3OutputConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Prefix" Data..=) Prelude.<$> prefix,+            Prelude.Just ("Bucket" Data..= bucket)+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/InferenceSchedulerStatus.hs view
@@ -0,0 +1,81 @@+{-# 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.LookoutEquipment.Types.InferenceSchedulerStatus+-- 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.LookoutEquipment.Types.InferenceSchedulerStatus+  ( InferenceSchedulerStatus+      ( ..,+        InferenceSchedulerStatus_PENDING,+        InferenceSchedulerStatus_RUNNING,+        InferenceSchedulerStatus_STOPPED,+        InferenceSchedulerStatus_STOPPING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype InferenceSchedulerStatus = InferenceSchedulerStatus'+  { fromInferenceSchedulerStatus ::+      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 InferenceSchedulerStatus_PENDING :: InferenceSchedulerStatus+pattern InferenceSchedulerStatus_PENDING = InferenceSchedulerStatus' "PENDING"++pattern InferenceSchedulerStatus_RUNNING :: InferenceSchedulerStatus+pattern InferenceSchedulerStatus_RUNNING = InferenceSchedulerStatus' "RUNNING"++pattern InferenceSchedulerStatus_STOPPED :: InferenceSchedulerStatus+pattern InferenceSchedulerStatus_STOPPED = InferenceSchedulerStatus' "STOPPED"++pattern InferenceSchedulerStatus_STOPPING :: InferenceSchedulerStatus+pattern InferenceSchedulerStatus_STOPPING = InferenceSchedulerStatus' "STOPPING"++{-# COMPLETE+  InferenceSchedulerStatus_PENDING,+  InferenceSchedulerStatus_RUNNING,+  InferenceSchedulerStatus_STOPPED,+  InferenceSchedulerStatus_STOPPING,+  InferenceSchedulerStatus'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/InferenceSchedulerSummary.hs view
@@ -0,0 +1,212 @@+{-# 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.LookoutEquipment.Types.InferenceSchedulerSummary+-- 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.LookoutEquipment.Types.InferenceSchedulerSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.DataUploadFrequency+import Amazonka.LookoutEquipment.Types.InferenceSchedulerStatus+import Amazonka.LookoutEquipment.Types.LatestInferenceResult+import qualified Amazonka.Prelude as Prelude++-- | Contains information about the specific inference scheduler, including+-- data delay offset, model name and ARN, status, and so on.+--+-- /See:/ 'newInferenceSchedulerSummary' smart constructor.+data InferenceSchedulerSummary = InferenceSchedulerSummary'+  { -- | A period of time (in minutes) by which inference on the data is delayed+    -- after the data starts. For instance, if an offset delay time of five+    -- minutes was selected, inference will not begin on the data until the+    -- first data measurement after the five minute mark. For example, if five+    -- minutes is selected, the inference scheduler will wake up at the+    -- configured frequency with the additional five minute delay time to check+    -- the customer S3 bucket. The customer can upload data at the same+    -- frequency and they don\'t need to stop and restart the scheduler when+    -- uploading new data.+    dataDelayOffsetInMinutes :: Prelude.Maybe Prelude.Natural,+    -- | How often data is uploaded to the source S3 bucket for the input data.+    -- This value is the length of time between data uploads. For instance, if+    -- you select 5 minutes, Amazon Lookout for Equipment will upload the+    -- real-time data to the source bucket once every 5 minutes. This frequency+    -- also determines how often Amazon Lookout for Equipment starts a+    -- scheduled inference on your data. In this example, it starts once every+    -- 5 minutes.+    dataUploadFrequency :: Prelude.Maybe DataUploadFrequency,+    -- | The Amazon Resource Name (ARN) of the inference scheduler.+    inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the inference scheduler.+    inferenceSchedulerName :: Prelude.Maybe Prelude.Text,+    -- | Indicates whether the latest execution for the inference scheduler was+    -- Anomalous (anomalous events found) or Normal (no anomalous events+    -- found).+    latestInferenceResult :: Prelude.Maybe LatestInferenceResult,+    -- | The Amazon Resource Name (ARN) of the ML model used by the inference+    -- scheduler.+    modelArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the ML model used for the inference scheduler.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the inference scheduler.+    status :: Prelude.Maybe InferenceSchedulerStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InferenceSchedulerSummary' 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:+--+-- 'dataDelayOffsetInMinutes', 'inferenceSchedulerSummary_dataDelayOffsetInMinutes' - A period of time (in minutes) by which inference on the data is delayed+-- after the data starts. For instance, if an offset delay time of five+-- minutes was selected, inference will not begin on the data until the+-- first data measurement after the five minute mark. For example, if five+-- minutes is selected, the inference scheduler will wake up at the+-- configured frequency with the additional five minute delay time to check+-- the customer S3 bucket. The customer can upload data at the same+-- frequency and they don\'t need to stop and restart the scheduler when+-- uploading new data.+--+-- 'dataUploadFrequency', 'inferenceSchedulerSummary_dataUploadFrequency' - How often data is uploaded to the source S3 bucket for the input data.+-- This value is the length of time between data uploads. For instance, if+-- you select 5 minutes, Amazon Lookout for Equipment will upload the+-- real-time data to the source bucket once every 5 minutes. This frequency+-- also determines how often Amazon Lookout for Equipment starts a+-- scheduled inference on your data. In this example, it starts once every+-- 5 minutes.+--+-- 'inferenceSchedulerArn', 'inferenceSchedulerSummary_inferenceSchedulerArn' - The Amazon Resource Name (ARN) of the inference scheduler.+--+-- 'inferenceSchedulerName', 'inferenceSchedulerSummary_inferenceSchedulerName' - The name of the inference scheduler.+--+-- 'latestInferenceResult', 'inferenceSchedulerSummary_latestInferenceResult' - Indicates whether the latest execution for the inference scheduler was+-- Anomalous (anomalous events found) or Normal (no anomalous events+-- found).+--+-- 'modelArn', 'inferenceSchedulerSummary_modelArn' - The Amazon Resource Name (ARN) of the ML model used by the inference+-- scheduler.+--+-- 'modelName', 'inferenceSchedulerSummary_modelName' - The name of the ML model used for the inference scheduler.+--+-- 'status', 'inferenceSchedulerSummary_status' - Indicates the status of the inference scheduler.+newInferenceSchedulerSummary ::+  InferenceSchedulerSummary+newInferenceSchedulerSummary =+  InferenceSchedulerSummary'+    { dataDelayOffsetInMinutes =+        Prelude.Nothing,+      dataUploadFrequency = Prelude.Nothing,+      inferenceSchedulerArn = Prelude.Nothing,+      inferenceSchedulerName = Prelude.Nothing,+      latestInferenceResult = Prelude.Nothing,+      modelArn = Prelude.Nothing,+      modelName = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | A period of time (in minutes) by which inference on the data is delayed+-- after the data starts. For instance, if an offset delay time of five+-- minutes was selected, inference will not begin on the data until the+-- first data measurement after the five minute mark. For example, if five+-- minutes is selected, the inference scheduler will wake up at the+-- configured frequency with the additional five minute delay time to check+-- the customer S3 bucket. The customer can upload data at the same+-- frequency and they don\'t need to stop and restart the scheduler when+-- uploading new data.+inferenceSchedulerSummary_dataDelayOffsetInMinutes :: Lens.Lens' InferenceSchedulerSummary (Prelude.Maybe Prelude.Natural)+inferenceSchedulerSummary_dataDelayOffsetInMinutes = Lens.lens (\InferenceSchedulerSummary' {dataDelayOffsetInMinutes} -> dataDelayOffsetInMinutes) (\s@InferenceSchedulerSummary' {} a -> s {dataDelayOffsetInMinutes = a} :: InferenceSchedulerSummary)++-- | How often data is uploaded to the source S3 bucket for the input data.+-- This value is the length of time between data uploads. For instance, if+-- you select 5 minutes, Amazon Lookout for Equipment will upload the+-- real-time data to the source bucket once every 5 minutes. This frequency+-- also determines how often Amazon Lookout for Equipment starts a+-- scheduled inference on your data. In this example, it starts once every+-- 5 minutes.+inferenceSchedulerSummary_dataUploadFrequency :: Lens.Lens' InferenceSchedulerSummary (Prelude.Maybe DataUploadFrequency)+inferenceSchedulerSummary_dataUploadFrequency = Lens.lens (\InferenceSchedulerSummary' {dataUploadFrequency} -> dataUploadFrequency) (\s@InferenceSchedulerSummary' {} a -> s {dataUploadFrequency = a} :: InferenceSchedulerSummary)++-- | The Amazon Resource Name (ARN) of the inference scheduler.+inferenceSchedulerSummary_inferenceSchedulerArn :: Lens.Lens' InferenceSchedulerSummary (Prelude.Maybe Prelude.Text)+inferenceSchedulerSummary_inferenceSchedulerArn = Lens.lens (\InferenceSchedulerSummary' {inferenceSchedulerArn} -> inferenceSchedulerArn) (\s@InferenceSchedulerSummary' {} a -> s {inferenceSchedulerArn = a} :: InferenceSchedulerSummary)++-- | The name of the inference scheduler.+inferenceSchedulerSummary_inferenceSchedulerName :: Lens.Lens' InferenceSchedulerSummary (Prelude.Maybe Prelude.Text)+inferenceSchedulerSummary_inferenceSchedulerName = Lens.lens (\InferenceSchedulerSummary' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@InferenceSchedulerSummary' {} a -> s {inferenceSchedulerName = a} :: InferenceSchedulerSummary)++-- | Indicates whether the latest execution for the inference scheduler was+-- Anomalous (anomalous events found) or Normal (no anomalous events+-- found).+inferenceSchedulerSummary_latestInferenceResult :: Lens.Lens' InferenceSchedulerSummary (Prelude.Maybe LatestInferenceResult)+inferenceSchedulerSummary_latestInferenceResult = Lens.lens (\InferenceSchedulerSummary' {latestInferenceResult} -> latestInferenceResult) (\s@InferenceSchedulerSummary' {} a -> s {latestInferenceResult = a} :: InferenceSchedulerSummary)++-- | The Amazon Resource Name (ARN) of the ML model used by the inference+-- scheduler.+inferenceSchedulerSummary_modelArn :: Lens.Lens' InferenceSchedulerSummary (Prelude.Maybe Prelude.Text)+inferenceSchedulerSummary_modelArn = Lens.lens (\InferenceSchedulerSummary' {modelArn} -> modelArn) (\s@InferenceSchedulerSummary' {} a -> s {modelArn = a} :: InferenceSchedulerSummary)++-- | The name of the ML model used for the inference scheduler.+inferenceSchedulerSummary_modelName :: Lens.Lens' InferenceSchedulerSummary (Prelude.Maybe Prelude.Text)+inferenceSchedulerSummary_modelName = Lens.lens (\InferenceSchedulerSummary' {modelName} -> modelName) (\s@InferenceSchedulerSummary' {} a -> s {modelName = a} :: InferenceSchedulerSummary)++-- | Indicates the status of the inference scheduler.+inferenceSchedulerSummary_status :: Lens.Lens' InferenceSchedulerSummary (Prelude.Maybe InferenceSchedulerStatus)+inferenceSchedulerSummary_status = Lens.lens (\InferenceSchedulerSummary' {status} -> status) (\s@InferenceSchedulerSummary' {} a -> s {status = a} :: InferenceSchedulerSummary)++instance Data.FromJSON InferenceSchedulerSummary where+  parseJSON =+    Data.withObject+      "InferenceSchedulerSummary"+      ( \x ->+          InferenceSchedulerSummary'+            Prelude.<$> (x Data..:? "DataDelayOffsetInMinutes")+            Prelude.<*> (x Data..:? "DataUploadFrequency")+            Prelude.<*> (x Data..:? "InferenceSchedulerArn")+            Prelude.<*> (x Data..:? "InferenceSchedulerName")+            Prelude.<*> (x Data..:? "LatestInferenceResult")+            Prelude.<*> (x Data..:? "ModelArn")+            Prelude.<*> (x Data..:? "ModelName")+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable InferenceSchedulerSummary where+  hashWithSalt _salt InferenceSchedulerSummary' {..} =+    _salt+      `Prelude.hashWithSalt` dataDelayOffsetInMinutes+      `Prelude.hashWithSalt` dataUploadFrequency+      `Prelude.hashWithSalt` inferenceSchedulerArn+      `Prelude.hashWithSalt` inferenceSchedulerName+      `Prelude.hashWithSalt` latestInferenceResult+      `Prelude.hashWithSalt` modelArn+      `Prelude.hashWithSalt` modelName+      `Prelude.hashWithSalt` status++instance Prelude.NFData InferenceSchedulerSummary where+  rnf InferenceSchedulerSummary' {..} =+    Prelude.rnf dataDelayOffsetInMinutes+      `Prelude.seq` Prelude.rnf dataUploadFrequency+      `Prelude.seq` Prelude.rnf inferenceSchedulerArn+      `Prelude.seq` Prelude.rnf inferenceSchedulerName+      `Prelude.seq` Prelude.rnf latestInferenceResult+      `Prelude.seq` Prelude.rnf modelArn+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/IngestedFilesSummary.hs view
@@ -0,0 +1,111 @@+{-# 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.LookoutEquipment.Types.IngestedFilesSummary+-- 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.LookoutEquipment.Types.IngestedFilesSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.S3Object+import qualified Amazonka.Prelude as Prelude++-- | Gives statistics about how many files have been ingested, and which+-- files have not been ingested, for a particular ingestion job.+--+-- /See:/ 'newIngestedFilesSummary' smart constructor.+data IngestedFilesSummary = IngestedFilesSummary'+  { -- | Indicates the number of files that were discarded. A file could be+    -- discarded because its format is invalid (for example, a jpg or pdf) or+    -- not readable.+    discardedFiles :: Prelude.Maybe [S3Object],+    -- | Indicates the total number of files that were submitted for ingestion.+    totalNumberOfFiles :: Prelude.Int,+    -- | Indicates the number of files that were successfully ingested.+    ingestedNumberOfFiles :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IngestedFilesSummary' 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:+--+-- 'discardedFiles', 'ingestedFilesSummary_discardedFiles' - Indicates the number of files that were discarded. A file could be+-- discarded because its format is invalid (for example, a jpg or pdf) or+-- not readable.+--+-- 'totalNumberOfFiles', 'ingestedFilesSummary_totalNumberOfFiles' - Indicates the total number of files that were submitted for ingestion.+--+-- 'ingestedNumberOfFiles', 'ingestedFilesSummary_ingestedNumberOfFiles' - Indicates the number of files that were successfully ingested.+newIngestedFilesSummary ::+  -- | 'totalNumberOfFiles'+  Prelude.Int ->+  -- | 'ingestedNumberOfFiles'+  Prelude.Int ->+  IngestedFilesSummary+newIngestedFilesSummary+  pTotalNumberOfFiles_+  pIngestedNumberOfFiles_ =+    IngestedFilesSummary'+      { discardedFiles =+          Prelude.Nothing,+        totalNumberOfFiles = pTotalNumberOfFiles_,+        ingestedNumberOfFiles = pIngestedNumberOfFiles_+      }++-- | Indicates the number of files that were discarded. A file could be+-- discarded because its format is invalid (for example, a jpg or pdf) or+-- not readable.+ingestedFilesSummary_discardedFiles :: Lens.Lens' IngestedFilesSummary (Prelude.Maybe [S3Object])+ingestedFilesSummary_discardedFiles = Lens.lens (\IngestedFilesSummary' {discardedFiles} -> discardedFiles) (\s@IngestedFilesSummary' {} a -> s {discardedFiles = a} :: IngestedFilesSummary) Prelude.. Lens.mapping Lens.coerced++-- | Indicates the total number of files that were submitted for ingestion.+ingestedFilesSummary_totalNumberOfFiles :: Lens.Lens' IngestedFilesSummary Prelude.Int+ingestedFilesSummary_totalNumberOfFiles = Lens.lens (\IngestedFilesSummary' {totalNumberOfFiles} -> totalNumberOfFiles) (\s@IngestedFilesSummary' {} a -> s {totalNumberOfFiles = a} :: IngestedFilesSummary)++-- | Indicates the number of files that were successfully ingested.+ingestedFilesSummary_ingestedNumberOfFiles :: Lens.Lens' IngestedFilesSummary Prelude.Int+ingestedFilesSummary_ingestedNumberOfFiles = Lens.lens (\IngestedFilesSummary' {ingestedNumberOfFiles} -> ingestedNumberOfFiles) (\s@IngestedFilesSummary' {} a -> s {ingestedNumberOfFiles = a} :: IngestedFilesSummary)++instance Data.FromJSON IngestedFilesSummary where+  parseJSON =+    Data.withObject+      "IngestedFilesSummary"+      ( \x ->+          IngestedFilesSummary'+            Prelude.<$> (x Data..:? "DiscardedFiles" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..: "TotalNumberOfFiles")+            Prelude.<*> (x Data..: "IngestedNumberOfFiles")+      )++instance Prelude.Hashable IngestedFilesSummary where+  hashWithSalt _salt IngestedFilesSummary' {..} =+    _salt+      `Prelude.hashWithSalt` discardedFiles+      `Prelude.hashWithSalt` totalNumberOfFiles+      `Prelude.hashWithSalt` ingestedNumberOfFiles++instance Prelude.NFData IngestedFilesSummary where+  rnf IngestedFilesSummary' {..} =+    Prelude.rnf discardedFiles+      `Prelude.seq` Prelude.rnf totalNumberOfFiles+      `Prelude.seq` Prelude.rnf ingestedNumberOfFiles
+ gen/Amazonka/LookoutEquipment/Types/IngestionInputConfiguration.hs view
@@ -0,0 +1,90 @@+{-# 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.LookoutEquipment.Types.IngestionInputConfiguration+-- 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.LookoutEquipment.Types.IngestionInputConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.IngestionS3InputConfiguration+import qualified Amazonka.Prelude as Prelude++-- | Specifies configuration information for the input data for the data+-- ingestion job, including input data S3 location.+--+-- /See:/ 'newIngestionInputConfiguration' smart constructor.+data IngestionInputConfiguration = IngestionInputConfiguration'+  { -- | The location information for the S3 bucket used for input data for the+    -- data ingestion.+    s3InputConfiguration :: IngestionS3InputConfiguration+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IngestionInputConfiguration' 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:+--+-- 's3InputConfiguration', 'ingestionInputConfiguration_s3InputConfiguration' - The location information for the S3 bucket used for input data for the+-- data ingestion.+newIngestionInputConfiguration ::+  -- | 's3InputConfiguration'+  IngestionS3InputConfiguration ->+  IngestionInputConfiguration+newIngestionInputConfiguration pS3InputConfiguration_ =+  IngestionInputConfiguration'+    { s3InputConfiguration =+        pS3InputConfiguration_+    }++-- | The location information for the S3 bucket used for input data for the+-- data ingestion.+ingestionInputConfiguration_s3InputConfiguration :: Lens.Lens' IngestionInputConfiguration IngestionS3InputConfiguration+ingestionInputConfiguration_s3InputConfiguration = Lens.lens (\IngestionInputConfiguration' {s3InputConfiguration} -> s3InputConfiguration) (\s@IngestionInputConfiguration' {} a -> s {s3InputConfiguration = a} :: IngestionInputConfiguration)++instance Data.FromJSON IngestionInputConfiguration where+  parseJSON =+    Data.withObject+      "IngestionInputConfiguration"+      ( \x ->+          IngestionInputConfiguration'+            Prelude.<$> (x Data..: "S3InputConfiguration")+      )++instance Prelude.Hashable IngestionInputConfiguration where+  hashWithSalt _salt IngestionInputConfiguration' {..} =+    _salt `Prelude.hashWithSalt` s3InputConfiguration++instance Prelude.NFData IngestionInputConfiguration where+  rnf IngestionInputConfiguration' {..} =+    Prelude.rnf s3InputConfiguration++instance Data.ToJSON IngestionInputConfiguration where+  toJSON IngestionInputConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "S3InputConfiguration"+                  Data..= s3InputConfiguration+              )+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/IngestionJobStatus.hs view
@@ -0,0 +1,76 @@+{-# 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.LookoutEquipment.Types.IngestionJobStatus+-- 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.LookoutEquipment.Types.IngestionJobStatus+  ( IngestionJobStatus+      ( ..,+        IngestionJobStatus_FAILED,+        IngestionJobStatus_IN_PROGRESS,+        IngestionJobStatus_SUCCESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype IngestionJobStatus = IngestionJobStatus'+  { fromIngestionJobStatus ::+      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 IngestionJobStatus_FAILED :: IngestionJobStatus+pattern IngestionJobStatus_FAILED = IngestionJobStatus' "FAILED"++pattern IngestionJobStatus_IN_PROGRESS :: IngestionJobStatus+pattern IngestionJobStatus_IN_PROGRESS = IngestionJobStatus' "IN_PROGRESS"++pattern IngestionJobStatus_SUCCESS :: IngestionJobStatus+pattern IngestionJobStatus_SUCCESS = IngestionJobStatus' "SUCCESS"++{-# COMPLETE+  IngestionJobStatus_FAILED,+  IngestionJobStatus_IN_PROGRESS,+  IngestionJobStatus_SUCCESS,+  IngestionJobStatus'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/IngestionS3InputConfiguration.hs view
@@ -0,0 +1,128 @@+{-# 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.LookoutEquipment.Types.IngestionS3InputConfiguration+-- 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.LookoutEquipment.Types.IngestionS3InputConfiguration 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++-- | Specifies S3 configuration information for the input data for the data+-- ingestion job.+--+-- /See:/ 'newIngestionS3InputConfiguration' smart constructor.+data IngestionS3InputConfiguration = IngestionS3InputConfiguration'+  { -- | Pattern for matching the Amazon S3 files which will be used for+    -- ingestion. If no KeyPattern is provided, we will use the default+    -- hierarchy file structure, which is same as KeyPattern+    -- {prefix}\/{component_name}\/*+    keyPattern :: Prelude.Maybe Prelude.Text,+    -- | The prefix for the S3 location being used for the input data for the+    -- data ingestion.+    prefix :: Prelude.Maybe Prelude.Text,+    -- | The name of the S3 bucket used for the input data for the data+    -- ingestion.+    bucket :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IngestionS3InputConfiguration' 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:+--+-- 'keyPattern', 'ingestionS3InputConfiguration_keyPattern' - Pattern for matching the Amazon S3 files which will be used for+-- ingestion. If no KeyPattern is provided, we will use the default+-- hierarchy file structure, which is same as KeyPattern+-- {prefix}\/{component_name}\/*+--+-- 'prefix', 'ingestionS3InputConfiguration_prefix' - The prefix for the S3 location being used for the input data for the+-- data ingestion.+--+-- 'bucket', 'ingestionS3InputConfiguration_bucket' - The name of the S3 bucket used for the input data for the data+-- ingestion.+newIngestionS3InputConfiguration ::+  -- | 'bucket'+  Prelude.Text ->+  IngestionS3InputConfiguration+newIngestionS3InputConfiguration pBucket_ =+  IngestionS3InputConfiguration'+    { keyPattern =+        Prelude.Nothing,+      prefix = Prelude.Nothing,+      bucket = pBucket_+    }++-- | Pattern for matching the Amazon S3 files which will be used for+-- ingestion. If no KeyPattern is provided, we will use the default+-- hierarchy file structure, which is same as KeyPattern+-- {prefix}\/{component_name}\/*+ingestionS3InputConfiguration_keyPattern :: Lens.Lens' IngestionS3InputConfiguration (Prelude.Maybe Prelude.Text)+ingestionS3InputConfiguration_keyPattern = Lens.lens (\IngestionS3InputConfiguration' {keyPattern} -> keyPattern) (\s@IngestionS3InputConfiguration' {} a -> s {keyPattern = a} :: IngestionS3InputConfiguration)++-- | The prefix for the S3 location being used for the input data for the+-- data ingestion.+ingestionS3InputConfiguration_prefix :: Lens.Lens' IngestionS3InputConfiguration (Prelude.Maybe Prelude.Text)+ingestionS3InputConfiguration_prefix = Lens.lens (\IngestionS3InputConfiguration' {prefix} -> prefix) (\s@IngestionS3InputConfiguration' {} a -> s {prefix = a} :: IngestionS3InputConfiguration)++-- | The name of the S3 bucket used for the input data for the data+-- ingestion.+ingestionS3InputConfiguration_bucket :: Lens.Lens' IngestionS3InputConfiguration Prelude.Text+ingestionS3InputConfiguration_bucket = Lens.lens (\IngestionS3InputConfiguration' {bucket} -> bucket) (\s@IngestionS3InputConfiguration' {} a -> s {bucket = a} :: IngestionS3InputConfiguration)++instance Data.FromJSON IngestionS3InputConfiguration where+  parseJSON =+    Data.withObject+      "IngestionS3InputConfiguration"+      ( \x ->+          IngestionS3InputConfiguration'+            Prelude.<$> (x Data..:? "KeyPattern")+            Prelude.<*> (x Data..:? "Prefix")+            Prelude.<*> (x Data..: "Bucket")+      )++instance+  Prelude.Hashable+    IngestionS3InputConfiguration+  where+  hashWithSalt _salt IngestionS3InputConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` keyPattern+      `Prelude.hashWithSalt` prefix+      `Prelude.hashWithSalt` bucket++instance Prelude.NFData IngestionS3InputConfiguration where+  rnf IngestionS3InputConfiguration' {..} =+    Prelude.rnf keyPattern+      `Prelude.seq` Prelude.rnf prefix+      `Prelude.seq` Prelude.rnf bucket++instance Data.ToJSON IngestionS3InputConfiguration where+  toJSON IngestionS3InputConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("KeyPattern" Data..=) Prelude.<$> keyPattern,+            ("Prefix" Data..=) Prelude.<$> prefix,+            Prelude.Just ("Bucket" Data..= bucket)+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/InsufficientSensorData.hs view
@@ -0,0 +1,101 @@+{-# 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.LookoutEquipment.Types.InsufficientSensorData+-- 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.LookoutEquipment.Types.InsufficientSensorData where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.MissingCompleteSensorData+import Amazonka.LookoutEquipment.Types.SensorsWithShortDateRange+import qualified Amazonka.Prelude as Prelude++-- | Entity that comprises aggregated information on sensors having+-- insufficient data.+--+-- /See:/ 'newInsufficientSensorData' smart constructor.+data InsufficientSensorData = InsufficientSensorData'+  { -- | Parameter that describes the total number of sensors that have data+    -- completely missing for it.+    missingCompleteSensorData :: MissingCompleteSensorData,+    -- | Parameter that describes the total number of sensors that have a short+    -- date range of less than 90 days of data overall.+    sensorsWithShortDateRange :: SensorsWithShortDateRange+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InsufficientSensorData' 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:+--+-- 'missingCompleteSensorData', 'insufficientSensorData_missingCompleteSensorData' - Parameter that describes the total number of sensors that have data+-- completely missing for it.+--+-- 'sensorsWithShortDateRange', 'insufficientSensorData_sensorsWithShortDateRange' - Parameter that describes the total number of sensors that have a short+-- date range of less than 90 days of data overall.+newInsufficientSensorData ::+  -- | 'missingCompleteSensorData'+  MissingCompleteSensorData ->+  -- | 'sensorsWithShortDateRange'+  SensorsWithShortDateRange ->+  InsufficientSensorData+newInsufficientSensorData+  pMissingCompleteSensorData_+  pSensorsWithShortDateRange_ =+    InsufficientSensorData'+      { missingCompleteSensorData =+          pMissingCompleteSensorData_,+        sensorsWithShortDateRange =+          pSensorsWithShortDateRange_+      }++-- | Parameter that describes the total number of sensors that have data+-- completely missing for it.+insufficientSensorData_missingCompleteSensorData :: Lens.Lens' InsufficientSensorData MissingCompleteSensorData+insufficientSensorData_missingCompleteSensorData = Lens.lens (\InsufficientSensorData' {missingCompleteSensorData} -> missingCompleteSensorData) (\s@InsufficientSensorData' {} a -> s {missingCompleteSensorData = a} :: InsufficientSensorData)++-- | Parameter that describes the total number of sensors that have a short+-- date range of less than 90 days of data overall.+insufficientSensorData_sensorsWithShortDateRange :: Lens.Lens' InsufficientSensorData SensorsWithShortDateRange+insufficientSensorData_sensorsWithShortDateRange = Lens.lens (\InsufficientSensorData' {sensorsWithShortDateRange} -> sensorsWithShortDateRange) (\s@InsufficientSensorData' {} a -> s {sensorsWithShortDateRange = a} :: InsufficientSensorData)++instance Data.FromJSON InsufficientSensorData where+  parseJSON =+    Data.withObject+      "InsufficientSensorData"+      ( \x ->+          InsufficientSensorData'+            Prelude.<$> (x Data..: "MissingCompleteSensorData")+            Prelude.<*> (x Data..: "SensorsWithShortDateRange")+      )++instance Prelude.Hashable InsufficientSensorData where+  hashWithSalt _salt InsufficientSensorData' {..} =+    _salt+      `Prelude.hashWithSalt` missingCompleteSensorData+      `Prelude.hashWithSalt` sensorsWithShortDateRange++instance Prelude.NFData InsufficientSensorData where+  rnf InsufficientSensorData' {..} =+    Prelude.rnf missingCompleteSensorData+      `Prelude.seq` Prelude.rnf sensorsWithShortDateRange
+ gen/Amazonka/LookoutEquipment/Types/InvalidSensorData.hs view
@@ -0,0 +1,93 @@+{-# 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.LookoutEquipment.Types.InvalidSensorData+-- 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.LookoutEquipment.Types.InvalidSensorData 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++-- | Entity that comprises aggregated information on sensors having+-- insufficient data.+--+-- /See:/ 'newInvalidSensorData' smart constructor.+data InvalidSensorData = InvalidSensorData'+  { -- | Indicates the number of sensors that have at least some invalid values.+    affectedSensorCount :: Prelude.Int,+    -- | Indicates the total number of invalid values across all the sensors.+    totalNumberOfInvalidValues :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'InvalidSensorData' 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:+--+-- 'affectedSensorCount', 'invalidSensorData_affectedSensorCount' - Indicates the number of sensors that have at least some invalid values.+--+-- 'totalNumberOfInvalidValues', 'invalidSensorData_totalNumberOfInvalidValues' - Indicates the total number of invalid values across all the sensors.+newInvalidSensorData ::+  -- | 'affectedSensorCount'+  Prelude.Int ->+  -- | 'totalNumberOfInvalidValues'+  Prelude.Int ->+  InvalidSensorData+newInvalidSensorData+  pAffectedSensorCount_+  pTotalNumberOfInvalidValues_ =+    InvalidSensorData'+      { affectedSensorCount =+          pAffectedSensorCount_,+        totalNumberOfInvalidValues =+          pTotalNumberOfInvalidValues_+      }++-- | Indicates the number of sensors that have at least some invalid values.+invalidSensorData_affectedSensorCount :: Lens.Lens' InvalidSensorData Prelude.Int+invalidSensorData_affectedSensorCount = Lens.lens (\InvalidSensorData' {affectedSensorCount} -> affectedSensorCount) (\s@InvalidSensorData' {} a -> s {affectedSensorCount = a} :: InvalidSensorData)++-- | Indicates the total number of invalid values across all the sensors.+invalidSensorData_totalNumberOfInvalidValues :: Lens.Lens' InvalidSensorData Prelude.Int+invalidSensorData_totalNumberOfInvalidValues = Lens.lens (\InvalidSensorData' {totalNumberOfInvalidValues} -> totalNumberOfInvalidValues) (\s@InvalidSensorData' {} a -> s {totalNumberOfInvalidValues = a} :: InvalidSensorData)++instance Data.FromJSON InvalidSensorData where+  parseJSON =+    Data.withObject+      "InvalidSensorData"+      ( \x ->+          InvalidSensorData'+            Prelude.<$> (x Data..: "AffectedSensorCount")+            Prelude.<*> (x Data..: "TotalNumberOfInvalidValues")+      )++instance Prelude.Hashable InvalidSensorData where+  hashWithSalt _salt InvalidSensorData' {..} =+    _salt+      `Prelude.hashWithSalt` affectedSensorCount+      `Prelude.hashWithSalt` totalNumberOfInvalidValues++instance Prelude.NFData InvalidSensorData where+  rnf InvalidSensorData' {..} =+    Prelude.rnf affectedSensorCount+      `Prelude.seq` Prelude.rnf totalNumberOfInvalidValues
+ gen/Amazonka/LookoutEquipment/Types/LabelGroupSummary.hs view
@@ -0,0 +1,108 @@+{-# 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.LookoutEquipment.Types.LabelGroupSummary+-- 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.LookoutEquipment.Types.LabelGroupSummary 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++-- | Contains information about the label group.+--+-- /See:/ 'newLabelGroupSummary' smart constructor.+data LabelGroupSummary = LabelGroupSummary'+  { -- | The time at which the label group was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | The ARN of the label group.+    labelGroupArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the label group.+    labelGroupName :: Prelude.Maybe Prelude.Text,+    -- | The time at which the label group was updated.+    updatedAt :: Prelude.Maybe Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LabelGroupSummary' 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', 'labelGroupSummary_createdAt' - The time at which the label group was created.+--+-- 'labelGroupArn', 'labelGroupSummary_labelGroupArn' - The ARN of the label group.+--+-- 'labelGroupName', 'labelGroupSummary_labelGroupName' - The name of the label group.+--+-- 'updatedAt', 'labelGroupSummary_updatedAt' - The time at which the label group was updated.+newLabelGroupSummary ::+  LabelGroupSummary+newLabelGroupSummary =+  LabelGroupSummary'+    { createdAt = Prelude.Nothing,+      labelGroupArn = Prelude.Nothing,+      labelGroupName = Prelude.Nothing,+      updatedAt = Prelude.Nothing+    }++-- | The time at which the label group was created.+labelGroupSummary_createdAt :: Lens.Lens' LabelGroupSummary (Prelude.Maybe Prelude.UTCTime)+labelGroupSummary_createdAt = Lens.lens (\LabelGroupSummary' {createdAt} -> createdAt) (\s@LabelGroupSummary' {} a -> s {createdAt = a} :: LabelGroupSummary) Prelude.. Lens.mapping Data._Time++-- | The ARN of the label group.+labelGroupSummary_labelGroupArn :: Lens.Lens' LabelGroupSummary (Prelude.Maybe Prelude.Text)+labelGroupSummary_labelGroupArn = Lens.lens (\LabelGroupSummary' {labelGroupArn} -> labelGroupArn) (\s@LabelGroupSummary' {} a -> s {labelGroupArn = a} :: LabelGroupSummary)++-- | The name of the label group.+labelGroupSummary_labelGroupName :: Lens.Lens' LabelGroupSummary (Prelude.Maybe Prelude.Text)+labelGroupSummary_labelGroupName = Lens.lens (\LabelGroupSummary' {labelGroupName} -> labelGroupName) (\s@LabelGroupSummary' {} a -> s {labelGroupName = a} :: LabelGroupSummary)++-- | The time at which the label group was updated.+labelGroupSummary_updatedAt :: Lens.Lens' LabelGroupSummary (Prelude.Maybe Prelude.UTCTime)+labelGroupSummary_updatedAt = Lens.lens (\LabelGroupSummary' {updatedAt} -> updatedAt) (\s@LabelGroupSummary' {} a -> s {updatedAt = a} :: LabelGroupSummary) Prelude.. Lens.mapping Data._Time++instance Data.FromJSON LabelGroupSummary where+  parseJSON =+    Data.withObject+      "LabelGroupSummary"+      ( \x ->+          LabelGroupSummary'+            Prelude.<$> (x Data..:? "CreatedAt")+            Prelude.<*> (x Data..:? "LabelGroupArn")+            Prelude.<*> (x Data..:? "LabelGroupName")+            Prelude.<*> (x Data..:? "UpdatedAt")+      )++instance Prelude.Hashable LabelGroupSummary where+  hashWithSalt _salt LabelGroupSummary' {..} =+    _salt+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` labelGroupArn+      `Prelude.hashWithSalt` labelGroupName+      `Prelude.hashWithSalt` updatedAt++instance Prelude.NFData LabelGroupSummary where+  rnf LabelGroupSummary' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf labelGroupArn+      `Prelude.seq` Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf updatedAt
+ gen/Amazonka/LookoutEquipment/Types/LabelRating.hs view
@@ -0,0 +1,76 @@+{-# 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.LookoutEquipment.Types.LabelRating+-- 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.LookoutEquipment.Types.LabelRating+  ( LabelRating+      ( ..,+        LabelRating_ANOMALY,+        LabelRating_NEUTRAL,+        LabelRating_NO_ANOMALY+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype LabelRating = LabelRating'+  { fromLabelRating ::+      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 LabelRating_ANOMALY :: LabelRating+pattern LabelRating_ANOMALY = LabelRating' "ANOMALY"++pattern LabelRating_NEUTRAL :: LabelRating+pattern LabelRating_NEUTRAL = LabelRating' "NEUTRAL"++pattern LabelRating_NO_ANOMALY :: LabelRating+pattern LabelRating_NO_ANOMALY = LabelRating' "NO_ANOMALY"++{-# COMPLETE+  LabelRating_ANOMALY,+  LabelRating_NEUTRAL,+  LabelRating_NO_ANOMALY,+  LabelRating'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/LabelSummary.hs view
@@ -0,0 +1,178 @@+{-# 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.LookoutEquipment.Types.LabelSummary+-- 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.LookoutEquipment.Types.LabelSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.LabelRating+import qualified Amazonka.Prelude as Prelude++-- | Information about the label.+--+-- /See:/ 'newLabelSummary' smart constructor.+data LabelSummary = LabelSummary'+  { -- | The time at which the label was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | The timestamp indicating the end of the label.+    endTime :: Prelude.Maybe Data.POSIX,+    -- | Indicates that a label pertains to a particular piece of equipment.+    equipment :: Prelude.Maybe Prelude.Text,+    -- | Indicates the type of anomaly associated with the label.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    faultCode :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the label group.+    labelGroupArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the label group.+    labelGroupName :: Prelude.Maybe Prelude.Text,+    -- | The ID of the label.+    labelId :: Prelude.Maybe Prelude.Text,+    -- | Indicates whether a labeled event represents an anomaly.+    rating :: Prelude.Maybe LabelRating,+    -- | The timestamp indicating the start of the label.+    startTime :: Prelude.Maybe Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LabelSummary' 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', 'labelSummary_createdAt' - The time at which the label was created.+--+-- 'endTime', 'labelSummary_endTime' - The timestamp indicating the end of the label.+--+-- 'equipment', 'labelSummary_equipment' - Indicates that a label pertains to a particular piece of equipment.+--+-- 'faultCode', 'labelSummary_faultCode' - Indicates the type of anomaly associated with the label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'labelGroupArn', 'labelSummary_labelGroupArn' - The ARN of the label group.+--+-- 'labelGroupName', 'labelSummary_labelGroupName' - The name of the label group.+--+-- 'labelId', 'labelSummary_labelId' - The ID of the label.+--+-- 'rating', 'labelSummary_rating' - Indicates whether a labeled event represents an anomaly.+--+-- 'startTime', 'labelSummary_startTime' - The timestamp indicating the start of the label.+newLabelSummary ::+  LabelSummary+newLabelSummary =+  LabelSummary'+    { createdAt = Prelude.Nothing,+      endTime = Prelude.Nothing,+      equipment = Prelude.Nothing,+      faultCode = Prelude.Nothing,+      labelGroupArn = Prelude.Nothing,+      labelGroupName = Prelude.Nothing,+      labelId = Prelude.Nothing,+      rating = Prelude.Nothing,+      startTime = Prelude.Nothing+    }++-- | The time at which the label was created.+labelSummary_createdAt :: Lens.Lens' LabelSummary (Prelude.Maybe Prelude.UTCTime)+labelSummary_createdAt = Lens.lens (\LabelSummary' {createdAt} -> createdAt) (\s@LabelSummary' {} a -> s {createdAt = a} :: LabelSummary) Prelude.. Lens.mapping Data._Time++-- | The timestamp indicating the end of the label.+labelSummary_endTime :: Lens.Lens' LabelSummary (Prelude.Maybe Prelude.UTCTime)+labelSummary_endTime = Lens.lens (\LabelSummary' {endTime} -> endTime) (\s@LabelSummary' {} a -> s {endTime = a} :: LabelSummary) Prelude.. Lens.mapping Data._Time++-- | Indicates that a label pertains to a particular piece of equipment.+labelSummary_equipment :: Lens.Lens' LabelSummary (Prelude.Maybe Prelude.Text)+labelSummary_equipment = Lens.lens (\LabelSummary' {equipment} -> equipment) (\s@LabelSummary' {} a -> s {equipment = a} :: LabelSummary)++-- | Indicates the type of anomaly associated with the label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+labelSummary_faultCode :: Lens.Lens' LabelSummary (Prelude.Maybe Prelude.Text)+labelSummary_faultCode = Lens.lens (\LabelSummary' {faultCode} -> faultCode) (\s@LabelSummary' {} a -> s {faultCode = a} :: LabelSummary)++-- | The ARN of the label group.+labelSummary_labelGroupArn :: Lens.Lens' LabelSummary (Prelude.Maybe Prelude.Text)+labelSummary_labelGroupArn = Lens.lens (\LabelSummary' {labelGroupArn} -> labelGroupArn) (\s@LabelSummary' {} a -> s {labelGroupArn = a} :: LabelSummary)++-- | The name of the label group.+labelSummary_labelGroupName :: Lens.Lens' LabelSummary (Prelude.Maybe Prelude.Text)+labelSummary_labelGroupName = Lens.lens (\LabelSummary' {labelGroupName} -> labelGroupName) (\s@LabelSummary' {} a -> s {labelGroupName = a} :: LabelSummary)++-- | The ID of the label.+labelSummary_labelId :: Lens.Lens' LabelSummary (Prelude.Maybe Prelude.Text)+labelSummary_labelId = Lens.lens (\LabelSummary' {labelId} -> labelId) (\s@LabelSummary' {} a -> s {labelId = a} :: LabelSummary)++-- | Indicates whether a labeled event represents an anomaly.+labelSummary_rating :: Lens.Lens' LabelSummary (Prelude.Maybe LabelRating)+labelSummary_rating = Lens.lens (\LabelSummary' {rating} -> rating) (\s@LabelSummary' {} a -> s {rating = a} :: LabelSummary)++-- | The timestamp indicating the start of the label.+labelSummary_startTime :: Lens.Lens' LabelSummary (Prelude.Maybe Prelude.UTCTime)+labelSummary_startTime = Lens.lens (\LabelSummary' {startTime} -> startTime) (\s@LabelSummary' {} a -> s {startTime = a} :: LabelSummary) Prelude.. Lens.mapping Data._Time++instance Data.FromJSON LabelSummary where+  parseJSON =+    Data.withObject+      "LabelSummary"+      ( \x ->+          LabelSummary'+            Prelude.<$> (x Data..:? "CreatedAt")+            Prelude.<*> (x Data..:? "EndTime")+            Prelude.<*> (x Data..:? "Equipment")+            Prelude.<*> (x Data..:? "FaultCode")+            Prelude.<*> (x Data..:? "LabelGroupArn")+            Prelude.<*> (x Data..:? "LabelGroupName")+            Prelude.<*> (x Data..:? "LabelId")+            Prelude.<*> (x Data..:? "Rating")+            Prelude.<*> (x Data..:? "StartTime")+      )++instance Prelude.Hashable LabelSummary where+  hashWithSalt _salt LabelSummary' {..} =+    _salt+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` endTime+      `Prelude.hashWithSalt` equipment+      `Prelude.hashWithSalt` faultCode+      `Prelude.hashWithSalt` labelGroupArn+      `Prelude.hashWithSalt` labelGroupName+      `Prelude.hashWithSalt` labelId+      `Prelude.hashWithSalt` rating+      `Prelude.hashWithSalt` startTime++instance Prelude.NFData LabelSummary where+  rnf LabelSummary' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf endTime+      `Prelude.seq` Prelude.rnf equipment+      `Prelude.seq` Prelude.rnf faultCode+      `Prelude.seq` Prelude.rnf labelGroupArn+      `Prelude.seq` Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf labelId+      `Prelude.seq` Prelude.rnf rating+      `Prelude.seq` Prelude.rnf startTime
+ gen/Amazonka/LookoutEquipment/Types/LabelsInputConfiguration.hs view
@@ -0,0 +1,101 @@+{-# 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.LookoutEquipment.Types.LabelsInputConfiguration+-- 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.LookoutEquipment.Types.LabelsInputConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.LabelsS3InputConfiguration+import qualified Amazonka.Prelude as Prelude++-- | Contains the configuration information for the S3 location being used to+-- hold label data.+--+-- /See:/ 'newLabelsInputConfiguration' smart constructor.+data LabelsInputConfiguration = LabelsInputConfiguration'+  { -- | The name of the label group to be used for label data.+    labelGroupName :: Prelude.Maybe Prelude.Text,+    -- | Contains location information for the S3 location being used for label+    -- data.+    s3InputConfiguration :: Prelude.Maybe LabelsS3InputConfiguration+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LabelsInputConfiguration' 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:+--+-- 'labelGroupName', 'labelsInputConfiguration_labelGroupName' - The name of the label group to be used for label data.+--+-- 's3InputConfiguration', 'labelsInputConfiguration_s3InputConfiguration' - Contains location information for the S3 location being used for label+-- data.+newLabelsInputConfiguration ::+  LabelsInputConfiguration+newLabelsInputConfiguration =+  LabelsInputConfiguration'+    { labelGroupName =+        Prelude.Nothing,+      s3InputConfiguration = Prelude.Nothing+    }++-- | The name of the label group to be used for label data.+labelsInputConfiguration_labelGroupName :: Lens.Lens' LabelsInputConfiguration (Prelude.Maybe Prelude.Text)+labelsInputConfiguration_labelGroupName = Lens.lens (\LabelsInputConfiguration' {labelGroupName} -> labelGroupName) (\s@LabelsInputConfiguration' {} a -> s {labelGroupName = a} :: LabelsInputConfiguration)++-- | Contains location information for the S3 location being used for label+-- data.+labelsInputConfiguration_s3InputConfiguration :: Lens.Lens' LabelsInputConfiguration (Prelude.Maybe LabelsS3InputConfiguration)+labelsInputConfiguration_s3InputConfiguration = Lens.lens (\LabelsInputConfiguration' {s3InputConfiguration} -> s3InputConfiguration) (\s@LabelsInputConfiguration' {} a -> s {s3InputConfiguration = a} :: LabelsInputConfiguration)++instance Data.FromJSON LabelsInputConfiguration where+  parseJSON =+    Data.withObject+      "LabelsInputConfiguration"+      ( \x ->+          LabelsInputConfiguration'+            Prelude.<$> (x Data..:? "LabelGroupName")+            Prelude.<*> (x Data..:? "S3InputConfiguration")+      )++instance Prelude.Hashable LabelsInputConfiguration where+  hashWithSalt _salt LabelsInputConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` labelGroupName+      `Prelude.hashWithSalt` s3InputConfiguration++instance Prelude.NFData LabelsInputConfiguration where+  rnf LabelsInputConfiguration' {..} =+    Prelude.rnf labelGroupName+      `Prelude.seq` Prelude.rnf s3InputConfiguration++instance Data.ToJSON LabelsInputConfiguration where+  toJSON LabelsInputConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("LabelGroupName" Data..=)+              Prelude.<$> labelGroupName,+            ("S3InputConfiguration" Data..=)+              Prelude.<$> s3InputConfiguration+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/LabelsS3InputConfiguration.hs view
@@ -0,0 +1,96 @@+{-# 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.LookoutEquipment.Types.LabelsS3InputConfiguration+-- 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.LookoutEquipment.Types.LabelsS3InputConfiguration 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++-- | The location information (prefix and bucket name) for the s3 location+-- being used for label data.+--+-- /See:/ 'newLabelsS3InputConfiguration' smart constructor.+data LabelsS3InputConfiguration = LabelsS3InputConfiguration'+  { -- | The prefix for the S3 bucket used for the label data.+    prefix :: Prelude.Maybe Prelude.Text,+    -- | The name of the S3 bucket holding the label data.+    bucket :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LabelsS3InputConfiguration' 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:+--+-- 'prefix', 'labelsS3InputConfiguration_prefix' - The prefix for the S3 bucket used for the label data.+--+-- 'bucket', 'labelsS3InputConfiguration_bucket' - The name of the S3 bucket holding the label data.+newLabelsS3InputConfiguration ::+  -- | 'bucket'+  Prelude.Text ->+  LabelsS3InputConfiguration+newLabelsS3InputConfiguration pBucket_ =+  LabelsS3InputConfiguration'+    { prefix =+        Prelude.Nothing,+      bucket = pBucket_+    }++-- | The prefix for the S3 bucket used for the label data.+labelsS3InputConfiguration_prefix :: Lens.Lens' LabelsS3InputConfiguration (Prelude.Maybe Prelude.Text)+labelsS3InputConfiguration_prefix = Lens.lens (\LabelsS3InputConfiguration' {prefix} -> prefix) (\s@LabelsS3InputConfiguration' {} a -> s {prefix = a} :: LabelsS3InputConfiguration)++-- | The name of the S3 bucket holding the label data.+labelsS3InputConfiguration_bucket :: Lens.Lens' LabelsS3InputConfiguration Prelude.Text+labelsS3InputConfiguration_bucket = Lens.lens (\LabelsS3InputConfiguration' {bucket} -> bucket) (\s@LabelsS3InputConfiguration' {} a -> s {bucket = a} :: LabelsS3InputConfiguration)++instance Data.FromJSON LabelsS3InputConfiguration where+  parseJSON =+    Data.withObject+      "LabelsS3InputConfiguration"+      ( \x ->+          LabelsS3InputConfiguration'+            Prelude.<$> (x Data..:? "Prefix")+            Prelude.<*> (x Data..: "Bucket")+      )++instance Prelude.Hashable LabelsS3InputConfiguration where+  hashWithSalt _salt LabelsS3InputConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` prefix+      `Prelude.hashWithSalt` bucket++instance Prelude.NFData LabelsS3InputConfiguration where+  rnf LabelsS3InputConfiguration' {..} =+    Prelude.rnf prefix `Prelude.seq` Prelude.rnf bucket++instance Data.ToJSON LabelsS3InputConfiguration where+  toJSON LabelsS3InputConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Prefix" Data..=) Prelude.<$> prefix,+            Prelude.Just ("Bucket" Data..= bucket)+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/LargeTimestampGaps.hs view
@@ -0,0 +1,104 @@+{-# 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.LookoutEquipment.Types.LargeTimestampGaps+-- 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.LookoutEquipment.Types.LargeTimestampGaps where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.StatisticalIssueStatus+import qualified Amazonka.Prelude as Prelude++-- | Entity that comprises information on large gaps between consecutive+-- timestamps in data.+--+-- /See:/ 'newLargeTimestampGaps' smart constructor.+data LargeTimestampGaps = LargeTimestampGaps'+  { -- | Indicates the size of the largest timestamp gap, in days.+    maxTimestampGapInDays :: Prelude.Maybe Prelude.Int,+    -- | Indicates the number of large timestamp gaps, if there are any.+    numberOfLargeTimestampGaps :: Prelude.Maybe Prelude.Int,+    -- | Indicates whether there is a potential data issue related to large gaps+    -- in timestamps.+    status :: StatisticalIssueStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LargeTimestampGaps' 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:+--+-- 'maxTimestampGapInDays', 'largeTimestampGaps_maxTimestampGapInDays' - Indicates the size of the largest timestamp gap, in days.+--+-- 'numberOfLargeTimestampGaps', 'largeTimestampGaps_numberOfLargeTimestampGaps' - Indicates the number of large timestamp gaps, if there are any.+--+-- 'status', 'largeTimestampGaps_status' - Indicates whether there is a potential data issue related to large gaps+-- in timestamps.+newLargeTimestampGaps ::+  -- | 'status'+  StatisticalIssueStatus ->+  LargeTimestampGaps+newLargeTimestampGaps pStatus_ =+  LargeTimestampGaps'+    { maxTimestampGapInDays =+        Prelude.Nothing,+      numberOfLargeTimestampGaps = Prelude.Nothing,+      status = pStatus_+    }++-- | Indicates the size of the largest timestamp gap, in days.+largeTimestampGaps_maxTimestampGapInDays :: Lens.Lens' LargeTimestampGaps (Prelude.Maybe Prelude.Int)+largeTimestampGaps_maxTimestampGapInDays = Lens.lens (\LargeTimestampGaps' {maxTimestampGapInDays} -> maxTimestampGapInDays) (\s@LargeTimestampGaps' {} a -> s {maxTimestampGapInDays = a} :: LargeTimestampGaps)++-- | Indicates the number of large timestamp gaps, if there are any.+largeTimestampGaps_numberOfLargeTimestampGaps :: Lens.Lens' LargeTimestampGaps (Prelude.Maybe Prelude.Int)+largeTimestampGaps_numberOfLargeTimestampGaps = Lens.lens (\LargeTimestampGaps' {numberOfLargeTimestampGaps} -> numberOfLargeTimestampGaps) (\s@LargeTimestampGaps' {} a -> s {numberOfLargeTimestampGaps = a} :: LargeTimestampGaps)++-- | Indicates whether there is a potential data issue related to large gaps+-- in timestamps.+largeTimestampGaps_status :: Lens.Lens' LargeTimestampGaps StatisticalIssueStatus+largeTimestampGaps_status = Lens.lens (\LargeTimestampGaps' {status} -> status) (\s@LargeTimestampGaps' {} a -> s {status = a} :: LargeTimestampGaps)++instance Data.FromJSON LargeTimestampGaps where+  parseJSON =+    Data.withObject+      "LargeTimestampGaps"+      ( \x ->+          LargeTimestampGaps'+            Prelude.<$> (x Data..:? "MaxTimestampGapInDays")+            Prelude.<*> (x Data..:? "NumberOfLargeTimestampGaps")+            Prelude.<*> (x Data..: "Status")+      )++instance Prelude.Hashable LargeTimestampGaps where+  hashWithSalt _salt LargeTimestampGaps' {..} =+    _salt+      `Prelude.hashWithSalt` maxTimestampGapInDays+      `Prelude.hashWithSalt` numberOfLargeTimestampGaps+      `Prelude.hashWithSalt` status++instance Prelude.NFData LargeTimestampGaps where+  rnf LargeTimestampGaps' {..} =+    Prelude.rnf maxTimestampGapInDays+      `Prelude.seq` Prelude.rnf numberOfLargeTimestampGaps+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/LatestInferenceResult.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.LookoutEquipment.Types.LatestInferenceResult+-- 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.LookoutEquipment.Types.LatestInferenceResult+  ( LatestInferenceResult+      ( ..,+        LatestInferenceResult_ANOMALOUS,+        LatestInferenceResult_NORMAL+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype LatestInferenceResult = LatestInferenceResult'+  { fromLatestInferenceResult ::+      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 LatestInferenceResult_ANOMALOUS :: LatestInferenceResult+pattern LatestInferenceResult_ANOMALOUS = LatestInferenceResult' "ANOMALOUS"++pattern LatestInferenceResult_NORMAL :: LatestInferenceResult+pattern LatestInferenceResult_NORMAL = LatestInferenceResult' "NORMAL"++{-# COMPLETE+  LatestInferenceResult_ANOMALOUS,+  LatestInferenceResult_NORMAL,+  LatestInferenceResult'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/MissingCompleteSensorData.hs view
@@ -0,0 +1,75 @@+{-# 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.LookoutEquipment.Types.MissingCompleteSensorData+-- 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.LookoutEquipment.Types.MissingCompleteSensorData 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++-- | Entity that comprises information on sensors that have sensor data+-- completely missing.+--+-- /See:/ 'newMissingCompleteSensorData' smart constructor.+data MissingCompleteSensorData = MissingCompleteSensorData'+  { -- | Indicates the number of sensors that have data missing completely.+    affectedSensorCount :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MissingCompleteSensorData' 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:+--+-- 'affectedSensorCount', 'missingCompleteSensorData_affectedSensorCount' - Indicates the number of sensors that have data missing completely.+newMissingCompleteSensorData ::+  -- | 'affectedSensorCount'+  Prelude.Int ->+  MissingCompleteSensorData+newMissingCompleteSensorData pAffectedSensorCount_ =+  MissingCompleteSensorData'+    { affectedSensorCount =+        pAffectedSensorCount_+    }++-- | Indicates the number of sensors that have data missing completely.+missingCompleteSensorData_affectedSensorCount :: Lens.Lens' MissingCompleteSensorData Prelude.Int+missingCompleteSensorData_affectedSensorCount = Lens.lens (\MissingCompleteSensorData' {affectedSensorCount} -> affectedSensorCount) (\s@MissingCompleteSensorData' {} a -> s {affectedSensorCount = a} :: MissingCompleteSensorData)++instance Data.FromJSON MissingCompleteSensorData where+  parseJSON =+    Data.withObject+      "MissingCompleteSensorData"+      ( \x ->+          MissingCompleteSensorData'+            Prelude.<$> (x Data..: "AffectedSensorCount")+      )++instance Prelude.Hashable MissingCompleteSensorData where+  hashWithSalt _salt MissingCompleteSensorData' {..} =+    _salt `Prelude.hashWithSalt` affectedSensorCount++instance Prelude.NFData MissingCompleteSensorData where+  rnf MissingCompleteSensorData' {..} =+    Prelude.rnf affectedSensorCount
+ gen/Amazonka/LookoutEquipment/Types/MissingSensorData.hs view
@@ -0,0 +1,93 @@+{-# 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.LookoutEquipment.Types.MissingSensorData+-- 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.LookoutEquipment.Types.MissingSensorData 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++-- | Entity that comprises aggregated information on sensors having missing+-- data.+--+-- /See:/ 'newMissingSensorData' smart constructor.+data MissingSensorData = MissingSensorData'+  { -- | Indicates the number of sensors that have atleast some data missing.+    affectedSensorCount :: Prelude.Int,+    -- | Indicates the total number of missing values across all the sensors.+    totalNumberOfMissingValues :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MissingSensorData' 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:+--+-- 'affectedSensorCount', 'missingSensorData_affectedSensorCount' - Indicates the number of sensors that have atleast some data missing.+--+-- 'totalNumberOfMissingValues', 'missingSensorData_totalNumberOfMissingValues' - Indicates the total number of missing values across all the sensors.+newMissingSensorData ::+  -- | 'affectedSensorCount'+  Prelude.Int ->+  -- | 'totalNumberOfMissingValues'+  Prelude.Int ->+  MissingSensorData+newMissingSensorData+  pAffectedSensorCount_+  pTotalNumberOfMissingValues_ =+    MissingSensorData'+      { affectedSensorCount =+          pAffectedSensorCount_,+        totalNumberOfMissingValues =+          pTotalNumberOfMissingValues_+      }++-- | Indicates the number of sensors that have atleast some data missing.+missingSensorData_affectedSensorCount :: Lens.Lens' MissingSensorData Prelude.Int+missingSensorData_affectedSensorCount = Lens.lens (\MissingSensorData' {affectedSensorCount} -> affectedSensorCount) (\s@MissingSensorData' {} a -> s {affectedSensorCount = a} :: MissingSensorData)++-- | Indicates the total number of missing values across all the sensors.+missingSensorData_totalNumberOfMissingValues :: Lens.Lens' MissingSensorData Prelude.Int+missingSensorData_totalNumberOfMissingValues = Lens.lens (\MissingSensorData' {totalNumberOfMissingValues} -> totalNumberOfMissingValues) (\s@MissingSensorData' {} a -> s {totalNumberOfMissingValues = a} :: MissingSensorData)++instance Data.FromJSON MissingSensorData where+  parseJSON =+    Data.withObject+      "MissingSensorData"+      ( \x ->+          MissingSensorData'+            Prelude.<$> (x Data..: "AffectedSensorCount")+            Prelude.<*> (x Data..: "TotalNumberOfMissingValues")+      )++instance Prelude.Hashable MissingSensorData where+  hashWithSalt _salt MissingSensorData' {..} =+    _salt+      `Prelude.hashWithSalt` affectedSensorCount+      `Prelude.hashWithSalt` totalNumberOfMissingValues++instance Prelude.NFData MissingSensorData where+  rnf MissingSensorData' {..} =+    Prelude.rnf affectedSensorCount+      `Prelude.seq` Prelude.rnf totalNumberOfMissingValues
+ gen/Amazonka/LookoutEquipment/Types/ModelStatus.hs view
@@ -0,0 +1,76 @@+{-# 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.LookoutEquipment.Types.ModelStatus+-- 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.LookoutEquipment.Types.ModelStatus+  ( ModelStatus+      ( ..,+        ModelStatus_FAILED,+        ModelStatus_IN_PROGRESS,+        ModelStatus_SUCCESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ModelStatus = ModelStatus'+  { fromModelStatus ::+      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 ModelStatus_FAILED :: ModelStatus+pattern ModelStatus_FAILED = ModelStatus' "FAILED"++pattern ModelStatus_IN_PROGRESS :: ModelStatus+pattern ModelStatus_IN_PROGRESS = ModelStatus' "IN_PROGRESS"++pattern ModelStatus_SUCCESS :: ModelStatus+pattern ModelStatus_SUCCESS = ModelStatus' "SUCCESS"++{-# COMPLETE+  ModelStatus_FAILED,+  ModelStatus_IN_PROGRESS,+  ModelStatus_SUCCESS,+  ModelStatus'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/ModelSummary.hs view
@@ -0,0 +1,134 @@+{-# 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.LookoutEquipment.Types.ModelSummary+-- 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.LookoutEquipment.Types.ModelSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.ModelStatus+import qualified Amazonka.Prelude as Prelude++-- | Provides information about the specified ML model, including dataset and+-- model names and ARNs, as well as status.+--+-- /See:/ 'newModelSummary' smart constructor.+data ModelSummary = ModelSummary'+  { -- | The time at which the specific model was created.+    createdAt :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the dataset used to create the model.+    datasetArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the dataset being used for the ML model.+    datasetName :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the ML model.+    modelArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the ML model.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the status of the ML model.+    status :: Prelude.Maybe ModelStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModelSummary' 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', 'modelSummary_createdAt' - The time at which the specific model was created.+--+-- 'datasetArn', 'modelSummary_datasetArn' - The Amazon Resource Name (ARN) of the dataset used to create the model.+--+-- 'datasetName', 'modelSummary_datasetName' - The name of the dataset being used for the ML model.+--+-- 'modelArn', 'modelSummary_modelArn' - The Amazon Resource Name (ARN) of the ML model.+--+-- 'modelName', 'modelSummary_modelName' - The name of the ML model.+--+-- 'status', 'modelSummary_status' - Indicates the status of the ML model.+newModelSummary ::+  ModelSummary+newModelSummary =+  ModelSummary'+    { createdAt = Prelude.Nothing,+      datasetArn = Prelude.Nothing,+      datasetName = Prelude.Nothing,+      modelArn = Prelude.Nothing,+      modelName = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The time at which the specific model was created.+modelSummary_createdAt :: Lens.Lens' ModelSummary (Prelude.Maybe Prelude.UTCTime)+modelSummary_createdAt = Lens.lens (\ModelSummary' {createdAt} -> createdAt) (\s@ModelSummary' {} a -> s {createdAt = a} :: ModelSummary) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the dataset used to create the model.+modelSummary_datasetArn :: Lens.Lens' ModelSummary (Prelude.Maybe Prelude.Text)+modelSummary_datasetArn = Lens.lens (\ModelSummary' {datasetArn} -> datasetArn) (\s@ModelSummary' {} a -> s {datasetArn = a} :: ModelSummary)++-- | The name of the dataset being used for the ML model.+modelSummary_datasetName :: Lens.Lens' ModelSummary (Prelude.Maybe Prelude.Text)+modelSummary_datasetName = Lens.lens (\ModelSummary' {datasetName} -> datasetName) (\s@ModelSummary' {} a -> s {datasetName = a} :: ModelSummary)++-- | The Amazon Resource Name (ARN) of the ML model.+modelSummary_modelArn :: Lens.Lens' ModelSummary (Prelude.Maybe Prelude.Text)+modelSummary_modelArn = Lens.lens (\ModelSummary' {modelArn} -> modelArn) (\s@ModelSummary' {} a -> s {modelArn = a} :: ModelSummary)++-- | The name of the ML model.+modelSummary_modelName :: Lens.Lens' ModelSummary (Prelude.Maybe Prelude.Text)+modelSummary_modelName = Lens.lens (\ModelSummary' {modelName} -> modelName) (\s@ModelSummary' {} a -> s {modelName = a} :: ModelSummary)++-- | Indicates the status of the ML model.+modelSummary_status :: Lens.Lens' ModelSummary (Prelude.Maybe ModelStatus)+modelSummary_status = Lens.lens (\ModelSummary' {status} -> status) (\s@ModelSummary' {} a -> s {status = a} :: ModelSummary)++instance Data.FromJSON ModelSummary where+  parseJSON =+    Data.withObject+      "ModelSummary"+      ( \x ->+          ModelSummary'+            Prelude.<$> (x Data..:? "CreatedAt")+            Prelude.<*> (x Data..:? "DatasetArn")+            Prelude.<*> (x Data..:? "DatasetName")+            Prelude.<*> (x Data..:? "ModelArn")+            Prelude.<*> (x Data..:? "ModelName")+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable ModelSummary where+  hashWithSalt _salt ModelSummary' {..} =+    _salt+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` datasetArn+      `Prelude.hashWithSalt` datasetName+      `Prelude.hashWithSalt` modelArn+      `Prelude.hashWithSalt` modelName+      `Prelude.hashWithSalt` status++instance Prelude.NFData ModelSummary where+  rnf ModelSummary' {..} =+    Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf datasetArn+      `Prelude.seq` Prelude.rnf datasetName+      `Prelude.seq` Prelude.rnf modelArn+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/MonotonicValues.hs view
@@ -0,0 +1,94 @@+{-# 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.LookoutEquipment.Types.MonotonicValues+-- 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.LookoutEquipment.Types.MonotonicValues where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.Monotonicity+import Amazonka.LookoutEquipment.Types.StatisticalIssueStatus+import qualified Amazonka.Prelude as Prelude++-- | Entity that comprises information on monotonic values in the data.+--+-- /See:/ 'newMonotonicValues' smart constructor.+data MonotonicValues = MonotonicValues'+  { -- | Indicates the monotonicity of values. Can be INCREASING, DECREASING, or+    -- STATIC.+    monotonicity :: Prelude.Maybe Monotonicity,+    -- | Indicates whether there is a potential data issue related to having+    -- monotonic values.+    status :: StatisticalIssueStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MonotonicValues' 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:+--+-- 'monotonicity', 'monotonicValues_monotonicity' - Indicates the monotonicity of values. Can be INCREASING, DECREASING, or+-- STATIC.+--+-- 'status', 'monotonicValues_status' - Indicates whether there is a potential data issue related to having+-- monotonic values.+newMonotonicValues ::+  -- | 'status'+  StatisticalIssueStatus ->+  MonotonicValues+newMonotonicValues pStatus_ =+  MonotonicValues'+    { monotonicity = Prelude.Nothing,+      status = pStatus_+    }++-- | Indicates the monotonicity of values. Can be INCREASING, DECREASING, or+-- STATIC.+monotonicValues_monotonicity :: Lens.Lens' MonotonicValues (Prelude.Maybe Monotonicity)+monotonicValues_monotonicity = Lens.lens (\MonotonicValues' {monotonicity} -> monotonicity) (\s@MonotonicValues' {} a -> s {monotonicity = a} :: MonotonicValues)++-- | Indicates whether there is a potential data issue related to having+-- monotonic values.+monotonicValues_status :: Lens.Lens' MonotonicValues StatisticalIssueStatus+monotonicValues_status = Lens.lens (\MonotonicValues' {status} -> status) (\s@MonotonicValues' {} a -> s {status = a} :: MonotonicValues)++instance Data.FromJSON MonotonicValues where+  parseJSON =+    Data.withObject+      "MonotonicValues"+      ( \x ->+          MonotonicValues'+            Prelude.<$> (x Data..:? "Monotonicity")+            Prelude.<*> (x Data..: "Status")+      )++instance Prelude.Hashable MonotonicValues where+  hashWithSalt _salt MonotonicValues' {..} =+    _salt+      `Prelude.hashWithSalt` monotonicity+      `Prelude.hashWithSalt` status++instance Prelude.NFData MonotonicValues where+  rnf MonotonicValues' {..} =+    Prelude.rnf monotonicity+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/Monotonicity.hs view
@@ -0,0 +1,76 @@+{-# 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.LookoutEquipment.Types.Monotonicity+-- 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.LookoutEquipment.Types.Monotonicity+  ( Monotonicity+      ( ..,+        Monotonicity_DECREASING,+        Monotonicity_INCREASING,+        Monotonicity_STATIC+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Monotonicity = Monotonicity'+  { fromMonotonicity ::+      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 Monotonicity_DECREASING :: Monotonicity+pattern Monotonicity_DECREASING = Monotonicity' "DECREASING"++pattern Monotonicity_INCREASING :: Monotonicity+pattern Monotonicity_INCREASING = Monotonicity' "INCREASING"++pattern Monotonicity_STATIC :: Monotonicity+pattern Monotonicity_STATIC = Monotonicity' "STATIC"++{-# COMPLETE+  Monotonicity_DECREASING,+  Monotonicity_INCREASING,+  Monotonicity_STATIC,+  Monotonicity'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/MultipleOperatingModes.hs view
@@ -0,0 +1,74 @@+{-# 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.LookoutEquipment.Types.MultipleOperatingModes+-- 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.LookoutEquipment.Types.MultipleOperatingModes where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.StatisticalIssueStatus+import qualified Amazonka.Prelude as Prelude++-- | Entity that comprises information on operating modes in data.+--+-- /See:/ 'newMultipleOperatingModes' smart constructor.+data MultipleOperatingModes = MultipleOperatingModes'+  { -- | Indicates whether there is a potential data issue related to having+    -- multiple operating modes.+    status :: StatisticalIssueStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MultipleOperatingModes' 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:+--+-- 'status', 'multipleOperatingModes_status' - Indicates whether there is a potential data issue related to having+-- multiple operating modes.+newMultipleOperatingModes ::+  -- | 'status'+  StatisticalIssueStatus ->+  MultipleOperatingModes+newMultipleOperatingModes pStatus_ =+  MultipleOperatingModes' {status = pStatus_}++-- | Indicates whether there is a potential data issue related to having+-- multiple operating modes.+multipleOperatingModes_status :: Lens.Lens' MultipleOperatingModes StatisticalIssueStatus+multipleOperatingModes_status = Lens.lens (\MultipleOperatingModes' {status} -> status) (\s@MultipleOperatingModes' {} a -> s {status = a} :: MultipleOperatingModes)++instance Data.FromJSON MultipleOperatingModes where+  parseJSON =+    Data.withObject+      "MultipleOperatingModes"+      ( \x ->+          MultipleOperatingModes'+            Prelude.<$> (x Data..: "Status")+      )++instance Prelude.Hashable MultipleOperatingModes where+  hashWithSalt _salt MultipleOperatingModes' {..} =+    _salt `Prelude.hashWithSalt` status++instance Prelude.NFData MultipleOperatingModes where+  rnf MultipleOperatingModes' {..} = Prelude.rnf status
+ gen/Amazonka/LookoutEquipment/Types/S3Object.hs view
@@ -0,0 +1,87 @@+{-# 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.LookoutEquipment.Types.S3Object+-- 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.LookoutEquipment.Types.S3Object 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++-- | Contains information about an S3 bucket.+--+-- /See:/ 'newS3Object' smart constructor.+data S3Object = S3Object'+  { -- | The name of the specific S3 bucket.+    bucket :: Prelude.Text,+    -- | The AWS Key Management Service (AWS KMS) key being used to encrypt the+    -- S3 object. Without this key, data in the bucket is not accessible.+    key :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'S3Object' 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:+--+-- 'bucket', 's3Object_bucket' - The name of the specific S3 bucket.+--+-- 'key', 's3Object_key' - The AWS Key Management Service (AWS KMS) key being used to encrypt the+-- S3 object. Without this key, data in the bucket is not accessible.+newS3Object ::+  -- | 'bucket'+  Prelude.Text ->+  -- | 'key'+  Prelude.Text ->+  S3Object+newS3Object pBucket_ pKey_ =+  S3Object' {bucket = pBucket_, key = pKey_}++-- | The name of the specific S3 bucket.+s3Object_bucket :: Lens.Lens' S3Object Prelude.Text+s3Object_bucket = Lens.lens (\S3Object' {bucket} -> bucket) (\s@S3Object' {} a -> s {bucket = a} :: S3Object)++-- | The AWS Key Management Service (AWS KMS) key being used to encrypt the+-- S3 object. Without this key, data in the bucket is not accessible.+s3Object_key :: Lens.Lens' S3Object Prelude.Text+s3Object_key = Lens.lens (\S3Object' {key} -> key) (\s@S3Object' {} a -> s {key = a} :: S3Object)++instance Data.FromJSON S3Object where+  parseJSON =+    Data.withObject+      "S3Object"+      ( \x ->+          S3Object'+            Prelude.<$> (x Data..: "Bucket")+            Prelude.<*> (x Data..: "Key")+      )++instance Prelude.Hashable S3Object where+  hashWithSalt _salt S3Object' {..} =+    _salt+      `Prelude.hashWithSalt` bucket+      `Prelude.hashWithSalt` key++instance Prelude.NFData S3Object where+  rnf S3Object' {..} =+    Prelude.rnf bucket `Prelude.seq` Prelude.rnf key
+ gen/Amazonka/LookoutEquipment/Types/SensorStatisticsSummary.hs view
@@ -0,0 +1,263 @@+{-# 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.LookoutEquipment.Types.SensorStatisticsSummary+-- 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.LookoutEquipment.Types.SensorStatisticsSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types.CategoricalValues+import Amazonka.LookoutEquipment.Types.CountPercent+import Amazonka.LookoutEquipment.Types.LargeTimestampGaps+import Amazonka.LookoutEquipment.Types.MonotonicValues+import Amazonka.LookoutEquipment.Types.MultipleOperatingModes+import qualified Amazonka.Prelude as Prelude++-- | Summary of ingestion statistics like whether data exists, number of+-- missing values, number of invalid values and so on related to the+-- particular sensor.+--+-- /See:/ 'newSensorStatisticsSummary' smart constructor.+data SensorStatisticsSummary = SensorStatisticsSummary'+  { -- | Parameter that describes potential risk about whether data associated+    -- with the sensor is categorical.+    categoricalValues :: Prelude.Maybe CategoricalValues,+    -- | Name of the component to which the particular sensor belongs for which+    -- the statistics belong to.+    componentName :: Prelude.Maybe Prelude.Text,+    -- | Indicates the time reference to indicate the end of valid data+    -- associated with the sensor that the statistics belong to.+    dataEndTime :: Prelude.Maybe Data.POSIX,+    -- | Parameter that indicates whether data exists for the sensor that the+    -- statistics belong to.+    dataExists :: Prelude.Maybe Prelude.Bool,+    -- | Indicates the time reference to indicate the beginning of valid data+    -- associated with the sensor that the statistics belong to.+    dataStartTime :: Prelude.Maybe Data.POSIX,+    -- | Parameter that describes the total number of duplicate timestamp records+    -- associated with the sensor that the statistics belong to.+    duplicateTimestamps :: Prelude.Maybe CountPercent,+    -- | Parameter that describes the total number of invalid date entries+    -- associated with the sensor that the statistics belong to.+    invalidDateEntries :: Prelude.Maybe CountPercent,+    -- | Parameter that describes the total number of, and percentage of, values+    -- that are invalid for the sensor that the statistics belong to.+    invalidValues :: Prelude.Maybe CountPercent,+    -- | Parameter that describes potential risk about whether data associated+    -- with the sensor contains one or more large gaps between consecutive+    -- timestamps.+    largeTimestampGaps :: Prelude.Maybe LargeTimestampGaps,+    -- | Parameter that describes the total number of, and percentage of, values+    -- that are missing for the sensor that the statistics belong to.+    missingValues :: Prelude.Maybe CountPercent,+    -- | Parameter that describes potential risk about whether data associated+    -- with the sensor is mostly monotonic.+    monotonicValues :: Prelude.Maybe MonotonicValues,+    -- | Parameter that describes potential risk about whether data associated+    -- with the sensor has more than one operating mode.+    multipleOperatingModes :: Prelude.Maybe MultipleOperatingModes,+    -- | Name of the sensor that the statistics belong to.+    sensorName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SensorStatisticsSummary' 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:+--+-- 'categoricalValues', 'sensorStatisticsSummary_categoricalValues' - Parameter that describes potential risk about whether data associated+-- with the sensor is categorical.+--+-- 'componentName', 'sensorStatisticsSummary_componentName' - Name of the component to which the particular sensor belongs for which+-- the statistics belong to.+--+-- 'dataEndTime', 'sensorStatisticsSummary_dataEndTime' - Indicates the time reference to indicate the end of valid data+-- associated with the sensor that the statistics belong to.+--+-- 'dataExists', 'sensorStatisticsSummary_dataExists' - Parameter that indicates whether data exists for the sensor that the+-- statistics belong to.+--+-- 'dataStartTime', 'sensorStatisticsSummary_dataStartTime' - Indicates the time reference to indicate the beginning of valid data+-- associated with the sensor that the statistics belong to.+--+-- 'duplicateTimestamps', 'sensorStatisticsSummary_duplicateTimestamps' - Parameter that describes the total number of duplicate timestamp records+-- associated with the sensor that the statistics belong to.+--+-- 'invalidDateEntries', 'sensorStatisticsSummary_invalidDateEntries' - Parameter that describes the total number of invalid date entries+-- associated with the sensor that the statistics belong to.+--+-- 'invalidValues', 'sensorStatisticsSummary_invalidValues' - Parameter that describes the total number of, and percentage of, values+-- that are invalid for the sensor that the statistics belong to.+--+-- 'largeTimestampGaps', 'sensorStatisticsSummary_largeTimestampGaps' - Parameter that describes potential risk about whether data associated+-- with the sensor contains one or more large gaps between consecutive+-- timestamps.+--+-- 'missingValues', 'sensorStatisticsSummary_missingValues' - Parameter that describes the total number of, and percentage of, values+-- that are missing for the sensor that the statistics belong to.+--+-- 'monotonicValues', 'sensorStatisticsSummary_monotonicValues' - Parameter that describes potential risk about whether data associated+-- with the sensor is mostly monotonic.+--+-- 'multipleOperatingModes', 'sensorStatisticsSummary_multipleOperatingModes' - Parameter that describes potential risk about whether data associated+-- with the sensor has more than one operating mode.+--+-- 'sensorName', 'sensorStatisticsSummary_sensorName' - Name of the sensor that the statistics belong to.+newSensorStatisticsSummary ::+  SensorStatisticsSummary+newSensorStatisticsSummary =+  SensorStatisticsSummary'+    { categoricalValues =+        Prelude.Nothing,+      componentName = Prelude.Nothing,+      dataEndTime = Prelude.Nothing,+      dataExists = Prelude.Nothing,+      dataStartTime = Prelude.Nothing,+      duplicateTimestamps = Prelude.Nothing,+      invalidDateEntries = Prelude.Nothing,+      invalidValues = Prelude.Nothing,+      largeTimestampGaps = Prelude.Nothing,+      missingValues = Prelude.Nothing,+      monotonicValues = Prelude.Nothing,+      multipleOperatingModes = Prelude.Nothing,+      sensorName = Prelude.Nothing+    }++-- | Parameter that describes potential risk about whether data associated+-- with the sensor is categorical.+sensorStatisticsSummary_categoricalValues :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe CategoricalValues)+sensorStatisticsSummary_categoricalValues = Lens.lens (\SensorStatisticsSummary' {categoricalValues} -> categoricalValues) (\s@SensorStatisticsSummary' {} a -> s {categoricalValues = a} :: SensorStatisticsSummary)++-- | Name of the component to which the particular sensor belongs for which+-- the statistics belong to.+sensorStatisticsSummary_componentName :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe Prelude.Text)+sensorStatisticsSummary_componentName = Lens.lens (\SensorStatisticsSummary' {componentName} -> componentName) (\s@SensorStatisticsSummary' {} a -> s {componentName = a} :: SensorStatisticsSummary)++-- | Indicates the time reference to indicate the end of valid data+-- associated with the sensor that the statistics belong to.+sensorStatisticsSummary_dataEndTime :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe Prelude.UTCTime)+sensorStatisticsSummary_dataEndTime = Lens.lens (\SensorStatisticsSummary' {dataEndTime} -> dataEndTime) (\s@SensorStatisticsSummary' {} a -> s {dataEndTime = a} :: SensorStatisticsSummary) Prelude.. Lens.mapping Data._Time++-- | Parameter that indicates whether data exists for the sensor that the+-- statistics belong to.+sensorStatisticsSummary_dataExists :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe Prelude.Bool)+sensorStatisticsSummary_dataExists = Lens.lens (\SensorStatisticsSummary' {dataExists} -> dataExists) (\s@SensorStatisticsSummary' {} a -> s {dataExists = a} :: SensorStatisticsSummary)++-- | Indicates the time reference to indicate the beginning of valid data+-- associated with the sensor that the statistics belong to.+sensorStatisticsSummary_dataStartTime :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe Prelude.UTCTime)+sensorStatisticsSummary_dataStartTime = Lens.lens (\SensorStatisticsSummary' {dataStartTime} -> dataStartTime) (\s@SensorStatisticsSummary' {} a -> s {dataStartTime = a} :: SensorStatisticsSummary) Prelude.. Lens.mapping Data._Time++-- | Parameter that describes the total number of duplicate timestamp records+-- associated with the sensor that the statistics belong to.+sensorStatisticsSummary_duplicateTimestamps :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe CountPercent)+sensorStatisticsSummary_duplicateTimestamps = Lens.lens (\SensorStatisticsSummary' {duplicateTimestamps} -> duplicateTimestamps) (\s@SensorStatisticsSummary' {} a -> s {duplicateTimestamps = a} :: SensorStatisticsSummary)++-- | Parameter that describes the total number of invalid date entries+-- associated with the sensor that the statistics belong to.+sensorStatisticsSummary_invalidDateEntries :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe CountPercent)+sensorStatisticsSummary_invalidDateEntries = Lens.lens (\SensorStatisticsSummary' {invalidDateEntries} -> invalidDateEntries) (\s@SensorStatisticsSummary' {} a -> s {invalidDateEntries = a} :: SensorStatisticsSummary)++-- | Parameter that describes the total number of, and percentage of, values+-- that are invalid for the sensor that the statistics belong to.+sensorStatisticsSummary_invalidValues :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe CountPercent)+sensorStatisticsSummary_invalidValues = Lens.lens (\SensorStatisticsSummary' {invalidValues} -> invalidValues) (\s@SensorStatisticsSummary' {} a -> s {invalidValues = a} :: SensorStatisticsSummary)++-- | Parameter that describes potential risk about whether data associated+-- with the sensor contains one or more large gaps between consecutive+-- timestamps.+sensorStatisticsSummary_largeTimestampGaps :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe LargeTimestampGaps)+sensorStatisticsSummary_largeTimestampGaps = Lens.lens (\SensorStatisticsSummary' {largeTimestampGaps} -> largeTimestampGaps) (\s@SensorStatisticsSummary' {} a -> s {largeTimestampGaps = a} :: SensorStatisticsSummary)++-- | Parameter that describes the total number of, and percentage of, values+-- that are missing for the sensor that the statistics belong to.+sensorStatisticsSummary_missingValues :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe CountPercent)+sensorStatisticsSummary_missingValues = Lens.lens (\SensorStatisticsSummary' {missingValues} -> missingValues) (\s@SensorStatisticsSummary' {} a -> s {missingValues = a} :: SensorStatisticsSummary)++-- | Parameter that describes potential risk about whether data associated+-- with the sensor is mostly monotonic.+sensorStatisticsSummary_monotonicValues :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe MonotonicValues)+sensorStatisticsSummary_monotonicValues = Lens.lens (\SensorStatisticsSummary' {monotonicValues} -> monotonicValues) (\s@SensorStatisticsSummary' {} a -> s {monotonicValues = a} :: SensorStatisticsSummary)++-- | Parameter that describes potential risk about whether data associated+-- with the sensor has more than one operating mode.+sensorStatisticsSummary_multipleOperatingModes :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe MultipleOperatingModes)+sensorStatisticsSummary_multipleOperatingModes = Lens.lens (\SensorStatisticsSummary' {multipleOperatingModes} -> multipleOperatingModes) (\s@SensorStatisticsSummary' {} a -> s {multipleOperatingModes = a} :: SensorStatisticsSummary)++-- | Name of the sensor that the statistics belong to.+sensorStatisticsSummary_sensorName :: Lens.Lens' SensorStatisticsSummary (Prelude.Maybe Prelude.Text)+sensorStatisticsSummary_sensorName = Lens.lens (\SensorStatisticsSummary' {sensorName} -> sensorName) (\s@SensorStatisticsSummary' {} a -> s {sensorName = a} :: SensorStatisticsSummary)++instance Data.FromJSON SensorStatisticsSummary where+  parseJSON =+    Data.withObject+      "SensorStatisticsSummary"+      ( \x ->+          SensorStatisticsSummary'+            Prelude.<$> (x Data..:? "CategoricalValues")+            Prelude.<*> (x Data..:? "ComponentName")+            Prelude.<*> (x Data..:? "DataEndTime")+            Prelude.<*> (x Data..:? "DataExists")+            Prelude.<*> (x Data..:? "DataStartTime")+            Prelude.<*> (x Data..:? "DuplicateTimestamps")+            Prelude.<*> (x Data..:? "InvalidDateEntries")+            Prelude.<*> (x Data..:? "InvalidValues")+            Prelude.<*> (x Data..:? "LargeTimestampGaps")+            Prelude.<*> (x Data..:? "MissingValues")+            Prelude.<*> (x Data..:? "MonotonicValues")+            Prelude.<*> (x Data..:? "MultipleOperatingModes")+            Prelude.<*> (x Data..:? "SensorName")+      )++instance Prelude.Hashable SensorStatisticsSummary where+  hashWithSalt _salt SensorStatisticsSummary' {..} =+    _salt+      `Prelude.hashWithSalt` categoricalValues+      `Prelude.hashWithSalt` componentName+      `Prelude.hashWithSalt` dataEndTime+      `Prelude.hashWithSalt` dataExists+      `Prelude.hashWithSalt` dataStartTime+      `Prelude.hashWithSalt` duplicateTimestamps+      `Prelude.hashWithSalt` invalidDateEntries+      `Prelude.hashWithSalt` invalidValues+      `Prelude.hashWithSalt` largeTimestampGaps+      `Prelude.hashWithSalt` missingValues+      `Prelude.hashWithSalt` monotonicValues+      `Prelude.hashWithSalt` multipleOperatingModes+      `Prelude.hashWithSalt` sensorName++instance Prelude.NFData SensorStatisticsSummary where+  rnf SensorStatisticsSummary' {..} =+    Prelude.rnf categoricalValues+      `Prelude.seq` Prelude.rnf componentName+      `Prelude.seq` Prelude.rnf dataEndTime+      `Prelude.seq` Prelude.rnf dataExists+      `Prelude.seq` Prelude.rnf dataStartTime+      `Prelude.seq` Prelude.rnf duplicateTimestamps+      `Prelude.seq` Prelude.rnf invalidDateEntries+      `Prelude.seq` Prelude.rnf invalidValues+      `Prelude.seq` Prelude.rnf largeTimestampGaps+      `Prelude.seq` Prelude.rnf missingValues+      `Prelude.seq` Prelude.rnf monotonicValues+      `Prelude.seq` Prelude.rnf multipleOperatingModes+      `Prelude.seq` Prelude.rnf sensorName
+ gen/Amazonka/LookoutEquipment/Types/SensorsWithShortDateRange.hs view
@@ -0,0 +1,75 @@+{-# 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.LookoutEquipment.Types.SensorsWithShortDateRange+-- 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.LookoutEquipment.Types.SensorsWithShortDateRange 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++-- | Entity that comprises information on sensors that have shorter date+-- range.+--+-- /See:/ 'newSensorsWithShortDateRange' smart constructor.+data SensorsWithShortDateRange = SensorsWithShortDateRange'+  { -- | Indicates the number of sensors that have less than 90 days of data.+    affectedSensorCount :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SensorsWithShortDateRange' 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:+--+-- 'affectedSensorCount', 'sensorsWithShortDateRange_affectedSensorCount' - Indicates the number of sensors that have less than 90 days of data.+newSensorsWithShortDateRange ::+  -- | 'affectedSensorCount'+  Prelude.Int ->+  SensorsWithShortDateRange+newSensorsWithShortDateRange pAffectedSensorCount_ =+  SensorsWithShortDateRange'+    { affectedSensorCount =+        pAffectedSensorCount_+    }++-- | Indicates the number of sensors that have less than 90 days of data.+sensorsWithShortDateRange_affectedSensorCount :: Lens.Lens' SensorsWithShortDateRange Prelude.Int+sensorsWithShortDateRange_affectedSensorCount = Lens.lens (\SensorsWithShortDateRange' {affectedSensorCount} -> affectedSensorCount) (\s@SensorsWithShortDateRange' {} a -> s {affectedSensorCount = a} :: SensorsWithShortDateRange)++instance Data.FromJSON SensorsWithShortDateRange where+  parseJSON =+    Data.withObject+      "SensorsWithShortDateRange"+      ( \x ->+          SensorsWithShortDateRange'+            Prelude.<$> (x Data..: "AffectedSensorCount")+      )++instance Prelude.Hashable SensorsWithShortDateRange where+  hashWithSalt _salt SensorsWithShortDateRange' {..} =+    _salt `Prelude.hashWithSalt` affectedSensorCount++instance Prelude.NFData SensorsWithShortDateRange where+  rnf SensorsWithShortDateRange' {..} =+    Prelude.rnf affectedSensorCount
+ gen/Amazonka/LookoutEquipment/Types/StatisticalIssueStatus.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.LookoutEquipment.Types.StatisticalIssueStatus+-- 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.LookoutEquipment.Types.StatisticalIssueStatus+  ( StatisticalIssueStatus+      ( ..,+        StatisticalIssueStatus_NO_ISSUE_DETECTED,+        StatisticalIssueStatus_POTENTIAL_ISSUE_DETECTED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype StatisticalIssueStatus = StatisticalIssueStatus'+  { fromStatisticalIssueStatus ::+      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 StatisticalIssueStatus_NO_ISSUE_DETECTED :: StatisticalIssueStatus+pattern StatisticalIssueStatus_NO_ISSUE_DETECTED = StatisticalIssueStatus' "NO_ISSUE_DETECTED"++pattern StatisticalIssueStatus_POTENTIAL_ISSUE_DETECTED :: StatisticalIssueStatus+pattern StatisticalIssueStatus_POTENTIAL_ISSUE_DETECTED = StatisticalIssueStatus' "POTENTIAL_ISSUE_DETECTED"++{-# COMPLETE+  StatisticalIssueStatus_NO_ISSUE_DETECTED,+  StatisticalIssueStatus_POTENTIAL_ISSUE_DETECTED,+  StatisticalIssueStatus'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/Tag.hs view
@@ -0,0 +1,93 @@+{-# 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.LookoutEquipment.Types.Tag+-- 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.LookoutEquipment.Types.Tag 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++-- | A tag is a key-value pair that can be added to a resource as metadata.+--+-- /See:/ 'newTag' smart constructor.+data Tag = Tag'+  { -- | The key for the specified tag.+    key :: Prelude.Text,+    -- | The value for the specified tag.+    value :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' 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:+--+-- 'key', 'tag_key' - The key for the specified tag.+--+-- 'value', 'tag_value' - The value for the specified tag.+newTag ::+  -- | 'key'+  Prelude.Text ->+  -- | 'value'+  Prelude.Text ->+  Tag+newTag pKey_ pValue_ =+  Tag' {key = pKey_, value = pValue_}++-- | The key for the specified tag.+tag_key :: Lens.Lens' Tag Prelude.Text+tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag)++-- | The value for the specified tag.+tag_value :: Lens.Lens' Tag Prelude.Text+tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag)++instance Data.FromJSON Tag where+  parseJSON =+    Data.withObject+      "Tag"+      ( \x ->+          Tag'+            Prelude.<$> (x Data..: "Key")+            Prelude.<*> (x Data..: "Value")+      )++instance Prelude.Hashable Tag where+  hashWithSalt _salt Tag' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` value++instance Prelude.NFData Tag where+  rnf Tag' {..} =+    Prelude.rnf key `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Tag where+  toJSON Tag' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Key" Data..= key),+            Prelude.Just ("Value" Data..= value)+          ]+      )
+ gen/Amazonka/LookoutEquipment/Types/TargetSamplingRate.hs view
@@ -0,0 +1,116 @@+{-# 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.LookoutEquipment.Types.TargetSamplingRate+-- 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.LookoutEquipment.Types.TargetSamplingRate+  ( TargetSamplingRate+      ( ..,+        TargetSamplingRate_PT10M,+        TargetSamplingRate_PT10S,+        TargetSamplingRate_PT15M,+        TargetSamplingRate_PT15S,+        TargetSamplingRate_PT1H,+        TargetSamplingRate_PT1M,+        TargetSamplingRate_PT1S,+        TargetSamplingRate_PT30M,+        TargetSamplingRate_PT30S,+        TargetSamplingRate_PT5M,+        TargetSamplingRate_PT5S+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TargetSamplingRate = TargetSamplingRate'+  { fromTargetSamplingRate ::+      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 TargetSamplingRate_PT10M :: TargetSamplingRate+pattern TargetSamplingRate_PT10M = TargetSamplingRate' "PT10M"++pattern TargetSamplingRate_PT10S :: TargetSamplingRate+pattern TargetSamplingRate_PT10S = TargetSamplingRate' "PT10S"++pattern TargetSamplingRate_PT15M :: TargetSamplingRate+pattern TargetSamplingRate_PT15M = TargetSamplingRate' "PT15M"++pattern TargetSamplingRate_PT15S :: TargetSamplingRate+pattern TargetSamplingRate_PT15S = TargetSamplingRate' "PT15S"++pattern TargetSamplingRate_PT1H :: TargetSamplingRate+pattern TargetSamplingRate_PT1H = TargetSamplingRate' "PT1H"++pattern TargetSamplingRate_PT1M :: TargetSamplingRate+pattern TargetSamplingRate_PT1M = TargetSamplingRate' "PT1M"++pattern TargetSamplingRate_PT1S :: TargetSamplingRate+pattern TargetSamplingRate_PT1S = TargetSamplingRate' "PT1S"++pattern TargetSamplingRate_PT30M :: TargetSamplingRate+pattern TargetSamplingRate_PT30M = TargetSamplingRate' "PT30M"++pattern TargetSamplingRate_PT30S :: TargetSamplingRate+pattern TargetSamplingRate_PT30S = TargetSamplingRate' "PT30S"++pattern TargetSamplingRate_PT5M :: TargetSamplingRate+pattern TargetSamplingRate_PT5M = TargetSamplingRate' "PT5M"++pattern TargetSamplingRate_PT5S :: TargetSamplingRate+pattern TargetSamplingRate_PT5S = TargetSamplingRate' "PT5S"++{-# COMPLETE+  TargetSamplingRate_PT10M,+  TargetSamplingRate_PT10S,+  TargetSamplingRate_PT15M,+  TargetSamplingRate_PT15S,+  TargetSamplingRate_PT1H,+  TargetSamplingRate_PT1M,+  TargetSamplingRate_PT1S,+  TargetSamplingRate_PT30M,+  TargetSamplingRate_PT30S,+  TargetSamplingRate_PT5M,+  TargetSamplingRate_PT5S,+  TargetSamplingRate'+  #-}
+ gen/Amazonka/LookoutEquipment/Types/UnsupportedTimestamps.hs view
@@ -0,0 +1,80 @@+{-# 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.LookoutEquipment.Types.UnsupportedTimestamps+-- 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.LookoutEquipment.Types.UnsupportedTimestamps 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++-- | Entity that comprises information abount unsupported timestamps in the+-- dataset.+--+-- /See:/ 'newUnsupportedTimestamps' smart constructor.+data UnsupportedTimestamps = UnsupportedTimestamps'+  { -- | Indicates the total number of unsupported timestamps across the ingested+    -- data.+    totalNumberOfUnsupportedTimestamps :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UnsupportedTimestamps' 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:+--+-- 'totalNumberOfUnsupportedTimestamps', 'unsupportedTimestamps_totalNumberOfUnsupportedTimestamps' - Indicates the total number of unsupported timestamps across the ingested+-- data.+newUnsupportedTimestamps ::+  -- | 'totalNumberOfUnsupportedTimestamps'+  Prelude.Int ->+  UnsupportedTimestamps+newUnsupportedTimestamps+  pTotalNumberOfUnsupportedTimestamps_ =+    UnsupportedTimestamps'+      { totalNumberOfUnsupportedTimestamps =+          pTotalNumberOfUnsupportedTimestamps_+      }++-- | Indicates the total number of unsupported timestamps across the ingested+-- data.+unsupportedTimestamps_totalNumberOfUnsupportedTimestamps :: Lens.Lens' UnsupportedTimestamps Prelude.Int+unsupportedTimestamps_totalNumberOfUnsupportedTimestamps = Lens.lens (\UnsupportedTimestamps' {totalNumberOfUnsupportedTimestamps} -> totalNumberOfUnsupportedTimestamps) (\s@UnsupportedTimestamps' {} a -> s {totalNumberOfUnsupportedTimestamps = a} :: UnsupportedTimestamps)++instance Data.FromJSON UnsupportedTimestamps where+  parseJSON =+    Data.withObject+      "UnsupportedTimestamps"+      ( \x ->+          UnsupportedTimestamps'+            Prelude.<$> (x Data..: "TotalNumberOfUnsupportedTimestamps")+      )++instance Prelude.Hashable UnsupportedTimestamps where+  hashWithSalt _salt UnsupportedTimestamps' {..} =+    _salt+      `Prelude.hashWithSalt` totalNumberOfUnsupportedTimestamps++instance Prelude.NFData UnsupportedTimestamps where+  rnf UnsupportedTimestamps' {..} =+    Prelude.rnf totalNumberOfUnsupportedTimestamps
+ gen/Amazonka/LookoutEquipment/UntagResource.hs view
@@ -0,0 +1,175 @@+{-# 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.LookoutEquipment.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 a specific tag from a given resource. The tag is specified by+-- its key.+module Amazonka.LookoutEquipment.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.LookoutEquipment.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 Amazon Resource Name (ARN) of the resource to which the tag is+    -- currently associated.+    resourceArn :: Prelude.Text,+    -- | Specifies the key of the tag to be removed from a specified 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 Amazon Resource Name (ARN) of the resource to which the tag is+-- currently associated.+--+-- 'tagKeys', 'untagResource_tagKeys' - Specifies the key of the tag to be removed from a specified resource.+newUntagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  UntagResource+newUntagResource pResourceArn_ =+  UntagResource'+    { resourceArn = pResourceArn_,+      tagKeys = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the resource to which the tag is+-- currently associated.+untagResource_resourceArn :: Lens.Lens' UntagResource Prelude.Text+untagResource_resourceArn = Lens.lens (\UntagResource' {resourceArn} -> resourceArn) (\s@UntagResource' {} a -> s {resourceArn = a} :: UntagResource)++-- | Specifies the key of the tag to be removed from a specified 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.postJSON (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+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.UntagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UntagResource where+  toJSON UntagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceArn" Data..= resourceArn),+            Prelude.Just ("TagKeys" Data..= tagKeys)+          ]+      )++instance Data.ToPath UntagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery UntagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /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/LookoutEquipment/UpdateInferenceScheduler.hs view
@@ -0,0 +1,266 @@+{-# 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.LookoutEquipment.UpdateInferenceScheduler+-- 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 an inference scheduler.+module Amazonka.LookoutEquipment.UpdateInferenceScheduler+  ( -- * Creating a Request+    UpdateInferenceScheduler (..),+    newUpdateInferenceScheduler,++    -- * Request Lenses+    updateInferenceScheduler_dataDelayOffsetInMinutes,+    updateInferenceScheduler_dataInputConfiguration,+    updateInferenceScheduler_dataOutputConfiguration,+    updateInferenceScheduler_dataUploadFrequency,+    updateInferenceScheduler_roleArn,+    updateInferenceScheduler_inferenceSchedulerName,++    -- * Destructuring the Response+    UpdateInferenceSchedulerResponse (..),+    newUpdateInferenceSchedulerResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateInferenceScheduler' smart constructor.+data UpdateInferenceScheduler = UpdateInferenceScheduler'+  { -- | A period of time (in minutes) by which inference on the data is delayed+    -- after the data starts. For instance, if you select an offset delay time+    -- of five minutes, inference will not begin on the data until the first+    -- data measurement after the five minute mark. For example, if five+    -- minutes is selected, the inference scheduler will wake up at the+    -- configured frequency with the additional five minute delay time to check+    -- the customer S3 bucket. The customer can upload data at the same+    -- frequency and they don\'t need to stop and restart the scheduler when+    -- uploading new data.+    dataDelayOffsetInMinutes :: Prelude.Maybe Prelude.Natural,+    -- | Specifies information for the input data for the inference scheduler,+    -- including delimiter, format, and dataset location.+    dataInputConfiguration :: Prelude.Maybe InferenceInputConfiguration,+    -- | Specifies information for the output results from the inference+    -- scheduler, including the output S3 location.+    dataOutputConfiguration :: Prelude.Maybe InferenceOutputConfiguration,+    -- | How often data is uploaded to the source S3 bucket for the input data.+    -- The value chosen is the length of time between data uploads. For+    -- instance, if you select 5 minutes, Amazon Lookout for Equipment will+    -- upload the real-time data to the source bucket once every 5 minutes.+    -- This frequency also determines how often Amazon Lookout for Equipment+    -- starts a scheduled inference on your data. In this example, it starts+    -- once every 5 minutes.+    dataUploadFrequency :: Prelude.Maybe DataUploadFrequency,+    -- | The Amazon Resource Name (ARN) of a role with permission to access the+    -- data source for the inference scheduler.+    roleArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the inference scheduler to be updated.+    inferenceSchedulerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateInferenceScheduler' 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:+--+-- 'dataDelayOffsetInMinutes', 'updateInferenceScheduler_dataDelayOffsetInMinutes' - A period of time (in minutes) by which inference on the data is delayed+-- after the data starts. For instance, if you select an offset delay time+-- of five minutes, inference will not begin on the data until the first+-- data measurement after the five minute mark. For example, if five+-- minutes is selected, the inference scheduler will wake up at the+-- configured frequency with the additional five minute delay time to check+-- the customer S3 bucket. The customer can upload data at the same+-- frequency and they don\'t need to stop and restart the scheduler when+-- uploading new data.+--+-- 'dataInputConfiguration', 'updateInferenceScheduler_dataInputConfiguration' - Specifies information for the input data for the inference scheduler,+-- including delimiter, format, and dataset location.+--+-- 'dataOutputConfiguration', 'updateInferenceScheduler_dataOutputConfiguration' - Specifies information for the output results from the inference+-- scheduler, including the output S3 location.+--+-- 'dataUploadFrequency', 'updateInferenceScheduler_dataUploadFrequency' - How often data is uploaded to the source S3 bucket for the input data.+-- The value chosen is the length of time between data uploads. For+-- instance, if you select 5 minutes, Amazon Lookout for Equipment will+-- upload the real-time data to the source bucket once every 5 minutes.+-- This frequency also determines how often Amazon Lookout for Equipment+-- starts a scheduled inference on your data. In this example, it starts+-- once every 5 minutes.+--+-- 'roleArn', 'updateInferenceScheduler_roleArn' - The Amazon Resource Name (ARN) of a role with permission to access the+-- data source for the inference scheduler.+--+-- 'inferenceSchedulerName', 'updateInferenceScheduler_inferenceSchedulerName' - The name of the inference scheduler to be updated.+newUpdateInferenceScheduler ::+  -- | 'inferenceSchedulerName'+  Prelude.Text ->+  UpdateInferenceScheduler+newUpdateInferenceScheduler pInferenceSchedulerName_ =+  UpdateInferenceScheduler'+    { dataDelayOffsetInMinutes =+        Prelude.Nothing,+      dataInputConfiguration = Prelude.Nothing,+      dataOutputConfiguration = Prelude.Nothing,+      dataUploadFrequency = Prelude.Nothing,+      roleArn = Prelude.Nothing,+      inferenceSchedulerName = pInferenceSchedulerName_+    }++-- | A period of time (in minutes) by which inference on the data is delayed+-- after the data starts. For instance, if you select an offset delay time+-- of five minutes, inference will not begin on the data until the first+-- data measurement after the five minute mark. For example, if five+-- minutes is selected, the inference scheduler will wake up at the+-- configured frequency with the additional five minute delay time to check+-- the customer S3 bucket. The customer can upload data at the same+-- frequency and they don\'t need to stop and restart the scheduler when+-- uploading new data.+updateInferenceScheduler_dataDelayOffsetInMinutes :: Lens.Lens' UpdateInferenceScheduler (Prelude.Maybe Prelude.Natural)+updateInferenceScheduler_dataDelayOffsetInMinutes = Lens.lens (\UpdateInferenceScheduler' {dataDelayOffsetInMinutes} -> dataDelayOffsetInMinutes) (\s@UpdateInferenceScheduler' {} a -> s {dataDelayOffsetInMinutes = a} :: UpdateInferenceScheduler)++-- | Specifies information for the input data for the inference scheduler,+-- including delimiter, format, and dataset location.+updateInferenceScheduler_dataInputConfiguration :: Lens.Lens' UpdateInferenceScheduler (Prelude.Maybe InferenceInputConfiguration)+updateInferenceScheduler_dataInputConfiguration = Lens.lens (\UpdateInferenceScheduler' {dataInputConfiguration} -> dataInputConfiguration) (\s@UpdateInferenceScheduler' {} a -> s {dataInputConfiguration = a} :: UpdateInferenceScheduler)++-- | Specifies information for the output results from the inference+-- scheduler, including the output S3 location.+updateInferenceScheduler_dataOutputConfiguration :: Lens.Lens' UpdateInferenceScheduler (Prelude.Maybe InferenceOutputConfiguration)+updateInferenceScheduler_dataOutputConfiguration = Lens.lens (\UpdateInferenceScheduler' {dataOutputConfiguration} -> dataOutputConfiguration) (\s@UpdateInferenceScheduler' {} a -> s {dataOutputConfiguration = a} :: UpdateInferenceScheduler)++-- | How often data is uploaded to the source S3 bucket for the input data.+-- The value chosen is the length of time between data uploads. For+-- instance, if you select 5 minutes, Amazon Lookout for Equipment will+-- upload the real-time data to the source bucket once every 5 minutes.+-- This frequency also determines how often Amazon Lookout for Equipment+-- starts a scheduled inference on your data. In this example, it starts+-- once every 5 minutes.+updateInferenceScheduler_dataUploadFrequency :: Lens.Lens' UpdateInferenceScheduler (Prelude.Maybe DataUploadFrequency)+updateInferenceScheduler_dataUploadFrequency = Lens.lens (\UpdateInferenceScheduler' {dataUploadFrequency} -> dataUploadFrequency) (\s@UpdateInferenceScheduler' {} a -> s {dataUploadFrequency = a} :: UpdateInferenceScheduler)++-- | The Amazon Resource Name (ARN) of a role with permission to access the+-- data source for the inference scheduler.+updateInferenceScheduler_roleArn :: Lens.Lens' UpdateInferenceScheduler (Prelude.Maybe Prelude.Text)+updateInferenceScheduler_roleArn = Lens.lens (\UpdateInferenceScheduler' {roleArn} -> roleArn) (\s@UpdateInferenceScheduler' {} a -> s {roleArn = a} :: UpdateInferenceScheduler)++-- | The name of the inference scheduler to be updated.+updateInferenceScheduler_inferenceSchedulerName :: Lens.Lens' UpdateInferenceScheduler Prelude.Text+updateInferenceScheduler_inferenceSchedulerName = Lens.lens (\UpdateInferenceScheduler' {inferenceSchedulerName} -> inferenceSchedulerName) (\s@UpdateInferenceScheduler' {} a -> s {inferenceSchedulerName = a} :: UpdateInferenceScheduler)++instance Core.AWSRequest UpdateInferenceScheduler where+  type+    AWSResponse UpdateInferenceScheduler =+      UpdateInferenceSchedulerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveNull+      UpdateInferenceSchedulerResponse'++instance Prelude.Hashable UpdateInferenceScheduler where+  hashWithSalt _salt UpdateInferenceScheduler' {..} =+    _salt+      `Prelude.hashWithSalt` dataDelayOffsetInMinutes+      `Prelude.hashWithSalt` dataInputConfiguration+      `Prelude.hashWithSalt` dataOutputConfiguration+      `Prelude.hashWithSalt` dataUploadFrequency+      `Prelude.hashWithSalt` roleArn+      `Prelude.hashWithSalt` inferenceSchedulerName++instance Prelude.NFData UpdateInferenceScheduler where+  rnf UpdateInferenceScheduler' {..} =+    Prelude.rnf dataDelayOffsetInMinutes+      `Prelude.seq` Prelude.rnf dataInputConfiguration+      `Prelude.seq` Prelude.rnf dataOutputConfiguration+      `Prelude.seq` Prelude.rnf dataUploadFrequency+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf inferenceSchedulerName++instance Data.ToHeaders UpdateInferenceScheduler where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.UpdateInferenceScheduler" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateInferenceScheduler where+  toJSON UpdateInferenceScheduler' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DataDelayOffsetInMinutes" Data..=)+              Prelude.<$> dataDelayOffsetInMinutes,+            ("DataInputConfiguration" Data..=)+              Prelude.<$> dataInputConfiguration,+            ("DataOutputConfiguration" Data..=)+              Prelude.<$> dataOutputConfiguration,+            ("DataUploadFrequency" Data..=)+              Prelude.<$> dataUploadFrequency,+            ("RoleArn" Data..=) Prelude.<$> roleArn,+            Prelude.Just+              ( "InferenceSchedulerName"+                  Data..= inferenceSchedulerName+              )+          ]+      )++instance Data.ToPath UpdateInferenceScheduler where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateInferenceScheduler where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateInferenceSchedulerResponse' smart constructor.+data UpdateInferenceSchedulerResponse = UpdateInferenceSchedulerResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateInferenceSchedulerResponse' 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.+newUpdateInferenceSchedulerResponse ::+  UpdateInferenceSchedulerResponse+newUpdateInferenceSchedulerResponse =+  UpdateInferenceSchedulerResponse'++instance+  Prelude.NFData+    UpdateInferenceSchedulerResponse+  where+  rnf _ = ()
+ gen/Amazonka/LookoutEquipment/UpdateLabelGroup.hs view
@@ -0,0 +1,164 @@+{-# 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.LookoutEquipment.UpdateLabelGroup+-- 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 the label group.+module Amazonka.LookoutEquipment.UpdateLabelGroup+  ( -- * Creating a Request+    UpdateLabelGroup (..),+    newUpdateLabelGroup,++    -- * Request Lenses+    updateLabelGroup_faultCodes,+    updateLabelGroup_labelGroupName,++    -- * Destructuring the Response+    UpdateLabelGroupResponse (..),+    newUpdateLabelGroupResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateLabelGroup' smart constructor.+data UpdateLabelGroup = UpdateLabelGroup'+  { -- | Updates the code indicating the type of anomaly associated with the+    -- label.+    --+    -- Data in this field will be retained for service usage. Follow best+    -- practices for the security of your data.+    faultCodes :: Prelude.Maybe [Prelude.Text],+    -- | The name of the label group to be updated.+    labelGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateLabelGroup' 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:+--+-- 'faultCodes', 'updateLabelGroup_faultCodes' - Updates the code indicating the type of anomaly associated with the+-- label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+--+-- 'labelGroupName', 'updateLabelGroup_labelGroupName' - The name of the label group to be updated.+newUpdateLabelGroup ::+  -- | 'labelGroupName'+  Prelude.Text ->+  UpdateLabelGroup+newUpdateLabelGroup pLabelGroupName_ =+  UpdateLabelGroup'+    { faultCodes = Prelude.Nothing,+      labelGroupName = pLabelGroupName_+    }++-- | Updates the code indicating the type of anomaly associated with the+-- label.+--+-- Data in this field will be retained for service usage. Follow best+-- practices for the security of your data.+updateLabelGroup_faultCodes :: Lens.Lens' UpdateLabelGroup (Prelude.Maybe [Prelude.Text])+updateLabelGroup_faultCodes = Lens.lens (\UpdateLabelGroup' {faultCodes} -> faultCodes) (\s@UpdateLabelGroup' {} a -> s {faultCodes = a} :: UpdateLabelGroup) Prelude.. Lens.mapping Lens.coerced++-- | The name of the label group to be updated.+updateLabelGroup_labelGroupName :: Lens.Lens' UpdateLabelGroup Prelude.Text+updateLabelGroup_labelGroupName = Lens.lens (\UpdateLabelGroup' {labelGroupName} -> labelGroupName) (\s@UpdateLabelGroup' {} a -> s {labelGroupName = a} :: UpdateLabelGroup)++instance Core.AWSRequest UpdateLabelGroup where+  type+    AWSResponse UpdateLabelGroup =+      UpdateLabelGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveNull UpdateLabelGroupResponse'++instance Prelude.Hashable UpdateLabelGroup where+  hashWithSalt _salt UpdateLabelGroup' {..} =+    _salt+      `Prelude.hashWithSalt` faultCodes+      `Prelude.hashWithSalt` labelGroupName++instance Prelude.NFData UpdateLabelGroup where+  rnf UpdateLabelGroup' {..} =+    Prelude.rnf faultCodes+      `Prelude.seq` Prelude.rnf labelGroupName++instance Data.ToHeaders UpdateLabelGroup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSLookoutEquipmentFrontendService.UpdateLabelGroup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateLabelGroup where+  toJSON UpdateLabelGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("FaultCodes" Data..=) Prelude.<$> faultCodes,+            Prelude.Just+              ("LabelGroupName" Data..= labelGroupName)+          ]+      )++instance Data.ToPath UpdateLabelGroup where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateLabelGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateLabelGroupResponse' smart constructor.+data UpdateLabelGroupResponse = UpdateLabelGroupResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateLabelGroupResponse' 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.+newUpdateLabelGroupResponse ::+  UpdateLabelGroupResponse+newUpdateLabelGroupResponse =+  UpdateLabelGroupResponse'++instance Prelude.NFData UpdateLabelGroupResponse where+  rnf _ = ()
+ gen/Amazonka/LookoutEquipment/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.LookoutEquipment.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.LookoutEquipment.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.LookoutEquipment.Lens+import Amazonka.LookoutEquipment.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.LookoutEquipment+import Test.Amazonka.LookoutEquipment.Internal+import Test.Tasty++main :: IO ()+main =+  defaultMain $+    testGroup+      "LookoutEquipment"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]
+ test/Test/Amazonka/Gen/LookoutEquipment.hs view
@@ -0,0 +1,698 @@+{-# 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.LookoutEquipment+-- 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.LookoutEquipment where++import Amazonka.LookoutEquipment+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.LookoutEquipment.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"+--         [ requestCreateDataset $+--             newCreateDataset+--+--         , requestCreateInferenceScheduler $+--             newCreateInferenceScheduler+--+--         , requestCreateLabel $+--             newCreateLabel+--+--         , requestCreateLabelGroup $+--             newCreateLabelGroup+--+--         , requestCreateModel $+--             newCreateModel+--+--         , requestDeleteDataset $+--             newDeleteDataset+--+--         , requestDeleteInferenceScheduler $+--             newDeleteInferenceScheduler+--+--         , requestDeleteLabel $+--             newDeleteLabel+--+--         , requestDeleteLabelGroup $+--             newDeleteLabelGroup+--+--         , requestDeleteModel $+--             newDeleteModel+--+--         , requestDescribeDataIngestionJob $+--             newDescribeDataIngestionJob+--+--         , requestDescribeDataset $+--             newDescribeDataset+--+--         , requestDescribeInferenceScheduler $+--             newDescribeInferenceScheduler+--+--         , requestDescribeLabel $+--             newDescribeLabel+--+--         , requestDescribeLabelGroup $+--             newDescribeLabelGroup+--+--         , requestDescribeModel $+--             newDescribeModel+--+--         , requestListDataIngestionJobs $+--             newListDataIngestionJobs+--+--         , requestListDatasets $+--             newListDatasets+--+--         , requestListInferenceEvents $+--             newListInferenceEvents+--+--         , requestListInferenceExecutions $+--             newListInferenceExecutions+--+--         , requestListInferenceSchedulers $+--             newListInferenceSchedulers+--+--         , requestListLabelGroups $+--             newListLabelGroups+--+--         , requestListLabels $+--             newListLabels+--+--         , requestListModels $+--             newListModels+--+--         , requestListSensorStatistics $+--             newListSensorStatistics+--+--         , requestListTagsForResource $+--             newListTagsForResource+--+--         , requestStartDataIngestionJob $+--             newStartDataIngestionJob+--+--         , requestStartInferenceScheduler $+--             newStartInferenceScheduler+--+--         , requestStopInferenceScheduler $+--             newStopInferenceScheduler+--+--         , requestTagResource $+--             newTagResource+--+--         , requestUntagResource $+--             newUntagResource+--+--         , requestUpdateInferenceScheduler $+--             newUpdateInferenceScheduler+--+--         , requestUpdateLabelGroup $+--             newUpdateLabelGroup+--+--           ]++--     , testGroup "response"+--         [ responseCreateDataset $+--             newCreateDatasetResponse+--+--         , responseCreateInferenceScheduler $+--             newCreateInferenceSchedulerResponse+--+--         , responseCreateLabel $+--             newCreateLabelResponse+--+--         , responseCreateLabelGroup $+--             newCreateLabelGroupResponse+--+--         , responseCreateModel $+--             newCreateModelResponse+--+--         , responseDeleteDataset $+--             newDeleteDatasetResponse+--+--         , responseDeleteInferenceScheduler $+--             newDeleteInferenceSchedulerResponse+--+--         , responseDeleteLabel $+--             newDeleteLabelResponse+--+--         , responseDeleteLabelGroup $+--             newDeleteLabelGroupResponse+--+--         , responseDeleteModel $+--             newDeleteModelResponse+--+--         , responseDescribeDataIngestionJob $+--             newDescribeDataIngestionJobResponse+--+--         , responseDescribeDataset $+--             newDescribeDatasetResponse+--+--         , responseDescribeInferenceScheduler $+--             newDescribeInferenceSchedulerResponse+--+--         , responseDescribeLabel $+--             newDescribeLabelResponse+--+--         , responseDescribeLabelGroup $+--             newDescribeLabelGroupResponse+--+--         , responseDescribeModel $+--             newDescribeModelResponse+--+--         , responseListDataIngestionJobs $+--             newListDataIngestionJobsResponse+--+--         , responseListDatasets $+--             newListDatasetsResponse+--+--         , responseListInferenceEvents $+--             newListInferenceEventsResponse+--+--         , responseListInferenceExecutions $+--             newListInferenceExecutionsResponse+--+--         , responseListInferenceSchedulers $+--             newListInferenceSchedulersResponse+--+--         , responseListLabelGroups $+--             newListLabelGroupsResponse+--+--         , responseListLabels $+--             newListLabelsResponse+--+--         , responseListModels $+--             newListModelsResponse+--+--         , responseListSensorStatistics $+--             newListSensorStatisticsResponse+--+--         , responseListTagsForResource $+--             newListTagsForResourceResponse+--+--         , responseStartDataIngestionJob $+--             newStartDataIngestionJobResponse+--+--         , responseStartInferenceScheduler $+--             newStartInferenceSchedulerResponse+--+--         , responseStopInferenceScheduler $+--             newStopInferenceSchedulerResponse+--+--         , responseTagResource $+--             newTagResourceResponse+--+--         , responseUntagResource $+--             newUntagResourceResponse+--+--         , responseUpdateInferenceScheduler $+--             newUpdateInferenceSchedulerResponse+--+--         , responseUpdateLabelGroup $+--             newUpdateLabelGroupResponse+--+--           ]+--     ]++-- Requests++requestCreateDataset :: CreateDataset -> TestTree+requestCreateDataset =+  req+    "CreateDataset"+    "fixture/CreateDataset.yaml"++requestCreateInferenceScheduler :: CreateInferenceScheduler -> TestTree+requestCreateInferenceScheduler =+  req+    "CreateInferenceScheduler"+    "fixture/CreateInferenceScheduler.yaml"++requestCreateLabel :: CreateLabel -> TestTree+requestCreateLabel =+  req+    "CreateLabel"+    "fixture/CreateLabel.yaml"++requestCreateLabelGroup :: CreateLabelGroup -> TestTree+requestCreateLabelGroup =+  req+    "CreateLabelGroup"+    "fixture/CreateLabelGroup.yaml"++requestCreateModel :: CreateModel -> TestTree+requestCreateModel =+  req+    "CreateModel"+    "fixture/CreateModel.yaml"++requestDeleteDataset :: DeleteDataset -> TestTree+requestDeleteDataset =+  req+    "DeleteDataset"+    "fixture/DeleteDataset.yaml"++requestDeleteInferenceScheduler :: DeleteInferenceScheduler -> TestTree+requestDeleteInferenceScheduler =+  req+    "DeleteInferenceScheduler"+    "fixture/DeleteInferenceScheduler.yaml"++requestDeleteLabel :: DeleteLabel -> TestTree+requestDeleteLabel =+  req+    "DeleteLabel"+    "fixture/DeleteLabel.yaml"++requestDeleteLabelGroup :: DeleteLabelGroup -> TestTree+requestDeleteLabelGroup =+  req+    "DeleteLabelGroup"+    "fixture/DeleteLabelGroup.yaml"++requestDeleteModel :: DeleteModel -> TestTree+requestDeleteModel =+  req+    "DeleteModel"+    "fixture/DeleteModel.yaml"++requestDescribeDataIngestionJob :: DescribeDataIngestionJob -> TestTree+requestDescribeDataIngestionJob =+  req+    "DescribeDataIngestionJob"+    "fixture/DescribeDataIngestionJob.yaml"++requestDescribeDataset :: DescribeDataset -> TestTree+requestDescribeDataset =+  req+    "DescribeDataset"+    "fixture/DescribeDataset.yaml"++requestDescribeInferenceScheduler :: DescribeInferenceScheduler -> TestTree+requestDescribeInferenceScheduler =+  req+    "DescribeInferenceScheduler"+    "fixture/DescribeInferenceScheduler.yaml"++requestDescribeLabel :: DescribeLabel -> TestTree+requestDescribeLabel =+  req+    "DescribeLabel"+    "fixture/DescribeLabel.yaml"++requestDescribeLabelGroup :: DescribeLabelGroup -> TestTree+requestDescribeLabelGroup =+  req+    "DescribeLabelGroup"+    "fixture/DescribeLabelGroup.yaml"++requestDescribeModel :: DescribeModel -> TestTree+requestDescribeModel =+  req+    "DescribeModel"+    "fixture/DescribeModel.yaml"++requestListDataIngestionJobs :: ListDataIngestionJobs -> TestTree+requestListDataIngestionJobs =+  req+    "ListDataIngestionJobs"+    "fixture/ListDataIngestionJobs.yaml"++requestListDatasets :: ListDatasets -> TestTree+requestListDatasets =+  req+    "ListDatasets"+    "fixture/ListDatasets.yaml"++requestListInferenceEvents :: ListInferenceEvents -> TestTree+requestListInferenceEvents =+  req+    "ListInferenceEvents"+    "fixture/ListInferenceEvents.yaml"++requestListInferenceExecutions :: ListInferenceExecutions -> TestTree+requestListInferenceExecutions =+  req+    "ListInferenceExecutions"+    "fixture/ListInferenceExecutions.yaml"++requestListInferenceSchedulers :: ListInferenceSchedulers -> TestTree+requestListInferenceSchedulers =+  req+    "ListInferenceSchedulers"+    "fixture/ListInferenceSchedulers.yaml"++requestListLabelGroups :: ListLabelGroups -> TestTree+requestListLabelGroups =+  req+    "ListLabelGroups"+    "fixture/ListLabelGroups.yaml"++requestListLabels :: ListLabels -> TestTree+requestListLabels =+  req+    "ListLabels"+    "fixture/ListLabels.yaml"++requestListModels :: ListModels -> TestTree+requestListModels =+  req+    "ListModels"+    "fixture/ListModels.yaml"++requestListSensorStatistics :: ListSensorStatistics -> TestTree+requestListSensorStatistics =+  req+    "ListSensorStatistics"+    "fixture/ListSensorStatistics.yaml"++requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource =+  req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++requestStartDataIngestionJob :: StartDataIngestionJob -> TestTree+requestStartDataIngestionJob =+  req+    "StartDataIngestionJob"+    "fixture/StartDataIngestionJob.yaml"++requestStartInferenceScheduler :: StartInferenceScheduler -> TestTree+requestStartInferenceScheduler =+  req+    "StartInferenceScheduler"+    "fixture/StartInferenceScheduler.yaml"++requestStopInferenceScheduler :: StopInferenceScheduler -> TestTree+requestStopInferenceScheduler =+  req+    "StopInferenceScheduler"+    "fixture/StopInferenceScheduler.yaml"++requestTagResource :: TagResource -> TestTree+requestTagResource =+  req+    "TagResource"+    "fixture/TagResource.yaml"++requestUntagResource :: UntagResource -> TestTree+requestUntagResource =+  req+    "UntagResource"+    "fixture/UntagResource.yaml"++requestUpdateInferenceScheduler :: UpdateInferenceScheduler -> TestTree+requestUpdateInferenceScheduler =+  req+    "UpdateInferenceScheduler"+    "fixture/UpdateInferenceScheduler.yaml"++requestUpdateLabelGroup :: UpdateLabelGroup -> TestTree+requestUpdateLabelGroup =+  req+    "UpdateLabelGroup"+    "fixture/UpdateLabelGroup.yaml"++-- Responses++responseCreateDataset :: CreateDatasetResponse -> TestTree+responseCreateDataset =+  res+    "CreateDatasetResponse"+    "fixture/CreateDatasetResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateDataset)++responseCreateInferenceScheduler :: CreateInferenceSchedulerResponse -> TestTree+responseCreateInferenceScheduler =+  res+    "CreateInferenceSchedulerResponse"+    "fixture/CreateInferenceSchedulerResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateInferenceScheduler)++responseCreateLabel :: CreateLabelResponse -> TestTree+responseCreateLabel =+  res+    "CreateLabelResponse"+    "fixture/CreateLabelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateLabel)++responseCreateLabelGroup :: CreateLabelGroupResponse -> TestTree+responseCreateLabelGroup =+  res+    "CreateLabelGroupResponse"+    "fixture/CreateLabelGroupResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateLabelGroup)++responseCreateModel :: CreateModelResponse -> TestTree+responseCreateModel =+  res+    "CreateModelResponse"+    "fixture/CreateModelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateModel)++responseDeleteDataset :: DeleteDatasetResponse -> TestTree+responseDeleteDataset =+  res+    "DeleteDatasetResponse"+    "fixture/DeleteDatasetResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteDataset)++responseDeleteInferenceScheduler :: DeleteInferenceSchedulerResponse -> TestTree+responseDeleteInferenceScheduler =+  res+    "DeleteInferenceSchedulerResponse"+    "fixture/DeleteInferenceSchedulerResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteInferenceScheduler)++responseDeleteLabel :: DeleteLabelResponse -> TestTree+responseDeleteLabel =+  res+    "DeleteLabelResponse"+    "fixture/DeleteLabelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteLabel)++responseDeleteLabelGroup :: DeleteLabelGroupResponse -> TestTree+responseDeleteLabelGroup =+  res+    "DeleteLabelGroupResponse"+    "fixture/DeleteLabelGroupResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteLabelGroup)++responseDeleteModel :: DeleteModelResponse -> TestTree+responseDeleteModel =+  res+    "DeleteModelResponse"+    "fixture/DeleteModelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteModel)++responseDescribeDataIngestionJob :: DescribeDataIngestionJobResponse -> TestTree+responseDescribeDataIngestionJob =+  res+    "DescribeDataIngestionJobResponse"+    "fixture/DescribeDataIngestionJobResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeDataIngestionJob)++responseDescribeDataset :: DescribeDatasetResponse -> TestTree+responseDescribeDataset =+  res+    "DescribeDatasetResponse"+    "fixture/DescribeDatasetResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeDataset)++responseDescribeInferenceScheduler :: DescribeInferenceSchedulerResponse -> TestTree+responseDescribeInferenceScheduler =+  res+    "DescribeInferenceSchedulerResponse"+    "fixture/DescribeInferenceSchedulerResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeInferenceScheduler)++responseDescribeLabel :: DescribeLabelResponse -> TestTree+responseDescribeLabel =+  res+    "DescribeLabelResponse"+    "fixture/DescribeLabelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeLabel)++responseDescribeLabelGroup :: DescribeLabelGroupResponse -> TestTree+responseDescribeLabelGroup =+  res+    "DescribeLabelGroupResponse"+    "fixture/DescribeLabelGroupResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeLabelGroup)++responseDescribeModel :: DescribeModelResponse -> TestTree+responseDescribeModel =+  res+    "DescribeModelResponse"+    "fixture/DescribeModelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeModel)++responseListDataIngestionJobs :: ListDataIngestionJobsResponse -> TestTree+responseListDataIngestionJobs =+  res+    "ListDataIngestionJobsResponse"+    "fixture/ListDataIngestionJobsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListDataIngestionJobs)++responseListDatasets :: ListDatasetsResponse -> TestTree+responseListDatasets =+  res+    "ListDatasetsResponse"+    "fixture/ListDatasetsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListDatasets)++responseListInferenceEvents :: ListInferenceEventsResponse -> TestTree+responseListInferenceEvents =+  res+    "ListInferenceEventsResponse"+    "fixture/ListInferenceEventsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListInferenceEvents)++responseListInferenceExecutions :: ListInferenceExecutionsResponse -> TestTree+responseListInferenceExecutions =+  res+    "ListInferenceExecutionsResponse"+    "fixture/ListInferenceExecutionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListInferenceExecutions)++responseListInferenceSchedulers :: ListInferenceSchedulersResponse -> TestTree+responseListInferenceSchedulers =+  res+    "ListInferenceSchedulersResponse"+    "fixture/ListInferenceSchedulersResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListInferenceSchedulers)++responseListLabelGroups :: ListLabelGroupsResponse -> TestTree+responseListLabelGroups =+  res+    "ListLabelGroupsResponse"+    "fixture/ListLabelGroupsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListLabelGroups)++responseListLabels :: ListLabelsResponse -> TestTree+responseListLabels =+  res+    "ListLabelsResponse"+    "fixture/ListLabelsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListLabels)++responseListModels :: ListModelsResponse -> TestTree+responseListModels =+  res+    "ListModelsResponse"+    "fixture/ListModelsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListModels)++responseListSensorStatistics :: ListSensorStatisticsResponse -> TestTree+responseListSensorStatistics =+  res+    "ListSensorStatisticsResponse"+    "fixture/ListSensorStatisticsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListSensorStatistics)++responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource =+  res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTagsForResource)++responseStartDataIngestionJob :: StartDataIngestionJobResponse -> TestTree+responseStartDataIngestionJob =+  res+    "StartDataIngestionJobResponse"+    "fixture/StartDataIngestionJobResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartDataIngestionJob)++responseStartInferenceScheduler :: StartInferenceSchedulerResponse -> TestTree+responseStartInferenceScheduler =+  res+    "StartInferenceSchedulerResponse"+    "fixture/StartInferenceSchedulerResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartInferenceScheduler)++responseStopInferenceScheduler :: StopInferenceSchedulerResponse -> TestTree+responseStopInferenceScheduler =+  res+    "StopInferenceSchedulerResponse"+    "fixture/StopInferenceSchedulerResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StopInferenceScheduler)++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)++responseUpdateInferenceScheduler :: UpdateInferenceSchedulerResponse -> TestTree+responseUpdateInferenceScheduler =+  res+    "UpdateInferenceSchedulerResponse"+    "fixture/UpdateInferenceSchedulerResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateInferenceScheduler)++responseUpdateLabelGroup :: UpdateLabelGroupResponse -> TestTree+responseUpdateLabelGroup =+  res+    "UpdateLabelGroupResponse"+    "fixture/UpdateLabelGroupResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateLabelGroup)
+ test/Test/Amazonka/LookoutEquipment.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.LookoutEquipment+-- 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.LookoutEquipment+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/LookoutEquipment/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.LookoutEquipment.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.LookoutEquipment.Internal where