diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -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.
diff --git a/README.md b/README.md
new file mode 100644
--- /dev/null
+++ b/README.md
@@ -0,0 +1,44 @@
+# Amazon ARC - Zonal Shift SDK
+
+* [Version](#version)
+* [Description](#description)
+* [Contribute](#contribute)
+* [Licence](#licence)
+
+
+## Version
+ 
+`2.0` - Derived from API version @2022-10-30@ of the AWS service descriptions, licensed under Apache 2.0.
+
+## Description
+
+Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-arc-zonal-shift)
+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.ArcZonalShift](http://hackage.haskell.org/package/amazonka-arc-zonal-shift/docs/Amazonka-ArcZonalShift.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-arc-zonal-shift` 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.
diff --git a/amazonka-arc-zonal-shift.cabal b/amazonka-arc-zonal-shift.cabal
new file mode 100644
--- /dev/null
+++ b/amazonka-arc-zonal-shift.cabal
@@ -0,0 +1,95 @@
+cabal-version:      2.2
+name:               amazonka-arc-zonal-shift
+version:            2.0
+synopsis:           Amazon ARC - Zonal Shift 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 @2022-10-30@ 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.ArcZonalShift.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.ArcZonalShift" 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-arc-zonal-shift
+
+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.ArcZonalShift
+    Amazonka.ArcZonalShift.CancelZonalShift
+    Amazonka.ArcZonalShift.GetManagedResource
+    Amazonka.ArcZonalShift.Lens
+    Amazonka.ArcZonalShift.ListManagedResources
+    Amazonka.ArcZonalShift.ListZonalShifts
+    Amazonka.ArcZonalShift.StartZonalShift
+    Amazonka.ArcZonalShift.Types
+    Amazonka.ArcZonalShift.Types.AppliedStatus
+    Amazonka.ArcZonalShift.Types.ManagedResourceSummary
+    Amazonka.ArcZonalShift.Types.ZonalShift
+    Amazonka.ArcZonalShift.Types.ZonalShiftInResource
+    Amazonka.ArcZonalShift.Types.ZonalShiftStatus
+    Amazonka.ArcZonalShift.Types.ZonalShiftSummary
+    Amazonka.ArcZonalShift.UpdateZonalShift
+    Amazonka.ArcZonalShift.Waiters
+
+  build-depends:
+    , amazonka-core  >=2.0  && <2.1
+    , base           >=4.12 && <5
+
+test-suite amazonka-arc-zonal-shift-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.ArcZonalShift
+    Test.Amazonka.ArcZonalShift.Internal
+    Test.Amazonka.Gen.ArcZonalShift
+
+  build-depends:
+    , amazonka-arc-zonal-shift
+    , amazonka-core             >=2.0 && <2.1
+    , amazonka-test             >=2.0 && <2.1
+    , base
+    , bytestring
+    , case-insensitive
+    , tasty
+    , tasty-hunit
+    , text
+    , time
+    , unordered-containers
diff --git a/fixture/CancelZonalShift.yaml b/fixture/CancelZonalShift.yaml
new file mode 100644
--- /dev/null
+++ b/fixture/CancelZonalShift.yaml
@@ -0,0 +1,10 @@
+---
+method: DELETE
+headers:
+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/arc-zonal-shift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+  Host:                  arc-zonal-shift.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:
+  ''
diff --git a/fixture/CancelZonalShiftResponse.proto b/fixture/CancelZonalShiftResponse.proto
new file mode 100644
--- /dev/null
+++ b/fixture/CancelZonalShiftResponse.proto
diff --git a/fixture/GetManagedResource.yaml b/fixture/GetManagedResource.yaml
new file mode 100644
--- /dev/null
+++ b/fixture/GetManagedResource.yaml
@@ -0,0 +1,10 @@
+---
+method: GET
+headers:
+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/arc-zonal-shift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+  Host:                  arc-zonal-shift.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:
+  ''
diff --git a/fixture/GetManagedResourceResponse.proto b/fixture/GetManagedResourceResponse.proto
new file mode 100644
--- /dev/null
+++ b/fixture/GetManagedResourceResponse.proto
diff --git a/fixture/ListManagedResources.yaml b/fixture/ListManagedResources.yaml
new file mode 100644
--- /dev/null
+++ b/fixture/ListManagedResources.yaml
@@ -0,0 +1,10 @@
+---
+method: GET
+headers:
+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/arc-zonal-shift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+  Host:                  arc-zonal-shift.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:
+  ''
diff --git a/fixture/ListManagedResourcesResponse.proto b/fixture/ListManagedResourcesResponse.proto
new file mode 100644
--- /dev/null
+++ b/fixture/ListManagedResourcesResponse.proto
diff --git a/fixture/ListZonalShifts.yaml b/fixture/ListZonalShifts.yaml
new file mode 100644
--- /dev/null
+++ b/fixture/ListZonalShifts.yaml
@@ -0,0 +1,10 @@
+---
+method: GET
+headers:
+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/arc-zonal-shift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+  Host:                  arc-zonal-shift.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:
+  ''
diff --git a/fixture/ListZonalShiftsResponse.proto b/fixture/ListZonalShiftsResponse.proto
new file mode 100644
--- /dev/null
+++ b/fixture/ListZonalShiftsResponse.proto
diff --git a/fixture/StartZonalShift.yaml b/fixture/StartZonalShift.yaml
new file mode 100644
--- /dev/null
+++ b/fixture/StartZonalShift.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/arc-zonal-shift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+  Host:                  arc-zonal-shift.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:
+  ''
diff --git a/fixture/StartZonalShiftResponse.proto b/fixture/StartZonalShiftResponse.proto
new file mode 100644
--- /dev/null
+++ b/fixture/StartZonalShiftResponse.proto
diff --git a/fixture/UpdateZonalShift.yaml b/fixture/UpdateZonalShift.yaml
new file mode 100644
--- /dev/null
+++ b/fixture/UpdateZonalShift.yaml
@@ -0,0 +1,10 @@
+---
+method: PATCH
+headers:
+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/arc-zonal-shift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+  Host:                  arc-zonal-shift.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:
+  ''
diff --git a/fixture/UpdateZonalShiftResponse.proto b/fixture/UpdateZonalShiftResponse.proto
new file mode 100644
--- /dev/null
+++ b/fixture/UpdateZonalShiftResponse.proto
diff --git a/gen/Amazonka/ArcZonalShift.hs b/gen/Amazonka/ArcZonalShift.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift.hs
@@ -0,0 +1,173 @@
+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module      : Amazonka.ArcZonalShift
+-- 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 @2022-10-30@ of the AWS service descriptions, licensed under Apache 2.0.
+--
+-- This is the API Reference Guide for the zonal shift feature of Amazon
+-- Route 53 Application Recovery Controller. This guide is for developers
+-- who need detailed information about zonal shift API actions, data types,
+-- and errors.
+--
+-- Zonal shift is in preview release for Amazon Route 53 Application
+-- Recovery Controller and is subject to change.
+--
+-- Zonal shift in Route 53 ARC enables you to move traffic for a load
+-- balancer resource away from an Availability Zone. Starting a zonal shift
+-- helps your application recover immediately, for example, from a
+-- developer\'s bad code deployment or from an AWS infrastructure failure
+-- in a single Availability Zone, reducing the impact and time lost from an
+-- issue in one zone.
+--
+-- Supported AWS resources are automatically registered with Route 53 ARC.
+-- Resources that are registered for zonal shifts in Route 53 ARC are
+-- managed resources in Route 53 ARC. You can start a zonal shift for any
+-- managed resource in your account in a Region. At this time, you can only
+-- start a zonal shift for Network Load Balancers and Application Load
+-- Balancers with cross-zone load balancing turned off.
+--
+-- Zonal shifts are temporary. You must specify an expiration when you
+-- start a zonal shift, of up to three days initially. If you want to still
+-- keep traffic away from an Availability Zone, you can update the zonal
+-- shift and set a new expiration. You can also cancel a zonal shift,
+-- before it expires, for example, if you\'re ready to restore traffic to
+-- the Availability Zone.
+--
+-- For more information about using zonal shift, see the
+-- <https://docs.aws.amazon.com/r53recovery/latest/dg/what-is-route53-recovery.html Amazon Route 53 Application Recovery Controller Developer Guide>.
+module Amazonka.ArcZonalShift
+  ( -- * Service Configuration
+    defaultService,
+
+    -- * Errors
+    -- $errors
+
+    -- ** AccessDeniedException
+    _AccessDeniedException,
+
+    -- ** ConflictException
+    _ConflictException,
+
+    -- ** InternalServerException
+    _InternalServerException,
+
+    -- ** ResourceNotFoundException
+    _ResourceNotFoundException,
+
+    -- ** ThrottlingException
+    _ThrottlingException,
+
+    -- ** ValidationException
+    _ValidationException,
+
+    -- * Waiters
+    -- $waiters
+
+    -- * Operations
+    -- $operations
+
+    -- ** CancelZonalShift
+    CancelZonalShift (CancelZonalShift'),
+    newCancelZonalShift,
+    ZonalShift (ZonalShift'),
+    newZonalShift,
+
+    -- ** GetManagedResource
+    GetManagedResource (GetManagedResource'),
+    newGetManagedResource,
+    GetManagedResourceResponse (GetManagedResourceResponse'),
+    newGetManagedResourceResponse,
+
+    -- ** ListManagedResources (Paginated)
+    ListManagedResources (ListManagedResources'),
+    newListManagedResources,
+    ListManagedResourcesResponse (ListManagedResourcesResponse'),
+    newListManagedResourcesResponse,
+
+    -- ** ListZonalShifts (Paginated)
+    ListZonalShifts (ListZonalShifts'),
+    newListZonalShifts,
+    ListZonalShiftsResponse (ListZonalShiftsResponse'),
+    newListZonalShiftsResponse,
+
+    -- ** StartZonalShift
+    StartZonalShift (StartZonalShift'),
+    newStartZonalShift,
+    ZonalShift (ZonalShift'),
+    newZonalShift,
+
+    -- ** UpdateZonalShift
+    UpdateZonalShift (UpdateZonalShift'),
+    newUpdateZonalShift,
+    ZonalShift (ZonalShift'),
+    newZonalShift,
+
+    -- * Types
+
+    -- ** AppliedStatus
+    AppliedStatus (..),
+
+    -- ** ZonalShiftStatus
+    ZonalShiftStatus (..),
+
+    -- ** ManagedResourceSummary
+    ManagedResourceSummary (ManagedResourceSummary'),
+    newManagedResourceSummary,
+
+    -- ** ZonalShift
+    ZonalShift (ZonalShift'),
+    newZonalShift,
+
+    -- ** ZonalShiftInResource
+    ZonalShiftInResource (ZonalShiftInResource'),
+    newZonalShiftInResource,
+
+    -- ** ZonalShiftSummary
+    ZonalShiftSummary (ZonalShiftSummary'),
+    newZonalShiftSummary,
+  )
+where
+
+import Amazonka.ArcZonalShift.CancelZonalShift
+import Amazonka.ArcZonalShift.GetManagedResource
+import Amazonka.ArcZonalShift.Lens
+import Amazonka.ArcZonalShift.ListManagedResources
+import Amazonka.ArcZonalShift.ListZonalShifts
+import Amazonka.ArcZonalShift.StartZonalShift
+import Amazonka.ArcZonalShift.Types
+import Amazonka.ArcZonalShift.UpdateZonalShift
+import Amazonka.ArcZonalShift.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 'ArcZonalShift'.
+
+-- $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.
diff --git a/gen/Amazonka/ArcZonalShift/CancelZonalShift.hs b/gen/Amazonka/ArcZonalShift/CancelZonalShift.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/CancelZonalShift.hs
@@ -0,0 +1,116 @@
+{-# 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.ArcZonalShift.CancelZonalShift
+-- Copyright   : (c) 2013-2023 Brendan Hay
+-- License     : Mozilla Public License, v. 2.0.
+-- Maintainer  : Brendan Hay
+-- Stability   : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Cancel a zonal shift in Amazon Route 53 Application Recovery Controller
+-- that you\'ve started for a resource in your AWS account in an AWS
+-- Region.
+module Amazonka.ArcZonalShift.CancelZonalShift
+  ( -- * Creating a Request
+    CancelZonalShift (..),
+    newCancelZonalShift,
+
+    -- * Request Lenses
+    cancelZonalShift_zonalShiftId,
+
+    -- * Destructuring the Response
+    ZonalShift (..),
+    newZonalShift,
+
+    -- * Response Lenses
+    zonalShift_awayFrom,
+    zonalShift_comment,
+    zonalShift_expiryTime,
+    zonalShift_resourceIdentifier,
+    zonalShift_startTime,
+    zonalShift_status,
+    zonalShift_zonalShiftId,
+  )
+where
+
+import Amazonka.ArcZonalShift.Types
+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
+import qualified Amazonka.Request as Request
+import qualified Amazonka.Response as Response
+
+-- | /See:/ 'newCancelZonalShift' smart constructor.
+data CancelZonalShift = CancelZonalShift'
+  { -- | The internally-generated identifier of a zonal shift.
+    zonalShiftId :: Prelude.Text
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'CancelZonalShift' 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:
+--
+-- 'zonalShiftId', 'cancelZonalShift_zonalShiftId' - The internally-generated identifier of a zonal shift.
+newCancelZonalShift ::
+  -- | 'zonalShiftId'
+  Prelude.Text ->
+  CancelZonalShift
+newCancelZonalShift pZonalShiftId_ =
+  CancelZonalShift' {zonalShiftId = pZonalShiftId_}
+
+-- | The internally-generated identifier of a zonal shift.
+cancelZonalShift_zonalShiftId :: Lens.Lens' CancelZonalShift Prelude.Text
+cancelZonalShift_zonalShiftId = Lens.lens (\CancelZonalShift' {zonalShiftId} -> zonalShiftId) (\s@CancelZonalShift' {} a -> s {zonalShiftId = a} :: CancelZonalShift)
+
+instance Core.AWSRequest CancelZonalShift where
+  type AWSResponse CancelZonalShift = ZonalShift
+  request overrides =
+    Request.delete (overrides defaultService)
+  response =
+    Response.receiveJSON
+      (\s h x -> Data.eitherParseJSON x)
+
+instance Prelude.Hashable CancelZonalShift where
+  hashWithSalt _salt CancelZonalShift' {..} =
+    _salt `Prelude.hashWithSalt` zonalShiftId
+
+instance Prelude.NFData CancelZonalShift where
+  rnf CancelZonalShift' {..} = Prelude.rnf zonalShiftId
+
+instance Data.ToHeaders CancelZonalShift where
+  toHeaders =
+    Prelude.const
+      ( Prelude.mconcat
+          [ "Content-Type"
+              Data.=# ( "application/x-amz-json-1.1" ::
+                          Prelude.ByteString
+                      )
+          ]
+      )
+
+instance Data.ToPath CancelZonalShift where
+  toPath CancelZonalShift' {..} =
+    Prelude.mconcat
+      ["/zonalshifts/", Data.toBS zonalShiftId]
+
+instance Data.ToQuery CancelZonalShift where
+  toQuery = Prelude.const Prelude.mempty
diff --git a/gen/Amazonka/ArcZonalShift/GetManagedResource.hs b/gen/Amazonka/ArcZonalShift/GetManagedResource.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/GetManagedResource.hs
@@ -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.ArcZonalShift.GetManagedResource
+-- Copyright   : (c) 2013-2023 Brendan Hay
+-- License     : Mozilla Public License, v. 2.0.
+-- Maintainer  : Brendan Hay
+-- Stability   : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Get information about a resource that\'s been registered for zonal
+-- shifts with Amazon Route 53 Application Recovery Controller in this AWS
+-- Region. Resources that are registered for zonal shifts are managed
+-- resources in Route 53 ARC.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+module Amazonka.ArcZonalShift.GetManagedResource
+  ( -- * Creating a Request
+    GetManagedResource (..),
+    newGetManagedResource,
+
+    -- * Request Lenses
+    getManagedResource_resourceIdentifier,
+
+    -- * Destructuring the Response
+    GetManagedResourceResponse (..),
+    newGetManagedResourceResponse,
+
+    -- * Response Lenses
+    getManagedResourceResponse_arn,
+    getManagedResourceResponse_name,
+    getManagedResourceResponse_httpStatus,
+    getManagedResourceResponse_appliedWeights,
+    getManagedResourceResponse_zonalShifts,
+  )
+where
+
+import Amazonka.ArcZonalShift.Types
+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
+import qualified Amazonka.Request as Request
+import qualified Amazonka.Response as Response
+
+-- | /See:/ 'newGetManagedResource' smart constructor.
+data GetManagedResource = GetManagedResource'
+  { -- | The identifier for the resource to include in a zonal shift. The
+    -- identifier is the Amazon Resource Name (ARN) for the resource.
+    --
+    -- At this time, you can only start a zonal shift for Network Load
+    -- Balancers and Application Load Balancers with cross-zone load balancing
+    -- turned off.
+    resourceIdentifier :: Prelude.Text
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'GetManagedResource' 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:
+--
+-- 'resourceIdentifier', 'getManagedResource_resourceIdentifier' - The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+newGetManagedResource ::
+  -- | 'resourceIdentifier'
+  Prelude.Text ->
+  GetManagedResource
+newGetManagedResource pResourceIdentifier_ =
+  GetManagedResource'
+    { resourceIdentifier =
+        pResourceIdentifier_
+    }
+
+-- | The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+getManagedResource_resourceIdentifier :: Lens.Lens' GetManagedResource Prelude.Text
+getManagedResource_resourceIdentifier = Lens.lens (\GetManagedResource' {resourceIdentifier} -> resourceIdentifier) (\s@GetManagedResource' {} a -> s {resourceIdentifier = a} :: GetManagedResource)
+
+instance Core.AWSRequest GetManagedResource where
+  type
+    AWSResponse GetManagedResource =
+      GetManagedResourceResponse
+  request overrides =
+    Request.get (overrides defaultService)
+  response =
+    Response.receiveJSON
+      ( \s h x ->
+          GetManagedResourceResponse'
+            Prelude.<$> (x Data..?> "arn")
+            Prelude.<*> (x Data..?> "name")
+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))
+            Prelude.<*> (x Data..?> "appliedWeights" Core..!@ Prelude.mempty)
+            Prelude.<*> (x Data..?> "zonalShifts" Core..!@ Prelude.mempty)
+      )
+
+instance Prelude.Hashable GetManagedResource where
+  hashWithSalt _salt GetManagedResource' {..} =
+    _salt `Prelude.hashWithSalt` resourceIdentifier
+
+instance Prelude.NFData GetManagedResource where
+  rnf GetManagedResource' {..} =
+    Prelude.rnf resourceIdentifier
+
+instance Data.ToHeaders GetManagedResource where
+  toHeaders =
+    Prelude.const
+      ( Prelude.mconcat
+          [ "Content-Type"
+              Data.=# ( "application/x-amz-json-1.1" ::
+                          Prelude.ByteString
+                      )
+          ]
+      )
+
+instance Data.ToPath GetManagedResource where
+  toPath GetManagedResource' {..} =
+    Prelude.mconcat
+      ["/managedresources/", Data.toBS resourceIdentifier]
+
+instance Data.ToQuery GetManagedResource where
+  toQuery = Prelude.const Prelude.mempty
+
+-- | /See:/ 'newGetManagedResourceResponse' smart constructor.
+data GetManagedResourceResponse = GetManagedResourceResponse'
+  { -- | The Amazon Resource Name (ARN) for the resource.
+    arn :: Prelude.Maybe Prelude.Text,
+    -- | The name of the resource.
+    name :: Prelude.Maybe Prelude.Text,
+    -- | The response's http status code.
+    httpStatus :: Prelude.Int,
+    -- | A collection of key-value pairs that indicate whether resources are
+    -- active in Availability Zones or not. The key name is the Availability
+    -- Zone where the resource is deployed. The value is 1 or 0.
+    appliedWeights :: Prelude.HashMap Prelude.Text Prelude.Double,
+    -- | The zonal shifts that are currently active for a resource.
+    zonalShifts :: [ZonalShiftInResource]
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'GetManagedResourceResponse' 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:
+--
+-- 'arn', 'getManagedResourceResponse_arn' - The Amazon Resource Name (ARN) for the resource.
+--
+-- 'name', 'getManagedResourceResponse_name' - The name of the resource.
+--
+-- 'httpStatus', 'getManagedResourceResponse_httpStatus' - The response's http status code.
+--
+-- 'appliedWeights', 'getManagedResourceResponse_appliedWeights' - A collection of key-value pairs that indicate whether resources are
+-- active in Availability Zones or not. The key name is the Availability
+-- Zone where the resource is deployed. The value is 1 or 0.
+--
+-- 'zonalShifts', 'getManagedResourceResponse_zonalShifts' - The zonal shifts that are currently active for a resource.
+newGetManagedResourceResponse ::
+  -- | 'httpStatus'
+  Prelude.Int ->
+  GetManagedResourceResponse
+newGetManagedResourceResponse pHttpStatus_ =
+  GetManagedResourceResponse'
+    { arn = Prelude.Nothing,
+      name = Prelude.Nothing,
+      httpStatus = pHttpStatus_,
+      appliedWeights = Prelude.mempty,
+      zonalShifts = Prelude.mempty
+    }
+
+-- | The Amazon Resource Name (ARN) for the resource.
+getManagedResourceResponse_arn :: Lens.Lens' GetManagedResourceResponse (Prelude.Maybe Prelude.Text)
+getManagedResourceResponse_arn = Lens.lens (\GetManagedResourceResponse' {arn} -> arn) (\s@GetManagedResourceResponse' {} a -> s {arn = a} :: GetManagedResourceResponse)
+
+-- | The name of the resource.
+getManagedResourceResponse_name :: Lens.Lens' GetManagedResourceResponse (Prelude.Maybe Prelude.Text)
+getManagedResourceResponse_name = Lens.lens (\GetManagedResourceResponse' {name} -> name) (\s@GetManagedResourceResponse' {} a -> s {name = a} :: GetManagedResourceResponse)
+
+-- | The response's http status code.
+getManagedResourceResponse_httpStatus :: Lens.Lens' GetManagedResourceResponse Prelude.Int
+getManagedResourceResponse_httpStatus = Lens.lens (\GetManagedResourceResponse' {httpStatus} -> httpStatus) (\s@GetManagedResourceResponse' {} a -> s {httpStatus = a} :: GetManagedResourceResponse)
+
+-- | A collection of key-value pairs that indicate whether resources are
+-- active in Availability Zones or not. The key name is the Availability
+-- Zone where the resource is deployed. The value is 1 or 0.
+getManagedResourceResponse_appliedWeights :: Lens.Lens' GetManagedResourceResponse (Prelude.HashMap Prelude.Text Prelude.Double)
+getManagedResourceResponse_appliedWeights = Lens.lens (\GetManagedResourceResponse' {appliedWeights} -> appliedWeights) (\s@GetManagedResourceResponse' {} a -> s {appliedWeights = a} :: GetManagedResourceResponse) Prelude.. Lens.coerced
+
+-- | The zonal shifts that are currently active for a resource.
+getManagedResourceResponse_zonalShifts :: Lens.Lens' GetManagedResourceResponse [ZonalShiftInResource]
+getManagedResourceResponse_zonalShifts = Lens.lens (\GetManagedResourceResponse' {zonalShifts} -> zonalShifts) (\s@GetManagedResourceResponse' {} a -> s {zonalShifts = a} :: GetManagedResourceResponse) Prelude.. Lens.coerced
+
+instance Prelude.NFData GetManagedResourceResponse where
+  rnf GetManagedResourceResponse' {..} =
+    Prelude.rnf arn
+      `Prelude.seq` Prelude.rnf name
+      `Prelude.seq` Prelude.rnf httpStatus
+      `Prelude.seq` Prelude.rnf appliedWeights
+      `Prelude.seq` Prelude.rnf zonalShifts
diff --git a/gen/Amazonka/ArcZonalShift/Lens.hs b/gen/Amazonka/ArcZonalShift/Lens.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Lens.hs
@@ -0,0 +1,120 @@
+{-# 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.ArcZonalShift.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.ArcZonalShift.Lens
+  ( -- * Operations
+
+    -- ** CancelZonalShift
+    cancelZonalShift_zonalShiftId,
+    zonalShift_awayFrom,
+    zonalShift_comment,
+    zonalShift_expiryTime,
+    zonalShift_resourceIdentifier,
+    zonalShift_startTime,
+    zonalShift_status,
+    zonalShift_zonalShiftId,
+
+    -- ** GetManagedResource
+    getManagedResource_resourceIdentifier,
+    getManagedResourceResponse_arn,
+    getManagedResourceResponse_name,
+    getManagedResourceResponse_httpStatus,
+    getManagedResourceResponse_appliedWeights,
+    getManagedResourceResponse_zonalShifts,
+
+    -- ** ListManagedResources
+    listManagedResources_maxResults,
+    listManagedResources_nextToken,
+    listManagedResourcesResponse_nextToken,
+    listManagedResourcesResponse_httpStatus,
+    listManagedResourcesResponse_items,
+
+    -- ** ListZonalShifts
+    listZonalShifts_maxResults,
+    listZonalShifts_nextToken,
+    listZonalShifts_status,
+    listZonalShiftsResponse_items,
+    listZonalShiftsResponse_nextToken,
+    listZonalShiftsResponse_httpStatus,
+
+    -- ** StartZonalShift
+    startZonalShift_awayFrom,
+    startZonalShift_comment,
+    startZonalShift_expiresIn,
+    startZonalShift_resourceIdentifier,
+    zonalShift_awayFrom,
+    zonalShift_comment,
+    zonalShift_expiryTime,
+    zonalShift_resourceIdentifier,
+    zonalShift_startTime,
+    zonalShift_status,
+    zonalShift_zonalShiftId,
+
+    -- ** UpdateZonalShift
+    updateZonalShift_comment,
+    updateZonalShift_expiresIn,
+    updateZonalShift_zonalShiftId,
+    zonalShift_awayFrom,
+    zonalShift_comment,
+    zonalShift_expiryTime,
+    zonalShift_resourceIdentifier,
+    zonalShift_startTime,
+    zonalShift_status,
+    zonalShift_zonalShiftId,
+
+    -- * Types
+
+    -- ** ManagedResourceSummary
+    managedResourceSummary_arn,
+    managedResourceSummary_name,
+    managedResourceSummary_availabilityZones,
+
+    -- ** ZonalShift
+    zonalShift_awayFrom,
+    zonalShift_comment,
+    zonalShift_expiryTime,
+    zonalShift_resourceIdentifier,
+    zonalShift_startTime,
+    zonalShift_status,
+    zonalShift_zonalShiftId,
+
+    -- ** ZonalShiftInResource
+    zonalShiftInResource_appliedStatus,
+    zonalShiftInResource_awayFrom,
+    zonalShiftInResource_comment,
+    zonalShiftInResource_expiryTime,
+    zonalShiftInResource_resourceIdentifier,
+    zonalShiftInResource_startTime,
+    zonalShiftInResource_zonalShiftId,
+
+    -- ** ZonalShiftSummary
+    zonalShiftSummary_awayFrom,
+    zonalShiftSummary_comment,
+    zonalShiftSummary_expiryTime,
+    zonalShiftSummary_resourceIdentifier,
+    zonalShiftSummary_startTime,
+    zonalShiftSummary_status,
+    zonalShiftSummary_zonalShiftId,
+  )
+where
+
+import Amazonka.ArcZonalShift.CancelZonalShift
+import Amazonka.ArcZonalShift.GetManagedResource
+import Amazonka.ArcZonalShift.ListManagedResources
+import Amazonka.ArcZonalShift.ListZonalShifts
+import Amazonka.ArcZonalShift.StartZonalShift
+import Amazonka.ArcZonalShift.Types.ManagedResourceSummary
+import Amazonka.ArcZonalShift.Types.ZonalShift
+import Amazonka.ArcZonalShift.Types.ZonalShiftInResource
+import Amazonka.ArcZonalShift.Types.ZonalShiftSummary
+import Amazonka.ArcZonalShift.UpdateZonalShift
diff --git a/gen/Amazonka/ArcZonalShift/ListManagedResources.hs b/gen/Amazonka/ArcZonalShift/ListManagedResources.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/ListManagedResources.hs
@@ -0,0 +1,236 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module      : Amazonka.ArcZonalShift.ListManagedResources
+-- Copyright   : (c) 2013-2023 Brendan Hay
+-- License     : Mozilla Public License, v. 2.0.
+-- Maintainer  : Brendan Hay
+-- Stability   : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Lists all the resources in your AWS account in this AWS Region that are
+-- managed for zonal shifts in Amazon Route 53 Application Recovery
+-- Controller, and information about them. The information includes their
+-- Amazon Resource Names (ARNs), the Availability Zones the resources are
+-- deployed in, and the resource name.
+--
+-- This operation returns paginated results.
+module Amazonka.ArcZonalShift.ListManagedResources
+  ( -- * Creating a Request
+    ListManagedResources (..),
+    newListManagedResources,
+
+    -- * Request Lenses
+    listManagedResources_maxResults,
+    listManagedResources_nextToken,
+
+    -- * Destructuring the Response
+    ListManagedResourcesResponse (..),
+    newListManagedResourcesResponse,
+
+    -- * Response Lenses
+    listManagedResourcesResponse_nextToken,
+    listManagedResourcesResponse_httpStatus,
+    listManagedResourcesResponse_items,
+  )
+where
+
+import Amazonka.ArcZonalShift.Types
+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
+import qualified Amazonka.Request as Request
+import qualified Amazonka.Response as Response
+
+-- | /See:/ 'newListManagedResources' smart constructor.
+data ListManagedResources = ListManagedResources'
+  { -- | The number of objects that you want to return with this call.
+    maxResults :: Prelude.Maybe Prelude.Natural,
+    -- | Specifies that you want to receive the next page of results. Valid only
+    -- if you received a @NextToken@ response in the previous request. If you
+    -- did, it indicates that more output is available. Set this parameter to
+    -- the value provided by the previous call\'s @NextToken@ response to
+    -- request the next page of results.
+    nextToken :: Prelude.Maybe Prelude.Text
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'ListManagedResources' 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', 'listManagedResources_maxResults' - The number of objects that you want to return with this call.
+--
+-- 'nextToken', 'listManagedResources_nextToken' - Specifies that you want to receive the next page of results. Valid only
+-- if you received a @NextToken@ response in the previous request. If you
+-- did, it indicates that more output is available. Set this parameter to
+-- the value provided by the previous call\'s @NextToken@ response to
+-- request the next page of results.
+newListManagedResources ::
+  ListManagedResources
+newListManagedResources =
+  ListManagedResources'
+    { maxResults = Prelude.Nothing,
+      nextToken = Prelude.Nothing
+    }
+
+-- | The number of objects that you want to return with this call.
+listManagedResources_maxResults :: Lens.Lens' ListManagedResources (Prelude.Maybe Prelude.Natural)
+listManagedResources_maxResults = Lens.lens (\ListManagedResources' {maxResults} -> maxResults) (\s@ListManagedResources' {} a -> s {maxResults = a} :: ListManagedResources)
+
+-- | Specifies that you want to receive the next page of results. Valid only
+-- if you received a @NextToken@ response in the previous request. If you
+-- did, it indicates that more output is available. Set this parameter to
+-- the value provided by the previous call\'s @NextToken@ response to
+-- request the next page of results.
+listManagedResources_nextToken :: Lens.Lens' ListManagedResources (Prelude.Maybe Prelude.Text)
+listManagedResources_nextToken = Lens.lens (\ListManagedResources' {nextToken} -> nextToken) (\s@ListManagedResources' {} a -> s {nextToken = a} :: ListManagedResources)
+
+instance Core.AWSPager ListManagedResources where
+  page rq rs
+    | Core.stop
+        ( rs
+            Lens.^? listManagedResourcesResponse_nextToken
+            Prelude.. Lens._Just
+        ) =
+        Prelude.Nothing
+    | Core.stop
+        (rs Lens.^. listManagedResourcesResponse_items) =
+        Prelude.Nothing
+    | Prelude.otherwise =
+        Prelude.Just
+          Prelude.$ rq
+          Prelude.& listManagedResources_nextToken
+          Lens..~ rs
+          Lens.^? listManagedResourcesResponse_nextToken
+          Prelude.. Lens._Just
+
+instance Core.AWSRequest ListManagedResources where
+  type
+    AWSResponse ListManagedResources =
+      ListManagedResourcesResponse
+  request overrides =
+    Request.get (overrides defaultService)
+  response =
+    Response.receiveJSON
+      ( \s h x ->
+          ListManagedResourcesResponse'
+            Prelude.<$> (x Data..?> "nextToken")
+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))
+            Prelude.<*> (x Data..?> "items" Core..!@ Prelude.mempty)
+      )
+
+instance Prelude.Hashable ListManagedResources where
+  hashWithSalt _salt ListManagedResources' {..} =
+    _salt
+      `Prelude.hashWithSalt` maxResults
+      `Prelude.hashWithSalt` nextToken
+
+instance Prelude.NFData ListManagedResources where
+  rnf ListManagedResources' {..} =
+    Prelude.rnf maxResults
+      `Prelude.seq` Prelude.rnf nextToken
+
+instance Data.ToHeaders ListManagedResources where
+  toHeaders =
+    Prelude.const
+      ( Prelude.mconcat
+          [ "Content-Type"
+              Data.=# ( "application/x-amz-json-1.1" ::
+                          Prelude.ByteString
+                      )
+          ]
+      )
+
+instance Data.ToPath ListManagedResources where
+  toPath = Prelude.const "/managedresources"
+
+instance Data.ToQuery ListManagedResources where
+  toQuery ListManagedResources' {..} =
+    Prelude.mconcat
+      [ "maxResults" Data.=: maxResults,
+        "nextToken" Data.=: nextToken
+      ]
+
+-- | /See:/ 'newListManagedResourcesResponse' smart constructor.
+data ListManagedResourcesResponse = ListManagedResourcesResponse'
+  { -- | Specifies that you want to receive the next page of results. Valid only
+    -- if you received a @NextToken@ response in the previous request. If you
+    -- did, it indicates that more output is available. Set this parameter to
+    -- the value provided by the previous call\'s @NextToken@ response to
+    -- request the next page of results.
+    nextToken :: Prelude.Maybe Prelude.Text,
+    -- | The response's http status code.
+    httpStatus :: Prelude.Int,
+    -- | The items in the response list.
+    items :: [ManagedResourceSummary]
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'ListManagedResourcesResponse' 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', 'listManagedResourcesResponse_nextToken' - Specifies that you want to receive the next page of results. Valid only
+-- if you received a @NextToken@ response in the previous request. If you
+-- did, it indicates that more output is available. Set this parameter to
+-- the value provided by the previous call\'s @NextToken@ response to
+-- request the next page of results.
+--
+-- 'httpStatus', 'listManagedResourcesResponse_httpStatus' - The response's http status code.
+--
+-- 'items', 'listManagedResourcesResponse_items' - The items in the response list.
+newListManagedResourcesResponse ::
+  -- | 'httpStatus'
+  Prelude.Int ->
+  ListManagedResourcesResponse
+newListManagedResourcesResponse pHttpStatus_ =
+  ListManagedResourcesResponse'
+    { nextToken =
+        Prelude.Nothing,
+      httpStatus = pHttpStatus_,
+      items = Prelude.mempty
+    }
+
+-- | Specifies that you want to receive the next page of results. Valid only
+-- if you received a @NextToken@ response in the previous request. If you
+-- did, it indicates that more output is available. Set this parameter to
+-- the value provided by the previous call\'s @NextToken@ response to
+-- request the next page of results.
+listManagedResourcesResponse_nextToken :: Lens.Lens' ListManagedResourcesResponse (Prelude.Maybe Prelude.Text)
+listManagedResourcesResponse_nextToken = Lens.lens (\ListManagedResourcesResponse' {nextToken} -> nextToken) (\s@ListManagedResourcesResponse' {} a -> s {nextToken = a} :: ListManagedResourcesResponse)
+
+-- | The response's http status code.
+listManagedResourcesResponse_httpStatus :: Lens.Lens' ListManagedResourcesResponse Prelude.Int
+listManagedResourcesResponse_httpStatus = Lens.lens (\ListManagedResourcesResponse' {httpStatus} -> httpStatus) (\s@ListManagedResourcesResponse' {} a -> s {httpStatus = a} :: ListManagedResourcesResponse)
+
+-- | The items in the response list.
+listManagedResourcesResponse_items :: Lens.Lens' ListManagedResourcesResponse [ManagedResourceSummary]
+listManagedResourcesResponse_items = Lens.lens (\ListManagedResourcesResponse' {items} -> items) (\s@ListManagedResourcesResponse' {} a -> s {items = a} :: ListManagedResourcesResponse) Prelude.. Lens.coerced
+
+instance Prelude.NFData ListManagedResourcesResponse where
+  rnf ListManagedResourcesResponse' {..} =
+    Prelude.rnf nextToken
+      `Prelude.seq` Prelude.rnf httpStatus
+      `Prelude.seq` Prelude.rnf items
diff --git a/gen/Amazonka/ArcZonalShift/ListZonalShifts.hs b/gen/Amazonka/ArcZonalShift/ListZonalShifts.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/ListZonalShifts.hs
@@ -0,0 +1,275 @@
+{-# 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.ArcZonalShift.ListZonalShifts
+-- Copyright   : (c) 2013-2023 Brendan Hay
+-- License     : Mozilla Public License, v. 2.0.
+-- Maintainer  : Brendan Hay
+-- Stability   : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Lists all the active zonal shifts in Amazon Route 53 Application
+-- Recovery Controller in your AWS account in this AWS Region.
+--
+-- This operation returns paginated results.
+module Amazonka.ArcZonalShift.ListZonalShifts
+  ( -- * Creating a Request
+    ListZonalShifts (..),
+    newListZonalShifts,
+
+    -- * Request Lenses
+    listZonalShifts_maxResults,
+    listZonalShifts_nextToken,
+    listZonalShifts_status,
+
+    -- * Destructuring the Response
+    ListZonalShiftsResponse (..),
+    newListZonalShiftsResponse,
+
+    -- * Response Lenses
+    listZonalShiftsResponse_items,
+    listZonalShiftsResponse_nextToken,
+    listZonalShiftsResponse_httpStatus,
+  )
+where
+
+import Amazonka.ArcZonalShift.Types
+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
+import qualified Amazonka.Request as Request
+import qualified Amazonka.Response as Response
+
+-- | /See:/ 'newListZonalShifts' smart constructor.
+data ListZonalShifts = ListZonalShifts'
+  { -- | The number of objects that you want to return with this call.
+    maxResults :: Prelude.Maybe Prelude.Natural,
+    -- | Specifies that you want to receive the next page of results. Valid only
+    -- if you received a @NextToken@ response in the previous request. If you
+    -- did, it indicates that more output is available. Set this parameter to
+    -- the value provided by the previous call\'s @NextToken@ response to
+    -- request the next page of results.
+    nextToken :: Prelude.Maybe Prelude.Text,
+    -- | A status for a zonal shift.
+    --
+    -- The @Status@ for a zonal shift can have one of the following values:
+    --
+    -- -   __ACTIVE__: The zonal shift is started and active.
+    --
+    -- -   __EXPIRED__: The zonal shift has expired (the expiry time was
+    --     exceeded).
+    --
+    -- -   __CANCELED__: The zonal shift was canceled.
+    status :: Prelude.Maybe ZonalShiftStatus
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'ListZonalShifts' 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', 'listZonalShifts_maxResults' - The number of objects that you want to return with this call.
+--
+-- 'nextToken', 'listZonalShifts_nextToken' - Specifies that you want to receive the next page of results. Valid only
+-- if you received a @NextToken@ response in the previous request. If you
+-- did, it indicates that more output is available. Set this parameter to
+-- the value provided by the previous call\'s @NextToken@ response to
+-- request the next page of results.
+--
+-- 'status', 'listZonalShifts_status' - A status for a zonal shift.
+--
+-- The @Status@ for a zonal shift can have one of the following values:
+--
+-- -   __ACTIVE__: The zonal shift is started and active.
+--
+-- -   __EXPIRED__: The zonal shift has expired (the expiry time was
+--     exceeded).
+--
+-- -   __CANCELED__: The zonal shift was canceled.
+newListZonalShifts ::
+  ListZonalShifts
+newListZonalShifts =
+  ListZonalShifts'
+    { maxResults = Prelude.Nothing,
+      nextToken = Prelude.Nothing,
+      status = Prelude.Nothing
+    }
+
+-- | The number of objects that you want to return with this call.
+listZonalShifts_maxResults :: Lens.Lens' ListZonalShifts (Prelude.Maybe Prelude.Natural)
+listZonalShifts_maxResults = Lens.lens (\ListZonalShifts' {maxResults} -> maxResults) (\s@ListZonalShifts' {} a -> s {maxResults = a} :: ListZonalShifts)
+
+-- | Specifies that you want to receive the next page of results. Valid only
+-- if you received a @NextToken@ response in the previous request. If you
+-- did, it indicates that more output is available. Set this parameter to
+-- the value provided by the previous call\'s @NextToken@ response to
+-- request the next page of results.
+listZonalShifts_nextToken :: Lens.Lens' ListZonalShifts (Prelude.Maybe Prelude.Text)
+listZonalShifts_nextToken = Lens.lens (\ListZonalShifts' {nextToken} -> nextToken) (\s@ListZonalShifts' {} a -> s {nextToken = a} :: ListZonalShifts)
+
+-- | A status for a zonal shift.
+--
+-- The @Status@ for a zonal shift can have one of the following values:
+--
+-- -   __ACTIVE__: The zonal shift is started and active.
+--
+-- -   __EXPIRED__: The zonal shift has expired (the expiry time was
+--     exceeded).
+--
+-- -   __CANCELED__: The zonal shift was canceled.
+listZonalShifts_status :: Lens.Lens' ListZonalShifts (Prelude.Maybe ZonalShiftStatus)
+listZonalShifts_status = Lens.lens (\ListZonalShifts' {status} -> status) (\s@ListZonalShifts' {} a -> s {status = a} :: ListZonalShifts)
+
+instance Core.AWSPager ListZonalShifts where
+  page rq rs
+    | Core.stop
+        ( rs
+            Lens.^? listZonalShiftsResponse_nextToken
+            Prelude.. Lens._Just
+        ) =
+        Prelude.Nothing
+    | Core.stop
+        ( rs
+            Lens.^? listZonalShiftsResponse_items
+            Prelude.. Lens._Just
+        ) =
+        Prelude.Nothing
+    | Prelude.otherwise =
+        Prelude.Just
+          Prelude.$ rq
+          Prelude.& listZonalShifts_nextToken
+          Lens..~ rs
+          Lens.^? listZonalShiftsResponse_nextToken
+          Prelude.. Lens._Just
+
+instance Core.AWSRequest ListZonalShifts where
+  type
+    AWSResponse ListZonalShifts =
+      ListZonalShiftsResponse
+  request overrides =
+    Request.get (overrides defaultService)
+  response =
+    Response.receiveJSON
+      ( \s h x ->
+          ListZonalShiftsResponse'
+            Prelude.<$> (x Data..?> "items" Core..!@ Prelude.mempty)
+            Prelude.<*> (x Data..?> "nextToken")
+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))
+      )
+
+instance Prelude.Hashable ListZonalShifts where
+  hashWithSalt _salt ListZonalShifts' {..} =
+    _salt
+      `Prelude.hashWithSalt` maxResults
+      `Prelude.hashWithSalt` nextToken
+      `Prelude.hashWithSalt` status
+
+instance Prelude.NFData ListZonalShifts where
+  rnf ListZonalShifts' {..} =
+    Prelude.rnf maxResults
+      `Prelude.seq` Prelude.rnf nextToken
+      `Prelude.seq` Prelude.rnf status
+
+instance Data.ToHeaders ListZonalShifts where
+  toHeaders =
+    Prelude.const
+      ( Prelude.mconcat
+          [ "Content-Type"
+              Data.=# ( "application/x-amz-json-1.1" ::
+                          Prelude.ByteString
+                      )
+          ]
+      )
+
+instance Data.ToPath ListZonalShifts where
+  toPath = Prelude.const "/zonalshifts"
+
+instance Data.ToQuery ListZonalShifts where
+  toQuery ListZonalShifts' {..} =
+    Prelude.mconcat
+      [ "maxResults" Data.=: maxResults,
+        "nextToken" Data.=: nextToken,
+        "status" Data.=: status
+      ]
+
+-- | /See:/ 'newListZonalShiftsResponse' smart constructor.
+data ListZonalShiftsResponse = ListZonalShiftsResponse'
+  { -- | The items in the response list.
+    items :: Prelude.Maybe [ZonalShiftSummary],
+    -- | Specifies that you want to receive the next page of results. Valid only
+    -- if you received a @NextToken@ response in the previous request. If you
+    -- did, it indicates that more output is available. Set this parameter to
+    -- the value provided by the previous call\'s @NextToken@ response to
+    -- request the next page of 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 'ListZonalShiftsResponse' 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:
+--
+-- 'items', 'listZonalShiftsResponse_items' - The items in the response list.
+--
+-- 'nextToken', 'listZonalShiftsResponse_nextToken' - Specifies that you want to receive the next page of results. Valid only
+-- if you received a @NextToken@ response in the previous request. If you
+-- did, it indicates that more output is available. Set this parameter to
+-- the value provided by the previous call\'s @NextToken@ response to
+-- request the next page of results.
+--
+-- 'httpStatus', 'listZonalShiftsResponse_httpStatus' - The response's http status code.
+newListZonalShiftsResponse ::
+  -- | 'httpStatus'
+  Prelude.Int ->
+  ListZonalShiftsResponse
+newListZonalShiftsResponse pHttpStatus_ =
+  ListZonalShiftsResponse'
+    { items = Prelude.Nothing,
+      nextToken = Prelude.Nothing,
+      httpStatus = pHttpStatus_
+    }
+
+-- | The items in the response list.
+listZonalShiftsResponse_items :: Lens.Lens' ListZonalShiftsResponse (Prelude.Maybe [ZonalShiftSummary])
+listZonalShiftsResponse_items = Lens.lens (\ListZonalShiftsResponse' {items} -> items) (\s@ListZonalShiftsResponse' {} a -> s {items = a} :: ListZonalShiftsResponse) Prelude.. Lens.mapping Lens.coerced
+
+-- | Specifies that you want to receive the next page of results. Valid only
+-- if you received a @NextToken@ response in the previous request. If you
+-- did, it indicates that more output is available. Set this parameter to
+-- the value provided by the previous call\'s @NextToken@ response to
+-- request the next page of results.
+listZonalShiftsResponse_nextToken :: Lens.Lens' ListZonalShiftsResponse (Prelude.Maybe Prelude.Text)
+listZonalShiftsResponse_nextToken = Lens.lens (\ListZonalShiftsResponse' {nextToken} -> nextToken) (\s@ListZonalShiftsResponse' {} a -> s {nextToken = a} :: ListZonalShiftsResponse)
+
+-- | The response's http status code.
+listZonalShiftsResponse_httpStatus :: Lens.Lens' ListZonalShiftsResponse Prelude.Int
+listZonalShiftsResponse_httpStatus = Lens.lens (\ListZonalShiftsResponse' {httpStatus} -> httpStatus) (\s@ListZonalShiftsResponse' {} a -> s {httpStatus = a} :: ListZonalShiftsResponse)
+
+instance Prelude.NFData ListZonalShiftsResponse where
+  rnf ListZonalShiftsResponse' {..} =
+    Prelude.rnf items
+      `Prelude.seq` Prelude.rnf nextToken
+      `Prelude.seq` Prelude.rnf httpStatus
diff --git a/gen/Amazonka/ArcZonalShift/StartZonalShift.hs b/gen/Amazonka/ArcZonalShift/StartZonalShift.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/StartZonalShift.hs
@@ -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.ArcZonalShift.StartZonalShift
+-- Copyright   : (c) 2013-2023 Brendan Hay
+-- License     : Mozilla Public License, v. 2.0.
+-- Maintainer  : Brendan Hay
+-- Stability   : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- You start a zonal shift to temporarily move load balancer traffic away
+-- from an Availability Zone in a AWS Region, to help your application
+-- recover immediately, for example, from a developer\'s bad code
+-- deployment or from an AWS infrastructure failure in a single
+-- Availability Zone. You can start a zonal shift in Route 53 ARC only for
+-- managed resources in your account in an AWS Region. Resources are
+-- automatically registered with Route 53 ARC by AWS services.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+--
+-- When you start a zonal shift, traffic for the resource is no longer
+-- routed to the Availability Zone. The zonal shift is created immediately
+-- in Route 53 ARC. However, it can take a short time, typically up to a
+-- few minutes, for existing, in-progress connections in the Availability
+-- Zone to complete.
+--
+-- For more information, see
+-- <https://docs.aws.amazon.com/r53recovery/latest/dg/arc-zonal-shift.html Zonal shift>
+-- in the Amazon Route 53 Application Recovery Controller Developer Guide.
+module Amazonka.ArcZonalShift.StartZonalShift
+  ( -- * Creating a Request
+    StartZonalShift (..),
+    newStartZonalShift,
+
+    -- * Request Lenses
+    startZonalShift_awayFrom,
+    startZonalShift_comment,
+    startZonalShift_expiresIn,
+    startZonalShift_resourceIdentifier,
+
+    -- * Destructuring the Response
+    ZonalShift (..),
+    newZonalShift,
+
+    -- * Response Lenses
+    zonalShift_awayFrom,
+    zonalShift_comment,
+    zonalShift_expiryTime,
+    zonalShift_resourceIdentifier,
+    zonalShift_startTime,
+    zonalShift_status,
+    zonalShift_zonalShiftId,
+  )
+where
+
+import Amazonka.ArcZonalShift.Types
+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
+import qualified Amazonka.Request as Request
+import qualified Amazonka.Response as Response
+
+-- | /See:/ 'newStartZonalShift' smart constructor.
+data StartZonalShift = StartZonalShift'
+  { -- | The Availability Zone that traffic is moved away from for a resource
+    -- when you start a zonal shift. Until the zonal shift expires or you
+    -- cancel it, traffic for the resource is instead moved to other
+    -- Availability Zones in the AWS Region.
+    awayFrom :: Prelude.Text,
+    -- | A comment that you enter about the zonal shift. Only the latest comment
+    -- is retained; no comment history is maintained. A new comment overwrites
+    -- any existing comment string.
+    comment :: Prelude.Text,
+    -- | The length of time that you want a zonal shift to be active, which Route
+    -- 53 ARC converts to an expiry time (expiration time). Zonal shifts are
+    -- temporary. You can set a zonal shift to be active initially for up to
+    -- three days (72 hours).
+    --
+    -- If you want to still keep traffic away from an Availability Zone, you
+    -- can update the zonal shift and set a new expiration. You can also cancel
+    -- a zonal shift, before it expires, for example, if you\'re ready to
+    -- restore traffic to the Availability Zone.
+    --
+    -- To set a length of time for a zonal shift to be active, specify a whole
+    -- number, and then one of the following, with no space:
+    --
+    -- >  <ul> <li> <p> <b>A lowercase letter m:</b> To specify that the value is in minutes.</p> </li> <li> <p> <b>A lowercase letter h:</b> To specify that the value is in hours.</p> </li> </ul> <p>For example: <code>20h</code> means the zonal shift expires in 20 hours. <code>120m</code> means the zonal shift expires in 120 minutes (2 hours).</p>
+    expiresIn :: Prelude.Text,
+    -- | The identifier for the resource to include in a zonal shift. The
+    -- identifier is the Amazon Resource Name (ARN) for the resource.
+    --
+    -- At this time, you can only start a zonal shift for Network Load
+    -- Balancers and Application Load Balancers with cross-zone load balancing
+    -- turned off.
+    resourceIdentifier :: Prelude.Text
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'StartZonalShift' 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:
+--
+-- 'awayFrom', 'startZonalShift_awayFrom' - The Availability Zone that traffic is moved away from for a resource
+-- when you start a zonal shift. Until the zonal shift expires or you
+-- cancel it, traffic for the resource is instead moved to other
+-- Availability Zones in the AWS Region.
+--
+-- 'comment', 'startZonalShift_comment' - A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. A new comment overwrites
+-- any existing comment string.
+--
+-- 'expiresIn', 'startZonalShift_expiresIn' - The length of time that you want a zonal shift to be active, which Route
+-- 53 ARC converts to an expiry time (expiration time). Zonal shifts are
+-- temporary. You can set a zonal shift to be active initially for up to
+-- three days (72 hours).
+--
+-- If you want to still keep traffic away from an Availability Zone, you
+-- can update the zonal shift and set a new expiration. You can also cancel
+-- a zonal shift, before it expires, for example, if you\'re ready to
+-- restore traffic to the Availability Zone.
+--
+-- To set a length of time for a zonal shift to be active, specify a whole
+-- number, and then one of the following, with no space:
+--
+-- >  <ul> <li> <p> <b>A lowercase letter m:</b> To specify that the value is in minutes.</p> </li> <li> <p> <b>A lowercase letter h:</b> To specify that the value is in hours.</p> </li> </ul> <p>For example: <code>20h</code> means the zonal shift expires in 20 hours. <code>120m</code> means the zonal shift expires in 120 minutes (2 hours).</p>
+--
+-- 'resourceIdentifier', 'startZonalShift_resourceIdentifier' - The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+newStartZonalShift ::
+  -- | 'awayFrom'
+  Prelude.Text ->
+  -- | 'comment'
+  Prelude.Text ->
+  -- | 'expiresIn'
+  Prelude.Text ->
+  -- | 'resourceIdentifier'
+  Prelude.Text ->
+  StartZonalShift
+newStartZonalShift
+  pAwayFrom_
+  pComment_
+  pExpiresIn_
+  pResourceIdentifier_ =
+    StartZonalShift'
+      { awayFrom = pAwayFrom_,
+        comment = pComment_,
+        expiresIn = pExpiresIn_,
+        resourceIdentifier = pResourceIdentifier_
+      }
+
+-- | The Availability Zone that traffic is moved away from for a resource
+-- when you start a zonal shift. Until the zonal shift expires or you
+-- cancel it, traffic for the resource is instead moved to other
+-- Availability Zones in the AWS Region.
+startZonalShift_awayFrom :: Lens.Lens' StartZonalShift Prelude.Text
+startZonalShift_awayFrom = Lens.lens (\StartZonalShift' {awayFrom} -> awayFrom) (\s@StartZonalShift' {} a -> s {awayFrom = a} :: StartZonalShift)
+
+-- | A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. A new comment overwrites
+-- any existing comment string.
+startZonalShift_comment :: Lens.Lens' StartZonalShift Prelude.Text
+startZonalShift_comment = Lens.lens (\StartZonalShift' {comment} -> comment) (\s@StartZonalShift' {} a -> s {comment = a} :: StartZonalShift)
+
+-- | The length of time that you want a zonal shift to be active, which Route
+-- 53 ARC converts to an expiry time (expiration time). Zonal shifts are
+-- temporary. You can set a zonal shift to be active initially for up to
+-- three days (72 hours).
+--
+-- If you want to still keep traffic away from an Availability Zone, you
+-- can update the zonal shift and set a new expiration. You can also cancel
+-- a zonal shift, before it expires, for example, if you\'re ready to
+-- restore traffic to the Availability Zone.
+--
+-- To set a length of time for a zonal shift to be active, specify a whole
+-- number, and then one of the following, with no space:
+--
+-- >  <ul> <li> <p> <b>A lowercase letter m:</b> To specify that the value is in minutes.</p> </li> <li> <p> <b>A lowercase letter h:</b> To specify that the value is in hours.</p> </li> </ul> <p>For example: <code>20h</code> means the zonal shift expires in 20 hours. <code>120m</code> means the zonal shift expires in 120 minutes (2 hours).</p>
+startZonalShift_expiresIn :: Lens.Lens' StartZonalShift Prelude.Text
+startZonalShift_expiresIn = Lens.lens (\StartZonalShift' {expiresIn} -> expiresIn) (\s@StartZonalShift' {} a -> s {expiresIn = a} :: StartZonalShift)
+
+-- | The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+startZonalShift_resourceIdentifier :: Lens.Lens' StartZonalShift Prelude.Text
+startZonalShift_resourceIdentifier = Lens.lens (\StartZonalShift' {resourceIdentifier} -> resourceIdentifier) (\s@StartZonalShift' {} a -> s {resourceIdentifier = a} :: StartZonalShift)
+
+instance Core.AWSRequest StartZonalShift where
+  type AWSResponse StartZonalShift = ZonalShift
+  request overrides =
+    Request.postJSON (overrides defaultService)
+  response =
+    Response.receiveJSON
+      (\s h x -> Data.eitherParseJSON x)
+
+instance Prelude.Hashable StartZonalShift where
+  hashWithSalt _salt StartZonalShift' {..} =
+    _salt
+      `Prelude.hashWithSalt` awayFrom
+      `Prelude.hashWithSalt` comment
+      `Prelude.hashWithSalt` expiresIn
+      `Prelude.hashWithSalt` resourceIdentifier
+
+instance Prelude.NFData StartZonalShift where
+  rnf StartZonalShift' {..} =
+    Prelude.rnf awayFrom
+      `Prelude.seq` Prelude.rnf comment
+      `Prelude.seq` Prelude.rnf expiresIn
+      `Prelude.seq` Prelude.rnf resourceIdentifier
+
+instance Data.ToHeaders StartZonalShift where
+  toHeaders =
+    Prelude.const
+      ( Prelude.mconcat
+          [ "Content-Type"
+              Data.=# ( "application/x-amz-json-1.1" ::
+                          Prelude.ByteString
+                      )
+          ]
+      )
+
+instance Data.ToJSON StartZonalShift where
+  toJSON StartZonalShift' {..} =
+    Data.object
+      ( Prelude.catMaybes
+          [ Prelude.Just ("awayFrom" Data..= awayFrom),
+            Prelude.Just ("comment" Data..= comment),
+            Prelude.Just ("expiresIn" Data..= expiresIn),
+            Prelude.Just
+              ("resourceIdentifier" Data..= resourceIdentifier)
+          ]
+      )
+
+instance Data.ToPath StartZonalShift where
+  toPath = Prelude.const "/zonalshifts"
+
+instance Data.ToQuery StartZonalShift where
+  toQuery = Prelude.const Prelude.mempty
diff --git a/gen/Amazonka/ArcZonalShift/Types.hs b/gen/Amazonka/ArcZonalShift/Types.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Types.hs
@@ -0,0 +1,204 @@
+{-# 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.ArcZonalShift.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.ArcZonalShift.Types
+  ( -- * Service Configuration
+    defaultService,
+
+    -- * Errors
+    _AccessDeniedException,
+    _ConflictException,
+    _InternalServerException,
+    _ResourceNotFoundException,
+    _ThrottlingException,
+    _ValidationException,
+
+    -- * AppliedStatus
+    AppliedStatus (..),
+
+    -- * ZonalShiftStatus
+    ZonalShiftStatus (..),
+
+    -- * ManagedResourceSummary
+    ManagedResourceSummary (..),
+    newManagedResourceSummary,
+    managedResourceSummary_arn,
+    managedResourceSummary_name,
+    managedResourceSummary_availabilityZones,
+
+    -- * ZonalShift
+    ZonalShift (..),
+    newZonalShift,
+    zonalShift_awayFrom,
+    zonalShift_comment,
+    zonalShift_expiryTime,
+    zonalShift_resourceIdentifier,
+    zonalShift_startTime,
+    zonalShift_status,
+    zonalShift_zonalShiftId,
+
+    -- * ZonalShiftInResource
+    ZonalShiftInResource (..),
+    newZonalShiftInResource,
+    zonalShiftInResource_appliedStatus,
+    zonalShiftInResource_awayFrom,
+    zonalShiftInResource_comment,
+    zonalShiftInResource_expiryTime,
+    zonalShiftInResource_resourceIdentifier,
+    zonalShiftInResource_startTime,
+    zonalShiftInResource_zonalShiftId,
+
+    -- * ZonalShiftSummary
+    ZonalShiftSummary (..),
+    newZonalShiftSummary,
+    zonalShiftSummary_awayFrom,
+    zonalShiftSummary_comment,
+    zonalShiftSummary_expiryTime,
+    zonalShiftSummary_resourceIdentifier,
+    zonalShiftSummary_startTime,
+    zonalShiftSummary_status,
+    zonalShiftSummary_zonalShiftId,
+  )
+where
+
+import Amazonka.ArcZonalShift.Types.AppliedStatus
+import Amazonka.ArcZonalShift.Types.ManagedResourceSummary
+import Amazonka.ArcZonalShift.Types.ZonalShift
+import Amazonka.ArcZonalShift.Types.ZonalShiftInResource
+import Amazonka.ArcZonalShift.Types.ZonalShiftStatus
+import Amazonka.ArcZonalShift.Types.ZonalShiftSummary
+import qualified Amazonka.Core as Core
+import qualified Amazonka.Core.Lens.Internal as Lens
+import qualified Amazonka.Prelude as Prelude
+import qualified Amazonka.Sign.V4 as Sign
+
+-- | API version @2022-10-30@ of the Amazon ARC - Zonal Shift SDK configuration.
+defaultService :: Core.Service
+defaultService =
+  Core.Service
+    { Core.abbrev = "ArcZonalShift",
+      Core.signer = Sign.v4,
+      Core.endpointPrefix = "arc-zonal-shift",
+      Core.signingName = "arc-zonal-shift",
+      Core.version = "2022-10-30",
+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,
+      Core.endpoint = Core.defaultEndpoint defaultService,
+      Core.timeout = Prelude.Just 70,
+      Core.check = Core.statusSuccess,
+      Core.error = Core.parseJSONError "ArcZonalShift",
+      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
+
+-- | You do not have sufficient access to perform this action.
+_AccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
+_AccessDeniedException =
+  Core._MatchServiceError
+    defaultService
+    "AccessDeniedException"
+    Prelude.. Core.hasStatus 403
+
+-- | The request could not be processed because of conflict in the current
+-- state of the resource.
+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
+_ConflictException =
+  Core._MatchServiceError
+    defaultService
+    "ConflictException"
+    Prelude.. Core.hasStatus 409
+
+-- | There was an internal server error.
+_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
+_InternalServerException =
+  Core._MatchServiceError
+    defaultService
+    "InternalServerException"
+    Prelude.. Core.hasStatus 500
+
+-- | The input requested a resource that was not found.
+_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
+_ResourceNotFoundException =
+  Core._MatchServiceError
+    defaultService
+    "ResourceNotFoundException"
+    Prelude.. Core.hasStatus 404
+
+-- | 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 input fails to satisfy the constraints specified by an AWS service.
+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
+_ValidationException =
+  Core._MatchServiceError
+    defaultService
+    "ValidationException"
+    Prelude.. Core.hasStatus 400
diff --git a/gen/Amazonka/ArcZonalShift/Types/AppliedStatus.hs b/gen/Amazonka/ArcZonalShift/Types/AppliedStatus.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Types/AppliedStatus.hs
@@ -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.ArcZonalShift.Types.AppliedStatus
+-- 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.ArcZonalShift.Types.AppliedStatus
+  ( AppliedStatus
+      ( ..,
+        AppliedStatus_APPLIED,
+        AppliedStatus_NOT_APPLIED
+      ),
+  )
+where
+
+import qualified Amazonka.Core as Core
+import qualified Amazonka.Data as Data
+import qualified Amazonka.Prelude as Prelude
+
+newtype AppliedStatus = AppliedStatus'
+  { fromAppliedStatus ::
+      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 AppliedStatus_APPLIED :: AppliedStatus
+pattern AppliedStatus_APPLIED = AppliedStatus' "APPLIED"
+
+pattern AppliedStatus_NOT_APPLIED :: AppliedStatus
+pattern AppliedStatus_NOT_APPLIED = AppliedStatus' "NOT_APPLIED"
+
+{-# COMPLETE
+  AppliedStatus_APPLIED,
+  AppliedStatus_NOT_APPLIED,
+  AppliedStatus'
+  #-}
diff --git a/gen/Amazonka/ArcZonalShift/Types/ManagedResourceSummary.hs b/gen/Amazonka/ArcZonalShift/Types/ManagedResourceSummary.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Types/ManagedResourceSummary.hs
@@ -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.ArcZonalShift.Types.ManagedResourceSummary
+-- 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.ArcZonalShift.Types.ManagedResourceSummary where
+
+import qualified Amazonka.Core as Core
+import qualified Amazonka.Core.Lens.Internal as Lens
+import qualified Amazonka.Data as Data
+import qualified Amazonka.Prelude as Prelude
+
+-- | A complex structure for a managed resource in an account.
+--
+-- A managed resource is a Network Load Balancer or Application Load
+-- Balancer that has been registered with Route 53 ARC by Elastic Load
+-- Balancing. You can start a zonal shift in Route 53 ARC for a managed
+-- resource to temporarily move traffic for the resource away from an
+-- Availability Zone in an AWS Region.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+--
+-- /See:/ 'newManagedResourceSummary' smart constructor.
+data ManagedResourceSummary = ManagedResourceSummary'
+  { -- | The Amazon Resource Name (ARN) for the managed resource.
+    arn :: Prelude.Maybe Prelude.Text,
+    -- | The name of the managed resource.
+    name :: Prelude.Maybe Prelude.Text,
+    -- | The Availability Zones that a resource is deployed in.
+    availabilityZones :: [Prelude.Text]
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'ManagedResourceSummary' 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:
+--
+-- 'arn', 'managedResourceSummary_arn' - The Amazon Resource Name (ARN) for the managed resource.
+--
+-- 'name', 'managedResourceSummary_name' - The name of the managed resource.
+--
+-- 'availabilityZones', 'managedResourceSummary_availabilityZones' - The Availability Zones that a resource is deployed in.
+newManagedResourceSummary ::
+  ManagedResourceSummary
+newManagedResourceSummary =
+  ManagedResourceSummary'
+    { arn = Prelude.Nothing,
+      name = Prelude.Nothing,
+      availabilityZones = Prelude.mempty
+    }
+
+-- | The Amazon Resource Name (ARN) for the managed resource.
+managedResourceSummary_arn :: Lens.Lens' ManagedResourceSummary (Prelude.Maybe Prelude.Text)
+managedResourceSummary_arn = Lens.lens (\ManagedResourceSummary' {arn} -> arn) (\s@ManagedResourceSummary' {} a -> s {arn = a} :: ManagedResourceSummary)
+
+-- | The name of the managed resource.
+managedResourceSummary_name :: Lens.Lens' ManagedResourceSummary (Prelude.Maybe Prelude.Text)
+managedResourceSummary_name = Lens.lens (\ManagedResourceSummary' {name} -> name) (\s@ManagedResourceSummary' {} a -> s {name = a} :: ManagedResourceSummary)
+
+-- | The Availability Zones that a resource is deployed in.
+managedResourceSummary_availabilityZones :: Lens.Lens' ManagedResourceSummary [Prelude.Text]
+managedResourceSummary_availabilityZones = Lens.lens (\ManagedResourceSummary' {availabilityZones} -> availabilityZones) (\s@ManagedResourceSummary' {} a -> s {availabilityZones = a} :: ManagedResourceSummary) Prelude.. Lens.coerced
+
+instance Data.FromJSON ManagedResourceSummary where
+  parseJSON =
+    Data.withObject
+      "ManagedResourceSummary"
+      ( \x ->
+          ManagedResourceSummary'
+            Prelude.<$> (x Data..:? "arn")
+            Prelude.<*> (x Data..:? "name")
+            Prelude.<*> ( x
+                            Data..:? "availabilityZones"
+                            Data..!= Prelude.mempty
+                        )
+      )
+
+instance Prelude.Hashable ManagedResourceSummary where
+  hashWithSalt _salt ManagedResourceSummary' {..} =
+    _salt
+      `Prelude.hashWithSalt` arn
+      `Prelude.hashWithSalt` name
+      `Prelude.hashWithSalt` availabilityZones
+
+instance Prelude.NFData ManagedResourceSummary where
+  rnf ManagedResourceSummary' {..} =
+    Prelude.rnf arn
+      `Prelude.seq` Prelude.rnf name
+      `Prelude.seq` Prelude.rnf availabilityZones
diff --git a/gen/Amazonka/ArcZonalShift/Types/ZonalShift.hs b/gen/Amazonka/ArcZonalShift/Types/ZonalShift.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Types/ZonalShift.hs
@@ -0,0 +1,251 @@
+{-# 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.ArcZonalShift.Types.ZonalShift
+-- 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.ArcZonalShift.Types.ZonalShift where
+
+import Amazonka.ArcZonalShift.Types.ZonalShiftStatus
+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
+
+-- | /See:/ 'newZonalShift' smart constructor.
+data ZonalShift = ZonalShift'
+  { -- | The Availability Zone that traffic is moved away from for a resource
+    -- when you start a zonal shift. Until the zonal shift expires or you
+    -- cancel it, traffic for the resource is instead moved to other
+    -- Availability Zones in the AWS Region.
+    awayFrom :: Prelude.Text,
+    -- | A comment that you enter about the zonal shift. Only the latest comment
+    -- is retained; no comment history is maintained. A new comment overwrites
+    -- any existing comment string.
+    comment :: Prelude.Text,
+    -- | The expiry time (expiration time) for the zonal shift. A zonal shift is
+    -- temporary and must be set to expire when you start the zonal shift. You
+    -- can initially set a zonal shift to expire in a maximum of three days (72
+    -- hours). However, you can update a zonal shift to set a new expiration at
+    -- any time.
+    --
+    -- When you start a zonal shift, you specify how long you want it to be
+    -- active, which Route 53 ARC converts to an expiry time (expiration time).
+    -- You can cancel a zonal shift, for example, if you\'re ready to restore
+    -- traffic to the Availability Zone. Or you can update the zonal shift to
+    -- specify another length of time to expire in.
+    expiryTime :: Data.POSIX,
+    -- | The identifier for the resource to include in a zonal shift. The
+    -- identifier is the Amazon Resource Name (ARN) for the resource.
+    --
+    -- At this time, you can only start a zonal shift for Network Load
+    -- Balancers and Application Load Balancers with cross-zone load balancing
+    -- turned off.
+    resourceIdentifier :: Prelude.Text,
+    -- | The time (UTC) when the zonal shift is started.
+    startTime :: Data.POSIX,
+    -- | A status for a zonal shift.
+    --
+    -- The @Status@ for a zonal shift can have one of the following values:
+    --
+    -- -   __ACTIVE:__ The zonal shift is started and active.
+    --
+    -- -   __EXPIRED:__ The zonal shift has expired (the expiry time was
+    --     exceeded).
+    --
+    -- -   __CANCELED:__ The zonal shift was canceled.
+    status :: ZonalShiftStatus,
+    -- | The identifier of a zonal shift.
+    zonalShiftId :: Prelude.Text
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'ZonalShift' 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:
+--
+-- 'awayFrom', 'zonalShift_awayFrom' - The Availability Zone that traffic is moved away from for a resource
+-- when you start a zonal shift. Until the zonal shift expires or you
+-- cancel it, traffic for the resource is instead moved to other
+-- Availability Zones in the AWS Region.
+--
+-- 'comment', 'zonalShift_comment' - A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. A new comment overwrites
+-- any existing comment string.
+--
+-- 'expiryTime', 'zonalShift_expiryTime' - The expiry time (expiration time) for the zonal shift. A zonal shift is
+-- temporary and must be set to expire when you start the zonal shift. You
+-- can initially set a zonal shift to expire in a maximum of three days (72
+-- hours). However, you can update a zonal shift to set a new expiration at
+-- any time.
+--
+-- When you start a zonal shift, you specify how long you want it to be
+-- active, which Route 53 ARC converts to an expiry time (expiration time).
+-- You can cancel a zonal shift, for example, if you\'re ready to restore
+-- traffic to the Availability Zone. Or you can update the zonal shift to
+-- specify another length of time to expire in.
+--
+-- 'resourceIdentifier', 'zonalShift_resourceIdentifier' - The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+--
+-- 'startTime', 'zonalShift_startTime' - The time (UTC) when the zonal shift is started.
+--
+-- 'status', 'zonalShift_status' - A status for a zonal shift.
+--
+-- The @Status@ for a zonal shift can have one of the following values:
+--
+-- -   __ACTIVE:__ The zonal shift is started and active.
+--
+-- -   __EXPIRED:__ The zonal shift has expired (the expiry time was
+--     exceeded).
+--
+-- -   __CANCELED:__ The zonal shift was canceled.
+--
+-- 'zonalShiftId', 'zonalShift_zonalShiftId' - The identifier of a zonal shift.
+newZonalShift ::
+  -- | 'awayFrom'
+  Prelude.Text ->
+  -- | 'comment'
+  Prelude.Text ->
+  -- | 'expiryTime'
+  Prelude.UTCTime ->
+  -- | 'resourceIdentifier'
+  Prelude.Text ->
+  -- | 'startTime'
+  Prelude.UTCTime ->
+  -- | 'status'
+  ZonalShiftStatus ->
+  -- | 'zonalShiftId'
+  Prelude.Text ->
+  ZonalShift
+newZonalShift
+  pAwayFrom_
+  pComment_
+  pExpiryTime_
+  pResourceIdentifier_
+  pStartTime_
+  pStatus_
+  pZonalShiftId_ =
+    ZonalShift'
+      { awayFrom = pAwayFrom_,
+        comment = pComment_,
+        expiryTime = Data._Time Lens.# pExpiryTime_,
+        resourceIdentifier = pResourceIdentifier_,
+        startTime = Data._Time Lens.# pStartTime_,
+        status = pStatus_,
+        zonalShiftId = pZonalShiftId_
+      }
+
+-- | The Availability Zone that traffic is moved away from for a resource
+-- when you start a zonal shift. Until the zonal shift expires or you
+-- cancel it, traffic for the resource is instead moved to other
+-- Availability Zones in the AWS Region.
+zonalShift_awayFrom :: Lens.Lens' ZonalShift Prelude.Text
+zonalShift_awayFrom = Lens.lens (\ZonalShift' {awayFrom} -> awayFrom) (\s@ZonalShift' {} a -> s {awayFrom = a} :: ZonalShift)
+
+-- | A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. A new comment overwrites
+-- any existing comment string.
+zonalShift_comment :: Lens.Lens' ZonalShift Prelude.Text
+zonalShift_comment = Lens.lens (\ZonalShift' {comment} -> comment) (\s@ZonalShift' {} a -> s {comment = a} :: ZonalShift)
+
+-- | The expiry time (expiration time) for the zonal shift. A zonal shift is
+-- temporary and must be set to expire when you start the zonal shift. You
+-- can initially set a zonal shift to expire in a maximum of three days (72
+-- hours). However, you can update a zonal shift to set a new expiration at
+-- any time.
+--
+-- When you start a zonal shift, you specify how long you want it to be
+-- active, which Route 53 ARC converts to an expiry time (expiration time).
+-- You can cancel a zonal shift, for example, if you\'re ready to restore
+-- traffic to the Availability Zone. Or you can update the zonal shift to
+-- specify another length of time to expire in.
+zonalShift_expiryTime :: Lens.Lens' ZonalShift Prelude.UTCTime
+zonalShift_expiryTime = Lens.lens (\ZonalShift' {expiryTime} -> expiryTime) (\s@ZonalShift' {} a -> s {expiryTime = a} :: ZonalShift) Prelude.. Data._Time
+
+-- | The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+zonalShift_resourceIdentifier :: Lens.Lens' ZonalShift Prelude.Text
+zonalShift_resourceIdentifier = Lens.lens (\ZonalShift' {resourceIdentifier} -> resourceIdentifier) (\s@ZonalShift' {} a -> s {resourceIdentifier = a} :: ZonalShift)
+
+-- | The time (UTC) when the zonal shift is started.
+zonalShift_startTime :: Lens.Lens' ZonalShift Prelude.UTCTime
+zonalShift_startTime = Lens.lens (\ZonalShift' {startTime} -> startTime) (\s@ZonalShift' {} a -> s {startTime = a} :: ZonalShift) Prelude.. Data._Time
+
+-- | A status for a zonal shift.
+--
+-- The @Status@ for a zonal shift can have one of the following values:
+--
+-- -   __ACTIVE:__ The zonal shift is started and active.
+--
+-- -   __EXPIRED:__ The zonal shift has expired (the expiry time was
+--     exceeded).
+--
+-- -   __CANCELED:__ The zonal shift was canceled.
+zonalShift_status :: Lens.Lens' ZonalShift ZonalShiftStatus
+zonalShift_status = Lens.lens (\ZonalShift' {status} -> status) (\s@ZonalShift' {} a -> s {status = a} :: ZonalShift)
+
+-- | The identifier of a zonal shift.
+zonalShift_zonalShiftId :: Lens.Lens' ZonalShift Prelude.Text
+zonalShift_zonalShiftId = Lens.lens (\ZonalShift' {zonalShiftId} -> zonalShiftId) (\s@ZonalShift' {} a -> s {zonalShiftId = a} :: ZonalShift)
+
+instance Data.FromJSON ZonalShift where
+  parseJSON =
+    Data.withObject
+      "ZonalShift"
+      ( \x ->
+          ZonalShift'
+            Prelude.<$> (x Data..: "awayFrom")
+            Prelude.<*> (x Data..: "comment")
+            Prelude.<*> (x Data..: "expiryTime")
+            Prelude.<*> (x Data..: "resourceIdentifier")
+            Prelude.<*> (x Data..: "startTime")
+            Prelude.<*> (x Data..: "status")
+            Prelude.<*> (x Data..: "zonalShiftId")
+      )
+
+instance Prelude.Hashable ZonalShift where
+  hashWithSalt _salt ZonalShift' {..} =
+    _salt
+      `Prelude.hashWithSalt` awayFrom
+      `Prelude.hashWithSalt` comment
+      `Prelude.hashWithSalt` expiryTime
+      `Prelude.hashWithSalt` resourceIdentifier
+      `Prelude.hashWithSalt` startTime
+      `Prelude.hashWithSalt` status
+      `Prelude.hashWithSalt` zonalShiftId
+
+instance Prelude.NFData ZonalShift where
+  rnf ZonalShift' {..} =
+    Prelude.rnf awayFrom
+      `Prelude.seq` Prelude.rnf comment
+      `Prelude.seq` Prelude.rnf expiryTime
+      `Prelude.seq` Prelude.rnf resourceIdentifier
+      `Prelude.seq` Prelude.rnf startTime
+      `Prelude.seq` Prelude.rnf status
+      `Prelude.seq` Prelude.rnf zonalShiftId
diff --git a/gen/Amazonka/ArcZonalShift/Types/ZonalShiftInResource.hs b/gen/Amazonka/ArcZonalShift/Types/ZonalShiftInResource.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Types/ZonalShiftInResource.hs
@@ -0,0 +1,231 @@
+{-# 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.ArcZonalShift.Types.ZonalShiftInResource
+-- 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.ArcZonalShift.Types.ZonalShiftInResource where
+
+import Amazonka.ArcZonalShift.Types.AppliedStatus
+import qualified Amazonka.Core as Core
+import qualified Amazonka.Core.Lens.Internal as Lens
+import qualified Amazonka.Data as Data
+import qualified Amazonka.Prelude as Prelude
+
+-- | A complex structure that lists the zonal shifts for a managed resource
+-- and their statuses for the resource.
+--
+-- /See:/ 'newZonalShiftInResource' smart constructor.
+data ZonalShiftInResource = ZonalShiftInResource'
+  { -- | An @appliedStatus@ for a zonal shift for a resource can have one of two
+    -- values: @APPLIED@ or @NOT_APPLIED@.
+    appliedStatus :: AppliedStatus,
+    -- | The Availability Zone that traffic is moved away from for a resource
+    -- when you start a zonal shift. Until the zonal shift expires or you
+    -- cancel it, traffic for the resource is instead moved to other
+    -- Availability Zones in the AWS Region.
+    awayFrom :: Prelude.Text,
+    -- | A comment that you enter about the zonal shift. Only the latest comment
+    -- is retained; no comment history is maintained. That is, a new comment
+    -- overwrites any existing comment string.
+    comment :: Prelude.Text,
+    -- | The expiry time (expiration time) for the zonal shift. A zonal shift is
+    -- temporary and must be set to expire when you start the zonal shift. You
+    -- can initially set a zonal shift to expire in a maximum of three days (72
+    -- hours). However, you can update a zonal shift to set a new expiration at
+    -- any time.
+    --
+    -- When you start a zonal shift, you specify how long you want it to be
+    -- active, which Route 53 ARC converts to an expiry time (expiration time).
+    -- You can cancel a zonal shift, for example, if you\'re ready to restore
+    -- traffic to the Availability Zone. Or you can update the zonal shift to
+    -- specify another length of time to expire in.
+    expiryTime :: Data.POSIX,
+    -- | The identifier for the resource to include in a zonal shift. The
+    -- identifier is the Amazon Resource Name (ARN) for the resource.
+    --
+    -- At this time, you can only start a zonal shift for Network Load
+    -- Balancers and Application Load Balancers with cross-zone load balancing
+    -- turned off.
+    resourceIdentifier :: Prelude.Text,
+    -- | The time (UTC) when the zonal shift is started.
+    startTime :: Data.POSIX,
+    -- | The identifier of a zonal shift.
+    zonalShiftId :: Prelude.Text
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'ZonalShiftInResource' 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:
+--
+-- 'appliedStatus', 'zonalShiftInResource_appliedStatus' - An @appliedStatus@ for a zonal shift for a resource can have one of two
+-- values: @APPLIED@ or @NOT_APPLIED@.
+--
+-- 'awayFrom', 'zonalShiftInResource_awayFrom' - The Availability Zone that traffic is moved away from for a resource
+-- when you start a zonal shift. Until the zonal shift expires or you
+-- cancel it, traffic for the resource is instead moved to other
+-- Availability Zones in the AWS Region.
+--
+-- 'comment', 'zonalShiftInResource_comment' - A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. That is, a new comment
+-- overwrites any existing comment string.
+--
+-- 'expiryTime', 'zonalShiftInResource_expiryTime' - The expiry time (expiration time) for the zonal shift. A zonal shift is
+-- temporary and must be set to expire when you start the zonal shift. You
+-- can initially set a zonal shift to expire in a maximum of three days (72
+-- hours). However, you can update a zonal shift to set a new expiration at
+-- any time.
+--
+-- When you start a zonal shift, you specify how long you want it to be
+-- active, which Route 53 ARC converts to an expiry time (expiration time).
+-- You can cancel a zonal shift, for example, if you\'re ready to restore
+-- traffic to the Availability Zone. Or you can update the zonal shift to
+-- specify another length of time to expire in.
+--
+-- 'resourceIdentifier', 'zonalShiftInResource_resourceIdentifier' - The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+--
+-- 'startTime', 'zonalShiftInResource_startTime' - The time (UTC) when the zonal shift is started.
+--
+-- 'zonalShiftId', 'zonalShiftInResource_zonalShiftId' - The identifier of a zonal shift.
+newZonalShiftInResource ::
+  -- | 'appliedStatus'
+  AppliedStatus ->
+  -- | 'awayFrom'
+  Prelude.Text ->
+  -- | 'comment'
+  Prelude.Text ->
+  -- | 'expiryTime'
+  Prelude.UTCTime ->
+  -- | 'resourceIdentifier'
+  Prelude.Text ->
+  -- | 'startTime'
+  Prelude.UTCTime ->
+  -- | 'zonalShiftId'
+  Prelude.Text ->
+  ZonalShiftInResource
+newZonalShiftInResource
+  pAppliedStatus_
+  pAwayFrom_
+  pComment_
+  pExpiryTime_
+  pResourceIdentifier_
+  pStartTime_
+  pZonalShiftId_ =
+    ZonalShiftInResource'
+      { appliedStatus =
+          pAppliedStatus_,
+        awayFrom = pAwayFrom_,
+        comment = pComment_,
+        expiryTime = Data._Time Lens.# pExpiryTime_,
+        resourceIdentifier = pResourceIdentifier_,
+        startTime = Data._Time Lens.# pStartTime_,
+        zonalShiftId = pZonalShiftId_
+      }
+
+-- | An @appliedStatus@ for a zonal shift for a resource can have one of two
+-- values: @APPLIED@ or @NOT_APPLIED@.
+zonalShiftInResource_appliedStatus :: Lens.Lens' ZonalShiftInResource AppliedStatus
+zonalShiftInResource_appliedStatus = Lens.lens (\ZonalShiftInResource' {appliedStatus} -> appliedStatus) (\s@ZonalShiftInResource' {} a -> s {appliedStatus = a} :: ZonalShiftInResource)
+
+-- | The Availability Zone that traffic is moved away from for a resource
+-- when you start a zonal shift. Until the zonal shift expires or you
+-- cancel it, traffic for the resource is instead moved to other
+-- Availability Zones in the AWS Region.
+zonalShiftInResource_awayFrom :: Lens.Lens' ZonalShiftInResource Prelude.Text
+zonalShiftInResource_awayFrom = Lens.lens (\ZonalShiftInResource' {awayFrom} -> awayFrom) (\s@ZonalShiftInResource' {} a -> s {awayFrom = a} :: ZonalShiftInResource)
+
+-- | A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. That is, a new comment
+-- overwrites any existing comment string.
+zonalShiftInResource_comment :: Lens.Lens' ZonalShiftInResource Prelude.Text
+zonalShiftInResource_comment = Lens.lens (\ZonalShiftInResource' {comment} -> comment) (\s@ZonalShiftInResource' {} a -> s {comment = a} :: ZonalShiftInResource)
+
+-- | The expiry time (expiration time) for the zonal shift. A zonal shift is
+-- temporary and must be set to expire when you start the zonal shift. You
+-- can initially set a zonal shift to expire in a maximum of three days (72
+-- hours). However, you can update a zonal shift to set a new expiration at
+-- any time.
+--
+-- When you start a zonal shift, you specify how long you want it to be
+-- active, which Route 53 ARC converts to an expiry time (expiration time).
+-- You can cancel a zonal shift, for example, if you\'re ready to restore
+-- traffic to the Availability Zone. Or you can update the zonal shift to
+-- specify another length of time to expire in.
+zonalShiftInResource_expiryTime :: Lens.Lens' ZonalShiftInResource Prelude.UTCTime
+zonalShiftInResource_expiryTime = Lens.lens (\ZonalShiftInResource' {expiryTime} -> expiryTime) (\s@ZonalShiftInResource' {} a -> s {expiryTime = a} :: ZonalShiftInResource) Prelude.. Data._Time
+
+-- | The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+zonalShiftInResource_resourceIdentifier :: Lens.Lens' ZonalShiftInResource Prelude.Text
+zonalShiftInResource_resourceIdentifier = Lens.lens (\ZonalShiftInResource' {resourceIdentifier} -> resourceIdentifier) (\s@ZonalShiftInResource' {} a -> s {resourceIdentifier = a} :: ZonalShiftInResource)
+
+-- | The time (UTC) when the zonal shift is started.
+zonalShiftInResource_startTime :: Lens.Lens' ZonalShiftInResource Prelude.UTCTime
+zonalShiftInResource_startTime = Lens.lens (\ZonalShiftInResource' {startTime} -> startTime) (\s@ZonalShiftInResource' {} a -> s {startTime = a} :: ZonalShiftInResource) Prelude.. Data._Time
+
+-- | The identifier of a zonal shift.
+zonalShiftInResource_zonalShiftId :: Lens.Lens' ZonalShiftInResource Prelude.Text
+zonalShiftInResource_zonalShiftId = Lens.lens (\ZonalShiftInResource' {zonalShiftId} -> zonalShiftId) (\s@ZonalShiftInResource' {} a -> s {zonalShiftId = a} :: ZonalShiftInResource)
+
+instance Data.FromJSON ZonalShiftInResource where
+  parseJSON =
+    Data.withObject
+      "ZonalShiftInResource"
+      ( \x ->
+          ZonalShiftInResource'
+            Prelude.<$> (x Data..: "appliedStatus")
+            Prelude.<*> (x Data..: "awayFrom")
+            Prelude.<*> (x Data..: "comment")
+            Prelude.<*> (x Data..: "expiryTime")
+            Prelude.<*> (x Data..: "resourceIdentifier")
+            Prelude.<*> (x Data..: "startTime")
+            Prelude.<*> (x Data..: "zonalShiftId")
+      )
+
+instance Prelude.Hashable ZonalShiftInResource where
+  hashWithSalt _salt ZonalShiftInResource' {..} =
+    _salt
+      `Prelude.hashWithSalt` appliedStatus
+      `Prelude.hashWithSalt` awayFrom
+      `Prelude.hashWithSalt` comment
+      `Prelude.hashWithSalt` expiryTime
+      `Prelude.hashWithSalt` resourceIdentifier
+      `Prelude.hashWithSalt` startTime
+      `Prelude.hashWithSalt` zonalShiftId
+
+instance Prelude.NFData ZonalShiftInResource where
+  rnf ZonalShiftInResource' {..} =
+    Prelude.rnf appliedStatus
+      `Prelude.seq` Prelude.rnf awayFrom
+      `Prelude.seq` Prelude.rnf comment
+      `Prelude.seq` Prelude.rnf expiryTime
+      `Prelude.seq` Prelude.rnf resourceIdentifier
+      `Prelude.seq` Prelude.rnf startTime
+      `Prelude.seq` Prelude.rnf zonalShiftId
diff --git a/gen/Amazonka/ArcZonalShift/Types/ZonalShiftStatus.hs b/gen/Amazonka/ArcZonalShift/Types/ZonalShiftStatus.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Types/ZonalShiftStatus.hs
@@ -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.ArcZonalShift.Types.ZonalShiftStatus
+-- 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.ArcZonalShift.Types.ZonalShiftStatus
+  ( ZonalShiftStatus
+      ( ..,
+        ZonalShiftStatus_ACTIVE,
+        ZonalShiftStatus_CANCELED,
+        ZonalShiftStatus_EXPIRED
+      ),
+  )
+where
+
+import qualified Amazonka.Core as Core
+import qualified Amazonka.Data as Data
+import qualified Amazonka.Prelude as Prelude
+
+newtype ZonalShiftStatus = ZonalShiftStatus'
+  { fromZonalShiftStatus ::
+      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 ZonalShiftStatus_ACTIVE :: ZonalShiftStatus
+pattern ZonalShiftStatus_ACTIVE = ZonalShiftStatus' "ACTIVE"
+
+pattern ZonalShiftStatus_CANCELED :: ZonalShiftStatus
+pattern ZonalShiftStatus_CANCELED = ZonalShiftStatus' "CANCELED"
+
+pattern ZonalShiftStatus_EXPIRED :: ZonalShiftStatus
+pattern ZonalShiftStatus_EXPIRED = ZonalShiftStatus' "EXPIRED"
+
+{-# COMPLETE
+  ZonalShiftStatus_ACTIVE,
+  ZonalShiftStatus_CANCELED,
+  ZonalShiftStatus_EXPIRED,
+  ZonalShiftStatus'
+  #-}
diff --git a/gen/Amazonka/ArcZonalShift/Types/ZonalShiftSummary.hs b/gen/Amazonka/ArcZonalShift/Types/ZonalShiftSummary.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Types/ZonalShiftSummary.hs
@@ -0,0 +1,269 @@
+{-# 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.ArcZonalShift.Types.ZonalShiftSummary
+-- 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.ArcZonalShift.Types.ZonalShiftSummary where
+
+import Amazonka.ArcZonalShift.Types.ZonalShiftStatus
+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
+
+-- | You start a zonal shift to temporarily move load balancer traffic away
+-- from an Availability Zone in a AWS Region. A zonal shift helps your
+-- application recover immediately, for example, from a developer\'s bad
+-- code deployment or from an AWS infrastructure failure in a single
+-- Availability Zone. You can start a zonal shift in Route 53 ARC only for
+-- managed resources in your account in an AWS Region. Supported AWS
+-- resources are automatically registered with Route 53 ARC.
+--
+-- Zonal shifts are temporary. A zonal shift can be active for up to three
+-- days (72 hours).
+--
+-- When you start a zonal shift, you specify how long you want it to be
+-- active, which Amazon Route 53 Application Recovery Controller converts
+-- to an expiry time (expiration time). You can cancel a zonal shift, for
+-- example, if you\'re ready to restore traffic to the Availability Zone.
+-- Or you can extend the zonal shift by updating the expiration so the
+-- zonal shift is active longer.
+--
+-- /See:/ 'newZonalShiftSummary' smart constructor.
+data ZonalShiftSummary = ZonalShiftSummary'
+  { -- | The Availability Zone that traffic is moved away from for a resource
+    -- when you start a zonal shift. Until the zonal shift expires or you
+    -- cancel it, traffic for the resource is instead moved to other
+    -- Availability Zones in the AWS Region.
+    awayFrom :: Prelude.Text,
+    -- | A comment that you enter about the zonal shift. Only the latest comment
+    -- is retained; no comment history is maintained. That is, a new comment
+    -- overwrites any existing comment string.
+    comment :: Prelude.Text,
+    -- | The expiry time (expiration time) for the zonal shift. A zonal shift is
+    -- temporary and must be set to expire when you start the zonal shift. You
+    -- can initially set a zonal shift to expire in a maximum of three days (72
+    -- hours). However, you can update a zonal shift to set a new expiration at
+    -- any time.
+    --
+    -- When you start a zonal shift, you specify how long you want it to be
+    -- active, which Route 53 ARC converts to an expiry time (expiration time).
+    -- You can cancel a zonal shift, for example, if you\'re ready to restore
+    -- traffic to the Availability Zone. Or you can update the zonal shift to
+    -- specify another length of time to expire in.
+    expiryTime :: Data.POSIX,
+    -- | The identifier for the resource to include in a zonal shift. The
+    -- identifier is the Amazon Resource Name (ARN) for the resource.
+    --
+    -- At this time, you can only start a zonal shift for Network Load
+    -- Balancers and Application Load Balancers with cross-zone load balancing
+    -- turned off.
+    resourceIdentifier :: Prelude.Text,
+    -- | The time (UTC) when the zonal shift is started.
+    startTime :: Data.POSIX,
+    -- | A status for a zonal shift.
+    --
+    -- The @Status@ for a zonal shift can have one of the following values:
+    --
+    -- -   __ACTIVE:__ The zonal shift is started and active.
+    --
+    -- -   __EXPIRED:__ The zonal shift has expired (the expiry time was
+    --     exceeded).
+    --
+    -- -   __CANCELED:__ The zonal shift was canceled.
+    status :: ZonalShiftStatus,
+    -- | The identifier of a zonal shift.
+    zonalShiftId :: Prelude.Text
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'ZonalShiftSummary' 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:
+--
+-- 'awayFrom', 'zonalShiftSummary_awayFrom' - The Availability Zone that traffic is moved away from for a resource
+-- when you start a zonal shift. Until the zonal shift expires or you
+-- cancel it, traffic for the resource is instead moved to other
+-- Availability Zones in the AWS Region.
+--
+-- 'comment', 'zonalShiftSummary_comment' - A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. That is, a new comment
+-- overwrites any existing comment string.
+--
+-- 'expiryTime', 'zonalShiftSummary_expiryTime' - The expiry time (expiration time) for the zonal shift. A zonal shift is
+-- temporary and must be set to expire when you start the zonal shift. You
+-- can initially set a zonal shift to expire in a maximum of three days (72
+-- hours). However, you can update a zonal shift to set a new expiration at
+-- any time.
+--
+-- When you start a zonal shift, you specify how long you want it to be
+-- active, which Route 53 ARC converts to an expiry time (expiration time).
+-- You can cancel a zonal shift, for example, if you\'re ready to restore
+-- traffic to the Availability Zone. Or you can update the zonal shift to
+-- specify another length of time to expire in.
+--
+-- 'resourceIdentifier', 'zonalShiftSummary_resourceIdentifier' - The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+--
+-- 'startTime', 'zonalShiftSummary_startTime' - The time (UTC) when the zonal shift is started.
+--
+-- 'status', 'zonalShiftSummary_status' - A status for a zonal shift.
+--
+-- The @Status@ for a zonal shift can have one of the following values:
+--
+-- -   __ACTIVE:__ The zonal shift is started and active.
+--
+-- -   __EXPIRED:__ The zonal shift has expired (the expiry time was
+--     exceeded).
+--
+-- -   __CANCELED:__ The zonal shift was canceled.
+--
+-- 'zonalShiftId', 'zonalShiftSummary_zonalShiftId' - The identifier of a zonal shift.
+newZonalShiftSummary ::
+  -- | 'awayFrom'
+  Prelude.Text ->
+  -- | 'comment'
+  Prelude.Text ->
+  -- | 'expiryTime'
+  Prelude.UTCTime ->
+  -- | 'resourceIdentifier'
+  Prelude.Text ->
+  -- | 'startTime'
+  Prelude.UTCTime ->
+  -- | 'status'
+  ZonalShiftStatus ->
+  -- | 'zonalShiftId'
+  Prelude.Text ->
+  ZonalShiftSummary
+newZonalShiftSummary
+  pAwayFrom_
+  pComment_
+  pExpiryTime_
+  pResourceIdentifier_
+  pStartTime_
+  pStatus_
+  pZonalShiftId_ =
+    ZonalShiftSummary'
+      { awayFrom = pAwayFrom_,
+        comment = pComment_,
+        expiryTime = Data._Time Lens.# pExpiryTime_,
+        resourceIdentifier = pResourceIdentifier_,
+        startTime = Data._Time Lens.# pStartTime_,
+        status = pStatus_,
+        zonalShiftId = pZonalShiftId_
+      }
+
+-- | The Availability Zone that traffic is moved away from for a resource
+-- when you start a zonal shift. Until the zonal shift expires or you
+-- cancel it, traffic for the resource is instead moved to other
+-- Availability Zones in the AWS Region.
+zonalShiftSummary_awayFrom :: Lens.Lens' ZonalShiftSummary Prelude.Text
+zonalShiftSummary_awayFrom = Lens.lens (\ZonalShiftSummary' {awayFrom} -> awayFrom) (\s@ZonalShiftSummary' {} a -> s {awayFrom = a} :: ZonalShiftSummary)
+
+-- | A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. That is, a new comment
+-- overwrites any existing comment string.
+zonalShiftSummary_comment :: Lens.Lens' ZonalShiftSummary Prelude.Text
+zonalShiftSummary_comment = Lens.lens (\ZonalShiftSummary' {comment} -> comment) (\s@ZonalShiftSummary' {} a -> s {comment = a} :: ZonalShiftSummary)
+
+-- | The expiry time (expiration time) for the zonal shift. A zonal shift is
+-- temporary and must be set to expire when you start the zonal shift. You
+-- can initially set a zonal shift to expire in a maximum of three days (72
+-- hours). However, you can update a zonal shift to set a new expiration at
+-- any time.
+--
+-- When you start a zonal shift, you specify how long you want it to be
+-- active, which Route 53 ARC converts to an expiry time (expiration time).
+-- You can cancel a zonal shift, for example, if you\'re ready to restore
+-- traffic to the Availability Zone. Or you can update the zonal shift to
+-- specify another length of time to expire in.
+zonalShiftSummary_expiryTime :: Lens.Lens' ZonalShiftSummary Prelude.UTCTime
+zonalShiftSummary_expiryTime = Lens.lens (\ZonalShiftSummary' {expiryTime} -> expiryTime) (\s@ZonalShiftSummary' {} a -> s {expiryTime = a} :: ZonalShiftSummary) Prelude.. Data._Time
+
+-- | The identifier for the resource to include in a zonal shift. The
+-- identifier is the Amazon Resource Name (ARN) for the resource.
+--
+-- At this time, you can only start a zonal shift for Network Load
+-- Balancers and Application Load Balancers with cross-zone load balancing
+-- turned off.
+zonalShiftSummary_resourceIdentifier :: Lens.Lens' ZonalShiftSummary Prelude.Text
+zonalShiftSummary_resourceIdentifier = Lens.lens (\ZonalShiftSummary' {resourceIdentifier} -> resourceIdentifier) (\s@ZonalShiftSummary' {} a -> s {resourceIdentifier = a} :: ZonalShiftSummary)
+
+-- | The time (UTC) when the zonal shift is started.
+zonalShiftSummary_startTime :: Lens.Lens' ZonalShiftSummary Prelude.UTCTime
+zonalShiftSummary_startTime = Lens.lens (\ZonalShiftSummary' {startTime} -> startTime) (\s@ZonalShiftSummary' {} a -> s {startTime = a} :: ZonalShiftSummary) Prelude.. Data._Time
+
+-- | A status for a zonal shift.
+--
+-- The @Status@ for a zonal shift can have one of the following values:
+--
+-- -   __ACTIVE:__ The zonal shift is started and active.
+--
+-- -   __EXPIRED:__ The zonal shift has expired (the expiry time was
+--     exceeded).
+--
+-- -   __CANCELED:__ The zonal shift was canceled.
+zonalShiftSummary_status :: Lens.Lens' ZonalShiftSummary ZonalShiftStatus
+zonalShiftSummary_status = Lens.lens (\ZonalShiftSummary' {status} -> status) (\s@ZonalShiftSummary' {} a -> s {status = a} :: ZonalShiftSummary)
+
+-- | The identifier of a zonal shift.
+zonalShiftSummary_zonalShiftId :: Lens.Lens' ZonalShiftSummary Prelude.Text
+zonalShiftSummary_zonalShiftId = Lens.lens (\ZonalShiftSummary' {zonalShiftId} -> zonalShiftId) (\s@ZonalShiftSummary' {} a -> s {zonalShiftId = a} :: ZonalShiftSummary)
+
+instance Data.FromJSON ZonalShiftSummary where
+  parseJSON =
+    Data.withObject
+      "ZonalShiftSummary"
+      ( \x ->
+          ZonalShiftSummary'
+            Prelude.<$> (x Data..: "awayFrom")
+            Prelude.<*> (x Data..: "comment")
+            Prelude.<*> (x Data..: "expiryTime")
+            Prelude.<*> (x Data..: "resourceIdentifier")
+            Prelude.<*> (x Data..: "startTime")
+            Prelude.<*> (x Data..: "status")
+            Prelude.<*> (x Data..: "zonalShiftId")
+      )
+
+instance Prelude.Hashable ZonalShiftSummary where
+  hashWithSalt _salt ZonalShiftSummary' {..} =
+    _salt
+      `Prelude.hashWithSalt` awayFrom
+      `Prelude.hashWithSalt` comment
+      `Prelude.hashWithSalt` expiryTime
+      `Prelude.hashWithSalt` resourceIdentifier
+      `Prelude.hashWithSalt` startTime
+      `Prelude.hashWithSalt` status
+      `Prelude.hashWithSalt` zonalShiftId
+
+instance Prelude.NFData ZonalShiftSummary where
+  rnf ZonalShiftSummary' {..} =
+    Prelude.rnf awayFrom
+      `Prelude.seq` Prelude.rnf comment
+      `Prelude.seq` Prelude.rnf expiryTime
+      `Prelude.seq` Prelude.rnf resourceIdentifier
+      `Prelude.seq` Prelude.rnf startTime
+      `Prelude.seq` Prelude.rnf status
+      `Prelude.seq` Prelude.rnf zonalShiftId
diff --git a/gen/Amazonka/ArcZonalShift/UpdateZonalShift.hs b/gen/Amazonka/ArcZonalShift/UpdateZonalShift.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/UpdateZonalShift.hs
@@ -0,0 +1,213 @@
+{-# 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.ArcZonalShift.UpdateZonalShift
+-- Copyright   : (c) 2013-2023 Brendan Hay
+-- License     : Mozilla Public License, v. 2.0.
+-- Maintainer  : Brendan Hay
+-- Stability   : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Update an active zonal shift in Amazon Route 53 Application Recovery
+-- Controller in your AWS account. You can update a zonal shift to set a
+-- new expiration, or edit or replace the comment for the zonal shift.
+module Amazonka.ArcZonalShift.UpdateZonalShift
+  ( -- * Creating a Request
+    UpdateZonalShift (..),
+    newUpdateZonalShift,
+
+    -- * Request Lenses
+    updateZonalShift_comment,
+    updateZonalShift_expiresIn,
+    updateZonalShift_zonalShiftId,
+
+    -- * Destructuring the Response
+    ZonalShift (..),
+    newZonalShift,
+
+    -- * Response Lenses
+    zonalShift_awayFrom,
+    zonalShift_comment,
+    zonalShift_expiryTime,
+    zonalShift_resourceIdentifier,
+    zonalShift_startTime,
+    zonalShift_status,
+    zonalShift_zonalShiftId,
+  )
+where
+
+import Amazonka.ArcZonalShift.Types
+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
+import qualified Amazonka.Request as Request
+import qualified Amazonka.Response as Response
+
+-- | /See:/ 'newUpdateZonalShift' smart constructor.
+data UpdateZonalShift = UpdateZonalShift'
+  { -- | A comment that you enter about the zonal shift. Only the latest comment
+    -- is retained; no comment history is maintained. A new comment overwrites
+    -- any existing comment string.
+    comment :: Prelude.Maybe Prelude.Text,
+    -- | The length of time that you want a zonal shift to be active, which Route
+    -- 53 ARC converts to an expiry time (expiration time). Zonal shifts are
+    -- temporary. You can set a zonal shift to be active initially for up to
+    -- three days (72 hours).
+    --
+    -- If you want to still keep traffic away from an Availability Zone, you
+    -- can update the zonal shift and set a new expiration. You can also cancel
+    -- a zonal shift, before it expires, for example, if you\'re ready to
+    -- restore traffic to the Availability Zone.
+    --
+    -- To set a length of time for a zonal shift to be active, specify a whole
+    -- number, and then one of the following, with no space:
+    --
+    -- -   __A lowercase letter m:__ To specify that the value is in minutes.
+    --
+    -- -   __A lowercase letter h:__ To specify that the value is in hours.
+    --
+    -- For example: @20h@ means the zonal shift expires in 20 hours. @120m@
+    -- means the zonal shift expires in 120 minutes (2 hours).
+    expiresIn :: Prelude.Maybe Prelude.Text,
+    -- | The identifier of a zonal shift.
+    zonalShiftId :: Prelude.Text
+  }
+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
+
+-- |
+-- Create a value of 'UpdateZonalShift' 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:
+--
+-- 'comment', 'updateZonalShift_comment' - A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. A new comment overwrites
+-- any existing comment string.
+--
+-- 'expiresIn', 'updateZonalShift_expiresIn' - The length of time that you want a zonal shift to be active, which Route
+-- 53 ARC converts to an expiry time (expiration time). Zonal shifts are
+-- temporary. You can set a zonal shift to be active initially for up to
+-- three days (72 hours).
+--
+-- If you want to still keep traffic away from an Availability Zone, you
+-- can update the zonal shift and set a new expiration. You can also cancel
+-- a zonal shift, before it expires, for example, if you\'re ready to
+-- restore traffic to the Availability Zone.
+--
+-- To set a length of time for a zonal shift to be active, specify a whole
+-- number, and then one of the following, with no space:
+--
+-- -   __A lowercase letter m:__ To specify that the value is in minutes.
+--
+-- -   __A lowercase letter h:__ To specify that the value is in hours.
+--
+-- For example: @20h@ means the zonal shift expires in 20 hours. @120m@
+-- means the zonal shift expires in 120 minutes (2 hours).
+--
+-- 'zonalShiftId', 'updateZonalShift_zonalShiftId' - The identifier of a zonal shift.
+newUpdateZonalShift ::
+  -- | 'zonalShiftId'
+  Prelude.Text ->
+  UpdateZonalShift
+newUpdateZonalShift pZonalShiftId_ =
+  UpdateZonalShift'
+    { comment = Prelude.Nothing,
+      expiresIn = Prelude.Nothing,
+      zonalShiftId = pZonalShiftId_
+    }
+
+-- | A comment that you enter about the zonal shift. Only the latest comment
+-- is retained; no comment history is maintained. A new comment overwrites
+-- any existing comment string.
+updateZonalShift_comment :: Lens.Lens' UpdateZonalShift (Prelude.Maybe Prelude.Text)
+updateZonalShift_comment = Lens.lens (\UpdateZonalShift' {comment} -> comment) (\s@UpdateZonalShift' {} a -> s {comment = a} :: UpdateZonalShift)
+
+-- | The length of time that you want a zonal shift to be active, which Route
+-- 53 ARC converts to an expiry time (expiration time). Zonal shifts are
+-- temporary. You can set a zonal shift to be active initially for up to
+-- three days (72 hours).
+--
+-- If you want to still keep traffic away from an Availability Zone, you
+-- can update the zonal shift and set a new expiration. You can also cancel
+-- a zonal shift, before it expires, for example, if you\'re ready to
+-- restore traffic to the Availability Zone.
+--
+-- To set a length of time for a zonal shift to be active, specify a whole
+-- number, and then one of the following, with no space:
+--
+-- -   __A lowercase letter m:__ To specify that the value is in minutes.
+--
+-- -   __A lowercase letter h:__ To specify that the value is in hours.
+--
+-- For example: @20h@ means the zonal shift expires in 20 hours. @120m@
+-- means the zonal shift expires in 120 minutes (2 hours).
+updateZonalShift_expiresIn :: Lens.Lens' UpdateZonalShift (Prelude.Maybe Prelude.Text)
+updateZonalShift_expiresIn = Lens.lens (\UpdateZonalShift' {expiresIn} -> expiresIn) (\s@UpdateZonalShift' {} a -> s {expiresIn = a} :: UpdateZonalShift)
+
+-- | The identifier of a zonal shift.
+updateZonalShift_zonalShiftId :: Lens.Lens' UpdateZonalShift Prelude.Text
+updateZonalShift_zonalShiftId = Lens.lens (\UpdateZonalShift' {zonalShiftId} -> zonalShiftId) (\s@UpdateZonalShift' {} a -> s {zonalShiftId = a} :: UpdateZonalShift)
+
+instance Core.AWSRequest UpdateZonalShift where
+  type AWSResponse UpdateZonalShift = ZonalShift
+  request overrides =
+    Request.patchJSON (overrides defaultService)
+  response =
+    Response.receiveJSON
+      (\s h x -> Data.eitherParseJSON x)
+
+instance Prelude.Hashable UpdateZonalShift where
+  hashWithSalt _salt UpdateZonalShift' {..} =
+    _salt
+      `Prelude.hashWithSalt` comment
+      `Prelude.hashWithSalt` expiresIn
+      `Prelude.hashWithSalt` zonalShiftId
+
+instance Prelude.NFData UpdateZonalShift where
+  rnf UpdateZonalShift' {..} =
+    Prelude.rnf comment
+      `Prelude.seq` Prelude.rnf expiresIn
+      `Prelude.seq` Prelude.rnf zonalShiftId
+
+instance Data.ToHeaders UpdateZonalShift where
+  toHeaders =
+    Prelude.const
+      ( Prelude.mconcat
+          [ "Content-Type"
+              Data.=# ( "application/x-amz-json-1.1" ::
+                          Prelude.ByteString
+                      )
+          ]
+      )
+
+instance Data.ToJSON UpdateZonalShift where
+  toJSON UpdateZonalShift' {..} =
+    Data.object
+      ( Prelude.catMaybes
+          [ ("comment" Data..=) Prelude.<$> comment,
+            ("expiresIn" Data..=) Prelude.<$> expiresIn
+          ]
+      )
+
+instance Data.ToPath UpdateZonalShift where
+  toPath UpdateZonalShift' {..} =
+    Prelude.mconcat
+      ["/zonalshifts/", Data.toBS zonalShiftId]
+
+instance Data.ToQuery UpdateZonalShift where
+  toQuery = Prelude.const Prelude.mempty
diff --git a/gen/Amazonka/ArcZonalShift/Waiters.hs b/gen/Amazonka/ArcZonalShift/Waiters.hs
new file mode 100644
--- /dev/null
+++ b/gen/Amazonka/ArcZonalShift/Waiters.hs
@@ -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.ArcZonalShift.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.ArcZonalShift.Waiters where
+
+import Amazonka.ArcZonalShift.Lens
+import Amazonka.ArcZonalShift.Types
+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
diff --git a/src/.gitkeep b/src/.gitkeep
new file mode 100644
--- /dev/null
+++ b/src/.gitkeep
diff --git a/test/Main.hs b/test/Main.hs
new file mode 100644
--- /dev/null
+++ b/test/Main.hs
@@ -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.ArcZonalShift
+import Test.Amazonka.ArcZonalShift.Internal
+import Test.Tasty
+
+main :: IO ()
+main =
+  defaultMain $
+    testGroup
+      "ArcZonalShift"
+      [ testGroup "tests" tests,
+        testGroup "fixtures" fixtures
+      ]
diff --git a/test/Test/Amazonka/ArcZonalShift.hs b/test/Test/Amazonka/ArcZonalShift.hs
new file mode 100644
--- /dev/null
+++ b/test/Test/Amazonka/ArcZonalShift.hs
@@ -0,0 +1,20 @@
+-- |
+-- Module      : Test.Amazonka.ArcZonalShift
+-- 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.ArcZonalShift
+  ( tests,
+    fixtures,
+  )
+where
+
+import Test.Tasty (TestTree)
+
+tests :: [TestTree]
+tests = []
+
+fixtures :: [TestTree]
+fixtures = []
diff --git a/test/Test/Amazonka/ArcZonalShift/Internal.hs b/test/Test/Amazonka/ArcZonalShift/Internal.hs
new file mode 100644
--- /dev/null
+++ b/test/Test/Amazonka/ArcZonalShift/Internal.hs
@@ -0,0 +1,8 @@
+-- |
+-- Module      : Test.Amazonka.ArcZonalShift.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.ArcZonalShift.Internal where
diff --git a/test/Test/Amazonka/Gen/ArcZonalShift.hs b/test/Test/Amazonka/Gen/ArcZonalShift.hs
new file mode 100644
--- /dev/null
+++ b/test/Test/Amazonka/Gen/ArcZonalShift.hs
@@ -0,0 +1,158 @@
+{-# 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.ArcZonalShift
+-- 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.ArcZonalShift where
+
+import Amazonka.ArcZonalShift
+import qualified Data.Proxy as Proxy
+import Test.Amazonka.ArcZonalShift.Internal
+import Test.Amazonka.Fixture
+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"
+--         [ requestCancelZonalShift $
+--             newCancelZonalShift
+--
+--         , requestGetManagedResource $
+--             newGetManagedResource
+--
+--         , requestListManagedResources $
+--             newListManagedResources
+--
+--         , requestListZonalShifts $
+--             newListZonalShifts
+--
+--         , requestStartZonalShift $
+--             newStartZonalShift
+--
+--         , requestUpdateZonalShift $
+--             newUpdateZonalShift
+--
+--           ]
+
+--     , testGroup "response"
+--         [ responseCancelZonalShift $
+--             newZonalShift
+--
+--         , responseGetManagedResource $
+--             newGetManagedResourceResponse
+--
+--         , responseListManagedResources $
+--             newListManagedResourcesResponse
+--
+--         , responseListZonalShifts $
+--             newListZonalShiftsResponse
+--
+--         , responseStartZonalShift $
+--             newZonalShift
+--
+--         , responseUpdateZonalShift $
+--             newZonalShift
+--
+--           ]
+--     ]
+
+-- Requests
+
+requestCancelZonalShift :: CancelZonalShift -> TestTree
+requestCancelZonalShift =
+  req
+    "CancelZonalShift"
+    "fixture/CancelZonalShift.yaml"
+
+requestGetManagedResource :: GetManagedResource -> TestTree
+requestGetManagedResource =
+  req
+    "GetManagedResource"
+    "fixture/GetManagedResource.yaml"
+
+requestListManagedResources :: ListManagedResources -> TestTree
+requestListManagedResources =
+  req
+    "ListManagedResources"
+    "fixture/ListManagedResources.yaml"
+
+requestListZonalShifts :: ListZonalShifts -> TestTree
+requestListZonalShifts =
+  req
+    "ListZonalShifts"
+    "fixture/ListZonalShifts.yaml"
+
+requestStartZonalShift :: StartZonalShift -> TestTree
+requestStartZonalShift =
+  req
+    "StartZonalShift"
+    "fixture/StartZonalShift.yaml"
+
+requestUpdateZonalShift :: UpdateZonalShift -> TestTree
+requestUpdateZonalShift =
+  req
+    "UpdateZonalShift"
+    "fixture/UpdateZonalShift.yaml"
+
+-- Responses
+
+responseCancelZonalShift :: ZonalShift -> TestTree
+responseCancelZonalShift =
+  res
+    "CancelZonalShiftResponse"
+    "fixture/CancelZonalShiftResponse.proto"
+    defaultService
+    (Proxy.Proxy :: Proxy.Proxy CancelZonalShift)
+
+responseGetManagedResource :: GetManagedResourceResponse -> TestTree
+responseGetManagedResource =
+  res
+    "GetManagedResourceResponse"
+    "fixture/GetManagedResourceResponse.proto"
+    defaultService
+    (Proxy.Proxy :: Proxy.Proxy GetManagedResource)
+
+responseListManagedResources :: ListManagedResourcesResponse -> TestTree
+responseListManagedResources =
+  res
+    "ListManagedResourcesResponse"
+    "fixture/ListManagedResourcesResponse.proto"
+    defaultService
+    (Proxy.Proxy :: Proxy.Proxy ListManagedResources)
+
+responseListZonalShifts :: ListZonalShiftsResponse -> TestTree
+responseListZonalShifts =
+  res
+    "ListZonalShiftsResponse"
+    "fixture/ListZonalShiftsResponse.proto"
+    defaultService
+    (Proxy.Proxy :: Proxy.Proxy ListZonalShifts)
+
+responseStartZonalShift :: ZonalShift -> TestTree
+responseStartZonalShift =
+  res
+    "StartZonalShiftResponse"
+    "fixture/StartZonalShiftResponse.proto"
+    defaultService
+    (Proxy.Proxy :: Proxy.Proxy StartZonalShift)
+
+responseUpdateZonalShift :: ZonalShift -> TestTree
+responseUpdateZonalShift =
+  res
+    "UpdateZonalShiftResponse"
+    "fixture/UpdateZonalShiftResponse.proto"
+    defaultService
+    (Proxy.Proxy :: Proxy.Proxy UpdateZonalShift)