packages feed

amazonka-migrationhubstrategy (empty) → 2.0

raw patch · 162 files changed

+16487/−0 lines, 162 filesdep +amazonka-coredep +amazonka-migrationhubstrategydep +amazonka-test

Dependencies added: amazonka-core, amazonka-migrationhubstrategy, 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 Migration Hub Strategy Recommendations SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version+ +`2.0` - Derived from API version @2020-02-19@ of the AWS service descriptions, licensed under Apache 2.0.++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-migrationhubstrategy)+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.MigrationHubStrategy](http://hackage.haskell.org/package/amazonka-migrationhubstrategy/docs/Amazonka-MigrationHubStrategy.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-migrationhubstrategy` 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-migrationhubstrategy.cabal view
@@ -0,0 +1,191 @@+cabal-version:      2.2+name:               amazonka-migrationhubstrategy+version:            2.0+synopsis:           Amazon Migration Hub Strategy Recommendations 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-02-19@ 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.MigrationHubStrategy.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.MigrationHubStrategy" 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-migrationhubstrategy++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.MigrationHubStrategy+    Amazonka.MigrationHubStrategy.GetApplicationComponentDetails+    Amazonka.MigrationHubStrategy.GetApplicationComponentStrategies+    Amazonka.MigrationHubStrategy.GetAssessment+    Amazonka.MigrationHubStrategy.GetImportFileTask+    Amazonka.MigrationHubStrategy.GetLatestAssessmentId+    Amazonka.MigrationHubStrategy.GetPortfolioPreferences+    Amazonka.MigrationHubStrategy.GetPortfolioSummary+    Amazonka.MigrationHubStrategy.GetRecommendationReportDetails+    Amazonka.MigrationHubStrategy.GetServerDetails+    Amazonka.MigrationHubStrategy.GetServerStrategies+    Amazonka.MigrationHubStrategy.Lens+    Amazonka.MigrationHubStrategy.ListApplicationComponents+    Amazonka.MigrationHubStrategy.ListCollectors+    Amazonka.MigrationHubStrategy.ListImportFileTask+    Amazonka.MigrationHubStrategy.ListServers+    Amazonka.MigrationHubStrategy.PutPortfolioPreferences+    Amazonka.MigrationHubStrategy.StartAssessment+    Amazonka.MigrationHubStrategy.StartImportFileTask+    Amazonka.MigrationHubStrategy.StartRecommendationReportGeneration+    Amazonka.MigrationHubStrategy.StopAssessment+    Amazonka.MigrationHubStrategy.Types+    Amazonka.MigrationHubStrategy.Types.AntipatternReportStatus+    Amazonka.MigrationHubStrategy.Types.AntipatternSeveritySummary+    Amazonka.MigrationHubStrategy.Types.ApplicationComponentCriteria+    Amazonka.MigrationHubStrategy.Types.ApplicationComponentDetail+    Amazonka.MigrationHubStrategy.Types.ApplicationComponentStatusSummary+    Amazonka.MigrationHubStrategy.Types.ApplicationComponentStrategy+    Amazonka.MigrationHubStrategy.Types.ApplicationComponentSummary+    Amazonka.MigrationHubStrategy.Types.ApplicationMode+    Amazonka.MigrationHubStrategy.Types.ApplicationPreferences+    Amazonka.MigrationHubStrategy.Types.AppType+    Amazonka.MigrationHubStrategy.Types.AppUnitError+    Amazonka.MigrationHubStrategy.Types.AppUnitErrorCategory+    Amazonka.MigrationHubStrategy.Types.AssessmentStatus+    Amazonka.MigrationHubStrategy.Types.AssessmentSummary+    Amazonka.MigrationHubStrategy.Types.AssessmentTarget+    Amazonka.MigrationHubStrategy.Types.AssociatedApplication+    Amazonka.MigrationHubStrategy.Types.AuthType+    Amazonka.MigrationHubStrategy.Types.AwsManagedResources+    Amazonka.MigrationHubStrategy.Types.AwsManagedTargetDestination+    Amazonka.MigrationHubStrategy.Types.BusinessGoals+    Amazonka.MigrationHubStrategy.Types.Collector+    Amazonka.MigrationHubStrategy.Types.CollectorHealth+    Amazonka.MigrationHubStrategy.Types.Condition+    Amazonka.MigrationHubStrategy.Types.ConfigurationSummary+    Amazonka.MigrationHubStrategy.Types.DatabaseConfigDetail+    Amazonka.MigrationHubStrategy.Types.DatabaseManagementPreference+    Amazonka.MigrationHubStrategy.Types.DatabaseMigrationPreference+    Amazonka.MigrationHubStrategy.Types.DatabasePreferences+    Amazonka.MigrationHubStrategy.Types.DataCollectionDetails+    Amazonka.MigrationHubStrategy.Types.DataSourceType+    Amazonka.MigrationHubStrategy.Types.Group+    Amazonka.MigrationHubStrategy.Types.GroupName+    Amazonka.MigrationHubStrategy.Types.Heterogeneous+    Amazonka.MigrationHubStrategy.Types.HeterogeneousTargetDatabaseEngine+    Amazonka.MigrationHubStrategy.Types.Homogeneous+    Amazonka.MigrationHubStrategy.Types.HomogeneousTargetDatabaseEngine+    Amazonka.MigrationHubStrategy.Types.ImportFileTaskInformation+    Amazonka.MigrationHubStrategy.Types.ImportFileTaskStatus+    Amazonka.MigrationHubStrategy.Types.InclusionStatus+    Amazonka.MigrationHubStrategy.Types.IPAddressBasedRemoteInfo+    Amazonka.MigrationHubStrategy.Types.ManagementPreference+    Amazonka.MigrationHubStrategy.Types.NetworkInfo+    Amazonka.MigrationHubStrategy.Types.NoDatabaseMigrationPreference+    Amazonka.MigrationHubStrategy.Types.NoManagementPreference+    Amazonka.MigrationHubStrategy.Types.NoPreferenceTargetDestination+    Amazonka.MigrationHubStrategy.Types.OSInfo+    Amazonka.MigrationHubStrategy.Types.OSType+    Amazonka.MigrationHubStrategy.Types.OutputFormat+    Amazonka.MigrationHubStrategy.Types.PipelineInfo+    Amazonka.MigrationHubStrategy.Types.PipelineType+    Amazonka.MigrationHubStrategy.Types.PrioritizeBusinessGoals+    Amazonka.MigrationHubStrategy.Types.RecommendationReportDetails+    Amazonka.MigrationHubStrategy.Types.RecommendationReportStatus+    Amazonka.MigrationHubStrategy.Types.RecommendationSet+    Amazonka.MigrationHubStrategy.Types.RemoteSourceCodeAnalysisServerInfo+    Amazonka.MigrationHubStrategy.Types.ResourceSubType+    Amazonka.MigrationHubStrategy.Types.RuntimeAnalysisStatus+    Amazonka.MigrationHubStrategy.Types.RunTimeAssessmentStatus+    Amazonka.MigrationHubStrategy.Types.S3Object+    Amazonka.MigrationHubStrategy.Types.SelfManageResources+    Amazonka.MigrationHubStrategy.Types.SelfManageTargetDestination+    Amazonka.MigrationHubStrategy.Types.ServerCriteria+    Amazonka.MigrationHubStrategy.Types.ServerDetail+    Amazonka.MigrationHubStrategy.Types.ServerError+    Amazonka.MigrationHubStrategy.Types.ServerErrorCategory+    Amazonka.MigrationHubStrategy.Types.ServerOsType+    Amazonka.MigrationHubStrategy.Types.ServerStatusSummary+    Amazonka.MigrationHubStrategy.Types.ServerStrategy+    Amazonka.MigrationHubStrategy.Types.ServerSummary+    Amazonka.MigrationHubStrategy.Types.Severity+    Amazonka.MigrationHubStrategy.Types.SortOrder+    Amazonka.MigrationHubStrategy.Types.SourceCode+    Amazonka.MigrationHubStrategy.Types.SourceCodeRepository+    Amazonka.MigrationHubStrategy.Types.SrcCodeOrDbAnalysisStatus+    Amazonka.MigrationHubStrategy.Types.Strategy+    Amazonka.MigrationHubStrategy.Types.StrategyOption+    Amazonka.MigrationHubStrategy.Types.StrategyRecommendation+    Amazonka.MigrationHubStrategy.Types.StrategySummary+    Amazonka.MigrationHubStrategy.Types.SystemInfo+    Amazonka.MigrationHubStrategy.Types.TargetDatabaseEngine+    Amazonka.MigrationHubStrategy.Types.TargetDestination+    Amazonka.MigrationHubStrategy.Types.TransformationTool+    Amazonka.MigrationHubStrategy.Types.TransformationToolName+    Amazonka.MigrationHubStrategy.Types.VcenterBasedRemoteInfo+    Amazonka.MigrationHubStrategy.Types.VersionControl+    Amazonka.MigrationHubStrategy.Types.VersionControlInfo+    Amazonka.MigrationHubStrategy.Types.VersionControlType+    Amazonka.MigrationHubStrategy.UpdateApplicationComponentConfig+    Amazonka.MigrationHubStrategy.UpdateServerConfig+    Amazonka.MigrationHubStrategy.Waiters++  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5++test-suite amazonka-migrationhubstrategy-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.MigrationHubStrategy+    Test.Amazonka.MigrationHubStrategy+    Test.Amazonka.MigrationHubStrategy.Internal++  build-depends:+    , amazonka-core                  >=2.0 && <2.1+    , amazonka-migrationhubstrategy+    , amazonka-test                  >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers
+ fixture/GetApplicationComponentDetails.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetApplicationComponentDetailsResponse.proto view
+ fixture/GetApplicationComponentStrategies.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetApplicationComponentStrategiesResponse.proto view
+ fixture/GetAssessment.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetAssessmentResponse.proto view
+ fixture/GetImportFileTask.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetImportFileTaskResponse.proto view
+ fixture/GetLatestAssessmentId.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetLatestAssessmentIdResponse.proto view
+ fixture/GetPortfolioPreferences.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetPortfolioPreferencesResponse.proto view
+ fixture/GetPortfolioSummary.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetPortfolioSummaryResponse.proto view
+ fixture/GetRecommendationReportDetails.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetRecommendationReportDetailsResponse.proto view
+ fixture/GetServerDetails.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetServerDetailsResponse.proto view
+ fixture/GetServerStrategies.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/GetServerStrategiesResponse.proto view
+ fixture/ListApplicationComponents.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/ListApplicationComponentsResponse.proto view
+ fixture/ListCollectors.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/ListCollectorsResponse.proto view
+ fixture/ListImportFileTask.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/ListImportFileTaskResponse.proto view
+ fixture/ListServers.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/ListServersResponse.proto view
+ fixture/PutPortfolioPreferences.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/PutPortfolioPreferencesResponse.proto view
+ fixture/StartAssessment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/StartAssessmentResponse.proto view
+ fixture/StartImportFileTask.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/StartImportFileTaskResponse.proto view
+ fixture/StartRecommendationReportGeneration.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/StartRecommendationReportGenerationResponse.proto view
+ fixture/StopAssessment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/StopAssessmentResponse.proto view
+ fixture/UpdateApplicationComponentConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/UpdateApplicationComponentConfigResponse.proto view
+ fixture/UpdateServerConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/migrationhub-strategy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  migrationhub-strategy.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/UpdateServerConfigResponse.proto view
+ gen/Amazonka/MigrationHubStrategy.hs view
@@ -0,0 +1,546 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.MigrationHubStrategy+-- 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-02-19@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Migration Hub Strategy Recommendations+--+-- >  <p>This API reference provides descriptions, syntax, and other details about each of the actions and data types for Migration Hub Strategy Recommendations (Strategy Recommendations). The topic for each action shows the API request parameters and the response. Alternatively, you can use one of the AWS SDKs to access an API that is tailored to the programming language or platform that you're using. For more information, see <a href="http://aws.amazon.com/tools/#SDKs">AWS SDKs</a>.</p>+module Amazonka.MigrationHubStrategy+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** ConflictException+    _ConflictException,++    -- ** DependencyException+    _DependencyException,++    -- ** InternalServerException+    _InternalServerException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ServiceLinkedRoleLockClientException+    _ServiceLinkedRoleLockClientException,++    -- ** ServiceQuotaExceededException+    _ServiceQuotaExceededException,++    -- ** ThrottlingException+    _ThrottlingException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** GetApplicationComponentDetails+    GetApplicationComponentDetails (GetApplicationComponentDetails'),+    newGetApplicationComponentDetails,+    GetApplicationComponentDetailsResponse (GetApplicationComponentDetailsResponse'),+    newGetApplicationComponentDetailsResponse,++    -- ** GetApplicationComponentStrategies+    GetApplicationComponentStrategies (GetApplicationComponentStrategies'),+    newGetApplicationComponentStrategies,+    GetApplicationComponentStrategiesResponse (GetApplicationComponentStrategiesResponse'),+    newGetApplicationComponentStrategiesResponse,++    -- ** GetAssessment+    GetAssessment (GetAssessment'),+    newGetAssessment,+    GetAssessmentResponse (GetAssessmentResponse'),+    newGetAssessmentResponse,++    -- ** GetImportFileTask+    GetImportFileTask (GetImportFileTask'),+    newGetImportFileTask,+    GetImportFileTaskResponse (GetImportFileTaskResponse'),+    newGetImportFileTaskResponse,++    -- ** GetLatestAssessmentId+    GetLatestAssessmentId (GetLatestAssessmentId'),+    newGetLatestAssessmentId,+    GetLatestAssessmentIdResponse (GetLatestAssessmentIdResponse'),+    newGetLatestAssessmentIdResponse,++    -- ** GetPortfolioPreferences+    GetPortfolioPreferences (GetPortfolioPreferences'),+    newGetPortfolioPreferences,+    GetPortfolioPreferencesResponse (GetPortfolioPreferencesResponse'),+    newGetPortfolioPreferencesResponse,++    -- ** GetPortfolioSummary+    GetPortfolioSummary (GetPortfolioSummary'),+    newGetPortfolioSummary,+    GetPortfolioSummaryResponse (GetPortfolioSummaryResponse'),+    newGetPortfolioSummaryResponse,++    -- ** GetRecommendationReportDetails+    GetRecommendationReportDetails (GetRecommendationReportDetails'),+    newGetRecommendationReportDetails,+    GetRecommendationReportDetailsResponse (GetRecommendationReportDetailsResponse'),+    newGetRecommendationReportDetailsResponse,++    -- ** GetServerDetails (Paginated)+    GetServerDetails (GetServerDetails'),+    newGetServerDetails,+    GetServerDetailsResponse (GetServerDetailsResponse'),+    newGetServerDetailsResponse,++    -- ** GetServerStrategies+    GetServerStrategies (GetServerStrategies'),+    newGetServerStrategies,+    GetServerStrategiesResponse (GetServerStrategiesResponse'),+    newGetServerStrategiesResponse,++    -- ** ListApplicationComponents (Paginated)+    ListApplicationComponents (ListApplicationComponents'),+    newListApplicationComponents,+    ListApplicationComponentsResponse (ListApplicationComponentsResponse'),+    newListApplicationComponentsResponse,++    -- ** ListCollectors (Paginated)+    ListCollectors (ListCollectors'),+    newListCollectors,+    ListCollectorsResponse (ListCollectorsResponse'),+    newListCollectorsResponse,++    -- ** ListImportFileTask (Paginated)+    ListImportFileTask (ListImportFileTask'),+    newListImportFileTask,+    ListImportFileTaskResponse (ListImportFileTaskResponse'),+    newListImportFileTaskResponse,++    -- ** ListServers (Paginated)+    ListServers (ListServers'),+    newListServers,+    ListServersResponse (ListServersResponse'),+    newListServersResponse,++    -- ** PutPortfolioPreferences+    PutPortfolioPreferences (PutPortfolioPreferences'),+    newPutPortfolioPreferences,+    PutPortfolioPreferencesResponse (PutPortfolioPreferencesResponse'),+    newPutPortfolioPreferencesResponse,++    -- ** StartAssessment+    StartAssessment (StartAssessment'),+    newStartAssessment,+    StartAssessmentResponse (StartAssessmentResponse'),+    newStartAssessmentResponse,++    -- ** StartImportFileTask+    StartImportFileTask (StartImportFileTask'),+    newStartImportFileTask,+    StartImportFileTaskResponse (StartImportFileTaskResponse'),+    newStartImportFileTaskResponse,++    -- ** StartRecommendationReportGeneration+    StartRecommendationReportGeneration (StartRecommendationReportGeneration'),+    newStartRecommendationReportGeneration,+    StartRecommendationReportGenerationResponse (StartRecommendationReportGenerationResponse'),+    newStartRecommendationReportGenerationResponse,++    -- ** StopAssessment+    StopAssessment (StopAssessment'),+    newStopAssessment,+    StopAssessmentResponse (StopAssessmentResponse'),+    newStopAssessmentResponse,++    -- ** UpdateApplicationComponentConfig+    UpdateApplicationComponentConfig (UpdateApplicationComponentConfig'),+    newUpdateApplicationComponentConfig,+    UpdateApplicationComponentConfigResponse (UpdateApplicationComponentConfigResponse'),+    newUpdateApplicationComponentConfigResponse,++    -- ** UpdateServerConfig+    UpdateServerConfig (UpdateServerConfig'),+    newUpdateServerConfig,+    UpdateServerConfigResponse (UpdateServerConfigResponse'),+    newUpdateServerConfigResponse,++    -- * Types++    -- ** AntipatternReportStatus+    AntipatternReportStatus (..),++    -- ** AppType+    AppType (..),++    -- ** AppUnitErrorCategory+    AppUnitErrorCategory (..),++    -- ** ApplicationComponentCriteria+    ApplicationComponentCriteria (..),++    -- ** ApplicationMode+    ApplicationMode (..),++    -- ** AssessmentStatus+    AssessmentStatus (..),++    -- ** AuthType+    AuthType (..),++    -- ** AwsManagedTargetDestination+    AwsManagedTargetDestination (..),++    -- ** CollectorHealth+    CollectorHealth (..),++    -- ** Condition+    Condition (..),++    -- ** DataSourceType+    DataSourceType (..),++    -- ** DatabaseManagementPreference+    DatabaseManagementPreference (..),++    -- ** GroupName+    GroupName (..),++    -- ** HeterogeneousTargetDatabaseEngine+    HeterogeneousTargetDatabaseEngine (..),++    -- ** HomogeneousTargetDatabaseEngine+    HomogeneousTargetDatabaseEngine (..),++    -- ** ImportFileTaskStatus+    ImportFileTaskStatus (..),++    -- ** InclusionStatus+    InclusionStatus (..),++    -- ** NoPreferenceTargetDestination+    NoPreferenceTargetDestination (..),++    -- ** OSType+    OSType (..),++    -- ** OutputFormat+    OutputFormat (..),++    -- ** PipelineType+    PipelineType (..),++    -- ** RecommendationReportStatus+    RecommendationReportStatus (..),++    -- ** ResourceSubType+    ResourceSubType (..),++    -- ** RunTimeAssessmentStatus+    RunTimeAssessmentStatus (..),++    -- ** RuntimeAnalysisStatus+    RuntimeAnalysisStatus (..),++    -- ** SelfManageTargetDestination+    SelfManageTargetDestination (..),++    -- ** ServerCriteria+    ServerCriteria (..),++    -- ** ServerErrorCategory+    ServerErrorCategory (..),++    -- ** ServerOsType+    ServerOsType (..),++    -- ** Severity+    Severity (..),++    -- ** SortOrder+    SortOrder (..),++    -- ** SrcCodeOrDbAnalysisStatus+    SrcCodeOrDbAnalysisStatus (..),++    -- ** Strategy+    Strategy (..),++    -- ** StrategyRecommendation+    StrategyRecommendation (..),++    -- ** TargetDatabaseEngine+    TargetDatabaseEngine (..),++    -- ** TargetDestination+    TargetDestination (..),++    -- ** TransformationToolName+    TransformationToolName (..),++    -- ** VersionControl+    VersionControl (..),++    -- ** VersionControlType+    VersionControlType (..),++    -- ** AntipatternSeveritySummary+    AntipatternSeveritySummary (AntipatternSeveritySummary'),+    newAntipatternSeveritySummary,++    -- ** AppUnitError+    AppUnitError (AppUnitError'),+    newAppUnitError,++    -- ** ApplicationComponentDetail+    ApplicationComponentDetail (ApplicationComponentDetail'),+    newApplicationComponentDetail,++    -- ** ApplicationComponentStatusSummary+    ApplicationComponentStatusSummary (ApplicationComponentStatusSummary'),+    newApplicationComponentStatusSummary,++    -- ** ApplicationComponentStrategy+    ApplicationComponentStrategy (ApplicationComponentStrategy'),+    newApplicationComponentStrategy,++    -- ** ApplicationComponentSummary+    ApplicationComponentSummary (ApplicationComponentSummary'),+    newApplicationComponentSummary,++    -- ** ApplicationPreferences+    ApplicationPreferences (ApplicationPreferences'),+    newApplicationPreferences,++    -- ** AssessmentSummary+    AssessmentSummary (AssessmentSummary'),+    newAssessmentSummary,++    -- ** AssessmentTarget+    AssessmentTarget (AssessmentTarget'),+    newAssessmentTarget,++    -- ** AssociatedApplication+    AssociatedApplication (AssociatedApplication'),+    newAssociatedApplication,++    -- ** AwsManagedResources+    AwsManagedResources (AwsManagedResources'),+    newAwsManagedResources,++    -- ** BusinessGoals+    BusinessGoals (BusinessGoals'),+    newBusinessGoals,++    -- ** Collector+    Collector (Collector'),+    newCollector,++    -- ** ConfigurationSummary+    ConfigurationSummary (ConfigurationSummary'),+    newConfigurationSummary,++    -- ** DataCollectionDetails+    DataCollectionDetails (DataCollectionDetails'),+    newDataCollectionDetails,++    -- ** DatabaseConfigDetail+    DatabaseConfigDetail (DatabaseConfigDetail'),+    newDatabaseConfigDetail,++    -- ** DatabaseMigrationPreference+    DatabaseMigrationPreference (DatabaseMigrationPreference'),+    newDatabaseMigrationPreference,++    -- ** DatabasePreferences+    DatabasePreferences (DatabasePreferences'),+    newDatabasePreferences,++    -- ** Group+    Group (Group'),+    newGroup,++    -- ** Heterogeneous+    Heterogeneous (Heterogeneous'),+    newHeterogeneous,++    -- ** Homogeneous+    Homogeneous (Homogeneous'),+    newHomogeneous,++    -- ** IPAddressBasedRemoteInfo+    IPAddressBasedRemoteInfo (IPAddressBasedRemoteInfo'),+    newIPAddressBasedRemoteInfo,++    -- ** ImportFileTaskInformation+    ImportFileTaskInformation (ImportFileTaskInformation'),+    newImportFileTaskInformation,++    -- ** ManagementPreference+    ManagementPreference (ManagementPreference'),+    newManagementPreference,++    -- ** NetworkInfo+    NetworkInfo (NetworkInfo'),+    newNetworkInfo,++    -- ** NoDatabaseMigrationPreference+    NoDatabaseMigrationPreference (NoDatabaseMigrationPreference'),+    newNoDatabaseMigrationPreference,++    -- ** NoManagementPreference+    NoManagementPreference (NoManagementPreference'),+    newNoManagementPreference,++    -- ** OSInfo+    OSInfo (OSInfo'),+    newOSInfo,++    -- ** PipelineInfo+    PipelineInfo (PipelineInfo'),+    newPipelineInfo,++    -- ** PrioritizeBusinessGoals+    PrioritizeBusinessGoals (PrioritizeBusinessGoals'),+    newPrioritizeBusinessGoals,++    -- ** RecommendationReportDetails+    RecommendationReportDetails (RecommendationReportDetails'),+    newRecommendationReportDetails,++    -- ** RecommendationSet+    RecommendationSet (RecommendationSet'),+    newRecommendationSet,++    -- ** RemoteSourceCodeAnalysisServerInfo+    RemoteSourceCodeAnalysisServerInfo (RemoteSourceCodeAnalysisServerInfo'),+    newRemoteSourceCodeAnalysisServerInfo,++    -- ** S3Object+    S3Object (S3Object'),+    newS3Object,++    -- ** SelfManageResources+    SelfManageResources (SelfManageResources'),+    newSelfManageResources,++    -- ** ServerDetail+    ServerDetail (ServerDetail'),+    newServerDetail,++    -- ** ServerError+    ServerError (ServerError'),+    newServerError,++    -- ** ServerStatusSummary+    ServerStatusSummary (ServerStatusSummary'),+    newServerStatusSummary,++    -- ** ServerStrategy+    ServerStrategy (ServerStrategy'),+    newServerStrategy,++    -- ** ServerSummary+    ServerSummary (ServerSummary'),+    newServerSummary,++    -- ** SourceCode+    SourceCode (SourceCode'),+    newSourceCode,++    -- ** SourceCodeRepository+    SourceCodeRepository (SourceCodeRepository'),+    newSourceCodeRepository,++    -- ** StrategyOption+    StrategyOption (StrategyOption'),+    newStrategyOption,++    -- ** StrategySummary+    StrategySummary (StrategySummary'),+    newStrategySummary,++    -- ** SystemInfo+    SystemInfo (SystemInfo'),+    newSystemInfo,++    -- ** TransformationTool+    TransformationTool (TransformationTool'),+    newTransformationTool,++    -- ** VcenterBasedRemoteInfo+    VcenterBasedRemoteInfo (VcenterBasedRemoteInfo'),+    newVcenterBasedRemoteInfo,++    -- ** VersionControlInfo+    VersionControlInfo (VersionControlInfo'),+    newVersionControlInfo,+  )+where++import Amazonka.MigrationHubStrategy.GetApplicationComponentDetails+import Amazonka.MigrationHubStrategy.GetApplicationComponentStrategies+import Amazonka.MigrationHubStrategy.GetAssessment+import Amazonka.MigrationHubStrategy.GetImportFileTask+import Amazonka.MigrationHubStrategy.GetLatestAssessmentId+import Amazonka.MigrationHubStrategy.GetPortfolioPreferences+import Amazonka.MigrationHubStrategy.GetPortfolioSummary+import Amazonka.MigrationHubStrategy.GetRecommendationReportDetails+import Amazonka.MigrationHubStrategy.GetServerDetails+import Amazonka.MigrationHubStrategy.GetServerStrategies+import Amazonka.MigrationHubStrategy.Lens+import Amazonka.MigrationHubStrategy.ListApplicationComponents+import Amazonka.MigrationHubStrategy.ListCollectors+import Amazonka.MigrationHubStrategy.ListImportFileTask+import Amazonka.MigrationHubStrategy.ListServers+import Amazonka.MigrationHubStrategy.PutPortfolioPreferences+import Amazonka.MigrationHubStrategy.StartAssessment+import Amazonka.MigrationHubStrategy.StartImportFileTask+import Amazonka.MigrationHubStrategy.StartRecommendationReportGeneration+import Amazonka.MigrationHubStrategy.StopAssessment+import Amazonka.MigrationHubStrategy.Types+import Amazonka.MigrationHubStrategy.UpdateApplicationComponentConfig+import Amazonka.MigrationHubStrategy.UpdateServerConfig+import Amazonka.MigrationHubStrategy.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 'MigrationHubStrategy'.++-- $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/MigrationHubStrategy/GetApplicationComponentDetails.hs view
@@ -0,0 +1,241 @@+{-# 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.MigrationHubStrategy.GetApplicationComponentDetails+-- 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 details about an application component.+module Amazonka.MigrationHubStrategy.GetApplicationComponentDetails+  ( -- * Creating a Request+    GetApplicationComponentDetails (..),+    newGetApplicationComponentDetails,++    -- * Request Lenses+    getApplicationComponentDetails_applicationComponentId,++    -- * Destructuring the Response+    GetApplicationComponentDetailsResponse (..),+    newGetApplicationComponentDetailsResponse,++    -- * Response Lenses+    getApplicationComponentDetailsResponse_applicationComponentDetail,+    getApplicationComponentDetailsResponse_associatedApplications,+    getApplicationComponentDetailsResponse_associatedServerIds,+    getApplicationComponentDetailsResponse_moreApplicationResource,+    getApplicationComponentDetailsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetApplicationComponentDetails' smart constructor.+data GetApplicationComponentDetails = GetApplicationComponentDetails'+  { -- | The ID of the application component. The ID is unique within an AWS+    -- account.+    applicationComponentId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetApplicationComponentDetails' 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:+--+-- 'applicationComponentId', 'getApplicationComponentDetails_applicationComponentId' - The ID of the application component. The ID is unique within an AWS+-- account.+newGetApplicationComponentDetails ::+  -- | 'applicationComponentId'+  Prelude.Text ->+  GetApplicationComponentDetails+newGetApplicationComponentDetails+  pApplicationComponentId_ =+    GetApplicationComponentDetails'+      { applicationComponentId =+          pApplicationComponentId_+      }++-- | The ID of the application component. The ID is unique within an AWS+-- account.+getApplicationComponentDetails_applicationComponentId :: Lens.Lens' GetApplicationComponentDetails Prelude.Text+getApplicationComponentDetails_applicationComponentId = Lens.lens (\GetApplicationComponentDetails' {applicationComponentId} -> applicationComponentId) (\s@GetApplicationComponentDetails' {} a -> s {applicationComponentId = a} :: GetApplicationComponentDetails)++instance+  Core.AWSRequest+    GetApplicationComponentDetails+  where+  type+    AWSResponse GetApplicationComponentDetails =+      GetApplicationComponentDetailsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetApplicationComponentDetailsResponse'+            Prelude.<$> (x Data..?> "applicationComponentDetail")+            Prelude.<*> ( x+                            Data..?> "associatedApplications"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..?> "associatedServerIds"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "moreApplicationResource")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    GetApplicationComponentDetails+  where+  hashWithSalt+    _salt+    GetApplicationComponentDetails' {..} =+      _salt `Prelude.hashWithSalt` applicationComponentId++instance+  Prelude.NFData+    GetApplicationComponentDetails+  where+  rnf GetApplicationComponentDetails' {..} =+    Prelude.rnf applicationComponentId++instance+  Data.ToHeaders+    GetApplicationComponentDetails+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetApplicationComponentDetails where+  toPath GetApplicationComponentDetails' {..} =+    Prelude.mconcat+      [ "/get-applicationcomponent-details/",+        Data.toBS applicationComponentId+      ]++instance Data.ToQuery GetApplicationComponentDetails where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetApplicationComponentDetailsResponse' smart constructor.+data GetApplicationComponentDetailsResponse = GetApplicationComponentDetailsResponse'+  { -- | Detailed information about an application component.+    applicationComponentDetail :: Prelude.Maybe ApplicationComponentDetail,+    -- | The associated application group as defined in AWS Application Discovery+    -- Service.+    associatedApplications :: Prelude.Maybe [AssociatedApplication],+    -- | A list of the IDs of the servers on which the application component is+    -- running.+    associatedServerIds :: Prelude.Maybe [Prelude.Text],+    -- | Set to true if the application component belongs to more than one+    -- application group.+    moreApplicationResource :: Prelude.Maybe Prelude.Bool,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetApplicationComponentDetailsResponse' 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:+--+-- 'applicationComponentDetail', 'getApplicationComponentDetailsResponse_applicationComponentDetail' - Detailed information about an application component.+--+-- 'associatedApplications', 'getApplicationComponentDetailsResponse_associatedApplications' - The associated application group as defined in AWS Application Discovery+-- Service.+--+-- 'associatedServerIds', 'getApplicationComponentDetailsResponse_associatedServerIds' - A list of the IDs of the servers on which the application component is+-- running.+--+-- 'moreApplicationResource', 'getApplicationComponentDetailsResponse_moreApplicationResource' - Set to true if the application component belongs to more than one+-- application group.+--+-- 'httpStatus', 'getApplicationComponentDetailsResponse_httpStatus' - The response's http status code.+newGetApplicationComponentDetailsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetApplicationComponentDetailsResponse+newGetApplicationComponentDetailsResponse+  pHttpStatus_ =+    GetApplicationComponentDetailsResponse'+      { applicationComponentDetail =+          Prelude.Nothing,+        associatedApplications =+          Prelude.Nothing,+        associatedServerIds =+          Prelude.Nothing,+        moreApplicationResource =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | Detailed information about an application component.+getApplicationComponentDetailsResponse_applicationComponentDetail :: Lens.Lens' GetApplicationComponentDetailsResponse (Prelude.Maybe ApplicationComponentDetail)+getApplicationComponentDetailsResponse_applicationComponentDetail = Lens.lens (\GetApplicationComponentDetailsResponse' {applicationComponentDetail} -> applicationComponentDetail) (\s@GetApplicationComponentDetailsResponse' {} a -> s {applicationComponentDetail = a} :: GetApplicationComponentDetailsResponse)++-- | The associated application group as defined in AWS Application Discovery+-- Service.+getApplicationComponentDetailsResponse_associatedApplications :: Lens.Lens' GetApplicationComponentDetailsResponse (Prelude.Maybe [AssociatedApplication])+getApplicationComponentDetailsResponse_associatedApplications = Lens.lens (\GetApplicationComponentDetailsResponse' {associatedApplications} -> associatedApplications) (\s@GetApplicationComponentDetailsResponse' {} a -> s {associatedApplications = a} :: GetApplicationComponentDetailsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A list of the IDs of the servers on which the application component is+-- running.+getApplicationComponentDetailsResponse_associatedServerIds :: Lens.Lens' GetApplicationComponentDetailsResponse (Prelude.Maybe [Prelude.Text])+getApplicationComponentDetailsResponse_associatedServerIds = Lens.lens (\GetApplicationComponentDetailsResponse' {associatedServerIds} -> associatedServerIds) (\s@GetApplicationComponentDetailsResponse' {} a -> s {associatedServerIds = a} :: GetApplicationComponentDetailsResponse) Prelude.. Lens.mapping Lens.coerced++-- | Set to true if the application component belongs to more than one+-- application group.+getApplicationComponentDetailsResponse_moreApplicationResource :: Lens.Lens' GetApplicationComponentDetailsResponse (Prelude.Maybe Prelude.Bool)+getApplicationComponentDetailsResponse_moreApplicationResource = Lens.lens (\GetApplicationComponentDetailsResponse' {moreApplicationResource} -> moreApplicationResource) (\s@GetApplicationComponentDetailsResponse' {} a -> s {moreApplicationResource = a} :: GetApplicationComponentDetailsResponse)++-- | The response's http status code.+getApplicationComponentDetailsResponse_httpStatus :: Lens.Lens' GetApplicationComponentDetailsResponse Prelude.Int+getApplicationComponentDetailsResponse_httpStatus = Lens.lens (\GetApplicationComponentDetailsResponse' {httpStatus} -> httpStatus) (\s@GetApplicationComponentDetailsResponse' {} a -> s {httpStatus = a} :: GetApplicationComponentDetailsResponse)++instance+  Prelude.NFData+    GetApplicationComponentDetailsResponse+  where+  rnf GetApplicationComponentDetailsResponse' {..} =+    Prelude.rnf applicationComponentDetail+      `Prelude.seq` Prelude.rnf associatedApplications+      `Prelude.seq` Prelude.rnf associatedServerIds+      `Prelude.seq` Prelude.rnf moreApplicationResource+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetApplicationComponentStrategies.hs view
@@ -0,0 +1,197 @@+{-# 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.MigrationHubStrategy.GetApplicationComponentStrategies+-- 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 the recommended strategies and tools for an+-- application component running on a server.+module Amazonka.MigrationHubStrategy.GetApplicationComponentStrategies+  ( -- * Creating a Request+    GetApplicationComponentStrategies (..),+    newGetApplicationComponentStrategies,++    -- * Request Lenses+    getApplicationComponentStrategies_applicationComponentId,++    -- * Destructuring the Response+    GetApplicationComponentStrategiesResponse (..),+    newGetApplicationComponentStrategiesResponse,++    -- * Response Lenses+    getApplicationComponentStrategiesResponse_applicationComponentStrategies,+    getApplicationComponentStrategiesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetApplicationComponentStrategies' smart constructor.+data GetApplicationComponentStrategies = GetApplicationComponentStrategies'+  { -- | The ID of the application component. The ID is unique within an AWS+    -- account.+    applicationComponentId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetApplicationComponentStrategies' 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:+--+-- 'applicationComponentId', 'getApplicationComponentStrategies_applicationComponentId' - The ID of the application component. The ID is unique within an AWS+-- account.+newGetApplicationComponentStrategies ::+  -- | 'applicationComponentId'+  Prelude.Text ->+  GetApplicationComponentStrategies+newGetApplicationComponentStrategies+  pApplicationComponentId_ =+    GetApplicationComponentStrategies'+      { applicationComponentId =+          pApplicationComponentId_+      }++-- | The ID of the application component. The ID is unique within an AWS+-- account.+getApplicationComponentStrategies_applicationComponentId :: Lens.Lens' GetApplicationComponentStrategies Prelude.Text+getApplicationComponentStrategies_applicationComponentId = Lens.lens (\GetApplicationComponentStrategies' {applicationComponentId} -> applicationComponentId) (\s@GetApplicationComponentStrategies' {} a -> s {applicationComponentId = a} :: GetApplicationComponentStrategies)++instance+  Core.AWSRequest+    GetApplicationComponentStrategies+  where+  type+    AWSResponse GetApplicationComponentStrategies =+      GetApplicationComponentStrategiesResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetApplicationComponentStrategiesResponse'+            Prelude.<$> ( x+                            Data..?> "applicationComponentStrategies"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    GetApplicationComponentStrategies+  where+  hashWithSalt+    _salt+    GetApplicationComponentStrategies' {..} =+      _salt `Prelude.hashWithSalt` applicationComponentId++instance+  Prelude.NFData+    GetApplicationComponentStrategies+  where+  rnf GetApplicationComponentStrategies' {..} =+    Prelude.rnf applicationComponentId++instance+  Data.ToHeaders+    GetApplicationComponentStrategies+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToPath+    GetApplicationComponentStrategies+  where+  toPath GetApplicationComponentStrategies' {..} =+    Prelude.mconcat+      [ "/get-applicationcomponent-strategies/",+        Data.toBS applicationComponentId+      ]++instance+  Data.ToQuery+    GetApplicationComponentStrategies+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetApplicationComponentStrategiesResponse' smart constructor.+data GetApplicationComponentStrategiesResponse = GetApplicationComponentStrategiesResponse'+  { -- | A list of application component strategy recommendations.+    applicationComponentStrategies :: Prelude.Maybe [ApplicationComponentStrategy],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetApplicationComponentStrategiesResponse' 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:+--+-- 'applicationComponentStrategies', 'getApplicationComponentStrategiesResponse_applicationComponentStrategies' - A list of application component strategy recommendations.+--+-- 'httpStatus', 'getApplicationComponentStrategiesResponse_httpStatus' - The response's http status code.+newGetApplicationComponentStrategiesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetApplicationComponentStrategiesResponse+newGetApplicationComponentStrategiesResponse+  pHttpStatus_ =+    GetApplicationComponentStrategiesResponse'+      { applicationComponentStrategies =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | A list of application component strategy recommendations.+getApplicationComponentStrategiesResponse_applicationComponentStrategies :: Lens.Lens' GetApplicationComponentStrategiesResponse (Prelude.Maybe [ApplicationComponentStrategy])+getApplicationComponentStrategiesResponse_applicationComponentStrategies = Lens.lens (\GetApplicationComponentStrategiesResponse' {applicationComponentStrategies} -> applicationComponentStrategies) (\s@GetApplicationComponentStrategiesResponse' {} a -> s {applicationComponentStrategies = a} :: GetApplicationComponentStrategiesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getApplicationComponentStrategiesResponse_httpStatus :: Lens.Lens' GetApplicationComponentStrategiesResponse Prelude.Int+getApplicationComponentStrategiesResponse_httpStatus = Lens.lens (\GetApplicationComponentStrategiesResponse' {httpStatus} -> httpStatus) (\s@GetApplicationComponentStrategiesResponse' {} a -> s {httpStatus = a} :: GetApplicationComponentStrategiesResponse)++instance+  Prelude.NFData+    GetApplicationComponentStrategiesResponse+  where+  rnf GetApplicationComponentStrategiesResponse' {..} =+    Prelude.rnf applicationComponentStrategies+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetAssessment.hs view
@@ -0,0 +1,184 @@+{-# 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.MigrationHubStrategy.GetAssessment+-- 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 the status of an on-going assessment.+module Amazonka.MigrationHubStrategy.GetAssessment+  ( -- * Creating a Request+    GetAssessment (..),+    newGetAssessment,++    -- * Request Lenses+    getAssessment_id,++    -- * Destructuring the Response+    GetAssessmentResponse (..),+    newGetAssessmentResponse,++    -- * Response Lenses+    getAssessmentResponse_assessmentTargets,+    getAssessmentResponse_dataCollectionDetails,+    getAssessmentResponse_id,+    getAssessmentResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetAssessment' smart constructor.+data GetAssessment = GetAssessment'+  { -- | The @assessmentid@ returned by StartAssessment.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetAssessment' 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:+--+-- 'id', 'getAssessment_id' - The @assessmentid@ returned by StartAssessment.+newGetAssessment ::+  -- | 'id'+  Prelude.Text ->+  GetAssessment+newGetAssessment pId_ = GetAssessment' {id = pId_}++-- | The @assessmentid@ returned by StartAssessment.+getAssessment_id :: Lens.Lens' GetAssessment Prelude.Text+getAssessment_id = Lens.lens (\GetAssessment' {id} -> id) (\s@GetAssessment' {} a -> s {id = a} :: GetAssessment)++instance Core.AWSRequest GetAssessment where+  type+    AWSResponse GetAssessment =+      GetAssessmentResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetAssessmentResponse'+            Prelude.<$> ( x+                            Data..?> "assessmentTargets"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "dataCollectionDetails")+            Prelude.<*> (x Data..?> "id")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetAssessment where+  hashWithSalt _salt GetAssessment' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData GetAssessment where+  rnf GetAssessment' {..} = Prelude.rnf id++instance Data.ToHeaders GetAssessment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetAssessment where+  toPath GetAssessment' {..} =+    Prelude.mconcat ["/get-assessment/", Data.toBS id]++instance Data.ToQuery GetAssessment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetAssessmentResponse' smart constructor.+data GetAssessmentResponse = GetAssessmentResponse'+  { -- | List of criteria for assessment.+    assessmentTargets :: Prelude.Maybe [AssessmentTarget],+    -- | Detailed information about the assessment.+    dataCollectionDetails :: Prelude.Maybe DataCollectionDetails,+    -- | The ID for the specific assessment task.+    id :: 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 'GetAssessmentResponse' 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:+--+-- 'assessmentTargets', 'getAssessmentResponse_assessmentTargets' - List of criteria for assessment.+--+-- 'dataCollectionDetails', 'getAssessmentResponse_dataCollectionDetails' - Detailed information about the assessment.+--+-- 'id', 'getAssessmentResponse_id' - The ID for the specific assessment task.+--+-- 'httpStatus', 'getAssessmentResponse_httpStatus' - The response's http status code.+newGetAssessmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetAssessmentResponse+newGetAssessmentResponse pHttpStatus_ =+  GetAssessmentResponse'+    { assessmentTargets =+        Prelude.Nothing,+      dataCollectionDetails = Prelude.Nothing,+      id = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | List of criteria for assessment.+getAssessmentResponse_assessmentTargets :: Lens.Lens' GetAssessmentResponse (Prelude.Maybe [AssessmentTarget])+getAssessmentResponse_assessmentTargets = Lens.lens (\GetAssessmentResponse' {assessmentTargets} -> assessmentTargets) (\s@GetAssessmentResponse' {} a -> s {assessmentTargets = a} :: GetAssessmentResponse) Prelude.. Lens.mapping Lens.coerced++-- | Detailed information about the assessment.+getAssessmentResponse_dataCollectionDetails :: Lens.Lens' GetAssessmentResponse (Prelude.Maybe DataCollectionDetails)+getAssessmentResponse_dataCollectionDetails = Lens.lens (\GetAssessmentResponse' {dataCollectionDetails} -> dataCollectionDetails) (\s@GetAssessmentResponse' {} a -> s {dataCollectionDetails = a} :: GetAssessmentResponse)++-- | The ID for the specific assessment task.+getAssessmentResponse_id :: Lens.Lens' GetAssessmentResponse (Prelude.Maybe Prelude.Text)+getAssessmentResponse_id = Lens.lens (\GetAssessmentResponse' {id} -> id) (\s@GetAssessmentResponse' {} a -> s {id = a} :: GetAssessmentResponse)++-- | The response's http status code.+getAssessmentResponse_httpStatus :: Lens.Lens' GetAssessmentResponse Prelude.Int+getAssessmentResponse_httpStatus = Lens.lens (\GetAssessmentResponse' {httpStatus} -> httpStatus) (\s@GetAssessmentResponse' {} a -> s {httpStatus = a} :: GetAssessmentResponse)++instance Prelude.NFData GetAssessmentResponse where+  rnf GetAssessmentResponse' {..} =+    Prelude.rnf assessmentTargets+      `Prelude.seq` Prelude.rnf dataCollectionDetails+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetImportFileTask.hs view
@@ -0,0 +1,291 @@+{-# 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.MigrationHubStrategy.GetImportFileTask+-- 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 the details about a specific import task.+module Amazonka.MigrationHubStrategy.GetImportFileTask+  ( -- * Creating a Request+    GetImportFileTask (..),+    newGetImportFileTask,++    -- * Request Lenses+    getImportFileTask_id,++    -- * Destructuring the Response+    GetImportFileTaskResponse (..),+    newGetImportFileTaskResponse,++    -- * Response Lenses+    getImportFileTaskResponse_completionTime,+    getImportFileTaskResponse_id,+    getImportFileTaskResponse_importName,+    getImportFileTaskResponse_inputS3Bucket,+    getImportFileTaskResponse_inputS3Key,+    getImportFileTaskResponse_numberOfRecordsFailed,+    getImportFileTaskResponse_numberOfRecordsSuccess,+    getImportFileTaskResponse_startTime,+    getImportFileTaskResponse_status,+    getImportFileTaskResponse_statusReportS3Bucket,+    getImportFileTaskResponse_statusReportS3Key,+    getImportFileTaskResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetImportFileTask' smart constructor.+data GetImportFileTask = GetImportFileTask'+  { -- | The ID of the import file task. This ID is returned in the response of+    -- StartImportFileTask.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetImportFileTask' 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:+--+-- 'id', 'getImportFileTask_id' - The ID of the import file task. This ID is returned in the response of+-- StartImportFileTask.+newGetImportFileTask ::+  -- | 'id'+  Prelude.Text ->+  GetImportFileTask+newGetImportFileTask pId_ =+  GetImportFileTask' {id = pId_}++-- | The ID of the import file task. This ID is returned in the response of+-- StartImportFileTask.+getImportFileTask_id :: Lens.Lens' GetImportFileTask Prelude.Text+getImportFileTask_id = Lens.lens (\GetImportFileTask' {id} -> id) (\s@GetImportFileTask' {} a -> s {id = a} :: GetImportFileTask)++instance Core.AWSRequest GetImportFileTask where+  type+    AWSResponse GetImportFileTask =+      GetImportFileTaskResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetImportFileTaskResponse'+            Prelude.<$> (x Data..?> "completionTime")+            Prelude.<*> (x Data..?> "id")+            Prelude.<*> (x Data..?> "importName")+            Prelude.<*> (x Data..?> "inputS3Bucket")+            Prelude.<*> (x Data..?> "inputS3Key")+            Prelude.<*> (x Data..?> "numberOfRecordsFailed")+            Prelude.<*> (x Data..?> "numberOfRecordsSuccess")+            Prelude.<*> (x Data..?> "startTime")+            Prelude.<*> (x Data..?> "status")+            Prelude.<*> (x Data..?> "statusReportS3Bucket")+            Prelude.<*> (x Data..?> "statusReportS3Key")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetImportFileTask where+  hashWithSalt _salt GetImportFileTask' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData GetImportFileTask where+  rnf GetImportFileTask' {..} = Prelude.rnf id++instance Data.ToHeaders GetImportFileTask where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetImportFileTask where+  toPath GetImportFileTask' {..} =+    Prelude.mconcat+      ["/get-import-file-task/", Data.toBS id]++instance Data.ToQuery GetImportFileTask where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetImportFileTaskResponse' smart constructor.+data GetImportFileTaskResponse = GetImportFileTaskResponse'+  { -- | The time that the import task completed.+    completionTime :: Prelude.Maybe Data.POSIX,+    -- | The import file task @id@ returned in the response of+    -- StartImportFileTask.+    id :: Prelude.Maybe Prelude.Text,+    -- | The name of the import task given in StartImportFileTask.+    importName :: Prelude.Maybe Prelude.Text,+    -- | The S3 bucket where import file is located.+    inputS3Bucket :: Prelude.Maybe Prelude.Text,+    -- | The Amazon S3 key name of the import file.+    inputS3Key :: Prelude.Maybe Prelude.Text,+    -- | The number of records that failed to be imported.+    numberOfRecordsFailed :: Prelude.Maybe Prelude.Int,+    -- | The number of records successfully imported.+    numberOfRecordsSuccess :: Prelude.Maybe Prelude.Int,+    -- | Start time of the import task.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | Status of import file task.+    status :: Prelude.Maybe ImportFileTaskStatus,+    -- | The S3 bucket name for status report of import task.+    statusReportS3Bucket :: Prelude.Maybe Prelude.Text,+    -- | The Amazon S3 key name for status report of import task. The report+    -- contains details about whether each record imported successfully or why+    -- it did not.+    statusReportS3Key :: 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 'GetImportFileTaskResponse' 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:+--+-- 'completionTime', 'getImportFileTaskResponse_completionTime' - The time that the import task completed.+--+-- 'id', 'getImportFileTaskResponse_id' - The import file task @id@ returned in the response of+-- StartImportFileTask.+--+-- 'importName', 'getImportFileTaskResponse_importName' - The name of the import task given in StartImportFileTask.+--+-- 'inputS3Bucket', 'getImportFileTaskResponse_inputS3Bucket' - The S3 bucket where import file is located.+--+-- 'inputS3Key', 'getImportFileTaskResponse_inputS3Key' - The Amazon S3 key name of the import file.+--+-- 'numberOfRecordsFailed', 'getImportFileTaskResponse_numberOfRecordsFailed' - The number of records that failed to be imported.+--+-- 'numberOfRecordsSuccess', 'getImportFileTaskResponse_numberOfRecordsSuccess' - The number of records successfully imported.+--+-- 'startTime', 'getImportFileTaskResponse_startTime' - Start time of the import task.+--+-- 'status', 'getImportFileTaskResponse_status' - Status of import file task.+--+-- 'statusReportS3Bucket', 'getImportFileTaskResponse_statusReportS3Bucket' - The S3 bucket name for status report of import task.+--+-- 'statusReportS3Key', 'getImportFileTaskResponse_statusReportS3Key' - The Amazon S3 key name for status report of import task. The report+-- contains details about whether each record imported successfully or why+-- it did not.+--+-- 'httpStatus', 'getImportFileTaskResponse_httpStatus' - The response's http status code.+newGetImportFileTaskResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetImportFileTaskResponse+newGetImportFileTaskResponse pHttpStatus_ =+  GetImportFileTaskResponse'+    { completionTime =+        Prelude.Nothing,+      id = Prelude.Nothing,+      importName = Prelude.Nothing,+      inputS3Bucket = Prelude.Nothing,+      inputS3Key = Prelude.Nothing,+      numberOfRecordsFailed = Prelude.Nothing,+      numberOfRecordsSuccess = Prelude.Nothing,+      startTime = Prelude.Nothing,+      status = Prelude.Nothing,+      statusReportS3Bucket = Prelude.Nothing,+      statusReportS3Key = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The time that the import task completed.+getImportFileTaskResponse_completionTime :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.UTCTime)+getImportFileTaskResponse_completionTime = Lens.lens (\GetImportFileTaskResponse' {completionTime} -> completionTime) (\s@GetImportFileTaskResponse' {} a -> s {completionTime = a} :: GetImportFileTaskResponse) Prelude.. Lens.mapping Data._Time++-- | The import file task @id@ returned in the response of+-- StartImportFileTask.+getImportFileTaskResponse_id :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.Text)+getImportFileTaskResponse_id = Lens.lens (\GetImportFileTaskResponse' {id} -> id) (\s@GetImportFileTaskResponse' {} a -> s {id = a} :: GetImportFileTaskResponse)++-- | The name of the import task given in StartImportFileTask.+getImportFileTaskResponse_importName :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.Text)+getImportFileTaskResponse_importName = Lens.lens (\GetImportFileTaskResponse' {importName} -> importName) (\s@GetImportFileTaskResponse' {} a -> s {importName = a} :: GetImportFileTaskResponse)++-- | The S3 bucket where import file is located.+getImportFileTaskResponse_inputS3Bucket :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.Text)+getImportFileTaskResponse_inputS3Bucket = Lens.lens (\GetImportFileTaskResponse' {inputS3Bucket} -> inputS3Bucket) (\s@GetImportFileTaskResponse' {} a -> s {inputS3Bucket = a} :: GetImportFileTaskResponse)++-- | The Amazon S3 key name of the import file.+getImportFileTaskResponse_inputS3Key :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.Text)+getImportFileTaskResponse_inputS3Key = Lens.lens (\GetImportFileTaskResponse' {inputS3Key} -> inputS3Key) (\s@GetImportFileTaskResponse' {} a -> s {inputS3Key = a} :: GetImportFileTaskResponse)++-- | The number of records that failed to be imported.+getImportFileTaskResponse_numberOfRecordsFailed :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.Int)+getImportFileTaskResponse_numberOfRecordsFailed = Lens.lens (\GetImportFileTaskResponse' {numberOfRecordsFailed} -> numberOfRecordsFailed) (\s@GetImportFileTaskResponse' {} a -> s {numberOfRecordsFailed = a} :: GetImportFileTaskResponse)++-- | The number of records successfully imported.+getImportFileTaskResponse_numberOfRecordsSuccess :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.Int)+getImportFileTaskResponse_numberOfRecordsSuccess = Lens.lens (\GetImportFileTaskResponse' {numberOfRecordsSuccess} -> numberOfRecordsSuccess) (\s@GetImportFileTaskResponse' {} a -> s {numberOfRecordsSuccess = a} :: GetImportFileTaskResponse)++-- | Start time of the import task.+getImportFileTaskResponse_startTime :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.UTCTime)+getImportFileTaskResponse_startTime = Lens.lens (\GetImportFileTaskResponse' {startTime} -> startTime) (\s@GetImportFileTaskResponse' {} a -> s {startTime = a} :: GetImportFileTaskResponse) Prelude.. Lens.mapping Data._Time++-- | Status of import file task.+getImportFileTaskResponse_status :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe ImportFileTaskStatus)+getImportFileTaskResponse_status = Lens.lens (\GetImportFileTaskResponse' {status} -> status) (\s@GetImportFileTaskResponse' {} a -> s {status = a} :: GetImportFileTaskResponse)++-- | The S3 bucket name for status report of import task.+getImportFileTaskResponse_statusReportS3Bucket :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.Text)+getImportFileTaskResponse_statusReportS3Bucket = Lens.lens (\GetImportFileTaskResponse' {statusReportS3Bucket} -> statusReportS3Bucket) (\s@GetImportFileTaskResponse' {} a -> s {statusReportS3Bucket = a} :: GetImportFileTaskResponse)++-- | The Amazon S3 key name for status report of import task. The report+-- contains details about whether each record imported successfully or why+-- it did not.+getImportFileTaskResponse_statusReportS3Key :: Lens.Lens' GetImportFileTaskResponse (Prelude.Maybe Prelude.Text)+getImportFileTaskResponse_statusReportS3Key = Lens.lens (\GetImportFileTaskResponse' {statusReportS3Key} -> statusReportS3Key) (\s@GetImportFileTaskResponse' {} a -> s {statusReportS3Key = a} :: GetImportFileTaskResponse)++-- | The response's http status code.+getImportFileTaskResponse_httpStatus :: Lens.Lens' GetImportFileTaskResponse Prelude.Int+getImportFileTaskResponse_httpStatus = Lens.lens (\GetImportFileTaskResponse' {httpStatus} -> httpStatus) (\s@GetImportFileTaskResponse' {} a -> s {httpStatus = a} :: GetImportFileTaskResponse)++instance Prelude.NFData GetImportFileTaskResponse where+  rnf GetImportFileTaskResponse' {..} =+    Prelude.rnf completionTime+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf importName+      `Prelude.seq` Prelude.rnf inputS3Bucket+      `Prelude.seq` Prelude.rnf inputS3Key+      `Prelude.seq` Prelude.rnf numberOfRecordsFailed+      `Prelude.seq` Prelude.rnf numberOfRecordsSuccess+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusReportS3Bucket+      `Prelude.seq` Prelude.rnf statusReportS3Key+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetLatestAssessmentId.hs view
@@ -0,0 +1,140 @@+{-# 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.MigrationHubStrategy.GetLatestAssessmentId+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieve the latest ID of a specific assessment task.+module Amazonka.MigrationHubStrategy.GetLatestAssessmentId+  ( -- * Creating a Request+    GetLatestAssessmentId (..),+    newGetLatestAssessmentId,++    -- * Destructuring the Response+    GetLatestAssessmentIdResponse (..),+    newGetLatestAssessmentIdResponse,++    -- * Response Lenses+    getLatestAssessmentIdResponse_id,+    getLatestAssessmentIdResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetLatestAssessmentId' smart constructor.+data GetLatestAssessmentId = GetLatestAssessmentId'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetLatestAssessmentId' 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.+newGetLatestAssessmentId ::+  GetLatestAssessmentId+newGetLatestAssessmentId = GetLatestAssessmentId'++instance Core.AWSRequest GetLatestAssessmentId where+  type+    AWSResponse GetLatestAssessmentId =+      GetLatestAssessmentIdResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetLatestAssessmentIdResponse'+            Prelude.<$> (x Data..?> "id")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetLatestAssessmentId where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData GetLatestAssessmentId where+  rnf _ = ()++instance Data.ToHeaders GetLatestAssessmentId where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetLatestAssessmentId where+  toPath = Prelude.const "/get-latest-assessment-id"++instance Data.ToQuery GetLatestAssessmentId where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetLatestAssessmentIdResponse' smart constructor.+data GetLatestAssessmentIdResponse = GetLatestAssessmentIdResponse'+  { -- | The latest ID for the specific assessment task.+    id :: 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 'GetLatestAssessmentIdResponse' 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:+--+-- 'id', 'getLatestAssessmentIdResponse_id' - The latest ID for the specific assessment task.+--+-- 'httpStatus', 'getLatestAssessmentIdResponse_httpStatus' - The response's http status code.+newGetLatestAssessmentIdResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetLatestAssessmentIdResponse+newGetLatestAssessmentIdResponse pHttpStatus_ =+  GetLatestAssessmentIdResponse'+    { id =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The latest ID for the specific assessment task.+getLatestAssessmentIdResponse_id :: Lens.Lens' GetLatestAssessmentIdResponse (Prelude.Maybe Prelude.Text)+getLatestAssessmentIdResponse_id = Lens.lens (\GetLatestAssessmentIdResponse' {id} -> id) (\s@GetLatestAssessmentIdResponse' {} a -> s {id = a} :: GetLatestAssessmentIdResponse)++-- | The response's http status code.+getLatestAssessmentIdResponse_httpStatus :: Lens.Lens' GetLatestAssessmentIdResponse Prelude.Int+getLatestAssessmentIdResponse_httpStatus = Lens.lens (\GetLatestAssessmentIdResponse' {httpStatus} -> httpStatus) (\s@GetLatestAssessmentIdResponse' {} a -> s {httpStatus = a} :: GetLatestAssessmentIdResponse)++instance Prelude.NFData GetLatestAssessmentIdResponse where+  rnf GetLatestAssessmentIdResponse' {..} =+    Prelude.rnf id `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetPortfolioPreferences.hs view
@@ -0,0 +1,180 @@+{-# 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.MigrationHubStrategy.GetPortfolioPreferences+-- 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 your migration and modernization preferences.+module Amazonka.MigrationHubStrategy.GetPortfolioPreferences+  ( -- * Creating a Request+    GetPortfolioPreferences (..),+    newGetPortfolioPreferences,++    -- * Destructuring the Response+    GetPortfolioPreferencesResponse (..),+    newGetPortfolioPreferencesResponse,++    -- * Response Lenses+    getPortfolioPreferencesResponse_applicationMode,+    getPortfolioPreferencesResponse_applicationPreferences,+    getPortfolioPreferencesResponse_databasePreferences,+    getPortfolioPreferencesResponse_prioritizeBusinessGoals,+    getPortfolioPreferencesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetPortfolioPreferences' smart constructor.+data GetPortfolioPreferences = GetPortfolioPreferences'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetPortfolioPreferences' 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.+newGetPortfolioPreferences ::+  GetPortfolioPreferences+newGetPortfolioPreferences = GetPortfolioPreferences'++instance Core.AWSRequest GetPortfolioPreferences where+  type+    AWSResponse GetPortfolioPreferences =+      GetPortfolioPreferencesResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetPortfolioPreferencesResponse'+            Prelude.<$> (x Data..?> "applicationMode")+            Prelude.<*> (x Data..?> "applicationPreferences")+            Prelude.<*> (x Data..?> "databasePreferences")+            Prelude.<*> (x Data..?> "prioritizeBusinessGoals")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetPortfolioPreferences where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData GetPortfolioPreferences where+  rnf _ = ()++instance Data.ToHeaders GetPortfolioPreferences where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetPortfolioPreferences where+  toPath = Prelude.const "/get-portfolio-preferences"++instance Data.ToQuery GetPortfolioPreferences where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetPortfolioPreferencesResponse' smart constructor.+data GetPortfolioPreferencesResponse = GetPortfolioPreferencesResponse'+  { -- | The classification for application component types.+    applicationMode :: Prelude.Maybe ApplicationMode,+    -- | The transformation preferences for non-database applications.+    applicationPreferences :: Prelude.Maybe ApplicationPreferences,+    -- | The transformation preferences for database applications.+    databasePreferences :: Prelude.Maybe DatabasePreferences,+    -- | The rank of business goals based on priority.+    prioritizeBusinessGoals :: Prelude.Maybe PrioritizeBusinessGoals,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetPortfolioPreferencesResponse' 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:+--+-- 'applicationMode', 'getPortfolioPreferencesResponse_applicationMode' - The classification for application component types.+--+-- 'applicationPreferences', 'getPortfolioPreferencesResponse_applicationPreferences' - The transformation preferences for non-database applications.+--+-- 'databasePreferences', 'getPortfolioPreferencesResponse_databasePreferences' - The transformation preferences for database applications.+--+-- 'prioritizeBusinessGoals', 'getPortfolioPreferencesResponse_prioritizeBusinessGoals' - The rank of business goals based on priority.+--+-- 'httpStatus', 'getPortfolioPreferencesResponse_httpStatus' - The response's http status code.+newGetPortfolioPreferencesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetPortfolioPreferencesResponse+newGetPortfolioPreferencesResponse pHttpStatus_ =+  GetPortfolioPreferencesResponse'+    { applicationMode =+        Prelude.Nothing,+      applicationPreferences = Prelude.Nothing,+      databasePreferences = Prelude.Nothing,+      prioritizeBusinessGoals = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The classification for application component types.+getPortfolioPreferencesResponse_applicationMode :: Lens.Lens' GetPortfolioPreferencesResponse (Prelude.Maybe ApplicationMode)+getPortfolioPreferencesResponse_applicationMode = Lens.lens (\GetPortfolioPreferencesResponse' {applicationMode} -> applicationMode) (\s@GetPortfolioPreferencesResponse' {} a -> s {applicationMode = a} :: GetPortfolioPreferencesResponse)++-- | The transformation preferences for non-database applications.+getPortfolioPreferencesResponse_applicationPreferences :: Lens.Lens' GetPortfolioPreferencesResponse (Prelude.Maybe ApplicationPreferences)+getPortfolioPreferencesResponse_applicationPreferences = Lens.lens (\GetPortfolioPreferencesResponse' {applicationPreferences} -> applicationPreferences) (\s@GetPortfolioPreferencesResponse' {} a -> s {applicationPreferences = a} :: GetPortfolioPreferencesResponse)++-- | The transformation preferences for database applications.+getPortfolioPreferencesResponse_databasePreferences :: Lens.Lens' GetPortfolioPreferencesResponse (Prelude.Maybe DatabasePreferences)+getPortfolioPreferencesResponse_databasePreferences = Lens.lens (\GetPortfolioPreferencesResponse' {databasePreferences} -> databasePreferences) (\s@GetPortfolioPreferencesResponse' {} a -> s {databasePreferences = a} :: GetPortfolioPreferencesResponse)++-- | The rank of business goals based on priority.+getPortfolioPreferencesResponse_prioritizeBusinessGoals :: Lens.Lens' GetPortfolioPreferencesResponse (Prelude.Maybe PrioritizeBusinessGoals)+getPortfolioPreferencesResponse_prioritizeBusinessGoals = Lens.lens (\GetPortfolioPreferencesResponse' {prioritizeBusinessGoals} -> prioritizeBusinessGoals) (\s@GetPortfolioPreferencesResponse' {} a -> s {prioritizeBusinessGoals = a} :: GetPortfolioPreferencesResponse)++-- | The response's http status code.+getPortfolioPreferencesResponse_httpStatus :: Lens.Lens' GetPortfolioPreferencesResponse Prelude.Int+getPortfolioPreferencesResponse_httpStatus = Lens.lens (\GetPortfolioPreferencesResponse' {httpStatus} -> httpStatus) (\s@GetPortfolioPreferencesResponse' {} a -> s {httpStatus = a} :: GetPortfolioPreferencesResponse)++instance+  Prelude.NFData+    GetPortfolioPreferencesResponse+  where+  rnf GetPortfolioPreferencesResponse' {..} =+    Prelude.rnf applicationMode+      `Prelude.seq` Prelude.rnf applicationPreferences+      `Prelude.seq` Prelude.rnf databasePreferences+      `Prelude.seq` Prelude.rnf prioritizeBusinessGoals+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetPortfolioSummary.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.MigrationHubStrategy.GetPortfolioSummary+-- 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 overall summary including the number of servers to rehost and+-- the overall number of anti-patterns.+module Amazonka.MigrationHubStrategy.GetPortfolioSummary+  ( -- * Creating a Request+    GetPortfolioSummary (..),+    newGetPortfolioSummary,++    -- * Destructuring the Response+    GetPortfolioSummaryResponse (..),+    newGetPortfolioSummaryResponse,++    -- * Response Lenses+    getPortfolioSummaryResponse_assessmentSummary,+    getPortfolioSummaryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetPortfolioSummary' smart constructor.+data GetPortfolioSummary = GetPortfolioSummary'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetPortfolioSummary' 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.+newGetPortfolioSummary ::+  GetPortfolioSummary+newGetPortfolioSummary = GetPortfolioSummary'++instance Core.AWSRequest GetPortfolioSummary where+  type+    AWSResponse GetPortfolioSummary =+      GetPortfolioSummaryResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetPortfolioSummaryResponse'+            Prelude.<$> (x Data..?> "assessmentSummary")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetPortfolioSummary where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData GetPortfolioSummary where+  rnf _ = ()++instance Data.ToHeaders GetPortfolioSummary where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetPortfolioSummary where+  toPath = Prelude.const "/get-portfolio-summary"++instance Data.ToQuery GetPortfolioSummary where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetPortfolioSummaryResponse' smart constructor.+data GetPortfolioSummaryResponse = GetPortfolioSummaryResponse'+  { -- | An assessment summary for the portfolio including the number of servers+    -- to rehost and the overall number of anti-patterns.+    assessmentSummary :: Prelude.Maybe AssessmentSummary,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetPortfolioSummaryResponse' 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:+--+-- 'assessmentSummary', 'getPortfolioSummaryResponse_assessmentSummary' - An assessment summary for the portfolio including the number of servers+-- to rehost and the overall number of anti-patterns.+--+-- 'httpStatus', 'getPortfolioSummaryResponse_httpStatus' - The response's http status code.+newGetPortfolioSummaryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetPortfolioSummaryResponse+newGetPortfolioSummaryResponse pHttpStatus_ =+  GetPortfolioSummaryResponse'+    { assessmentSummary =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An assessment summary for the portfolio including the number of servers+-- to rehost and the overall number of anti-patterns.+getPortfolioSummaryResponse_assessmentSummary :: Lens.Lens' GetPortfolioSummaryResponse (Prelude.Maybe AssessmentSummary)+getPortfolioSummaryResponse_assessmentSummary = Lens.lens (\GetPortfolioSummaryResponse' {assessmentSummary} -> assessmentSummary) (\s@GetPortfolioSummaryResponse' {} a -> s {assessmentSummary = a} :: GetPortfolioSummaryResponse)++-- | The response's http status code.+getPortfolioSummaryResponse_httpStatus :: Lens.Lens' GetPortfolioSummaryResponse Prelude.Int+getPortfolioSummaryResponse_httpStatus = Lens.lens (\GetPortfolioSummaryResponse' {httpStatus} -> httpStatus) (\s@GetPortfolioSummaryResponse' {} a -> s {httpStatus = a} :: GetPortfolioSummaryResponse)++instance Prelude.NFData GetPortfolioSummaryResponse where+  rnf GetPortfolioSummaryResponse' {..} =+    Prelude.rnf assessmentSummary+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetRecommendationReportDetails.hs view
@@ -0,0 +1,198 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MigrationHubStrategy.GetRecommendationReportDetails+-- 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 detailed information about the specified recommendation+-- report.+module Amazonka.MigrationHubStrategy.GetRecommendationReportDetails+  ( -- * Creating a Request+    GetRecommendationReportDetails (..),+    newGetRecommendationReportDetails,++    -- * Request Lenses+    getRecommendationReportDetails_id,++    -- * Destructuring the Response+    GetRecommendationReportDetailsResponse (..),+    newGetRecommendationReportDetailsResponse,++    -- * Response Lenses+    getRecommendationReportDetailsResponse_id,+    getRecommendationReportDetailsResponse_recommendationReportDetails,+    getRecommendationReportDetailsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetRecommendationReportDetails' smart constructor.+data GetRecommendationReportDetails = GetRecommendationReportDetails'+  { -- | The recommendation report generation task @id@ returned by+    -- StartRecommendationReportGeneration.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRecommendationReportDetails' 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:+--+-- 'id', 'getRecommendationReportDetails_id' - The recommendation report generation task @id@ returned by+-- StartRecommendationReportGeneration.+newGetRecommendationReportDetails ::+  -- | 'id'+  Prelude.Text ->+  GetRecommendationReportDetails+newGetRecommendationReportDetails pId_ =+  GetRecommendationReportDetails' {id = pId_}++-- | The recommendation report generation task @id@ returned by+-- StartRecommendationReportGeneration.+getRecommendationReportDetails_id :: Lens.Lens' GetRecommendationReportDetails Prelude.Text+getRecommendationReportDetails_id = Lens.lens (\GetRecommendationReportDetails' {id} -> id) (\s@GetRecommendationReportDetails' {} a -> s {id = a} :: GetRecommendationReportDetails)++instance+  Core.AWSRequest+    GetRecommendationReportDetails+  where+  type+    AWSResponse GetRecommendationReportDetails =+      GetRecommendationReportDetailsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetRecommendationReportDetailsResponse'+            Prelude.<$> (x Data..?> "id")+            Prelude.<*> (x Data..?> "recommendationReportDetails")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    GetRecommendationReportDetails+  where+  hashWithSalt+    _salt+    GetRecommendationReportDetails' {..} =+      _salt `Prelude.hashWithSalt` id++instance+  Prelude.NFData+    GetRecommendationReportDetails+  where+  rnf GetRecommendationReportDetails' {..} =+    Prelude.rnf id++instance+  Data.ToHeaders+    GetRecommendationReportDetails+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetRecommendationReportDetails where+  toPath GetRecommendationReportDetails' {..} =+    Prelude.mconcat+      ["/get-recommendation-report-details/", Data.toBS id]++instance Data.ToQuery GetRecommendationReportDetails where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetRecommendationReportDetailsResponse' smart constructor.+data GetRecommendationReportDetailsResponse = GetRecommendationReportDetailsResponse'+  { -- | The ID of the recommendation report generation task. See the response of+    -- StartRecommendationReportGeneration.+    id :: Prelude.Maybe Prelude.Text,+    -- | Detailed information about the recommendation report.+    recommendationReportDetails :: Prelude.Maybe RecommendationReportDetails,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRecommendationReportDetailsResponse' 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:+--+-- 'id', 'getRecommendationReportDetailsResponse_id' - The ID of the recommendation report generation task. See the response of+-- StartRecommendationReportGeneration.+--+-- 'recommendationReportDetails', 'getRecommendationReportDetailsResponse_recommendationReportDetails' - Detailed information about the recommendation report.+--+-- 'httpStatus', 'getRecommendationReportDetailsResponse_httpStatus' - The response's http status code.+newGetRecommendationReportDetailsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetRecommendationReportDetailsResponse+newGetRecommendationReportDetailsResponse+  pHttpStatus_ =+    GetRecommendationReportDetailsResponse'+      { id =+          Prelude.Nothing,+        recommendationReportDetails =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The ID of the recommendation report generation task. See the response of+-- StartRecommendationReportGeneration.+getRecommendationReportDetailsResponse_id :: Lens.Lens' GetRecommendationReportDetailsResponse (Prelude.Maybe Prelude.Text)+getRecommendationReportDetailsResponse_id = Lens.lens (\GetRecommendationReportDetailsResponse' {id} -> id) (\s@GetRecommendationReportDetailsResponse' {} a -> s {id = a} :: GetRecommendationReportDetailsResponse)++-- | Detailed information about the recommendation report.+getRecommendationReportDetailsResponse_recommendationReportDetails :: Lens.Lens' GetRecommendationReportDetailsResponse (Prelude.Maybe RecommendationReportDetails)+getRecommendationReportDetailsResponse_recommendationReportDetails = Lens.lens (\GetRecommendationReportDetailsResponse' {recommendationReportDetails} -> recommendationReportDetails) (\s@GetRecommendationReportDetailsResponse' {} a -> s {recommendationReportDetails = a} :: GetRecommendationReportDetailsResponse)++-- | The response's http status code.+getRecommendationReportDetailsResponse_httpStatus :: Lens.Lens' GetRecommendationReportDetailsResponse Prelude.Int+getRecommendationReportDetailsResponse_httpStatus = Lens.lens (\GetRecommendationReportDetailsResponse' {httpStatus} -> httpStatus) (\s@GetRecommendationReportDetailsResponse' {} a -> s {httpStatus = a} :: GetRecommendationReportDetailsResponse)++instance+  Prelude.NFData+    GetRecommendationReportDetailsResponse+  where+  rnf GetRecommendationReportDetailsResponse' {..} =+    Prelude.rnf id+      `Prelude.seq` Prelude.rnf recommendationReportDetails+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetServerDetails.hs view
@@ -0,0 +1,263 @@+{-# 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.MigrationHubStrategy.GetServerDetails+-- 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 detailed information about a specified server.+--+-- This operation returns paginated results.+module Amazonka.MigrationHubStrategy.GetServerDetails+  ( -- * Creating a Request+    GetServerDetails (..),+    newGetServerDetails,++    -- * Request Lenses+    getServerDetails_maxResults,+    getServerDetails_nextToken,+    getServerDetails_serverId,++    -- * Destructuring the Response+    GetServerDetailsResponse (..),+    newGetServerDetailsResponse,++    -- * Response Lenses+    getServerDetailsResponse_associatedApplications,+    getServerDetailsResponse_nextToken,+    getServerDetailsResponse_serverDetail,+    getServerDetailsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetServerDetails' smart constructor.+data GetServerDetails = GetServerDetails'+  { -- | The maximum number of items to include in the response. The maximum+    -- value is 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | The token from a previous call that you use to retrieve the next set of+    -- results. For example, if a previous call to this action returned 100+    -- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+    -- results along with a token. You then use the returned token to retrieve+    -- the next set of 10.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The ID of the server.+    serverId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServerDetails' 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', 'getServerDetails_maxResults' - The maximum number of items to include in the response. The maximum+-- value is 100.+--+-- 'nextToken', 'getServerDetails_nextToken' - The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+--+-- 'serverId', 'getServerDetails_serverId' - The ID of the server.+newGetServerDetails ::+  -- | 'serverId'+  Prelude.Text ->+  GetServerDetails+newGetServerDetails pServerId_ =+  GetServerDetails'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serverId = pServerId_+    }++-- | The maximum number of items to include in the response. The maximum+-- value is 100.+getServerDetails_maxResults :: Lens.Lens' GetServerDetails (Prelude.Maybe Prelude.Int)+getServerDetails_maxResults = Lens.lens (\GetServerDetails' {maxResults} -> maxResults) (\s@GetServerDetails' {} a -> s {maxResults = a} :: GetServerDetails)++-- | The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+getServerDetails_nextToken :: Lens.Lens' GetServerDetails (Prelude.Maybe Prelude.Text)+getServerDetails_nextToken = Lens.lens (\GetServerDetails' {nextToken} -> nextToken) (\s@GetServerDetails' {} a -> s {nextToken = a} :: GetServerDetails)++-- | The ID of the server.+getServerDetails_serverId :: Lens.Lens' GetServerDetails Prelude.Text+getServerDetails_serverId = Lens.lens (\GetServerDetails' {serverId} -> serverId) (\s@GetServerDetails' {} a -> s {serverId = a} :: GetServerDetails)++instance Core.AWSPager GetServerDetails where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? getServerDetailsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? getServerDetailsResponse_associatedApplications+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& getServerDetails_nextToken+          Lens..~ rs+          Lens.^? getServerDetailsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest GetServerDetails where+  type+    AWSResponse GetServerDetails =+      GetServerDetailsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetServerDetailsResponse'+            Prelude.<$> ( x+                            Data..?> "associatedApplications"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "serverDetail")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetServerDetails where+  hashWithSalt _salt GetServerDetails' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serverId++instance Prelude.NFData GetServerDetails where+  rnf GetServerDetails' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serverId++instance Data.ToHeaders GetServerDetails where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetServerDetails where+  toPath GetServerDetails' {..} =+    Prelude.mconcat+      ["/get-server-details/", Data.toBS serverId]++instance Data.ToQuery GetServerDetails where+  toQuery GetServerDetails' {..} =+    Prelude.mconcat+      [ "maxResults" Data.=: maxResults,+        "nextToken" Data.=: nextToken+      ]++-- | /See:/ 'newGetServerDetailsResponse' smart constructor.+data GetServerDetailsResponse = GetServerDetailsResponse'+  { -- | The associated application group the server belongs to, as defined in+    -- AWS Application Discovery Service.+    associatedApplications :: Prelude.Maybe [AssociatedApplication],+    -- | The token you use to retrieve the next set of results, or null if there+    -- are no more results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Detailed information about the server.+    serverDetail :: Prelude.Maybe ServerDetail,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServerDetailsResponse' 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:+--+-- 'associatedApplications', 'getServerDetailsResponse_associatedApplications' - The associated application group the server belongs to, as defined in+-- AWS Application Discovery Service.+--+-- 'nextToken', 'getServerDetailsResponse_nextToken' - The token you use to retrieve the next set of results, or null if there+-- are no more results.+--+-- 'serverDetail', 'getServerDetailsResponse_serverDetail' - Detailed information about the server.+--+-- 'httpStatus', 'getServerDetailsResponse_httpStatus' - The response's http status code.+newGetServerDetailsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetServerDetailsResponse+newGetServerDetailsResponse pHttpStatus_ =+  GetServerDetailsResponse'+    { associatedApplications =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serverDetail = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The associated application group the server belongs to, as defined in+-- AWS Application Discovery Service.+getServerDetailsResponse_associatedApplications :: Lens.Lens' GetServerDetailsResponse (Prelude.Maybe [AssociatedApplication])+getServerDetailsResponse_associatedApplications = Lens.lens (\GetServerDetailsResponse' {associatedApplications} -> associatedApplications) (\s@GetServerDetailsResponse' {} a -> s {associatedApplications = a} :: GetServerDetailsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token you use to retrieve the next set of results, or null if there+-- are no more results.+getServerDetailsResponse_nextToken :: Lens.Lens' GetServerDetailsResponse (Prelude.Maybe Prelude.Text)+getServerDetailsResponse_nextToken = Lens.lens (\GetServerDetailsResponse' {nextToken} -> nextToken) (\s@GetServerDetailsResponse' {} a -> s {nextToken = a} :: GetServerDetailsResponse)++-- | Detailed information about the server.+getServerDetailsResponse_serverDetail :: Lens.Lens' GetServerDetailsResponse (Prelude.Maybe ServerDetail)+getServerDetailsResponse_serverDetail = Lens.lens (\GetServerDetailsResponse' {serverDetail} -> serverDetail) (\s@GetServerDetailsResponse' {} a -> s {serverDetail = a} :: GetServerDetailsResponse)++-- | The response's http status code.+getServerDetailsResponse_httpStatus :: Lens.Lens' GetServerDetailsResponse Prelude.Int+getServerDetailsResponse_httpStatus = Lens.lens (\GetServerDetailsResponse' {httpStatus} -> httpStatus) (\s@GetServerDetailsResponse' {} a -> s {httpStatus = a} :: GetServerDetailsResponse)++instance Prelude.NFData GetServerDetailsResponse where+  rnf GetServerDetailsResponse' {..} =+    Prelude.rnf associatedApplications+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serverDetail+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/GetServerStrategies.hs view
@@ -0,0 +1,162 @@+{-# 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.MigrationHubStrategy.GetServerStrategies+-- 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 recommended strategies and tools for the specified server.+module Amazonka.MigrationHubStrategy.GetServerStrategies+  ( -- * Creating a Request+    GetServerStrategies (..),+    newGetServerStrategies,++    -- * Request Lenses+    getServerStrategies_serverId,++    -- * Destructuring the Response+    GetServerStrategiesResponse (..),+    newGetServerStrategiesResponse,++    -- * Response Lenses+    getServerStrategiesResponse_serverStrategies,+    getServerStrategiesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetServerStrategies' smart constructor.+data GetServerStrategies = GetServerStrategies'+  { -- | The ID of the server.+    serverId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServerStrategies' 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:+--+-- 'serverId', 'getServerStrategies_serverId' - The ID of the server.+newGetServerStrategies ::+  -- | 'serverId'+  Prelude.Text ->+  GetServerStrategies+newGetServerStrategies pServerId_ =+  GetServerStrategies' {serverId = pServerId_}++-- | The ID of the server.+getServerStrategies_serverId :: Lens.Lens' GetServerStrategies Prelude.Text+getServerStrategies_serverId = Lens.lens (\GetServerStrategies' {serverId} -> serverId) (\s@GetServerStrategies' {} a -> s {serverId = a} :: GetServerStrategies)++instance Core.AWSRequest GetServerStrategies where+  type+    AWSResponse GetServerStrategies =+      GetServerStrategiesResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetServerStrategiesResponse'+            Prelude.<$> ( x+                            Data..?> "serverStrategies"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetServerStrategies where+  hashWithSalt _salt GetServerStrategies' {..} =+    _salt `Prelude.hashWithSalt` serverId++instance Prelude.NFData GetServerStrategies where+  rnf GetServerStrategies' {..} = Prelude.rnf serverId++instance Data.ToHeaders GetServerStrategies where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetServerStrategies where+  toPath GetServerStrategies' {..} =+    Prelude.mconcat+      ["/get-server-strategies/", Data.toBS serverId]++instance Data.ToQuery GetServerStrategies where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetServerStrategiesResponse' smart constructor.+data GetServerStrategiesResponse = GetServerStrategiesResponse'+  { -- | A list of strategy recommendations for the server.+    serverStrategies :: Prelude.Maybe [ServerStrategy],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServerStrategiesResponse' 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:+--+-- 'serverStrategies', 'getServerStrategiesResponse_serverStrategies' - A list of strategy recommendations for the server.+--+-- 'httpStatus', 'getServerStrategiesResponse_httpStatus' - The response's http status code.+newGetServerStrategiesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetServerStrategiesResponse+newGetServerStrategiesResponse pHttpStatus_ =+  GetServerStrategiesResponse'+    { serverStrategies =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of strategy recommendations for the server.+getServerStrategiesResponse_serverStrategies :: Lens.Lens' GetServerStrategiesResponse (Prelude.Maybe [ServerStrategy])+getServerStrategiesResponse_serverStrategies = Lens.lens (\GetServerStrategiesResponse' {serverStrategies} -> serverStrategies) (\s@GetServerStrategiesResponse' {} a -> s {serverStrategies = a} :: GetServerStrategiesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getServerStrategiesResponse_httpStatus :: Lens.Lens' GetServerStrategiesResponse Prelude.Int+getServerStrategiesResponse_httpStatus = Lens.lens (\GetServerStrategiesResponse' {httpStatus} -> httpStatus) (\s@GetServerStrategiesResponse' {} a -> s {httpStatus = a} :: GetServerStrategiesResponse)++instance Prelude.NFData GetServerStrategiesResponse where+  rnf GetServerStrategiesResponse' {..} =+    Prelude.rnf serverStrategies+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/Lens.hs view
@@ -0,0 +1,514 @@+{-# 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.MigrationHubStrategy.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.MigrationHubStrategy.Lens+  ( -- * Operations++    -- ** GetApplicationComponentDetails+    getApplicationComponentDetails_applicationComponentId,+    getApplicationComponentDetailsResponse_applicationComponentDetail,+    getApplicationComponentDetailsResponse_associatedApplications,+    getApplicationComponentDetailsResponse_associatedServerIds,+    getApplicationComponentDetailsResponse_moreApplicationResource,+    getApplicationComponentDetailsResponse_httpStatus,++    -- ** GetApplicationComponentStrategies+    getApplicationComponentStrategies_applicationComponentId,+    getApplicationComponentStrategiesResponse_applicationComponentStrategies,+    getApplicationComponentStrategiesResponse_httpStatus,++    -- ** GetAssessment+    getAssessment_id,+    getAssessmentResponse_assessmentTargets,+    getAssessmentResponse_dataCollectionDetails,+    getAssessmentResponse_id,+    getAssessmentResponse_httpStatus,++    -- ** GetImportFileTask+    getImportFileTask_id,+    getImportFileTaskResponse_completionTime,+    getImportFileTaskResponse_id,+    getImportFileTaskResponse_importName,+    getImportFileTaskResponse_inputS3Bucket,+    getImportFileTaskResponse_inputS3Key,+    getImportFileTaskResponse_numberOfRecordsFailed,+    getImportFileTaskResponse_numberOfRecordsSuccess,+    getImportFileTaskResponse_startTime,+    getImportFileTaskResponse_status,+    getImportFileTaskResponse_statusReportS3Bucket,+    getImportFileTaskResponse_statusReportS3Key,+    getImportFileTaskResponse_httpStatus,++    -- ** GetLatestAssessmentId+    getLatestAssessmentIdResponse_id,+    getLatestAssessmentIdResponse_httpStatus,++    -- ** GetPortfolioPreferences+    getPortfolioPreferencesResponse_applicationMode,+    getPortfolioPreferencesResponse_applicationPreferences,+    getPortfolioPreferencesResponse_databasePreferences,+    getPortfolioPreferencesResponse_prioritizeBusinessGoals,+    getPortfolioPreferencesResponse_httpStatus,++    -- ** GetPortfolioSummary+    getPortfolioSummaryResponse_assessmentSummary,+    getPortfolioSummaryResponse_httpStatus,++    -- ** GetRecommendationReportDetails+    getRecommendationReportDetails_id,+    getRecommendationReportDetailsResponse_id,+    getRecommendationReportDetailsResponse_recommendationReportDetails,+    getRecommendationReportDetailsResponse_httpStatus,++    -- ** GetServerDetails+    getServerDetails_maxResults,+    getServerDetails_nextToken,+    getServerDetails_serverId,+    getServerDetailsResponse_associatedApplications,+    getServerDetailsResponse_nextToken,+    getServerDetailsResponse_serverDetail,+    getServerDetailsResponse_httpStatus,++    -- ** GetServerStrategies+    getServerStrategies_serverId,+    getServerStrategiesResponse_serverStrategies,+    getServerStrategiesResponse_httpStatus,++    -- ** ListApplicationComponents+    listApplicationComponents_applicationComponentCriteria,+    listApplicationComponents_filterValue,+    listApplicationComponents_groupIdFilter,+    listApplicationComponents_maxResults,+    listApplicationComponents_nextToken,+    listApplicationComponents_sort,+    listApplicationComponentsResponse_applicationComponentInfos,+    listApplicationComponentsResponse_nextToken,+    listApplicationComponentsResponse_httpStatus,++    -- ** ListCollectors+    listCollectors_maxResults,+    listCollectors_nextToken,+    listCollectorsResponse_collectors,+    listCollectorsResponse_nextToken,+    listCollectorsResponse_httpStatus,++    -- ** ListImportFileTask+    listImportFileTask_maxResults,+    listImportFileTask_nextToken,+    listImportFileTaskResponse_nextToken,+    listImportFileTaskResponse_taskInfos,+    listImportFileTaskResponse_httpStatus,++    -- ** ListServers+    listServers_filterValue,+    listServers_groupIdFilter,+    listServers_maxResults,+    listServers_nextToken,+    listServers_serverCriteria,+    listServers_sort,+    listServersResponse_nextToken,+    listServersResponse_serverInfos,+    listServersResponse_httpStatus,++    -- ** PutPortfolioPreferences+    putPortfolioPreferences_applicationMode,+    putPortfolioPreferences_applicationPreferences,+    putPortfolioPreferences_databasePreferences,+    putPortfolioPreferences_prioritizeBusinessGoals,+    putPortfolioPreferencesResponse_httpStatus,++    -- ** StartAssessment+    startAssessment_assessmentTargets,+    startAssessment_s3bucketForAnalysisData,+    startAssessment_s3bucketForReportData,+    startAssessmentResponse_assessmentId,+    startAssessmentResponse_httpStatus,++    -- ** StartImportFileTask+    startImportFileTask_dataSourceType,+    startImportFileTask_groupId,+    startImportFileTask_s3bucketForReportData,+    startImportFileTask_s3Bucket,+    startImportFileTask_name,+    startImportFileTask_s3key,+    startImportFileTaskResponse_id,+    startImportFileTaskResponse_httpStatus,++    -- ** StartRecommendationReportGeneration+    startRecommendationReportGeneration_groupIdFilter,+    startRecommendationReportGeneration_outputFormat,+    startRecommendationReportGenerationResponse_id,+    startRecommendationReportGenerationResponse_httpStatus,++    -- ** StopAssessment+    stopAssessment_assessmentId,+    stopAssessmentResponse_httpStatus,++    -- ** UpdateApplicationComponentConfig+    updateApplicationComponentConfig_appType,+    updateApplicationComponentConfig_configureOnly,+    updateApplicationComponentConfig_inclusionStatus,+    updateApplicationComponentConfig_secretsManagerKey,+    updateApplicationComponentConfig_sourceCodeList,+    updateApplicationComponentConfig_strategyOption,+    updateApplicationComponentConfig_applicationComponentId,+    updateApplicationComponentConfigResponse_httpStatus,++    -- ** UpdateServerConfig+    updateServerConfig_strategyOption,+    updateServerConfig_serverId,+    updateServerConfigResponse_httpStatus,++    -- * Types++    -- ** AntipatternSeveritySummary+    antipatternSeveritySummary_count,+    antipatternSeveritySummary_severity,++    -- ** AppUnitError+    appUnitError_appUnitErrorCategory,++    -- ** ApplicationComponentDetail+    applicationComponentDetail_analysisStatus,+    applicationComponentDetail_antipatternReportS3Object,+    applicationComponentDetail_antipatternReportStatus,+    applicationComponentDetail_antipatternReportStatusMessage,+    applicationComponentDetail_appType,+    applicationComponentDetail_appUnitError,+    applicationComponentDetail_associatedServerId,+    applicationComponentDetail_databaseConfigDetail,+    applicationComponentDetail_id,+    applicationComponentDetail_inclusionStatus,+    applicationComponentDetail_lastAnalyzedTimestamp,+    applicationComponentDetail_listAntipatternSeveritySummary,+    applicationComponentDetail_moreServerAssociationExists,+    applicationComponentDetail_name,+    applicationComponentDetail_osDriver,+    applicationComponentDetail_osVersion,+    applicationComponentDetail_recommendationSet,+    applicationComponentDetail_resourceSubType,+    applicationComponentDetail_runtimeStatus,+    applicationComponentDetail_runtimeStatusMessage,+    applicationComponentDetail_sourceCodeRepositories,+    applicationComponentDetail_statusMessage,++    -- ** ApplicationComponentStatusSummary+    applicationComponentStatusSummary_count,+    applicationComponentStatusSummary_srcCodeOrDbAnalysisStatus,++    -- ** ApplicationComponentStrategy+    applicationComponentStrategy_isPreferred,+    applicationComponentStrategy_recommendation,+    applicationComponentStrategy_status,++    -- ** ApplicationComponentSummary+    applicationComponentSummary_appType,+    applicationComponentSummary_count,++    -- ** ApplicationPreferences+    applicationPreferences_managementPreference,++    -- ** AssessmentSummary+    assessmentSummary_antipatternReportS3Object,+    assessmentSummary_antipatternReportStatus,+    assessmentSummary_antipatternReportStatusMessage,+    assessmentSummary_lastAnalyzedTimestamp,+    assessmentSummary_listAntipatternSeveritySummary,+    assessmentSummary_listApplicationComponentStatusSummary,+    assessmentSummary_listApplicationComponentStrategySummary,+    assessmentSummary_listApplicationComponentSummary,+    assessmentSummary_listServerStatusSummary,+    assessmentSummary_listServerStrategySummary,+    assessmentSummary_listServerSummary,++    -- ** AssessmentTarget+    assessmentTarget_condition,+    assessmentTarget_name,+    assessmentTarget_values,++    -- ** AssociatedApplication+    associatedApplication_id,+    associatedApplication_name,++    -- ** AwsManagedResources+    awsManagedResources_targetDestination,++    -- ** BusinessGoals+    businessGoals_licenseCostReduction,+    businessGoals_modernizeInfrastructureWithCloudNativeTechnologies,+    businessGoals_reduceOperationalOverheadWithManagedServices,+    businessGoals_speedOfMigration,++    -- ** Collector+    collector_collectorHealth,+    collector_collectorId,+    collector_collectorVersion,+    collector_configurationSummary,+    collector_hostName,+    collector_ipAddress,+    collector_lastActivityTimeStamp,+    collector_registeredTimeStamp,++    -- ** ConfigurationSummary+    configurationSummary_ipAddressBasedRemoteInfoList,+    configurationSummary_pipelineInfoList,+    configurationSummary_remoteSourceCodeAnalysisServerInfo,+    configurationSummary_vcenterBasedRemoteInfoList,+    configurationSummary_versionControlInfoList,++    -- ** DataCollectionDetails+    dataCollectionDetails_completionTime,+    dataCollectionDetails_failed,+    dataCollectionDetails_inProgress,+    dataCollectionDetails_servers,+    dataCollectionDetails_startTime,+    dataCollectionDetails_status,+    dataCollectionDetails_statusMessage,+    dataCollectionDetails_success,++    -- ** DatabaseConfigDetail+    databaseConfigDetail_secretName,++    -- ** DatabaseMigrationPreference+    databaseMigrationPreference_heterogeneous,+    databaseMigrationPreference_homogeneous,+    databaseMigrationPreference_noPreference,++    -- ** DatabasePreferences+    databasePreferences_databaseManagementPreference,+    databasePreferences_databaseMigrationPreference,++    -- ** Group+    group_name,+    group_value,++    -- ** Heterogeneous+    heterogeneous_targetDatabaseEngine,++    -- ** Homogeneous+    homogeneous_targetDatabaseEngine,++    -- ** IPAddressBasedRemoteInfo+    iPAddressBasedRemoteInfo_authType,+    iPAddressBasedRemoteInfo_ipAddressConfigurationTimeStamp,+    iPAddressBasedRemoteInfo_osType,++    -- ** ImportFileTaskInformation+    importFileTaskInformation_completionTime,+    importFileTaskInformation_id,+    importFileTaskInformation_importName,+    importFileTaskInformation_inputS3Bucket,+    importFileTaskInformation_inputS3Key,+    importFileTaskInformation_numberOfRecordsFailed,+    importFileTaskInformation_numberOfRecordsSuccess,+    importFileTaskInformation_startTime,+    importFileTaskInformation_status,+    importFileTaskInformation_statusReportS3Bucket,+    importFileTaskInformation_statusReportS3Key,++    -- ** ManagementPreference+    managementPreference_awsManagedResources,+    managementPreference_noPreference,+    managementPreference_selfManageResources,++    -- ** NetworkInfo+    networkInfo_interfaceName,+    networkInfo_ipAddress,+    networkInfo_macAddress,+    networkInfo_netMask,++    -- ** NoDatabaseMigrationPreference+    noDatabaseMigrationPreference_targetDatabaseEngine,++    -- ** NoManagementPreference+    noManagementPreference_targetDestination,++    -- ** OSInfo+    oSInfo_type,+    oSInfo_version,++    -- ** PipelineInfo+    pipelineInfo_pipelineConfigurationTimeStamp,+    pipelineInfo_pipelineType,++    -- ** PrioritizeBusinessGoals+    prioritizeBusinessGoals_businessGoals,++    -- ** RecommendationReportDetails+    recommendationReportDetails_completionTime,+    recommendationReportDetails_s3Bucket,+    recommendationReportDetails_s3Keys,+    recommendationReportDetails_startTime,+    recommendationReportDetails_status,+    recommendationReportDetails_statusMessage,++    -- ** RecommendationSet+    recommendationSet_strategy,+    recommendationSet_targetDestination,+    recommendationSet_transformationTool,++    -- ** RemoteSourceCodeAnalysisServerInfo+    remoteSourceCodeAnalysisServerInfo_remoteSourceCodeAnalysisServerConfigurationTimestamp,++    -- ** S3Object+    s3Object_s3Bucket,+    s3Object_s3key,++    -- ** SelfManageResources+    selfManageResources_targetDestination,++    -- ** ServerDetail+    serverDetail_antipatternReportS3Object,+    serverDetail_antipatternReportStatus,+    serverDetail_antipatternReportStatusMessage,+    serverDetail_applicationComponentStrategySummary,+    serverDetail_dataCollectionStatus,+    serverDetail_id,+    serverDetail_lastAnalyzedTimestamp,+    serverDetail_listAntipatternSeveritySummary,+    serverDetail_name,+    serverDetail_recommendationSet,+    serverDetail_serverError,+    serverDetail_serverType,+    serverDetail_statusMessage,+    serverDetail_systemInfo,++    -- ** ServerError+    serverError_serverErrorCategory,++    -- ** ServerStatusSummary+    serverStatusSummary_count,+    serverStatusSummary_runTimeAssessmentStatus,++    -- ** ServerStrategy+    serverStrategy_isPreferred,+    serverStrategy_numberOfApplicationComponents,+    serverStrategy_recommendation,+    serverStrategy_status,++    -- ** ServerSummary+    serverSummary_serverOsType,+    serverSummary_count,++    -- ** SourceCode+    sourceCode_location,+    sourceCode_projectName,+    sourceCode_sourceVersion,+    sourceCode_versionControl,++    -- ** SourceCodeRepository+    sourceCodeRepository_branch,+    sourceCodeRepository_projectName,+    sourceCodeRepository_repository,+    sourceCodeRepository_versionControlType,++    -- ** StrategyOption+    strategyOption_isPreferred,+    strategyOption_strategy,+    strategyOption_targetDestination,+    strategyOption_toolName,++    -- ** StrategySummary+    strategySummary_count,+    strategySummary_strategy,++    -- ** SystemInfo+    systemInfo_cpuArchitecture,+    systemInfo_fileSystemType,+    systemInfo_networkInfoList,+    systemInfo_osInfo,++    -- ** TransformationTool+    transformationTool_description,+    transformationTool_name,+    transformationTool_tranformationToolInstallationLink,++    -- ** VcenterBasedRemoteInfo+    vcenterBasedRemoteInfo_osType,+    vcenterBasedRemoteInfo_vcenterConfigurationTimeStamp,++    -- ** VersionControlInfo+    versionControlInfo_versionControlConfigurationTimeStamp,+    versionControlInfo_versionControlType,+  )+where++import Amazonka.MigrationHubStrategy.GetApplicationComponentDetails+import Amazonka.MigrationHubStrategy.GetApplicationComponentStrategies+import Amazonka.MigrationHubStrategy.GetAssessment+import Amazonka.MigrationHubStrategy.GetImportFileTask+import Amazonka.MigrationHubStrategy.GetLatestAssessmentId+import Amazonka.MigrationHubStrategy.GetPortfolioPreferences+import Amazonka.MigrationHubStrategy.GetPortfolioSummary+import Amazonka.MigrationHubStrategy.GetRecommendationReportDetails+import Amazonka.MigrationHubStrategy.GetServerDetails+import Amazonka.MigrationHubStrategy.GetServerStrategies+import Amazonka.MigrationHubStrategy.ListApplicationComponents+import Amazonka.MigrationHubStrategy.ListCollectors+import Amazonka.MigrationHubStrategy.ListImportFileTask+import Amazonka.MigrationHubStrategy.ListServers+import Amazonka.MigrationHubStrategy.PutPortfolioPreferences+import Amazonka.MigrationHubStrategy.StartAssessment+import Amazonka.MigrationHubStrategy.StartImportFileTask+import Amazonka.MigrationHubStrategy.StartRecommendationReportGeneration+import Amazonka.MigrationHubStrategy.StopAssessment+import Amazonka.MigrationHubStrategy.Types.AntipatternSeveritySummary+import Amazonka.MigrationHubStrategy.Types.AppUnitError+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentDetail+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentStatusSummary+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentStrategy+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentSummary+import Amazonka.MigrationHubStrategy.Types.ApplicationPreferences+import Amazonka.MigrationHubStrategy.Types.AssessmentSummary+import Amazonka.MigrationHubStrategy.Types.AssessmentTarget+import Amazonka.MigrationHubStrategy.Types.AssociatedApplication+import Amazonka.MigrationHubStrategy.Types.AwsManagedResources+import Amazonka.MigrationHubStrategy.Types.BusinessGoals+import Amazonka.MigrationHubStrategy.Types.Collector+import Amazonka.MigrationHubStrategy.Types.ConfigurationSummary+import Amazonka.MigrationHubStrategy.Types.DataCollectionDetails+import Amazonka.MigrationHubStrategy.Types.DatabaseConfigDetail+import Amazonka.MigrationHubStrategy.Types.DatabaseMigrationPreference+import Amazonka.MigrationHubStrategy.Types.DatabasePreferences+import Amazonka.MigrationHubStrategy.Types.Group+import Amazonka.MigrationHubStrategy.Types.Heterogeneous+import Amazonka.MigrationHubStrategy.Types.Homogeneous+import Amazonka.MigrationHubStrategy.Types.IPAddressBasedRemoteInfo+import Amazonka.MigrationHubStrategy.Types.ImportFileTaskInformation+import Amazonka.MigrationHubStrategy.Types.ManagementPreference+import Amazonka.MigrationHubStrategy.Types.NetworkInfo+import Amazonka.MigrationHubStrategy.Types.NoDatabaseMigrationPreference+import Amazonka.MigrationHubStrategy.Types.NoManagementPreference+import Amazonka.MigrationHubStrategy.Types.OSInfo+import Amazonka.MigrationHubStrategy.Types.PipelineInfo+import Amazonka.MigrationHubStrategy.Types.PrioritizeBusinessGoals+import Amazonka.MigrationHubStrategy.Types.RecommendationReportDetails+import Amazonka.MigrationHubStrategy.Types.RecommendationSet+import Amazonka.MigrationHubStrategy.Types.RemoteSourceCodeAnalysisServerInfo+import Amazonka.MigrationHubStrategy.Types.S3Object+import Amazonka.MigrationHubStrategy.Types.SelfManageResources+import Amazonka.MigrationHubStrategy.Types.ServerDetail+import Amazonka.MigrationHubStrategy.Types.ServerError+import Amazonka.MigrationHubStrategy.Types.ServerStatusSummary+import Amazonka.MigrationHubStrategy.Types.ServerStrategy+import Amazonka.MigrationHubStrategy.Types.ServerSummary+import Amazonka.MigrationHubStrategy.Types.SourceCode+import Amazonka.MigrationHubStrategy.Types.SourceCodeRepository+import Amazonka.MigrationHubStrategy.Types.StrategyOption+import Amazonka.MigrationHubStrategy.Types.StrategySummary+import Amazonka.MigrationHubStrategy.Types.SystemInfo+import Amazonka.MigrationHubStrategy.Types.TransformationTool+import Amazonka.MigrationHubStrategy.Types.VcenterBasedRemoteInfo+import Amazonka.MigrationHubStrategy.Types.VersionControlInfo+import Amazonka.MigrationHubStrategy.UpdateApplicationComponentConfig+import Amazonka.MigrationHubStrategy.UpdateServerConfig
+ gen/Amazonka/MigrationHubStrategy/ListApplicationComponents.hs view
@@ -0,0 +1,309 @@+{-# 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.MigrationHubStrategy.ListApplicationComponents+-- 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 the application components (processes).+--+-- This operation returns paginated results.+module Amazonka.MigrationHubStrategy.ListApplicationComponents+  ( -- * Creating a Request+    ListApplicationComponents (..),+    newListApplicationComponents,++    -- * Request Lenses+    listApplicationComponents_applicationComponentCriteria,+    listApplicationComponents_filterValue,+    listApplicationComponents_groupIdFilter,+    listApplicationComponents_maxResults,+    listApplicationComponents_nextToken,+    listApplicationComponents_sort,++    -- * Destructuring the Response+    ListApplicationComponentsResponse (..),+    newListApplicationComponentsResponse,++    -- * Response Lenses+    listApplicationComponentsResponse_applicationComponentInfos,+    listApplicationComponentsResponse_nextToken,+    listApplicationComponentsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListApplicationComponents' smart constructor.+data ListApplicationComponents = ListApplicationComponents'+  { -- | Criteria for filtering the list of application components.+    applicationComponentCriteria :: Prelude.Maybe ApplicationComponentCriteria,+    -- | Specify the value based on the application component criteria type. For+    -- example, if @applicationComponentCriteria@ is set to @SERVER_ID@ and+    -- @filterValue@ is set to @server1@, then ListApplicationComponents+    -- returns all the application components running on server1.+    filterValue :: Prelude.Maybe Prelude.Text,+    -- | The group ID specified in to filter on.+    groupIdFilter :: Prelude.Maybe [Group],+    -- | The maximum number of items to include in the response. The maximum+    -- value is 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | The token from a previous call that you use to retrieve the next set of+    -- results. For example, if a previous call to this action returned 100+    -- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+    -- results along with a token. You then use the returned token to retrieve+    -- the next set of 10.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether to sort by ascending (@ASC@) or descending (@DESC@)+    -- order.+    sort :: Prelude.Maybe SortOrder+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListApplicationComponents' 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:+--+-- 'applicationComponentCriteria', 'listApplicationComponents_applicationComponentCriteria' - Criteria for filtering the list of application components.+--+-- 'filterValue', 'listApplicationComponents_filterValue' - Specify the value based on the application component criteria type. For+-- example, if @applicationComponentCriteria@ is set to @SERVER_ID@ and+-- @filterValue@ is set to @server1@, then ListApplicationComponents+-- returns all the application components running on server1.+--+-- 'groupIdFilter', 'listApplicationComponents_groupIdFilter' - The group ID specified in to filter on.+--+-- 'maxResults', 'listApplicationComponents_maxResults' - The maximum number of items to include in the response. The maximum+-- value is 100.+--+-- 'nextToken', 'listApplicationComponents_nextToken' - The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+--+-- 'sort', 'listApplicationComponents_sort' - Specifies whether to sort by ascending (@ASC@) or descending (@DESC@)+-- order.+newListApplicationComponents ::+  ListApplicationComponents+newListApplicationComponents =+  ListApplicationComponents'+    { applicationComponentCriteria =+        Prelude.Nothing,+      filterValue = Prelude.Nothing,+      groupIdFilter = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      sort = Prelude.Nothing+    }++-- | Criteria for filtering the list of application components.+listApplicationComponents_applicationComponentCriteria :: Lens.Lens' ListApplicationComponents (Prelude.Maybe ApplicationComponentCriteria)+listApplicationComponents_applicationComponentCriteria = Lens.lens (\ListApplicationComponents' {applicationComponentCriteria} -> applicationComponentCriteria) (\s@ListApplicationComponents' {} a -> s {applicationComponentCriteria = a} :: ListApplicationComponents)++-- | Specify the value based on the application component criteria type. For+-- example, if @applicationComponentCriteria@ is set to @SERVER_ID@ and+-- @filterValue@ is set to @server1@, then ListApplicationComponents+-- returns all the application components running on server1.+listApplicationComponents_filterValue :: Lens.Lens' ListApplicationComponents (Prelude.Maybe Prelude.Text)+listApplicationComponents_filterValue = Lens.lens (\ListApplicationComponents' {filterValue} -> filterValue) (\s@ListApplicationComponents' {} a -> s {filterValue = a} :: ListApplicationComponents)++-- | The group ID specified in to filter on.+listApplicationComponents_groupIdFilter :: Lens.Lens' ListApplicationComponents (Prelude.Maybe [Group])+listApplicationComponents_groupIdFilter = Lens.lens (\ListApplicationComponents' {groupIdFilter} -> groupIdFilter) (\s@ListApplicationComponents' {} a -> s {groupIdFilter = a} :: ListApplicationComponents) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of items to include in the response. The maximum+-- value is 100.+listApplicationComponents_maxResults :: Lens.Lens' ListApplicationComponents (Prelude.Maybe Prelude.Int)+listApplicationComponents_maxResults = Lens.lens (\ListApplicationComponents' {maxResults} -> maxResults) (\s@ListApplicationComponents' {} a -> s {maxResults = a} :: ListApplicationComponents)++-- | The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+listApplicationComponents_nextToken :: Lens.Lens' ListApplicationComponents (Prelude.Maybe Prelude.Text)+listApplicationComponents_nextToken = Lens.lens (\ListApplicationComponents' {nextToken} -> nextToken) (\s@ListApplicationComponents' {} a -> s {nextToken = a} :: ListApplicationComponents)++-- | Specifies whether to sort by ascending (@ASC@) or descending (@DESC@)+-- order.+listApplicationComponents_sort :: Lens.Lens' ListApplicationComponents (Prelude.Maybe SortOrder)+listApplicationComponents_sort = Lens.lens (\ListApplicationComponents' {sort} -> sort) (\s@ListApplicationComponents' {} a -> s {sort = a} :: ListApplicationComponents)++instance Core.AWSPager ListApplicationComponents where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listApplicationComponentsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listApplicationComponentsResponse_applicationComponentInfos+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listApplicationComponents_nextToken+          Lens..~ rs+          Lens.^? listApplicationComponentsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListApplicationComponents where+  type+    AWSResponse ListApplicationComponents =+      ListApplicationComponentsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListApplicationComponentsResponse'+            Prelude.<$> ( x+                            Data..?> "applicationComponentInfos"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListApplicationComponents where+  hashWithSalt _salt ListApplicationComponents' {..} =+    _salt+      `Prelude.hashWithSalt` applicationComponentCriteria+      `Prelude.hashWithSalt` filterValue+      `Prelude.hashWithSalt` groupIdFilter+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` sort++instance Prelude.NFData ListApplicationComponents where+  rnf ListApplicationComponents' {..} =+    Prelude.rnf applicationComponentCriteria+      `Prelude.seq` Prelude.rnf filterValue+      `Prelude.seq` Prelude.rnf groupIdFilter+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf sort++instance Data.ToHeaders ListApplicationComponents where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListApplicationComponents where+  toJSON ListApplicationComponents' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("applicationComponentCriteria" Data..=)+              Prelude.<$> applicationComponentCriteria,+            ("filterValue" Data..=) Prelude.<$> filterValue,+            ("groupIdFilter" Data..=) Prelude.<$> groupIdFilter,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            ("sort" Data..=) Prelude.<$> sort+          ]+      )++instance Data.ToPath ListApplicationComponents where+  toPath = Prelude.const "/list-applicationcomponents"++instance Data.ToQuery ListApplicationComponents where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListApplicationComponentsResponse' smart constructor.+data ListApplicationComponentsResponse = ListApplicationComponentsResponse'+  { -- | The list of application components with detailed information about each+    -- component.+    applicationComponentInfos :: Prelude.Maybe [ApplicationComponentDetail],+    -- | The token you use to retrieve the next set of results, or null if there+    -- are no more results.+    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 'ListApplicationComponentsResponse' 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:+--+-- 'applicationComponentInfos', 'listApplicationComponentsResponse_applicationComponentInfos' - The list of application components with detailed information about each+-- component.+--+-- 'nextToken', 'listApplicationComponentsResponse_nextToken' - The token you use to retrieve the next set of results, or null if there+-- are no more results.+--+-- 'httpStatus', 'listApplicationComponentsResponse_httpStatus' - The response's http status code.+newListApplicationComponentsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListApplicationComponentsResponse+newListApplicationComponentsResponse pHttpStatus_ =+  ListApplicationComponentsResponse'+    { applicationComponentInfos =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The list of application components with detailed information about each+-- component.+listApplicationComponentsResponse_applicationComponentInfos :: Lens.Lens' ListApplicationComponentsResponse (Prelude.Maybe [ApplicationComponentDetail])+listApplicationComponentsResponse_applicationComponentInfos = Lens.lens (\ListApplicationComponentsResponse' {applicationComponentInfos} -> applicationComponentInfos) (\s@ListApplicationComponentsResponse' {} a -> s {applicationComponentInfos = a} :: ListApplicationComponentsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token you use to retrieve the next set of results, or null if there+-- are no more results.+listApplicationComponentsResponse_nextToken :: Lens.Lens' ListApplicationComponentsResponse (Prelude.Maybe Prelude.Text)+listApplicationComponentsResponse_nextToken = Lens.lens (\ListApplicationComponentsResponse' {nextToken} -> nextToken) (\s@ListApplicationComponentsResponse' {} a -> s {nextToken = a} :: ListApplicationComponentsResponse)++-- | The response's http status code.+listApplicationComponentsResponse_httpStatus :: Lens.Lens' ListApplicationComponentsResponse Prelude.Int+listApplicationComponentsResponse_httpStatus = Lens.lens (\ListApplicationComponentsResponse' {httpStatus} -> httpStatus) (\s@ListApplicationComponentsResponse' {} a -> s {httpStatus = a} :: ListApplicationComponentsResponse)++instance+  Prelude.NFData+    ListApplicationComponentsResponse+  where+  rnf ListApplicationComponentsResponse' {..} =+    Prelude.rnf applicationComponentInfos+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/ListCollectors.hs view
@@ -0,0 +1,229 @@+{-# 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.MigrationHubStrategy.ListCollectors+-- 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 the installed collectors.+--+-- This operation returns paginated results.+module Amazonka.MigrationHubStrategy.ListCollectors+  ( -- * Creating a Request+    ListCollectors (..),+    newListCollectors,++    -- * Request Lenses+    listCollectors_maxResults,+    listCollectors_nextToken,++    -- * Destructuring the Response+    ListCollectorsResponse (..),+    newListCollectorsResponse,++    -- * Response Lenses+    listCollectorsResponse_collectors,+    listCollectorsResponse_nextToken,+    listCollectorsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListCollectors' smart constructor.+data ListCollectors = ListCollectors'+  { -- | The maximum number of items to include in the response. The maximum+    -- value is 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | The token from a previous call that you use to retrieve the next set of+    -- results. For example, if a previous call to this action returned 100+    -- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+    -- results along with a token. You then use the returned token to retrieve+    -- the next set of 10.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListCollectors' 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', 'listCollectors_maxResults' - The maximum number of items to include in the response. The maximum+-- value is 100.+--+-- 'nextToken', 'listCollectors_nextToken' - The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+newListCollectors ::+  ListCollectors+newListCollectors =+  ListCollectors'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of items to include in the response. The maximum+-- value is 100.+listCollectors_maxResults :: Lens.Lens' ListCollectors (Prelude.Maybe Prelude.Int)+listCollectors_maxResults = Lens.lens (\ListCollectors' {maxResults} -> maxResults) (\s@ListCollectors' {} a -> s {maxResults = a} :: ListCollectors)++-- | The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+listCollectors_nextToken :: Lens.Lens' ListCollectors (Prelude.Maybe Prelude.Text)+listCollectors_nextToken = Lens.lens (\ListCollectors' {nextToken} -> nextToken) (\s@ListCollectors' {} a -> s {nextToken = a} :: ListCollectors)++instance Core.AWSPager ListCollectors where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listCollectorsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listCollectorsResponse_collectors+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listCollectors_nextToken+          Lens..~ rs+          Lens.^? listCollectorsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListCollectors where+  type+    AWSResponse ListCollectors =+      ListCollectorsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListCollectorsResponse'+            Prelude.<$> (x Data..?> "Collectors" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListCollectors where+  hashWithSalt _salt ListCollectors' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListCollectors where+  rnf ListCollectors' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListCollectors where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListCollectors where+  toPath = Prelude.const "/list-collectors"++instance Data.ToQuery ListCollectors where+  toQuery ListCollectors' {..} =+    Prelude.mconcat+      [ "maxResults" Data.=: maxResults,+        "nextToken" Data.=: nextToken+      ]++-- | /See:/ 'newListCollectorsResponse' smart constructor.+data ListCollectorsResponse = ListCollectorsResponse'+  { -- | The list of all the installed collectors.+    collectors :: Prelude.Maybe [Collector],+    -- | The token you use to retrieve the next set of results, or null if there+    -- are no more results.+    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 'ListCollectorsResponse' 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:+--+-- 'collectors', 'listCollectorsResponse_collectors' - The list of all the installed collectors.+--+-- 'nextToken', 'listCollectorsResponse_nextToken' - The token you use to retrieve the next set of results, or null if there+-- are no more results.+--+-- 'httpStatus', 'listCollectorsResponse_httpStatus' - The response's http status code.+newListCollectorsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListCollectorsResponse+newListCollectorsResponse pHttpStatus_ =+  ListCollectorsResponse'+    { collectors =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The list of all the installed collectors.+listCollectorsResponse_collectors :: Lens.Lens' ListCollectorsResponse (Prelude.Maybe [Collector])+listCollectorsResponse_collectors = Lens.lens (\ListCollectorsResponse' {collectors} -> collectors) (\s@ListCollectorsResponse' {} a -> s {collectors = a} :: ListCollectorsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token you use to retrieve the next set of results, or null if there+-- are no more results.+listCollectorsResponse_nextToken :: Lens.Lens' ListCollectorsResponse (Prelude.Maybe Prelude.Text)+listCollectorsResponse_nextToken = Lens.lens (\ListCollectorsResponse' {nextToken} -> nextToken) (\s@ListCollectorsResponse' {} a -> s {nextToken = a} :: ListCollectorsResponse)++-- | The response's http status code.+listCollectorsResponse_httpStatus :: Lens.Lens' ListCollectorsResponse Prelude.Int+listCollectorsResponse_httpStatus = Lens.lens (\ListCollectorsResponse' {httpStatus} -> httpStatus) (\s@ListCollectorsResponse' {} a -> s {httpStatus = a} :: ListCollectorsResponse)++instance Prelude.NFData ListCollectorsResponse where+  rnf ListCollectorsResponse' {..} =+    Prelude.rnf collectors+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/ListImportFileTask.hs view
@@ -0,0 +1,226 @@+{-# 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.MigrationHubStrategy.ListImportFileTask+-- 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 the imports performed.+--+-- This operation returns paginated results.+module Amazonka.MigrationHubStrategy.ListImportFileTask+  ( -- * Creating a Request+    ListImportFileTask (..),+    newListImportFileTask,++    -- * Request Lenses+    listImportFileTask_maxResults,+    listImportFileTask_nextToken,++    -- * Destructuring the Response+    ListImportFileTaskResponse (..),+    newListImportFileTaskResponse,++    -- * Response Lenses+    listImportFileTaskResponse_nextToken,+    listImportFileTaskResponse_taskInfos,+    listImportFileTaskResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListImportFileTask' smart constructor.+data ListImportFileTask = ListImportFileTask'+  { -- | The total number of items to return. The maximum value is 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | The token from a previous call that you use to retrieve the next set of+    -- results. For example, if a previous call to this action returned 100+    -- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+    -- results along with a token. You then use the returned token to retrieve+    -- the next set of 10.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListImportFileTask' 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', 'listImportFileTask_maxResults' - The total number of items to return. The maximum value is 100.+--+-- 'nextToken', 'listImportFileTask_nextToken' - The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+newListImportFileTask ::+  ListImportFileTask+newListImportFileTask =+  ListImportFileTask'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The total number of items to return. The maximum value is 100.+listImportFileTask_maxResults :: Lens.Lens' ListImportFileTask (Prelude.Maybe Prelude.Int)+listImportFileTask_maxResults = Lens.lens (\ListImportFileTask' {maxResults} -> maxResults) (\s@ListImportFileTask' {} a -> s {maxResults = a} :: ListImportFileTask)++-- | The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+listImportFileTask_nextToken :: Lens.Lens' ListImportFileTask (Prelude.Maybe Prelude.Text)+listImportFileTask_nextToken = Lens.lens (\ListImportFileTask' {nextToken} -> nextToken) (\s@ListImportFileTask' {} a -> s {nextToken = a} :: ListImportFileTask)++instance Core.AWSPager ListImportFileTask where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listImportFileTaskResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listImportFileTaskResponse_taskInfos+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listImportFileTask_nextToken+          Lens..~ rs+          Lens.^? listImportFileTaskResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListImportFileTask where+  type+    AWSResponse ListImportFileTask =+      ListImportFileTaskResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListImportFileTaskResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "taskInfos" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListImportFileTask where+  hashWithSalt _salt ListImportFileTask' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListImportFileTask where+  rnf ListImportFileTask' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListImportFileTask where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListImportFileTask where+  toPath = Prelude.const "/list-import-file-task"++instance Data.ToQuery ListImportFileTask where+  toQuery ListImportFileTask' {..} =+    Prelude.mconcat+      [ "maxResults" Data.=: maxResults,+        "nextToken" Data.=: nextToken+      ]++-- | /See:/ 'newListImportFileTaskResponse' smart constructor.+data ListImportFileTaskResponse = ListImportFileTaskResponse'+  { -- | The token you use to retrieve the next set of results, or null if there+    -- are no more results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Lists information about the files you import.+    taskInfos :: Prelude.Maybe [ImportFileTaskInformation],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListImportFileTaskResponse' 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', 'listImportFileTaskResponse_nextToken' - The token you use to retrieve the next set of results, or null if there+-- are no more results.+--+-- 'taskInfos', 'listImportFileTaskResponse_taskInfos' - Lists information about the files you import.+--+-- 'httpStatus', 'listImportFileTaskResponse_httpStatus' - The response's http status code.+newListImportFileTaskResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListImportFileTaskResponse+newListImportFileTaskResponse pHttpStatus_ =+  ListImportFileTaskResponse'+    { nextToken =+        Prelude.Nothing,+      taskInfos = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token you use to retrieve the next set of results, or null if there+-- are no more results.+listImportFileTaskResponse_nextToken :: Lens.Lens' ListImportFileTaskResponse (Prelude.Maybe Prelude.Text)+listImportFileTaskResponse_nextToken = Lens.lens (\ListImportFileTaskResponse' {nextToken} -> nextToken) (\s@ListImportFileTaskResponse' {} a -> s {nextToken = a} :: ListImportFileTaskResponse)++-- | Lists information about the files you import.+listImportFileTaskResponse_taskInfos :: Lens.Lens' ListImportFileTaskResponse (Prelude.Maybe [ImportFileTaskInformation])+listImportFileTaskResponse_taskInfos = Lens.lens (\ListImportFileTaskResponse' {taskInfos} -> taskInfos) (\s@ListImportFileTaskResponse' {} a -> s {taskInfos = a} :: ListImportFileTaskResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listImportFileTaskResponse_httpStatus :: Lens.Lens' ListImportFileTaskResponse Prelude.Int+listImportFileTaskResponse_httpStatus = Lens.lens (\ListImportFileTaskResponse' {httpStatus} -> httpStatus) (\s@ListImportFileTaskResponse' {} a -> s {httpStatus = a} :: ListImportFileTaskResponse)++instance Prelude.NFData ListImportFileTaskResponse where+  rnf ListImportFileTaskResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf taskInfos+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/ListServers.hs view
@@ -0,0 +1,296 @@+{-# 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.MigrationHubStrategy.ListServers+-- 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 all the servers.+--+-- This operation returns paginated results.+module Amazonka.MigrationHubStrategy.ListServers+  ( -- * Creating a Request+    ListServers (..),+    newListServers,++    -- * Request Lenses+    listServers_filterValue,+    listServers_groupIdFilter,+    listServers_maxResults,+    listServers_nextToken,+    listServers_serverCriteria,+    listServers_sort,++    -- * Destructuring the Response+    ListServersResponse (..),+    newListServersResponse,++    -- * Response Lenses+    listServersResponse_nextToken,+    listServersResponse_serverInfos,+    listServersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServers' smart constructor.+data ListServers = ListServers'+  { -- | Specifies the filter value, which is based on the type of server+    -- criteria. For example, if @serverCriteria@ is @OS_NAME@, and the+    -- @filterValue@ is equal to @WindowsServer@, then @ListServers@ returns+    -- all of the servers matching the OS name @WindowsServer@.+    filterValue :: Prelude.Maybe Prelude.Text,+    -- | Specifies the group ID to filter on.+    groupIdFilter :: Prelude.Maybe [Group],+    -- | The maximum number of items to include in the response. The maximum+    -- value is 100.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | The token from a previous call that you use to retrieve the next set of+    -- results. For example, if a previous call to this action returned 100+    -- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+    -- results along with a token. You then use the returned token to retrieve+    -- the next set of 10.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Criteria for filtering servers.+    serverCriteria :: Prelude.Maybe ServerCriteria,+    -- | Specifies whether to sort by ascending (@ASC@) or descending (@DESC@)+    -- order.+    sort :: Prelude.Maybe SortOrder+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServers' 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:+--+-- 'filterValue', 'listServers_filterValue' - Specifies the filter value, which is based on the type of server+-- criteria. For example, if @serverCriteria@ is @OS_NAME@, and the+-- @filterValue@ is equal to @WindowsServer@, then @ListServers@ returns+-- all of the servers matching the OS name @WindowsServer@.+--+-- 'groupIdFilter', 'listServers_groupIdFilter' - Specifies the group ID to filter on.+--+-- 'maxResults', 'listServers_maxResults' - The maximum number of items to include in the response. The maximum+-- value is 100.+--+-- 'nextToken', 'listServers_nextToken' - The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+--+-- 'serverCriteria', 'listServers_serverCriteria' - Criteria for filtering servers.+--+-- 'sort', 'listServers_sort' - Specifies whether to sort by ascending (@ASC@) or descending (@DESC@)+-- order.+newListServers ::+  ListServers+newListServers =+  ListServers'+    { filterValue = Prelude.Nothing,+      groupIdFilter = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serverCriteria = Prelude.Nothing,+      sort = Prelude.Nothing+    }++-- | Specifies the filter value, which is based on the type of server+-- criteria. For example, if @serverCriteria@ is @OS_NAME@, and the+-- @filterValue@ is equal to @WindowsServer@, then @ListServers@ returns+-- all of the servers matching the OS name @WindowsServer@.+listServers_filterValue :: Lens.Lens' ListServers (Prelude.Maybe Prelude.Text)+listServers_filterValue = Lens.lens (\ListServers' {filterValue} -> filterValue) (\s@ListServers' {} a -> s {filterValue = a} :: ListServers)++-- | Specifies the group ID to filter on.+listServers_groupIdFilter :: Lens.Lens' ListServers (Prelude.Maybe [Group])+listServers_groupIdFilter = Lens.lens (\ListServers' {groupIdFilter} -> groupIdFilter) (\s@ListServers' {} a -> s {groupIdFilter = a} :: ListServers) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of items to include in the response. The maximum+-- value is 100.+listServers_maxResults :: Lens.Lens' ListServers (Prelude.Maybe Prelude.Int)+listServers_maxResults = Lens.lens (\ListServers' {maxResults} -> maxResults) (\s@ListServers' {} a -> s {maxResults = a} :: ListServers)++-- | The token from a previous call that you use to retrieve the next set of+-- results. For example, if a previous call to this action returned 100+-- items, but you set @maxResults@ to 10. You\'ll receive a set of 10+-- results along with a token. You then use the returned token to retrieve+-- the next set of 10.+listServers_nextToken :: Lens.Lens' ListServers (Prelude.Maybe Prelude.Text)+listServers_nextToken = Lens.lens (\ListServers' {nextToken} -> nextToken) (\s@ListServers' {} a -> s {nextToken = a} :: ListServers)++-- | Criteria for filtering servers.+listServers_serverCriteria :: Lens.Lens' ListServers (Prelude.Maybe ServerCriteria)+listServers_serverCriteria = Lens.lens (\ListServers' {serverCriteria} -> serverCriteria) (\s@ListServers' {} a -> s {serverCriteria = a} :: ListServers)++-- | Specifies whether to sort by ascending (@ASC@) or descending (@DESC@)+-- order.+listServers_sort :: Lens.Lens' ListServers (Prelude.Maybe SortOrder)+listServers_sort = Lens.lens (\ListServers' {sort} -> sort) (\s@ListServers' {} a -> s {sort = a} :: ListServers)++instance Core.AWSPager ListServers where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listServersResponse_serverInfos+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServers_nextToken+          Lens..~ rs+          Lens.^? listServersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListServers where+  type AWSResponse ListServers = ListServersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServersResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (x Data..?> "serverInfos" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListServers where+  hashWithSalt _salt ListServers' {..} =+    _salt+      `Prelude.hashWithSalt` filterValue+      `Prelude.hashWithSalt` groupIdFilter+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serverCriteria+      `Prelude.hashWithSalt` sort++instance Prelude.NFData ListServers where+  rnf ListServers' {..} =+    Prelude.rnf filterValue+      `Prelude.seq` Prelude.rnf groupIdFilter+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serverCriteria+      `Prelude.seq` Prelude.rnf sort++instance Data.ToHeaders ListServers where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListServers where+  toJSON ListServers' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("filterValue" Data..=) Prelude.<$> filterValue,+            ("groupIdFilter" Data..=) Prelude.<$> groupIdFilter,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            ("serverCriteria" Data..=)+              Prelude.<$> serverCriteria,+            ("sort" Data..=) Prelude.<$> sort+          ]+      )++instance Data.ToPath ListServers where+  toPath = Prelude.const "/list-servers"++instance Data.ToQuery ListServers where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServersResponse' smart constructor.+data ListServersResponse = ListServersResponse'+  { -- | The token you use to retrieve the next set of results, or null if there+    -- are no more results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The list of servers with detailed information about each server.+    serverInfos :: Prelude.Maybe [ServerDetail],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServersResponse' 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', 'listServersResponse_nextToken' - The token you use to retrieve the next set of results, or null if there+-- are no more results.+--+-- 'serverInfos', 'listServersResponse_serverInfos' - The list of servers with detailed information about each server.+--+-- 'httpStatus', 'listServersResponse_httpStatus' - The response's http status code.+newListServersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServersResponse+newListServersResponse pHttpStatus_ =+  ListServersResponse'+    { nextToken = Prelude.Nothing,+      serverInfos = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token you use to retrieve the next set of results, or null if there+-- are no more results.+listServersResponse_nextToken :: Lens.Lens' ListServersResponse (Prelude.Maybe Prelude.Text)+listServersResponse_nextToken = Lens.lens (\ListServersResponse' {nextToken} -> nextToken) (\s@ListServersResponse' {} a -> s {nextToken = a} :: ListServersResponse)++-- | The list of servers with detailed information about each server.+listServersResponse_serverInfos :: Lens.Lens' ListServersResponse (Prelude.Maybe [ServerDetail])+listServersResponse_serverInfos = Lens.lens (\ListServersResponse' {serverInfos} -> serverInfos) (\s@ListServersResponse' {} a -> s {serverInfos = a} :: ListServersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listServersResponse_httpStatus :: Lens.Lens' ListServersResponse Prelude.Int+listServersResponse_httpStatus = Lens.lens (\ListServersResponse' {httpStatus} -> httpStatus) (\s@ListServersResponse' {} a -> s {httpStatus = a} :: ListServersResponse)++instance Prelude.NFData ListServersResponse where+  rnf ListServersResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serverInfos+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/PutPortfolioPreferences.hs view
@@ -0,0 +1,202 @@+{-# 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.MigrationHubStrategy.PutPortfolioPreferences+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Saves the specified migration and modernization preferences.+module Amazonka.MigrationHubStrategy.PutPortfolioPreferences+  ( -- * Creating a Request+    PutPortfolioPreferences (..),+    newPutPortfolioPreferences,++    -- * Request Lenses+    putPortfolioPreferences_applicationMode,+    putPortfolioPreferences_applicationPreferences,+    putPortfolioPreferences_databasePreferences,+    putPortfolioPreferences_prioritizeBusinessGoals,++    -- * Destructuring the Response+    PutPortfolioPreferencesResponse (..),+    newPutPortfolioPreferencesResponse,++    -- * Response Lenses+    putPortfolioPreferencesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newPutPortfolioPreferences' smart constructor.+data PutPortfolioPreferences = PutPortfolioPreferences'+  { -- | The classification for application component types.+    applicationMode :: Prelude.Maybe ApplicationMode,+    -- | The transformation preferences for non-database applications.+    applicationPreferences :: Prelude.Maybe ApplicationPreferences,+    -- | The transformation preferences for database applications.+    databasePreferences :: Prelude.Maybe DatabasePreferences,+    -- | The rank of the business goals based on priority.+    prioritizeBusinessGoals :: Prelude.Maybe PrioritizeBusinessGoals+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutPortfolioPreferences' 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:+--+-- 'applicationMode', 'putPortfolioPreferences_applicationMode' - The classification for application component types.+--+-- 'applicationPreferences', 'putPortfolioPreferences_applicationPreferences' - The transformation preferences for non-database applications.+--+-- 'databasePreferences', 'putPortfolioPreferences_databasePreferences' - The transformation preferences for database applications.+--+-- 'prioritizeBusinessGoals', 'putPortfolioPreferences_prioritizeBusinessGoals' - The rank of the business goals based on priority.+newPutPortfolioPreferences ::+  PutPortfolioPreferences+newPutPortfolioPreferences =+  PutPortfolioPreferences'+    { applicationMode =+        Prelude.Nothing,+      applicationPreferences = Prelude.Nothing,+      databasePreferences = Prelude.Nothing,+      prioritizeBusinessGoals = Prelude.Nothing+    }++-- | The classification for application component types.+putPortfolioPreferences_applicationMode :: Lens.Lens' PutPortfolioPreferences (Prelude.Maybe ApplicationMode)+putPortfolioPreferences_applicationMode = Lens.lens (\PutPortfolioPreferences' {applicationMode} -> applicationMode) (\s@PutPortfolioPreferences' {} a -> s {applicationMode = a} :: PutPortfolioPreferences)++-- | The transformation preferences for non-database applications.+putPortfolioPreferences_applicationPreferences :: Lens.Lens' PutPortfolioPreferences (Prelude.Maybe ApplicationPreferences)+putPortfolioPreferences_applicationPreferences = Lens.lens (\PutPortfolioPreferences' {applicationPreferences} -> applicationPreferences) (\s@PutPortfolioPreferences' {} a -> s {applicationPreferences = a} :: PutPortfolioPreferences)++-- | The transformation preferences for database applications.+putPortfolioPreferences_databasePreferences :: Lens.Lens' PutPortfolioPreferences (Prelude.Maybe DatabasePreferences)+putPortfolioPreferences_databasePreferences = Lens.lens (\PutPortfolioPreferences' {databasePreferences} -> databasePreferences) (\s@PutPortfolioPreferences' {} a -> s {databasePreferences = a} :: PutPortfolioPreferences)++-- | The rank of the business goals based on priority.+putPortfolioPreferences_prioritizeBusinessGoals :: Lens.Lens' PutPortfolioPreferences (Prelude.Maybe PrioritizeBusinessGoals)+putPortfolioPreferences_prioritizeBusinessGoals = Lens.lens (\PutPortfolioPreferences' {prioritizeBusinessGoals} -> prioritizeBusinessGoals) (\s@PutPortfolioPreferences' {} a -> s {prioritizeBusinessGoals = a} :: PutPortfolioPreferences)++instance Core.AWSRequest PutPortfolioPreferences where+  type+    AWSResponse PutPortfolioPreferences =+      PutPortfolioPreferencesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          PutPortfolioPreferencesResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutPortfolioPreferences where+  hashWithSalt _salt PutPortfolioPreferences' {..} =+    _salt+      `Prelude.hashWithSalt` applicationMode+      `Prelude.hashWithSalt` applicationPreferences+      `Prelude.hashWithSalt` databasePreferences+      `Prelude.hashWithSalt` prioritizeBusinessGoals++instance Prelude.NFData PutPortfolioPreferences where+  rnf PutPortfolioPreferences' {..} =+    Prelude.rnf applicationMode+      `Prelude.seq` Prelude.rnf applicationPreferences+      `Prelude.seq` Prelude.rnf databasePreferences+      `Prelude.seq` Prelude.rnf prioritizeBusinessGoals++instance Data.ToHeaders PutPortfolioPreferences where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PutPortfolioPreferences where+  toJSON PutPortfolioPreferences' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("applicationMode" Data..=)+              Prelude.<$> applicationMode,+            ("applicationPreferences" Data..=)+              Prelude.<$> applicationPreferences,+            ("databasePreferences" Data..=)+              Prelude.<$> databasePreferences,+            ("prioritizeBusinessGoals" Data..=)+              Prelude.<$> prioritizeBusinessGoals+          ]+      )++instance Data.ToPath PutPortfolioPreferences where+  toPath = Prelude.const "/put-portfolio-preferences"++instance Data.ToQuery PutPortfolioPreferences where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutPortfolioPreferencesResponse' smart constructor.+data PutPortfolioPreferencesResponse = PutPortfolioPreferencesResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutPortfolioPreferencesResponse' 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', 'putPortfolioPreferencesResponse_httpStatus' - The response's http status code.+newPutPortfolioPreferencesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutPortfolioPreferencesResponse+newPutPortfolioPreferencesResponse pHttpStatus_ =+  PutPortfolioPreferencesResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+putPortfolioPreferencesResponse_httpStatus :: Lens.Lens' PutPortfolioPreferencesResponse Prelude.Int+putPortfolioPreferencesResponse_httpStatus = Lens.lens (\PutPortfolioPreferencesResponse' {httpStatus} -> httpStatus) (\s@PutPortfolioPreferencesResponse' {} a -> s {httpStatus = a} :: PutPortfolioPreferencesResponse)++instance+  Prelude.NFData+    PutPortfolioPreferencesResponse+  where+  rnf PutPortfolioPreferencesResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/StartAssessment.hs view
@@ -0,0 +1,203 @@+{-# 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.MigrationHubStrategy.StartAssessment+-- 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 the assessment of an on-premises environment.+module Amazonka.MigrationHubStrategy.StartAssessment+  ( -- * Creating a Request+    StartAssessment (..),+    newStartAssessment,++    -- * Request Lenses+    startAssessment_assessmentTargets,+    startAssessment_s3bucketForAnalysisData,+    startAssessment_s3bucketForReportData,++    -- * Destructuring the Response+    StartAssessmentResponse (..),+    newStartAssessmentResponse,++    -- * Response Lenses+    startAssessmentResponse_assessmentId,+    startAssessmentResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartAssessment' smart constructor.+data StartAssessment = StartAssessment'+  { -- | List of criteria for assessment.+    assessmentTargets :: Prelude.Maybe [AssessmentTarget],+    -- | The S3 bucket used by the collectors to send analysis data to the+    -- service. The bucket name must begin with @migrationhub-strategy-@.+    s3bucketForAnalysisData :: Prelude.Maybe Prelude.Text,+    -- | The S3 bucket where all the reports generated by the service are stored.+    -- The bucket name must begin with @migrationhub-strategy-@.+    s3bucketForReportData :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartAssessment' 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:+--+-- 'assessmentTargets', 'startAssessment_assessmentTargets' - List of criteria for assessment.+--+-- 's3bucketForAnalysisData', 'startAssessment_s3bucketForAnalysisData' - The S3 bucket used by the collectors to send analysis data to the+-- service. The bucket name must begin with @migrationhub-strategy-@.+--+-- 's3bucketForReportData', 'startAssessment_s3bucketForReportData' - The S3 bucket where all the reports generated by the service are stored.+-- The bucket name must begin with @migrationhub-strategy-@.+newStartAssessment ::+  StartAssessment+newStartAssessment =+  StartAssessment'+    { assessmentTargets =+        Prelude.Nothing,+      s3bucketForAnalysisData = Prelude.Nothing,+      s3bucketForReportData = Prelude.Nothing+    }++-- | List of criteria for assessment.+startAssessment_assessmentTargets :: Lens.Lens' StartAssessment (Prelude.Maybe [AssessmentTarget])+startAssessment_assessmentTargets = Lens.lens (\StartAssessment' {assessmentTargets} -> assessmentTargets) (\s@StartAssessment' {} a -> s {assessmentTargets = a} :: StartAssessment) Prelude.. Lens.mapping Lens.coerced++-- | The S3 bucket used by the collectors to send analysis data to the+-- service. The bucket name must begin with @migrationhub-strategy-@.+startAssessment_s3bucketForAnalysisData :: Lens.Lens' StartAssessment (Prelude.Maybe Prelude.Text)+startAssessment_s3bucketForAnalysisData = Lens.lens (\StartAssessment' {s3bucketForAnalysisData} -> s3bucketForAnalysisData) (\s@StartAssessment' {} a -> s {s3bucketForAnalysisData = a} :: StartAssessment)++-- | The S3 bucket where all the reports generated by the service are stored.+-- The bucket name must begin with @migrationhub-strategy-@.+startAssessment_s3bucketForReportData :: Lens.Lens' StartAssessment (Prelude.Maybe Prelude.Text)+startAssessment_s3bucketForReportData = Lens.lens (\StartAssessment' {s3bucketForReportData} -> s3bucketForReportData) (\s@StartAssessment' {} a -> s {s3bucketForReportData = a} :: StartAssessment)++instance Core.AWSRequest StartAssessment where+  type+    AWSResponse StartAssessment =+      StartAssessmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartAssessmentResponse'+            Prelude.<$> (x Data..?> "assessmentId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartAssessment where+  hashWithSalt _salt StartAssessment' {..} =+    _salt+      `Prelude.hashWithSalt` assessmentTargets+      `Prelude.hashWithSalt` s3bucketForAnalysisData+      `Prelude.hashWithSalt` s3bucketForReportData++instance Prelude.NFData StartAssessment where+  rnf StartAssessment' {..} =+    Prelude.rnf assessmentTargets+      `Prelude.seq` Prelude.rnf s3bucketForAnalysisData+      `Prelude.seq` Prelude.rnf s3bucketForReportData++instance Data.ToHeaders StartAssessment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartAssessment where+  toJSON StartAssessment' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("assessmentTargets" Data..=)+              Prelude.<$> assessmentTargets,+            ("s3bucketForAnalysisData" Data..=)+              Prelude.<$> s3bucketForAnalysisData,+            ("s3bucketForReportData" Data..=)+              Prelude.<$> s3bucketForReportData+          ]+      )++instance Data.ToPath StartAssessment where+  toPath = Prelude.const "/start-assessment"++instance Data.ToQuery StartAssessment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartAssessmentResponse' smart constructor.+data StartAssessmentResponse = StartAssessmentResponse'+  { -- | The ID of the assessment.+    assessmentId :: 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 'StartAssessmentResponse' 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:+--+-- 'assessmentId', 'startAssessmentResponse_assessmentId' - The ID of the assessment.+--+-- 'httpStatus', 'startAssessmentResponse_httpStatus' - The response's http status code.+newStartAssessmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartAssessmentResponse+newStartAssessmentResponse pHttpStatus_ =+  StartAssessmentResponse'+    { assessmentId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ID of the assessment.+startAssessmentResponse_assessmentId :: Lens.Lens' StartAssessmentResponse (Prelude.Maybe Prelude.Text)+startAssessmentResponse_assessmentId = Lens.lens (\StartAssessmentResponse' {assessmentId} -> assessmentId) (\s@StartAssessmentResponse' {} a -> s {assessmentId = a} :: StartAssessmentResponse)++-- | The response's http status code.+startAssessmentResponse_httpStatus :: Lens.Lens' StartAssessmentResponse Prelude.Int+startAssessmentResponse_httpStatus = Lens.lens (\StartAssessmentResponse' {httpStatus} -> httpStatus) (\s@StartAssessmentResponse' {} a -> s {httpStatus = a} :: StartAssessmentResponse)++instance Prelude.NFData StartAssessmentResponse where+  rnf StartAssessmentResponse' {..} =+    Prelude.rnf assessmentId+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/StartImportFileTask.hs view
@@ -0,0 +1,260 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MigrationHubStrategy.StartImportFileTask+-- 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 file import.+module Amazonka.MigrationHubStrategy.StartImportFileTask+  ( -- * Creating a Request+    StartImportFileTask (..),+    newStartImportFileTask,++    -- * Request Lenses+    startImportFileTask_dataSourceType,+    startImportFileTask_groupId,+    startImportFileTask_s3bucketForReportData,+    startImportFileTask_s3Bucket,+    startImportFileTask_name,+    startImportFileTask_s3key,++    -- * Destructuring the Response+    StartImportFileTaskResponse (..),+    newStartImportFileTaskResponse,++    -- * Response Lenses+    startImportFileTaskResponse_id,+    startImportFileTaskResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartImportFileTask' smart constructor.+data StartImportFileTask = StartImportFileTask'+  { -- | Specifies the source that the servers are coming from. By default,+    -- Strategy Recommendations assumes that the servers specified in the+    -- import file are available in AWS Application Discovery Service.+    dataSourceType :: Prelude.Maybe DataSourceType,+    -- | Groups the resources in the import file together with a unique name.+    -- This ID can be as filter in @ListApplicationComponents@ and+    -- @ListServers@.+    groupId :: Prelude.Maybe [Group],+    -- | The S3 bucket where Strategy Recommendations uploads import results. The+    -- bucket name is required to begin with migrationhub-strategy-.+    s3bucketForReportData :: Prelude.Maybe Prelude.Text,+    -- | The S3 bucket where the import file is located. The bucket name is+    -- required to begin with @migrationhub-strategy-@.+    s3Bucket :: Prelude.Text,+    -- | A descriptive name for the request.+    name :: Prelude.Text,+    -- | The Amazon S3 key name of the import file.+    s3key :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartImportFileTask' 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:+--+-- 'dataSourceType', 'startImportFileTask_dataSourceType' - Specifies the source that the servers are coming from. By default,+-- Strategy Recommendations assumes that the servers specified in the+-- import file are available in AWS Application Discovery Service.+--+-- 'groupId', 'startImportFileTask_groupId' - Groups the resources in the import file together with a unique name.+-- This ID can be as filter in @ListApplicationComponents@ and+-- @ListServers@.+--+-- 's3bucketForReportData', 'startImportFileTask_s3bucketForReportData' - The S3 bucket where Strategy Recommendations uploads import results. The+-- bucket name is required to begin with migrationhub-strategy-.+--+-- 's3Bucket', 'startImportFileTask_s3Bucket' - The S3 bucket where the import file is located. The bucket name is+-- required to begin with @migrationhub-strategy-@.+--+-- 'name', 'startImportFileTask_name' - A descriptive name for the request.+--+-- 's3key', 'startImportFileTask_s3key' - The Amazon S3 key name of the import file.+newStartImportFileTask ::+  -- | 's3Bucket'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 's3key'+  Prelude.Text ->+  StartImportFileTask+newStartImportFileTask pS3Bucket_ pName_ pS3key_ =+  StartImportFileTask'+    { dataSourceType =+        Prelude.Nothing,+      groupId = Prelude.Nothing,+      s3bucketForReportData = Prelude.Nothing,+      s3Bucket = pS3Bucket_,+      name = pName_,+      s3key = pS3key_+    }++-- | Specifies the source that the servers are coming from. By default,+-- Strategy Recommendations assumes that the servers specified in the+-- import file are available in AWS Application Discovery Service.+startImportFileTask_dataSourceType :: Lens.Lens' StartImportFileTask (Prelude.Maybe DataSourceType)+startImportFileTask_dataSourceType = Lens.lens (\StartImportFileTask' {dataSourceType} -> dataSourceType) (\s@StartImportFileTask' {} a -> s {dataSourceType = a} :: StartImportFileTask)++-- | Groups the resources in the import file together with a unique name.+-- This ID can be as filter in @ListApplicationComponents@ and+-- @ListServers@.+startImportFileTask_groupId :: Lens.Lens' StartImportFileTask (Prelude.Maybe [Group])+startImportFileTask_groupId = Lens.lens (\StartImportFileTask' {groupId} -> groupId) (\s@StartImportFileTask' {} a -> s {groupId = a} :: StartImportFileTask) Prelude.. Lens.mapping Lens.coerced++-- | The S3 bucket where Strategy Recommendations uploads import results. The+-- bucket name is required to begin with migrationhub-strategy-.+startImportFileTask_s3bucketForReportData :: Lens.Lens' StartImportFileTask (Prelude.Maybe Prelude.Text)+startImportFileTask_s3bucketForReportData = Lens.lens (\StartImportFileTask' {s3bucketForReportData} -> s3bucketForReportData) (\s@StartImportFileTask' {} a -> s {s3bucketForReportData = a} :: StartImportFileTask)++-- | The S3 bucket where the import file is located. The bucket name is+-- required to begin with @migrationhub-strategy-@.+startImportFileTask_s3Bucket :: Lens.Lens' StartImportFileTask Prelude.Text+startImportFileTask_s3Bucket = Lens.lens (\StartImportFileTask' {s3Bucket} -> s3Bucket) (\s@StartImportFileTask' {} a -> s {s3Bucket = a} :: StartImportFileTask)++-- | A descriptive name for the request.+startImportFileTask_name :: Lens.Lens' StartImportFileTask Prelude.Text+startImportFileTask_name = Lens.lens (\StartImportFileTask' {name} -> name) (\s@StartImportFileTask' {} a -> s {name = a} :: StartImportFileTask)++-- | The Amazon S3 key name of the import file.+startImportFileTask_s3key :: Lens.Lens' StartImportFileTask Prelude.Text+startImportFileTask_s3key = Lens.lens (\StartImportFileTask' {s3key} -> s3key) (\s@StartImportFileTask' {} a -> s {s3key = a} :: StartImportFileTask)++instance Core.AWSRequest StartImportFileTask where+  type+    AWSResponse StartImportFileTask =+      StartImportFileTaskResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartImportFileTaskResponse'+            Prelude.<$> (x Data..?> "id")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartImportFileTask where+  hashWithSalt _salt StartImportFileTask' {..} =+    _salt+      `Prelude.hashWithSalt` dataSourceType+      `Prelude.hashWithSalt` groupId+      `Prelude.hashWithSalt` s3bucketForReportData+      `Prelude.hashWithSalt` s3Bucket+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` s3key++instance Prelude.NFData StartImportFileTask where+  rnf StartImportFileTask' {..} =+    Prelude.rnf dataSourceType+      `Prelude.seq` Prelude.rnf groupId+      `Prelude.seq` Prelude.rnf s3bucketForReportData+      `Prelude.seq` Prelude.rnf s3Bucket+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf s3key++instance Data.ToHeaders StartImportFileTask where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartImportFileTask where+  toJSON StartImportFileTask' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("dataSourceType" Data..=)+              Prelude.<$> dataSourceType,+            ("groupId" Data..=) Prelude.<$> groupId,+            ("s3bucketForReportData" Data..=)+              Prelude.<$> s3bucketForReportData,+            Prelude.Just ("S3Bucket" Data..= s3Bucket),+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("s3key" Data..= s3key)+          ]+      )++instance Data.ToPath StartImportFileTask where+  toPath = Prelude.const "/start-import-file-task"++instance Data.ToQuery StartImportFileTask where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartImportFileTaskResponse' smart constructor.+data StartImportFileTaskResponse = StartImportFileTaskResponse'+  { -- | The ID for a specific import task. The ID is unique within an AWS+    -- account.+    id :: 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 'StartImportFileTaskResponse' 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:+--+-- 'id', 'startImportFileTaskResponse_id' - The ID for a specific import task. The ID is unique within an AWS+-- account.+--+-- 'httpStatus', 'startImportFileTaskResponse_httpStatus' - The response's http status code.+newStartImportFileTaskResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartImportFileTaskResponse+newStartImportFileTaskResponse pHttpStatus_ =+  StartImportFileTaskResponse'+    { id = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ID for a specific import task. The ID is unique within an AWS+-- account.+startImportFileTaskResponse_id :: Lens.Lens' StartImportFileTaskResponse (Prelude.Maybe Prelude.Text)+startImportFileTaskResponse_id = Lens.lens (\StartImportFileTaskResponse' {id} -> id) (\s@StartImportFileTaskResponse' {} a -> s {id = a} :: StartImportFileTaskResponse)++-- | The response's http status code.+startImportFileTaskResponse_httpStatus :: Lens.Lens' StartImportFileTaskResponse Prelude.Int+startImportFileTaskResponse_httpStatus = Lens.lens (\StartImportFileTaskResponse' {httpStatus} -> httpStatus) (\s@StartImportFileTaskResponse' {} a -> s {httpStatus = a} :: StartImportFileTaskResponse)++instance Prelude.NFData StartImportFileTaskResponse where+  rnf StartImportFileTaskResponse' {..} =+    Prelude.rnf id `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/StartRecommendationReportGeneration.hs view
@@ -0,0 +1,212 @@+{-# 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.MigrationHubStrategy.StartRecommendationReportGeneration+-- 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 generating a recommendation report.+module Amazonka.MigrationHubStrategy.StartRecommendationReportGeneration+  ( -- * Creating a Request+    StartRecommendationReportGeneration (..),+    newStartRecommendationReportGeneration,++    -- * Request Lenses+    startRecommendationReportGeneration_groupIdFilter,+    startRecommendationReportGeneration_outputFormat,++    -- * Destructuring the Response+    StartRecommendationReportGenerationResponse (..),+    newStartRecommendationReportGenerationResponse,++    -- * Response Lenses+    startRecommendationReportGenerationResponse_id,+    startRecommendationReportGenerationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartRecommendationReportGeneration' smart constructor.+data StartRecommendationReportGeneration = StartRecommendationReportGeneration'+  { -- | Groups the resources in the recommendation report with a unique name.+    groupIdFilter :: Prelude.Maybe [Group],+    -- | The output format for the recommendation report file. The default format+    -- is Microsoft Excel.+    outputFormat :: Prelude.Maybe OutputFormat+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartRecommendationReportGeneration' 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:+--+-- 'groupIdFilter', 'startRecommendationReportGeneration_groupIdFilter' - Groups the resources in the recommendation report with a unique name.+--+-- 'outputFormat', 'startRecommendationReportGeneration_outputFormat' - The output format for the recommendation report file. The default format+-- is Microsoft Excel.+newStartRecommendationReportGeneration ::+  StartRecommendationReportGeneration+newStartRecommendationReportGeneration =+  StartRecommendationReportGeneration'+    { groupIdFilter =+        Prelude.Nothing,+      outputFormat = Prelude.Nothing+    }++-- | Groups the resources in the recommendation report with a unique name.+startRecommendationReportGeneration_groupIdFilter :: Lens.Lens' StartRecommendationReportGeneration (Prelude.Maybe [Group])+startRecommendationReportGeneration_groupIdFilter = Lens.lens (\StartRecommendationReportGeneration' {groupIdFilter} -> groupIdFilter) (\s@StartRecommendationReportGeneration' {} a -> s {groupIdFilter = a} :: StartRecommendationReportGeneration) Prelude.. Lens.mapping Lens.coerced++-- | The output format for the recommendation report file. The default format+-- is Microsoft Excel.+startRecommendationReportGeneration_outputFormat :: Lens.Lens' StartRecommendationReportGeneration (Prelude.Maybe OutputFormat)+startRecommendationReportGeneration_outputFormat = Lens.lens (\StartRecommendationReportGeneration' {outputFormat} -> outputFormat) (\s@StartRecommendationReportGeneration' {} a -> s {outputFormat = a} :: StartRecommendationReportGeneration)++instance+  Core.AWSRequest+    StartRecommendationReportGeneration+  where+  type+    AWSResponse StartRecommendationReportGeneration =+      StartRecommendationReportGenerationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartRecommendationReportGenerationResponse'+            Prelude.<$> (x Data..?> "id")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    StartRecommendationReportGeneration+  where+  hashWithSalt+    _salt+    StartRecommendationReportGeneration' {..} =+      _salt+        `Prelude.hashWithSalt` groupIdFilter+        `Prelude.hashWithSalt` outputFormat++instance+  Prelude.NFData+    StartRecommendationReportGeneration+  where+  rnf StartRecommendationReportGeneration' {..} =+    Prelude.rnf groupIdFilter+      `Prelude.seq` Prelude.rnf outputFormat++instance+  Data.ToHeaders+    StartRecommendationReportGeneration+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    StartRecommendationReportGeneration+  where+  toJSON StartRecommendationReportGeneration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("groupIdFilter" Data..=) Prelude.<$> groupIdFilter,+            ("outputFormat" Data..=) Prelude.<$> outputFormat+          ]+      )++instance+  Data.ToPath+    StartRecommendationReportGeneration+  where+  toPath =+    Prelude.const+      "/start-recommendation-report-generation"++instance+  Data.ToQuery+    StartRecommendationReportGeneration+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartRecommendationReportGenerationResponse' smart constructor.+data StartRecommendationReportGenerationResponse = StartRecommendationReportGenerationResponse'+  { -- | The ID of the recommendation report generation task.+    id :: 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 'StartRecommendationReportGenerationResponse' 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:+--+-- 'id', 'startRecommendationReportGenerationResponse_id' - The ID of the recommendation report generation task.+--+-- 'httpStatus', 'startRecommendationReportGenerationResponse_httpStatus' - The response's http status code.+newStartRecommendationReportGenerationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartRecommendationReportGenerationResponse+newStartRecommendationReportGenerationResponse+  pHttpStatus_ =+    StartRecommendationReportGenerationResponse'+      { id =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The ID of the recommendation report generation task.+startRecommendationReportGenerationResponse_id :: Lens.Lens' StartRecommendationReportGenerationResponse (Prelude.Maybe Prelude.Text)+startRecommendationReportGenerationResponse_id = Lens.lens (\StartRecommendationReportGenerationResponse' {id} -> id) (\s@StartRecommendationReportGenerationResponse' {} a -> s {id = a} :: StartRecommendationReportGenerationResponse)++-- | The response's http status code.+startRecommendationReportGenerationResponse_httpStatus :: Lens.Lens' StartRecommendationReportGenerationResponse Prelude.Int+startRecommendationReportGenerationResponse_httpStatus = Lens.lens (\StartRecommendationReportGenerationResponse' {httpStatus} -> httpStatus) (\s@StartRecommendationReportGenerationResponse' {} a -> s {httpStatus = a} :: StartRecommendationReportGenerationResponse)++instance+  Prelude.NFData+    StartRecommendationReportGenerationResponse+  where+  rnf StartRecommendationReportGenerationResponse' {..} =+    Prelude.rnf id `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/StopAssessment.hs view
@@ -0,0 +1,149 @@+{-# 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.MigrationHubStrategy.StopAssessment+-- 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 the assessment of an on-premises environment.+module Amazonka.MigrationHubStrategy.StopAssessment+  ( -- * Creating a Request+    StopAssessment (..),+    newStopAssessment,++    -- * Request Lenses+    stopAssessment_assessmentId,++    -- * Destructuring the Response+    StopAssessmentResponse (..),+    newStopAssessmentResponse,++    -- * Response Lenses+    stopAssessmentResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStopAssessment' smart constructor.+data StopAssessment = StopAssessment'+  { -- | The @assessmentId@ returned by StartAssessment.+    assessmentId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopAssessment' 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:+--+-- 'assessmentId', 'stopAssessment_assessmentId' - The @assessmentId@ returned by StartAssessment.+newStopAssessment ::+  -- | 'assessmentId'+  Prelude.Text ->+  StopAssessment+newStopAssessment pAssessmentId_ =+  StopAssessment' {assessmentId = pAssessmentId_}++-- | The @assessmentId@ returned by StartAssessment.+stopAssessment_assessmentId :: Lens.Lens' StopAssessment Prelude.Text+stopAssessment_assessmentId = Lens.lens (\StopAssessment' {assessmentId} -> assessmentId) (\s@StopAssessment' {} a -> s {assessmentId = a} :: StopAssessment)++instance Core.AWSRequest StopAssessment where+  type+    AWSResponse StopAssessment =+      StopAssessmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          StopAssessmentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopAssessment where+  hashWithSalt _salt StopAssessment' {..} =+    _salt `Prelude.hashWithSalt` assessmentId++instance Prelude.NFData StopAssessment where+  rnf StopAssessment' {..} = Prelude.rnf assessmentId++instance Data.ToHeaders StopAssessment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopAssessment where+  toJSON StopAssessment' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("assessmentId" Data..= assessmentId)]+      )++instance Data.ToPath StopAssessment where+  toPath = Prelude.const "/stop-assessment"++instance Data.ToQuery StopAssessment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStopAssessmentResponse' smart constructor.+data StopAssessmentResponse = StopAssessmentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopAssessmentResponse' 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', 'stopAssessmentResponse_httpStatus' - The response's http status code.+newStopAssessmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopAssessmentResponse+newStopAssessmentResponse pHttpStatus_ =+  StopAssessmentResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+stopAssessmentResponse_httpStatus :: Lens.Lens' StopAssessmentResponse Prelude.Int+stopAssessmentResponse_httpStatus = Lens.lens (\StopAssessmentResponse' {httpStatus} -> httpStatus) (\s@StopAssessmentResponse' {} a -> s {httpStatus = a} :: StopAssessmentResponse)++instance Prelude.NFData StopAssessmentResponse where+  rnf StopAssessmentResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/Types.hs view
@@ -0,0 +1,753 @@+{-# 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.MigrationHubStrategy.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.MigrationHubStrategy.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _AccessDeniedException,+    _ConflictException,+    _DependencyException,+    _InternalServerException,+    _ResourceNotFoundException,+    _ServiceLinkedRoleLockClientException,+    _ServiceQuotaExceededException,+    _ThrottlingException,+    _ValidationException,++    -- * AntipatternReportStatus+    AntipatternReportStatus (..),++    -- * AppType+    AppType (..),++    -- * AppUnitErrorCategory+    AppUnitErrorCategory (..),++    -- * ApplicationComponentCriteria+    ApplicationComponentCriteria (..),++    -- * ApplicationMode+    ApplicationMode (..),++    -- * AssessmentStatus+    AssessmentStatus (..),++    -- * AuthType+    AuthType (..),++    -- * AwsManagedTargetDestination+    AwsManagedTargetDestination (..),++    -- * CollectorHealth+    CollectorHealth (..),++    -- * Condition+    Condition (..),++    -- * DataSourceType+    DataSourceType (..),++    -- * DatabaseManagementPreference+    DatabaseManagementPreference (..),++    -- * GroupName+    GroupName (..),++    -- * HeterogeneousTargetDatabaseEngine+    HeterogeneousTargetDatabaseEngine (..),++    -- * HomogeneousTargetDatabaseEngine+    HomogeneousTargetDatabaseEngine (..),++    -- * ImportFileTaskStatus+    ImportFileTaskStatus (..),++    -- * InclusionStatus+    InclusionStatus (..),++    -- * NoPreferenceTargetDestination+    NoPreferenceTargetDestination (..),++    -- * OSType+    OSType (..),++    -- * OutputFormat+    OutputFormat (..),++    -- * PipelineType+    PipelineType (..),++    -- * RecommendationReportStatus+    RecommendationReportStatus (..),++    -- * ResourceSubType+    ResourceSubType (..),++    -- * RunTimeAssessmentStatus+    RunTimeAssessmentStatus (..),++    -- * RuntimeAnalysisStatus+    RuntimeAnalysisStatus (..),++    -- * SelfManageTargetDestination+    SelfManageTargetDestination (..),++    -- * ServerCriteria+    ServerCriteria (..),++    -- * ServerErrorCategory+    ServerErrorCategory (..),++    -- * ServerOsType+    ServerOsType (..),++    -- * Severity+    Severity (..),++    -- * SortOrder+    SortOrder (..),++    -- * SrcCodeOrDbAnalysisStatus+    SrcCodeOrDbAnalysisStatus (..),++    -- * Strategy+    Strategy (..),++    -- * StrategyRecommendation+    StrategyRecommendation (..),++    -- * TargetDatabaseEngine+    TargetDatabaseEngine (..),++    -- * TargetDestination+    TargetDestination (..),++    -- * TransformationToolName+    TransformationToolName (..),++    -- * VersionControl+    VersionControl (..),++    -- * VersionControlType+    VersionControlType (..),++    -- * AntipatternSeveritySummary+    AntipatternSeveritySummary (..),+    newAntipatternSeveritySummary,+    antipatternSeveritySummary_count,+    antipatternSeveritySummary_severity,++    -- * AppUnitError+    AppUnitError (..),+    newAppUnitError,+    appUnitError_appUnitErrorCategory,++    -- * ApplicationComponentDetail+    ApplicationComponentDetail (..),+    newApplicationComponentDetail,+    applicationComponentDetail_analysisStatus,+    applicationComponentDetail_antipatternReportS3Object,+    applicationComponentDetail_antipatternReportStatus,+    applicationComponentDetail_antipatternReportStatusMessage,+    applicationComponentDetail_appType,+    applicationComponentDetail_appUnitError,+    applicationComponentDetail_associatedServerId,+    applicationComponentDetail_databaseConfigDetail,+    applicationComponentDetail_id,+    applicationComponentDetail_inclusionStatus,+    applicationComponentDetail_lastAnalyzedTimestamp,+    applicationComponentDetail_listAntipatternSeveritySummary,+    applicationComponentDetail_moreServerAssociationExists,+    applicationComponentDetail_name,+    applicationComponentDetail_osDriver,+    applicationComponentDetail_osVersion,+    applicationComponentDetail_recommendationSet,+    applicationComponentDetail_resourceSubType,+    applicationComponentDetail_runtimeStatus,+    applicationComponentDetail_runtimeStatusMessage,+    applicationComponentDetail_sourceCodeRepositories,+    applicationComponentDetail_statusMessage,++    -- * ApplicationComponentStatusSummary+    ApplicationComponentStatusSummary (..),+    newApplicationComponentStatusSummary,+    applicationComponentStatusSummary_count,+    applicationComponentStatusSummary_srcCodeOrDbAnalysisStatus,++    -- * ApplicationComponentStrategy+    ApplicationComponentStrategy (..),+    newApplicationComponentStrategy,+    applicationComponentStrategy_isPreferred,+    applicationComponentStrategy_recommendation,+    applicationComponentStrategy_status,++    -- * ApplicationComponentSummary+    ApplicationComponentSummary (..),+    newApplicationComponentSummary,+    applicationComponentSummary_appType,+    applicationComponentSummary_count,++    -- * ApplicationPreferences+    ApplicationPreferences (..),+    newApplicationPreferences,+    applicationPreferences_managementPreference,++    -- * AssessmentSummary+    AssessmentSummary (..),+    newAssessmentSummary,+    assessmentSummary_antipatternReportS3Object,+    assessmentSummary_antipatternReportStatus,+    assessmentSummary_antipatternReportStatusMessage,+    assessmentSummary_lastAnalyzedTimestamp,+    assessmentSummary_listAntipatternSeveritySummary,+    assessmentSummary_listApplicationComponentStatusSummary,+    assessmentSummary_listApplicationComponentStrategySummary,+    assessmentSummary_listApplicationComponentSummary,+    assessmentSummary_listServerStatusSummary,+    assessmentSummary_listServerStrategySummary,+    assessmentSummary_listServerSummary,++    -- * AssessmentTarget+    AssessmentTarget (..),+    newAssessmentTarget,+    assessmentTarget_condition,+    assessmentTarget_name,+    assessmentTarget_values,++    -- * AssociatedApplication+    AssociatedApplication (..),+    newAssociatedApplication,+    associatedApplication_id,+    associatedApplication_name,++    -- * AwsManagedResources+    AwsManagedResources (..),+    newAwsManagedResources,+    awsManagedResources_targetDestination,++    -- * BusinessGoals+    BusinessGoals (..),+    newBusinessGoals,+    businessGoals_licenseCostReduction,+    businessGoals_modernizeInfrastructureWithCloudNativeTechnologies,+    businessGoals_reduceOperationalOverheadWithManagedServices,+    businessGoals_speedOfMigration,++    -- * Collector+    Collector (..),+    newCollector,+    collector_collectorHealth,+    collector_collectorId,+    collector_collectorVersion,+    collector_configurationSummary,+    collector_hostName,+    collector_ipAddress,+    collector_lastActivityTimeStamp,+    collector_registeredTimeStamp,++    -- * ConfigurationSummary+    ConfigurationSummary (..),+    newConfigurationSummary,+    configurationSummary_ipAddressBasedRemoteInfoList,+    configurationSummary_pipelineInfoList,+    configurationSummary_remoteSourceCodeAnalysisServerInfo,+    configurationSummary_vcenterBasedRemoteInfoList,+    configurationSummary_versionControlInfoList,++    -- * DataCollectionDetails+    DataCollectionDetails (..),+    newDataCollectionDetails,+    dataCollectionDetails_completionTime,+    dataCollectionDetails_failed,+    dataCollectionDetails_inProgress,+    dataCollectionDetails_servers,+    dataCollectionDetails_startTime,+    dataCollectionDetails_status,+    dataCollectionDetails_statusMessage,+    dataCollectionDetails_success,++    -- * DatabaseConfigDetail+    DatabaseConfigDetail (..),+    newDatabaseConfigDetail,+    databaseConfigDetail_secretName,++    -- * DatabaseMigrationPreference+    DatabaseMigrationPreference (..),+    newDatabaseMigrationPreference,+    databaseMigrationPreference_heterogeneous,+    databaseMigrationPreference_homogeneous,+    databaseMigrationPreference_noPreference,++    -- * DatabasePreferences+    DatabasePreferences (..),+    newDatabasePreferences,+    databasePreferences_databaseManagementPreference,+    databasePreferences_databaseMigrationPreference,++    -- * Group+    Group (..),+    newGroup,+    group_name,+    group_value,++    -- * Heterogeneous+    Heterogeneous (..),+    newHeterogeneous,+    heterogeneous_targetDatabaseEngine,++    -- * Homogeneous+    Homogeneous (..),+    newHomogeneous,+    homogeneous_targetDatabaseEngine,++    -- * IPAddressBasedRemoteInfo+    IPAddressBasedRemoteInfo (..),+    newIPAddressBasedRemoteInfo,+    iPAddressBasedRemoteInfo_authType,+    iPAddressBasedRemoteInfo_ipAddressConfigurationTimeStamp,+    iPAddressBasedRemoteInfo_osType,++    -- * ImportFileTaskInformation+    ImportFileTaskInformation (..),+    newImportFileTaskInformation,+    importFileTaskInformation_completionTime,+    importFileTaskInformation_id,+    importFileTaskInformation_importName,+    importFileTaskInformation_inputS3Bucket,+    importFileTaskInformation_inputS3Key,+    importFileTaskInformation_numberOfRecordsFailed,+    importFileTaskInformation_numberOfRecordsSuccess,+    importFileTaskInformation_startTime,+    importFileTaskInformation_status,+    importFileTaskInformation_statusReportS3Bucket,+    importFileTaskInformation_statusReportS3Key,++    -- * ManagementPreference+    ManagementPreference (..),+    newManagementPreference,+    managementPreference_awsManagedResources,+    managementPreference_noPreference,+    managementPreference_selfManageResources,++    -- * NetworkInfo+    NetworkInfo (..),+    newNetworkInfo,+    networkInfo_interfaceName,+    networkInfo_ipAddress,+    networkInfo_macAddress,+    networkInfo_netMask,++    -- * NoDatabaseMigrationPreference+    NoDatabaseMigrationPreference (..),+    newNoDatabaseMigrationPreference,+    noDatabaseMigrationPreference_targetDatabaseEngine,++    -- * NoManagementPreference+    NoManagementPreference (..),+    newNoManagementPreference,+    noManagementPreference_targetDestination,++    -- * OSInfo+    OSInfo (..),+    newOSInfo,+    oSInfo_type,+    oSInfo_version,++    -- * PipelineInfo+    PipelineInfo (..),+    newPipelineInfo,+    pipelineInfo_pipelineConfigurationTimeStamp,+    pipelineInfo_pipelineType,++    -- * PrioritizeBusinessGoals+    PrioritizeBusinessGoals (..),+    newPrioritizeBusinessGoals,+    prioritizeBusinessGoals_businessGoals,++    -- * RecommendationReportDetails+    RecommendationReportDetails (..),+    newRecommendationReportDetails,+    recommendationReportDetails_completionTime,+    recommendationReportDetails_s3Bucket,+    recommendationReportDetails_s3Keys,+    recommendationReportDetails_startTime,+    recommendationReportDetails_status,+    recommendationReportDetails_statusMessage,++    -- * RecommendationSet+    RecommendationSet (..),+    newRecommendationSet,+    recommendationSet_strategy,+    recommendationSet_targetDestination,+    recommendationSet_transformationTool,++    -- * RemoteSourceCodeAnalysisServerInfo+    RemoteSourceCodeAnalysisServerInfo (..),+    newRemoteSourceCodeAnalysisServerInfo,+    remoteSourceCodeAnalysisServerInfo_remoteSourceCodeAnalysisServerConfigurationTimestamp,++    -- * S3Object+    S3Object (..),+    newS3Object,+    s3Object_s3Bucket,+    s3Object_s3key,++    -- * SelfManageResources+    SelfManageResources (..),+    newSelfManageResources,+    selfManageResources_targetDestination,++    -- * ServerDetail+    ServerDetail (..),+    newServerDetail,+    serverDetail_antipatternReportS3Object,+    serverDetail_antipatternReportStatus,+    serverDetail_antipatternReportStatusMessage,+    serverDetail_applicationComponentStrategySummary,+    serverDetail_dataCollectionStatus,+    serverDetail_id,+    serverDetail_lastAnalyzedTimestamp,+    serverDetail_listAntipatternSeveritySummary,+    serverDetail_name,+    serverDetail_recommendationSet,+    serverDetail_serverError,+    serverDetail_serverType,+    serverDetail_statusMessage,+    serverDetail_systemInfo,++    -- * ServerError+    ServerError (..),+    newServerError,+    serverError_serverErrorCategory,++    -- * ServerStatusSummary+    ServerStatusSummary (..),+    newServerStatusSummary,+    serverStatusSummary_count,+    serverStatusSummary_runTimeAssessmentStatus,++    -- * ServerStrategy+    ServerStrategy (..),+    newServerStrategy,+    serverStrategy_isPreferred,+    serverStrategy_numberOfApplicationComponents,+    serverStrategy_recommendation,+    serverStrategy_status,++    -- * ServerSummary+    ServerSummary (..),+    newServerSummary,+    serverSummary_serverOsType,+    serverSummary_count,++    -- * SourceCode+    SourceCode (..),+    newSourceCode,+    sourceCode_location,+    sourceCode_projectName,+    sourceCode_sourceVersion,+    sourceCode_versionControl,++    -- * SourceCodeRepository+    SourceCodeRepository (..),+    newSourceCodeRepository,+    sourceCodeRepository_branch,+    sourceCodeRepository_projectName,+    sourceCodeRepository_repository,+    sourceCodeRepository_versionControlType,++    -- * StrategyOption+    StrategyOption (..),+    newStrategyOption,+    strategyOption_isPreferred,+    strategyOption_strategy,+    strategyOption_targetDestination,+    strategyOption_toolName,++    -- * StrategySummary+    StrategySummary (..),+    newStrategySummary,+    strategySummary_count,+    strategySummary_strategy,++    -- * SystemInfo+    SystemInfo (..),+    newSystemInfo,+    systemInfo_cpuArchitecture,+    systemInfo_fileSystemType,+    systemInfo_networkInfoList,+    systemInfo_osInfo,++    -- * TransformationTool+    TransformationTool (..),+    newTransformationTool,+    transformationTool_description,+    transformationTool_name,+    transformationTool_tranformationToolInstallationLink,++    -- * VcenterBasedRemoteInfo+    VcenterBasedRemoteInfo (..),+    newVcenterBasedRemoteInfo,+    vcenterBasedRemoteInfo_osType,+    vcenterBasedRemoteInfo_vcenterConfigurationTimeStamp,++    -- * VersionControlInfo+    VersionControlInfo (..),+    newVersionControlInfo,+    versionControlInfo_versionControlConfigurationTimeStamp,+    versionControlInfo_versionControlType,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.MigrationHubStrategy.Types.AntipatternReportStatus+import Amazonka.MigrationHubStrategy.Types.AntipatternSeveritySummary+import Amazonka.MigrationHubStrategy.Types.AppType+import Amazonka.MigrationHubStrategy.Types.AppUnitError+import Amazonka.MigrationHubStrategy.Types.AppUnitErrorCategory+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentCriteria+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentDetail+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentStatusSummary+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentStrategy+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentSummary+import Amazonka.MigrationHubStrategy.Types.ApplicationMode+import Amazonka.MigrationHubStrategy.Types.ApplicationPreferences+import Amazonka.MigrationHubStrategy.Types.AssessmentStatus+import Amazonka.MigrationHubStrategy.Types.AssessmentSummary+import Amazonka.MigrationHubStrategy.Types.AssessmentTarget+import Amazonka.MigrationHubStrategy.Types.AssociatedApplication+import Amazonka.MigrationHubStrategy.Types.AuthType+import Amazonka.MigrationHubStrategy.Types.AwsManagedResources+import Amazonka.MigrationHubStrategy.Types.AwsManagedTargetDestination+import Amazonka.MigrationHubStrategy.Types.BusinessGoals+import Amazonka.MigrationHubStrategy.Types.Collector+import Amazonka.MigrationHubStrategy.Types.CollectorHealth+import Amazonka.MigrationHubStrategy.Types.Condition+import Amazonka.MigrationHubStrategy.Types.ConfigurationSummary+import Amazonka.MigrationHubStrategy.Types.DataCollectionDetails+import Amazonka.MigrationHubStrategy.Types.DataSourceType+import Amazonka.MigrationHubStrategy.Types.DatabaseConfigDetail+import Amazonka.MigrationHubStrategy.Types.DatabaseManagementPreference+import Amazonka.MigrationHubStrategy.Types.DatabaseMigrationPreference+import Amazonka.MigrationHubStrategy.Types.DatabasePreferences+import Amazonka.MigrationHubStrategy.Types.Group+import Amazonka.MigrationHubStrategy.Types.GroupName+import Amazonka.MigrationHubStrategy.Types.Heterogeneous+import Amazonka.MigrationHubStrategy.Types.HeterogeneousTargetDatabaseEngine+import Amazonka.MigrationHubStrategy.Types.Homogeneous+import Amazonka.MigrationHubStrategy.Types.HomogeneousTargetDatabaseEngine+import Amazonka.MigrationHubStrategy.Types.IPAddressBasedRemoteInfo+import Amazonka.MigrationHubStrategy.Types.ImportFileTaskInformation+import Amazonka.MigrationHubStrategy.Types.ImportFileTaskStatus+import Amazonka.MigrationHubStrategy.Types.InclusionStatus+import Amazonka.MigrationHubStrategy.Types.ManagementPreference+import Amazonka.MigrationHubStrategy.Types.NetworkInfo+import Amazonka.MigrationHubStrategy.Types.NoDatabaseMigrationPreference+import Amazonka.MigrationHubStrategy.Types.NoManagementPreference+import Amazonka.MigrationHubStrategy.Types.NoPreferenceTargetDestination+import Amazonka.MigrationHubStrategy.Types.OSInfo+import Amazonka.MigrationHubStrategy.Types.OSType+import Amazonka.MigrationHubStrategy.Types.OutputFormat+import Amazonka.MigrationHubStrategy.Types.PipelineInfo+import Amazonka.MigrationHubStrategy.Types.PipelineType+import Amazonka.MigrationHubStrategy.Types.PrioritizeBusinessGoals+import Amazonka.MigrationHubStrategy.Types.RecommendationReportDetails+import Amazonka.MigrationHubStrategy.Types.RecommendationReportStatus+import Amazonka.MigrationHubStrategy.Types.RecommendationSet+import Amazonka.MigrationHubStrategy.Types.RemoteSourceCodeAnalysisServerInfo+import Amazonka.MigrationHubStrategy.Types.ResourceSubType+import Amazonka.MigrationHubStrategy.Types.RunTimeAssessmentStatus+import Amazonka.MigrationHubStrategy.Types.RuntimeAnalysisStatus+import Amazonka.MigrationHubStrategy.Types.S3Object+import Amazonka.MigrationHubStrategy.Types.SelfManageResources+import Amazonka.MigrationHubStrategy.Types.SelfManageTargetDestination+import Amazonka.MigrationHubStrategy.Types.ServerCriteria+import Amazonka.MigrationHubStrategy.Types.ServerDetail+import Amazonka.MigrationHubStrategy.Types.ServerError+import Amazonka.MigrationHubStrategy.Types.ServerErrorCategory+import Amazonka.MigrationHubStrategy.Types.ServerOsType+import Amazonka.MigrationHubStrategy.Types.ServerStatusSummary+import Amazonka.MigrationHubStrategy.Types.ServerStrategy+import Amazonka.MigrationHubStrategy.Types.ServerSummary+import Amazonka.MigrationHubStrategy.Types.Severity+import Amazonka.MigrationHubStrategy.Types.SortOrder+import Amazonka.MigrationHubStrategy.Types.SourceCode+import Amazonka.MigrationHubStrategy.Types.SourceCodeRepository+import Amazonka.MigrationHubStrategy.Types.SrcCodeOrDbAnalysisStatus+import Amazonka.MigrationHubStrategy.Types.Strategy+import Amazonka.MigrationHubStrategy.Types.StrategyOption+import Amazonka.MigrationHubStrategy.Types.StrategyRecommendation+import Amazonka.MigrationHubStrategy.Types.StrategySummary+import Amazonka.MigrationHubStrategy.Types.SystemInfo+import Amazonka.MigrationHubStrategy.Types.TargetDatabaseEngine+import Amazonka.MigrationHubStrategy.Types.TargetDestination+import Amazonka.MigrationHubStrategy.Types.TransformationTool+import Amazonka.MigrationHubStrategy.Types.TransformationToolName+import Amazonka.MigrationHubStrategy.Types.VcenterBasedRemoteInfo+import Amazonka.MigrationHubStrategy.Types.VersionControl+import Amazonka.MigrationHubStrategy.Types.VersionControlInfo+import Amazonka.MigrationHubStrategy.Types.VersionControlType+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2020-02-19@ of the Amazon Migration Hub Strategy Recommendations SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "MigrationHubStrategy",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "migrationhub-strategy",+      Core.signingName = "migrationhub-strategy",+      Core.version = "2020-02-19",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error =+        Core.parseJSONError "MigrationHubStrategy",+      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 AWS user account does not have permission to perform the action.+-- Check the AWS Identity and Access Management (IAM) policy associated+-- with this account.+_AccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AccessDeniedException =+  Core._MatchServiceError+    defaultService+    "AccessDeniedException"+    Prelude.. Core.hasStatus 403++-- | Exception to indicate that there is an ongoing task when a new task is+-- created. Return when once the existing tasks are complete.+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConflictException =+  Core._MatchServiceError+    defaultService+    "ConflictException"+    Prelude.. Core.hasStatus 409++-- | Dependency encountered an error.+_DependencyException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DependencyException =+  Core._MatchServiceError+    defaultService+    "DependencyException"+    Prelude.. Core.hasStatus 500++-- | The server experienced an internal error. Try again.+_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerException =+  Core._MatchServiceError+    defaultService+    "InternalServerException"+    Prelude.. Core.hasStatus 500++-- | The specified ID in the request is not found.+_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceNotFoundException =+  Core._MatchServiceError+    defaultService+    "ResourceNotFoundException"+    Prelude.. Core.hasStatus 404++-- | Exception to indicate that the service-linked role (SLR) is locked.+_ServiceLinkedRoleLockClientException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceLinkedRoleLockClientException =+  Core._MatchServiceError+    defaultService+    "ServiceLinkedRoleLockClientException"+    Prelude.. Core.hasStatus 400++-- | The AWS account has reached its quota of imports. Contact AWS Support to+-- increase the quota for this account.+_ServiceQuotaExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceQuotaExceededException =+  Core._MatchServiceError+    defaultService+    "ServiceQuotaExceededException"+    Prelude.. Core.hasStatus 402++-- | The request was denied due to request throttling.+_ThrottlingException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ThrottlingException =+  Core._MatchServiceError+    defaultService+    "ThrottlingException"+    Prelude.. Core.hasStatus 429++-- | The request body isn\'t valid.+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ValidationException =+  Core._MatchServiceError+    defaultService+    "ValidationException"+    Prelude.. Core.hasStatus 400
+ gen/Amazonka/MigrationHubStrategy/Types/AntipatternReportStatus.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.MigrationHubStrategy.Types.AntipatternReportStatus+-- 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.MigrationHubStrategy.Types.AntipatternReportStatus+  ( AntipatternReportStatus+      ( ..,+        AntipatternReportStatus_FAILED,+        AntipatternReportStatus_IN_PROGRESS,+        AntipatternReportStatus_SUCCESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype AntipatternReportStatus = AntipatternReportStatus'+  { fromAntipatternReportStatus ::+      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 AntipatternReportStatus_FAILED :: AntipatternReportStatus+pattern AntipatternReportStatus_FAILED = AntipatternReportStatus' "FAILED"++pattern AntipatternReportStatus_IN_PROGRESS :: AntipatternReportStatus+pattern AntipatternReportStatus_IN_PROGRESS = AntipatternReportStatus' "IN_PROGRESS"++pattern AntipatternReportStatus_SUCCESS :: AntipatternReportStatus+pattern AntipatternReportStatus_SUCCESS = AntipatternReportStatus' "SUCCESS"++{-# COMPLETE+  AntipatternReportStatus_FAILED,+  AntipatternReportStatus_IN_PROGRESS,+  AntipatternReportStatus_SUCCESS,+  AntipatternReportStatus'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/AntipatternSeveritySummary.hs view
@@ -0,0 +1,86 @@+{-# 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.MigrationHubStrategy.Types.AntipatternSeveritySummary+-- 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.MigrationHubStrategy.Types.AntipatternSeveritySummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.Severity+import qualified Amazonka.Prelude as Prelude++-- | Contains the summary of anti-patterns and their severity.+--+-- /See:/ 'newAntipatternSeveritySummary' smart constructor.+data AntipatternSeveritySummary = AntipatternSeveritySummary'+  { -- | Contains the count of anti-patterns.+    count :: Prelude.Maybe Prelude.Int,+    -- | Contains the severity of anti-patterns.+    severity :: Prelude.Maybe Severity+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AntipatternSeveritySummary' 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', 'antipatternSeveritySummary_count' - Contains the count of anti-patterns.+--+-- 'severity', 'antipatternSeveritySummary_severity' - Contains the severity of anti-patterns.+newAntipatternSeveritySummary ::+  AntipatternSeveritySummary+newAntipatternSeveritySummary =+  AntipatternSeveritySummary'+    { count =+        Prelude.Nothing,+      severity = Prelude.Nothing+    }++-- | Contains the count of anti-patterns.+antipatternSeveritySummary_count :: Lens.Lens' AntipatternSeveritySummary (Prelude.Maybe Prelude.Int)+antipatternSeveritySummary_count = Lens.lens (\AntipatternSeveritySummary' {count} -> count) (\s@AntipatternSeveritySummary' {} a -> s {count = a} :: AntipatternSeveritySummary)++-- | Contains the severity of anti-patterns.+antipatternSeveritySummary_severity :: Lens.Lens' AntipatternSeveritySummary (Prelude.Maybe Severity)+antipatternSeveritySummary_severity = Lens.lens (\AntipatternSeveritySummary' {severity} -> severity) (\s@AntipatternSeveritySummary' {} a -> s {severity = a} :: AntipatternSeveritySummary)++instance Data.FromJSON AntipatternSeveritySummary where+  parseJSON =+    Data.withObject+      "AntipatternSeveritySummary"+      ( \x ->+          AntipatternSeveritySummary'+            Prelude.<$> (x Data..:? "count")+            Prelude.<*> (x Data..:? "severity")+      )++instance Prelude.Hashable AntipatternSeveritySummary where+  hashWithSalt _salt AntipatternSeveritySummary' {..} =+    _salt+      `Prelude.hashWithSalt` count+      `Prelude.hashWithSalt` severity++instance Prelude.NFData AntipatternSeveritySummary where+  rnf AntipatternSeveritySummary' {..} =+    Prelude.rnf count+      `Prelude.seq` Prelude.rnf severity
+ gen/Amazonka/MigrationHubStrategy/Types/AppType.hs view
@@ -0,0 +1,168 @@+{-# 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.MigrationHubStrategy.Types.AppType+-- 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.MigrationHubStrategy.Types.AppType+  ( AppType+      ( ..,+        AppType_Cassandra,+        AppType_DB2,+        AppType_DotNetFramework,+        AppType_Dotnet,+        AppType_DotnetCore,+        AppType_IBM_WebSphere,+        AppType_IIS,+        AppType_JBoss,+        AppType_Java,+        AppType_Maria_DB,+        AppType_Mongo_DB,+        AppType_MySQL,+        AppType_Oracle,+        AppType_Oracle_WebLogic,+        AppType_Other,+        AppType_PostgreSQLServer,+        AppType_SQLServer,+        AppType_Spring,+        AppType_Sybase,+        AppType_Tomcat,+        AppType_Unknown,+        AppType_Visual_Basic+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype AppType = AppType' {fromAppType :: 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 AppType_Cassandra :: AppType+pattern AppType_Cassandra = AppType' "Cassandra"++pattern AppType_DB2 :: AppType+pattern AppType_DB2 = AppType' "DB2"++pattern AppType_DotNetFramework :: AppType+pattern AppType_DotNetFramework = AppType' "DotNetFramework"++pattern AppType_Dotnet :: AppType+pattern AppType_Dotnet = AppType' "Dotnet"++pattern AppType_DotnetCore :: AppType+pattern AppType_DotnetCore = AppType' "DotnetCore"++pattern AppType_IBM_WebSphere :: AppType+pattern AppType_IBM_WebSphere = AppType' "IBM WebSphere"++pattern AppType_IIS :: AppType+pattern AppType_IIS = AppType' "IIS"++pattern AppType_JBoss :: AppType+pattern AppType_JBoss = AppType' "JBoss"++pattern AppType_Java :: AppType+pattern AppType_Java = AppType' "Java"++pattern AppType_Maria_DB :: AppType+pattern AppType_Maria_DB = AppType' "Maria DB"++pattern AppType_Mongo_DB :: AppType+pattern AppType_Mongo_DB = AppType' "Mongo DB"++pattern AppType_MySQL :: AppType+pattern AppType_MySQL = AppType' "MySQL"++pattern AppType_Oracle :: AppType+pattern AppType_Oracle = AppType' "Oracle"++pattern AppType_Oracle_WebLogic :: AppType+pattern AppType_Oracle_WebLogic = AppType' "Oracle WebLogic"++pattern AppType_Other :: AppType+pattern AppType_Other = AppType' "Other"++pattern AppType_PostgreSQLServer :: AppType+pattern AppType_PostgreSQLServer = AppType' "PostgreSQLServer"++pattern AppType_SQLServer :: AppType+pattern AppType_SQLServer = AppType' "SQLServer"++pattern AppType_Spring :: AppType+pattern AppType_Spring = AppType' "Spring"++pattern AppType_Sybase :: AppType+pattern AppType_Sybase = AppType' "Sybase"++pattern AppType_Tomcat :: AppType+pattern AppType_Tomcat = AppType' "Tomcat"++pattern AppType_Unknown :: AppType+pattern AppType_Unknown = AppType' "Unknown"++pattern AppType_Visual_Basic :: AppType+pattern AppType_Visual_Basic = AppType' "Visual Basic"++{-# COMPLETE+  AppType_Cassandra,+  AppType_DB2,+  AppType_DotNetFramework,+  AppType_Dotnet,+  AppType_DotnetCore,+  AppType_IBM_WebSphere,+  AppType_IIS,+  AppType_JBoss,+  AppType_Java,+  AppType_Maria_DB,+  AppType_Mongo_DB,+  AppType_MySQL,+  AppType_Oracle,+  AppType_Oracle_WebLogic,+  AppType_Other,+  AppType_PostgreSQLServer,+  AppType_SQLServer,+  AppType_Spring,+  AppType_Sybase,+  AppType_Tomcat,+  AppType_Unknown,+  AppType_Visual_Basic,+  AppType'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/AppUnitError.hs view
@@ -0,0 +1,73 @@+{-# 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.MigrationHubStrategy.Types.AppUnitError+-- 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.MigrationHubStrategy.Types.AppUnitError where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AppUnitErrorCategory+import qualified Amazonka.Prelude as Prelude++-- | Error in the analysis of the application unit.+--+-- /See:/ 'newAppUnitError' smart constructor.+data AppUnitError = AppUnitError'+  { -- | The category of the error.+    appUnitErrorCategory :: Prelude.Maybe AppUnitErrorCategory+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AppUnitError' 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:+--+-- 'appUnitErrorCategory', 'appUnitError_appUnitErrorCategory' - The category of the error.+newAppUnitError ::+  AppUnitError+newAppUnitError =+  AppUnitError'+    { appUnitErrorCategory =+        Prelude.Nothing+    }++-- | The category of the error.+appUnitError_appUnitErrorCategory :: Lens.Lens' AppUnitError (Prelude.Maybe AppUnitErrorCategory)+appUnitError_appUnitErrorCategory = Lens.lens (\AppUnitError' {appUnitErrorCategory} -> appUnitErrorCategory) (\s@AppUnitError' {} a -> s {appUnitErrorCategory = a} :: AppUnitError)++instance Data.FromJSON AppUnitError where+  parseJSON =+    Data.withObject+      "AppUnitError"+      ( \x ->+          AppUnitError'+            Prelude.<$> (x Data..:? "appUnitErrorCategory")+      )++instance Prelude.Hashable AppUnitError where+  hashWithSalt _salt AppUnitError' {..} =+    _salt `Prelude.hashWithSalt` appUnitErrorCategory++instance Prelude.NFData AppUnitError where+  rnf AppUnitError' {..} =+    Prelude.rnf appUnitErrorCategory
+ gen/Amazonka/MigrationHubStrategy/Types/AppUnitErrorCategory.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.MigrationHubStrategy.Types.AppUnitErrorCategory+-- 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.MigrationHubStrategy.Types.AppUnitErrorCategory+  ( AppUnitErrorCategory+      ( ..,+        AppUnitErrorCategory_CONNECTIVITY_ERROR,+        AppUnitErrorCategory_CREDENTIAL_ERROR,+        AppUnitErrorCategory_OTHER_ERROR,+        AppUnitErrorCategory_PERMISSION_ERROR,+        AppUnitErrorCategory_UNSUPPORTED_ERROR+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype AppUnitErrorCategory = AppUnitErrorCategory'+  { fromAppUnitErrorCategory ::+      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 AppUnitErrorCategory_CONNECTIVITY_ERROR :: AppUnitErrorCategory+pattern AppUnitErrorCategory_CONNECTIVITY_ERROR = AppUnitErrorCategory' "CONNECTIVITY_ERROR"++pattern AppUnitErrorCategory_CREDENTIAL_ERROR :: AppUnitErrorCategory+pattern AppUnitErrorCategory_CREDENTIAL_ERROR = AppUnitErrorCategory' "CREDENTIAL_ERROR"++pattern AppUnitErrorCategory_OTHER_ERROR :: AppUnitErrorCategory+pattern AppUnitErrorCategory_OTHER_ERROR = AppUnitErrorCategory' "OTHER_ERROR"++pattern AppUnitErrorCategory_PERMISSION_ERROR :: AppUnitErrorCategory+pattern AppUnitErrorCategory_PERMISSION_ERROR = AppUnitErrorCategory' "PERMISSION_ERROR"++pattern AppUnitErrorCategory_UNSUPPORTED_ERROR :: AppUnitErrorCategory+pattern AppUnitErrorCategory_UNSUPPORTED_ERROR = AppUnitErrorCategory' "UNSUPPORTED_ERROR"++{-# COMPLETE+  AppUnitErrorCategory_CONNECTIVITY_ERROR,+  AppUnitErrorCategory_CREDENTIAL_ERROR,+  AppUnitErrorCategory_OTHER_ERROR,+  AppUnitErrorCategory_PERMISSION_ERROR,+  AppUnitErrorCategory_UNSUPPORTED_ERROR,+  AppUnitErrorCategory'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ApplicationComponentCriteria.hs view
@@ -0,0 +1,101 @@+{-# 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.MigrationHubStrategy.Types.ApplicationComponentCriteria+-- 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.MigrationHubStrategy.Types.ApplicationComponentCriteria+  ( ApplicationComponentCriteria+      ( ..,+        ApplicationComponentCriteria_ANALYSIS_STATUS,+        ApplicationComponentCriteria_APP_NAME,+        ApplicationComponentCriteria_APP_TYPE,+        ApplicationComponentCriteria_DESTINATION,+        ApplicationComponentCriteria_ERROR_CATEGORY,+        ApplicationComponentCriteria_NOT_DEFINED,+        ApplicationComponentCriteria_SERVER_ID,+        ApplicationComponentCriteria_STRATEGY+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ApplicationComponentCriteria = ApplicationComponentCriteria'+  { fromApplicationComponentCriteria ::+      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 ApplicationComponentCriteria_ANALYSIS_STATUS :: ApplicationComponentCriteria+pattern ApplicationComponentCriteria_ANALYSIS_STATUS = ApplicationComponentCriteria' "ANALYSIS_STATUS"++pattern ApplicationComponentCriteria_APP_NAME :: ApplicationComponentCriteria+pattern ApplicationComponentCriteria_APP_NAME = ApplicationComponentCriteria' "APP_NAME"++pattern ApplicationComponentCriteria_APP_TYPE :: ApplicationComponentCriteria+pattern ApplicationComponentCriteria_APP_TYPE = ApplicationComponentCriteria' "APP_TYPE"++pattern ApplicationComponentCriteria_DESTINATION :: ApplicationComponentCriteria+pattern ApplicationComponentCriteria_DESTINATION = ApplicationComponentCriteria' "DESTINATION"++pattern ApplicationComponentCriteria_ERROR_CATEGORY :: ApplicationComponentCriteria+pattern ApplicationComponentCriteria_ERROR_CATEGORY = ApplicationComponentCriteria' "ERROR_CATEGORY"++pattern ApplicationComponentCriteria_NOT_DEFINED :: ApplicationComponentCriteria+pattern ApplicationComponentCriteria_NOT_DEFINED = ApplicationComponentCriteria' "NOT_DEFINED"++pattern ApplicationComponentCriteria_SERVER_ID :: ApplicationComponentCriteria+pattern ApplicationComponentCriteria_SERVER_ID = ApplicationComponentCriteria' "SERVER_ID"++pattern ApplicationComponentCriteria_STRATEGY :: ApplicationComponentCriteria+pattern ApplicationComponentCriteria_STRATEGY = ApplicationComponentCriteria' "STRATEGY"++{-# COMPLETE+  ApplicationComponentCriteria_ANALYSIS_STATUS,+  ApplicationComponentCriteria_APP_NAME,+  ApplicationComponentCriteria_APP_TYPE,+  ApplicationComponentCriteria_DESTINATION,+  ApplicationComponentCriteria_ERROR_CATEGORY,+  ApplicationComponentCriteria_NOT_DEFINED,+  ApplicationComponentCriteria_SERVER_ID,+  ApplicationComponentCriteria_STRATEGY,+  ApplicationComponentCriteria'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ApplicationComponentDetail.hs view
@@ -0,0 +1,362 @@+{-# 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.MigrationHubStrategy.Types.ApplicationComponentDetail+-- 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.MigrationHubStrategy.Types.ApplicationComponentDetail where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AntipatternReportStatus+import Amazonka.MigrationHubStrategy.Types.AntipatternSeveritySummary+import Amazonka.MigrationHubStrategy.Types.AppType+import Amazonka.MigrationHubStrategy.Types.AppUnitError+import Amazonka.MigrationHubStrategy.Types.DatabaseConfigDetail+import Amazonka.MigrationHubStrategy.Types.InclusionStatus+import Amazonka.MigrationHubStrategy.Types.RecommendationSet+import Amazonka.MigrationHubStrategy.Types.ResourceSubType+import Amazonka.MigrationHubStrategy.Types.RuntimeAnalysisStatus+import Amazonka.MigrationHubStrategy.Types.S3Object+import Amazonka.MigrationHubStrategy.Types.SourceCodeRepository+import Amazonka.MigrationHubStrategy.Types.SrcCodeOrDbAnalysisStatus+import qualified Amazonka.Prelude as Prelude++-- | Contains detailed information about an application component.+--+-- /See:/ 'newApplicationComponentDetail' smart constructor.+data ApplicationComponentDetail = ApplicationComponentDetail'+  { -- | The status of analysis, if the application component has source code or+    -- an associated database.+    analysisStatus :: Prelude.Maybe SrcCodeOrDbAnalysisStatus,+    -- | The S3 bucket name and the Amazon S3 key name for the anti-pattern+    -- report.+    antipatternReportS3Object :: Prelude.Maybe S3Object,+    -- | The status of the anti-pattern report generation.+    antipatternReportStatus :: Prelude.Maybe AntipatternReportStatus,+    -- | The status message for the anti-pattern.+    antipatternReportStatusMessage :: Prelude.Maybe Prelude.Text,+    -- | The type of application component.+    appType :: Prelude.Maybe AppType,+    -- | The error in the analysis of the source code or database.+    appUnitError :: Prelude.Maybe AppUnitError,+    -- | The ID of the server that the application component is running on.+    associatedServerId :: Prelude.Maybe Prelude.Text,+    -- | Configuration details for the database associated with the application+    -- component.+    databaseConfigDetail :: Prelude.Maybe DatabaseConfigDetail,+    -- | The ID of the application component.+    id :: Prelude.Maybe Prelude.Text,+    -- | Indicates whether the application component has been included for server+    -- recommendation or not.+    inclusionStatus :: Prelude.Maybe InclusionStatus,+    -- | The timestamp of when the application component was assessed.+    lastAnalyzedTimestamp :: Prelude.Maybe Data.POSIX,+    -- | A list of anti-pattern severity summaries.+    listAntipatternSeveritySummary :: Prelude.Maybe [AntipatternSeveritySummary],+    -- | Set to true if the application component is running on multiple servers.+    moreServerAssociationExists :: Prelude.Maybe Prelude.Bool,+    -- | The name of application component.+    name :: Prelude.Maybe Prelude.Text,+    -- | OS driver.+    osDriver :: Prelude.Maybe Prelude.Text,+    -- | OS version.+    osVersion :: Prelude.Maybe Prelude.Text,+    -- | The top recommendation set for the application component.+    recommendationSet :: Prelude.Maybe RecommendationSet,+    -- | The application component subtype.+    resourceSubType :: Prelude.Maybe ResourceSubType,+    -- | The status of the application unit.+    runtimeStatus :: Prelude.Maybe RuntimeAnalysisStatus,+    -- | The status message for the application unit.+    runtimeStatusMessage :: Prelude.Maybe Prelude.Text,+    -- | Details about the source code repository associated with the application+    -- component.+    sourceCodeRepositories :: Prelude.Maybe [SourceCodeRepository],+    -- | A detailed description of the analysis status and any failure message.+    statusMessage :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApplicationComponentDetail' 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:+--+-- 'analysisStatus', 'applicationComponentDetail_analysisStatus' - The status of analysis, if the application component has source code or+-- an associated database.+--+-- 'antipatternReportS3Object', 'applicationComponentDetail_antipatternReportS3Object' - The S3 bucket name and the Amazon S3 key name for the anti-pattern+-- report.+--+-- 'antipatternReportStatus', 'applicationComponentDetail_antipatternReportStatus' - The status of the anti-pattern report generation.+--+-- 'antipatternReportStatusMessage', 'applicationComponentDetail_antipatternReportStatusMessage' - The status message for the anti-pattern.+--+-- 'appType', 'applicationComponentDetail_appType' - The type of application component.+--+-- 'appUnitError', 'applicationComponentDetail_appUnitError' - The error in the analysis of the source code or database.+--+-- 'associatedServerId', 'applicationComponentDetail_associatedServerId' - The ID of the server that the application component is running on.+--+-- 'databaseConfigDetail', 'applicationComponentDetail_databaseConfigDetail' - Configuration details for the database associated with the application+-- component.+--+-- 'id', 'applicationComponentDetail_id' - The ID of the application component.+--+-- 'inclusionStatus', 'applicationComponentDetail_inclusionStatus' - Indicates whether the application component has been included for server+-- recommendation or not.+--+-- 'lastAnalyzedTimestamp', 'applicationComponentDetail_lastAnalyzedTimestamp' - The timestamp of when the application component was assessed.+--+-- 'listAntipatternSeveritySummary', 'applicationComponentDetail_listAntipatternSeveritySummary' - A list of anti-pattern severity summaries.+--+-- 'moreServerAssociationExists', 'applicationComponentDetail_moreServerAssociationExists' - Set to true if the application component is running on multiple servers.+--+-- 'name', 'applicationComponentDetail_name' - The name of application component.+--+-- 'osDriver', 'applicationComponentDetail_osDriver' - OS driver.+--+-- 'osVersion', 'applicationComponentDetail_osVersion' - OS version.+--+-- 'recommendationSet', 'applicationComponentDetail_recommendationSet' - The top recommendation set for the application component.+--+-- 'resourceSubType', 'applicationComponentDetail_resourceSubType' - The application component subtype.+--+-- 'runtimeStatus', 'applicationComponentDetail_runtimeStatus' - The status of the application unit.+--+-- 'runtimeStatusMessage', 'applicationComponentDetail_runtimeStatusMessage' - The status message for the application unit.+--+-- 'sourceCodeRepositories', 'applicationComponentDetail_sourceCodeRepositories' - Details about the source code repository associated with the application+-- component.+--+-- 'statusMessage', 'applicationComponentDetail_statusMessage' - A detailed description of the analysis status and any failure message.+newApplicationComponentDetail ::+  ApplicationComponentDetail+newApplicationComponentDetail =+  ApplicationComponentDetail'+    { analysisStatus =+        Prelude.Nothing,+      antipatternReportS3Object = Prelude.Nothing,+      antipatternReportStatus = Prelude.Nothing,+      antipatternReportStatusMessage =+        Prelude.Nothing,+      appType = Prelude.Nothing,+      appUnitError = Prelude.Nothing,+      associatedServerId = Prelude.Nothing,+      databaseConfigDetail = Prelude.Nothing,+      id = Prelude.Nothing,+      inclusionStatus = Prelude.Nothing,+      lastAnalyzedTimestamp = Prelude.Nothing,+      listAntipatternSeveritySummary =+        Prelude.Nothing,+      moreServerAssociationExists = Prelude.Nothing,+      name = Prelude.Nothing,+      osDriver = Prelude.Nothing,+      osVersion = Prelude.Nothing,+      recommendationSet = Prelude.Nothing,+      resourceSubType = Prelude.Nothing,+      runtimeStatus = Prelude.Nothing,+      runtimeStatusMessage = Prelude.Nothing,+      sourceCodeRepositories = Prelude.Nothing,+      statusMessage = Prelude.Nothing+    }++-- | The status of analysis, if the application component has source code or+-- an associated database.+applicationComponentDetail_analysisStatus :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe SrcCodeOrDbAnalysisStatus)+applicationComponentDetail_analysisStatus = Lens.lens (\ApplicationComponentDetail' {analysisStatus} -> analysisStatus) (\s@ApplicationComponentDetail' {} a -> s {analysisStatus = a} :: ApplicationComponentDetail)++-- | The S3 bucket name and the Amazon S3 key name for the anti-pattern+-- report.+applicationComponentDetail_antipatternReportS3Object :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe S3Object)+applicationComponentDetail_antipatternReportS3Object = Lens.lens (\ApplicationComponentDetail' {antipatternReportS3Object} -> antipatternReportS3Object) (\s@ApplicationComponentDetail' {} a -> s {antipatternReportS3Object = a} :: ApplicationComponentDetail)++-- | The status of the anti-pattern report generation.+applicationComponentDetail_antipatternReportStatus :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe AntipatternReportStatus)+applicationComponentDetail_antipatternReportStatus = Lens.lens (\ApplicationComponentDetail' {antipatternReportStatus} -> antipatternReportStatus) (\s@ApplicationComponentDetail' {} a -> s {antipatternReportStatus = a} :: ApplicationComponentDetail)++-- | The status message for the anti-pattern.+applicationComponentDetail_antipatternReportStatusMessage :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Text)+applicationComponentDetail_antipatternReportStatusMessage = Lens.lens (\ApplicationComponentDetail' {antipatternReportStatusMessage} -> antipatternReportStatusMessage) (\s@ApplicationComponentDetail' {} a -> s {antipatternReportStatusMessage = a} :: ApplicationComponentDetail)++-- | The type of application component.+applicationComponentDetail_appType :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe AppType)+applicationComponentDetail_appType = Lens.lens (\ApplicationComponentDetail' {appType} -> appType) (\s@ApplicationComponentDetail' {} a -> s {appType = a} :: ApplicationComponentDetail)++-- | The error in the analysis of the source code or database.+applicationComponentDetail_appUnitError :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe AppUnitError)+applicationComponentDetail_appUnitError = Lens.lens (\ApplicationComponentDetail' {appUnitError} -> appUnitError) (\s@ApplicationComponentDetail' {} a -> s {appUnitError = a} :: ApplicationComponentDetail)++-- | The ID of the server that the application component is running on.+applicationComponentDetail_associatedServerId :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Text)+applicationComponentDetail_associatedServerId = Lens.lens (\ApplicationComponentDetail' {associatedServerId} -> associatedServerId) (\s@ApplicationComponentDetail' {} a -> s {associatedServerId = a} :: ApplicationComponentDetail)++-- | Configuration details for the database associated with the application+-- component.+applicationComponentDetail_databaseConfigDetail :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe DatabaseConfigDetail)+applicationComponentDetail_databaseConfigDetail = Lens.lens (\ApplicationComponentDetail' {databaseConfigDetail} -> databaseConfigDetail) (\s@ApplicationComponentDetail' {} a -> s {databaseConfigDetail = a} :: ApplicationComponentDetail)++-- | The ID of the application component.+applicationComponentDetail_id :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Text)+applicationComponentDetail_id = Lens.lens (\ApplicationComponentDetail' {id} -> id) (\s@ApplicationComponentDetail' {} a -> s {id = a} :: ApplicationComponentDetail)++-- | Indicates whether the application component has been included for server+-- recommendation or not.+applicationComponentDetail_inclusionStatus :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe InclusionStatus)+applicationComponentDetail_inclusionStatus = Lens.lens (\ApplicationComponentDetail' {inclusionStatus} -> inclusionStatus) (\s@ApplicationComponentDetail' {} a -> s {inclusionStatus = a} :: ApplicationComponentDetail)++-- | The timestamp of when the application component was assessed.+applicationComponentDetail_lastAnalyzedTimestamp :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.UTCTime)+applicationComponentDetail_lastAnalyzedTimestamp = Lens.lens (\ApplicationComponentDetail' {lastAnalyzedTimestamp} -> lastAnalyzedTimestamp) (\s@ApplicationComponentDetail' {} a -> s {lastAnalyzedTimestamp = a} :: ApplicationComponentDetail) Prelude.. Lens.mapping Data._Time++-- | A list of anti-pattern severity summaries.+applicationComponentDetail_listAntipatternSeveritySummary :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe [AntipatternSeveritySummary])+applicationComponentDetail_listAntipatternSeveritySummary = Lens.lens (\ApplicationComponentDetail' {listAntipatternSeveritySummary} -> listAntipatternSeveritySummary) (\s@ApplicationComponentDetail' {} a -> s {listAntipatternSeveritySummary = a} :: ApplicationComponentDetail) Prelude.. Lens.mapping Lens.coerced++-- | Set to true if the application component is running on multiple servers.+applicationComponentDetail_moreServerAssociationExists :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Bool)+applicationComponentDetail_moreServerAssociationExists = Lens.lens (\ApplicationComponentDetail' {moreServerAssociationExists} -> moreServerAssociationExists) (\s@ApplicationComponentDetail' {} a -> s {moreServerAssociationExists = a} :: ApplicationComponentDetail)++-- | The name of application component.+applicationComponentDetail_name :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Text)+applicationComponentDetail_name = Lens.lens (\ApplicationComponentDetail' {name} -> name) (\s@ApplicationComponentDetail' {} a -> s {name = a} :: ApplicationComponentDetail)++-- | OS driver.+applicationComponentDetail_osDriver :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Text)+applicationComponentDetail_osDriver = Lens.lens (\ApplicationComponentDetail' {osDriver} -> osDriver) (\s@ApplicationComponentDetail' {} a -> s {osDriver = a} :: ApplicationComponentDetail)++-- | OS version.+applicationComponentDetail_osVersion :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Text)+applicationComponentDetail_osVersion = Lens.lens (\ApplicationComponentDetail' {osVersion} -> osVersion) (\s@ApplicationComponentDetail' {} a -> s {osVersion = a} :: ApplicationComponentDetail)++-- | The top recommendation set for the application component.+applicationComponentDetail_recommendationSet :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe RecommendationSet)+applicationComponentDetail_recommendationSet = Lens.lens (\ApplicationComponentDetail' {recommendationSet} -> recommendationSet) (\s@ApplicationComponentDetail' {} a -> s {recommendationSet = a} :: ApplicationComponentDetail)++-- | The application component subtype.+applicationComponentDetail_resourceSubType :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe ResourceSubType)+applicationComponentDetail_resourceSubType = Lens.lens (\ApplicationComponentDetail' {resourceSubType} -> resourceSubType) (\s@ApplicationComponentDetail' {} a -> s {resourceSubType = a} :: ApplicationComponentDetail)++-- | The status of the application unit.+applicationComponentDetail_runtimeStatus :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe RuntimeAnalysisStatus)+applicationComponentDetail_runtimeStatus = Lens.lens (\ApplicationComponentDetail' {runtimeStatus} -> runtimeStatus) (\s@ApplicationComponentDetail' {} a -> s {runtimeStatus = a} :: ApplicationComponentDetail)++-- | The status message for the application unit.+applicationComponentDetail_runtimeStatusMessage :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Text)+applicationComponentDetail_runtimeStatusMessage = Lens.lens (\ApplicationComponentDetail' {runtimeStatusMessage} -> runtimeStatusMessage) (\s@ApplicationComponentDetail' {} a -> s {runtimeStatusMessage = a} :: ApplicationComponentDetail)++-- | Details about the source code repository associated with the application+-- component.+applicationComponentDetail_sourceCodeRepositories :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe [SourceCodeRepository])+applicationComponentDetail_sourceCodeRepositories = Lens.lens (\ApplicationComponentDetail' {sourceCodeRepositories} -> sourceCodeRepositories) (\s@ApplicationComponentDetail' {} a -> s {sourceCodeRepositories = a} :: ApplicationComponentDetail) Prelude.. Lens.mapping Lens.coerced++-- | A detailed description of the analysis status and any failure message.+applicationComponentDetail_statusMessage :: Lens.Lens' ApplicationComponentDetail (Prelude.Maybe Prelude.Text)+applicationComponentDetail_statusMessage = Lens.lens (\ApplicationComponentDetail' {statusMessage} -> statusMessage) (\s@ApplicationComponentDetail' {} a -> s {statusMessage = a} :: ApplicationComponentDetail)++instance Data.FromJSON ApplicationComponentDetail where+  parseJSON =+    Data.withObject+      "ApplicationComponentDetail"+      ( \x ->+          ApplicationComponentDetail'+            Prelude.<$> (x Data..:? "analysisStatus")+            Prelude.<*> (x Data..:? "antipatternReportS3Object")+            Prelude.<*> (x Data..:? "antipatternReportStatus")+            Prelude.<*> (x Data..:? "antipatternReportStatusMessage")+            Prelude.<*> (x Data..:? "appType")+            Prelude.<*> (x Data..:? "appUnitError")+            Prelude.<*> (x Data..:? "associatedServerId")+            Prelude.<*> (x Data..:? "databaseConfigDetail")+            Prelude.<*> (x Data..:? "id")+            Prelude.<*> (x Data..:? "inclusionStatus")+            Prelude.<*> (x Data..:? "lastAnalyzedTimestamp")+            Prelude.<*> ( x+                            Data..:? "listAntipatternSeveritySummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "moreServerAssociationExists")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "osDriver")+            Prelude.<*> (x Data..:? "osVersion")+            Prelude.<*> (x Data..:? "recommendationSet")+            Prelude.<*> (x Data..:? "resourceSubType")+            Prelude.<*> (x Data..:? "runtimeStatus")+            Prelude.<*> (x Data..:? "runtimeStatusMessage")+            Prelude.<*> ( x+                            Data..:? "sourceCodeRepositories"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "statusMessage")+      )++instance Prelude.Hashable ApplicationComponentDetail where+  hashWithSalt _salt ApplicationComponentDetail' {..} =+    _salt+      `Prelude.hashWithSalt` analysisStatus+      `Prelude.hashWithSalt` antipatternReportS3Object+      `Prelude.hashWithSalt` antipatternReportStatus+      `Prelude.hashWithSalt` antipatternReportStatusMessage+      `Prelude.hashWithSalt` appType+      `Prelude.hashWithSalt` appUnitError+      `Prelude.hashWithSalt` associatedServerId+      `Prelude.hashWithSalt` databaseConfigDetail+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` inclusionStatus+      `Prelude.hashWithSalt` lastAnalyzedTimestamp+      `Prelude.hashWithSalt` listAntipatternSeveritySummary+      `Prelude.hashWithSalt` moreServerAssociationExists+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` osDriver+      `Prelude.hashWithSalt` osVersion+      `Prelude.hashWithSalt` recommendationSet+      `Prelude.hashWithSalt` resourceSubType+      `Prelude.hashWithSalt` runtimeStatus+      `Prelude.hashWithSalt` runtimeStatusMessage+      `Prelude.hashWithSalt` sourceCodeRepositories+      `Prelude.hashWithSalt` statusMessage++instance Prelude.NFData ApplicationComponentDetail where+  rnf ApplicationComponentDetail' {..} =+    Prelude.rnf analysisStatus+      `Prelude.seq` Prelude.rnf antipatternReportS3Object+      `Prelude.seq` Prelude.rnf antipatternReportStatus+      `Prelude.seq` Prelude.rnf antipatternReportStatusMessage+      `Prelude.seq` Prelude.rnf appType+      `Prelude.seq` Prelude.rnf appUnitError+      `Prelude.seq` Prelude.rnf associatedServerId+      `Prelude.seq` Prelude.rnf databaseConfigDetail+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf inclusionStatus+      `Prelude.seq` Prelude.rnf lastAnalyzedTimestamp+      `Prelude.seq` Prelude.rnf listAntipatternSeveritySummary+      `Prelude.seq` Prelude.rnf moreServerAssociationExists+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf osDriver+      `Prelude.seq` Prelude.rnf osVersion+      `Prelude.seq` Prelude.rnf recommendationSet+      `Prelude.seq` Prelude.rnf resourceSubType+      `Prelude.seq` Prelude.rnf runtimeStatus+      `Prelude.seq` Prelude.rnf+        runtimeStatusMessage+      `Prelude.seq` Prelude.rnf+        sourceCodeRepositories+      `Prelude.seq` Prelude.rnf statusMessage
+ gen/Amazonka/MigrationHubStrategy/Types/ApplicationComponentStatusSummary.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.MigrationHubStrategy.Types.ApplicationComponentStatusSummary+-- 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.MigrationHubStrategy.Types.ApplicationComponentStatusSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.SrcCodeOrDbAnalysisStatus+import qualified Amazonka.Prelude as Prelude++-- | Summary of the analysis status of the application component.+--+-- /See:/ 'newApplicationComponentStatusSummary' smart constructor.+data ApplicationComponentStatusSummary = ApplicationComponentStatusSummary'+  { -- | The number of application components successfully analyzed, partially+    -- successful or failed analysis.+    count :: Prelude.Maybe Prelude.Int,+    -- | The status of database analysis.+    srcCodeOrDbAnalysisStatus :: Prelude.Maybe SrcCodeOrDbAnalysisStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApplicationComponentStatusSummary' 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', 'applicationComponentStatusSummary_count' - The number of application components successfully analyzed, partially+-- successful or failed analysis.+--+-- 'srcCodeOrDbAnalysisStatus', 'applicationComponentStatusSummary_srcCodeOrDbAnalysisStatus' - The status of database analysis.+newApplicationComponentStatusSummary ::+  ApplicationComponentStatusSummary+newApplicationComponentStatusSummary =+  ApplicationComponentStatusSummary'+    { count =+        Prelude.Nothing,+      srcCodeOrDbAnalysisStatus =+        Prelude.Nothing+    }++-- | The number of application components successfully analyzed, partially+-- successful or failed analysis.+applicationComponentStatusSummary_count :: Lens.Lens' ApplicationComponentStatusSummary (Prelude.Maybe Prelude.Int)+applicationComponentStatusSummary_count = Lens.lens (\ApplicationComponentStatusSummary' {count} -> count) (\s@ApplicationComponentStatusSummary' {} a -> s {count = a} :: ApplicationComponentStatusSummary)++-- | The status of database analysis.+applicationComponentStatusSummary_srcCodeOrDbAnalysisStatus :: Lens.Lens' ApplicationComponentStatusSummary (Prelude.Maybe SrcCodeOrDbAnalysisStatus)+applicationComponentStatusSummary_srcCodeOrDbAnalysisStatus = Lens.lens (\ApplicationComponentStatusSummary' {srcCodeOrDbAnalysisStatus} -> srcCodeOrDbAnalysisStatus) (\s@ApplicationComponentStatusSummary' {} a -> s {srcCodeOrDbAnalysisStatus = a} :: ApplicationComponentStatusSummary)++instance+  Data.FromJSON+    ApplicationComponentStatusSummary+  where+  parseJSON =+    Data.withObject+      "ApplicationComponentStatusSummary"+      ( \x ->+          ApplicationComponentStatusSummary'+            Prelude.<$> (x Data..:? "count")+            Prelude.<*> (x Data..:? "srcCodeOrDbAnalysisStatus")+      )++instance+  Prelude.Hashable+    ApplicationComponentStatusSummary+  where+  hashWithSalt+    _salt+    ApplicationComponentStatusSummary' {..} =+      _salt+        `Prelude.hashWithSalt` count+        `Prelude.hashWithSalt` srcCodeOrDbAnalysisStatus++instance+  Prelude.NFData+    ApplicationComponentStatusSummary+  where+  rnf ApplicationComponentStatusSummary' {..} =+    Prelude.rnf count+      `Prelude.seq` Prelude.rnf srcCodeOrDbAnalysisStatus
+ gen/Amazonka/MigrationHubStrategy/Types/ApplicationComponentStrategy.hs view
@@ -0,0 +1,103 @@+{-# 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.MigrationHubStrategy.Types.ApplicationComponentStrategy+-- 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.MigrationHubStrategy.Types.ApplicationComponentStrategy where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.RecommendationSet+import Amazonka.MigrationHubStrategy.Types.StrategyRecommendation+import qualified Amazonka.Prelude as Prelude++-- | Contains information about a strategy recommendation for an application+-- component.+--+-- /See:/ 'newApplicationComponentStrategy' smart constructor.+data ApplicationComponentStrategy = ApplicationComponentStrategy'+  { -- | Set to true if the recommendation is set as preferred.+    isPreferred :: Prelude.Maybe Prelude.Bool,+    -- | Strategy recommendation for the application component.+    recommendation :: Prelude.Maybe RecommendationSet,+    -- | The recommendation status of a strategy for an application component.+    status :: Prelude.Maybe StrategyRecommendation+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApplicationComponentStrategy' 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:+--+-- 'isPreferred', 'applicationComponentStrategy_isPreferred' - Set to true if the recommendation is set as preferred.+--+-- 'recommendation', 'applicationComponentStrategy_recommendation' - Strategy recommendation for the application component.+--+-- 'status', 'applicationComponentStrategy_status' - The recommendation status of a strategy for an application component.+newApplicationComponentStrategy ::+  ApplicationComponentStrategy+newApplicationComponentStrategy =+  ApplicationComponentStrategy'+    { isPreferred =+        Prelude.Nothing,+      recommendation = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | Set to true if the recommendation is set as preferred.+applicationComponentStrategy_isPreferred :: Lens.Lens' ApplicationComponentStrategy (Prelude.Maybe Prelude.Bool)+applicationComponentStrategy_isPreferred = Lens.lens (\ApplicationComponentStrategy' {isPreferred} -> isPreferred) (\s@ApplicationComponentStrategy' {} a -> s {isPreferred = a} :: ApplicationComponentStrategy)++-- | Strategy recommendation for the application component.+applicationComponentStrategy_recommendation :: Lens.Lens' ApplicationComponentStrategy (Prelude.Maybe RecommendationSet)+applicationComponentStrategy_recommendation = Lens.lens (\ApplicationComponentStrategy' {recommendation} -> recommendation) (\s@ApplicationComponentStrategy' {} a -> s {recommendation = a} :: ApplicationComponentStrategy)++-- | The recommendation status of a strategy for an application component.+applicationComponentStrategy_status :: Lens.Lens' ApplicationComponentStrategy (Prelude.Maybe StrategyRecommendation)+applicationComponentStrategy_status = Lens.lens (\ApplicationComponentStrategy' {status} -> status) (\s@ApplicationComponentStrategy' {} a -> s {status = a} :: ApplicationComponentStrategy)++instance Data.FromJSON ApplicationComponentStrategy where+  parseJSON =+    Data.withObject+      "ApplicationComponentStrategy"+      ( \x ->+          ApplicationComponentStrategy'+            Prelude.<$> (x Data..:? "isPreferred")+            Prelude.<*> (x Data..:? "recommendation")+            Prelude.<*> (x Data..:? "status")+      )++instance+  Prelude.Hashable+    ApplicationComponentStrategy+  where+  hashWithSalt _salt ApplicationComponentStrategy' {..} =+    _salt+      `Prelude.hashWithSalt` isPreferred+      `Prelude.hashWithSalt` recommendation+      `Prelude.hashWithSalt` status++instance Prelude.NFData ApplicationComponentStrategy where+  rnf ApplicationComponentStrategy' {..} =+    Prelude.rnf isPreferred+      `Prelude.seq` Prelude.rnf recommendation+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/MigrationHubStrategy/Types/ApplicationComponentSummary.hs view
@@ -0,0 +1,85 @@+{-# 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.MigrationHubStrategy.Types.ApplicationComponentSummary+-- 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.MigrationHubStrategy.Types.ApplicationComponentSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AppType+import qualified Amazonka.Prelude as Prelude++-- | Contains the summary of application components.+--+-- /See:/ 'newApplicationComponentSummary' smart constructor.+data ApplicationComponentSummary = ApplicationComponentSummary'+  { -- | Contains the name of application types.+    appType :: Prelude.Maybe AppType,+    -- | Contains the count of application type.+    count :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApplicationComponentSummary' 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:+--+-- 'appType', 'applicationComponentSummary_appType' - Contains the name of application types.+--+-- 'count', 'applicationComponentSummary_count' - Contains the count of application type.+newApplicationComponentSummary ::+  ApplicationComponentSummary+newApplicationComponentSummary =+  ApplicationComponentSummary'+    { appType =+        Prelude.Nothing,+      count = Prelude.Nothing+    }++-- | Contains the name of application types.+applicationComponentSummary_appType :: Lens.Lens' ApplicationComponentSummary (Prelude.Maybe AppType)+applicationComponentSummary_appType = Lens.lens (\ApplicationComponentSummary' {appType} -> appType) (\s@ApplicationComponentSummary' {} a -> s {appType = a} :: ApplicationComponentSummary)++-- | Contains the count of application type.+applicationComponentSummary_count :: Lens.Lens' ApplicationComponentSummary (Prelude.Maybe Prelude.Int)+applicationComponentSummary_count = Lens.lens (\ApplicationComponentSummary' {count} -> count) (\s@ApplicationComponentSummary' {} a -> s {count = a} :: ApplicationComponentSummary)++instance Data.FromJSON ApplicationComponentSummary where+  parseJSON =+    Data.withObject+      "ApplicationComponentSummary"+      ( \x ->+          ApplicationComponentSummary'+            Prelude.<$> (x Data..:? "appType")+            Prelude.<*> (x Data..:? "count")+      )++instance Prelude.Hashable ApplicationComponentSummary where+  hashWithSalt _salt ApplicationComponentSummary' {..} =+    _salt+      `Prelude.hashWithSalt` appType+      `Prelude.hashWithSalt` count++instance Prelude.NFData ApplicationComponentSummary where+  rnf ApplicationComponentSummary' {..} =+    Prelude.rnf appType `Prelude.seq` Prelude.rnf count
+ gen/Amazonka/MigrationHubStrategy/Types/ApplicationMode.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.MigrationHubStrategy.Types.ApplicationMode+-- 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.MigrationHubStrategy.Types.ApplicationMode+  ( ApplicationMode+      ( ..,+        ApplicationMode_ALL,+        ApplicationMode_KNOWN,+        ApplicationMode_UNKNOWN+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ApplicationMode = ApplicationMode'+  { fromApplicationMode ::+      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 ApplicationMode_ALL :: ApplicationMode+pattern ApplicationMode_ALL = ApplicationMode' "ALL"++pattern ApplicationMode_KNOWN :: ApplicationMode+pattern ApplicationMode_KNOWN = ApplicationMode' "KNOWN"++pattern ApplicationMode_UNKNOWN :: ApplicationMode+pattern ApplicationMode_UNKNOWN = ApplicationMode' "UNKNOWN"++{-# COMPLETE+  ApplicationMode_ALL,+  ApplicationMode_KNOWN,+  ApplicationMode_UNKNOWN,+  ApplicationMode'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ApplicationPreferences.hs view
@@ -0,0 +1,82 @@+{-# 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.MigrationHubStrategy.Types.ApplicationPreferences+-- 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.MigrationHubStrategy.Types.ApplicationPreferences where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.ManagementPreference+import qualified Amazonka.Prelude as Prelude++-- | Application preferences that you specify.+--+-- /See:/ 'newApplicationPreferences' smart constructor.+data ApplicationPreferences = ApplicationPreferences'+  { -- | Application preferences that you specify to prefer managed environment.+    managementPreference :: Prelude.Maybe ManagementPreference+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApplicationPreferences' 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:+--+-- 'managementPreference', 'applicationPreferences_managementPreference' - Application preferences that you specify to prefer managed environment.+newApplicationPreferences ::+  ApplicationPreferences+newApplicationPreferences =+  ApplicationPreferences'+    { managementPreference =+        Prelude.Nothing+    }++-- | Application preferences that you specify to prefer managed environment.+applicationPreferences_managementPreference :: Lens.Lens' ApplicationPreferences (Prelude.Maybe ManagementPreference)+applicationPreferences_managementPreference = Lens.lens (\ApplicationPreferences' {managementPreference} -> managementPreference) (\s@ApplicationPreferences' {} a -> s {managementPreference = a} :: ApplicationPreferences)++instance Data.FromJSON ApplicationPreferences where+  parseJSON =+    Data.withObject+      "ApplicationPreferences"+      ( \x ->+          ApplicationPreferences'+            Prelude.<$> (x Data..:? "managementPreference")+      )++instance Prelude.Hashable ApplicationPreferences where+  hashWithSalt _salt ApplicationPreferences' {..} =+    _salt `Prelude.hashWithSalt` managementPreference++instance Prelude.NFData ApplicationPreferences where+  rnf ApplicationPreferences' {..} =+    Prelude.rnf managementPreference++instance Data.ToJSON ApplicationPreferences where+  toJSON ApplicationPreferences' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("managementPreference" Data..=)+              Prelude.<$> managementPreference+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/AssessmentStatus.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.MigrationHubStrategy.Types.AssessmentStatus+-- 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.MigrationHubStrategy.Types.AssessmentStatus+  ( AssessmentStatus+      ( ..,+        AssessmentStatus_COMPLETE,+        AssessmentStatus_FAILED,+        AssessmentStatus_IN_PROGRESS,+        AssessmentStatus_STOPPED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype AssessmentStatus = AssessmentStatus'+  { fromAssessmentStatus ::+      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 AssessmentStatus_COMPLETE :: AssessmentStatus+pattern AssessmentStatus_COMPLETE = AssessmentStatus' "COMPLETE"++pattern AssessmentStatus_FAILED :: AssessmentStatus+pattern AssessmentStatus_FAILED = AssessmentStatus' "FAILED"++pattern AssessmentStatus_IN_PROGRESS :: AssessmentStatus+pattern AssessmentStatus_IN_PROGRESS = AssessmentStatus' "IN_PROGRESS"++pattern AssessmentStatus_STOPPED :: AssessmentStatus+pattern AssessmentStatus_STOPPED = AssessmentStatus' "STOPPED"++{-# COMPLETE+  AssessmentStatus_COMPLETE,+  AssessmentStatus_FAILED,+  AssessmentStatus_IN_PROGRESS,+  AssessmentStatus_STOPPED,+  AssessmentStatus'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/AssessmentSummary.hs view
@@ -0,0 +1,224 @@+{-# 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.MigrationHubStrategy.Types.AssessmentSummary+-- 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.MigrationHubStrategy.Types.AssessmentSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AntipatternReportStatus+import Amazonka.MigrationHubStrategy.Types.AntipatternSeveritySummary+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentStatusSummary+import Amazonka.MigrationHubStrategy.Types.ApplicationComponentSummary+import Amazonka.MigrationHubStrategy.Types.S3Object+import Amazonka.MigrationHubStrategy.Types.ServerStatusSummary+import Amazonka.MigrationHubStrategy.Types.ServerSummary+import Amazonka.MigrationHubStrategy.Types.StrategySummary+import qualified Amazonka.Prelude as Prelude++-- | Contains the summary of the assessment results.+--+-- /See:/ 'newAssessmentSummary' smart constructor.+data AssessmentSummary = AssessmentSummary'+  { -- | The Amazon S3 object containing the anti-pattern report.+    antipatternReportS3Object :: Prelude.Maybe S3Object,+    -- | The status of the anti-pattern report.+    antipatternReportStatus :: Prelude.Maybe AntipatternReportStatus,+    -- | The status message of the anti-pattern report.+    antipatternReportStatusMessage :: Prelude.Maybe Prelude.Text,+    -- | The time the assessment was performed.+    lastAnalyzedTimestamp :: Prelude.Maybe Data.POSIX,+    -- | List of AntipatternSeveritySummary.+    listAntipatternSeveritySummary :: Prelude.Maybe [AntipatternSeveritySummary],+    -- | List of status summaries of the analyzed application components.+    listApplicationComponentStatusSummary :: Prelude.Maybe [ApplicationComponentStatusSummary],+    -- | List of ApplicationComponentStrategySummary.+    listApplicationComponentStrategySummary :: Prelude.Maybe [StrategySummary],+    -- | List of ApplicationComponentSummary.+    listApplicationComponentSummary :: Prelude.Maybe [ApplicationComponentSummary],+    -- | List of status summaries of the analyzed servers.+    listServerStatusSummary :: Prelude.Maybe [ServerStatusSummary],+    -- | List of ServerStrategySummary.+    listServerStrategySummary :: Prelude.Maybe [StrategySummary],+    -- | List of ServerSummary.+    listServerSummary :: Prelude.Maybe [ServerSummary]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AssessmentSummary' 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:+--+-- 'antipatternReportS3Object', 'assessmentSummary_antipatternReportS3Object' - The Amazon S3 object containing the anti-pattern report.+--+-- 'antipatternReportStatus', 'assessmentSummary_antipatternReportStatus' - The status of the anti-pattern report.+--+-- 'antipatternReportStatusMessage', 'assessmentSummary_antipatternReportStatusMessage' - The status message of the anti-pattern report.+--+-- 'lastAnalyzedTimestamp', 'assessmentSummary_lastAnalyzedTimestamp' - The time the assessment was performed.+--+-- 'listAntipatternSeveritySummary', 'assessmentSummary_listAntipatternSeveritySummary' - List of AntipatternSeveritySummary.+--+-- 'listApplicationComponentStatusSummary', 'assessmentSummary_listApplicationComponentStatusSummary' - List of status summaries of the analyzed application components.+--+-- 'listApplicationComponentStrategySummary', 'assessmentSummary_listApplicationComponentStrategySummary' - List of ApplicationComponentStrategySummary.+--+-- 'listApplicationComponentSummary', 'assessmentSummary_listApplicationComponentSummary' - List of ApplicationComponentSummary.+--+-- 'listServerStatusSummary', 'assessmentSummary_listServerStatusSummary' - List of status summaries of the analyzed servers.+--+-- 'listServerStrategySummary', 'assessmentSummary_listServerStrategySummary' - List of ServerStrategySummary.+--+-- 'listServerSummary', 'assessmentSummary_listServerSummary' - List of ServerSummary.+newAssessmentSummary ::+  AssessmentSummary+newAssessmentSummary =+  AssessmentSummary'+    { antipatternReportS3Object =+        Prelude.Nothing,+      antipatternReportStatus = Prelude.Nothing,+      antipatternReportStatusMessage = Prelude.Nothing,+      lastAnalyzedTimestamp = Prelude.Nothing,+      listAntipatternSeveritySummary = Prelude.Nothing,+      listApplicationComponentStatusSummary =+        Prelude.Nothing,+      listApplicationComponentStrategySummary =+        Prelude.Nothing,+      listApplicationComponentSummary = Prelude.Nothing,+      listServerStatusSummary = Prelude.Nothing,+      listServerStrategySummary = Prelude.Nothing,+      listServerSummary = Prelude.Nothing+    }++-- | The Amazon S3 object containing the anti-pattern report.+assessmentSummary_antipatternReportS3Object :: Lens.Lens' AssessmentSummary (Prelude.Maybe S3Object)+assessmentSummary_antipatternReportS3Object = Lens.lens (\AssessmentSummary' {antipatternReportS3Object} -> antipatternReportS3Object) (\s@AssessmentSummary' {} a -> s {antipatternReportS3Object = a} :: AssessmentSummary)++-- | The status of the anti-pattern report.+assessmentSummary_antipatternReportStatus :: Lens.Lens' AssessmentSummary (Prelude.Maybe AntipatternReportStatus)+assessmentSummary_antipatternReportStatus = Lens.lens (\AssessmentSummary' {antipatternReportStatus} -> antipatternReportStatus) (\s@AssessmentSummary' {} a -> s {antipatternReportStatus = a} :: AssessmentSummary)++-- | The status message of the anti-pattern report.+assessmentSummary_antipatternReportStatusMessage :: Lens.Lens' AssessmentSummary (Prelude.Maybe Prelude.Text)+assessmentSummary_antipatternReportStatusMessage = Lens.lens (\AssessmentSummary' {antipatternReportStatusMessage} -> antipatternReportStatusMessage) (\s@AssessmentSummary' {} a -> s {antipatternReportStatusMessage = a} :: AssessmentSummary)++-- | The time the assessment was performed.+assessmentSummary_lastAnalyzedTimestamp :: Lens.Lens' AssessmentSummary (Prelude.Maybe Prelude.UTCTime)+assessmentSummary_lastAnalyzedTimestamp = Lens.lens (\AssessmentSummary' {lastAnalyzedTimestamp} -> lastAnalyzedTimestamp) (\s@AssessmentSummary' {} a -> s {lastAnalyzedTimestamp = a} :: AssessmentSummary) Prelude.. Lens.mapping Data._Time++-- | List of AntipatternSeveritySummary.+assessmentSummary_listAntipatternSeveritySummary :: Lens.Lens' AssessmentSummary (Prelude.Maybe [AntipatternSeveritySummary])+assessmentSummary_listAntipatternSeveritySummary = Lens.lens (\AssessmentSummary' {listAntipatternSeveritySummary} -> listAntipatternSeveritySummary) (\s@AssessmentSummary' {} a -> s {listAntipatternSeveritySummary = a} :: AssessmentSummary) Prelude.. Lens.mapping Lens.coerced++-- | List of status summaries of the analyzed application components.+assessmentSummary_listApplicationComponentStatusSummary :: Lens.Lens' AssessmentSummary (Prelude.Maybe [ApplicationComponentStatusSummary])+assessmentSummary_listApplicationComponentStatusSummary = Lens.lens (\AssessmentSummary' {listApplicationComponentStatusSummary} -> listApplicationComponentStatusSummary) (\s@AssessmentSummary' {} a -> s {listApplicationComponentStatusSummary = a} :: AssessmentSummary) Prelude.. Lens.mapping Lens.coerced++-- | List of ApplicationComponentStrategySummary.+assessmentSummary_listApplicationComponentStrategySummary :: Lens.Lens' AssessmentSummary (Prelude.Maybe [StrategySummary])+assessmentSummary_listApplicationComponentStrategySummary = Lens.lens (\AssessmentSummary' {listApplicationComponentStrategySummary} -> listApplicationComponentStrategySummary) (\s@AssessmentSummary' {} a -> s {listApplicationComponentStrategySummary = a} :: AssessmentSummary) Prelude.. Lens.mapping Lens.coerced++-- | List of ApplicationComponentSummary.+assessmentSummary_listApplicationComponentSummary :: Lens.Lens' AssessmentSummary (Prelude.Maybe [ApplicationComponentSummary])+assessmentSummary_listApplicationComponentSummary = Lens.lens (\AssessmentSummary' {listApplicationComponentSummary} -> listApplicationComponentSummary) (\s@AssessmentSummary' {} a -> s {listApplicationComponentSummary = a} :: AssessmentSummary) Prelude.. Lens.mapping Lens.coerced++-- | List of status summaries of the analyzed servers.+assessmentSummary_listServerStatusSummary :: Lens.Lens' AssessmentSummary (Prelude.Maybe [ServerStatusSummary])+assessmentSummary_listServerStatusSummary = Lens.lens (\AssessmentSummary' {listServerStatusSummary} -> listServerStatusSummary) (\s@AssessmentSummary' {} a -> s {listServerStatusSummary = a} :: AssessmentSummary) Prelude.. Lens.mapping Lens.coerced++-- | List of ServerStrategySummary.+assessmentSummary_listServerStrategySummary :: Lens.Lens' AssessmentSummary (Prelude.Maybe [StrategySummary])+assessmentSummary_listServerStrategySummary = Lens.lens (\AssessmentSummary' {listServerStrategySummary} -> listServerStrategySummary) (\s@AssessmentSummary' {} a -> s {listServerStrategySummary = a} :: AssessmentSummary) Prelude.. Lens.mapping Lens.coerced++-- | List of ServerSummary.+assessmentSummary_listServerSummary :: Lens.Lens' AssessmentSummary (Prelude.Maybe [ServerSummary])+assessmentSummary_listServerSummary = Lens.lens (\AssessmentSummary' {listServerSummary} -> listServerSummary) (\s@AssessmentSummary' {} a -> s {listServerSummary = a} :: AssessmentSummary) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON AssessmentSummary where+  parseJSON =+    Data.withObject+      "AssessmentSummary"+      ( \x ->+          AssessmentSummary'+            Prelude.<$> (x Data..:? "antipatternReportS3Object")+            Prelude.<*> (x Data..:? "antipatternReportStatus")+            Prelude.<*> (x Data..:? "antipatternReportStatusMessage")+            Prelude.<*> (x Data..:? "lastAnalyzedTimestamp")+            Prelude.<*> ( x+                            Data..:? "listAntipatternSeveritySummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "listApplicationComponentStatusSummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "listApplicationComponentStrategySummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "listApplicationComponentSummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "listServerStatusSummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "listServerStrategySummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "listServerSummary"+                            Data..!= Prelude.mempty+                        )+      )++instance Prelude.Hashable AssessmentSummary where+  hashWithSalt _salt AssessmentSummary' {..} =+    _salt+      `Prelude.hashWithSalt` antipatternReportS3Object+      `Prelude.hashWithSalt` antipatternReportStatus+      `Prelude.hashWithSalt` antipatternReportStatusMessage+      `Prelude.hashWithSalt` lastAnalyzedTimestamp+      `Prelude.hashWithSalt` listAntipatternSeveritySummary+      `Prelude.hashWithSalt` listApplicationComponentStatusSummary+      `Prelude.hashWithSalt` listApplicationComponentStrategySummary+      `Prelude.hashWithSalt` listApplicationComponentSummary+      `Prelude.hashWithSalt` listServerStatusSummary+      `Prelude.hashWithSalt` listServerStrategySummary+      `Prelude.hashWithSalt` listServerSummary++instance Prelude.NFData AssessmentSummary where+  rnf AssessmentSummary' {..} =+    Prelude.rnf antipatternReportS3Object+      `Prelude.seq` Prelude.rnf antipatternReportStatus+      `Prelude.seq` Prelude.rnf antipatternReportStatusMessage+      `Prelude.seq` Prelude.rnf lastAnalyzedTimestamp+      `Prelude.seq` Prelude.rnf listAntipatternSeveritySummary+      `Prelude.seq` Prelude.rnf listApplicationComponentStatusSummary+      `Prelude.seq` Prelude.rnf listApplicationComponentStrategySummary+      `Prelude.seq` Prelude.rnf listApplicationComponentSummary+      `Prelude.seq` Prelude.rnf listServerStatusSummary+      `Prelude.seq` Prelude.rnf listServerStrategySummary+      `Prelude.seq` Prelude.rnf listServerSummary
+ gen/Amazonka/MigrationHubStrategy/Types/AssessmentTarget.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.MigrationHubStrategy.Types.AssessmentTarget+-- 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.MigrationHubStrategy.Types.AssessmentTarget where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.Condition+import qualified Amazonka.Prelude as Prelude++-- | Defines the criteria of assessment.+--+-- /See:/ 'newAssessmentTarget' smart constructor.+data AssessmentTarget = AssessmentTarget'+  { -- | Condition of an assessment.+    condition :: Condition,+    -- | Name of an assessment.+    name :: Prelude.Text,+    -- | Values of an assessment.+    values :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AssessmentTarget' 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:+--+-- 'condition', 'assessmentTarget_condition' - Condition of an assessment.+--+-- 'name', 'assessmentTarget_name' - Name of an assessment.+--+-- 'values', 'assessmentTarget_values' - Values of an assessment.+newAssessmentTarget ::+  -- | 'condition'+  Condition ->+  -- | 'name'+  Prelude.Text ->+  AssessmentTarget+newAssessmentTarget pCondition_ pName_ =+  AssessmentTarget'+    { condition = pCondition_,+      name = pName_,+      values = Prelude.mempty+    }++-- | Condition of an assessment.+assessmentTarget_condition :: Lens.Lens' AssessmentTarget Condition+assessmentTarget_condition = Lens.lens (\AssessmentTarget' {condition} -> condition) (\s@AssessmentTarget' {} a -> s {condition = a} :: AssessmentTarget)++-- | Name of an assessment.+assessmentTarget_name :: Lens.Lens' AssessmentTarget Prelude.Text+assessmentTarget_name = Lens.lens (\AssessmentTarget' {name} -> name) (\s@AssessmentTarget' {} a -> s {name = a} :: AssessmentTarget)++-- | Values of an assessment.+assessmentTarget_values :: Lens.Lens' AssessmentTarget [Prelude.Text]+assessmentTarget_values = Lens.lens (\AssessmentTarget' {values} -> values) (\s@AssessmentTarget' {} a -> s {values = a} :: AssessmentTarget) Prelude.. Lens.coerced++instance Data.FromJSON AssessmentTarget where+  parseJSON =+    Data.withObject+      "AssessmentTarget"+      ( \x ->+          AssessmentTarget'+            Prelude.<$> (x Data..: "condition")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..:? "values" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable AssessmentTarget where+  hashWithSalt _salt AssessmentTarget' {..} =+    _salt+      `Prelude.hashWithSalt` condition+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` values++instance Prelude.NFData AssessmentTarget where+  rnf AssessmentTarget' {..} =+    Prelude.rnf condition+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf values++instance Data.ToJSON AssessmentTarget where+  toJSON AssessmentTarget' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("condition" Data..= condition),+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("values" Data..= values)+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/AssociatedApplication.hs view
@@ -0,0 +1,84 @@+{-# 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.MigrationHubStrategy.Types.AssociatedApplication+-- 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.MigrationHubStrategy.Types.AssociatedApplication 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++-- | Object containing details about applications as defined in Application+-- Discovery Service.+--+-- /See:/ 'newAssociatedApplication' smart constructor.+data AssociatedApplication = AssociatedApplication'+  { -- | ID of the application as defined in Application Discovery Service.+    id :: Prelude.Maybe Prelude.Text,+    -- | Name of the application as defined in Application Discovery Service.+    name :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AssociatedApplication' 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:+--+-- 'id', 'associatedApplication_id' - ID of the application as defined in Application Discovery Service.+--+-- 'name', 'associatedApplication_name' - Name of the application as defined in Application Discovery Service.+newAssociatedApplication ::+  AssociatedApplication+newAssociatedApplication =+  AssociatedApplication'+    { id = Prelude.Nothing,+      name = Prelude.Nothing+    }++-- | ID of the application as defined in Application Discovery Service.+associatedApplication_id :: Lens.Lens' AssociatedApplication (Prelude.Maybe Prelude.Text)+associatedApplication_id = Lens.lens (\AssociatedApplication' {id} -> id) (\s@AssociatedApplication' {} a -> s {id = a} :: AssociatedApplication)++-- | Name of the application as defined in Application Discovery Service.+associatedApplication_name :: Lens.Lens' AssociatedApplication (Prelude.Maybe Prelude.Text)+associatedApplication_name = Lens.lens (\AssociatedApplication' {name} -> name) (\s@AssociatedApplication' {} a -> s {name = a} :: AssociatedApplication)++instance Data.FromJSON AssociatedApplication where+  parseJSON =+    Data.withObject+      "AssociatedApplication"+      ( \x ->+          AssociatedApplication'+            Prelude.<$> (x Data..:? "id")+            Prelude.<*> (x Data..:? "name")+      )++instance Prelude.Hashable AssociatedApplication where+  hashWithSalt _salt AssociatedApplication' {..} =+    _salt+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` name++instance Prelude.NFData AssociatedApplication where+  rnf AssociatedApplication' {..} =+    Prelude.rnf id `Prelude.seq` Prelude.rnf name
+ gen/Amazonka/MigrationHubStrategy/Types/AuthType.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.MigrationHubStrategy.Types.AuthType+-- 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.MigrationHubStrategy.Types.AuthType+  ( AuthType+      ( ..,+        AuthType_CERT,+        AuthType_NTLM,+        AuthType_SSH+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype AuthType = AuthType'+  { fromAuthType ::+      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 AuthType_CERT :: AuthType+pattern AuthType_CERT = AuthType' "CERT"++pattern AuthType_NTLM :: AuthType+pattern AuthType_NTLM = AuthType' "NTLM"++pattern AuthType_SSH :: AuthType+pattern AuthType_SSH = AuthType' "SSH"++{-# COMPLETE+  AuthType_CERT,+  AuthType_NTLM,+  AuthType_SSH,+  AuthType'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/AwsManagedResources.hs view
@@ -0,0 +1,85 @@+{-# 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.MigrationHubStrategy.Types.AwsManagedResources+-- 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.MigrationHubStrategy.Types.AwsManagedResources where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AwsManagedTargetDestination+import qualified Amazonka.Prelude as Prelude++-- | Object containing the choice of application destination that you+-- specify.+--+-- /See:/ 'newAwsManagedResources' smart constructor.+data AwsManagedResources = AwsManagedResources'+  { -- | The choice of application destination that you specify.+    targetDestination :: Prelude.NonEmpty AwsManagedTargetDestination+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AwsManagedResources' 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:+--+-- 'targetDestination', 'awsManagedResources_targetDestination' - The choice of application destination that you specify.+newAwsManagedResources ::+  -- | 'targetDestination'+  Prelude.NonEmpty AwsManagedTargetDestination ->+  AwsManagedResources+newAwsManagedResources pTargetDestination_ =+  AwsManagedResources'+    { targetDestination =+        Lens.coerced Lens.# pTargetDestination_+    }++-- | The choice of application destination that you specify.+awsManagedResources_targetDestination :: Lens.Lens' AwsManagedResources (Prelude.NonEmpty AwsManagedTargetDestination)+awsManagedResources_targetDestination = Lens.lens (\AwsManagedResources' {targetDestination} -> targetDestination) (\s@AwsManagedResources' {} a -> s {targetDestination = a} :: AwsManagedResources) Prelude.. Lens.coerced++instance Data.FromJSON AwsManagedResources where+  parseJSON =+    Data.withObject+      "AwsManagedResources"+      ( \x ->+          AwsManagedResources'+            Prelude.<$> (x Data..: "targetDestination")+      )++instance Prelude.Hashable AwsManagedResources where+  hashWithSalt _salt AwsManagedResources' {..} =+    _salt `Prelude.hashWithSalt` targetDestination++instance Prelude.NFData AwsManagedResources where+  rnf AwsManagedResources' {..} =+    Prelude.rnf targetDestination++instance Data.ToJSON AwsManagedResources where+  toJSON AwsManagedResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("targetDestination" Data..= targetDestination)+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/AwsManagedTargetDestination.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.MigrationHubStrategy.Types.AwsManagedTargetDestination+-- 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.MigrationHubStrategy.Types.AwsManagedTargetDestination+  ( AwsManagedTargetDestination+      ( ..,+        AwsManagedTargetDestination_AWS_Elastic_BeanStalk,+        AwsManagedTargetDestination_AWS_Fargate,+        AwsManagedTargetDestination_None_specified+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype AwsManagedTargetDestination = AwsManagedTargetDestination'+  { fromAwsManagedTargetDestination ::+      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 AwsManagedTargetDestination_AWS_Elastic_BeanStalk :: AwsManagedTargetDestination+pattern AwsManagedTargetDestination_AWS_Elastic_BeanStalk = AwsManagedTargetDestination' "AWS Elastic BeanStalk"++pattern AwsManagedTargetDestination_AWS_Fargate :: AwsManagedTargetDestination+pattern AwsManagedTargetDestination_AWS_Fargate = AwsManagedTargetDestination' "AWS Fargate"++pattern AwsManagedTargetDestination_None_specified :: AwsManagedTargetDestination+pattern AwsManagedTargetDestination_None_specified = AwsManagedTargetDestination' "None specified"++{-# COMPLETE+  AwsManagedTargetDestination_AWS_Elastic_BeanStalk,+  AwsManagedTargetDestination_AWS_Fargate,+  AwsManagedTargetDestination_None_specified,+  AwsManagedTargetDestination'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/BusinessGoals.hs view
@@ -0,0 +1,142 @@+{-# 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.MigrationHubStrategy.Types.BusinessGoals+-- 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.MigrationHubStrategy.Types.BusinessGoals 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++-- | Business goals that you specify.+--+-- /See:/ 'newBusinessGoals' smart constructor.+data BusinessGoals = BusinessGoals'+  { -- | Business goal to reduce license costs.+    licenseCostReduction :: Prelude.Maybe Prelude.Natural,+    -- | Business goal to modernize infrastructure by moving to cloud native+    -- technologies.+    modernizeInfrastructureWithCloudNativeTechnologies :: Prelude.Maybe Prelude.Natural,+    -- | Business goal to reduce the operational overhead on the team by moving+    -- into managed services.+    reduceOperationalOverheadWithManagedServices :: Prelude.Maybe Prelude.Natural,+    -- | Business goal to achieve migration at a fast pace.+    speedOfMigration :: Prelude.Maybe Prelude.Natural+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BusinessGoals' 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:+--+-- 'licenseCostReduction', 'businessGoals_licenseCostReduction' - Business goal to reduce license costs.+--+-- 'modernizeInfrastructureWithCloudNativeTechnologies', 'businessGoals_modernizeInfrastructureWithCloudNativeTechnologies' - Business goal to modernize infrastructure by moving to cloud native+-- technologies.+--+-- 'reduceOperationalOverheadWithManagedServices', 'businessGoals_reduceOperationalOverheadWithManagedServices' - Business goal to reduce the operational overhead on the team by moving+-- into managed services.+--+-- 'speedOfMigration', 'businessGoals_speedOfMigration' - Business goal to achieve migration at a fast pace.+newBusinessGoals ::+  BusinessGoals+newBusinessGoals =+  BusinessGoals'+    { licenseCostReduction =+        Prelude.Nothing,+      modernizeInfrastructureWithCloudNativeTechnologies =+        Prelude.Nothing,+      reduceOperationalOverheadWithManagedServices =+        Prelude.Nothing,+      speedOfMigration = Prelude.Nothing+    }++-- | Business goal to reduce license costs.+businessGoals_licenseCostReduction :: Lens.Lens' BusinessGoals (Prelude.Maybe Prelude.Natural)+businessGoals_licenseCostReduction = Lens.lens (\BusinessGoals' {licenseCostReduction} -> licenseCostReduction) (\s@BusinessGoals' {} a -> s {licenseCostReduction = a} :: BusinessGoals)++-- | Business goal to modernize infrastructure by moving to cloud native+-- technologies.+businessGoals_modernizeInfrastructureWithCloudNativeTechnologies :: Lens.Lens' BusinessGoals (Prelude.Maybe Prelude.Natural)+businessGoals_modernizeInfrastructureWithCloudNativeTechnologies = Lens.lens (\BusinessGoals' {modernizeInfrastructureWithCloudNativeTechnologies} -> modernizeInfrastructureWithCloudNativeTechnologies) (\s@BusinessGoals' {} a -> s {modernizeInfrastructureWithCloudNativeTechnologies = a} :: BusinessGoals)++-- | Business goal to reduce the operational overhead on the team by moving+-- into managed services.+businessGoals_reduceOperationalOverheadWithManagedServices :: Lens.Lens' BusinessGoals (Prelude.Maybe Prelude.Natural)+businessGoals_reduceOperationalOverheadWithManagedServices = Lens.lens (\BusinessGoals' {reduceOperationalOverheadWithManagedServices} -> reduceOperationalOverheadWithManagedServices) (\s@BusinessGoals' {} a -> s {reduceOperationalOverheadWithManagedServices = a} :: BusinessGoals)++-- | Business goal to achieve migration at a fast pace.+businessGoals_speedOfMigration :: Lens.Lens' BusinessGoals (Prelude.Maybe Prelude.Natural)+businessGoals_speedOfMigration = Lens.lens (\BusinessGoals' {speedOfMigration} -> speedOfMigration) (\s@BusinessGoals' {} a -> s {speedOfMigration = a} :: BusinessGoals)++instance Data.FromJSON BusinessGoals where+  parseJSON =+    Data.withObject+      "BusinessGoals"+      ( \x ->+          BusinessGoals'+            Prelude.<$> (x Data..:? "licenseCostReduction")+            Prelude.<*> ( x+                            Data..:? "modernizeInfrastructureWithCloudNativeTechnologies"+                        )+            Prelude.<*> ( x+                            Data..:? "reduceOperationalOverheadWithManagedServices"+                        )+            Prelude.<*> (x Data..:? "speedOfMigration")+      )++instance Prelude.Hashable BusinessGoals where+  hashWithSalt _salt BusinessGoals' {..} =+    _salt+      `Prelude.hashWithSalt` licenseCostReduction+      `Prelude.hashWithSalt` modernizeInfrastructureWithCloudNativeTechnologies+      `Prelude.hashWithSalt` reduceOperationalOverheadWithManagedServices+      `Prelude.hashWithSalt` speedOfMigration++instance Prelude.NFData BusinessGoals where+  rnf BusinessGoals' {..} =+    Prelude.rnf licenseCostReduction+      `Prelude.seq` Prelude.rnf+        modernizeInfrastructureWithCloudNativeTechnologies+      `Prelude.seq` Prelude.rnf+        reduceOperationalOverheadWithManagedServices+      `Prelude.seq` Prelude.rnf speedOfMigration++instance Data.ToJSON BusinessGoals where+  toJSON BusinessGoals' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("licenseCostReduction" Data..=)+              Prelude.<$> licenseCostReduction,+            ( "modernizeInfrastructureWithCloudNativeTechnologies"+                Data..=+            )+              Prelude.<$> modernizeInfrastructureWithCloudNativeTechnologies,+            ( "reduceOperationalOverheadWithManagedServices"+                Data..=+            )+              Prelude.<$> reduceOperationalOverheadWithManagedServices,+            ("speedOfMigration" Data..=)+              Prelude.<$> speedOfMigration+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/Collector.hs view
@@ -0,0 +1,161 @@+{-# 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.MigrationHubStrategy.Types.Collector+-- 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.MigrationHubStrategy.Types.Collector where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.CollectorHealth+import Amazonka.MigrationHubStrategy.Types.ConfigurationSummary+import qualified Amazonka.Prelude as Prelude++-- | Process data collector that runs in the environment that you specify.+--+-- /See:/ 'newCollector' smart constructor.+data Collector = Collector'+  { -- | Indicates the health of a collector.+    collectorHealth :: Prelude.Maybe CollectorHealth,+    -- | The ID of the collector.+    collectorId :: Prelude.Maybe Prelude.Text,+    -- | Current version of the collector that is running in the environment that+    -- you specify.+    collectorVersion :: Prelude.Maybe Prelude.Text,+    -- | Summary of the collector configuration.+    configurationSummary :: Prelude.Maybe ConfigurationSummary,+    -- | Hostname of the server that is hosting the collector.+    hostName :: Prelude.Maybe Prelude.Text,+    -- | IP address of the server that is hosting the collector.+    ipAddress :: Prelude.Maybe Prelude.Text,+    -- | Time when the collector last pinged the service.+    lastActivityTimeStamp :: Prelude.Maybe Prelude.Text,+    -- | Time when the collector registered with the service.+    registeredTimeStamp :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Collector' 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:+--+-- 'collectorHealth', 'collector_collectorHealth' - Indicates the health of a collector.+--+-- 'collectorId', 'collector_collectorId' - The ID of the collector.+--+-- 'collectorVersion', 'collector_collectorVersion' - Current version of the collector that is running in the environment that+-- you specify.+--+-- 'configurationSummary', 'collector_configurationSummary' - Summary of the collector configuration.+--+-- 'hostName', 'collector_hostName' - Hostname of the server that is hosting the collector.+--+-- 'ipAddress', 'collector_ipAddress' - IP address of the server that is hosting the collector.+--+-- 'lastActivityTimeStamp', 'collector_lastActivityTimeStamp' - Time when the collector last pinged the service.+--+-- 'registeredTimeStamp', 'collector_registeredTimeStamp' - Time when the collector registered with the service.+newCollector ::+  Collector+newCollector =+  Collector'+    { collectorHealth = Prelude.Nothing,+      collectorId = Prelude.Nothing,+      collectorVersion = Prelude.Nothing,+      configurationSummary = Prelude.Nothing,+      hostName = Prelude.Nothing,+      ipAddress = Prelude.Nothing,+      lastActivityTimeStamp = Prelude.Nothing,+      registeredTimeStamp = Prelude.Nothing+    }++-- | Indicates the health of a collector.+collector_collectorHealth :: Lens.Lens' Collector (Prelude.Maybe CollectorHealth)+collector_collectorHealth = Lens.lens (\Collector' {collectorHealth} -> collectorHealth) (\s@Collector' {} a -> s {collectorHealth = a} :: Collector)++-- | The ID of the collector.+collector_collectorId :: Lens.Lens' Collector (Prelude.Maybe Prelude.Text)+collector_collectorId = Lens.lens (\Collector' {collectorId} -> collectorId) (\s@Collector' {} a -> s {collectorId = a} :: Collector)++-- | Current version of the collector that is running in the environment that+-- you specify.+collector_collectorVersion :: Lens.Lens' Collector (Prelude.Maybe Prelude.Text)+collector_collectorVersion = Lens.lens (\Collector' {collectorVersion} -> collectorVersion) (\s@Collector' {} a -> s {collectorVersion = a} :: Collector)++-- | Summary of the collector configuration.+collector_configurationSummary :: Lens.Lens' Collector (Prelude.Maybe ConfigurationSummary)+collector_configurationSummary = Lens.lens (\Collector' {configurationSummary} -> configurationSummary) (\s@Collector' {} a -> s {configurationSummary = a} :: Collector)++-- | Hostname of the server that is hosting the collector.+collector_hostName :: Lens.Lens' Collector (Prelude.Maybe Prelude.Text)+collector_hostName = Lens.lens (\Collector' {hostName} -> hostName) (\s@Collector' {} a -> s {hostName = a} :: Collector)++-- | IP address of the server that is hosting the collector.+collector_ipAddress :: Lens.Lens' Collector (Prelude.Maybe Prelude.Text)+collector_ipAddress = Lens.lens (\Collector' {ipAddress} -> ipAddress) (\s@Collector' {} a -> s {ipAddress = a} :: Collector)++-- | Time when the collector last pinged the service.+collector_lastActivityTimeStamp :: Lens.Lens' Collector (Prelude.Maybe Prelude.Text)+collector_lastActivityTimeStamp = Lens.lens (\Collector' {lastActivityTimeStamp} -> lastActivityTimeStamp) (\s@Collector' {} a -> s {lastActivityTimeStamp = a} :: Collector)++-- | Time when the collector registered with the service.+collector_registeredTimeStamp :: Lens.Lens' Collector (Prelude.Maybe Prelude.Text)+collector_registeredTimeStamp = Lens.lens (\Collector' {registeredTimeStamp} -> registeredTimeStamp) (\s@Collector' {} a -> s {registeredTimeStamp = a} :: Collector)++instance Data.FromJSON Collector where+  parseJSON =+    Data.withObject+      "Collector"+      ( \x ->+          Collector'+            Prelude.<$> (x Data..:? "collectorHealth")+            Prelude.<*> (x Data..:? "collectorId")+            Prelude.<*> (x Data..:? "collectorVersion")+            Prelude.<*> (x Data..:? "configurationSummary")+            Prelude.<*> (x Data..:? "hostName")+            Prelude.<*> (x Data..:? "ipAddress")+            Prelude.<*> (x Data..:? "lastActivityTimeStamp")+            Prelude.<*> (x Data..:? "registeredTimeStamp")+      )++instance Prelude.Hashable Collector where+  hashWithSalt _salt Collector' {..} =+    _salt+      `Prelude.hashWithSalt` collectorHealth+      `Prelude.hashWithSalt` collectorId+      `Prelude.hashWithSalt` collectorVersion+      `Prelude.hashWithSalt` configurationSummary+      `Prelude.hashWithSalt` hostName+      `Prelude.hashWithSalt` ipAddress+      `Prelude.hashWithSalt` lastActivityTimeStamp+      `Prelude.hashWithSalt` registeredTimeStamp++instance Prelude.NFData Collector where+  rnf Collector' {..} =+    Prelude.rnf collectorHealth+      `Prelude.seq` Prelude.rnf collectorId+      `Prelude.seq` Prelude.rnf collectorVersion+      `Prelude.seq` Prelude.rnf configurationSummary+      `Prelude.seq` Prelude.rnf hostName+      `Prelude.seq` Prelude.rnf ipAddress+      `Prelude.seq` Prelude.rnf lastActivityTimeStamp+      `Prelude.seq` Prelude.rnf registeredTimeStamp
+ gen/Amazonka/MigrationHubStrategy/Types/CollectorHealth.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.MigrationHubStrategy.Types.CollectorHealth+-- 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.MigrationHubStrategy.Types.CollectorHealth+  ( CollectorHealth+      ( ..,+        CollectorHealth_COLLECTOR_HEALTHY,+        CollectorHealth_COLLECTOR_UNHEALTHY+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype CollectorHealth = CollectorHealth'+  { fromCollectorHealth ::+      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 CollectorHealth_COLLECTOR_HEALTHY :: CollectorHealth+pattern CollectorHealth_COLLECTOR_HEALTHY = CollectorHealth' "COLLECTOR_HEALTHY"++pattern CollectorHealth_COLLECTOR_UNHEALTHY :: CollectorHealth+pattern CollectorHealth_COLLECTOR_UNHEALTHY = CollectorHealth' "COLLECTOR_UNHEALTHY"++{-# COMPLETE+  CollectorHealth_COLLECTOR_HEALTHY,+  CollectorHealth_COLLECTOR_UNHEALTHY,+  CollectorHealth'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/Condition.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.MigrationHubStrategy.Types.Condition+-- 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.MigrationHubStrategy.Types.Condition+  ( Condition+      ( ..,+        Condition_CONTAINS,+        Condition_EQUALS,+        Condition_NOT_CONTAINS,+        Condition_NOT_EQUALS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Condition = Condition'+  { fromCondition ::+      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 Condition_CONTAINS :: Condition+pattern Condition_CONTAINS = Condition' "CONTAINS"++pattern Condition_EQUALS :: Condition+pattern Condition_EQUALS = Condition' "EQUALS"++pattern Condition_NOT_CONTAINS :: Condition+pattern Condition_NOT_CONTAINS = Condition' "NOT_CONTAINS"++pattern Condition_NOT_EQUALS :: Condition+pattern Condition_NOT_EQUALS = Condition' "NOT_EQUALS"++{-# COMPLETE+  Condition_CONTAINS,+  Condition_EQUALS,+  Condition_NOT_CONTAINS,+  Condition_NOT_EQUALS,+  Condition'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ConfigurationSummary.hs view
@@ -0,0 +1,138 @@+{-# 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.MigrationHubStrategy.Types.ConfigurationSummary+-- 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.MigrationHubStrategy.Types.ConfigurationSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.IPAddressBasedRemoteInfo+import Amazonka.MigrationHubStrategy.Types.PipelineInfo+import Amazonka.MigrationHubStrategy.Types.RemoteSourceCodeAnalysisServerInfo+import Amazonka.MigrationHubStrategy.Types.VcenterBasedRemoteInfo+import Amazonka.MigrationHubStrategy.Types.VersionControlInfo+import qualified Amazonka.Prelude as Prelude++-- | Summary of the collector configuration.+--+-- /See:/ 'newConfigurationSummary' smart constructor.+data ConfigurationSummary = ConfigurationSummary'+  { -- | IP address based configurations.+    ipAddressBasedRemoteInfoList :: Prelude.Maybe [IPAddressBasedRemoteInfo],+    -- | The list of pipeline info configurations.+    pipelineInfoList :: Prelude.Maybe [PipelineInfo],+    -- | Info about the remote server source code configuration.+    remoteSourceCodeAnalysisServerInfo :: Prelude.Maybe RemoteSourceCodeAnalysisServerInfo,+    -- | The list of vCenter configurations.+    vcenterBasedRemoteInfoList :: Prelude.Maybe [VcenterBasedRemoteInfo],+    -- | The list of the version control configurations.+    versionControlInfoList :: Prelude.Maybe [VersionControlInfo]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ConfigurationSummary' 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:+--+-- 'ipAddressBasedRemoteInfoList', 'configurationSummary_ipAddressBasedRemoteInfoList' - IP address based configurations.+--+-- 'pipelineInfoList', 'configurationSummary_pipelineInfoList' - The list of pipeline info configurations.+--+-- 'remoteSourceCodeAnalysisServerInfo', 'configurationSummary_remoteSourceCodeAnalysisServerInfo' - Info about the remote server source code configuration.+--+-- 'vcenterBasedRemoteInfoList', 'configurationSummary_vcenterBasedRemoteInfoList' - The list of vCenter configurations.+--+-- 'versionControlInfoList', 'configurationSummary_versionControlInfoList' - The list of the version control configurations.+newConfigurationSummary ::+  ConfigurationSummary+newConfigurationSummary =+  ConfigurationSummary'+    { ipAddressBasedRemoteInfoList =+        Prelude.Nothing,+      pipelineInfoList = Prelude.Nothing,+      remoteSourceCodeAnalysisServerInfo = Prelude.Nothing,+      vcenterBasedRemoteInfoList = Prelude.Nothing,+      versionControlInfoList = Prelude.Nothing+    }++-- | IP address based configurations.+configurationSummary_ipAddressBasedRemoteInfoList :: Lens.Lens' ConfigurationSummary (Prelude.Maybe [IPAddressBasedRemoteInfo])+configurationSummary_ipAddressBasedRemoteInfoList = Lens.lens (\ConfigurationSummary' {ipAddressBasedRemoteInfoList} -> ipAddressBasedRemoteInfoList) (\s@ConfigurationSummary' {} a -> s {ipAddressBasedRemoteInfoList = a} :: ConfigurationSummary) Prelude.. Lens.mapping Lens.coerced++-- | The list of pipeline info configurations.+configurationSummary_pipelineInfoList :: Lens.Lens' ConfigurationSummary (Prelude.Maybe [PipelineInfo])+configurationSummary_pipelineInfoList = Lens.lens (\ConfigurationSummary' {pipelineInfoList} -> pipelineInfoList) (\s@ConfigurationSummary' {} a -> s {pipelineInfoList = a} :: ConfigurationSummary) Prelude.. Lens.mapping Lens.coerced++-- | Info about the remote server source code configuration.+configurationSummary_remoteSourceCodeAnalysisServerInfo :: Lens.Lens' ConfigurationSummary (Prelude.Maybe RemoteSourceCodeAnalysisServerInfo)+configurationSummary_remoteSourceCodeAnalysisServerInfo = Lens.lens (\ConfigurationSummary' {remoteSourceCodeAnalysisServerInfo} -> remoteSourceCodeAnalysisServerInfo) (\s@ConfigurationSummary' {} a -> s {remoteSourceCodeAnalysisServerInfo = a} :: ConfigurationSummary)++-- | The list of vCenter configurations.+configurationSummary_vcenterBasedRemoteInfoList :: Lens.Lens' ConfigurationSummary (Prelude.Maybe [VcenterBasedRemoteInfo])+configurationSummary_vcenterBasedRemoteInfoList = Lens.lens (\ConfigurationSummary' {vcenterBasedRemoteInfoList} -> vcenterBasedRemoteInfoList) (\s@ConfigurationSummary' {} a -> s {vcenterBasedRemoteInfoList = a} :: ConfigurationSummary) Prelude.. Lens.mapping Lens.coerced++-- | The list of the version control configurations.+configurationSummary_versionControlInfoList :: Lens.Lens' ConfigurationSummary (Prelude.Maybe [VersionControlInfo])+configurationSummary_versionControlInfoList = Lens.lens (\ConfigurationSummary' {versionControlInfoList} -> versionControlInfoList) (\s@ConfigurationSummary' {} a -> s {versionControlInfoList = a} :: ConfigurationSummary) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON ConfigurationSummary where+  parseJSON =+    Data.withObject+      "ConfigurationSummary"+      ( \x ->+          ConfigurationSummary'+            Prelude.<$> ( x+                            Data..:? "ipAddressBasedRemoteInfoList"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "pipelineInfoList"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "remoteSourceCodeAnalysisServerInfo")+            Prelude.<*> ( x+                            Data..:? "vcenterBasedRemoteInfoList"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> ( x+                            Data..:? "versionControlInfoList"+                            Data..!= Prelude.mempty+                        )+      )++instance Prelude.Hashable ConfigurationSummary where+  hashWithSalt _salt ConfigurationSummary' {..} =+    _salt+      `Prelude.hashWithSalt` ipAddressBasedRemoteInfoList+      `Prelude.hashWithSalt` pipelineInfoList+      `Prelude.hashWithSalt` remoteSourceCodeAnalysisServerInfo+      `Prelude.hashWithSalt` vcenterBasedRemoteInfoList+      `Prelude.hashWithSalt` versionControlInfoList++instance Prelude.NFData ConfigurationSummary where+  rnf ConfigurationSummary' {..} =+    Prelude.rnf ipAddressBasedRemoteInfoList+      `Prelude.seq` Prelude.rnf pipelineInfoList+      `Prelude.seq` Prelude.rnf remoteSourceCodeAnalysisServerInfo+      `Prelude.seq` Prelude.rnf vcenterBasedRemoteInfoList+      `Prelude.seq` Prelude.rnf versionControlInfoList
+ gen/Amazonka/MigrationHubStrategy/Types/DataCollectionDetails.hs view
@@ -0,0 +1,158 @@+{-# 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.MigrationHubStrategy.Types.DataCollectionDetails+-- 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.MigrationHubStrategy.Types.DataCollectionDetails where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AssessmentStatus+import qualified Amazonka.Prelude as Prelude++-- | Detailed information about an assessment.+--+-- /See:/ 'newDataCollectionDetails' smart constructor.+data DataCollectionDetails = DataCollectionDetails'+  { -- | The time the assessment completes.+    completionTime :: Prelude.Maybe Data.POSIX,+    -- | The number of failed servers in the assessment.+    failed :: Prelude.Maybe Prelude.Int,+    -- | The number of servers with the assessment status @IN_PROGESS@.+    inProgress :: Prelude.Maybe Prelude.Int,+    -- | The total number of servers in the assessment.+    servers :: Prelude.Maybe Prelude.Int,+    -- | The start time of assessment.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | The status of the assessment.+    status :: Prelude.Maybe AssessmentStatus,+    -- | The status message of the assessment.+    statusMessage :: Prelude.Maybe Prelude.Text,+    -- | The number of successful servers in the assessment.+    success :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DataCollectionDetails' 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:+--+-- 'completionTime', 'dataCollectionDetails_completionTime' - The time the assessment completes.+--+-- 'failed', 'dataCollectionDetails_failed' - The number of failed servers in the assessment.+--+-- 'inProgress', 'dataCollectionDetails_inProgress' - The number of servers with the assessment status @IN_PROGESS@.+--+-- 'servers', 'dataCollectionDetails_servers' - The total number of servers in the assessment.+--+-- 'startTime', 'dataCollectionDetails_startTime' - The start time of assessment.+--+-- 'status', 'dataCollectionDetails_status' - The status of the assessment.+--+-- 'statusMessage', 'dataCollectionDetails_statusMessage' - The status message of the assessment.+--+-- 'success', 'dataCollectionDetails_success' - The number of successful servers in the assessment.+newDataCollectionDetails ::+  DataCollectionDetails+newDataCollectionDetails =+  DataCollectionDetails'+    { completionTime =+        Prelude.Nothing,+      failed = Prelude.Nothing,+      inProgress = Prelude.Nothing,+      servers = Prelude.Nothing,+      startTime = Prelude.Nothing,+      status = Prelude.Nothing,+      statusMessage = Prelude.Nothing,+      success = Prelude.Nothing+    }++-- | The time the assessment completes.+dataCollectionDetails_completionTime :: Lens.Lens' DataCollectionDetails (Prelude.Maybe Prelude.UTCTime)+dataCollectionDetails_completionTime = Lens.lens (\DataCollectionDetails' {completionTime} -> completionTime) (\s@DataCollectionDetails' {} a -> s {completionTime = a} :: DataCollectionDetails) Prelude.. Lens.mapping Data._Time++-- | The number of failed servers in the assessment.+dataCollectionDetails_failed :: Lens.Lens' DataCollectionDetails (Prelude.Maybe Prelude.Int)+dataCollectionDetails_failed = Lens.lens (\DataCollectionDetails' {failed} -> failed) (\s@DataCollectionDetails' {} a -> s {failed = a} :: DataCollectionDetails)++-- | The number of servers with the assessment status @IN_PROGESS@.+dataCollectionDetails_inProgress :: Lens.Lens' DataCollectionDetails (Prelude.Maybe Prelude.Int)+dataCollectionDetails_inProgress = Lens.lens (\DataCollectionDetails' {inProgress} -> inProgress) (\s@DataCollectionDetails' {} a -> s {inProgress = a} :: DataCollectionDetails)++-- | The total number of servers in the assessment.+dataCollectionDetails_servers :: Lens.Lens' DataCollectionDetails (Prelude.Maybe Prelude.Int)+dataCollectionDetails_servers = Lens.lens (\DataCollectionDetails' {servers} -> servers) (\s@DataCollectionDetails' {} a -> s {servers = a} :: DataCollectionDetails)++-- | The start time of assessment.+dataCollectionDetails_startTime :: Lens.Lens' DataCollectionDetails (Prelude.Maybe Prelude.UTCTime)+dataCollectionDetails_startTime = Lens.lens (\DataCollectionDetails' {startTime} -> startTime) (\s@DataCollectionDetails' {} a -> s {startTime = a} :: DataCollectionDetails) Prelude.. Lens.mapping Data._Time++-- | The status of the assessment.+dataCollectionDetails_status :: Lens.Lens' DataCollectionDetails (Prelude.Maybe AssessmentStatus)+dataCollectionDetails_status = Lens.lens (\DataCollectionDetails' {status} -> status) (\s@DataCollectionDetails' {} a -> s {status = a} :: DataCollectionDetails)++-- | The status message of the assessment.+dataCollectionDetails_statusMessage :: Lens.Lens' DataCollectionDetails (Prelude.Maybe Prelude.Text)+dataCollectionDetails_statusMessage = Lens.lens (\DataCollectionDetails' {statusMessage} -> statusMessage) (\s@DataCollectionDetails' {} a -> s {statusMessage = a} :: DataCollectionDetails)++-- | The number of successful servers in the assessment.+dataCollectionDetails_success :: Lens.Lens' DataCollectionDetails (Prelude.Maybe Prelude.Int)+dataCollectionDetails_success = Lens.lens (\DataCollectionDetails' {success} -> success) (\s@DataCollectionDetails' {} a -> s {success = a} :: DataCollectionDetails)++instance Data.FromJSON DataCollectionDetails where+  parseJSON =+    Data.withObject+      "DataCollectionDetails"+      ( \x ->+          DataCollectionDetails'+            Prelude.<$> (x Data..:? "completionTime")+            Prelude.<*> (x Data..:? "failed")+            Prelude.<*> (x Data..:? "inProgress")+            Prelude.<*> (x Data..:? "servers")+            Prelude.<*> (x Data..:? "startTime")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "statusMessage")+            Prelude.<*> (x Data..:? "success")+      )++instance Prelude.Hashable DataCollectionDetails where+  hashWithSalt _salt DataCollectionDetails' {..} =+    _salt+      `Prelude.hashWithSalt` completionTime+      `Prelude.hashWithSalt` failed+      `Prelude.hashWithSalt` inProgress+      `Prelude.hashWithSalt` servers+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` statusMessage+      `Prelude.hashWithSalt` success++instance Prelude.NFData DataCollectionDetails where+  rnf DataCollectionDetails' {..} =+    Prelude.rnf completionTime+      `Prelude.seq` Prelude.rnf failed+      `Prelude.seq` Prelude.rnf inProgress+      `Prelude.seq` Prelude.rnf servers+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf success
+ gen/Amazonka/MigrationHubStrategy/Types/DataSourceType.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.MigrationHubStrategy.Types.DataSourceType+-- 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.MigrationHubStrategy.Types.DataSourceType+  ( DataSourceType+      ( ..,+        DataSourceType_ApplicationDiscoveryService,+        DataSourceType_MPA+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DataSourceType = DataSourceType'+  { fromDataSourceType ::+      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 DataSourceType_ApplicationDiscoveryService :: DataSourceType+pattern DataSourceType_ApplicationDiscoveryService = DataSourceType' "ApplicationDiscoveryService"++pattern DataSourceType_MPA :: DataSourceType+pattern DataSourceType_MPA = DataSourceType' "MPA"++{-# COMPLETE+  DataSourceType_ApplicationDiscoveryService,+  DataSourceType_MPA,+  DataSourceType'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/DatabaseConfigDetail.hs view
@@ -0,0 +1,72 @@+{-# 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.MigrationHubStrategy.Types.DatabaseConfigDetail+-- 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.MigrationHubStrategy.Types.DatabaseConfigDetail 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++-- | Configuration information used for assessing databases.+--+-- /See:/ 'newDatabaseConfigDetail' smart constructor.+data DatabaseConfigDetail = DatabaseConfigDetail'+  { -- | AWS Secrets Manager key that holds the credentials that you use to+    -- connect to a database.+    secretName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DatabaseConfigDetail' 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:+--+-- 'secretName', 'databaseConfigDetail_secretName' - AWS Secrets Manager key that holds the credentials that you use to+-- connect to a database.+newDatabaseConfigDetail ::+  DatabaseConfigDetail+newDatabaseConfigDetail =+  DatabaseConfigDetail' {secretName = Prelude.Nothing}++-- | AWS Secrets Manager key that holds the credentials that you use to+-- connect to a database.+databaseConfigDetail_secretName :: Lens.Lens' DatabaseConfigDetail (Prelude.Maybe Prelude.Text)+databaseConfigDetail_secretName = Lens.lens (\DatabaseConfigDetail' {secretName} -> secretName) (\s@DatabaseConfigDetail' {} a -> s {secretName = a} :: DatabaseConfigDetail)++instance Data.FromJSON DatabaseConfigDetail where+  parseJSON =+    Data.withObject+      "DatabaseConfigDetail"+      ( \x ->+          DatabaseConfigDetail'+            Prelude.<$> (x Data..:? "secretName")+      )++instance Prelude.Hashable DatabaseConfigDetail where+  hashWithSalt _salt DatabaseConfigDetail' {..} =+    _salt `Prelude.hashWithSalt` secretName++instance Prelude.NFData DatabaseConfigDetail where+  rnf DatabaseConfigDetail' {..} =+    Prelude.rnf secretName
+ gen/Amazonka/MigrationHubStrategy/Types/DatabaseManagementPreference.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.MigrationHubStrategy.Types.DatabaseManagementPreference+-- 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.MigrationHubStrategy.Types.DatabaseManagementPreference+  ( DatabaseManagementPreference+      ( ..,+        DatabaseManagementPreference_AWS_managed,+        DatabaseManagementPreference_No_preference,+        DatabaseManagementPreference_Self_manage+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DatabaseManagementPreference = DatabaseManagementPreference'+  { fromDatabaseManagementPreference ::+      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 DatabaseManagementPreference_AWS_managed :: DatabaseManagementPreference+pattern DatabaseManagementPreference_AWS_managed = DatabaseManagementPreference' "AWS-managed"++pattern DatabaseManagementPreference_No_preference :: DatabaseManagementPreference+pattern DatabaseManagementPreference_No_preference = DatabaseManagementPreference' "No preference"++pattern DatabaseManagementPreference_Self_manage :: DatabaseManagementPreference+pattern DatabaseManagementPreference_Self_manage = DatabaseManagementPreference' "Self-manage"++{-# COMPLETE+  DatabaseManagementPreference_AWS_managed,+  DatabaseManagementPreference_No_preference,+  DatabaseManagementPreference_Self_manage,+  DatabaseManagementPreference'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/DatabaseMigrationPreference.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.MigrationHubStrategy.Types.DatabaseMigrationPreference+-- 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.MigrationHubStrategy.Types.DatabaseMigrationPreference where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.Heterogeneous+import Amazonka.MigrationHubStrategy.Types.Homogeneous+import Amazonka.MigrationHubStrategy.Types.NoDatabaseMigrationPreference+import qualified Amazonka.Prelude as Prelude++-- | Preferences for migrating a database to AWS.+--+-- /See:/ 'newDatabaseMigrationPreference' smart constructor.+data DatabaseMigrationPreference = DatabaseMigrationPreference'+  { -- | Indicates whether you are interested in moving from one type of database+    -- to another. For example, from SQL Server to Amazon Aurora+    -- MySQL-Compatible Edition.+    heterogeneous :: Prelude.Maybe Heterogeneous,+    -- | Indicates whether you are interested in moving to the same type of+    -- database into AWS. For example, from SQL Server in your environment to+    -- SQL Server on AWS.+    homogeneous :: Prelude.Maybe Homogeneous,+    -- | Indicated that you do not prefer heterogeneous or homogeneous.+    noPreference :: Prelude.Maybe NoDatabaseMigrationPreference+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DatabaseMigrationPreference' 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:+--+-- 'heterogeneous', 'databaseMigrationPreference_heterogeneous' - Indicates whether you are interested in moving from one type of database+-- to another. For example, from SQL Server to Amazon Aurora+-- MySQL-Compatible Edition.+--+-- 'homogeneous', 'databaseMigrationPreference_homogeneous' - Indicates whether you are interested in moving to the same type of+-- database into AWS. For example, from SQL Server in your environment to+-- SQL Server on AWS.+--+-- 'noPreference', 'databaseMigrationPreference_noPreference' - Indicated that you do not prefer heterogeneous or homogeneous.+newDatabaseMigrationPreference ::+  DatabaseMigrationPreference+newDatabaseMigrationPreference =+  DatabaseMigrationPreference'+    { heterogeneous =+        Prelude.Nothing,+      homogeneous = Prelude.Nothing,+      noPreference = Prelude.Nothing+    }++-- | Indicates whether you are interested in moving from one type of database+-- to another. For example, from SQL Server to Amazon Aurora+-- MySQL-Compatible Edition.+databaseMigrationPreference_heterogeneous :: Lens.Lens' DatabaseMigrationPreference (Prelude.Maybe Heterogeneous)+databaseMigrationPreference_heterogeneous = Lens.lens (\DatabaseMigrationPreference' {heterogeneous} -> heterogeneous) (\s@DatabaseMigrationPreference' {} a -> s {heterogeneous = a} :: DatabaseMigrationPreference)++-- | Indicates whether you are interested in moving to the same type of+-- database into AWS. For example, from SQL Server in your environment to+-- SQL Server on AWS.+databaseMigrationPreference_homogeneous :: Lens.Lens' DatabaseMigrationPreference (Prelude.Maybe Homogeneous)+databaseMigrationPreference_homogeneous = Lens.lens (\DatabaseMigrationPreference' {homogeneous} -> homogeneous) (\s@DatabaseMigrationPreference' {} a -> s {homogeneous = a} :: DatabaseMigrationPreference)++-- | Indicated that you do not prefer heterogeneous or homogeneous.+databaseMigrationPreference_noPreference :: Lens.Lens' DatabaseMigrationPreference (Prelude.Maybe NoDatabaseMigrationPreference)+databaseMigrationPreference_noPreference = Lens.lens (\DatabaseMigrationPreference' {noPreference} -> noPreference) (\s@DatabaseMigrationPreference' {} a -> s {noPreference = a} :: DatabaseMigrationPreference)++instance Data.FromJSON DatabaseMigrationPreference where+  parseJSON =+    Data.withObject+      "DatabaseMigrationPreference"+      ( \x ->+          DatabaseMigrationPreference'+            Prelude.<$> (x Data..:? "heterogeneous")+            Prelude.<*> (x Data..:? "homogeneous")+            Prelude.<*> (x Data..:? "noPreference")+      )++instance Prelude.Hashable DatabaseMigrationPreference where+  hashWithSalt _salt DatabaseMigrationPreference' {..} =+    _salt+      `Prelude.hashWithSalt` heterogeneous+      `Prelude.hashWithSalt` homogeneous+      `Prelude.hashWithSalt` noPreference++instance Prelude.NFData DatabaseMigrationPreference where+  rnf DatabaseMigrationPreference' {..} =+    Prelude.rnf heterogeneous+      `Prelude.seq` Prelude.rnf homogeneous+      `Prelude.seq` Prelude.rnf noPreference++instance Data.ToJSON DatabaseMigrationPreference where+  toJSON DatabaseMigrationPreference' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("heterogeneous" Data..=) Prelude.<$> heterogeneous,+            ("homogeneous" Data..=) Prelude.<$> homogeneous,+            ("noPreference" Data..=) Prelude.<$> noPreference+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/DatabasePreferences.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.MigrationHubStrategy.Types.DatabasePreferences+-- 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.MigrationHubStrategy.Types.DatabasePreferences where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.DatabaseManagementPreference+import Amazonka.MigrationHubStrategy.Types.DatabaseMigrationPreference+import qualified Amazonka.Prelude as Prelude++-- | Preferences on managing your databases on AWS.+--+-- /See:/ 'newDatabasePreferences' smart constructor.+data DatabasePreferences = DatabasePreferences'+  { -- | Specifies whether you\'re interested in self-managed databases or+    -- databases managed by AWS.+    databaseManagementPreference :: Prelude.Maybe DatabaseManagementPreference,+    -- | Specifies your preferred migration path.+    databaseMigrationPreference :: Prelude.Maybe DatabaseMigrationPreference+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DatabasePreferences' 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:+--+-- 'databaseManagementPreference', 'databasePreferences_databaseManagementPreference' - Specifies whether you\'re interested in self-managed databases or+-- databases managed by AWS.+--+-- 'databaseMigrationPreference', 'databasePreferences_databaseMigrationPreference' - Specifies your preferred migration path.+newDatabasePreferences ::+  DatabasePreferences+newDatabasePreferences =+  DatabasePreferences'+    { databaseManagementPreference =+        Prelude.Nothing,+      databaseMigrationPreference = Prelude.Nothing+    }++-- | Specifies whether you\'re interested in self-managed databases or+-- databases managed by AWS.+databasePreferences_databaseManagementPreference :: Lens.Lens' DatabasePreferences (Prelude.Maybe DatabaseManagementPreference)+databasePreferences_databaseManagementPreference = Lens.lens (\DatabasePreferences' {databaseManagementPreference} -> databaseManagementPreference) (\s@DatabasePreferences' {} a -> s {databaseManagementPreference = a} :: DatabasePreferences)++-- | Specifies your preferred migration path.+databasePreferences_databaseMigrationPreference :: Lens.Lens' DatabasePreferences (Prelude.Maybe DatabaseMigrationPreference)+databasePreferences_databaseMigrationPreference = Lens.lens (\DatabasePreferences' {databaseMigrationPreference} -> databaseMigrationPreference) (\s@DatabasePreferences' {} a -> s {databaseMigrationPreference = a} :: DatabasePreferences)++instance Data.FromJSON DatabasePreferences where+  parseJSON =+    Data.withObject+      "DatabasePreferences"+      ( \x ->+          DatabasePreferences'+            Prelude.<$> (x Data..:? "databaseManagementPreference")+            Prelude.<*> (x Data..:? "databaseMigrationPreference")+      )++instance Prelude.Hashable DatabasePreferences where+  hashWithSalt _salt DatabasePreferences' {..} =+    _salt+      `Prelude.hashWithSalt` databaseManagementPreference+      `Prelude.hashWithSalt` databaseMigrationPreference++instance Prelude.NFData DatabasePreferences where+  rnf DatabasePreferences' {..} =+    Prelude.rnf databaseManagementPreference+      `Prelude.seq` Prelude.rnf databaseMigrationPreference++instance Data.ToJSON DatabasePreferences where+  toJSON DatabasePreferences' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("databaseManagementPreference" Data..=)+              Prelude.<$> databaseManagementPreference,+            ("databaseMigrationPreference" Data..=)+              Prelude.<$> databaseMigrationPreference+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/Group.hs view
@@ -0,0 +1,84 @@+{-# 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.MigrationHubStrategy.Types.Group+-- 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.MigrationHubStrategy.Types.Group where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.GroupName+import qualified Amazonka.Prelude as Prelude++-- | The object containing information about distinct imports or groups for+-- Strategy Recommendations.+--+-- /See:/ 'newGroup' smart constructor.+data Group = Group'+  { -- | The key of the specific import group.+    name :: Prelude.Maybe GroupName,+    -- | The value of the specific import group.+    value :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Group' 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:+--+-- 'name', 'group_name' - The key of the specific import group.+--+-- 'value', 'group_value' - The value of the specific import group.+newGroup ::+  Group+newGroup =+  Group'+    { name = Prelude.Nothing,+      value = Prelude.Nothing+    }++-- | The key of the specific import group.+group_name :: Lens.Lens' Group (Prelude.Maybe GroupName)+group_name = Lens.lens (\Group' {name} -> name) (\s@Group' {} a -> s {name = a} :: Group)++-- | The value of the specific import group.+group_value :: Lens.Lens' Group (Prelude.Maybe Prelude.Text)+group_value = Lens.lens (\Group' {value} -> value) (\s@Group' {} a -> s {value = a} :: Group)++instance Prelude.Hashable Group where+  hashWithSalt _salt Group' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` value++instance Prelude.NFData Group where+  rnf Group' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Group where+  toJSON Group' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("name" Data..=) Prelude.<$> name,+            ("value" Data..=) Prelude.<$> value+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/GroupName.hs view
@@ -0,0 +1,66 @@+{-# 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.MigrationHubStrategy.Types.GroupName+-- 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.MigrationHubStrategy.Types.GroupName+  ( GroupName+      ( ..,+        GroupName_ExternalId+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype GroupName = GroupName'+  { fromGroupName ::+      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 GroupName_ExternalId :: GroupName+pattern GroupName_ExternalId = GroupName' "ExternalId"++{-# COMPLETE+  GroupName_ExternalId,+  GroupName'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/Heterogeneous.hs view
@@ -0,0 +1,89 @@+{-# 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.MigrationHubStrategy.Types.Heterogeneous+-- 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.MigrationHubStrategy.Types.Heterogeneous where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.HeterogeneousTargetDatabaseEngine+import qualified Amazonka.Prelude as Prelude++-- | The object containing details about heterogeneous database preferences.+--+-- /See:/ 'newHeterogeneous' smart constructor.+data Heterogeneous = Heterogeneous'+  { -- | The target database engine for heterogeneous database migration+    -- preference.+    targetDatabaseEngine :: Prelude.NonEmpty HeterogeneousTargetDatabaseEngine+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Heterogeneous' 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:+--+-- 'targetDatabaseEngine', 'heterogeneous_targetDatabaseEngine' - The target database engine for heterogeneous database migration+-- preference.+newHeterogeneous ::+  -- | 'targetDatabaseEngine'+  Prelude.NonEmpty HeterogeneousTargetDatabaseEngine ->+  Heterogeneous+newHeterogeneous pTargetDatabaseEngine_ =+  Heterogeneous'+    { targetDatabaseEngine =+        Lens.coerced Lens.# pTargetDatabaseEngine_+    }++-- | The target database engine for heterogeneous database migration+-- preference.+heterogeneous_targetDatabaseEngine :: Lens.Lens' Heterogeneous (Prelude.NonEmpty HeterogeneousTargetDatabaseEngine)+heterogeneous_targetDatabaseEngine = Lens.lens (\Heterogeneous' {targetDatabaseEngine} -> targetDatabaseEngine) (\s@Heterogeneous' {} a -> s {targetDatabaseEngine = a} :: Heterogeneous) Prelude.. Lens.coerced++instance Data.FromJSON Heterogeneous where+  parseJSON =+    Data.withObject+      "Heterogeneous"+      ( \x ->+          Heterogeneous'+            Prelude.<$> (x Data..: "targetDatabaseEngine")+      )++instance Prelude.Hashable Heterogeneous where+  hashWithSalt _salt Heterogeneous' {..} =+    _salt `Prelude.hashWithSalt` targetDatabaseEngine++instance Prelude.NFData Heterogeneous where+  rnf Heterogeneous' {..} =+    Prelude.rnf targetDatabaseEngine++instance Data.ToJSON Heterogeneous where+  toJSON Heterogeneous' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "targetDatabaseEngine"+                  Data..= targetDatabaseEngine+              )+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/HeterogeneousTargetDatabaseEngine.hs view
@@ -0,0 +1,111 @@+{-# 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.MigrationHubStrategy.Types.HeterogeneousTargetDatabaseEngine+-- 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.MigrationHubStrategy.Types.HeterogeneousTargetDatabaseEngine+  ( HeterogeneousTargetDatabaseEngine+      ( ..,+        HeterogeneousTargetDatabaseEngine_AWS_PostgreSQL,+        HeterogeneousTargetDatabaseEngine_Amazon_Aurora,+        HeterogeneousTargetDatabaseEngine_Db2_LUW,+        HeterogeneousTargetDatabaseEngine_MariaDB,+        HeterogeneousTargetDatabaseEngine_Microsoft_SQL_Server,+        HeterogeneousTargetDatabaseEngine_MongoDB,+        HeterogeneousTargetDatabaseEngine_MySQL,+        HeterogeneousTargetDatabaseEngine_None_specified,+        HeterogeneousTargetDatabaseEngine_Oracle_Database,+        HeterogeneousTargetDatabaseEngine_SAP+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype HeterogeneousTargetDatabaseEngine = HeterogeneousTargetDatabaseEngine'+  { fromHeterogeneousTargetDatabaseEngine ::+      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 HeterogeneousTargetDatabaseEngine_AWS_PostgreSQL :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_AWS_PostgreSQL = HeterogeneousTargetDatabaseEngine' "AWS PostgreSQL"++pattern HeterogeneousTargetDatabaseEngine_Amazon_Aurora :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_Amazon_Aurora = HeterogeneousTargetDatabaseEngine' "Amazon Aurora"++pattern HeterogeneousTargetDatabaseEngine_Db2_LUW :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_Db2_LUW = HeterogeneousTargetDatabaseEngine' "Db2 LUW"++pattern HeterogeneousTargetDatabaseEngine_MariaDB :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_MariaDB = HeterogeneousTargetDatabaseEngine' "MariaDB"++pattern HeterogeneousTargetDatabaseEngine_Microsoft_SQL_Server :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_Microsoft_SQL_Server = HeterogeneousTargetDatabaseEngine' "Microsoft SQL Server"++pattern HeterogeneousTargetDatabaseEngine_MongoDB :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_MongoDB = HeterogeneousTargetDatabaseEngine' "MongoDB"++pattern HeterogeneousTargetDatabaseEngine_MySQL :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_MySQL = HeterogeneousTargetDatabaseEngine' "MySQL"++pattern HeterogeneousTargetDatabaseEngine_None_specified :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_None_specified = HeterogeneousTargetDatabaseEngine' "None specified"++pattern HeterogeneousTargetDatabaseEngine_Oracle_Database :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_Oracle_Database = HeterogeneousTargetDatabaseEngine' "Oracle Database"++pattern HeterogeneousTargetDatabaseEngine_SAP :: HeterogeneousTargetDatabaseEngine+pattern HeterogeneousTargetDatabaseEngine_SAP = HeterogeneousTargetDatabaseEngine' "SAP"++{-# COMPLETE+  HeterogeneousTargetDatabaseEngine_AWS_PostgreSQL,+  HeterogeneousTargetDatabaseEngine_Amazon_Aurora,+  HeterogeneousTargetDatabaseEngine_Db2_LUW,+  HeterogeneousTargetDatabaseEngine_MariaDB,+  HeterogeneousTargetDatabaseEngine_Microsoft_SQL_Server,+  HeterogeneousTargetDatabaseEngine_MongoDB,+  HeterogeneousTargetDatabaseEngine_MySQL,+  HeterogeneousTargetDatabaseEngine_None_specified,+  HeterogeneousTargetDatabaseEngine_Oracle_Database,+  HeterogeneousTargetDatabaseEngine_SAP,+  HeterogeneousTargetDatabaseEngine'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/Homogeneous.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.MigrationHubStrategy.Types.Homogeneous+-- 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.MigrationHubStrategy.Types.Homogeneous where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.HomogeneousTargetDatabaseEngine+import qualified Amazonka.Prelude as Prelude++-- | The object containing details about homogeneous database preferences.+--+-- /See:/ 'newHomogeneous' smart constructor.+data Homogeneous = Homogeneous'+  { -- | The target database engine for homogeneous database migration+    -- preferences.+    targetDatabaseEngine :: Prelude.Maybe [HomogeneousTargetDatabaseEngine]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Homogeneous' 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:+--+-- 'targetDatabaseEngine', 'homogeneous_targetDatabaseEngine' - The target database engine for homogeneous database migration+-- preferences.+newHomogeneous ::+  Homogeneous+newHomogeneous =+  Homogeneous'+    { targetDatabaseEngine =+        Prelude.Nothing+    }++-- | The target database engine for homogeneous database migration+-- preferences.+homogeneous_targetDatabaseEngine :: Lens.Lens' Homogeneous (Prelude.Maybe [HomogeneousTargetDatabaseEngine])+homogeneous_targetDatabaseEngine = Lens.lens (\Homogeneous' {targetDatabaseEngine} -> targetDatabaseEngine) (\s@Homogeneous' {} a -> s {targetDatabaseEngine = a} :: Homogeneous) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON Homogeneous where+  parseJSON =+    Data.withObject+      "Homogeneous"+      ( \x ->+          Homogeneous'+            Prelude.<$> ( x+                            Data..:? "targetDatabaseEngine"+                            Data..!= Prelude.mempty+                        )+      )++instance Prelude.Hashable Homogeneous where+  hashWithSalt _salt Homogeneous' {..} =+    _salt `Prelude.hashWithSalt` targetDatabaseEngine++instance Prelude.NFData Homogeneous where+  rnf Homogeneous' {..} =+    Prelude.rnf targetDatabaseEngine++instance Data.ToJSON Homogeneous where+  toJSON Homogeneous' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("targetDatabaseEngine" Data..=)+              Prelude.<$> targetDatabaseEngine+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/HomogeneousTargetDatabaseEngine.hs view
@@ -0,0 +1,66 @@+{-# 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.MigrationHubStrategy.Types.HomogeneousTargetDatabaseEngine+-- 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.MigrationHubStrategy.Types.HomogeneousTargetDatabaseEngine+  ( HomogeneousTargetDatabaseEngine+      ( ..,+        HomogeneousTargetDatabaseEngine_None_specified+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype HomogeneousTargetDatabaseEngine = HomogeneousTargetDatabaseEngine'+  { fromHomogeneousTargetDatabaseEngine ::+      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 HomogeneousTargetDatabaseEngine_None_specified :: HomogeneousTargetDatabaseEngine+pattern HomogeneousTargetDatabaseEngine_None_specified = HomogeneousTargetDatabaseEngine' "None specified"++{-# COMPLETE+  HomogeneousTargetDatabaseEngine_None_specified,+  HomogeneousTargetDatabaseEngine'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/IPAddressBasedRemoteInfo.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.MigrationHubStrategy.Types.IPAddressBasedRemoteInfo+-- 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.MigrationHubStrategy.Types.IPAddressBasedRemoteInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AuthType+import Amazonka.MigrationHubStrategy.Types.OSType+import qualified Amazonka.Prelude as Prelude++-- | IP address based configurations.+--+-- /See:/ 'newIPAddressBasedRemoteInfo' smart constructor.+data IPAddressBasedRemoteInfo = IPAddressBasedRemoteInfo'+  { -- | The type of authorization.+    authType :: Prelude.Maybe AuthType,+    -- | The time stamp of the configuration.+    ipAddressConfigurationTimeStamp :: Prelude.Maybe Prelude.Text,+    -- | The type of the operating system.+    osType :: Prelude.Maybe OSType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IPAddressBasedRemoteInfo' 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:+--+-- 'authType', 'iPAddressBasedRemoteInfo_authType' - The type of authorization.+--+-- 'ipAddressConfigurationTimeStamp', 'iPAddressBasedRemoteInfo_ipAddressConfigurationTimeStamp' - The time stamp of the configuration.+--+-- 'osType', 'iPAddressBasedRemoteInfo_osType' - The type of the operating system.+newIPAddressBasedRemoteInfo ::+  IPAddressBasedRemoteInfo+newIPAddressBasedRemoteInfo =+  IPAddressBasedRemoteInfo'+    { authType =+        Prelude.Nothing,+      ipAddressConfigurationTimeStamp = Prelude.Nothing,+      osType = Prelude.Nothing+    }++-- | The type of authorization.+iPAddressBasedRemoteInfo_authType :: Lens.Lens' IPAddressBasedRemoteInfo (Prelude.Maybe AuthType)+iPAddressBasedRemoteInfo_authType = Lens.lens (\IPAddressBasedRemoteInfo' {authType} -> authType) (\s@IPAddressBasedRemoteInfo' {} a -> s {authType = a} :: IPAddressBasedRemoteInfo)++-- | The time stamp of the configuration.+iPAddressBasedRemoteInfo_ipAddressConfigurationTimeStamp :: Lens.Lens' IPAddressBasedRemoteInfo (Prelude.Maybe Prelude.Text)+iPAddressBasedRemoteInfo_ipAddressConfigurationTimeStamp = Lens.lens (\IPAddressBasedRemoteInfo' {ipAddressConfigurationTimeStamp} -> ipAddressConfigurationTimeStamp) (\s@IPAddressBasedRemoteInfo' {} a -> s {ipAddressConfigurationTimeStamp = a} :: IPAddressBasedRemoteInfo)++-- | The type of the operating system.+iPAddressBasedRemoteInfo_osType :: Lens.Lens' IPAddressBasedRemoteInfo (Prelude.Maybe OSType)+iPAddressBasedRemoteInfo_osType = Lens.lens (\IPAddressBasedRemoteInfo' {osType} -> osType) (\s@IPAddressBasedRemoteInfo' {} a -> s {osType = a} :: IPAddressBasedRemoteInfo)++instance Data.FromJSON IPAddressBasedRemoteInfo where+  parseJSON =+    Data.withObject+      "IPAddressBasedRemoteInfo"+      ( \x ->+          IPAddressBasedRemoteInfo'+            Prelude.<$> (x Data..:? "authType")+            Prelude.<*> (x Data..:? "ipAddressConfigurationTimeStamp")+            Prelude.<*> (x Data..:? "osType")+      )++instance Prelude.Hashable IPAddressBasedRemoteInfo where+  hashWithSalt _salt IPAddressBasedRemoteInfo' {..} =+    _salt+      `Prelude.hashWithSalt` authType+      `Prelude.hashWithSalt` ipAddressConfigurationTimeStamp+      `Prelude.hashWithSalt` osType++instance Prelude.NFData IPAddressBasedRemoteInfo where+  rnf IPAddressBasedRemoteInfo' {..} =+    Prelude.rnf authType+      `Prelude.seq` Prelude.rnf ipAddressConfigurationTimeStamp+      `Prelude.seq` Prelude.rnf osType
+ gen/Amazonka/MigrationHubStrategy/Types/ImportFileTaskInformation.hs view
@@ -0,0 +1,200 @@+{-# 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.MigrationHubStrategy.Types.ImportFileTaskInformation+-- 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.MigrationHubStrategy.Types.ImportFileTaskInformation where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.ImportFileTaskStatus+import qualified Amazonka.Prelude as Prelude++-- | Information about the import file tasks you request.+--+-- /See:/ 'newImportFileTaskInformation' smart constructor.+data ImportFileTaskInformation = ImportFileTaskInformation'+  { -- | The time that the import task completes.+    completionTime :: Prelude.Maybe Data.POSIX,+    -- | The ID of the import file task.+    id :: Prelude.Maybe Prelude.Text,+    -- | The name of the import task given in @StartImportFileTask@.+    importName :: Prelude.Maybe Prelude.Text,+    -- | The S3 bucket where the import file is located.+    inputS3Bucket :: Prelude.Maybe Prelude.Text,+    -- | The Amazon S3 key name of the import file.+    inputS3Key :: Prelude.Maybe Prelude.Text,+    -- | The number of records that failed to be imported.+    numberOfRecordsFailed :: Prelude.Maybe Prelude.Int,+    -- | The number of records successfully imported.+    numberOfRecordsSuccess :: Prelude.Maybe Prelude.Int,+    -- | Start time of the import task.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | Status of import file task.+    status :: Prelude.Maybe ImportFileTaskStatus,+    -- | The S3 bucket name for status report of import task.+    statusReportS3Bucket :: Prelude.Maybe Prelude.Text,+    -- | The Amazon S3 key name for status report of import task. The report+    -- contains details about whether each record imported successfully or why+    -- it did not.+    statusReportS3Key :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ImportFileTaskInformation' 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:+--+-- 'completionTime', 'importFileTaskInformation_completionTime' - The time that the import task completes.+--+-- 'id', 'importFileTaskInformation_id' - The ID of the import file task.+--+-- 'importName', 'importFileTaskInformation_importName' - The name of the import task given in @StartImportFileTask@.+--+-- 'inputS3Bucket', 'importFileTaskInformation_inputS3Bucket' - The S3 bucket where the import file is located.+--+-- 'inputS3Key', 'importFileTaskInformation_inputS3Key' - The Amazon S3 key name of the import file.+--+-- 'numberOfRecordsFailed', 'importFileTaskInformation_numberOfRecordsFailed' - The number of records that failed to be imported.+--+-- 'numberOfRecordsSuccess', 'importFileTaskInformation_numberOfRecordsSuccess' - The number of records successfully imported.+--+-- 'startTime', 'importFileTaskInformation_startTime' - Start time of the import task.+--+-- 'status', 'importFileTaskInformation_status' - Status of import file task.+--+-- 'statusReportS3Bucket', 'importFileTaskInformation_statusReportS3Bucket' - The S3 bucket name for status report of import task.+--+-- 'statusReportS3Key', 'importFileTaskInformation_statusReportS3Key' - The Amazon S3 key name for status report of import task. The report+-- contains details about whether each record imported successfully or why+-- it did not.+newImportFileTaskInformation ::+  ImportFileTaskInformation+newImportFileTaskInformation =+  ImportFileTaskInformation'+    { completionTime =+        Prelude.Nothing,+      id = Prelude.Nothing,+      importName = Prelude.Nothing,+      inputS3Bucket = Prelude.Nothing,+      inputS3Key = Prelude.Nothing,+      numberOfRecordsFailed = Prelude.Nothing,+      numberOfRecordsSuccess = Prelude.Nothing,+      startTime = Prelude.Nothing,+      status = Prelude.Nothing,+      statusReportS3Bucket = Prelude.Nothing,+      statusReportS3Key = Prelude.Nothing+    }++-- | The time that the import task completes.+importFileTaskInformation_completionTime :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.UTCTime)+importFileTaskInformation_completionTime = Lens.lens (\ImportFileTaskInformation' {completionTime} -> completionTime) (\s@ImportFileTaskInformation' {} a -> s {completionTime = a} :: ImportFileTaskInformation) Prelude.. Lens.mapping Data._Time++-- | The ID of the import file task.+importFileTaskInformation_id :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.Text)+importFileTaskInformation_id = Lens.lens (\ImportFileTaskInformation' {id} -> id) (\s@ImportFileTaskInformation' {} a -> s {id = a} :: ImportFileTaskInformation)++-- | The name of the import task given in @StartImportFileTask@.+importFileTaskInformation_importName :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.Text)+importFileTaskInformation_importName = Lens.lens (\ImportFileTaskInformation' {importName} -> importName) (\s@ImportFileTaskInformation' {} a -> s {importName = a} :: ImportFileTaskInformation)++-- | The S3 bucket where the import file is located.+importFileTaskInformation_inputS3Bucket :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.Text)+importFileTaskInformation_inputS3Bucket = Lens.lens (\ImportFileTaskInformation' {inputS3Bucket} -> inputS3Bucket) (\s@ImportFileTaskInformation' {} a -> s {inputS3Bucket = a} :: ImportFileTaskInformation)++-- | The Amazon S3 key name of the import file.+importFileTaskInformation_inputS3Key :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.Text)+importFileTaskInformation_inputS3Key = Lens.lens (\ImportFileTaskInformation' {inputS3Key} -> inputS3Key) (\s@ImportFileTaskInformation' {} a -> s {inputS3Key = a} :: ImportFileTaskInformation)++-- | The number of records that failed to be imported.+importFileTaskInformation_numberOfRecordsFailed :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.Int)+importFileTaskInformation_numberOfRecordsFailed = Lens.lens (\ImportFileTaskInformation' {numberOfRecordsFailed} -> numberOfRecordsFailed) (\s@ImportFileTaskInformation' {} a -> s {numberOfRecordsFailed = a} :: ImportFileTaskInformation)++-- | The number of records successfully imported.+importFileTaskInformation_numberOfRecordsSuccess :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.Int)+importFileTaskInformation_numberOfRecordsSuccess = Lens.lens (\ImportFileTaskInformation' {numberOfRecordsSuccess} -> numberOfRecordsSuccess) (\s@ImportFileTaskInformation' {} a -> s {numberOfRecordsSuccess = a} :: ImportFileTaskInformation)++-- | Start time of the import task.+importFileTaskInformation_startTime :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.UTCTime)+importFileTaskInformation_startTime = Lens.lens (\ImportFileTaskInformation' {startTime} -> startTime) (\s@ImportFileTaskInformation' {} a -> s {startTime = a} :: ImportFileTaskInformation) Prelude.. Lens.mapping Data._Time++-- | Status of import file task.+importFileTaskInformation_status :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe ImportFileTaskStatus)+importFileTaskInformation_status = Lens.lens (\ImportFileTaskInformation' {status} -> status) (\s@ImportFileTaskInformation' {} a -> s {status = a} :: ImportFileTaskInformation)++-- | The S3 bucket name for status report of import task.+importFileTaskInformation_statusReportS3Bucket :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.Text)+importFileTaskInformation_statusReportS3Bucket = Lens.lens (\ImportFileTaskInformation' {statusReportS3Bucket} -> statusReportS3Bucket) (\s@ImportFileTaskInformation' {} a -> s {statusReportS3Bucket = a} :: ImportFileTaskInformation)++-- | The Amazon S3 key name for status report of import task. The report+-- contains details about whether each record imported successfully or why+-- it did not.+importFileTaskInformation_statusReportS3Key :: Lens.Lens' ImportFileTaskInformation (Prelude.Maybe Prelude.Text)+importFileTaskInformation_statusReportS3Key = Lens.lens (\ImportFileTaskInformation' {statusReportS3Key} -> statusReportS3Key) (\s@ImportFileTaskInformation' {} a -> s {statusReportS3Key = a} :: ImportFileTaskInformation)++instance Data.FromJSON ImportFileTaskInformation where+  parseJSON =+    Data.withObject+      "ImportFileTaskInformation"+      ( \x ->+          ImportFileTaskInformation'+            Prelude.<$> (x Data..:? "completionTime")+            Prelude.<*> (x Data..:? "id")+            Prelude.<*> (x Data..:? "importName")+            Prelude.<*> (x Data..:? "inputS3Bucket")+            Prelude.<*> (x Data..:? "inputS3Key")+            Prelude.<*> (x Data..:? "numberOfRecordsFailed")+            Prelude.<*> (x Data..:? "numberOfRecordsSuccess")+            Prelude.<*> (x Data..:? "startTime")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "statusReportS3Bucket")+            Prelude.<*> (x Data..:? "statusReportS3Key")+      )++instance Prelude.Hashable ImportFileTaskInformation where+  hashWithSalt _salt ImportFileTaskInformation' {..} =+    _salt+      `Prelude.hashWithSalt` completionTime+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` importName+      `Prelude.hashWithSalt` inputS3Bucket+      `Prelude.hashWithSalt` inputS3Key+      `Prelude.hashWithSalt` numberOfRecordsFailed+      `Prelude.hashWithSalt` numberOfRecordsSuccess+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` statusReportS3Bucket+      `Prelude.hashWithSalt` statusReportS3Key++instance Prelude.NFData ImportFileTaskInformation where+  rnf ImportFileTaskInformation' {..} =+    Prelude.rnf completionTime+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf importName+      `Prelude.seq` Prelude.rnf inputS3Bucket+      `Prelude.seq` Prelude.rnf inputS3Key+      `Prelude.seq` Prelude.rnf numberOfRecordsFailed+      `Prelude.seq` Prelude.rnf numberOfRecordsSuccess+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusReportS3Bucket+      `Prelude.seq` Prelude.rnf statusReportS3Key
+ gen/Amazonka/MigrationHubStrategy/Types/ImportFileTaskStatus.hs view
@@ -0,0 +1,101 @@+{-# 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.MigrationHubStrategy.Types.ImportFileTaskStatus+-- 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.MigrationHubStrategy.Types.ImportFileTaskStatus+  ( ImportFileTaskStatus+      ( ..,+        ImportFileTaskStatus_DeleteFailed,+        ImportFileTaskStatus_DeleteInProgress,+        ImportFileTaskStatus_DeletePartialSuccess,+        ImportFileTaskStatus_DeleteSuccess,+        ImportFileTaskStatus_ImportFailed,+        ImportFileTaskStatus_ImportInProgress,+        ImportFileTaskStatus_ImportPartialSuccess,+        ImportFileTaskStatus_ImportSuccess+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ImportFileTaskStatus = ImportFileTaskStatus'+  { fromImportFileTaskStatus ::+      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 ImportFileTaskStatus_DeleteFailed :: ImportFileTaskStatus+pattern ImportFileTaskStatus_DeleteFailed = ImportFileTaskStatus' "DeleteFailed"++pattern ImportFileTaskStatus_DeleteInProgress :: ImportFileTaskStatus+pattern ImportFileTaskStatus_DeleteInProgress = ImportFileTaskStatus' "DeleteInProgress"++pattern ImportFileTaskStatus_DeletePartialSuccess :: ImportFileTaskStatus+pattern ImportFileTaskStatus_DeletePartialSuccess = ImportFileTaskStatus' "DeletePartialSuccess"++pattern ImportFileTaskStatus_DeleteSuccess :: ImportFileTaskStatus+pattern ImportFileTaskStatus_DeleteSuccess = ImportFileTaskStatus' "DeleteSuccess"++pattern ImportFileTaskStatus_ImportFailed :: ImportFileTaskStatus+pattern ImportFileTaskStatus_ImportFailed = ImportFileTaskStatus' "ImportFailed"++pattern ImportFileTaskStatus_ImportInProgress :: ImportFileTaskStatus+pattern ImportFileTaskStatus_ImportInProgress = ImportFileTaskStatus' "ImportInProgress"++pattern ImportFileTaskStatus_ImportPartialSuccess :: ImportFileTaskStatus+pattern ImportFileTaskStatus_ImportPartialSuccess = ImportFileTaskStatus' "ImportPartialSuccess"++pattern ImportFileTaskStatus_ImportSuccess :: ImportFileTaskStatus+pattern ImportFileTaskStatus_ImportSuccess = ImportFileTaskStatus' "ImportSuccess"++{-# COMPLETE+  ImportFileTaskStatus_DeleteFailed,+  ImportFileTaskStatus_DeleteInProgress,+  ImportFileTaskStatus_DeletePartialSuccess,+  ImportFileTaskStatus_DeleteSuccess,+  ImportFileTaskStatus_ImportFailed,+  ImportFileTaskStatus_ImportInProgress,+  ImportFileTaskStatus_ImportPartialSuccess,+  ImportFileTaskStatus_ImportSuccess,+  ImportFileTaskStatus'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/InclusionStatus.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.MigrationHubStrategy.Types.InclusionStatus+-- 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.MigrationHubStrategy.Types.InclusionStatus+  ( InclusionStatus+      ( ..,+        InclusionStatus_ExcludeFromAssessment,+        InclusionStatus_IncludeInAssessment+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype InclusionStatus = InclusionStatus'+  { fromInclusionStatus ::+      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 InclusionStatus_ExcludeFromAssessment :: InclusionStatus+pattern InclusionStatus_ExcludeFromAssessment = InclusionStatus' "excludeFromAssessment"++pattern InclusionStatus_IncludeInAssessment :: InclusionStatus+pattern InclusionStatus_IncludeInAssessment = InclusionStatus' "includeInAssessment"++{-# COMPLETE+  InclusionStatus_ExcludeFromAssessment,+  InclusionStatus_IncludeInAssessment,+  InclusionStatus'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ManagementPreference.hs view
@@ -0,0 +1,112 @@+{-# 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.MigrationHubStrategy.Types.ManagementPreference+-- 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.MigrationHubStrategy.Types.ManagementPreference where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AwsManagedResources+import Amazonka.MigrationHubStrategy.Types.NoManagementPreference+import Amazonka.MigrationHubStrategy.Types.SelfManageResources+import qualified Amazonka.Prelude as Prelude++-- | Preferences for migrating an application to AWS.+--+-- /See:/ 'newManagementPreference' smart constructor.+data ManagementPreference = ManagementPreference'+  { -- | Indicates interest in solutions that are managed by AWS.+    awsManagedResources :: Prelude.Maybe AwsManagedResources,+    -- | No specific preference.+    noPreference :: Prelude.Maybe NoManagementPreference,+    -- | Indicates interest in managing your own resources on AWS.+    selfManageResources :: Prelude.Maybe SelfManageResources+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ManagementPreference' 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:+--+-- 'awsManagedResources', 'managementPreference_awsManagedResources' - Indicates interest in solutions that are managed by AWS.+--+-- 'noPreference', 'managementPreference_noPreference' - No specific preference.+--+-- 'selfManageResources', 'managementPreference_selfManageResources' - Indicates interest in managing your own resources on AWS.+newManagementPreference ::+  ManagementPreference+newManagementPreference =+  ManagementPreference'+    { awsManagedResources =+        Prelude.Nothing,+      noPreference = Prelude.Nothing,+      selfManageResources = Prelude.Nothing+    }++-- | Indicates interest in solutions that are managed by AWS.+managementPreference_awsManagedResources :: Lens.Lens' ManagementPreference (Prelude.Maybe AwsManagedResources)+managementPreference_awsManagedResources = Lens.lens (\ManagementPreference' {awsManagedResources} -> awsManagedResources) (\s@ManagementPreference' {} a -> s {awsManagedResources = a} :: ManagementPreference)++-- | No specific preference.+managementPreference_noPreference :: Lens.Lens' ManagementPreference (Prelude.Maybe NoManagementPreference)+managementPreference_noPreference = Lens.lens (\ManagementPreference' {noPreference} -> noPreference) (\s@ManagementPreference' {} a -> s {noPreference = a} :: ManagementPreference)++-- | Indicates interest in managing your own resources on AWS.+managementPreference_selfManageResources :: Lens.Lens' ManagementPreference (Prelude.Maybe SelfManageResources)+managementPreference_selfManageResources = Lens.lens (\ManagementPreference' {selfManageResources} -> selfManageResources) (\s@ManagementPreference' {} a -> s {selfManageResources = a} :: ManagementPreference)++instance Data.FromJSON ManagementPreference where+  parseJSON =+    Data.withObject+      "ManagementPreference"+      ( \x ->+          ManagementPreference'+            Prelude.<$> (x Data..:? "awsManagedResources")+            Prelude.<*> (x Data..:? "noPreference")+            Prelude.<*> (x Data..:? "selfManageResources")+      )++instance Prelude.Hashable ManagementPreference where+  hashWithSalt _salt ManagementPreference' {..} =+    _salt+      `Prelude.hashWithSalt` awsManagedResources+      `Prelude.hashWithSalt` noPreference+      `Prelude.hashWithSalt` selfManageResources++instance Prelude.NFData ManagementPreference where+  rnf ManagementPreference' {..} =+    Prelude.rnf awsManagedResources+      `Prelude.seq` Prelude.rnf noPreference+      `Prelude.seq` Prelude.rnf selfManageResources++instance Data.ToJSON ManagementPreference where+  toJSON ManagementPreference' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("awsManagedResources" Data..=)+              Prelude.<$> awsManagedResources,+            ("noPreference" Data..=) Prelude.<$> noPreference,+            ("selfManageResources" Data..=)+              Prelude.<$> selfManageResources+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/NetworkInfo.hs view
@@ -0,0 +1,133 @@+{-# 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.MigrationHubStrategy.Types.NetworkInfo+-- 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.MigrationHubStrategy.Types.NetworkInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Information about the server\'s network for which the assessment was+-- run.+--+-- /See:/ 'newNetworkInfo' smart constructor.+data NetworkInfo = NetworkInfo'+  { -- | Information about the name of the interface of the server for which the+    -- assessment was run.+    interfaceName :: Prelude.Text,+    -- | Information about the IP address of the server for which the assessment+    -- was run.+    ipAddress :: Prelude.Text,+    -- | Information about the MAC address of the server for which the assessment+    -- was run.+    macAddress :: Prelude.Text,+    -- | Information about the subnet mask of the server for which the assessment+    -- was run.+    netMask :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NetworkInfo' 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:+--+-- 'interfaceName', 'networkInfo_interfaceName' - Information about the name of the interface of the server for which the+-- assessment was run.+--+-- 'ipAddress', 'networkInfo_ipAddress' - Information about the IP address of the server for which the assessment+-- was run.+--+-- 'macAddress', 'networkInfo_macAddress' - Information about the MAC address of the server for which the assessment+-- was run.+--+-- 'netMask', 'networkInfo_netMask' - Information about the subnet mask of the server for which the assessment+-- was run.+newNetworkInfo ::+  -- | 'interfaceName'+  Prelude.Text ->+  -- | 'ipAddress'+  Prelude.Text ->+  -- | 'macAddress'+  Prelude.Text ->+  -- | 'netMask'+  Prelude.Text ->+  NetworkInfo+newNetworkInfo+  pInterfaceName_+  pIpAddress_+  pMacAddress_+  pNetMask_ =+    NetworkInfo'+      { interfaceName = pInterfaceName_,+        ipAddress = pIpAddress_,+        macAddress = pMacAddress_,+        netMask = pNetMask_+      }++-- | Information about the name of the interface of the server for which the+-- assessment was run.+networkInfo_interfaceName :: Lens.Lens' NetworkInfo Prelude.Text+networkInfo_interfaceName = Lens.lens (\NetworkInfo' {interfaceName} -> interfaceName) (\s@NetworkInfo' {} a -> s {interfaceName = a} :: NetworkInfo)++-- | Information about the IP address of the server for which the assessment+-- was run.+networkInfo_ipAddress :: Lens.Lens' NetworkInfo Prelude.Text+networkInfo_ipAddress = Lens.lens (\NetworkInfo' {ipAddress} -> ipAddress) (\s@NetworkInfo' {} a -> s {ipAddress = a} :: NetworkInfo)++-- | Information about the MAC address of the server for which the assessment+-- was run.+networkInfo_macAddress :: Lens.Lens' NetworkInfo Prelude.Text+networkInfo_macAddress = Lens.lens (\NetworkInfo' {macAddress} -> macAddress) (\s@NetworkInfo' {} a -> s {macAddress = a} :: NetworkInfo)++-- | Information about the subnet mask of the server for which the assessment+-- was run.+networkInfo_netMask :: Lens.Lens' NetworkInfo Prelude.Text+networkInfo_netMask = Lens.lens (\NetworkInfo' {netMask} -> netMask) (\s@NetworkInfo' {} a -> s {netMask = a} :: NetworkInfo)++instance Data.FromJSON NetworkInfo where+  parseJSON =+    Data.withObject+      "NetworkInfo"+      ( \x ->+          NetworkInfo'+            Prelude.<$> (x Data..: "interfaceName")+            Prelude.<*> (x Data..: "ipAddress")+            Prelude.<*> (x Data..: "macAddress")+            Prelude.<*> (x Data..: "netMask")+      )++instance Prelude.Hashable NetworkInfo where+  hashWithSalt _salt NetworkInfo' {..} =+    _salt+      `Prelude.hashWithSalt` interfaceName+      `Prelude.hashWithSalt` ipAddress+      `Prelude.hashWithSalt` macAddress+      `Prelude.hashWithSalt` netMask++instance Prelude.NFData NetworkInfo where+  rnf NetworkInfo' {..} =+    Prelude.rnf interfaceName+      `Prelude.seq` Prelude.rnf ipAddress+      `Prelude.seq` Prelude.rnf macAddress+      `Prelude.seq` Prelude.rnf netMask
+ gen/Amazonka/MigrationHubStrategy/Types/NoDatabaseMigrationPreference.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.MigrationHubStrategy.Types.NoDatabaseMigrationPreference+-- 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.MigrationHubStrategy.Types.NoDatabaseMigrationPreference where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.TargetDatabaseEngine+import qualified Amazonka.Prelude as Prelude++-- | The object containing details about database migration preferences, when+-- you have no particular preference.+--+-- /See:/ 'newNoDatabaseMigrationPreference' smart constructor.+data NoDatabaseMigrationPreference = NoDatabaseMigrationPreference'+  { -- | The target database engine for database migration preference that you+    -- specify.+    targetDatabaseEngine :: Prelude.NonEmpty TargetDatabaseEngine+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NoDatabaseMigrationPreference' 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:+--+-- 'targetDatabaseEngine', 'noDatabaseMigrationPreference_targetDatabaseEngine' - The target database engine for database migration preference that you+-- specify.+newNoDatabaseMigrationPreference ::+  -- | 'targetDatabaseEngine'+  Prelude.NonEmpty TargetDatabaseEngine ->+  NoDatabaseMigrationPreference+newNoDatabaseMigrationPreference+  pTargetDatabaseEngine_ =+    NoDatabaseMigrationPreference'+      { targetDatabaseEngine =+          Lens.coerced Lens.# pTargetDatabaseEngine_+      }++-- | The target database engine for database migration preference that you+-- specify.+noDatabaseMigrationPreference_targetDatabaseEngine :: Lens.Lens' NoDatabaseMigrationPreference (Prelude.NonEmpty TargetDatabaseEngine)+noDatabaseMigrationPreference_targetDatabaseEngine = Lens.lens (\NoDatabaseMigrationPreference' {targetDatabaseEngine} -> targetDatabaseEngine) (\s@NoDatabaseMigrationPreference' {} a -> s {targetDatabaseEngine = a} :: NoDatabaseMigrationPreference) Prelude.. Lens.coerced++instance Data.FromJSON NoDatabaseMigrationPreference where+  parseJSON =+    Data.withObject+      "NoDatabaseMigrationPreference"+      ( \x ->+          NoDatabaseMigrationPreference'+            Prelude.<$> (x Data..: "targetDatabaseEngine")+      )++instance+  Prelude.Hashable+    NoDatabaseMigrationPreference+  where+  hashWithSalt _salt NoDatabaseMigrationPreference' {..} =+    _salt `Prelude.hashWithSalt` targetDatabaseEngine++instance Prelude.NFData NoDatabaseMigrationPreference where+  rnf NoDatabaseMigrationPreference' {..} =+    Prelude.rnf targetDatabaseEngine++instance Data.ToJSON NoDatabaseMigrationPreference where+  toJSON NoDatabaseMigrationPreference' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ( "targetDatabaseEngine"+                  Data..= targetDatabaseEngine+              )+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/NoManagementPreference.hs view
@@ -0,0 +1,85 @@+{-# 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.MigrationHubStrategy.Types.NoManagementPreference+-- 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.MigrationHubStrategy.Types.NoManagementPreference where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.NoPreferenceTargetDestination+import qualified Amazonka.Prelude as Prelude++-- | Object containing the choice of application destination that you+-- specify.+--+-- /See:/ 'newNoManagementPreference' smart constructor.+data NoManagementPreference = NoManagementPreference'+  { -- | The choice of application destination that you specify.+    targetDestination :: Prelude.NonEmpty NoPreferenceTargetDestination+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NoManagementPreference' 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:+--+-- 'targetDestination', 'noManagementPreference_targetDestination' - The choice of application destination that you specify.+newNoManagementPreference ::+  -- | 'targetDestination'+  Prelude.NonEmpty NoPreferenceTargetDestination ->+  NoManagementPreference+newNoManagementPreference pTargetDestination_ =+  NoManagementPreference'+    { targetDestination =+        Lens.coerced Lens.# pTargetDestination_+    }++-- | The choice of application destination that you specify.+noManagementPreference_targetDestination :: Lens.Lens' NoManagementPreference (Prelude.NonEmpty NoPreferenceTargetDestination)+noManagementPreference_targetDestination = Lens.lens (\NoManagementPreference' {targetDestination} -> targetDestination) (\s@NoManagementPreference' {} a -> s {targetDestination = a} :: NoManagementPreference) Prelude.. Lens.coerced++instance Data.FromJSON NoManagementPreference where+  parseJSON =+    Data.withObject+      "NoManagementPreference"+      ( \x ->+          NoManagementPreference'+            Prelude.<$> (x Data..: "targetDestination")+      )++instance Prelude.Hashable NoManagementPreference where+  hashWithSalt _salt NoManagementPreference' {..} =+    _salt `Prelude.hashWithSalt` targetDestination++instance Prelude.NFData NoManagementPreference where+  rnf NoManagementPreference' {..} =+    Prelude.rnf targetDestination++instance Data.ToJSON NoManagementPreference where+  toJSON NoManagementPreference' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("targetDestination" Data..= targetDestination)+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/NoPreferenceTargetDestination.hs view
@@ -0,0 +1,91 @@+{-# 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.MigrationHubStrategy.Types.NoPreferenceTargetDestination+-- 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.MigrationHubStrategy.Types.NoPreferenceTargetDestination+  ( NoPreferenceTargetDestination+      ( ..,+        NoPreferenceTargetDestination_AWS_Elastic_BeanStalk,+        NoPreferenceTargetDestination_AWS_Fargate,+        NoPreferenceTargetDestination_Amazon_Elastic_Cloud_Compute__EC2_,+        NoPreferenceTargetDestination_Amazon_Elastic_Container_Service__ECS_,+        NoPreferenceTargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_,+        NoPreferenceTargetDestination_None_specified+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype NoPreferenceTargetDestination = NoPreferenceTargetDestination'+  { fromNoPreferenceTargetDestination ::+      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 NoPreferenceTargetDestination_AWS_Elastic_BeanStalk :: NoPreferenceTargetDestination+pattern NoPreferenceTargetDestination_AWS_Elastic_BeanStalk = NoPreferenceTargetDestination' "AWS Elastic BeanStalk"++pattern NoPreferenceTargetDestination_AWS_Fargate :: NoPreferenceTargetDestination+pattern NoPreferenceTargetDestination_AWS_Fargate = NoPreferenceTargetDestination' "AWS Fargate"++pattern NoPreferenceTargetDestination_Amazon_Elastic_Cloud_Compute__EC2_ :: NoPreferenceTargetDestination+pattern NoPreferenceTargetDestination_Amazon_Elastic_Cloud_Compute__EC2_ = NoPreferenceTargetDestination' "Amazon Elastic Cloud Compute (EC2)"++pattern NoPreferenceTargetDestination_Amazon_Elastic_Container_Service__ECS_ :: NoPreferenceTargetDestination+pattern NoPreferenceTargetDestination_Amazon_Elastic_Container_Service__ECS_ = NoPreferenceTargetDestination' "Amazon Elastic Container Service (ECS)"++pattern NoPreferenceTargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_ :: NoPreferenceTargetDestination+pattern NoPreferenceTargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_ = NoPreferenceTargetDestination' "Amazon Elastic Kubernetes Service (EKS)"++pattern NoPreferenceTargetDestination_None_specified :: NoPreferenceTargetDestination+pattern NoPreferenceTargetDestination_None_specified = NoPreferenceTargetDestination' "None specified"++{-# COMPLETE+  NoPreferenceTargetDestination_AWS_Elastic_BeanStalk,+  NoPreferenceTargetDestination_AWS_Fargate,+  NoPreferenceTargetDestination_Amazon_Elastic_Cloud_Compute__EC2_,+  NoPreferenceTargetDestination_Amazon_Elastic_Container_Service__ECS_,+  NoPreferenceTargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_,+  NoPreferenceTargetDestination_None_specified,+  NoPreferenceTargetDestination'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/OSInfo.hs view
@@ -0,0 +1,84 @@+{-# 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.MigrationHubStrategy.Types.OSInfo+-- 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.MigrationHubStrategy.Types.OSInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.OSType+import qualified Amazonka.Prelude as Prelude++-- | Information about the operating system.+--+-- /See:/ 'newOSInfo' smart constructor.+data OSInfo = OSInfo'+  { -- | Information about the type of operating system.+    type' :: Prelude.Maybe OSType,+    -- | Information about the version of operating system.+    version :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'OSInfo' 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:+--+-- 'type'', 'oSInfo_type' - Information about the type of operating system.+--+-- 'version', 'oSInfo_version' - Information about the version of operating system.+newOSInfo ::+  OSInfo+newOSInfo =+  OSInfo'+    { type' = Prelude.Nothing,+      version = Prelude.Nothing+    }++-- | Information about the type of operating system.+oSInfo_type :: Lens.Lens' OSInfo (Prelude.Maybe OSType)+oSInfo_type = Lens.lens (\OSInfo' {type'} -> type') (\s@OSInfo' {} a -> s {type' = a} :: OSInfo)++-- | Information about the version of operating system.+oSInfo_version :: Lens.Lens' OSInfo (Prelude.Maybe Prelude.Text)+oSInfo_version = Lens.lens (\OSInfo' {version} -> version) (\s@OSInfo' {} a -> s {version = a} :: OSInfo)++instance Data.FromJSON OSInfo where+  parseJSON =+    Data.withObject+      "OSInfo"+      ( \x ->+          OSInfo'+            Prelude.<$> (x Data..:? "type")+            Prelude.<*> (x Data..:? "version")+      )++instance Prelude.Hashable OSInfo where+  hashWithSalt _salt OSInfo' {..} =+    _salt+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` version++instance Prelude.NFData OSInfo where+  rnf OSInfo' {..} =+    Prelude.rnf type' `Prelude.seq` Prelude.rnf version
+ gen/Amazonka/MigrationHubStrategy/Types/OSType.hs view
@@ -0,0 +1,68 @@+{-# 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.MigrationHubStrategy.Types.OSType+-- 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.MigrationHubStrategy.Types.OSType+  ( OSType+      ( ..,+        OSType_LINUX,+        OSType_WINDOWS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype OSType = OSType' {fromOSType :: 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 OSType_LINUX :: OSType+pattern OSType_LINUX = OSType' "LINUX"++pattern OSType_WINDOWS :: OSType+pattern OSType_WINDOWS = OSType' "WINDOWS"++{-# COMPLETE+  OSType_LINUX,+  OSType_WINDOWS,+  OSType'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/OutputFormat.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.MigrationHubStrategy.Types.OutputFormat+-- 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.MigrationHubStrategy.Types.OutputFormat+  ( OutputFormat+      ( ..,+        OutputFormat_Excel,+        OutputFormat_Json+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype OutputFormat = OutputFormat'+  { fromOutputFormat ::+      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 OutputFormat_Excel :: OutputFormat+pattern OutputFormat_Excel = OutputFormat' "Excel"++pattern OutputFormat_Json :: OutputFormat+pattern OutputFormat_Json = OutputFormat' "Json"++{-# COMPLETE+  OutputFormat_Excel,+  OutputFormat_Json,+  OutputFormat'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/PipelineInfo.hs view
@@ -0,0 +1,86 @@+{-# 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.MigrationHubStrategy.Types.PipelineInfo+-- 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.MigrationHubStrategy.Types.PipelineInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.PipelineType+import qualified Amazonka.Prelude as Prelude++-- | Detailed information of the pipeline.+--+-- /See:/ 'newPipelineInfo' smart constructor.+data PipelineInfo = PipelineInfo'+  { -- | The time when the pipeline info was configured.+    pipelineConfigurationTimeStamp :: Prelude.Maybe Prelude.Text,+    -- | The type of pipeline.+    pipelineType :: Prelude.Maybe PipelineType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PipelineInfo' 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:+--+-- 'pipelineConfigurationTimeStamp', 'pipelineInfo_pipelineConfigurationTimeStamp' - The time when the pipeline info was configured.+--+-- 'pipelineType', 'pipelineInfo_pipelineType' - The type of pipeline.+newPipelineInfo ::+  PipelineInfo+newPipelineInfo =+  PipelineInfo'+    { pipelineConfigurationTimeStamp =+        Prelude.Nothing,+      pipelineType = Prelude.Nothing+    }++-- | The time when the pipeline info was configured.+pipelineInfo_pipelineConfigurationTimeStamp :: Lens.Lens' PipelineInfo (Prelude.Maybe Prelude.Text)+pipelineInfo_pipelineConfigurationTimeStamp = Lens.lens (\PipelineInfo' {pipelineConfigurationTimeStamp} -> pipelineConfigurationTimeStamp) (\s@PipelineInfo' {} a -> s {pipelineConfigurationTimeStamp = a} :: PipelineInfo)++-- | The type of pipeline.+pipelineInfo_pipelineType :: Lens.Lens' PipelineInfo (Prelude.Maybe PipelineType)+pipelineInfo_pipelineType = Lens.lens (\PipelineInfo' {pipelineType} -> pipelineType) (\s@PipelineInfo' {} a -> s {pipelineType = a} :: PipelineInfo)++instance Data.FromJSON PipelineInfo where+  parseJSON =+    Data.withObject+      "PipelineInfo"+      ( \x ->+          PipelineInfo'+            Prelude.<$> (x Data..:? "pipelineConfigurationTimeStamp")+            Prelude.<*> (x Data..:? "pipelineType")+      )++instance Prelude.Hashable PipelineInfo where+  hashWithSalt _salt PipelineInfo' {..} =+    _salt+      `Prelude.hashWithSalt` pipelineConfigurationTimeStamp+      `Prelude.hashWithSalt` pipelineType++instance Prelude.NFData PipelineInfo where+  rnf PipelineInfo' {..} =+    Prelude.rnf pipelineConfigurationTimeStamp+      `Prelude.seq` Prelude.rnf pipelineType
+ gen/Amazonka/MigrationHubStrategy/Types/PipelineType.hs view
@@ -0,0 +1,66 @@+{-# 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.MigrationHubStrategy.Types.PipelineType+-- 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.MigrationHubStrategy.Types.PipelineType+  ( PipelineType+      ( ..,+        PipelineType_AZURE_DEVOPS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype PipelineType = PipelineType'+  { fromPipelineType ::+      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 PipelineType_AZURE_DEVOPS :: PipelineType+pattern PipelineType_AZURE_DEVOPS = PipelineType' "AZURE_DEVOPS"++{-# COMPLETE+  PipelineType_AZURE_DEVOPS,+  PipelineType'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/PrioritizeBusinessGoals.hs view
@@ -0,0 +1,82 @@+{-# 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.MigrationHubStrategy.Types.PrioritizeBusinessGoals+-- 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.MigrationHubStrategy.Types.PrioritizeBusinessGoals where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.BusinessGoals+import qualified Amazonka.Prelude as Prelude++-- | Rank of business goals based on priority.+--+-- /See:/ 'newPrioritizeBusinessGoals' smart constructor.+data PrioritizeBusinessGoals = PrioritizeBusinessGoals'+  { -- | Rank of business goals based on priority.+    businessGoals :: Prelude.Maybe BusinessGoals+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PrioritizeBusinessGoals' 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:+--+-- 'businessGoals', 'prioritizeBusinessGoals_businessGoals' - Rank of business goals based on priority.+newPrioritizeBusinessGoals ::+  PrioritizeBusinessGoals+newPrioritizeBusinessGoals =+  PrioritizeBusinessGoals'+    { businessGoals =+        Prelude.Nothing+    }++-- | Rank of business goals based on priority.+prioritizeBusinessGoals_businessGoals :: Lens.Lens' PrioritizeBusinessGoals (Prelude.Maybe BusinessGoals)+prioritizeBusinessGoals_businessGoals = Lens.lens (\PrioritizeBusinessGoals' {businessGoals} -> businessGoals) (\s@PrioritizeBusinessGoals' {} a -> s {businessGoals = a} :: PrioritizeBusinessGoals)++instance Data.FromJSON PrioritizeBusinessGoals where+  parseJSON =+    Data.withObject+      "PrioritizeBusinessGoals"+      ( \x ->+          PrioritizeBusinessGoals'+            Prelude.<$> (x Data..:? "businessGoals")+      )++instance Prelude.Hashable PrioritizeBusinessGoals where+  hashWithSalt _salt PrioritizeBusinessGoals' {..} =+    _salt `Prelude.hashWithSalt` businessGoals++instance Prelude.NFData PrioritizeBusinessGoals where+  rnf PrioritizeBusinessGoals' {..} =+    Prelude.rnf businessGoals++instance Data.ToJSON PrioritizeBusinessGoals where+  toJSON PrioritizeBusinessGoals' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("businessGoals" Data..=)+              Prelude.<$> businessGoals+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/RecommendationReportDetails.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.MigrationHubStrategy.Types.RecommendationReportDetails+-- 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.MigrationHubStrategy.Types.RecommendationReportDetails where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.RecommendationReportStatus+import qualified Amazonka.Prelude as Prelude++-- | Contains detailed information about a recommendation report.+--+-- /See:/ 'newRecommendationReportDetails' smart constructor.+data RecommendationReportDetails = RecommendationReportDetails'+  { -- | The time that the recommendation report generation task completes.+    completionTime :: Prelude.Maybe Data.POSIX,+    -- | The S3 bucket where the report file is located.+    s3Bucket :: Prelude.Maybe Prelude.Text,+    -- | The Amazon S3 key name of the report file.+    s3Keys :: Prelude.Maybe [Prelude.Text],+    -- | The time that the recommendation report generation task starts.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | The status of the recommendation report generation task.+    status :: Prelude.Maybe RecommendationReportStatus,+    -- | The status message for recommendation report generation.+    statusMessage :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RecommendationReportDetails' 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:+--+-- 'completionTime', 'recommendationReportDetails_completionTime' - The time that the recommendation report generation task completes.+--+-- 's3Bucket', 'recommendationReportDetails_s3Bucket' - The S3 bucket where the report file is located.+--+-- 's3Keys', 'recommendationReportDetails_s3Keys' - The Amazon S3 key name of the report file.+--+-- 'startTime', 'recommendationReportDetails_startTime' - The time that the recommendation report generation task starts.+--+-- 'status', 'recommendationReportDetails_status' - The status of the recommendation report generation task.+--+-- 'statusMessage', 'recommendationReportDetails_statusMessage' - The status message for recommendation report generation.+newRecommendationReportDetails ::+  RecommendationReportDetails+newRecommendationReportDetails =+  RecommendationReportDetails'+    { completionTime =+        Prelude.Nothing,+      s3Bucket = Prelude.Nothing,+      s3Keys = Prelude.Nothing,+      startTime = Prelude.Nothing,+      status = Prelude.Nothing,+      statusMessage = Prelude.Nothing+    }++-- | The time that the recommendation report generation task completes.+recommendationReportDetails_completionTime :: Lens.Lens' RecommendationReportDetails (Prelude.Maybe Prelude.UTCTime)+recommendationReportDetails_completionTime = Lens.lens (\RecommendationReportDetails' {completionTime} -> completionTime) (\s@RecommendationReportDetails' {} a -> s {completionTime = a} :: RecommendationReportDetails) Prelude.. Lens.mapping Data._Time++-- | The S3 bucket where the report file is located.+recommendationReportDetails_s3Bucket :: Lens.Lens' RecommendationReportDetails (Prelude.Maybe Prelude.Text)+recommendationReportDetails_s3Bucket = Lens.lens (\RecommendationReportDetails' {s3Bucket} -> s3Bucket) (\s@RecommendationReportDetails' {} a -> s {s3Bucket = a} :: RecommendationReportDetails)++-- | The Amazon S3 key name of the report file.+recommendationReportDetails_s3Keys :: Lens.Lens' RecommendationReportDetails (Prelude.Maybe [Prelude.Text])+recommendationReportDetails_s3Keys = Lens.lens (\RecommendationReportDetails' {s3Keys} -> s3Keys) (\s@RecommendationReportDetails' {} a -> s {s3Keys = a} :: RecommendationReportDetails) Prelude.. Lens.mapping Lens.coerced++-- | The time that the recommendation report generation task starts.+recommendationReportDetails_startTime :: Lens.Lens' RecommendationReportDetails (Prelude.Maybe Prelude.UTCTime)+recommendationReportDetails_startTime = Lens.lens (\RecommendationReportDetails' {startTime} -> startTime) (\s@RecommendationReportDetails' {} a -> s {startTime = a} :: RecommendationReportDetails) Prelude.. Lens.mapping Data._Time++-- | The status of the recommendation report generation task.+recommendationReportDetails_status :: Lens.Lens' RecommendationReportDetails (Prelude.Maybe RecommendationReportStatus)+recommendationReportDetails_status = Lens.lens (\RecommendationReportDetails' {status} -> status) (\s@RecommendationReportDetails' {} a -> s {status = a} :: RecommendationReportDetails)++-- | The status message for recommendation report generation.+recommendationReportDetails_statusMessage :: Lens.Lens' RecommendationReportDetails (Prelude.Maybe Prelude.Text)+recommendationReportDetails_statusMessage = Lens.lens (\RecommendationReportDetails' {statusMessage} -> statusMessage) (\s@RecommendationReportDetails' {} a -> s {statusMessage = a} :: RecommendationReportDetails)++instance Data.FromJSON RecommendationReportDetails where+  parseJSON =+    Data.withObject+      "RecommendationReportDetails"+      ( \x ->+          RecommendationReportDetails'+            Prelude.<$> (x Data..:? "completionTime")+            Prelude.<*> (x Data..:? "s3Bucket")+            Prelude.<*> (x Data..:? "s3Keys" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "startTime")+            Prelude.<*> (x Data..:? "status")+            Prelude.<*> (x Data..:? "statusMessage")+      )++instance Prelude.Hashable RecommendationReportDetails where+  hashWithSalt _salt RecommendationReportDetails' {..} =+    _salt+      `Prelude.hashWithSalt` completionTime+      `Prelude.hashWithSalt` s3Bucket+      `Prelude.hashWithSalt` s3Keys+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` statusMessage++instance Prelude.NFData RecommendationReportDetails where+  rnf RecommendationReportDetails' {..} =+    Prelude.rnf completionTime+      `Prelude.seq` Prelude.rnf s3Bucket+      `Prelude.seq` Prelude.rnf s3Keys+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusMessage
+ gen/Amazonka/MigrationHubStrategy/Types/RecommendationReportStatus.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.MigrationHubStrategy.Types.RecommendationReportStatus+-- 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.MigrationHubStrategy.Types.RecommendationReportStatus+  ( RecommendationReportStatus+      ( ..,+        RecommendationReportStatus_FAILED,+        RecommendationReportStatus_IN_PROGRESS,+        RecommendationReportStatus_SUCCESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RecommendationReportStatus = RecommendationReportStatus'+  { fromRecommendationReportStatus ::+      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 RecommendationReportStatus_FAILED :: RecommendationReportStatus+pattern RecommendationReportStatus_FAILED = RecommendationReportStatus' "FAILED"++pattern RecommendationReportStatus_IN_PROGRESS :: RecommendationReportStatus+pattern RecommendationReportStatus_IN_PROGRESS = RecommendationReportStatus' "IN_PROGRESS"++pattern RecommendationReportStatus_SUCCESS :: RecommendationReportStatus+pattern RecommendationReportStatus_SUCCESS = RecommendationReportStatus' "SUCCESS"++{-# COMPLETE+  RecommendationReportStatus_FAILED,+  RecommendationReportStatus_IN_PROGRESS,+  RecommendationReportStatus_SUCCESS,+  RecommendationReportStatus'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/RecommendationSet.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.MigrationHubStrategy.Types.RecommendationSet+-- 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.MigrationHubStrategy.Types.RecommendationSet where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.Strategy+import Amazonka.MigrationHubStrategy.Types.TargetDestination+import Amazonka.MigrationHubStrategy.Types.TransformationTool+import qualified Amazonka.Prelude as Prelude++-- | Contains a recommendation set.+--+-- /See:/ 'newRecommendationSet' smart constructor.+data RecommendationSet = RecommendationSet'+  { -- | The recommended strategy.+    strategy :: Prelude.Maybe Strategy,+    -- | The recommended target destination.+    targetDestination :: Prelude.Maybe TargetDestination,+    -- | The target destination for the recommendation set.+    transformationTool :: Prelude.Maybe TransformationTool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RecommendationSet' 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:+--+-- 'strategy', 'recommendationSet_strategy' - The recommended strategy.+--+-- 'targetDestination', 'recommendationSet_targetDestination' - The recommended target destination.+--+-- 'transformationTool', 'recommendationSet_transformationTool' - The target destination for the recommendation set.+newRecommendationSet ::+  RecommendationSet+newRecommendationSet =+  RecommendationSet'+    { strategy = Prelude.Nothing,+      targetDestination = Prelude.Nothing,+      transformationTool = Prelude.Nothing+    }++-- | The recommended strategy.+recommendationSet_strategy :: Lens.Lens' RecommendationSet (Prelude.Maybe Strategy)+recommendationSet_strategy = Lens.lens (\RecommendationSet' {strategy} -> strategy) (\s@RecommendationSet' {} a -> s {strategy = a} :: RecommendationSet)++-- | The recommended target destination.+recommendationSet_targetDestination :: Lens.Lens' RecommendationSet (Prelude.Maybe TargetDestination)+recommendationSet_targetDestination = Lens.lens (\RecommendationSet' {targetDestination} -> targetDestination) (\s@RecommendationSet' {} a -> s {targetDestination = a} :: RecommendationSet)++-- | The target destination for the recommendation set.+recommendationSet_transformationTool :: Lens.Lens' RecommendationSet (Prelude.Maybe TransformationTool)+recommendationSet_transformationTool = Lens.lens (\RecommendationSet' {transformationTool} -> transformationTool) (\s@RecommendationSet' {} a -> s {transformationTool = a} :: RecommendationSet)++instance Data.FromJSON RecommendationSet where+  parseJSON =+    Data.withObject+      "RecommendationSet"+      ( \x ->+          RecommendationSet'+            Prelude.<$> (x Data..:? "strategy")+            Prelude.<*> (x Data..:? "targetDestination")+            Prelude.<*> (x Data..:? "transformationTool")+      )++instance Prelude.Hashable RecommendationSet where+  hashWithSalt _salt RecommendationSet' {..} =+    _salt+      `Prelude.hashWithSalt` strategy+      `Prelude.hashWithSalt` targetDestination+      `Prelude.hashWithSalt` transformationTool++instance Prelude.NFData RecommendationSet where+  rnf RecommendationSet' {..} =+    Prelude.rnf strategy+      `Prelude.seq` Prelude.rnf targetDestination+      `Prelude.seq` Prelude.rnf transformationTool
+ gen/Amazonka/MigrationHubStrategy/Types/RemoteSourceCodeAnalysisServerInfo.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.MigrationHubStrategy.Types.RemoteSourceCodeAnalysisServerInfo+-- 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.MigrationHubStrategy.Types.RemoteSourceCodeAnalysisServerInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Information about the server configured for source code analysis.+--+-- /See:/ 'newRemoteSourceCodeAnalysisServerInfo' smart constructor.+data RemoteSourceCodeAnalysisServerInfo = RemoteSourceCodeAnalysisServerInfo'+  { -- | The time when the remote source code server was configured.+    remoteSourceCodeAnalysisServerConfigurationTimestamp :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoteSourceCodeAnalysisServerInfo' 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:+--+-- 'remoteSourceCodeAnalysisServerConfigurationTimestamp', 'remoteSourceCodeAnalysisServerInfo_remoteSourceCodeAnalysisServerConfigurationTimestamp' - The time when the remote source code server was configured.+newRemoteSourceCodeAnalysisServerInfo ::+  RemoteSourceCodeAnalysisServerInfo+newRemoteSourceCodeAnalysisServerInfo =+  RemoteSourceCodeAnalysisServerInfo'+    { remoteSourceCodeAnalysisServerConfigurationTimestamp =+        Prelude.Nothing+    }++-- | The time when the remote source code server was configured.+remoteSourceCodeAnalysisServerInfo_remoteSourceCodeAnalysisServerConfigurationTimestamp :: Lens.Lens' RemoteSourceCodeAnalysisServerInfo (Prelude.Maybe Prelude.Text)+remoteSourceCodeAnalysisServerInfo_remoteSourceCodeAnalysisServerConfigurationTimestamp = Lens.lens (\RemoteSourceCodeAnalysisServerInfo' {remoteSourceCodeAnalysisServerConfigurationTimestamp} -> remoteSourceCodeAnalysisServerConfigurationTimestamp) (\s@RemoteSourceCodeAnalysisServerInfo' {} a -> s {remoteSourceCodeAnalysisServerConfigurationTimestamp = a} :: RemoteSourceCodeAnalysisServerInfo)++instance+  Data.FromJSON+    RemoteSourceCodeAnalysisServerInfo+  where+  parseJSON =+    Data.withObject+      "RemoteSourceCodeAnalysisServerInfo"+      ( \x ->+          RemoteSourceCodeAnalysisServerInfo'+            Prelude.<$> ( x+                            Data..:? "remoteSourceCodeAnalysisServerConfigurationTimestamp"+                        )+      )++instance+  Prelude.Hashable+    RemoteSourceCodeAnalysisServerInfo+  where+  hashWithSalt+    _salt+    RemoteSourceCodeAnalysisServerInfo' {..} =+      _salt+        `Prelude.hashWithSalt` remoteSourceCodeAnalysisServerConfigurationTimestamp++instance+  Prelude.NFData+    RemoteSourceCodeAnalysisServerInfo+  where+  rnf RemoteSourceCodeAnalysisServerInfo' {..} =+    Prelude.rnf+      remoteSourceCodeAnalysisServerConfigurationTimestamp
+ gen/Amazonka/MigrationHubStrategy/Types/ResourceSubType.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.MigrationHubStrategy.Types.ResourceSubType+-- 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.MigrationHubStrategy.Types.ResourceSubType+  ( ResourceSubType+      ( ..,+        ResourceSubType_Database,+        ResourceSubType_DatabaseProcess,+        ResourceSubType_Process+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ResourceSubType = ResourceSubType'+  { fromResourceSubType ::+      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 ResourceSubType_Database :: ResourceSubType+pattern ResourceSubType_Database = ResourceSubType' "Database"++pattern ResourceSubType_DatabaseProcess :: ResourceSubType+pattern ResourceSubType_DatabaseProcess = ResourceSubType' "DatabaseProcess"++pattern ResourceSubType_Process :: ResourceSubType+pattern ResourceSubType_Process = ResourceSubType' "Process"++{-# COMPLETE+  ResourceSubType_Database,+  ResourceSubType_DatabaseProcess,+  ResourceSubType_Process,+  ResourceSubType'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/RunTimeAssessmentStatus.hs view
@@ -0,0 +1,96 @@+{-# 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.MigrationHubStrategy.Types.RunTimeAssessmentStatus+-- 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.MigrationHubStrategy.Types.RunTimeAssessmentStatus+  ( RunTimeAssessmentStatus+      ( ..,+        RunTimeAssessmentStatus_DataCollectionTaskFailed,+        RunTimeAssessmentStatus_DataCollectionTaskPartialSuccess,+        RunTimeAssessmentStatus_DataCollectionTaskScheduled,+        RunTimeAssessmentStatus_DataCollectionTaskStarted,+        RunTimeAssessmentStatus_DataCollectionTaskStopped,+        RunTimeAssessmentStatus_DataCollectionTaskSuccess,+        RunTimeAssessmentStatus_DataCollectionTaskToBeScheduled+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RunTimeAssessmentStatus = RunTimeAssessmentStatus'+  { fromRunTimeAssessmentStatus ::+      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 RunTimeAssessmentStatus_DataCollectionTaskFailed :: RunTimeAssessmentStatus+pattern RunTimeAssessmentStatus_DataCollectionTaskFailed = RunTimeAssessmentStatus' "dataCollectionTaskFailed"++pattern RunTimeAssessmentStatus_DataCollectionTaskPartialSuccess :: RunTimeAssessmentStatus+pattern RunTimeAssessmentStatus_DataCollectionTaskPartialSuccess = RunTimeAssessmentStatus' "dataCollectionTaskPartialSuccess"++pattern RunTimeAssessmentStatus_DataCollectionTaskScheduled :: RunTimeAssessmentStatus+pattern RunTimeAssessmentStatus_DataCollectionTaskScheduled = RunTimeAssessmentStatus' "dataCollectionTaskScheduled"++pattern RunTimeAssessmentStatus_DataCollectionTaskStarted :: RunTimeAssessmentStatus+pattern RunTimeAssessmentStatus_DataCollectionTaskStarted = RunTimeAssessmentStatus' "dataCollectionTaskStarted"++pattern RunTimeAssessmentStatus_DataCollectionTaskStopped :: RunTimeAssessmentStatus+pattern RunTimeAssessmentStatus_DataCollectionTaskStopped = RunTimeAssessmentStatus' "dataCollectionTaskStopped"++pattern RunTimeAssessmentStatus_DataCollectionTaskSuccess :: RunTimeAssessmentStatus+pattern RunTimeAssessmentStatus_DataCollectionTaskSuccess = RunTimeAssessmentStatus' "dataCollectionTaskSuccess"++pattern RunTimeAssessmentStatus_DataCollectionTaskToBeScheduled :: RunTimeAssessmentStatus+pattern RunTimeAssessmentStatus_DataCollectionTaskToBeScheduled = RunTimeAssessmentStatus' "dataCollectionTaskToBeScheduled"++{-# COMPLETE+  RunTimeAssessmentStatus_DataCollectionTaskFailed,+  RunTimeAssessmentStatus_DataCollectionTaskPartialSuccess,+  RunTimeAssessmentStatus_DataCollectionTaskScheduled,+  RunTimeAssessmentStatus_DataCollectionTaskStarted,+  RunTimeAssessmentStatus_DataCollectionTaskStopped,+  RunTimeAssessmentStatus_DataCollectionTaskSuccess,+  RunTimeAssessmentStatus_DataCollectionTaskToBeScheduled,+  RunTimeAssessmentStatus'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/RuntimeAnalysisStatus.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.MigrationHubStrategy.Types.RuntimeAnalysisStatus+-- 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.MigrationHubStrategy.Types.RuntimeAnalysisStatus+  ( RuntimeAnalysisStatus+      ( ..,+        RuntimeAnalysisStatus_ANALYSIS_FAILED,+        RuntimeAnalysisStatus_ANALYSIS_STARTED,+        RuntimeAnalysisStatus_ANALYSIS_SUCCESS,+        RuntimeAnalysisStatus_ANALYSIS_TO_BE_SCHEDULED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RuntimeAnalysisStatus = RuntimeAnalysisStatus'+  { fromRuntimeAnalysisStatus ::+      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 RuntimeAnalysisStatus_ANALYSIS_FAILED :: RuntimeAnalysisStatus+pattern RuntimeAnalysisStatus_ANALYSIS_FAILED = RuntimeAnalysisStatus' "ANALYSIS_FAILED"++pattern RuntimeAnalysisStatus_ANALYSIS_STARTED :: RuntimeAnalysisStatus+pattern RuntimeAnalysisStatus_ANALYSIS_STARTED = RuntimeAnalysisStatus' "ANALYSIS_STARTED"++pattern RuntimeAnalysisStatus_ANALYSIS_SUCCESS :: RuntimeAnalysisStatus+pattern RuntimeAnalysisStatus_ANALYSIS_SUCCESS = RuntimeAnalysisStatus' "ANALYSIS_SUCCESS"++pattern RuntimeAnalysisStatus_ANALYSIS_TO_BE_SCHEDULED :: RuntimeAnalysisStatus+pattern RuntimeAnalysisStatus_ANALYSIS_TO_BE_SCHEDULED = RuntimeAnalysisStatus' "ANALYSIS_TO_BE_SCHEDULED"++{-# COMPLETE+  RuntimeAnalysisStatus_ANALYSIS_FAILED,+  RuntimeAnalysisStatus_ANALYSIS_STARTED,+  RuntimeAnalysisStatus_ANALYSIS_SUCCESS,+  RuntimeAnalysisStatus_ANALYSIS_TO_BE_SCHEDULED,+  RuntimeAnalysisStatus'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/S3Object.hs view
@@ -0,0 +1,84 @@+{-# 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.MigrationHubStrategy.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.MigrationHubStrategy.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 the S3 bucket name and the Amazon S3 key name.+--+-- /See:/ 'newS3Object' smart constructor.+data S3Object = S3Object'+  { -- | The S3 bucket name.+    s3Bucket :: Prelude.Maybe Prelude.Text,+    -- | The Amazon S3 key name.+    s3key :: Prelude.Maybe 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:+--+-- 's3Bucket', 's3Object_s3Bucket' - The S3 bucket name.+--+-- 's3key', 's3Object_s3key' - The Amazon S3 key name.+newS3Object ::+  S3Object+newS3Object =+  S3Object'+    { s3Bucket = Prelude.Nothing,+      s3key = Prelude.Nothing+    }++-- | The S3 bucket name.+s3Object_s3Bucket :: Lens.Lens' S3Object (Prelude.Maybe Prelude.Text)+s3Object_s3Bucket = Lens.lens (\S3Object' {s3Bucket} -> s3Bucket) (\s@S3Object' {} a -> s {s3Bucket = a} :: S3Object)++-- | The Amazon S3 key name.+s3Object_s3key :: Lens.Lens' S3Object (Prelude.Maybe Prelude.Text)+s3Object_s3key = Lens.lens (\S3Object' {s3key} -> s3key) (\s@S3Object' {} a -> s {s3key = a} :: S3Object)++instance Data.FromJSON S3Object where+  parseJSON =+    Data.withObject+      "S3Object"+      ( \x ->+          S3Object'+            Prelude.<$> (x Data..:? "s3Bucket")+            Prelude.<*> (x Data..:? "s3key")+      )++instance Prelude.Hashable S3Object where+  hashWithSalt _salt S3Object' {..} =+    _salt+      `Prelude.hashWithSalt` s3Bucket+      `Prelude.hashWithSalt` s3key++instance Prelude.NFData S3Object where+  rnf S3Object' {..} =+    Prelude.rnf s3Bucket+      `Prelude.seq` Prelude.rnf s3key
+ gen/Amazonka/MigrationHubStrategy/Types/SelfManageResources.hs view
@@ -0,0 +1,84 @@+{-# 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.MigrationHubStrategy.Types.SelfManageResources+-- 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.MigrationHubStrategy.Types.SelfManageResources where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.SelfManageTargetDestination+import qualified Amazonka.Prelude as Prelude++-- | Self-managed resources.+--+-- /See:/ 'newSelfManageResources' smart constructor.+data SelfManageResources = SelfManageResources'+  { -- | Self-managed resources target destination.+    targetDestination :: Prelude.NonEmpty SelfManageTargetDestination+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SelfManageResources' 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:+--+-- 'targetDestination', 'selfManageResources_targetDestination' - Self-managed resources target destination.+newSelfManageResources ::+  -- | 'targetDestination'+  Prelude.NonEmpty SelfManageTargetDestination ->+  SelfManageResources+newSelfManageResources pTargetDestination_ =+  SelfManageResources'+    { targetDestination =+        Lens.coerced Lens.# pTargetDestination_+    }++-- | Self-managed resources target destination.+selfManageResources_targetDestination :: Lens.Lens' SelfManageResources (Prelude.NonEmpty SelfManageTargetDestination)+selfManageResources_targetDestination = Lens.lens (\SelfManageResources' {targetDestination} -> targetDestination) (\s@SelfManageResources' {} a -> s {targetDestination = a} :: SelfManageResources) Prelude.. Lens.coerced++instance Data.FromJSON SelfManageResources where+  parseJSON =+    Data.withObject+      "SelfManageResources"+      ( \x ->+          SelfManageResources'+            Prelude.<$> (x Data..: "targetDestination")+      )++instance Prelude.Hashable SelfManageResources where+  hashWithSalt _salt SelfManageResources' {..} =+    _salt `Prelude.hashWithSalt` targetDestination++instance Prelude.NFData SelfManageResources where+  rnf SelfManageResources' {..} =+    Prelude.rnf targetDestination++instance Data.ToJSON SelfManageResources where+  toJSON SelfManageResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("targetDestination" Data..= targetDestination)+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/SelfManageTargetDestination.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.MigrationHubStrategy.Types.SelfManageTargetDestination+-- 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.MigrationHubStrategy.Types.SelfManageTargetDestination+  ( SelfManageTargetDestination+      ( ..,+        SelfManageTargetDestination_Amazon_Elastic_Cloud_Compute__EC2_,+        SelfManageTargetDestination_Amazon_Elastic_Container_Service__ECS_,+        SelfManageTargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_,+        SelfManageTargetDestination_None_specified+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SelfManageTargetDestination = SelfManageTargetDestination'+  { fromSelfManageTargetDestination ::+      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 SelfManageTargetDestination_Amazon_Elastic_Cloud_Compute__EC2_ :: SelfManageTargetDestination+pattern SelfManageTargetDestination_Amazon_Elastic_Cloud_Compute__EC2_ = SelfManageTargetDestination' "Amazon Elastic Cloud Compute (EC2)"++pattern SelfManageTargetDestination_Amazon_Elastic_Container_Service__ECS_ :: SelfManageTargetDestination+pattern SelfManageTargetDestination_Amazon_Elastic_Container_Service__ECS_ = SelfManageTargetDestination' "Amazon Elastic Container Service (ECS)"++pattern SelfManageTargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_ :: SelfManageTargetDestination+pattern SelfManageTargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_ = SelfManageTargetDestination' "Amazon Elastic Kubernetes Service (EKS)"++pattern SelfManageTargetDestination_None_specified :: SelfManageTargetDestination+pattern SelfManageTargetDestination_None_specified = SelfManageTargetDestination' "None specified"++{-# COMPLETE+  SelfManageTargetDestination_Amazon_Elastic_Cloud_Compute__EC2_,+  SelfManageTargetDestination_Amazon_Elastic_Container_Service__ECS_,+  SelfManageTargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_,+  SelfManageTargetDestination_None_specified,+  SelfManageTargetDestination'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ServerCriteria.hs view
@@ -0,0 +1,96 @@+{-# 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.MigrationHubStrategy.Types.ServerCriteria+-- 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.MigrationHubStrategy.Types.ServerCriteria+  ( ServerCriteria+      ( ..,+        ServerCriteria_ANALYSIS_STATUS,+        ServerCriteria_DESTINATION,+        ServerCriteria_ERROR_CATEGORY,+        ServerCriteria_NOT_DEFINED,+        ServerCriteria_OS_NAME,+        ServerCriteria_SERVER_ID,+        ServerCriteria_STRATEGY+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ServerCriteria = ServerCriteria'+  { fromServerCriteria ::+      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 ServerCriteria_ANALYSIS_STATUS :: ServerCriteria+pattern ServerCriteria_ANALYSIS_STATUS = ServerCriteria' "ANALYSIS_STATUS"++pattern ServerCriteria_DESTINATION :: ServerCriteria+pattern ServerCriteria_DESTINATION = ServerCriteria' "DESTINATION"++pattern ServerCriteria_ERROR_CATEGORY :: ServerCriteria+pattern ServerCriteria_ERROR_CATEGORY = ServerCriteria' "ERROR_CATEGORY"++pattern ServerCriteria_NOT_DEFINED :: ServerCriteria+pattern ServerCriteria_NOT_DEFINED = ServerCriteria' "NOT_DEFINED"++pattern ServerCriteria_OS_NAME :: ServerCriteria+pattern ServerCriteria_OS_NAME = ServerCriteria' "OS_NAME"++pattern ServerCriteria_SERVER_ID :: ServerCriteria+pattern ServerCriteria_SERVER_ID = ServerCriteria' "SERVER_ID"++pattern ServerCriteria_STRATEGY :: ServerCriteria+pattern ServerCriteria_STRATEGY = ServerCriteria' "STRATEGY"++{-# COMPLETE+  ServerCriteria_ANALYSIS_STATUS,+  ServerCriteria_DESTINATION,+  ServerCriteria_ERROR_CATEGORY,+  ServerCriteria_NOT_DEFINED,+  ServerCriteria_OS_NAME,+  ServerCriteria_SERVER_ID,+  ServerCriteria_STRATEGY,+  ServerCriteria'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ServerDetail.hs view
@@ -0,0 +1,247 @@+{-# 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.MigrationHubStrategy.Types.ServerDetail+-- 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.MigrationHubStrategy.Types.ServerDetail where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.AntipatternReportStatus+import Amazonka.MigrationHubStrategy.Types.AntipatternSeveritySummary+import Amazonka.MigrationHubStrategy.Types.RecommendationSet+import Amazonka.MigrationHubStrategy.Types.RunTimeAssessmentStatus+import Amazonka.MigrationHubStrategy.Types.S3Object+import Amazonka.MigrationHubStrategy.Types.ServerError+import Amazonka.MigrationHubStrategy.Types.StrategySummary+import Amazonka.MigrationHubStrategy.Types.SystemInfo+import qualified Amazonka.Prelude as Prelude++-- | Detailed information about a server.+--+-- /See:/ 'newServerDetail' smart constructor.+data ServerDetail = ServerDetail'+  { -- | The S3 bucket name and Amazon S3 key name for anti-pattern report.+    antipatternReportS3Object :: Prelude.Maybe S3Object,+    -- | The status of the anti-pattern report generation.+    antipatternReportStatus :: Prelude.Maybe AntipatternReportStatus,+    -- | A message about the status of the anti-pattern report generation.+    antipatternReportStatusMessage :: Prelude.Maybe Prelude.Text,+    -- | A list of strategy summaries.+    applicationComponentStrategySummary :: Prelude.Maybe [StrategySummary],+    -- | The status of assessment for the server.+    dataCollectionStatus :: Prelude.Maybe RunTimeAssessmentStatus,+    -- | The server ID.+    id :: Prelude.Maybe Prelude.Text,+    -- | The timestamp of when the server was assessed.+    lastAnalyzedTimestamp :: Prelude.Maybe Data.POSIX,+    -- | A list of anti-pattern severity summaries.+    listAntipatternSeveritySummary :: Prelude.Maybe [AntipatternSeveritySummary],+    -- | The name of the server.+    name :: Prelude.Maybe Prelude.Text,+    -- | A set of recommendations.+    recommendationSet :: Prelude.Maybe RecommendationSet,+    -- | The error in server analysis.+    serverError :: Prelude.Maybe ServerError,+    -- | The type of server.+    serverType :: Prelude.Maybe Prelude.Text,+    -- | A message about the status of data collection, which contains detailed+    -- descriptions of any error messages.+    statusMessage :: Prelude.Maybe Prelude.Text,+    -- | System information about the server.+    systemInfo :: Prelude.Maybe SystemInfo+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServerDetail' 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:+--+-- 'antipatternReportS3Object', 'serverDetail_antipatternReportS3Object' - The S3 bucket name and Amazon S3 key name for anti-pattern report.+--+-- 'antipatternReportStatus', 'serverDetail_antipatternReportStatus' - The status of the anti-pattern report generation.+--+-- 'antipatternReportStatusMessage', 'serverDetail_antipatternReportStatusMessage' - A message about the status of the anti-pattern report generation.+--+-- 'applicationComponentStrategySummary', 'serverDetail_applicationComponentStrategySummary' - A list of strategy summaries.+--+-- 'dataCollectionStatus', 'serverDetail_dataCollectionStatus' - The status of assessment for the server.+--+-- 'id', 'serverDetail_id' - The server ID.+--+-- 'lastAnalyzedTimestamp', 'serverDetail_lastAnalyzedTimestamp' - The timestamp of when the server was assessed.+--+-- 'listAntipatternSeveritySummary', 'serverDetail_listAntipatternSeveritySummary' - A list of anti-pattern severity summaries.+--+-- 'name', 'serverDetail_name' - The name of the server.+--+-- 'recommendationSet', 'serverDetail_recommendationSet' - A set of recommendations.+--+-- 'serverError', 'serverDetail_serverError' - The error in server analysis.+--+-- 'serverType', 'serverDetail_serverType' - The type of server.+--+-- 'statusMessage', 'serverDetail_statusMessage' - A message about the status of data collection, which contains detailed+-- descriptions of any error messages.+--+-- 'systemInfo', 'serverDetail_systemInfo' - System information about the server.+newServerDetail ::+  ServerDetail+newServerDetail =+  ServerDetail'+    { antipatternReportS3Object =+        Prelude.Nothing,+      antipatternReportStatus = Prelude.Nothing,+      antipatternReportStatusMessage = Prelude.Nothing,+      applicationComponentStrategySummary =+        Prelude.Nothing,+      dataCollectionStatus = Prelude.Nothing,+      id = Prelude.Nothing,+      lastAnalyzedTimestamp = Prelude.Nothing,+      listAntipatternSeveritySummary = Prelude.Nothing,+      name = Prelude.Nothing,+      recommendationSet = Prelude.Nothing,+      serverError = Prelude.Nothing,+      serverType = Prelude.Nothing,+      statusMessage = Prelude.Nothing,+      systemInfo = Prelude.Nothing+    }++-- | The S3 bucket name and Amazon S3 key name for anti-pattern report.+serverDetail_antipatternReportS3Object :: Lens.Lens' ServerDetail (Prelude.Maybe S3Object)+serverDetail_antipatternReportS3Object = Lens.lens (\ServerDetail' {antipatternReportS3Object} -> antipatternReportS3Object) (\s@ServerDetail' {} a -> s {antipatternReportS3Object = a} :: ServerDetail)++-- | The status of the anti-pattern report generation.+serverDetail_antipatternReportStatus :: Lens.Lens' ServerDetail (Prelude.Maybe AntipatternReportStatus)+serverDetail_antipatternReportStatus = Lens.lens (\ServerDetail' {antipatternReportStatus} -> antipatternReportStatus) (\s@ServerDetail' {} a -> s {antipatternReportStatus = a} :: ServerDetail)++-- | A message about the status of the anti-pattern report generation.+serverDetail_antipatternReportStatusMessage :: Lens.Lens' ServerDetail (Prelude.Maybe Prelude.Text)+serverDetail_antipatternReportStatusMessage = Lens.lens (\ServerDetail' {antipatternReportStatusMessage} -> antipatternReportStatusMessage) (\s@ServerDetail' {} a -> s {antipatternReportStatusMessage = a} :: ServerDetail)++-- | A list of strategy summaries.+serverDetail_applicationComponentStrategySummary :: Lens.Lens' ServerDetail (Prelude.Maybe [StrategySummary])+serverDetail_applicationComponentStrategySummary = Lens.lens (\ServerDetail' {applicationComponentStrategySummary} -> applicationComponentStrategySummary) (\s@ServerDetail' {} a -> s {applicationComponentStrategySummary = a} :: ServerDetail) Prelude.. Lens.mapping Lens.coerced++-- | The status of assessment for the server.+serverDetail_dataCollectionStatus :: Lens.Lens' ServerDetail (Prelude.Maybe RunTimeAssessmentStatus)+serverDetail_dataCollectionStatus = Lens.lens (\ServerDetail' {dataCollectionStatus} -> dataCollectionStatus) (\s@ServerDetail' {} a -> s {dataCollectionStatus = a} :: ServerDetail)++-- | The server ID.+serverDetail_id :: Lens.Lens' ServerDetail (Prelude.Maybe Prelude.Text)+serverDetail_id = Lens.lens (\ServerDetail' {id} -> id) (\s@ServerDetail' {} a -> s {id = a} :: ServerDetail)++-- | The timestamp of when the server was assessed.+serverDetail_lastAnalyzedTimestamp :: Lens.Lens' ServerDetail (Prelude.Maybe Prelude.UTCTime)+serverDetail_lastAnalyzedTimestamp = Lens.lens (\ServerDetail' {lastAnalyzedTimestamp} -> lastAnalyzedTimestamp) (\s@ServerDetail' {} a -> s {lastAnalyzedTimestamp = a} :: ServerDetail) Prelude.. Lens.mapping Data._Time++-- | A list of anti-pattern severity summaries.+serverDetail_listAntipatternSeveritySummary :: Lens.Lens' ServerDetail (Prelude.Maybe [AntipatternSeveritySummary])+serverDetail_listAntipatternSeveritySummary = Lens.lens (\ServerDetail' {listAntipatternSeveritySummary} -> listAntipatternSeveritySummary) (\s@ServerDetail' {} a -> s {listAntipatternSeveritySummary = a} :: ServerDetail) Prelude.. Lens.mapping Lens.coerced++-- | The name of the server.+serverDetail_name :: Lens.Lens' ServerDetail (Prelude.Maybe Prelude.Text)+serverDetail_name = Lens.lens (\ServerDetail' {name} -> name) (\s@ServerDetail' {} a -> s {name = a} :: ServerDetail)++-- | A set of recommendations.+serverDetail_recommendationSet :: Lens.Lens' ServerDetail (Prelude.Maybe RecommendationSet)+serverDetail_recommendationSet = Lens.lens (\ServerDetail' {recommendationSet} -> recommendationSet) (\s@ServerDetail' {} a -> s {recommendationSet = a} :: ServerDetail)++-- | The error in server analysis.+serverDetail_serverError :: Lens.Lens' ServerDetail (Prelude.Maybe ServerError)+serverDetail_serverError = Lens.lens (\ServerDetail' {serverError} -> serverError) (\s@ServerDetail' {} a -> s {serverError = a} :: ServerDetail)++-- | The type of server.+serverDetail_serverType :: Lens.Lens' ServerDetail (Prelude.Maybe Prelude.Text)+serverDetail_serverType = Lens.lens (\ServerDetail' {serverType} -> serverType) (\s@ServerDetail' {} a -> s {serverType = a} :: ServerDetail)++-- | A message about the status of data collection, which contains detailed+-- descriptions of any error messages.+serverDetail_statusMessage :: Lens.Lens' ServerDetail (Prelude.Maybe Prelude.Text)+serverDetail_statusMessage = Lens.lens (\ServerDetail' {statusMessage} -> statusMessage) (\s@ServerDetail' {} a -> s {statusMessage = a} :: ServerDetail)++-- | System information about the server.+serverDetail_systemInfo :: Lens.Lens' ServerDetail (Prelude.Maybe SystemInfo)+serverDetail_systemInfo = Lens.lens (\ServerDetail' {systemInfo} -> systemInfo) (\s@ServerDetail' {} a -> s {systemInfo = a} :: ServerDetail)++instance Data.FromJSON ServerDetail where+  parseJSON =+    Data.withObject+      "ServerDetail"+      ( \x ->+          ServerDetail'+            Prelude.<$> (x Data..:? "antipatternReportS3Object")+            Prelude.<*> (x Data..:? "antipatternReportStatus")+            Prelude.<*> (x Data..:? "antipatternReportStatusMessage")+            Prelude.<*> ( x+                            Data..:? "applicationComponentStrategySummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "dataCollectionStatus")+            Prelude.<*> (x Data..:? "id")+            Prelude.<*> (x Data..:? "lastAnalyzedTimestamp")+            Prelude.<*> ( x+                            Data..:? "listAntipatternSeveritySummary"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "recommendationSet")+            Prelude.<*> (x Data..:? "serverError")+            Prelude.<*> (x Data..:? "serverType")+            Prelude.<*> (x Data..:? "statusMessage")+            Prelude.<*> (x Data..:? "systemInfo")+      )++instance Prelude.Hashable ServerDetail where+  hashWithSalt _salt ServerDetail' {..} =+    _salt+      `Prelude.hashWithSalt` antipatternReportS3Object+      `Prelude.hashWithSalt` antipatternReportStatus+      `Prelude.hashWithSalt` antipatternReportStatusMessage+      `Prelude.hashWithSalt` applicationComponentStrategySummary+      `Prelude.hashWithSalt` dataCollectionStatus+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` lastAnalyzedTimestamp+      `Prelude.hashWithSalt` listAntipatternSeveritySummary+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` recommendationSet+      `Prelude.hashWithSalt` serverError+      `Prelude.hashWithSalt` serverType+      `Prelude.hashWithSalt` statusMessage+      `Prelude.hashWithSalt` systemInfo++instance Prelude.NFData ServerDetail where+  rnf ServerDetail' {..} =+    Prelude.rnf antipatternReportS3Object+      `Prelude.seq` Prelude.rnf antipatternReportStatus+      `Prelude.seq` Prelude.rnf antipatternReportStatusMessage+      `Prelude.seq` Prelude.rnf applicationComponentStrategySummary+      `Prelude.seq` Prelude.rnf dataCollectionStatus+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf lastAnalyzedTimestamp+      `Prelude.seq` Prelude.rnf listAntipatternSeveritySummary+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf recommendationSet+      `Prelude.seq` Prelude.rnf serverError+      `Prelude.seq` Prelude.rnf serverType+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf systemInfo
+ gen/Amazonka/MigrationHubStrategy/Types/ServerError.hs view
@@ -0,0 +1,70 @@+{-# 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.MigrationHubStrategy.Types.ServerError+-- 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.MigrationHubStrategy.Types.ServerError where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.ServerErrorCategory+import qualified Amazonka.Prelude as Prelude++-- | The error in server analysis.+--+-- /See:/ 'newServerError' smart constructor.+data ServerError = ServerError'+  { -- | The error category of server analysis.+    serverErrorCategory :: Prelude.Maybe ServerErrorCategory+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServerError' 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:+--+-- 'serverErrorCategory', 'serverError_serverErrorCategory' - The error category of server analysis.+newServerError ::+  ServerError+newServerError =+  ServerError' {serverErrorCategory = Prelude.Nothing}++-- | The error category of server analysis.+serverError_serverErrorCategory :: Lens.Lens' ServerError (Prelude.Maybe ServerErrorCategory)+serverError_serverErrorCategory = Lens.lens (\ServerError' {serverErrorCategory} -> serverErrorCategory) (\s@ServerError' {} a -> s {serverErrorCategory = a} :: ServerError)++instance Data.FromJSON ServerError where+  parseJSON =+    Data.withObject+      "ServerError"+      ( \x ->+          ServerError'+            Prelude.<$> (x Data..:? "serverErrorCategory")+      )++instance Prelude.Hashable ServerError where+  hashWithSalt _salt ServerError' {..} =+    _salt `Prelude.hashWithSalt` serverErrorCategory++instance Prelude.NFData ServerError where+  rnf ServerError' {..} =+    Prelude.rnf serverErrorCategory
+ gen/Amazonka/MigrationHubStrategy/Types/ServerErrorCategory.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.MigrationHubStrategy.Types.ServerErrorCategory+-- 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.MigrationHubStrategy.Types.ServerErrorCategory+  ( ServerErrorCategory+      ( ..,+        ServerErrorCategory_ARCHITECTURE_ERROR,+        ServerErrorCategory_CONNECTIVITY_ERROR,+        ServerErrorCategory_CREDENTIAL_ERROR,+        ServerErrorCategory_OTHER_ERROR,+        ServerErrorCategory_PERMISSION_ERROR+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ServerErrorCategory = ServerErrorCategory'+  { fromServerErrorCategory ::+      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 ServerErrorCategory_ARCHITECTURE_ERROR :: ServerErrorCategory+pattern ServerErrorCategory_ARCHITECTURE_ERROR = ServerErrorCategory' "ARCHITECTURE_ERROR"++pattern ServerErrorCategory_CONNECTIVITY_ERROR :: ServerErrorCategory+pattern ServerErrorCategory_CONNECTIVITY_ERROR = ServerErrorCategory' "CONNECTIVITY_ERROR"++pattern ServerErrorCategory_CREDENTIAL_ERROR :: ServerErrorCategory+pattern ServerErrorCategory_CREDENTIAL_ERROR = ServerErrorCategory' "CREDENTIAL_ERROR"++pattern ServerErrorCategory_OTHER_ERROR :: ServerErrorCategory+pattern ServerErrorCategory_OTHER_ERROR = ServerErrorCategory' "OTHER_ERROR"++pattern ServerErrorCategory_PERMISSION_ERROR :: ServerErrorCategory+pattern ServerErrorCategory_PERMISSION_ERROR = ServerErrorCategory' "PERMISSION_ERROR"++{-# COMPLETE+  ServerErrorCategory_ARCHITECTURE_ERROR,+  ServerErrorCategory_CONNECTIVITY_ERROR,+  ServerErrorCategory_CREDENTIAL_ERROR,+  ServerErrorCategory_OTHER_ERROR,+  ServerErrorCategory_PERMISSION_ERROR,+  ServerErrorCategory'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ServerOsType.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.MigrationHubStrategy.Types.ServerOsType+-- 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.MigrationHubStrategy.Types.ServerOsType+  ( ServerOsType+      ( ..,+        ServerOsType_AmazonLinux,+        ServerOsType_EndOfSupportWindowsServer,+        ServerOsType_Other,+        ServerOsType_Redhat,+        ServerOsType_WindowsServer+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ServerOsType = ServerOsType'+  { fromServerOsType ::+      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 ServerOsType_AmazonLinux :: ServerOsType+pattern ServerOsType_AmazonLinux = ServerOsType' "AmazonLinux"++pattern ServerOsType_EndOfSupportWindowsServer :: ServerOsType+pattern ServerOsType_EndOfSupportWindowsServer = ServerOsType' "EndOfSupportWindowsServer"++pattern ServerOsType_Other :: ServerOsType+pattern ServerOsType_Other = ServerOsType' "Other"++pattern ServerOsType_Redhat :: ServerOsType+pattern ServerOsType_Redhat = ServerOsType' "Redhat"++pattern ServerOsType_WindowsServer :: ServerOsType+pattern ServerOsType_WindowsServer = ServerOsType' "WindowsServer"++{-# COMPLETE+  ServerOsType_AmazonLinux,+  ServerOsType_EndOfSupportWindowsServer,+  ServerOsType_Other,+  ServerOsType_Redhat,+  ServerOsType_WindowsServer,+  ServerOsType'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/ServerStatusSummary.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.MigrationHubStrategy.Types.ServerStatusSummary+-- 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.MigrationHubStrategy.Types.ServerStatusSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.RunTimeAssessmentStatus+import qualified Amazonka.Prelude as Prelude++-- | The status summary of the server analysis.+--+-- /See:/ 'newServerStatusSummary' smart constructor.+data ServerStatusSummary = ServerStatusSummary'+  { -- | The number of servers successfully analyzed, partially successful or+    -- failed analysis.+    count :: Prelude.Maybe Prelude.Int,+    -- | The status of the run time.+    runTimeAssessmentStatus :: Prelude.Maybe RunTimeAssessmentStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServerStatusSummary' 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', 'serverStatusSummary_count' - The number of servers successfully analyzed, partially successful or+-- failed analysis.+--+-- 'runTimeAssessmentStatus', 'serverStatusSummary_runTimeAssessmentStatus' - The status of the run time.+newServerStatusSummary ::+  ServerStatusSummary+newServerStatusSummary =+  ServerStatusSummary'+    { count = Prelude.Nothing,+      runTimeAssessmentStatus = Prelude.Nothing+    }++-- | The number of servers successfully analyzed, partially successful or+-- failed analysis.+serverStatusSummary_count :: Lens.Lens' ServerStatusSummary (Prelude.Maybe Prelude.Int)+serverStatusSummary_count = Lens.lens (\ServerStatusSummary' {count} -> count) (\s@ServerStatusSummary' {} a -> s {count = a} :: ServerStatusSummary)++-- | The status of the run time.+serverStatusSummary_runTimeAssessmentStatus :: Lens.Lens' ServerStatusSummary (Prelude.Maybe RunTimeAssessmentStatus)+serverStatusSummary_runTimeAssessmentStatus = Lens.lens (\ServerStatusSummary' {runTimeAssessmentStatus} -> runTimeAssessmentStatus) (\s@ServerStatusSummary' {} a -> s {runTimeAssessmentStatus = a} :: ServerStatusSummary)++instance Data.FromJSON ServerStatusSummary where+  parseJSON =+    Data.withObject+      "ServerStatusSummary"+      ( \x ->+          ServerStatusSummary'+            Prelude.<$> (x Data..:? "count")+            Prelude.<*> (x Data..:? "runTimeAssessmentStatus")+      )++instance Prelude.Hashable ServerStatusSummary where+  hashWithSalt _salt ServerStatusSummary' {..} =+    _salt+      `Prelude.hashWithSalt` count+      `Prelude.hashWithSalt` runTimeAssessmentStatus++instance Prelude.NFData ServerStatusSummary where+  rnf ServerStatusSummary' {..} =+    Prelude.rnf count+      `Prelude.seq` Prelude.rnf runTimeAssessmentStatus
+ gen/Amazonka/MigrationHubStrategy/Types/ServerStrategy.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.MigrationHubStrategy.Types.ServerStrategy+-- 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.MigrationHubStrategy.Types.ServerStrategy where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.RecommendationSet+import Amazonka.MigrationHubStrategy.Types.StrategyRecommendation+import qualified Amazonka.Prelude as Prelude++-- | Contains information about a strategy recommendation for a server.+--+-- /See:/ 'newServerStrategy' smart constructor.+data ServerStrategy = ServerStrategy'+  { -- | Set to true if the recommendation is set as preferred.+    isPreferred :: Prelude.Maybe Prelude.Bool,+    -- | The number of application components with this strategy recommendation+    -- running on the server.+    numberOfApplicationComponents :: Prelude.Maybe Prelude.Int,+    -- | Strategy recommendation for the server.+    recommendation :: Prelude.Maybe RecommendationSet,+    -- | The recommendation status of the strategy for the server.+    status :: Prelude.Maybe StrategyRecommendation+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServerStrategy' 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:+--+-- 'isPreferred', 'serverStrategy_isPreferred' - Set to true if the recommendation is set as preferred.+--+-- 'numberOfApplicationComponents', 'serverStrategy_numberOfApplicationComponents' - The number of application components with this strategy recommendation+-- running on the server.+--+-- 'recommendation', 'serverStrategy_recommendation' - Strategy recommendation for the server.+--+-- 'status', 'serverStrategy_status' - The recommendation status of the strategy for the server.+newServerStrategy ::+  ServerStrategy+newServerStrategy =+  ServerStrategy'+    { isPreferred = Prelude.Nothing,+      numberOfApplicationComponents = Prelude.Nothing,+      recommendation = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | Set to true if the recommendation is set as preferred.+serverStrategy_isPreferred :: Lens.Lens' ServerStrategy (Prelude.Maybe Prelude.Bool)+serverStrategy_isPreferred = Lens.lens (\ServerStrategy' {isPreferred} -> isPreferred) (\s@ServerStrategy' {} a -> s {isPreferred = a} :: ServerStrategy)++-- | The number of application components with this strategy recommendation+-- running on the server.+serverStrategy_numberOfApplicationComponents :: Lens.Lens' ServerStrategy (Prelude.Maybe Prelude.Int)+serverStrategy_numberOfApplicationComponents = Lens.lens (\ServerStrategy' {numberOfApplicationComponents} -> numberOfApplicationComponents) (\s@ServerStrategy' {} a -> s {numberOfApplicationComponents = a} :: ServerStrategy)++-- | Strategy recommendation for the server.+serverStrategy_recommendation :: Lens.Lens' ServerStrategy (Prelude.Maybe RecommendationSet)+serverStrategy_recommendation = Lens.lens (\ServerStrategy' {recommendation} -> recommendation) (\s@ServerStrategy' {} a -> s {recommendation = a} :: ServerStrategy)++-- | The recommendation status of the strategy for the server.+serverStrategy_status :: Lens.Lens' ServerStrategy (Prelude.Maybe StrategyRecommendation)+serverStrategy_status = Lens.lens (\ServerStrategy' {status} -> status) (\s@ServerStrategy' {} a -> s {status = a} :: ServerStrategy)++instance Data.FromJSON ServerStrategy where+  parseJSON =+    Data.withObject+      "ServerStrategy"+      ( \x ->+          ServerStrategy'+            Prelude.<$> (x Data..:? "isPreferred")+            Prelude.<*> (x Data..:? "numberOfApplicationComponents")+            Prelude.<*> (x Data..:? "recommendation")+            Prelude.<*> (x Data..:? "status")+      )++instance Prelude.Hashable ServerStrategy where+  hashWithSalt _salt ServerStrategy' {..} =+    _salt+      `Prelude.hashWithSalt` isPreferred+      `Prelude.hashWithSalt` numberOfApplicationComponents+      `Prelude.hashWithSalt` recommendation+      `Prelude.hashWithSalt` status++instance Prelude.NFData ServerStrategy where+  rnf ServerStrategy' {..} =+    Prelude.rnf isPreferred+      `Prelude.seq` Prelude.rnf numberOfApplicationComponents+      `Prelude.seq` Prelude.rnf recommendation+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/MigrationHubStrategy/Types/ServerSummary.hs view
@@ -0,0 +1,86 @@+{-# 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.MigrationHubStrategy.Types.ServerSummary+-- 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.MigrationHubStrategy.Types.ServerSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.ServerOsType+import qualified Amazonka.Prelude as Prelude++-- | Object containing details about the servers imported by Application+-- Discovery Service+--+-- /See:/ 'newServerSummary' smart constructor.+data ServerSummary = ServerSummary'+  { -- | Type of operating system for the servers.+    serverOsType :: Prelude.Maybe ServerOsType,+    -- | Number of servers.+    count :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServerSummary' 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:+--+-- 'serverOsType', 'serverSummary_serverOsType' - Type of operating system for the servers.+--+-- 'count', 'serverSummary_count' - Number of servers.+newServerSummary ::+  ServerSummary+newServerSummary =+  ServerSummary'+    { serverOsType = Prelude.Nothing,+      count = Prelude.Nothing+    }++-- | Type of operating system for the servers.+serverSummary_serverOsType :: Lens.Lens' ServerSummary (Prelude.Maybe ServerOsType)+serverSummary_serverOsType = Lens.lens (\ServerSummary' {serverOsType} -> serverOsType) (\s@ServerSummary' {} a -> s {serverOsType = a} :: ServerSummary)++-- | Number of servers.+serverSummary_count :: Lens.Lens' ServerSummary (Prelude.Maybe Prelude.Int)+serverSummary_count = Lens.lens (\ServerSummary' {count} -> count) (\s@ServerSummary' {} a -> s {count = a} :: ServerSummary)++instance Data.FromJSON ServerSummary where+  parseJSON =+    Data.withObject+      "ServerSummary"+      ( \x ->+          ServerSummary'+            Prelude.<$> (x Data..:? "ServerOsType")+            Prelude.<*> (x Data..:? "count")+      )++instance Prelude.Hashable ServerSummary where+  hashWithSalt _salt ServerSummary' {..} =+    _salt+      `Prelude.hashWithSalt` serverOsType+      `Prelude.hashWithSalt` count++instance Prelude.NFData ServerSummary where+  rnf ServerSummary' {..} =+    Prelude.rnf serverOsType+      `Prelude.seq` Prelude.rnf count
+ gen/Amazonka/MigrationHubStrategy/Types/Severity.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.MigrationHubStrategy.Types.Severity+-- 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.MigrationHubStrategy.Types.Severity+  ( Severity+      ( ..,+        Severity_HIGH,+        Severity_LOW,+        Severity_MEDIUM+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Severity = Severity'+  { fromSeverity ::+      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 Severity_HIGH :: Severity+pattern Severity_HIGH = Severity' "HIGH"++pattern Severity_LOW :: Severity+pattern Severity_LOW = Severity' "LOW"++pattern Severity_MEDIUM :: Severity+pattern Severity_MEDIUM = Severity' "MEDIUM"++{-# COMPLETE+  Severity_HIGH,+  Severity_LOW,+  Severity_MEDIUM,+  Severity'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/SortOrder.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.MigrationHubStrategy.Types.SortOrder+-- 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.MigrationHubStrategy.Types.SortOrder+  ( SortOrder+      ( ..,+        SortOrder_ASC,+        SortOrder_DESC+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SortOrder = SortOrder'+  { fromSortOrder ::+      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 SortOrder_ASC :: SortOrder+pattern SortOrder_ASC = SortOrder' "ASC"++pattern SortOrder_DESC :: SortOrder+pattern SortOrder_DESC = SortOrder' "DESC"++{-# COMPLETE+  SortOrder_ASC,+  SortOrder_DESC,+  SortOrder'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/SourceCode.hs view
@@ -0,0 +1,110 @@+{-# 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.MigrationHubStrategy.Types.SourceCode+-- 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.MigrationHubStrategy.Types.SourceCode where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.VersionControl+import qualified Amazonka.Prelude as Prelude++-- | Object containing source code information that is linked to an+-- application component.+--+-- /See:/ 'newSourceCode' smart constructor.+data SourceCode = SourceCode'+  { -- | The repository name for the source code.+    location :: Prelude.Maybe Prelude.Text,+    -- | The name of the project.+    projectName :: Prelude.Maybe Prelude.Text,+    -- | The branch of the source code.+    sourceVersion :: Prelude.Maybe Prelude.Text,+    -- | The type of repository to use for the source code.+    versionControl :: Prelude.Maybe VersionControl+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SourceCode' 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:+--+-- 'location', 'sourceCode_location' - The repository name for the source code.+--+-- 'projectName', 'sourceCode_projectName' - The name of the project.+--+-- 'sourceVersion', 'sourceCode_sourceVersion' - The branch of the source code.+--+-- 'versionControl', 'sourceCode_versionControl' - The type of repository to use for the source code.+newSourceCode ::+  SourceCode+newSourceCode =+  SourceCode'+    { location = Prelude.Nothing,+      projectName = Prelude.Nothing,+      sourceVersion = Prelude.Nothing,+      versionControl = Prelude.Nothing+    }++-- | The repository name for the source code.+sourceCode_location :: Lens.Lens' SourceCode (Prelude.Maybe Prelude.Text)+sourceCode_location = Lens.lens (\SourceCode' {location} -> location) (\s@SourceCode' {} a -> s {location = a} :: SourceCode)++-- | The name of the project.+sourceCode_projectName :: Lens.Lens' SourceCode (Prelude.Maybe Prelude.Text)+sourceCode_projectName = Lens.lens (\SourceCode' {projectName} -> projectName) (\s@SourceCode' {} a -> s {projectName = a} :: SourceCode)++-- | The branch of the source code.+sourceCode_sourceVersion :: Lens.Lens' SourceCode (Prelude.Maybe Prelude.Text)+sourceCode_sourceVersion = Lens.lens (\SourceCode' {sourceVersion} -> sourceVersion) (\s@SourceCode' {} a -> s {sourceVersion = a} :: SourceCode)++-- | The type of repository to use for the source code.+sourceCode_versionControl :: Lens.Lens' SourceCode (Prelude.Maybe VersionControl)+sourceCode_versionControl = Lens.lens (\SourceCode' {versionControl} -> versionControl) (\s@SourceCode' {} a -> s {versionControl = a} :: SourceCode)++instance Prelude.Hashable SourceCode where+  hashWithSalt _salt SourceCode' {..} =+    _salt+      `Prelude.hashWithSalt` location+      `Prelude.hashWithSalt` projectName+      `Prelude.hashWithSalt` sourceVersion+      `Prelude.hashWithSalt` versionControl++instance Prelude.NFData SourceCode where+  rnf SourceCode' {..} =+    Prelude.rnf location+      `Prelude.seq` Prelude.rnf projectName+      `Prelude.seq` Prelude.rnf sourceVersion+      `Prelude.seq` Prelude.rnf versionControl++instance Data.ToJSON SourceCode where+  toJSON SourceCode' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("location" Data..=) Prelude.<$> location,+            ("projectName" Data..=) Prelude.<$> projectName,+            ("sourceVersion" Data..=) Prelude.<$> sourceVersion,+            ("versionControl" Data..=)+              Prelude.<$> versionControl+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/SourceCodeRepository.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.MigrationHubStrategy.Types.SourceCodeRepository+-- 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.MigrationHubStrategy.Types.SourceCodeRepository 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++-- | Object containing source code information that is linked to an+-- application component.+--+-- /See:/ 'newSourceCodeRepository' smart constructor.+data SourceCodeRepository = SourceCodeRepository'+  { -- | The branch of the source code.+    branch :: Prelude.Maybe Prelude.Text,+    -- | The name of the project.+    projectName :: Prelude.Maybe Prelude.Text,+    -- | The repository name for the source code.+    repository :: Prelude.Maybe Prelude.Text,+    -- | The type of repository to use for the source code.+    versionControlType :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SourceCodeRepository' 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:+--+-- 'branch', 'sourceCodeRepository_branch' - The branch of the source code.+--+-- 'projectName', 'sourceCodeRepository_projectName' - The name of the project.+--+-- 'repository', 'sourceCodeRepository_repository' - The repository name for the source code.+--+-- 'versionControlType', 'sourceCodeRepository_versionControlType' - The type of repository to use for the source code.+newSourceCodeRepository ::+  SourceCodeRepository+newSourceCodeRepository =+  SourceCodeRepository'+    { branch = Prelude.Nothing,+      projectName = Prelude.Nothing,+      repository = Prelude.Nothing,+      versionControlType = Prelude.Nothing+    }++-- | The branch of the source code.+sourceCodeRepository_branch :: Lens.Lens' SourceCodeRepository (Prelude.Maybe Prelude.Text)+sourceCodeRepository_branch = Lens.lens (\SourceCodeRepository' {branch} -> branch) (\s@SourceCodeRepository' {} a -> s {branch = a} :: SourceCodeRepository)++-- | The name of the project.+sourceCodeRepository_projectName :: Lens.Lens' SourceCodeRepository (Prelude.Maybe Prelude.Text)+sourceCodeRepository_projectName = Lens.lens (\SourceCodeRepository' {projectName} -> projectName) (\s@SourceCodeRepository' {} a -> s {projectName = a} :: SourceCodeRepository)++-- | The repository name for the source code.+sourceCodeRepository_repository :: Lens.Lens' SourceCodeRepository (Prelude.Maybe Prelude.Text)+sourceCodeRepository_repository = Lens.lens (\SourceCodeRepository' {repository} -> repository) (\s@SourceCodeRepository' {} a -> s {repository = a} :: SourceCodeRepository)++-- | The type of repository to use for the source code.+sourceCodeRepository_versionControlType :: Lens.Lens' SourceCodeRepository (Prelude.Maybe Prelude.Text)+sourceCodeRepository_versionControlType = Lens.lens (\SourceCodeRepository' {versionControlType} -> versionControlType) (\s@SourceCodeRepository' {} a -> s {versionControlType = a} :: SourceCodeRepository)++instance Data.FromJSON SourceCodeRepository where+  parseJSON =+    Data.withObject+      "SourceCodeRepository"+      ( \x ->+          SourceCodeRepository'+            Prelude.<$> (x Data..:? "branch")+            Prelude.<*> (x Data..:? "projectName")+            Prelude.<*> (x Data..:? "repository")+            Prelude.<*> (x Data..:? "versionControlType")+      )++instance Prelude.Hashable SourceCodeRepository where+  hashWithSalt _salt SourceCodeRepository' {..} =+    _salt+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` projectName+      `Prelude.hashWithSalt` repository+      `Prelude.hashWithSalt` versionControlType++instance Prelude.NFData SourceCodeRepository where+  rnf SourceCodeRepository' {..} =+    Prelude.rnf branch+      `Prelude.seq` Prelude.rnf projectName+      `Prelude.seq` Prelude.rnf repository+      `Prelude.seq` Prelude.rnf versionControlType
+ gen/Amazonka/MigrationHubStrategy/Types/SrcCodeOrDbAnalysisStatus.hs view
@@ -0,0 +1,96 @@+{-# 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.MigrationHubStrategy.Types.SrcCodeOrDbAnalysisStatus+-- 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.MigrationHubStrategy.Types.SrcCodeOrDbAnalysisStatus+  ( SrcCodeOrDbAnalysisStatus+      ( ..,+        SrcCodeOrDbAnalysisStatus_ANALYSIS_FAILED,+        SrcCodeOrDbAnalysisStatus_ANALYSIS_PARTIAL_SUCCESS,+        SrcCodeOrDbAnalysisStatus_ANALYSIS_STARTED,+        SrcCodeOrDbAnalysisStatus_ANALYSIS_SUCCESS,+        SrcCodeOrDbAnalysisStatus_ANALYSIS_TO_BE_SCHEDULED,+        SrcCodeOrDbAnalysisStatus_CONFIGURED,+        SrcCodeOrDbAnalysisStatus_UNCONFIGURED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SrcCodeOrDbAnalysisStatus = SrcCodeOrDbAnalysisStatus'+  { fromSrcCodeOrDbAnalysisStatus ::+      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 SrcCodeOrDbAnalysisStatus_ANALYSIS_FAILED :: SrcCodeOrDbAnalysisStatus+pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_FAILED = SrcCodeOrDbAnalysisStatus' "ANALYSIS_FAILED"++pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_PARTIAL_SUCCESS :: SrcCodeOrDbAnalysisStatus+pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_PARTIAL_SUCCESS = SrcCodeOrDbAnalysisStatus' "ANALYSIS_PARTIAL_SUCCESS"++pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_STARTED :: SrcCodeOrDbAnalysisStatus+pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_STARTED = SrcCodeOrDbAnalysisStatus' "ANALYSIS_STARTED"++pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_SUCCESS :: SrcCodeOrDbAnalysisStatus+pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_SUCCESS = SrcCodeOrDbAnalysisStatus' "ANALYSIS_SUCCESS"++pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_TO_BE_SCHEDULED :: SrcCodeOrDbAnalysisStatus+pattern SrcCodeOrDbAnalysisStatus_ANALYSIS_TO_BE_SCHEDULED = SrcCodeOrDbAnalysisStatus' "ANALYSIS_TO_BE_SCHEDULED"++pattern SrcCodeOrDbAnalysisStatus_CONFIGURED :: SrcCodeOrDbAnalysisStatus+pattern SrcCodeOrDbAnalysisStatus_CONFIGURED = SrcCodeOrDbAnalysisStatus' "CONFIGURED"++pattern SrcCodeOrDbAnalysisStatus_UNCONFIGURED :: SrcCodeOrDbAnalysisStatus+pattern SrcCodeOrDbAnalysisStatus_UNCONFIGURED = SrcCodeOrDbAnalysisStatus' "UNCONFIGURED"++{-# COMPLETE+  SrcCodeOrDbAnalysisStatus_ANALYSIS_FAILED,+  SrcCodeOrDbAnalysisStatus_ANALYSIS_PARTIAL_SUCCESS,+  SrcCodeOrDbAnalysisStatus_ANALYSIS_STARTED,+  SrcCodeOrDbAnalysisStatus_ANALYSIS_SUCCESS,+  SrcCodeOrDbAnalysisStatus_ANALYSIS_TO_BE_SCHEDULED,+  SrcCodeOrDbAnalysisStatus_CONFIGURED,+  SrcCodeOrDbAnalysisStatus_UNCONFIGURED,+  SrcCodeOrDbAnalysisStatus'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/Strategy.hs view
@@ -0,0 +1,96 @@+{-# 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.MigrationHubStrategy.Types.Strategy+-- 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.MigrationHubStrategy.Types.Strategy+  ( Strategy+      ( ..,+        Strategy_Refactor,+        Strategy_Rehost,+        Strategy_Relocate,+        Strategy_Replatform,+        Strategy_Repurchase,+        Strategy_Retain,+        Strategy_Retirement+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Strategy = Strategy'+  { fromStrategy ::+      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 Strategy_Refactor :: Strategy+pattern Strategy_Refactor = Strategy' "Refactor"++pattern Strategy_Rehost :: Strategy+pattern Strategy_Rehost = Strategy' "Rehost"++pattern Strategy_Relocate :: Strategy+pattern Strategy_Relocate = Strategy' "Relocate"++pattern Strategy_Replatform :: Strategy+pattern Strategy_Replatform = Strategy' "Replatform"++pattern Strategy_Repurchase :: Strategy+pattern Strategy_Repurchase = Strategy' "Repurchase"++pattern Strategy_Retain :: Strategy+pattern Strategy_Retain = Strategy' "Retain"++pattern Strategy_Retirement :: Strategy+pattern Strategy_Retirement = Strategy' "Retirement"++{-# COMPLETE+  Strategy_Refactor,+  Strategy_Rehost,+  Strategy_Relocate,+  Strategy_Replatform,+  Strategy_Repurchase,+  Strategy_Retain,+  Strategy_Retirement,+  Strategy'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/StrategyOption.hs view
@@ -0,0 +1,121 @@+{-# 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.MigrationHubStrategy.Types.StrategyOption+-- 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.MigrationHubStrategy.Types.StrategyOption where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.Strategy+import Amazonka.MigrationHubStrategy.Types.TargetDestination+import Amazonka.MigrationHubStrategy.Types.TransformationToolName+import qualified Amazonka.Prelude as Prelude++-- | Information about all the available strategy options for migrating and+-- modernizing an application component.+--+-- /See:/ 'newStrategyOption' smart constructor.+data StrategyOption = StrategyOption'+  { -- | Indicates if a specific strategy is preferred for the application+    -- component.+    isPreferred :: Prelude.Maybe Prelude.Bool,+    -- | Type of transformation. For example, Rehost, Replatform, and so on.+    strategy :: Prelude.Maybe Strategy,+    -- | Destination information about where the application component can+    -- migrate to. For example, @EC2@, @ECS@, and so on.+    targetDestination :: Prelude.Maybe TargetDestination,+    -- | The name of the tool that can be used to transform an application+    -- component using this strategy.+    toolName :: Prelude.Maybe TransformationToolName+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StrategyOption' 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:+--+-- 'isPreferred', 'strategyOption_isPreferred' - Indicates if a specific strategy is preferred for the application+-- component.+--+-- 'strategy', 'strategyOption_strategy' - Type of transformation. For example, Rehost, Replatform, and so on.+--+-- 'targetDestination', 'strategyOption_targetDestination' - Destination information about where the application component can+-- migrate to. For example, @EC2@, @ECS@, and so on.+--+-- 'toolName', 'strategyOption_toolName' - The name of the tool that can be used to transform an application+-- component using this strategy.+newStrategyOption ::+  StrategyOption+newStrategyOption =+  StrategyOption'+    { isPreferred = Prelude.Nothing,+      strategy = Prelude.Nothing,+      targetDestination = Prelude.Nothing,+      toolName = Prelude.Nothing+    }++-- | Indicates if a specific strategy is preferred for the application+-- component.+strategyOption_isPreferred :: Lens.Lens' StrategyOption (Prelude.Maybe Prelude.Bool)+strategyOption_isPreferred = Lens.lens (\StrategyOption' {isPreferred} -> isPreferred) (\s@StrategyOption' {} a -> s {isPreferred = a} :: StrategyOption)++-- | Type of transformation. For example, Rehost, Replatform, and so on.+strategyOption_strategy :: Lens.Lens' StrategyOption (Prelude.Maybe Strategy)+strategyOption_strategy = Lens.lens (\StrategyOption' {strategy} -> strategy) (\s@StrategyOption' {} a -> s {strategy = a} :: StrategyOption)++-- | Destination information about where the application component can+-- migrate to. For example, @EC2@, @ECS@, and so on.+strategyOption_targetDestination :: Lens.Lens' StrategyOption (Prelude.Maybe TargetDestination)+strategyOption_targetDestination = Lens.lens (\StrategyOption' {targetDestination} -> targetDestination) (\s@StrategyOption' {} a -> s {targetDestination = a} :: StrategyOption)++-- | The name of the tool that can be used to transform an application+-- component using this strategy.+strategyOption_toolName :: Lens.Lens' StrategyOption (Prelude.Maybe TransformationToolName)+strategyOption_toolName = Lens.lens (\StrategyOption' {toolName} -> toolName) (\s@StrategyOption' {} a -> s {toolName = a} :: StrategyOption)++instance Prelude.Hashable StrategyOption where+  hashWithSalt _salt StrategyOption' {..} =+    _salt+      `Prelude.hashWithSalt` isPreferred+      `Prelude.hashWithSalt` strategy+      `Prelude.hashWithSalt` targetDestination+      `Prelude.hashWithSalt` toolName++instance Prelude.NFData StrategyOption where+  rnf StrategyOption' {..} =+    Prelude.rnf isPreferred+      `Prelude.seq` Prelude.rnf strategy+      `Prelude.seq` Prelude.rnf targetDestination+      `Prelude.seq` Prelude.rnf toolName++instance Data.ToJSON StrategyOption where+  toJSON StrategyOption' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("isPreferred" Data..=) Prelude.<$> isPreferred,+            ("strategy" Data..=) Prelude.<$> strategy,+            ("targetDestination" Data..=)+              Prelude.<$> targetDestination,+            ("toolName" Data..=) Prelude.<$> toolName+          ]+      )
+ gen/Amazonka/MigrationHubStrategy/Types/StrategyRecommendation.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.MigrationHubStrategy.Types.StrategyRecommendation+-- 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.MigrationHubStrategy.Types.StrategyRecommendation+  ( StrategyRecommendation+      ( ..,+        StrategyRecommendation_NotRecommended,+        StrategyRecommendation_Potential,+        StrategyRecommendation_Recommended,+        StrategyRecommendation_ViableOption+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype StrategyRecommendation = StrategyRecommendation'+  { fromStrategyRecommendation ::+      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 StrategyRecommendation_NotRecommended :: StrategyRecommendation+pattern StrategyRecommendation_NotRecommended = StrategyRecommendation' "notRecommended"++pattern StrategyRecommendation_Potential :: StrategyRecommendation+pattern StrategyRecommendation_Potential = StrategyRecommendation' "potential"++pattern StrategyRecommendation_Recommended :: StrategyRecommendation+pattern StrategyRecommendation_Recommended = StrategyRecommendation' "recommended"++pattern StrategyRecommendation_ViableOption :: StrategyRecommendation+pattern StrategyRecommendation_ViableOption = StrategyRecommendation' "viableOption"++{-# COMPLETE+  StrategyRecommendation_NotRecommended,+  StrategyRecommendation_Potential,+  StrategyRecommendation_Recommended,+  StrategyRecommendation_ViableOption,+  StrategyRecommendation'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/StrategySummary.hs view
@@ -0,0 +1,85 @@+{-# 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.MigrationHubStrategy.Types.StrategySummary+-- 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.MigrationHubStrategy.Types.StrategySummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.Strategy+import qualified Amazonka.Prelude as Prelude++-- | Object containing the summary of the strategy recommendations.+--+-- /See:/ 'newStrategySummary' smart constructor.+data StrategySummary = StrategySummary'+  { -- | The count of recommendations per strategy.+    count :: Prelude.Maybe Prelude.Int,+    -- | The name of recommended strategy.+    strategy :: Prelude.Maybe Strategy+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StrategySummary' 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', 'strategySummary_count' - The count of recommendations per strategy.+--+-- 'strategy', 'strategySummary_strategy' - The name of recommended strategy.+newStrategySummary ::+  StrategySummary+newStrategySummary =+  StrategySummary'+    { count = Prelude.Nothing,+      strategy = Prelude.Nothing+    }++-- | The count of recommendations per strategy.+strategySummary_count :: Lens.Lens' StrategySummary (Prelude.Maybe Prelude.Int)+strategySummary_count = Lens.lens (\StrategySummary' {count} -> count) (\s@StrategySummary' {} a -> s {count = a} :: StrategySummary)++-- | The name of recommended strategy.+strategySummary_strategy :: Lens.Lens' StrategySummary (Prelude.Maybe Strategy)+strategySummary_strategy = Lens.lens (\StrategySummary' {strategy} -> strategy) (\s@StrategySummary' {} a -> s {strategy = a} :: StrategySummary)++instance Data.FromJSON StrategySummary where+  parseJSON =+    Data.withObject+      "StrategySummary"+      ( \x ->+          StrategySummary'+            Prelude.<$> (x Data..:? "count")+            Prelude.<*> (x Data..:? "strategy")+      )++instance Prelude.Hashable StrategySummary where+  hashWithSalt _salt StrategySummary' {..} =+    _salt+      `Prelude.hashWithSalt` count+      `Prelude.hashWithSalt` strategy++instance Prelude.NFData StrategySummary where+  rnf StrategySummary' {..} =+    Prelude.rnf count+      `Prelude.seq` Prelude.rnf strategy
+ gen/Amazonka/MigrationHubStrategy/Types/SystemInfo.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.MigrationHubStrategy.Types.SystemInfo+-- 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.MigrationHubStrategy.Types.SystemInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.NetworkInfo+import Amazonka.MigrationHubStrategy.Types.OSInfo+import qualified Amazonka.Prelude as Prelude++-- | Information about the server that hosts application components.+--+-- /See:/ 'newSystemInfo' smart constructor.+data SystemInfo = SystemInfo'+  { -- | CPU architecture type for the server.+    cpuArchitecture :: Prelude.Maybe Prelude.Text,+    -- | File system type for the server.+    fileSystemType :: Prelude.Maybe Prelude.Text,+    -- | Networking information related to a server.+    networkInfoList :: Prelude.Maybe [NetworkInfo],+    -- | Operating system corresponding to a server.+    osInfo :: Prelude.Maybe OSInfo+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SystemInfo' 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:+--+-- 'cpuArchitecture', 'systemInfo_cpuArchitecture' - CPU architecture type for the server.+--+-- 'fileSystemType', 'systemInfo_fileSystemType' - File system type for the server.+--+-- 'networkInfoList', 'systemInfo_networkInfoList' - Networking information related to a server.+--+-- 'osInfo', 'systemInfo_osInfo' - Operating system corresponding to a server.+newSystemInfo ::+  SystemInfo+newSystemInfo =+  SystemInfo'+    { cpuArchitecture = Prelude.Nothing,+      fileSystemType = Prelude.Nothing,+      networkInfoList = Prelude.Nothing,+      osInfo = Prelude.Nothing+    }++-- | CPU architecture type for the server.+systemInfo_cpuArchitecture :: Lens.Lens' SystemInfo (Prelude.Maybe Prelude.Text)+systemInfo_cpuArchitecture = Lens.lens (\SystemInfo' {cpuArchitecture} -> cpuArchitecture) (\s@SystemInfo' {} a -> s {cpuArchitecture = a} :: SystemInfo)++-- | File system type for the server.+systemInfo_fileSystemType :: Lens.Lens' SystemInfo (Prelude.Maybe Prelude.Text)+systemInfo_fileSystemType = Lens.lens (\SystemInfo' {fileSystemType} -> fileSystemType) (\s@SystemInfo' {} a -> s {fileSystemType = a} :: SystemInfo)++-- | Networking information related to a server.+systemInfo_networkInfoList :: Lens.Lens' SystemInfo (Prelude.Maybe [NetworkInfo])+systemInfo_networkInfoList = Lens.lens (\SystemInfo' {networkInfoList} -> networkInfoList) (\s@SystemInfo' {} a -> s {networkInfoList = a} :: SystemInfo) Prelude.. Lens.mapping Lens.coerced++-- | Operating system corresponding to a server.+systemInfo_osInfo :: Lens.Lens' SystemInfo (Prelude.Maybe OSInfo)+systemInfo_osInfo = Lens.lens (\SystemInfo' {osInfo} -> osInfo) (\s@SystemInfo' {} a -> s {osInfo = a} :: SystemInfo)++instance Data.FromJSON SystemInfo where+  parseJSON =+    Data.withObject+      "SystemInfo"+      ( \x ->+          SystemInfo'+            Prelude.<$> (x Data..:? "cpuArchitecture")+            Prelude.<*> (x Data..:? "fileSystemType")+            Prelude.<*> ( x+                            Data..:? "networkInfoList"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "osInfo")+      )++instance Prelude.Hashable SystemInfo where+  hashWithSalt _salt SystemInfo' {..} =+    _salt+      `Prelude.hashWithSalt` cpuArchitecture+      `Prelude.hashWithSalt` fileSystemType+      `Prelude.hashWithSalt` networkInfoList+      `Prelude.hashWithSalt` osInfo++instance Prelude.NFData SystemInfo where+  rnf SystemInfo' {..} =+    Prelude.rnf cpuArchitecture+      `Prelude.seq` Prelude.rnf fileSystemType+      `Prelude.seq` Prelude.rnf networkInfoList+      `Prelude.seq` Prelude.rnf osInfo
+ gen/Amazonka/MigrationHubStrategy/Types/TargetDatabaseEngine.hs view
@@ -0,0 +1,111 @@+{-# 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.MigrationHubStrategy.Types.TargetDatabaseEngine+-- 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.MigrationHubStrategy.Types.TargetDatabaseEngine+  ( TargetDatabaseEngine+      ( ..,+        TargetDatabaseEngine_AWS_PostgreSQL,+        TargetDatabaseEngine_Amazon_Aurora,+        TargetDatabaseEngine_Db2_LUW,+        TargetDatabaseEngine_MariaDB,+        TargetDatabaseEngine_Microsoft_SQL_Server,+        TargetDatabaseEngine_MongoDB,+        TargetDatabaseEngine_MySQL,+        TargetDatabaseEngine_None_specified,+        TargetDatabaseEngine_Oracle_Database,+        TargetDatabaseEngine_SAP+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TargetDatabaseEngine = TargetDatabaseEngine'+  { fromTargetDatabaseEngine ::+      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 TargetDatabaseEngine_AWS_PostgreSQL :: TargetDatabaseEngine+pattern TargetDatabaseEngine_AWS_PostgreSQL = TargetDatabaseEngine' "AWS PostgreSQL"++pattern TargetDatabaseEngine_Amazon_Aurora :: TargetDatabaseEngine+pattern TargetDatabaseEngine_Amazon_Aurora = TargetDatabaseEngine' "Amazon Aurora"++pattern TargetDatabaseEngine_Db2_LUW :: TargetDatabaseEngine+pattern TargetDatabaseEngine_Db2_LUW = TargetDatabaseEngine' "Db2 LUW"++pattern TargetDatabaseEngine_MariaDB :: TargetDatabaseEngine+pattern TargetDatabaseEngine_MariaDB = TargetDatabaseEngine' "MariaDB"++pattern TargetDatabaseEngine_Microsoft_SQL_Server :: TargetDatabaseEngine+pattern TargetDatabaseEngine_Microsoft_SQL_Server = TargetDatabaseEngine' "Microsoft SQL Server"++pattern TargetDatabaseEngine_MongoDB :: TargetDatabaseEngine+pattern TargetDatabaseEngine_MongoDB = TargetDatabaseEngine' "MongoDB"++pattern TargetDatabaseEngine_MySQL :: TargetDatabaseEngine+pattern TargetDatabaseEngine_MySQL = TargetDatabaseEngine' "MySQL"++pattern TargetDatabaseEngine_None_specified :: TargetDatabaseEngine+pattern TargetDatabaseEngine_None_specified = TargetDatabaseEngine' "None specified"++pattern TargetDatabaseEngine_Oracle_Database :: TargetDatabaseEngine+pattern TargetDatabaseEngine_Oracle_Database = TargetDatabaseEngine' "Oracle Database"++pattern TargetDatabaseEngine_SAP :: TargetDatabaseEngine+pattern TargetDatabaseEngine_SAP = TargetDatabaseEngine' "SAP"++{-# COMPLETE+  TargetDatabaseEngine_AWS_PostgreSQL,+  TargetDatabaseEngine_Amazon_Aurora,+  TargetDatabaseEngine_Db2_LUW,+  TargetDatabaseEngine_MariaDB,+  TargetDatabaseEngine_Microsoft_SQL_Server,+  TargetDatabaseEngine_MongoDB,+  TargetDatabaseEngine_MySQL,+  TargetDatabaseEngine_None_specified,+  TargetDatabaseEngine_Oracle_Database,+  TargetDatabaseEngine_SAP,+  TargetDatabaseEngine'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/TargetDestination.hs view
@@ -0,0 +1,131 @@+{-# 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.MigrationHubStrategy.Types.TargetDestination+-- 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.MigrationHubStrategy.Types.TargetDestination+  ( TargetDestination+      ( ..,+        TargetDestination_AWS_Elastic_BeanStalk,+        TargetDestination_AWS_Fargate,+        TargetDestination_Amazon_DocumentDB,+        TargetDestination_Amazon_DynamoDB,+        TargetDestination_Amazon_Elastic_Cloud_Compute__EC2_,+        TargetDestination_Amazon_Elastic_Container_Service__ECS_,+        TargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_,+        TargetDestination_Amazon_Relational_Database_Service,+        TargetDestination_Amazon_Relational_Database_Service_on_MySQL,+        TargetDestination_Amazon_Relational_Database_Service_on_PostgreSQL,+        TargetDestination_Aurora_MySQL,+        TargetDestination_Aurora_PostgreSQL,+        TargetDestination_Babelfish_for_Aurora_PostgreSQL,+        TargetDestination_None_specified+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TargetDestination = TargetDestination'+  { fromTargetDestination ::+      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 TargetDestination_AWS_Elastic_BeanStalk :: TargetDestination+pattern TargetDestination_AWS_Elastic_BeanStalk = TargetDestination' "AWS Elastic BeanStalk"++pattern TargetDestination_AWS_Fargate :: TargetDestination+pattern TargetDestination_AWS_Fargate = TargetDestination' "AWS Fargate"++pattern TargetDestination_Amazon_DocumentDB :: TargetDestination+pattern TargetDestination_Amazon_DocumentDB = TargetDestination' "Amazon DocumentDB"++pattern TargetDestination_Amazon_DynamoDB :: TargetDestination+pattern TargetDestination_Amazon_DynamoDB = TargetDestination' "Amazon DynamoDB"++pattern TargetDestination_Amazon_Elastic_Cloud_Compute__EC2_ :: TargetDestination+pattern TargetDestination_Amazon_Elastic_Cloud_Compute__EC2_ = TargetDestination' "Amazon Elastic Cloud Compute (EC2)"++pattern TargetDestination_Amazon_Elastic_Container_Service__ECS_ :: TargetDestination+pattern TargetDestination_Amazon_Elastic_Container_Service__ECS_ = TargetDestination' "Amazon Elastic Container Service (ECS)"++pattern TargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_ :: TargetDestination+pattern TargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_ = TargetDestination' "Amazon Elastic Kubernetes Service (EKS)"++pattern TargetDestination_Amazon_Relational_Database_Service :: TargetDestination+pattern TargetDestination_Amazon_Relational_Database_Service = TargetDestination' "Amazon Relational Database Service"++pattern TargetDestination_Amazon_Relational_Database_Service_on_MySQL :: TargetDestination+pattern TargetDestination_Amazon_Relational_Database_Service_on_MySQL = TargetDestination' "Amazon Relational Database Service on MySQL"++pattern TargetDestination_Amazon_Relational_Database_Service_on_PostgreSQL :: TargetDestination+pattern TargetDestination_Amazon_Relational_Database_Service_on_PostgreSQL = TargetDestination' "Amazon Relational Database Service on PostgreSQL"++pattern TargetDestination_Aurora_MySQL :: TargetDestination+pattern TargetDestination_Aurora_MySQL = TargetDestination' "Aurora MySQL"++pattern TargetDestination_Aurora_PostgreSQL :: TargetDestination+pattern TargetDestination_Aurora_PostgreSQL = TargetDestination' "Aurora PostgreSQL"++pattern TargetDestination_Babelfish_for_Aurora_PostgreSQL :: TargetDestination+pattern TargetDestination_Babelfish_for_Aurora_PostgreSQL = TargetDestination' "Babelfish for Aurora PostgreSQL"++pattern TargetDestination_None_specified :: TargetDestination+pattern TargetDestination_None_specified = TargetDestination' "None specified"++{-# COMPLETE+  TargetDestination_AWS_Elastic_BeanStalk,+  TargetDestination_AWS_Fargate,+  TargetDestination_Amazon_DocumentDB,+  TargetDestination_Amazon_DynamoDB,+  TargetDestination_Amazon_Elastic_Cloud_Compute__EC2_,+  TargetDestination_Amazon_Elastic_Container_Service__ECS_,+  TargetDestination_Amazon_Elastic_Kubernetes_Service__EKS_,+  TargetDestination_Amazon_Relational_Database_Service,+  TargetDestination_Amazon_Relational_Database_Service_on_MySQL,+  TargetDestination_Amazon_Relational_Database_Service_on_PostgreSQL,+  TargetDestination_Aurora_MySQL,+  TargetDestination_Aurora_PostgreSQL,+  TargetDestination_Babelfish_for_Aurora_PostgreSQL,+  TargetDestination_None_specified,+  TargetDestination'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/TransformationTool.hs view
@@ -0,0 +1,98 @@+{-# 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.MigrationHubStrategy.Types.TransformationTool+-- 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.MigrationHubStrategy.Types.TransformationTool where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.TransformationToolName+import qualified Amazonka.Prelude as Prelude++-- | Information of the transformation tool that can be used to migrate and+-- modernize the application.+--+-- /See:/ 'newTransformationTool' smart constructor.+data TransformationTool = TransformationTool'+  { -- | Description of the tool.+    description :: Prelude.Maybe Prelude.Text,+    -- | Name of the tool.+    name :: Prelude.Maybe TransformationToolName,+    -- | URL for installing the tool.+    tranformationToolInstallationLink :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TransformationTool' 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:+--+-- 'description', 'transformationTool_description' - Description of the tool.+--+-- 'name', 'transformationTool_name' - Name of the tool.+--+-- 'tranformationToolInstallationLink', 'transformationTool_tranformationToolInstallationLink' - URL for installing the tool.+newTransformationTool ::+  TransformationTool+newTransformationTool =+  TransformationTool'+    { description = Prelude.Nothing,+      name = Prelude.Nothing,+      tranformationToolInstallationLink = Prelude.Nothing+    }++-- | Description of the tool.+transformationTool_description :: Lens.Lens' TransformationTool (Prelude.Maybe Prelude.Text)+transformationTool_description = Lens.lens (\TransformationTool' {description} -> description) (\s@TransformationTool' {} a -> s {description = a} :: TransformationTool)++-- | Name of the tool.+transformationTool_name :: Lens.Lens' TransformationTool (Prelude.Maybe TransformationToolName)+transformationTool_name = Lens.lens (\TransformationTool' {name} -> name) (\s@TransformationTool' {} a -> s {name = a} :: TransformationTool)++-- | URL for installing the tool.+transformationTool_tranformationToolInstallationLink :: Lens.Lens' TransformationTool (Prelude.Maybe Prelude.Text)+transformationTool_tranformationToolInstallationLink = Lens.lens (\TransformationTool' {tranformationToolInstallationLink} -> tranformationToolInstallationLink) (\s@TransformationTool' {} a -> s {tranformationToolInstallationLink = a} :: TransformationTool)++instance Data.FromJSON TransformationTool where+  parseJSON =+    Data.withObject+      "TransformationTool"+      ( \x ->+          TransformationTool'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "tranformationToolInstallationLink")+      )++instance Prelude.Hashable TransformationTool where+  hashWithSalt _salt TransformationTool' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` tranformationToolInstallationLink++instance Prelude.NFData TransformationTool where+  rnf TransformationTool' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf tranformationToolInstallationLink
+ gen/Amazonka/MigrationHubStrategy/Types/TransformationToolName.hs view
@@ -0,0 +1,111 @@+{-# 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.MigrationHubStrategy.Types.TransformationToolName+-- 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.MigrationHubStrategy.Types.TransformationToolName+  ( TransformationToolName+      ( ..,+        TransformationToolName_App2Container,+        TransformationToolName_Application_Migration_Service,+        TransformationToolName_Database_Migration_Service,+        TransformationToolName_End_of_Support_Migration,+        TransformationToolName_In_Place_Operating_System_Upgrade,+        TransformationToolName_Native_SQL_Server_Backup_Restore,+        TransformationToolName_Porting_Assistant_For__NET,+        TransformationToolName_Schema_Conversion_Tool,+        TransformationToolName_Strategy_Recommendation_Support,+        TransformationToolName_Windows_Web_Application_Migration_Assistant+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TransformationToolName = TransformationToolName'+  { fromTransformationToolName ::+      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 TransformationToolName_App2Container :: TransformationToolName+pattern TransformationToolName_App2Container = TransformationToolName' "App2Container"++pattern TransformationToolName_Application_Migration_Service :: TransformationToolName+pattern TransformationToolName_Application_Migration_Service = TransformationToolName' "Application Migration Service"++pattern TransformationToolName_Database_Migration_Service :: TransformationToolName+pattern TransformationToolName_Database_Migration_Service = TransformationToolName' "Database Migration Service"++pattern TransformationToolName_End_of_Support_Migration :: TransformationToolName+pattern TransformationToolName_End_of_Support_Migration = TransformationToolName' "End of Support Migration"++pattern TransformationToolName_In_Place_Operating_System_Upgrade :: TransformationToolName+pattern TransformationToolName_In_Place_Operating_System_Upgrade = TransformationToolName' "In Place Operating System Upgrade"++pattern TransformationToolName_Native_SQL_Server_Backup_Restore :: TransformationToolName+pattern TransformationToolName_Native_SQL_Server_Backup_Restore = TransformationToolName' "Native SQL Server Backup/Restore"++pattern TransformationToolName_Porting_Assistant_For__NET :: TransformationToolName+pattern TransformationToolName_Porting_Assistant_For__NET = TransformationToolName' "Porting Assistant For .NET"++pattern TransformationToolName_Schema_Conversion_Tool :: TransformationToolName+pattern TransformationToolName_Schema_Conversion_Tool = TransformationToolName' "Schema Conversion Tool"++pattern TransformationToolName_Strategy_Recommendation_Support :: TransformationToolName+pattern TransformationToolName_Strategy_Recommendation_Support = TransformationToolName' "Strategy Recommendation Support"++pattern TransformationToolName_Windows_Web_Application_Migration_Assistant :: TransformationToolName+pattern TransformationToolName_Windows_Web_Application_Migration_Assistant = TransformationToolName' "Windows Web Application Migration Assistant"++{-# COMPLETE+  TransformationToolName_App2Container,+  TransformationToolName_Application_Migration_Service,+  TransformationToolName_Database_Migration_Service,+  TransformationToolName_End_of_Support_Migration,+  TransformationToolName_In_Place_Operating_System_Upgrade,+  TransformationToolName_Native_SQL_Server_Backup_Restore,+  TransformationToolName_Porting_Assistant_For__NET,+  TransformationToolName_Schema_Conversion_Tool,+  TransformationToolName_Strategy_Recommendation_Support,+  TransformationToolName_Windows_Web_Application_Migration_Assistant,+  TransformationToolName'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/VcenterBasedRemoteInfo.hs view
@@ -0,0 +1,85 @@+{-# 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.MigrationHubStrategy.Types.VcenterBasedRemoteInfo+-- 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.MigrationHubStrategy.Types.VcenterBasedRemoteInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.OSType+import qualified Amazonka.Prelude as Prelude++-- | Details about the server in vCenter.+--+-- /See:/ 'newVcenterBasedRemoteInfo' smart constructor.+data VcenterBasedRemoteInfo = VcenterBasedRemoteInfo'+  { -- | The type of the operating system.+    osType :: Prelude.Maybe OSType,+    -- | The time when the remote server based on vCenter was last configured.+    vcenterConfigurationTimeStamp :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'VcenterBasedRemoteInfo' 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:+--+-- 'osType', 'vcenterBasedRemoteInfo_osType' - The type of the operating system.+--+-- 'vcenterConfigurationTimeStamp', 'vcenterBasedRemoteInfo_vcenterConfigurationTimeStamp' - The time when the remote server based on vCenter was last configured.+newVcenterBasedRemoteInfo ::+  VcenterBasedRemoteInfo+newVcenterBasedRemoteInfo =+  VcenterBasedRemoteInfo'+    { osType = Prelude.Nothing,+      vcenterConfigurationTimeStamp = Prelude.Nothing+    }++-- | The type of the operating system.+vcenterBasedRemoteInfo_osType :: Lens.Lens' VcenterBasedRemoteInfo (Prelude.Maybe OSType)+vcenterBasedRemoteInfo_osType = Lens.lens (\VcenterBasedRemoteInfo' {osType} -> osType) (\s@VcenterBasedRemoteInfo' {} a -> s {osType = a} :: VcenterBasedRemoteInfo)++-- | The time when the remote server based on vCenter was last configured.+vcenterBasedRemoteInfo_vcenterConfigurationTimeStamp :: Lens.Lens' VcenterBasedRemoteInfo (Prelude.Maybe Prelude.Text)+vcenterBasedRemoteInfo_vcenterConfigurationTimeStamp = Lens.lens (\VcenterBasedRemoteInfo' {vcenterConfigurationTimeStamp} -> vcenterConfigurationTimeStamp) (\s@VcenterBasedRemoteInfo' {} a -> s {vcenterConfigurationTimeStamp = a} :: VcenterBasedRemoteInfo)++instance Data.FromJSON VcenterBasedRemoteInfo where+  parseJSON =+    Data.withObject+      "VcenterBasedRemoteInfo"+      ( \x ->+          VcenterBasedRemoteInfo'+            Prelude.<$> (x Data..:? "osType")+            Prelude.<*> (x Data..:? "vcenterConfigurationTimeStamp")+      )++instance Prelude.Hashable VcenterBasedRemoteInfo where+  hashWithSalt _salt VcenterBasedRemoteInfo' {..} =+    _salt+      `Prelude.hashWithSalt` osType+      `Prelude.hashWithSalt` vcenterConfigurationTimeStamp++instance Prelude.NFData VcenterBasedRemoteInfo where+  rnf VcenterBasedRemoteInfo' {..} =+    Prelude.rnf osType+      `Prelude.seq` Prelude.rnf vcenterConfigurationTimeStamp
+ gen/Amazonka/MigrationHubStrategy/Types/VersionControl.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.MigrationHubStrategy.Types.VersionControl+-- 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.MigrationHubStrategy.Types.VersionControl+  ( VersionControl+      ( ..,+        VersionControl_AZURE_DEVOPS_GIT,+        VersionControl_GITHUB,+        VersionControl_GITHUB_ENTERPRISE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype VersionControl = VersionControl'+  { fromVersionControl ::+      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 VersionControl_AZURE_DEVOPS_GIT :: VersionControl+pattern VersionControl_AZURE_DEVOPS_GIT = VersionControl' "AZURE_DEVOPS_GIT"++pattern VersionControl_GITHUB :: VersionControl+pattern VersionControl_GITHUB = VersionControl' "GITHUB"++pattern VersionControl_GITHUB_ENTERPRISE :: VersionControl+pattern VersionControl_GITHUB_ENTERPRISE = VersionControl' "GITHUB_ENTERPRISE"++{-# COMPLETE+  VersionControl_AZURE_DEVOPS_GIT,+  VersionControl_GITHUB,+  VersionControl_GITHUB_ENTERPRISE,+  VersionControl'+  #-}
+ gen/Amazonka/MigrationHubStrategy/Types/VersionControlInfo.hs view
@@ -0,0 +1,86 @@+{-# 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.MigrationHubStrategy.Types.VersionControlInfo+-- 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.MigrationHubStrategy.Types.VersionControlInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types.VersionControlType+import qualified Amazonka.Prelude as Prelude++-- | Details about the version control configuration.+--+-- /See:/ 'newVersionControlInfo' smart constructor.+data VersionControlInfo = VersionControlInfo'+  { -- | The time when the version control system was last configured.+    versionControlConfigurationTimeStamp :: Prelude.Maybe Prelude.Text,+    -- | The type of version control.+    versionControlType :: Prelude.Maybe VersionControlType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'VersionControlInfo' 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:+--+-- 'versionControlConfigurationTimeStamp', 'versionControlInfo_versionControlConfigurationTimeStamp' - The time when the version control system was last configured.+--+-- 'versionControlType', 'versionControlInfo_versionControlType' - The type of version control.+newVersionControlInfo ::+  VersionControlInfo+newVersionControlInfo =+  VersionControlInfo'+    { versionControlConfigurationTimeStamp =+        Prelude.Nothing,+      versionControlType = Prelude.Nothing+    }++-- | The time when the version control system was last configured.+versionControlInfo_versionControlConfigurationTimeStamp :: Lens.Lens' VersionControlInfo (Prelude.Maybe Prelude.Text)+versionControlInfo_versionControlConfigurationTimeStamp = Lens.lens (\VersionControlInfo' {versionControlConfigurationTimeStamp} -> versionControlConfigurationTimeStamp) (\s@VersionControlInfo' {} a -> s {versionControlConfigurationTimeStamp = a} :: VersionControlInfo)++-- | The type of version control.+versionControlInfo_versionControlType :: Lens.Lens' VersionControlInfo (Prelude.Maybe VersionControlType)+versionControlInfo_versionControlType = Lens.lens (\VersionControlInfo' {versionControlType} -> versionControlType) (\s@VersionControlInfo' {} a -> s {versionControlType = a} :: VersionControlInfo)++instance Data.FromJSON VersionControlInfo where+  parseJSON =+    Data.withObject+      "VersionControlInfo"+      ( \x ->+          VersionControlInfo'+            Prelude.<$> (x Data..:? "versionControlConfigurationTimeStamp")+            Prelude.<*> (x Data..:? "versionControlType")+      )++instance Prelude.Hashable VersionControlInfo where+  hashWithSalt _salt VersionControlInfo' {..} =+    _salt+      `Prelude.hashWithSalt` versionControlConfigurationTimeStamp+      `Prelude.hashWithSalt` versionControlType++instance Prelude.NFData VersionControlInfo where+  rnf VersionControlInfo' {..} =+    Prelude.rnf versionControlConfigurationTimeStamp+      `Prelude.seq` Prelude.rnf versionControlType
+ gen/Amazonka/MigrationHubStrategy/Types/VersionControlType.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.MigrationHubStrategy.Types.VersionControlType+-- 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.MigrationHubStrategy.Types.VersionControlType+  ( VersionControlType+      ( ..,+        VersionControlType_AZURE_DEVOPS_GIT,+        VersionControlType_GITHUB,+        VersionControlType_GITHUB_ENTERPRISE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype VersionControlType = VersionControlType'+  { fromVersionControlType ::+      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 VersionControlType_AZURE_DEVOPS_GIT :: VersionControlType+pattern VersionControlType_AZURE_DEVOPS_GIT = VersionControlType' "AZURE_DEVOPS_GIT"++pattern VersionControlType_GITHUB :: VersionControlType+pattern VersionControlType_GITHUB = VersionControlType' "GITHUB"++pattern VersionControlType_GITHUB_ENTERPRISE :: VersionControlType+pattern VersionControlType_GITHUB_ENTERPRISE = VersionControlType' "GITHUB_ENTERPRISE"++{-# COMPLETE+  VersionControlType_AZURE_DEVOPS_GIT,+  VersionControlType_GITHUB,+  VersionControlType_GITHUB_ENTERPRISE,+  VersionControlType'+  #-}
+ gen/Amazonka/MigrationHubStrategy/UpdateApplicationComponentConfig.hs view
@@ -0,0 +1,289 @@+{-# 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.MigrationHubStrategy.UpdateApplicationComponentConfig+-- 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 configuration of an application component.+module Amazonka.MigrationHubStrategy.UpdateApplicationComponentConfig+  ( -- * Creating a Request+    UpdateApplicationComponentConfig (..),+    newUpdateApplicationComponentConfig,++    -- * Request Lenses+    updateApplicationComponentConfig_appType,+    updateApplicationComponentConfig_configureOnly,+    updateApplicationComponentConfig_inclusionStatus,+    updateApplicationComponentConfig_secretsManagerKey,+    updateApplicationComponentConfig_sourceCodeList,+    updateApplicationComponentConfig_strategyOption,+    updateApplicationComponentConfig_applicationComponentId,++    -- * Destructuring the Response+    UpdateApplicationComponentConfigResponse (..),+    newUpdateApplicationComponentConfigResponse,++    -- * Response Lenses+    updateApplicationComponentConfigResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateApplicationComponentConfig' smart constructor.+data UpdateApplicationComponentConfig = UpdateApplicationComponentConfig'+  { -- | The type of known component.+    appType :: Prelude.Maybe AppType,+    -- | Update the configuration request of an application component. If it is+    -- set to true, the source code and\/or database credentials are updated.+    -- If it is set to false, the source code and\/or database credentials are+    -- updated and an analysis is initiated.+    configureOnly :: Prelude.Maybe Prelude.Bool,+    -- | Indicates whether the application component has been included for server+    -- recommendation or not.+    inclusionStatus :: Prelude.Maybe InclusionStatus,+    -- | Database credentials.+    secretsManagerKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The list of source code configurations to update for the application+    -- component.+    sourceCodeList :: Prelude.Maybe [SourceCode],+    -- | The preferred strategy options for the application component. Use values+    -- from the GetApplicationComponentStrategies response.+    strategyOption :: Prelude.Maybe StrategyOption,+    -- | The ID of the application component. The ID is unique within an AWS+    -- account.+    applicationComponentId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateApplicationComponentConfig' 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:+--+-- 'appType', 'updateApplicationComponentConfig_appType' - The type of known component.+--+-- 'configureOnly', 'updateApplicationComponentConfig_configureOnly' - Update the configuration request of an application component. If it is+-- set to true, the source code and\/or database credentials are updated.+-- If it is set to false, the source code and\/or database credentials are+-- updated and an analysis is initiated.+--+-- 'inclusionStatus', 'updateApplicationComponentConfig_inclusionStatus' - Indicates whether the application component has been included for server+-- recommendation or not.+--+-- 'secretsManagerKey', 'updateApplicationComponentConfig_secretsManagerKey' - Database credentials.+--+-- 'sourceCodeList', 'updateApplicationComponentConfig_sourceCodeList' - The list of source code configurations to update for the application+-- component.+--+-- 'strategyOption', 'updateApplicationComponentConfig_strategyOption' - The preferred strategy options for the application component. Use values+-- from the GetApplicationComponentStrategies response.+--+-- 'applicationComponentId', 'updateApplicationComponentConfig_applicationComponentId' - The ID of the application component. The ID is unique within an AWS+-- account.+newUpdateApplicationComponentConfig ::+  -- | 'applicationComponentId'+  Prelude.Text ->+  UpdateApplicationComponentConfig+newUpdateApplicationComponentConfig+  pApplicationComponentId_ =+    UpdateApplicationComponentConfig'+      { appType =+          Prelude.Nothing,+        configureOnly = Prelude.Nothing,+        inclusionStatus = Prelude.Nothing,+        secretsManagerKey = Prelude.Nothing,+        sourceCodeList = Prelude.Nothing,+        strategyOption = Prelude.Nothing,+        applicationComponentId =+          pApplicationComponentId_+      }++-- | The type of known component.+updateApplicationComponentConfig_appType :: Lens.Lens' UpdateApplicationComponentConfig (Prelude.Maybe AppType)+updateApplicationComponentConfig_appType = Lens.lens (\UpdateApplicationComponentConfig' {appType} -> appType) (\s@UpdateApplicationComponentConfig' {} a -> s {appType = a} :: UpdateApplicationComponentConfig)++-- | Update the configuration request of an application component. If it is+-- set to true, the source code and\/or database credentials are updated.+-- If it is set to false, the source code and\/or database credentials are+-- updated and an analysis is initiated.+updateApplicationComponentConfig_configureOnly :: Lens.Lens' UpdateApplicationComponentConfig (Prelude.Maybe Prelude.Bool)+updateApplicationComponentConfig_configureOnly = Lens.lens (\UpdateApplicationComponentConfig' {configureOnly} -> configureOnly) (\s@UpdateApplicationComponentConfig' {} a -> s {configureOnly = a} :: UpdateApplicationComponentConfig)++-- | Indicates whether the application component has been included for server+-- recommendation or not.+updateApplicationComponentConfig_inclusionStatus :: Lens.Lens' UpdateApplicationComponentConfig (Prelude.Maybe InclusionStatus)+updateApplicationComponentConfig_inclusionStatus = Lens.lens (\UpdateApplicationComponentConfig' {inclusionStatus} -> inclusionStatus) (\s@UpdateApplicationComponentConfig' {} a -> s {inclusionStatus = a} :: UpdateApplicationComponentConfig)++-- | Database credentials.+updateApplicationComponentConfig_secretsManagerKey :: Lens.Lens' UpdateApplicationComponentConfig (Prelude.Maybe Prelude.Text)+updateApplicationComponentConfig_secretsManagerKey = Lens.lens (\UpdateApplicationComponentConfig' {secretsManagerKey} -> secretsManagerKey) (\s@UpdateApplicationComponentConfig' {} a -> s {secretsManagerKey = a} :: UpdateApplicationComponentConfig) Prelude.. Lens.mapping Data._Sensitive++-- | The list of source code configurations to update for the application+-- component.+updateApplicationComponentConfig_sourceCodeList :: Lens.Lens' UpdateApplicationComponentConfig (Prelude.Maybe [SourceCode])+updateApplicationComponentConfig_sourceCodeList = Lens.lens (\UpdateApplicationComponentConfig' {sourceCodeList} -> sourceCodeList) (\s@UpdateApplicationComponentConfig' {} a -> s {sourceCodeList = a} :: UpdateApplicationComponentConfig) Prelude.. Lens.mapping Lens.coerced++-- | The preferred strategy options for the application component. Use values+-- from the GetApplicationComponentStrategies response.+updateApplicationComponentConfig_strategyOption :: Lens.Lens' UpdateApplicationComponentConfig (Prelude.Maybe StrategyOption)+updateApplicationComponentConfig_strategyOption = Lens.lens (\UpdateApplicationComponentConfig' {strategyOption} -> strategyOption) (\s@UpdateApplicationComponentConfig' {} a -> s {strategyOption = a} :: UpdateApplicationComponentConfig)++-- | The ID of the application component. The ID is unique within an AWS+-- account.+updateApplicationComponentConfig_applicationComponentId :: Lens.Lens' UpdateApplicationComponentConfig Prelude.Text+updateApplicationComponentConfig_applicationComponentId = Lens.lens (\UpdateApplicationComponentConfig' {applicationComponentId} -> applicationComponentId) (\s@UpdateApplicationComponentConfig' {} a -> s {applicationComponentId = a} :: UpdateApplicationComponentConfig)++instance+  Core.AWSRequest+    UpdateApplicationComponentConfig+  where+  type+    AWSResponse UpdateApplicationComponentConfig =+      UpdateApplicationComponentConfigResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UpdateApplicationComponentConfigResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    UpdateApplicationComponentConfig+  where+  hashWithSalt+    _salt+    UpdateApplicationComponentConfig' {..} =+      _salt+        `Prelude.hashWithSalt` appType+        `Prelude.hashWithSalt` configureOnly+        `Prelude.hashWithSalt` inclusionStatus+        `Prelude.hashWithSalt` secretsManagerKey+        `Prelude.hashWithSalt` sourceCodeList+        `Prelude.hashWithSalt` strategyOption+        `Prelude.hashWithSalt` applicationComponentId++instance+  Prelude.NFData+    UpdateApplicationComponentConfig+  where+  rnf UpdateApplicationComponentConfig' {..} =+    Prelude.rnf appType+      `Prelude.seq` Prelude.rnf configureOnly+      `Prelude.seq` Prelude.rnf inclusionStatus+      `Prelude.seq` Prelude.rnf secretsManagerKey+      `Prelude.seq` Prelude.rnf sourceCodeList+      `Prelude.seq` Prelude.rnf strategyOption+      `Prelude.seq` Prelude.rnf applicationComponentId++instance+  Data.ToHeaders+    UpdateApplicationComponentConfig+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateApplicationComponentConfig where+  toJSON UpdateApplicationComponentConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("appType" Data..=) Prelude.<$> appType,+            ("configureOnly" Data..=) Prelude.<$> configureOnly,+            ("inclusionStatus" Data..=)+              Prelude.<$> inclusionStatus,+            ("secretsManagerKey" Data..=)+              Prelude.<$> secretsManagerKey,+            ("sourceCodeList" Data..=)+              Prelude.<$> sourceCodeList,+            ("strategyOption" Data..=)+              Prelude.<$> strategyOption,+            Prelude.Just+              ( "applicationComponentId"+                  Data..= applicationComponentId+              )+          ]+      )++instance Data.ToPath UpdateApplicationComponentConfig where+  toPath =+    Prelude.const+      "/update-applicationcomponent-config/"++instance+  Data.ToQuery+    UpdateApplicationComponentConfig+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateApplicationComponentConfigResponse' smart constructor.+data UpdateApplicationComponentConfigResponse = UpdateApplicationComponentConfigResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateApplicationComponentConfigResponse' 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', 'updateApplicationComponentConfigResponse_httpStatus' - The response's http status code.+newUpdateApplicationComponentConfigResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateApplicationComponentConfigResponse+newUpdateApplicationComponentConfigResponse+  pHttpStatus_ =+    UpdateApplicationComponentConfigResponse'+      { httpStatus =+          pHttpStatus_+      }++-- | The response's http status code.+updateApplicationComponentConfigResponse_httpStatus :: Lens.Lens' UpdateApplicationComponentConfigResponse Prelude.Int+updateApplicationComponentConfigResponse_httpStatus = Lens.lens (\UpdateApplicationComponentConfigResponse' {httpStatus} -> httpStatus) (\s@UpdateApplicationComponentConfigResponse' {} a -> s {httpStatus = a} :: UpdateApplicationComponentConfigResponse)++instance+  Prelude.NFData+    UpdateApplicationComponentConfigResponse+  where+  rnf UpdateApplicationComponentConfigResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/UpdateServerConfig.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.MigrationHubStrategy.UpdateServerConfig+-- 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 configuration of the specified server.+module Amazonka.MigrationHubStrategy.UpdateServerConfig+  ( -- * Creating a Request+    UpdateServerConfig (..),+    newUpdateServerConfig,++    -- * Request Lenses+    updateServerConfig_strategyOption,+    updateServerConfig_serverId,++    -- * Destructuring the Response+    UpdateServerConfigResponse (..),+    newUpdateServerConfigResponse,++    -- * Response Lenses+    updateServerConfigResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateServerConfig' smart constructor.+data UpdateServerConfig = UpdateServerConfig'+  { -- | The preferred strategy options for the application component. See the+    -- response from GetServerStrategies.+    strategyOption :: Prelude.Maybe StrategyOption,+    -- | The ID of the server.+    serverId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServerConfig' 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:+--+-- 'strategyOption', 'updateServerConfig_strategyOption' - The preferred strategy options for the application component. See the+-- response from GetServerStrategies.+--+-- 'serverId', 'updateServerConfig_serverId' - The ID of the server.+newUpdateServerConfig ::+  -- | 'serverId'+  Prelude.Text ->+  UpdateServerConfig+newUpdateServerConfig pServerId_ =+  UpdateServerConfig'+    { strategyOption =+        Prelude.Nothing,+      serverId = pServerId_+    }++-- | The preferred strategy options for the application component. See the+-- response from GetServerStrategies.+updateServerConfig_strategyOption :: Lens.Lens' UpdateServerConfig (Prelude.Maybe StrategyOption)+updateServerConfig_strategyOption = Lens.lens (\UpdateServerConfig' {strategyOption} -> strategyOption) (\s@UpdateServerConfig' {} a -> s {strategyOption = a} :: UpdateServerConfig)++-- | The ID of the server.+updateServerConfig_serverId :: Lens.Lens' UpdateServerConfig Prelude.Text+updateServerConfig_serverId = Lens.lens (\UpdateServerConfig' {serverId} -> serverId) (\s@UpdateServerConfig' {} a -> s {serverId = a} :: UpdateServerConfig)++instance Core.AWSRequest UpdateServerConfig where+  type+    AWSResponse UpdateServerConfig =+      UpdateServerConfigResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UpdateServerConfigResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateServerConfig where+  hashWithSalt _salt UpdateServerConfig' {..} =+    _salt+      `Prelude.hashWithSalt` strategyOption+      `Prelude.hashWithSalt` serverId++instance Prelude.NFData UpdateServerConfig where+  rnf UpdateServerConfig' {..} =+    Prelude.rnf strategyOption+      `Prelude.seq` Prelude.rnf serverId++instance Data.ToHeaders UpdateServerConfig where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateServerConfig where+  toJSON UpdateServerConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("strategyOption" Data..=)+              Prelude.<$> strategyOption,+            Prelude.Just ("serverId" Data..= serverId)+          ]+      )++instance Data.ToPath UpdateServerConfig where+  toPath = Prelude.const "/update-server-config/"++instance Data.ToQuery UpdateServerConfig where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateServerConfigResponse' smart constructor.+data UpdateServerConfigResponse = UpdateServerConfigResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServerConfigResponse' 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', 'updateServerConfigResponse_httpStatus' - The response's http status code.+newUpdateServerConfigResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateServerConfigResponse+newUpdateServerConfigResponse pHttpStatus_ =+  UpdateServerConfigResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+updateServerConfigResponse_httpStatus :: Lens.Lens' UpdateServerConfigResponse Prelude.Int+updateServerConfigResponse_httpStatus = Lens.lens (\UpdateServerConfigResponse' {httpStatus} -> httpStatus) (\s@UpdateServerConfigResponse' {} a -> s {httpStatus = a} :: UpdateServerConfigResponse)++instance Prelude.NFData UpdateServerConfigResponse where+  rnf UpdateServerConfigResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/MigrationHubStrategy/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.MigrationHubStrategy.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.MigrationHubStrategy.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MigrationHubStrategy.Lens+import Amazonka.MigrationHubStrategy.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.MigrationHubStrategy+import Test.Amazonka.MigrationHubStrategy.Internal+import Test.Tasty++main :: IO ()+main =+  defaultMain $+    testGroup+      "MigrationHubStrategy"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]
+ test/Test/Amazonka/Gen/MigrationHubStrategy.hs view
@@ -0,0 +1,458 @@+{-# 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.MigrationHubStrategy+-- 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.MigrationHubStrategy where++import Amazonka.MigrationHubStrategy+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.MigrationHubStrategy.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"+--         [ requestGetApplicationComponentDetails $+--             newGetApplicationComponentDetails+--+--         , requestGetApplicationComponentStrategies $+--             newGetApplicationComponentStrategies+--+--         , requestGetAssessment $+--             newGetAssessment+--+--         , requestGetImportFileTask $+--             newGetImportFileTask+--+--         , requestGetLatestAssessmentId $+--             newGetLatestAssessmentId+--+--         , requestGetPortfolioPreferences $+--             newGetPortfolioPreferences+--+--         , requestGetPortfolioSummary $+--             newGetPortfolioSummary+--+--         , requestGetRecommendationReportDetails $+--             newGetRecommendationReportDetails+--+--         , requestGetServerDetails $+--             newGetServerDetails+--+--         , requestGetServerStrategies $+--             newGetServerStrategies+--+--         , requestListApplicationComponents $+--             newListApplicationComponents+--+--         , requestListCollectors $+--             newListCollectors+--+--         , requestListImportFileTask $+--             newListImportFileTask+--+--         , requestListServers $+--             newListServers+--+--         , requestPutPortfolioPreferences $+--             newPutPortfolioPreferences+--+--         , requestStartAssessment $+--             newStartAssessment+--+--         , requestStartImportFileTask $+--             newStartImportFileTask+--+--         , requestStartRecommendationReportGeneration $+--             newStartRecommendationReportGeneration+--+--         , requestStopAssessment $+--             newStopAssessment+--+--         , requestUpdateApplicationComponentConfig $+--             newUpdateApplicationComponentConfig+--+--         , requestUpdateServerConfig $+--             newUpdateServerConfig+--+--           ]++--     , testGroup "response"+--         [ responseGetApplicationComponentDetails $+--             newGetApplicationComponentDetailsResponse+--+--         , responseGetApplicationComponentStrategies $+--             newGetApplicationComponentStrategiesResponse+--+--         , responseGetAssessment $+--             newGetAssessmentResponse+--+--         , responseGetImportFileTask $+--             newGetImportFileTaskResponse+--+--         , responseGetLatestAssessmentId $+--             newGetLatestAssessmentIdResponse+--+--         , responseGetPortfolioPreferences $+--             newGetPortfolioPreferencesResponse+--+--         , responseGetPortfolioSummary $+--             newGetPortfolioSummaryResponse+--+--         , responseGetRecommendationReportDetails $+--             newGetRecommendationReportDetailsResponse+--+--         , responseGetServerDetails $+--             newGetServerDetailsResponse+--+--         , responseGetServerStrategies $+--             newGetServerStrategiesResponse+--+--         , responseListApplicationComponents $+--             newListApplicationComponentsResponse+--+--         , responseListCollectors $+--             newListCollectorsResponse+--+--         , responseListImportFileTask $+--             newListImportFileTaskResponse+--+--         , responseListServers $+--             newListServersResponse+--+--         , responsePutPortfolioPreferences $+--             newPutPortfolioPreferencesResponse+--+--         , responseStartAssessment $+--             newStartAssessmentResponse+--+--         , responseStartImportFileTask $+--             newStartImportFileTaskResponse+--+--         , responseStartRecommendationReportGeneration $+--             newStartRecommendationReportGenerationResponse+--+--         , responseStopAssessment $+--             newStopAssessmentResponse+--+--         , responseUpdateApplicationComponentConfig $+--             newUpdateApplicationComponentConfigResponse+--+--         , responseUpdateServerConfig $+--             newUpdateServerConfigResponse+--+--           ]+--     ]++-- Requests++requestGetApplicationComponentDetails :: GetApplicationComponentDetails -> TestTree+requestGetApplicationComponentDetails =+  req+    "GetApplicationComponentDetails"+    "fixture/GetApplicationComponentDetails.yaml"++requestGetApplicationComponentStrategies :: GetApplicationComponentStrategies -> TestTree+requestGetApplicationComponentStrategies =+  req+    "GetApplicationComponentStrategies"+    "fixture/GetApplicationComponentStrategies.yaml"++requestGetAssessment :: GetAssessment -> TestTree+requestGetAssessment =+  req+    "GetAssessment"+    "fixture/GetAssessment.yaml"++requestGetImportFileTask :: GetImportFileTask -> TestTree+requestGetImportFileTask =+  req+    "GetImportFileTask"+    "fixture/GetImportFileTask.yaml"++requestGetLatestAssessmentId :: GetLatestAssessmentId -> TestTree+requestGetLatestAssessmentId =+  req+    "GetLatestAssessmentId"+    "fixture/GetLatestAssessmentId.yaml"++requestGetPortfolioPreferences :: GetPortfolioPreferences -> TestTree+requestGetPortfolioPreferences =+  req+    "GetPortfolioPreferences"+    "fixture/GetPortfolioPreferences.yaml"++requestGetPortfolioSummary :: GetPortfolioSummary -> TestTree+requestGetPortfolioSummary =+  req+    "GetPortfolioSummary"+    "fixture/GetPortfolioSummary.yaml"++requestGetRecommendationReportDetails :: GetRecommendationReportDetails -> TestTree+requestGetRecommendationReportDetails =+  req+    "GetRecommendationReportDetails"+    "fixture/GetRecommendationReportDetails.yaml"++requestGetServerDetails :: GetServerDetails -> TestTree+requestGetServerDetails =+  req+    "GetServerDetails"+    "fixture/GetServerDetails.yaml"++requestGetServerStrategies :: GetServerStrategies -> TestTree+requestGetServerStrategies =+  req+    "GetServerStrategies"+    "fixture/GetServerStrategies.yaml"++requestListApplicationComponents :: ListApplicationComponents -> TestTree+requestListApplicationComponents =+  req+    "ListApplicationComponents"+    "fixture/ListApplicationComponents.yaml"++requestListCollectors :: ListCollectors -> TestTree+requestListCollectors =+  req+    "ListCollectors"+    "fixture/ListCollectors.yaml"++requestListImportFileTask :: ListImportFileTask -> TestTree+requestListImportFileTask =+  req+    "ListImportFileTask"+    "fixture/ListImportFileTask.yaml"++requestListServers :: ListServers -> TestTree+requestListServers =+  req+    "ListServers"+    "fixture/ListServers.yaml"++requestPutPortfolioPreferences :: PutPortfolioPreferences -> TestTree+requestPutPortfolioPreferences =+  req+    "PutPortfolioPreferences"+    "fixture/PutPortfolioPreferences.yaml"++requestStartAssessment :: StartAssessment -> TestTree+requestStartAssessment =+  req+    "StartAssessment"+    "fixture/StartAssessment.yaml"++requestStartImportFileTask :: StartImportFileTask -> TestTree+requestStartImportFileTask =+  req+    "StartImportFileTask"+    "fixture/StartImportFileTask.yaml"++requestStartRecommendationReportGeneration :: StartRecommendationReportGeneration -> TestTree+requestStartRecommendationReportGeneration =+  req+    "StartRecommendationReportGeneration"+    "fixture/StartRecommendationReportGeneration.yaml"++requestStopAssessment :: StopAssessment -> TestTree+requestStopAssessment =+  req+    "StopAssessment"+    "fixture/StopAssessment.yaml"++requestUpdateApplicationComponentConfig :: UpdateApplicationComponentConfig -> TestTree+requestUpdateApplicationComponentConfig =+  req+    "UpdateApplicationComponentConfig"+    "fixture/UpdateApplicationComponentConfig.yaml"++requestUpdateServerConfig :: UpdateServerConfig -> TestTree+requestUpdateServerConfig =+  req+    "UpdateServerConfig"+    "fixture/UpdateServerConfig.yaml"++-- Responses++responseGetApplicationComponentDetails :: GetApplicationComponentDetailsResponse -> TestTree+responseGetApplicationComponentDetails =+  res+    "GetApplicationComponentDetailsResponse"+    "fixture/GetApplicationComponentDetailsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetApplicationComponentDetails)++responseGetApplicationComponentStrategies :: GetApplicationComponentStrategiesResponse -> TestTree+responseGetApplicationComponentStrategies =+  res+    "GetApplicationComponentStrategiesResponse"+    "fixture/GetApplicationComponentStrategiesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetApplicationComponentStrategies)++responseGetAssessment :: GetAssessmentResponse -> TestTree+responseGetAssessment =+  res+    "GetAssessmentResponse"+    "fixture/GetAssessmentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetAssessment)++responseGetImportFileTask :: GetImportFileTaskResponse -> TestTree+responseGetImportFileTask =+  res+    "GetImportFileTaskResponse"+    "fixture/GetImportFileTaskResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetImportFileTask)++responseGetLatestAssessmentId :: GetLatestAssessmentIdResponse -> TestTree+responseGetLatestAssessmentId =+  res+    "GetLatestAssessmentIdResponse"+    "fixture/GetLatestAssessmentIdResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetLatestAssessmentId)++responseGetPortfolioPreferences :: GetPortfolioPreferencesResponse -> TestTree+responseGetPortfolioPreferences =+  res+    "GetPortfolioPreferencesResponse"+    "fixture/GetPortfolioPreferencesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetPortfolioPreferences)++responseGetPortfolioSummary :: GetPortfolioSummaryResponse -> TestTree+responseGetPortfolioSummary =+  res+    "GetPortfolioSummaryResponse"+    "fixture/GetPortfolioSummaryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetPortfolioSummary)++responseGetRecommendationReportDetails :: GetRecommendationReportDetailsResponse -> TestTree+responseGetRecommendationReportDetails =+  res+    "GetRecommendationReportDetailsResponse"+    "fixture/GetRecommendationReportDetailsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetRecommendationReportDetails)++responseGetServerDetails :: GetServerDetailsResponse -> TestTree+responseGetServerDetails =+  res+    "GetServerDetailsResponse"+    "fixture/GetServerDetailsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetServerDetails)++responseGetServerStrategies :: GetServerStrategiesResponse -> TestTree+responseGetServerStrategies =+  res+    "GetServerStrategiesResponse"+    "fixture/GetServerStrategiesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetServerStrategies)++responseListApplicationComponents :: ListApplicationComponentsResponse -> TestTree+responseListApplicationComponents =+  res+    "ListApplicationComponentsResponse"+    "fixture/ListApplicationComponentsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListApplicationComponents)++responseListCollectors :: ListCollectorsResponse -> TestTree+responseListCollectors =+  res+    "ListCollectorsResponse"+    "fixture/ListCollectorsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListCollectors)++responseListImportFileTask :: ListImportFileTaskResponse -> TestTree+responseListImportFileTask =+  res+    "ListImportFileTaskResponse"+    "fixture/ListImportFileTaskResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListImportFileTask)++responseListServers :: ListServersResponse -> TestTree+responseListServers =+  res+    "ListServersResponse"+    "fixture/ListServersResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServers)++responsePutPortfolioPreferences :: PutPortfolioPreferencesResponse -> TestTree+responsePutPortfolioPreferences =+  res+    "PutPortfolioPreferencesResponse"+    "fixture/PutPortfolioPreferencesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy PutPortfolioPreferences)++responseStartAssessment :: StartAssessmentResponse -> TestTree+responseStartAssessment =+  res+    "StartAssessmentResponse"+    "fixture/StartAssessmentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartAssessment)++responseStartImportFileTask :: StartImportFileTaskResponse -> TestTree+responseStartImportFileTask =+  res+    "StartImportFileTaskResponse"+    "fixture/StartImportFileTaskResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartImportFileTask)++responseStartRecommendationReportGeneration :: StartRecommendationReportGenerationResponse -> TestTree+responseStartRecommendationReportGeneration =+  res+    "StartRecommendationReportGenerationResponse"+    "fixture/StartRecommendationReportGenerationResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartRecommendationReportGeneration)++responseStopAssessment :: StopAssessmentResponse -> TestTree+responseStopAssessment =+  res+    "StopAssessmentResponse"+    "fixture/StopAssessmentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StopAssessment)++responseUpdateApplicationComponentConfig :: UpdateApplicationComponentConfigResponse -> TestTree+responseUpdateApplicationComponentConfig =+  res+    "UpdateApplicationComponentConfigResponse"+    "fixture/UpdateApplicationComponentConfigResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateApplicationComponentConfig)++responseUpdateServerConfig :: UpdateServerConfigResponse -> TestTree+responseUpdateServerConfig =+  res+    "UpdateServerConfigResponse"+    "fixture/UpdateServerConfigResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateServerConfig)
+ test/Test/Amazonka/MigrationHubStrategy.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.MigrationHubStrategy+-- 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.MigrationHubStrategy+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/MigrationHubStrategy/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.MigrationHubStrategy.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.MigrationHubStrategy.Internal where