amazonka-route53-autonaming 1.6.1 → 2.0

raw patch · 138 files changed

+15488/−5654 lines, 138 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +4/−5
• Setup.hs +0/−2
• amazonka-route53-autonaming.cabal +149/−92
• fixture/CreateHttpNamespace.yaml +10/−0
• fixture/CreateHttpNamespaceResponse.proto +0/−0
• fixture/CreatePrivateDNSNamespace.yaml +0/−10
• fixture/CreatePrivateDNSNamespaceResponse.proto +0/−0
• fixture/CreatePrivateDnsNamespace.yaml +10/−0
• fixture/CreatePrivateDnsNamespaceResponse.proto +0/−0
• fixture/CreatePublicDNSNamespace.yaml +0/−10
• fixture/CreatePublicDNSNamespaceResponse.proto +0/−0
• fixture/CreatePublicDnsNamespace.yaml +10/−0
• fixture/CreatePublicDnsNamespaceResponse.proto +0/−0
• fixture/DiscoverInstances.yaml +10/−0
• fixture/DiscoverInstancesResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• fixture/UpdateHttpNamespace.yaml +10/−0
• fixture/UpdateHttpNamespaceResponse.proto +0/−0
• fixture/UpdatePrivateDnsNamespace.yaml +10/−0
• fixture/UpdatePrivateDnsNamespaceResponse.proto +0/−0
• fixture/UpdatePublicDnsNamespace.yaml +10/−0
• fixture/UpdatePublicDnsNamespaceResponse.proto +0/−0
• gen/Amazonka/Route53AutoNaming.hs +481/−0
• gen/Amazonka/Route53AutoNaming/CreateHttpNamespace.hs +242/−0
• gen/Amazonka/Route53AutoNaming/CreatePrivateDnsNamespace.hs +282/−0
• gen/Amazonka/Route53AutoNaming/CreatePublicDnsNamespace.hs +272/−0
• gen/Amazonka/Route53AutoNaming/CreateService.hs +458/−0
• gen/Amazonka/Route53AutoNaming/DeleteNamespace.hs +172/−0
• gen/Amazonka/Route53AutoNaming/DeleteService.hs +151/−0
• gen/Amazonka/Route53AutoNaming/DeregisterInstance.hs +201/−0
• gen/Amazonka/Route53AutoNaming/DiscoverInstances.hs +329/−0
• gen/Amazonka/Route53AutoNaming/GetInstance.hs +185/−0
• gen/Amazonka/Route53AutoNaming/GetInstancesHealthStatus.hs +292/−0
• gen/Amazonka/Route53AutoNaming/GetNamespace.hs +162/−0
• gen/Amazonka/Route53AutoNaming/GetOperation.hs +169/−0
• gen/Amazonka/Route53AutoNaming/GetService.hs +162/−0
• gen/Amazonka/Route53AutoNaming/Lens.hs +436/−0
• gen/Amazonka/Route53AutoNaming/ListInstances.hs +268/−0
• gen/Amazonka/Route53AutoNaming/ListNamespaces.hs +309/−0
• gen/Amazonka/Route53AutoNaming/ListOperations.hs +311/−0
• gen/Amazonka/Route53AutoNaming/ListServices.hs +306/−0
• gen/Amazonka/Route53AutoNaming/ListTagsForResource.hs +172/−0
• gen/Amazonka/Route53AutoNaming/RegisterInstance.hs +655/−0
• gen/Amazonka/Route53AutoNaming/TagResource.hs +177/−0
• gen/Amazonka/Route53AutoNaming/Types.hs +563/−0
• gen/Amazonka/Route53AutoNaming/Types/CustomHealthStatus.hs +71/−0
• gen/Amazonka/Route53AutoNaming/Types/DnsConfig.hs +271/−0
• gen/Amazonka/Route53AutoNaming/Types/DnsConfigChange.hs +71/−0
• gen/Amazonka/Route53AutoNaming/Types/DnsProperties.hs +89/−0
• gen/Amazonka/Route53AutoNaming/Types/DnsRecord.hs +395/−0
• gen/Amazonka/Route53AutoNaming/Types/FilterCondition.hs +81/−0
• gen/Amazonka/Route53AutoNaming/Types/HealthCheckConfig.hs +282/−0
• gen/Amazonka/Route53AutoNaming/Types/HealthCheckCustomConfig.hs +160/−0
• gen/Amazonka/Route53AutoNaming/Types/HealthCheckType.hs +76/−0
• gen/Amazonka/Route53AutoNaming/Types/HealthStatus.hs +76/−0
• gen/Amazonka/Route53AutoNaming/Types/HealthStatusFilter.hs +81/−0
• gen/Amazonka/Route53AutoNaming/Types/HttpInstanceSummary.hs +139/−0
• gen/Amazonka/Route53AutoNaming/Types/HttpNamespaceChange.hs +69/−0
• gen/Amazonka/Route53AutoNaming/Types/HttpProperties.hs +67/−0
• gen/Amazonka/Route53AutoNaming/Types/Instance.hs +447/−0
• gen/Amazonka/Route53AutoNaming/Types/InstanceSummary.hs +210/−0
• gen/Amazonka/Route53AutoNaming/Types/Namespace.hs +227/−0
• gen/Amazonka/Route53AutoNaming/Types/NamespaceFilter.hs +175/−0
• gen/Amazonka/Route53AutoNaming/Types/NamespaceFilterName.hs +76/−0
• gen/Amazonka/Route53AutoNaming/Types/NamespaceProperties.hs +91/−0
• gen/Amazonka/Route53AutoNaming/Types/NamespaceSummary.hs +167/−0
• gen/Amazonka/Route53AutoNaming/Types/NamespaceType.hs +76/−0
• gen/Amazonka/Route53AutoNaming/Types/Operation.hs +294/−0
• gen/Amazonka/Route53AutoNaming/Types/OperationFilter.hs +229/−0
• gen/Amazonka/Route53AutoNaming/Types/OperationFilterName.hs +86/−0
• gen/Amazonka/Route53AutoNaming/Types/OperationStatus.hs +81/−0
• gen/Amazonka/Route53AutoNaming/Types/OperationSummary.hs +117/−0
• gen/Amazonka/Route53AutoNaming/Types/OperationTargetType.hs +76/−0
• gen/Amazonka/Route53AutoNaming/Types/OperationType.hs +91/−0
• gen/Amazonka/Route53AutoNaming/Types/PrivateDnsNamespaceChange.hs +85/−0
• gen/Amazonka/Route53AutoNaming/Types/PrivateDnsNamespaceProperties.hs +78/−0
• gen/Amazonka/Route53AutoNaming/Types/PrivateDnsNamespacePropertiesChange.hs +87/−0
• gen/Amazonka/Route53AutoNaming/Types/PrivateDnsPropertiesMutable.hs +73/−0
• gen/Amazonka/Route53AutoNaming/Types/PrivateDnsPropertiesMutableChange.hs +84/−0
• gen/Amazonka/Route53AutoNaming/Types/PublicDnsNamespaceChange.hs +85/−0
• gen/Amazonka/Route53AutoNaming/Types/PublicDnsNamespaceProperties.hs +78/−0
• gen/Amazonka/Route53AutoNaming/Types/PublicDnsNamespacePropertiesChange.hs +86/−0
• gen/Amazonka/Route53AutoNaming/Types/PublicDnsPropertiesMutable.hs +72/−0
• gen/Amazonka/Route53AutoNaming/Types/PublicDnsPropertiesMutableChange.hs +81/−0
• gen/Amazonka/Route53AutoNaming/Types/RecordType.hs +81/−0
• gen/Amazonka/Route53AutoNaming/Types/RoutingPolicy.hs +71/−0
• gen/Amazonka/Route53AutoNaming/Types/SOA.hs +74/−0
• gen/Amazonka/Route53AutoNaming/Types/SOAChange.hs +68/−0
• gen/Amazonka/Route53AutoNaming/Types/ServiceChange.hs +107/−0
• gen/Amazonka/Route53AutoNaming/Types/ServiceFilter.hs +118/−0
• gen/Amazonka/Route53AutoNaming/Types/ServiceFilterName.hs +66/−0
• gen/Amazonka/Route53AutoNaming/Types/ServiceInfo.hs +316/−0
• gen/Amazonka/Route53AutoNaming/Types/ServiceSummary.hs +286/−0
• gen/Amazonka/Route53AutoNaming/Types/ServiceType.hs +76/−0
• gen/Amazonka/Route53AutoNaming/Types/ServiceTypeOption.hs +66/−0
• gen/Amazonka/Route53AutoNaming/Types/Tag.hs +99/−0
• gen/Amazonka/Route53AutoNaming/UntagResource.hs +174/−0
• gen/Amazonka/Route53AutoNaming/UpdateHttpNamespace.hs +218/−0
• gen/Amazonka/Route53AutoNaming/UpdateInstanceCustomHealthStatus.hs +206/−0
• gen/Amazonka/Route53AutoNaming/UpdatePrivateDnsNamespace.hs +221/−0
• gen/Amazonka/Route53AutoNaming/UpdatePublicDnsNamespace.hs +221/−0
• gen/Amazonka/Route53AutoNaming/UpdateService.hs +211/−0
• gen/Amazonka/Route53AutoNaming/Waiters.hs +24/−0
• gen/Network/AWS/Route53AutoNaming.hs +0/−352
• gen/Network/AWS/Route53AutoNaming/CreatePrivateDNSNamespace.hs +0/−169
• gen/Network/AWS/Route53AutoNaming/CreatePublicDNSNamespace.hs +0/−158
• gen/Network/AWS/Route53AutoNaming/CreateService.hs +0/−198
• gen/Network/AWS/Route53AutoNaming/DeleteNamespace.hs +0/−131
• gen/Network/AWS/Route53AutoNaming/DeleteService.hs +0/−121
• gen/Network/AWS/Route53AutoNaming/DeregisterInstance.hs +0/−145
• gen/Network/AWS/Route53AutoNaming/GetInstance.hs +0/−144
• gen/Network/AWS/Route53AutoNaming/GetInstancesHealthStatus.hs +0/−180
• gen/Network/AWS/Route53AutoNaming/GetNamespace.hs +0/−131
• gen/Network/AWS/Route53AutoNaming/GetOperation.hs +0/−132
• gen/Network/AWS/Route53AutoNaming/GetService.hs +0/−131
• gen/Network/AWS/Route53AutoNaming/ListInstances.hs +0/−179
• gen/Network/AWS/Route53AutoNaming/ListNamespaces.hs +0/−175
• gen/Network/AWS/Route53AutoNaming/ListOperations.hs +0/−175
• gen/Network/AWS/Route53AutoNaming/ListServices.hs +0/−174
• gen/Network/AWS/Route53AutoNaming/RegisterInstance.hs +0/−191
• gen/Network/AWS/Route53AutoNaming/Types.hs +0/−336
• gen/Network/AWS/Route53AutoNaming/Types/Product.hs +0/−1174
• gen/Network/AWS/Route53AutoNaming/Types/Sum.hs +0/−416
• gen/Network/AWS/Route53AutoNaming/UpdateInstanceCustomHealthStatus.hs +0/−145
• gen/Network/AWS/Route53AutoNaming/UpdateService.hs +0/−156
• gen/Network/AWS/Route53AutoNaming/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/Route53AutoNaming.hs +0/−363
• test/Test/AWS/Route53AutoNaming.hs +0/−20
• test/Test/AWS/Route53AutoNaming/Internal.hs +0/−9
• test/Test/Amazonka/Gen/Route53AutoNaming.hs +558/−0
• test/Test/Amazonka/Route53AutoNaming.hs +20/−0
• test/Test/Amazonka/Route53AutoNaming/Internal.hs +8/−0

@@ -1,4 +1,4 @@-# Amazon Route 53 Auto Naming SDK+# Amazon Cloud Map SDK  * [Version](#version) * [Description](#description)@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2017-03-14@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.Route53AutoNaming](http://hackage.haskell.org/package/amazonka-route53-autonaming/docs/Network-AWS-Route53AutoNaming.html)+See [Amazonka.Route53AutoNaming](http://hackage.haskell.org/package/amazonka-route53-autonaming/docs/Amazonka-Route53AutoNaming.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,103 +1,160 @@-name:                  amazonka-route53-autonaming-version:               1.6.1-synopsis:              Amazon Route 53 Auto Naming SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-route53-autonaming+version:            2.0+synopsis:           Amazon Cloud Map 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:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.Route53AutoNaming" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-03-14@ 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.Route53AutoNaming.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.Route53AutoNaming" 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-route53-autonaming+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-route53-autonaming  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.Route53AutoNaming-        , Network.AWS.Route53AutoNaming.CreatePrivateDNSNamespace-        , Network.AWS.Route53AutoNaming.CreatePublicDNSNamespace-        , Network.AWS.Route53AutoNaming.CreateService-        , Network.AWS.Route53AutoNaming.DeleteNamespace-        , Network.AWS.Route53AutoNaming.DeleteService-        , Network.AWS.Route53AutoNaming.DeregisterInstance-        , Network.AWS.Route53AutoNaming.GetInstance-        , Network.AWS.Route53AutoNaming.GetInstancesHealthStatus-        , Network.AWS.Route53AutoNaming.GetNamespace-        , Network.AWS.Route53AutoNaming.GetOperation-        , Network.AWS.Route53AutoNaming.GetService-        , Network.AWS.Route53AutoNaming.ListInstances-        , Network.AWS.Route53AutoNaming.ListNamespaces-        , Network.AWS.Route53AutoNaming.ListOperations-        , Network.AWS.Route53AutoNaming.ListServices-        , Network.AWS.Route53AutoNaming.RegisterInstance-        , Network.AWS.Route53AutoNaming.Types-        , Network.AWS.Route53AutoNaming.UpdateInstanceCustomHealthStatus-        , Network.AWS.Route53AutoNaming.UpdateService-        , Network.AWS.Route53AutoNaming.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.Route53AutoNaming.Types.Product-        , Network.AWS.Route53AutoNaming.Types.Sum+  exposed-modules:+    Amazonka.Route53AutoNaming+    Amazonka.Route53AutoNaming.CreateHttpNamespace+    Amazonka.Route53AutoNaming.CreatePrivateDnsNamespace+    Amazonka.Route53AutoNaming.CreatePublicDnsNamespace+    Amazonka.Route53AutoNaming.CreateService+    Amazonka.Route53AutoNaming.DeleteNamespace+    Amazonka.Route53AutoNaming.DeleteService+    Amazonka.Route53AutoNaming.DeregisterInstance+    Amazonka.Route53AutoNaming.DiscoverInstances+    Amazonka.Route53AutoNaming.GetInstance+    Amazonka.Route53AutoNaming.GetInstancesHealthStatus+    Amazonka.Route53AutoNaming.GetNamespace+    Amazonka.Route53AutoNaming.GetOperation+    Amazonka.Route53AutoNaming.GetService+    Amazonka.Route53AutoNaming.Lens+    Amazonka.Route53AutoNaming.ListInstances+    Amazonka.Route53AutoNaming.ListNamespaces+    Amazonka.Route53AutoNaming.ListOperations+    Amazonka.Route53AutoNaming.ListServices+    Amazonka.Route53AutoNaming.ListTagsForResource+    Amazonka.Route53AutoNaming.RegisterInstance+    Amazonka.Route53AutoNaming.TagResource+    Amazonka.Route53AutoNaming.Types+    Amazonka.Route53AutoNaming.Types.CustomHealthStatus+    Amazonka.Route53AutoNaming.Types.DnsConfig+    Amazonka.Route53AutoNaming.Types.DnsConfigChange+    Amazonka.Route53AutoNaming.Types.DnsProperties+    Amazonka.Route53AutoNaming.Types.DnsRecord+    Amazonka.Route53AutoNaming.Types.FilterCondition+    Amazonka.Route53AutoNaming.Types.HealthCheckConfig+    Amazonka.Route53AutoNaming.Types.HealthCheckCustomConfig+    Amazonka.Route53AutoNaming.Types.HealthCheckType+    Amazonka.Route53AutoNaming.Types.HealthStatus+    Amazonka.Route53AutoNaming.Types.HealthStatusFilter+    Amazonka.Route53AutoNaming.Types.HttpInstanceSummary+    Amazonka.Route53AutoNaming.Types.HttpNamespaceChange+    Amazonka.Route53AutoNaming.Types.HttpProperties+    Amazonka.Route53AutoNaming.Types.Instance+    Amazonka.Route53AutoNaming.Types.InstanceSummary+    Amazonka.Route53AutoNaming.Types.Namespace+    Amazonka.Route53AutoNaming.Types.NamespaceFilter+    Amazonka.Route53AutoNaming.Types.NamespaceFilterName+    Amazonka.Route53AutoNaming.Types.NamespaceProperties+    Amazonka.Route53AutoNaming.Types.NamespaceSummary+    Amazonka.Route53AutoNaming.Types.NamespaceType+    Amazonka.Route53AutoNaming.Types.Operation+    Amazonka.Route53AutoNaming.Types.OperationFilter+    Amazonka.Route53AutoNaming.Types.OperationFilterName+    Amazonka.Route53AutoNaming.Types.OperationStatus+    Amazonka.Route53AutoNaming.Types.OperationSummary+    Amazonka.Route53AutoNaming.Types.OperationTargetType+    Amazonka.Route53AutoNaming.Types.OperationType+    Amazonka.Route53AutoNaming.Types.PrivateDnsNamespaceChange+    Amazonka.Route53AutoNaming.Types.PrivateDnsNamespaceProperties+    Amazonka.Route53AutoNaming.Types.PrivateDnsNamespacePropertiesChange+    Amazonka.Route53AutoNaming.Types.PrivateDnsPropertiesMutable+    Amazonka.Route53AutoNaming.Types.PrivateDnsPropertiesMutableChange+    Amazonka.Route53AutoNaming.Types.PublicDnsNamespaceChange+    Amazonka.Route53AutoNaming.Types.PublicDnsNamespaceProperties+    Amazonka.Route53AutoNaming.Types.PublicDnsNamespacePropertiesChange+    Amazonka.Route53AutoNaming.Types.PublicDnsPropertiesMutable+    Amazonka.Route53AutoNaming.Types.PublicDnsPropertiesMutableChange+    Amazonka.Route53AutoNaming.Types.RecordType+    Amazonka.Route53AutoNaming.Types.RoutingPolicy+    Amazonka.Route53AutoNaming.Types.ServiceChange+    Amazonka.Route53AutoNaming.Types.ServiceFilter+    Amazonka.Route53AutoNaming.Types.ServiceFilterName+    Amazonka.Route53AutoNaming.Types.ServiceInfo+    Amazonka.Route53AutoNaming.Types.ServiceSummary+    Amazonka.Route53AutoNaming.Types.ServiceType+    Amazonka.Route53AutoNaming.Types.ServiceTypeOption+    Amazonka.Route53AutoNaming.Types.SOA+    Amazonka.Route53AutoNaming.Types.SOAChange+    Amazonka.Route53AutoNaming.Types.Tag+    Amazonka.Route53AutoNaming.UntagResource+    Amazonka.Route53AutoNaming.UpdateHttpNamespace+    Amazonka.Route53AutoNaming.UpdateInstanceCustomHealthStatus+    Amazonka.Route53AutoNaming.UpdatePrivateDnsNamespace+    Amazonka.Route53AutoNaming.UpdatePublicDnsNamespace+    Amazonka.Route53AutoNaming.UpdateService+    Amazonka.Route53AutoNaming.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-route53-autonaming-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.Route53AutoNaming-        , Test.AWS.Gen.Route53AutoNaming-        , Test.AWS.Route53AutoNaming.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.Route53AutoNaming+    Test.Amazonka.Route53AutoNaming+    Test.Amazonka.Route53AutoNaming.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-route53-autonaming-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core                >=2.0 && <2.1+    , amazonka-route53-autonaming+    , amazonka-test                >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -1,10 +0,0 @@-----method: POST-headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  servicediscovery.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:-  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -1,10 +0,0 @@-----method: POST-headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  servicediscovery.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:-  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicediscovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicediscovery.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:+  ''

@@ -0,0 +1,481 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.Route53AutoNaming+-- 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 @2017-03-14@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Cloud Map+--+-- With Cloud Map, you can configure public DNS, private DNS, or HTTP+-- namespaces that your microservice applications run in. When an instance+-- becomes available, you can call the Cloud Map API to register the+-- instance with Cloud Map. For public or private DNS namespaces, Cloud Map+-- automatically creates DNS records and an optional health check. Clients+-- that submit public or private DNS queries, or HTTP requests, for the+-- service receive an answer that contains up to eight healthy records.+module Amazonka.Route53AutoNaming+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** CustomHealthNotFound+    _CustomHealthNotFound,++    -- ** DuplicateRequest+    _DuplicateRequest,++    -- ** InstanceNotFound+    _InstanceNotFound,++    -- ** InvalidInput+    _InvalidInput,++    -- ** NamespaceAlreadyExists+    _NamespaceAlreadyExists,++    -- ** NamespaceNotFound+    _NamespaceNotFound,++    -- ** OperationNotFound+    _OperationNotFound,++    -- ** RequestLimitExceeded+    _RequestLimitExceeded,++    -- ** ResourceInUse+    _ResourceInUse,++    -- ** ResourceLimitExceeded+    _ResourceLimitExceeded,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ServiceAlreadyExists+    _ServiceAlreadyExists,++    -- ** ServiceNotFound+    _ServiceNotFound,++    -- ** TooManyTagsException+    _TooManyTagsException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateHttpNamespace+    CreateHttpNamespace (CreateHttpNamespace'),+    newCreateHttpNamespace,+    CreateHttpNamespaceResponse (CreateHttpNamespaceResponse'),+    newCreateHttpNamespaceResponse,++    -- ** CreatePrivateDnsNamespace+    CreatePrivateDnsNamespace (CreatePrivateDnsNamespace'),+    newCreatePrivateDnsNamespace,+    CreatePrivateDnsNamespaceResponse (CreatePrivateDnsNamespaceResponse'),+    newCreatePrivateDnsNamespaceResponse,++    -- ** CreatePublicDnsNamespace+    CreatePublicDnsNamespace (CreatePublicDnsNamespace'),+    newCreatePublicDnsNamespace,+    CreatePublicDnsNamespaceResponse (CreatePublicDnsNamespaceResponse'),+    newCreatePublicDnsNamespaceResponse,++    -- ** CreateService+    CreateService (CreateService'),+    newCreateService,+    CreateServiceResponse (CreateServiceResponse'),+    newCreateServiceResponse,++    -- ** DeleteNamespace+    DeleteNamespace (DeleteNamespace'),+    newDeleteNamespace,+    DeleteNamespaceResponse (DeleteNamespaceResponse'),+    newDeleteNamespaceResponse,++    -- ** DeleteService+    DeleteService (DeleteService'),+    newDeleteService,+    DeleteServiceResponse (DeleteServiceResponse'),+    newDeleteServiceResponse,++    -- ** DeregisterInstance+    DeregisterInstance (DeregisterInstance'),+    newDeregisterInstance,+    DeregisterInstanceResponse (DeregisterInstanceResponse'),+    newDeregisterInstanceResponse,++    -- ** DiscoverInstances+    DiscoverInstances (DiscoverInstances'),+    newDiscoverInstances,+    DiscoverInstancesResponse (DiscoverInstancesResponse'),+    newDiscoverInstancesResponse,++    -- ** GetInstance+    GetInstance (GetInstance'),+    newGetInstance,+    GetInstanceResponse (GetInstanceResponse'),+    newGetInstanceResponse,++    -- ** GetInstancesHealthStatus+    GetInstancesHealthStatus (GetInstancesHealthStatus'),+    newGetInstancesHealthStatus,+    GetInstancesHealthStatusResponse (GetInstancesHealthStatusResponse'),+    newGetInstancesHealthStatusResponse,++    -- ** GetNamespace+    GetNamespace (GetNamespace'),+    newGetNamespace,+    GetNamespaceResponse (GetNamespaceResponse'),+    newGetNamespaceResponse,++    -- ** GetOperation+    GetOperation (GetOperation'),+    newGetOperation,+    GetOperationResponse (GetOperationResponse'),+    newGetOperationResponse,++    -- ** GetService+    GetService (GetService'),+    newGetService,+    GetServiceResponse (GetServiceResponse'),+    newGetServiceResponse,++    -- ** ListInstances (Paginated)+    ListInstances (ListInstances'),+    newListInstances,+    ListInstancesResponse (ListInstancesResponse'),+    newListInstancesResponse,++    -- ** ListNamespaces (Paginated)+    ListNamespaces (ListNamespaces'),+    newListNamespaces,+    ListNamespacesResponse (ListNamespacesResponse'),+    newListNamespacesResponse,++    -- ** ListOperations (Paginated)+    ListOperations (ListOperations'),+    newListOperations,+    ListOperationsResponse (ListOperationsResponse'),+    newListOperationsResponse,++    -- ** ListServices (Paginated)+    ListServices (ListServices'),+    newListServices,+    ListServicesResponse (ListServicesResponse'),+    newListServicesResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** RegisterInstance+    RegisterInstance (RegisterInstance'),+    newRegisterInstance,+    RegisterInstanceResponse (RegisterInstanceResponse'),+    newRegisterInstanceResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateHttpNamespace+    UpdateHttpNamespace (UpdateHttpNamespace'),+    newUpdateHttpNamespace,+    UpdateHttpNamespaceResponse (UpdateHttpNamespaceResponse'),+    newUpdateHttpNamespaceResponse,++    -- ** UpdateInstanceCustomHealthStatus+    UpdateInstanceCustomHealthStatus (UpdateInstanceCustomHealthStatus'),+    newUpdateInstanceCustomHealthStatus,+    UpdateInstanceCustomHealthStatusResponse (UpdateInstanceCustomHealthStatusResponse'),+    newUpdateInstanceCustomHealthStatusResponse,++    -- ** UpdatePrivateDnsNamespace+    UpdatePrivateDnsNamespace (UpdatePrivateDnsNamespace'),+    newUpdatePrivateDnsNamespace,+    UpdatePrivateDnsNamespaceResponse (UpdatePrivateDnsNamespaceResponse'),+    newUpdatePrivateDnsNamespaceResponse,++    -- ** UpdatePublicDnsNamespace+    UpdatePublicDnsNamespace (UpdatePublicDnsNamespace'),+    newUpdatePublicDnsNamespace,+    UpdatePublicDnsNamespaceResponse (UpdatePublicDnsNamespaceResponse'),+    newUpdatePublicDnsNamespaceResponse,++    -- ** UpdateService+    UpdateService (UpdateService'),+    newUpdateService,+    UpdateServiceResponse (UpdateServiceResponse'),+    newUpdateServiceResponse,++    -- * Types++    -- ** CustomHealthStatus+    CustomHealthStatus (..),++    -- ** FilterCondition+    FilterCondition (..),++    -- ** HealthCheckType+    HealthCheckType (..),++    -- ** HealthStatus+    HealthStatus (..),++    -- ** HealthStatusFilter+    HealthStatusFilter (..),++    -- ** NamespaceFilterName+    NamespaceFilterName (..),++    -- ** NamespaceType+    NamespaceType (..),++    -- ** OperationFilterName+    OperationFilterName (..),++    -- ** OperationStatus+    OperationStatus (..),++    -- ** OperationTargetType+    OperationTargetType (..),++    -- ** OperationType+    OperationType (..),++    -- ** RecordType+    RecordType (..),++    -- ** RoutingPolicy+    RoutingPolicy (..),++    -- ** ServiceFilterName+    ServiceFilterName (..),++    -- ** ServiceType+    ServiceType (..),++    -- ** ServiceTypeOption+    ServiceTypeOption (..),++    -- ** DnsConfig+    DnsConfig (DnsConfig'),+    newDnsConfig,++    -- ** DnsConfigChange+    DnsConfigChange (DnsConfigChange'),+    newDnsConfigChange,++    -- ** DnsProperties+    DnsProperties (DnsProperties'),+    newDnsProperties,++    -- ** DnsRecord+    DnsRecord (DnsRecord'),+    newDnsRecord,++    -- ** HealthCheckConfig+    HealthCheckConfig (HealthCheckConfig'),+    newHealthCheckConfig,++    -- ** HealthCheckCustomConfig+    HealthCheckCustomConfig (HealthCheckCustomConfig'),+    newHealthCheckCustomConfig,++    -- ** HttpInstanceSummary+    HttpInstanceSummary (HttpInstanceSummary'),+    newHttpInstanceSummary,++    -- ** HttpNamespaceChange+    HttpNamespaceChange (HttpNamespaceChange'),+    newHttpNamespaceChange,++    -- ** HttpProperties+    HttpProperties (HttpProperties'),+    newHttpProperties,++    -- ** Instance+    Instance (Instance'),+    newInstance,++    -- ** InstanceSummary+    InstanceSummary (InstanceSummary'),+    newInstanceSummary,++    -- ** Namespace+    Namespace (Namespace'),+    newNamespace,++    -- ** NamespaceFilter+    NamespaceFilter (NamespaceFilter'),+    newNamespaceFilter,++    -- ** NamespaceProperties+    NamespaceProperties (NamespaceProperties'),+    newNamespaceProperties,++    -- ** NamespaceSummary+    NamespaceSummary (NamespaceSummary'),+    newNamespaceSummary,++    -- ** Operation+    Operation (Operation'),+    newOperation,++    -- ** OperationFilter+    OperationFilter (OperationFilter'),+    newOperationFilter,++    -- ** OperationSummary+    OperationSummary (OperationSummary'),+    newOperationSummary,++    -- ** PrivateDnsNamespaceChange+    PrivateDnsNamespaceChange (PrivateDnsNamespaceChange'),+    newPrivateDnsNamespaceChange,++    -- ** PrivateDnsNamespaceProperties+    PrivateDnsNamespaceProperties (PrivateDnsNamespaceProperties'),+    newPrivateDnsNamespaceProperties,++    -- ** PrivateDnsNamespacePropertiesChange+    PrivateDnsNamespacePropertiesChange (PrivateDnsNamespacePropertiesChange'),+    newPrivateDnsNamespacePropertiesChange,++    -- ** PrivateDnsPropertiesMutable+    PrivateDnsPropertiesMutable (PrivateDnsPropertiesMutable'),+    newPrivateDnsPropertiesMutable,++    -- ** PrivateDnsPropertiesMutableChange+    PrivateDnsPropertiesMutableChange (PrivateDnsPropertiesMutableChange'),+    newPrivateDnsPropertiesMutableChange,++    -- ** PublicDnsNamespaceChange+    PublicDnsNamespaceChange (PublicDnsNamespaceChange'),+    newPublicDnsNamespaceChange,++    -- ** PublicDnsNamespaceProperties+    PublicDnsNamespaceProperties (PublicDnsNamespaceProperties'),+    newPublicDnsNamespaceProperties,++    -- ** PublicDnsNamespacePropertiesChange+    PublicDnsNamespacePropertiesChange (PublicDnsNamespacePropertiesChange'),+    newPublicDnsNamespacePropertiesChange,++    -- ** PublicDnsPropertiesMutable+    PublicDnsPropertiesMutable (PublicDnsPropertiesMutable'),+    newPublicDnsPropertiesMutable,++    -- ** PublicDnsPropertiesMutableChange+    PublicDnsPropertiesMutableChange (PublicDnsPropertiesMutableChange'),+    newPublicDnsPropertiesMutableChange,++    -- ** SOA+    SOA (SOA'),+    newSOA,++    -- ** SOAChange+    SOAChange (SOAChange'),+    newSOAChange,++    -- ** ServiceChange+    ServiceChange (ServiceChange'),+    newServiceChange,++    -- ** ServiceFilter+    ServiceFilter (ServiceFilter'),+    newServiceFilter,++    -- ** ServiceInfo+    ServiceInfo (ServiceInfo'),+    newServiceInfo,++    -- ** ServiceSummary+    ServiceSummary (ServiceSummary'),+    newServiceSummary,++    -- ** Tag+    Tag (Tag'),+    newTag,+  )+where++import Amazonka.Route53AutoNaming.CreateHttpNamespace+import Amazonka.Route53AutoNaming.CreatePrivateDnsNamespace+import Amazonka.Route53AutoNaming.CreatePublicDnsNamespace+import Amazonka.Route53AutoNaming.CreateService+import Amazonka.Route53AutoNaming.DeleteNamespace+import Amazonka.Route53AutoNaming.DeleteService+import Amazonka.Route53AutoNaming.DeregisterInstance+import Amazonka.Route53AutoNaming.DiscoverInstances+import Amazonka.Route53AutoNaming.GetInstance+import Amazonka.Route53AutoNaming.GetInstancesHealthStatus+import Amazonka.Route53AutoNaming.GetNamespace+import Amazonka.Route53AutoNaming.GetOperation+import Amazonka.Route53AutoNaming.GetService+import Amazonka.Route53AutoNaming.Lens+import Amazonka.Route53AutoNaming.ListInstances+import Amazonka.Route53AutoNaming.ListNamespaces+import Amazonka.Route53AutoNaming.ListOperations+import Amazonka.Route53AutoNaming.ListServices+import Amazonka.Route53AutoNaming.ListTagsForResource+import Amazonka.Route53AutoNaming.RegisterInstance+import Amazonka.Route53AutoNaming.TagResource+import Amazonka.Route53AutoNaming.Types+import Amazonka.Route53AutoNaming.UntagResource+import Amazonka.Route53AutoNaming.UpdateHttpNamespace+import Amazonka.Route53AutoNaming.UpdateInstanceCustomHealthStatus+import Amazonka.Route53AutoNaming.UpdatePrivateDnsNamespace+import Amazonka.Route53AutoNaming.UpdatePublicDnsNamespace+import Amazonka.Route53AutoNaming.UpdateService+import Amazonka.Route53AutoNaming.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 'Route53AutoNaming'.++-- $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.

@@ -0,0 +1,242 @@+{-# 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.Route53AutoNaming.CreateHttpNamespace+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an HTTP namespace. Service instances registered using an HTTP+-- namespace can be discovered using a @DiscoverInstances@ request but+-- can\'t be discovered using DNS.+--+-- For the current quota on the number of namespaces that you can create+-- using the same Amazon Web Services account, see+-- <https://docs.aws.amazon.com/cloud-map/latest/dg/cloud-map-limits.html Cloud Map quotas>+-- in the /Cloud Map Developer Guide/.+module Amazonka.Route53AutoNaming.CreateHttpNamespace+  ( -- * Creating a Request+    CreateHttpNamespace (..),+    newCreateHttpNamespace,++    -- * Request Lenses+    createHttpNamespace_creatorRequestId,+    createHttpNamespace_description,+    createHttpNamespace_tags,+    createHttpNamespace_name,++    -- * Destructuring the Response+    CreateHttpNamespaceResponse (..),+    newCreateHttpNamespaceResponse,++    -- * Response Lenses+    createHttpNamespaceResponse_operationId,+    createHttpNamespaceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newCreateHttpNamespace' smart constructor.+data CreateHttpNamespace = CreateHttpNamespace'+  { -- | A unique string that identifies the request and that allows failed+    -- @CreateHttpNamespace@ requests to be retried without the risk of running+    -- the operation twice. @CreatorRequestId@ can be any unique string (for+    -- example, a date\/time stamp).+    creatorRequestId :: Prelude.Maybe Prelude.Text,+    -- | A description for the namespace.+    description :: Prelude.Maybe Prelude.Text,+    -- | The tags to add to the namespace. Each tag consists of a key and an+    -- optional value that you define. Tags keys can be up to 128 characters in+    -- length, and tag values can be up to 256 characters in length.+    tags :: Prelude.Maybe [Tag],+    -- | The name that you want to assign to this namespace.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHttpNamespace' 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:+--+-- 'creatorRequestId', 'createHttpNamespace_creatorRequestId' - A unique string that identifies the request and that allows failed+-- @CreateHttpNamespace@ requests to be retried without the risk of running+-- the operation twice. @CreatorRequestId@ can be any unique string (for+-- example, a date\/time stamp).+--+-- 'description', 'createHttpNamespace_description' - A description for the namespace.+--+-- 'tags', 'createHttpNamespace_tags' - The tags to add to the namespace. Each tag consists of a key and an+-- optional value that you define. Tags keys can be up to 128 characters in+-- length, and tag values can be up to 256 characters in length.+--+-- 'name', 'createHttpNamespace_name' - The name that you want to assign to this namespace.+newCreateHttpNamespace ::+  -- | 'name'+  Prelude.Text ->+  CreateHttpNamespace+newCreateHttpNamespace pName_ =+  CreateHttpNamespace'+    { creatorRequestId =+        Prelude.Nothing,+      description = Prelude.Nothing,+      tags = Prelude.Nothing,+      name = pName_+    }++-- | A unique string that identifies the request and that allows failed+-- @CreateHttpNamespace@ requests to be retried without the risk of running+-- the operation twice. @CreatorRequestId@ can be any unique string (for+-- example, a date\/time stamp).+createHttpNamespace_creatorRequestId :: Lens.Lens' CreateHttpNamespace (Prelude.Maybe Prelude.Text)+createHttpNamespace_creatorRequestId = Lens.lens (\CreateHttpNamespace' {creatorRequestId} -> creatorRequestId) (\s@CreateHttpNamespace' {} a -> s {creatorRequestId = a} :: CreateHttpNamespace)++-- | A description for the namespace.+createHttpNamespace_description :: Lens.Lens' CreateHttpNamespace (Prelude.Maybe Prelude.Text)+createHttpNamespace_description = Lens.lens (\CreateHttpNamespace' {description} -> description) (\s@CreateHttpNamespace' {} a -> s {description = a} :: CreateHttpNamespace)++-- | The tags to add to the namespace. Each tag consists of a key and an+-- optional value that you define. Tags keys can be up to 128 characters in+-- length, and tag values can be up to 256 characters in length.+createHttpNamespace_tags :: Lens.Lens' CreateHttpNamespace (Prelude.Maybe [Tag])+createHttpNamespace_tags = Lens.lens (\CreateHttpNamespace' {tags} -> tags) (\s@CreateHttpNamespace' {} a -> s {tags = a} :: CreateHttpNamespace) Prelude.. Lens.mapping Lens.coerced++-- | The name that you want to assign to this namespace.+createHttpNamespace_name :: Lens.Lens' CreateHttpNamespace Prelude.Text+createHttpNamespace_name = Lens.lens (\CreateHttpNamespace' {name} -> name) (\s@CreateHttpNamespace' {} a -> s {name = a} :: CreateHttpNamespace)++instance Core.AWSRequest CreateHttpNamespace where+  type+    AWSResponse CreateHttpNamespace =+      CreateHttpNamespaceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateHttpNamespaceResponse'+            Prelude.<$> (x Data..?> "OperationId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateHttpNamespace where+  hashWithSalt _salt CreateHttpNamespace' {..} =+    _salt+      `Prelude.hashWithSalt` creatorRequestId+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateHttpNamespace where+  rnf CreateHttpNamespace' {..} =+    Prelude.rnf creatorRequestId+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateHttpNamespace where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.CreateHttpNamespace" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateHttpNamespace where+  toJSON CreateHttpNamespace' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CreatorRequestId" Data..=)+              Prelude.<$> creatorRequestId,+            ("Description" Data..=) Prelude.<$> description,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Name" Data..= name)+          ]+      )++instance Data.ToPath CreateHttpNamespace where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateHttpNamespace where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateHttpNamespaceResponse' smart constructor.+data CreateHttpNamespaceResponse = CreateHttpNamespaceResponse'+  { -- | A value that you can use to determine whether the request completed+    -- successfully. To get the status of the operation, see+    -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+    operationId :: 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 'CreateHttpNamespaceResponse' 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:+--+-- 'operationId', 'createHttpNamespaceResponse_operationId' - A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+--+-- 'httpStatus', 'createHttpNamespaceResponse_httpStatus' - The response's http status code.+newCreateHttpNamespaceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateHttpNamespaceResponse+newCreateHttpNamespaceResponse pHttpStatus_ =+  CreateHttpNamespaceResponse'+    { operationId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+createHttpNamespaceResponse_operationId :: Lens.Lens' CreateHttpNamespaceResponse (Prelude.Maybe Prelude.Text)+createHttpNamespaceResponse_operationId = Lens.lens (\CreateHttpNamespaceResponse' {operationId} -> operationId) (\s@CreateHttpNamespaceResponse' {} a -> s {operationId = a} :: CreateHttpNamespaceResponse)++-- | The response's http status code.+createHttpNamespaceResponse_httpStatus :: Lens.Lens' CreateHttpNamespaceResponse Prelude.Int+createHttpNamespaceResponse_httpStatus = Lens.lens (\CreateHttpNamespaceResponse' {httpStatus} -> httpStatus) (\s@CreateHttpNamespaceResponse' {} a -> s {httpStatus = a} :: CreateHttpNamespaceResponse)++instance Prelude.NFData CreateHttpNamespaceResponse where+  rnf CreateHttpNamespaceResponse' {..} =+    Prelude.rnf operationId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,282 @@+{-# 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.Route53AutoNaming.CreatePrivateDnsNamespace+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a private namespace based on DNS, which is visible only inside a+-- specified Amazon VPC. The namespace defines your service naming scheme.+-- For example, if you name your namespace @example.com@ and name your+-- service @backend@, the resulting DNS name for the service is+-- @backend.example.com@. Service instances that are registered using a+-- private DNS namespace can be discovered using either a+-- @DiscoverInstances@ request or using DNS. For the current quota on the+-- number of namespaces that you can create using the same Amazon Web+-- Services account, see+-- <https://docs.aws.amazon.com/cloud-map/latest/dg/cloud-map-limits.html Cloud Map quotas>+-- in the /Cloud Map Developer Guide/.+module Amazonka.Route53AutoNaming.CreatePrivateDnsNamespace+  ( -- * Creating a Request+    CreatePrivateDnsNamespace (..),+    newCreatePrivateDnsNamespace,++    -- * Request Lenses+    createPrivateDnsNamespace_creatorRequestId,+    createPrivateDnsNamespace_description,+    createPrivateDnsNamespace_properties,+    createPrivateDnsNamespace_tags,+    createPrivateDnsNamespace_name,+    createPrivateDnsNamespace_vpc,++    -- * Destructuring the Response+    CreatePrivateDnsNamespaceResponse (..),+    newCreatePrivateDnsNamespaceResponse,++    -- * Response Lenses+    createPrivateDnsNamespaceResponse_operationId,+    createPrivateDnsNamespaceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newCreatePrivateDnsNamespace' smart constructor.+data CreatePrivateDnsNamespace = CreatePrivateDnsNamespace'+  { -- | A unique string that identifies the request and that allows failed+    -- @CreatePrivateDnsNamespace@ requests to be retried without the risk of+    -- running the operation twice. @CreatorRequestId@ can be any unique string+    -- (for example, a date\/timestamp).+    creatorRequestId :: Prelude.Maybe Prelude.Text,+    -- | A description for the namespace.+    description :: Prelude.Maybe Prelude.Text,+    -- | Properties for the private DNS namespace.+    properties :: Prelude.Maybe PrivateDnsNamespaceProperties,+    -- | The tags to add to the namespace. Each tag consists of a key and an+    -- optional value that you define. Tags keys can be up to 128 characters in+    -- length, and tag values can be up to 256 characters in length.+    tags :: Prelude.Maybe [Tag],+    -- | The name that you want to assign to this namespace. When you create a+    -- private DNS namespace, Cloud Map automatically creates an Amazon+    -- Route 53 private hosted zone that has the same name as the namespace.+    name :: Prelude.Text,+    -- | The ID of the Amazon VPC that you want to associate the namespace with.+    vpc :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreatePrivateDnsNamespace' 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:+--+-- 'creatorRequestId', 'createPrivateDnsNamespace_creatorRequestId' - A unique string that identifies the request and that allows failed+-- @CreatePrivateDnsNamespace@ requests to be retried without the risk of+-- running the operation twice. @CreatorRequestId@ can be any unique string+-- (for example, a date\/timestamp).+--+-- 'description', 'createPrivateDnsNamespace_description' - A description for the namespace.+--+-- 'properties', 'createPrivateDnsNamespace_properties' - Properties for the private DNS namespace.+--+-- 'tags', 'createPrivateDnsNamespace_tags' - The tags to add to the namespace. Each tag consists of a key and an+-- optional value that you define. Tags keys can be up to 128 characters in+-- length, and tag values can be up to 256 characters in length.+--+-- 'name', 'createPrivateDnsNamespace_name' - The name that you want to assign to this namespace. When you create a+-- private DNS namespace, Cloud Map automatically creates an Amazon+-- Route 53 private hosted zone that has the same name as the namespace.+--+-- 'vpc', 'createPrivateDnsNamespace_vpc' - The ID of the Amazon VPC that you want to associate the namespace with.+newCreatePrivateDnsNamespace ::+  -- | 'name'+  Prelude.Text ->+  -- | 'vpc'+  Prelude.Text ->+  CreatePrivateDnsNamespace+newCreatePrivateDnsNamespace pName_ pVpc_ =+  CreatePrivateDnsNamespace'+    { creatorRequestId =+        Prelude.Nothing,+      description = Prelude.Nothing,+      properties = Prelude.Nothing,+      tags = Prelude.Nothing,+      name = pName_,+      vpc = pVpc_+    }++-- | A unique string that identifies the request and that allows failed+-- @CreatePrivateDnsNamespace@ requests to be retried without the risk of+-- running the operation twice. @CreatorRequestId@ can be any unique string+-- (for example, a date\/timestamp).+createPrivateDnsNamespace_creatorRequestId :: Lens.Lens' CreatePrivateDnsNamespace (Prelude.Maybe Prelude.Text)+createPrivateDnsNamespace_creatorRequestId = Lens.lens (\CreatePrivateDnsNamespace' {creatorRequestId} -> creatorRequestId) (\s@CreatePrivateDnsNamespace' {} a -> s {creatorRequestId = a} :: CreatePrivateDnsNamespace)++-- | A description for the namespace.+createPrivateDnsNamespace_description :: Lens.Lens' CreatePrivateDnsNamespace (Prelude.Maybe Prelude.Text)+createPrivateDnsNamespace_description = Lens.lens (\CreatePrivateDnsNamespace' {description} -> description) (\s@CreatePrivateDnsNamespace' {} a -> s {description = a} :: CreatePrivateDnsNamespace)++-- | Properties for the private DNS namespace.+createPrivateDnsNamespace_properties :: Lens.Lens' CreatePrivateDnsNamespace (Prelude.Maybe PrivateDnsNamespaceProperties)+createPrivateDnsNamespace_properties = Lens.lens (\CreatePrivateDnsNamespace' {properties} -> properties) (\s@CreatePrivateDnsNamespace' {} a -> s {properties = a} :: CreatePrivateDnsNamespace)++-- | The tags to add to the namespace. Each tag consists of a key and an+-- optional value that you define. Tags keys can be up to 128 characters in+-- length, and tag values can be up to 256 characters in length.+createPrivateDnsNamespace_tags :: Lens.Lens' CreatePrivateDnsNamespace (Prelude.Maybe [Tag])+createPrivateDnsNamespace_tags = Lens.lens (\CreatePrivateDnsNamespace' {tags} -> tags) (\s@CreatePrivateDnsNamespace' {} a -> s {tags = a} :: CreatePrivateDnsNamespace) Prelude.. Lens.mapping Lens.coerced++-- | The name that you want to assign to this namespace. When you create a+-- private DNS namespace, Cloud Map automatically creates an Amazon+-- Route 53 private hosted zone that has the same name as the namespace.+createPrivateDnsNamespace_name :: Lens.Lens' CreatePrivateDnsNamespace Prelude.Text+createPrivateDnsNamespace_name = Lens.lens (\CreatePrivateDnsNamespace' {name} -> name) (\s@CreatePrivateDnsNamespace' {} a -> s {name = a} :: CreatePrivateDnsNamespace)++-- | The ID of the Amazon VPC that you want to associate the namespace with.+createPrivateDnsNamespace_vpc :: Lens.Lens' CreatePrivateDnsNamespace Prelude.Text+createPrivateDnsNamespace_vpc = Lens.lens (\CreatePrivateDnsNamespace' {vpc} -> vpc) (\s@CreatePrivateDnsNamespace' {} a -> s {vpc = a} :: CreatePrivateDnsNamespace)++instance Core.AWSRequest CreatePrivateDnsNamespace where+  type+    AWSResponse CreatePrivateDnsNamespace =+      CreatePrivateDnsNamespaceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreatePrivateDnsNamespaceResponse'+            Prelude.<$> (x Data..?> "OperationId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreatePrivateDnsNamespace where+  hashWithSalt _salt CreatePrivateDnsNamespace' {..} =+    _salt+      `Prelude.hashWithSalt` creatorRequestId+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` properties+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` vpc++instance Prelude.NFData CreatePrivateDnsNamespace where+  rnf CreatePrivateDnsNamespace' {..} =+    Prelude.rnf creatorRequestId+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf properties+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf vpc++instance Data.ToHeaders CreatePrivateDnsNamespace where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.CreatePrivateDnsNamespace" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreatePrivateDnsNamespace where+  toJSON CreatePrivateDnsNamespace' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CreatorRequestId" Data..=)+              Prelude.<$> creatorRequestId,+            ("Description" Data..=) Prelude.<$> description,+            ("Properties" Data..=) Prelude.<$> properties,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Vpc" Data..= vpc)+          ]+      )++instance Data.ToPath CreatePrivateDnsNamespace where+  toPath = Prelude.const "/"++instance Data.ToQuery CreatePrivateDnsNamespace where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreatePrivateDnsNamespaceResponse' smart constructor.+data CreatePrivateDnsNamespaceResponse = CreatePrivateDnsNamespaceResponse'+  { -- | A value that you can use to determine whether the request completed+    -- successfully. To get the status of the operation, see+    -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+    operationId :: 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 'CreatePrivateDnsNamespaceResponse' 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:+--+-- 'operationId', 'createPrivateDnsNamespaceResponse_operationId' - A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+--+-- 'httpStatus', 'createPrivateDnsNamespaceResponse_httpStatus' - The response's http status code.+newCreatePrivateDnsNamespaceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreatePrivateDnsNamespaceResponse+newCreatePrivateDnsNamespaceResponse pHttpStatus_ =+  CreatePrivateDnsNamespaceResponse'+    { operationId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+createPrivateDnsNamespaceResponse_operationId :: Lens.Lens' CreatePrivateDnsNamespaceResponse (Prelude.Maybe Prelude.Text)+createPrivateDnsNamespaceResponse_operationId = Lens.lens (\CreatePrivateDnsNamespaceResponse' {operationId} -> operationId) (\s@CreatePrivateDnsNamespaceResponse' {} a -> s {operationId = a} :: CreatePrivateDnsNamespaceResponse)++-- | The response's http status code.+createPrivateDnsNamespaceResponse_httpStatus :: Lens.Lens' CreatePrivateDnsNamespaceResponse Prelude.Int+createPrivateDnsNamespaceResponse_httpStatus = Lens.lens (\CreatePrivateDnsNamespaceResponse' {httpStatus} -> httpStatus) (\s@CreatePrivateDnsNamespaceResponse' {} a -> s {httpStatus = a} :: CreatePrivateDnsNamespaceResponse)++instance+  Prelude.NFData+    CreatePrivateDnsNamespaceResponse+  where+  rnf CreatePrivateDnsNamespaceResponse' {..} =+    Prelude.rnf operationId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,272 @@+{-# 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.Route53AutoNaming.CreatePublicDnsNamespace+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a public namespace based on DNS, which is visible on the+-- internet. The namespace defines your service naming scheme. For example,+-- if you name your namespace @example.com@ and name your service+-- @backend@, the resulting DNS name for the service is+-- @backend.example.com@. You can discover instances that were registered+-- with a public DNS namespace by using either a @DiscoverInstances@+-- request or using DNS. For the current quota on the number of namespaces+-- that you can create using the same Amazon Web Services account, see+-- <https://docs.aws.amazon.com/cloud-map/latest/dg/cloud-map-limits.html Cloud Map quotas>+-- in the /Cloud Map Developer Guide/.+--+-- The @CreatePublicDnsNamespace@ API operation is not supported in the+-- Amazon Web Services GovCloud (US) Regions.+module Amazonka.Route53AutoNaming.CreatePublicDnsNamespace+  ( -- * Creating a Request+    CreatePublicDnsNamespace (..),+    newCreatePublicDnsNamespace,++    -- * Request Lenses+    createPublicDnsNamespace_creatorRequestId,+    createPublicDnsNamespace_description,+    createPublicDnsNamespace_properties,+    createPublicDnsNamespace_tags,+    createPublicDnsNamespace_name,++    -- * Destructuring the Response+    CreatePublicDnsNamespaceResponse (..),+    newCreatePublicDnsNamespaceResponse,++    -- * Response Lenses+    createPublicDnsNamespaceResponse_operationId,+    createPublicDnsNamespaceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newCreatePublicDnsNamespace' smart constructor.+data CreatePublicDnsNamespace = CreatePublicDnsNamespace'+  { -- | A unique string that identifies the request and that allows failed+    -- @CreatePublicDnsNamespace@ requests to be retried without the risk of+    -- running the operation twice. @CreatorRequestId@ can be any unique string+    -- (for example, a date\/timestamp).+    creatorRequestId :: Prelude.Maybe Prelude.Text,+    -- | A description for the namespace.+    description :: Prelude.Maybe Prelude.Text,+    -- | Properties for the public DNS namespace.+    properties :: Prelude.Maybe PublicDnsNamespaceProperties,+    -- | The tags to add to the namespace. Each tag consists of a key and an+    -- optional value that you define. Tags keys can be up to 128 characters in+    -- length, and tag values can be up to 256 characters in length.+    tags :: Prelude.Maybe [Tag],+    -- | The name that you want to assign to this namespace.+    --+    -- Do not include sensitive information in the name. The name is publicly+    -- available using DNS queries.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreatePublicDnsNamespace' 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:+--+-- 'creatorRequestId', 'createPublicDnsNamespace_creatorRequestId' - A unique string that identifies the request and that allows failed+-- @CreatePublicDnsNamespace@ requests to be retried without the risk of+-- running the operation twice. @CreatorRequestId@ can be any unique string+-- (for example, a date\/timestamp).+--+-- 'description', 'createPublicDnsNamespace_description' - A description for the namespace.+--+-- 'properties', 'createPublicDnsNamespace_properties' - Properties for the public DNS namespace.+--+-- 'tags', 'createPublicDnsNamespace_tags' - The tags to add to the namespace. Each tag consists of a key and an+-- optional value that you define. Tags keys can be up to 128 characters in+-- length, and tag values can be up to 256 characters in length.+--+-- 'name', 'createPublicDnsNamespace_name' - The name that you want to assign to this namespace.+--+-- Do not include sensitive information in the name. The name is publicly+-- available using DNS queries.+newCreatePublicDnsNamespace ::+  -- | 'name'+  Prelude.Text ->+  CreatePublicDnsNamespace+newCreatePublicDnsNamespace pName_ =+  CreatePublicDnsNamespace'+    { creatorRequestId =+        Prelude.Nothing,+      description = Prelude.Nothing,+      properties = Prelude.Nothing,+      tags = Prelude.Nothing,+      name = pName_+    }++-- | A unique string that identifies the request and that allows failed+-- @CreatePublicDnsNamespace@ requests to be retried without the risk of+-- running the operation twice. @CreatorRequestId@ can be any unique string+-- (for example, a date\/timestamp).+createPublicDnsNamespace_creatorRequestId :: Lens.Lens' CreatePublicDnsNamespace (Prelude.Maybe Prelude.Text)+createPublicDnsNamespace_creatorRequestId = Lens.lens (\CreatePublicDnsNamespace' {creatorRequestId} -> creatorRequestId) (\s@CreatePublicDnsNamespace' {} a -> s {creatorRequestId = a} :: CreatePublicDnsNamespace)++-- | A description for the namespace.+createPublicDnsNamespace_description :: Lens.Lens' CreatePublicDnsNamespace (Prelude.Maybe Prelude.Text)+createPublicDnsNamespace_description = Lens.lens (\CreatePublicDnsNamespace' {description} -> description) (\s@CreatePublicDnsNamespace' {} a -> s {description = a} :: CreatePublicDnsNamespace)++-- | Properties for the public DNS namespace.+createPublicDnsNamespace_properties :: Lens.Lens' CreatePublicDnsNamespace (Prelude.Maybe PublicDnsNamespaceProperties)+createPublicDnsNamespace_properties = Lens.lens (\CreatePublicDnsNamespace' {properties} -> properties) (\s@CreatePublicDnsNamespace' {} a -> s {properties = a} :: CreatePublicDnsNamespace)++-- | The tags to add to the namespace. Each tag consists of a key and an+-- optional value that you define. Tags keys can be up to 128 characters in+-- length, and tag values can be up to 256 characters in length.+createPublicDnsNamespace_tags :: Lens.Lens' CreatePublicDnsNamespace (Prelude.Maybe [Tag])+createPublicDnsNamespace_tags = Lens.lens (\CreatePublicDnsNamespace' {tags} -> tags) (\s@CreatePublicDnsNamespace' {} a -> s {tags = a} :: CreatePublicDnsNamespace) Prelude.. Lens.mapping Lens.coerced++-- | The name that you want to assign to this namespace.+--+-- Do not include sensitive information in the name. The name is publicly+-- available using DNS queries.+createPublicDnsNamespace_name :: Lens.Lens' CreatePublicDnsNamespace Prelude.Text+createPublicDnsNamespace_name = Lens.lens (\CreatePublicDnsNamespace' {name} -> name) (\s@CreatePublicDnsNamespace' {} a -> s {name = a} :: CreatePublicDnsNamespace)++instance Core.AWSRequest CreatePublicDnsNamespace where+  type+    AWSResponse CreatePublicDnsNamespace =+      CreatePublicDnsNamespaceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreatePublicDnsNamespaceResponse'+            Prelude.<$> (x Data..?> "OperationId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreatePublicDnsNamespace where+  hashWithSalt _salt CreatePublicDnsNamespace' {..} =+    _salt+      `Prelude.hashWithSalt` creatorRequestId+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` properties+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreatePublicDnsNamespace where+  rnf CreatePublicDnsNamespace' {..} =+    Prelude.rnf creatorRequestId+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf properties+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreatePublicDnsNamespace where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.CreatePublicDnsNamespace" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreatePublicDnsNamespace where+  toJSON CreatePublicDnsNamespace' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CreatorRequestId" Data..=)+              Prelude.<$> creatorRequestId,+            ("Description" Data..=) Prelude.<$> description,+            ("Properties" Data..=) Prelude.<$> properties,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Name" Data..= name)+          ]+      )++instance Data.ToPath CreatePublicDnsNamespace where+  toPath = Prelude.const "/"++instance Data.ToQuery CreatePublicDnsNamespace where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreatePublicDnsNamespaceResponse' smart constructor.+data CreatePublicDnsNamespaceResponse = CreatePublicDnsNamespaceResponse'+  { -- | A value that you can use to determine whether the request completed+    -- successfully. To get the status of the operation, see+    -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+    operationId :: 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 'CreatePublicDnsNamespaceResponse' 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:+--+-- 'operationId', 'createPublicDnsNamespaceResponse_operationId' - A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+--+-- 'httpStatus', 'createPublicDnsNamespaceResponse_httpStatus' - The response's http status code.+newCreatePublicDnsNamespaceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreatePublicDnsNamespaceResponse+newCreatePublicDnsNamespaceResponse pHttpStatus_ =+  CreatePublicDnsNamespaceResponse'+    { operationId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+createPublicDnsNamespaceResponse_operationId :: Lens.Lens' CreatePublicDnsNamespaceResponse (Prelude.Maybe Prelude.Text)+createPublicDnsNamespaceResponse_operationId = Lens.lens (\CreatePublicDnsNamespaceResponse' {operationId} -> operationId) (\s@CreatePublicDnsNamespaceResponse' {} a -> s {operationId = a} :: CreatePublicDnsNamespaceResponse)++-- | The response's http status code.+createPublicDnsNamespaceResponse_httpStatus :: Lens.Lens' CreatePublicDnsNamespaceResponse Prelude.Int+createPublicDnsNamespaceResponse_httpStatus = Lens.lens (\CreatePublicDnsNamespaceResponse' {httpStatus} -> httpStatus) (\s@CreatePublicDnsNamespaceResponse' {} a -> s {httpStatus = a} :: CreatePublicDnsNamespaceResponse)++instance+  Prelude.NFData+    CreatePublicDnsNamespaceResponse+  where+  rnf CreatePublicDnsNamespaceResponse' {..} =+    Prelude.rnf operationId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,458 @@+{-# 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.Route53AutoNaming.CreateService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a service. This action defines the configuration for the+-- following entities:+--+-- -   For public and private DNS namespaces, one of the following+--     combinations of DNS records in Amazon Route 53:+--+--     -   @A@+--+--     -   @AAAA@+--+--     -   @A@ and @AAAA@+--+--     -   @SRV@+--+--     -   @CNAME@+--+-- -   Optionally, a health check+--+-- After you create the service, you can submit a+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_RegisterInstance.html RegisterInstance>+-- request, and Cloud Map uses the values in the configuration to create+-- the specified entities.+--+-- For the current quota on the number of instances that you can register+-- using the same namespace and using the same service, see+-- <https://docs.aws.amazon.com/cloud-map/latest/dg/cloud-map-limits.html Cloud Map quotas>+-- in the /Cloud Map Developer Guide/.+module Amazonka.Route53AutoNaming.CreateService+  ( -- * Creating a Request+    CreateService (..),+    newCreateService,++    -- * Request Lenses+    createService_creatorRequestId,+    createService_description,+    createService_dnsConfig,+    createService_healthCheckConfig,+    createService_healthCheckCustomConfig,+    createService_namespaceId,+    createService_tags,+    createService_type,+    createService_name,++    -- * Destructuring the Response+    CreateServiceResponse (..),+    newCreateServiceResponse,++    -- * Response Lenses+    createServiceResponse_service,+    createServiceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newCreateService' smart constructor.+data CreateService = CreateService'+  { -- | A unique string that identifies the request and that allows failed+    -- @CreateService@ requests to be retried without the risk of running the+    -- operation twice. @CreatorRequestId@ can be any unique string (for+    -- example, a date\/timestamp).+    creatorRequestId :: Prelude.Maybe Prelude.Text,+    -- | A description for the service.+    description :: Prelude.Maybe Prelude.Text,+    -- | A complex type that contains information about the Amazon Route 53+    -- records that you want Cloud Map to create when you register an instance.+    dnsConfig :: Prelude.Maybe DnsConfig,+    -- | /Public DNS and HTTP namespaces only./ A complex type that contains+    -- settings for an optional Route 53 health check. If you specify settings+    -- for a health check, Cloud Map associates the health check with all the+    -- Route 53 DNS records that you specify in @DnsConfig@.+    --+    -- If you specify a health check configuration, you can specify either+    -- @HealthCheckCustomConfig@ or @HealthCheckConfig@ but not both.+    --+    -- For information about the charges for health checks, see+    -- <http://aws.amazon.com/cloud-map/pricing/ Cloud Map Pricing>.+    healthCheckConfig :: Prelude.Maybe HealthCheckConfig,+    -- | A complex type that contains information about an optional custom health+    -- check.+    --+    -- If you specify a health check configuration, you can specify either+    -- @HealthCheckCustomConfig@ or @HealthCheckConfig@ but not both.+    --+    -- You can\'t add, update, or delete a @HealthCheckCustomConfig@+    -- configuration from an existing service.+    healthCheckCustomConfig :: Prelude.Maybe HealthCheckCustomConfig,+    -- | The ID of the namespace that you want to use to create the service. The+    -- namespace ID must be specified, but it can be specified either here or+    -- in the @DnsConfig@ object.+    namespaceId :: Prelude.Maybe Prelude.Text,+    -- | The tags to add to the service. Each tag consists of a key and an+    -- optional value that you define. Tags keys can be up to 128 characters in+    -- length, and tag values can be up to 256 characters in length.+    tags :: Prelude.Maybe [Tag],+    -- | If present, specifies that the service instances are only discoverable+    -- using the @DiscoverInstances@ API operation. No DNS records is+    -- registered for the service instances. The only valid value is @HTTP@.+    type' :: Prelude.Maybe ServiceTypeOption,+    -- | The name that you want to assign to the service.+    --+    -- Do not include sensitive information in the name if the namespace is+    -- discoverable by public DNS queries.+    --+    -- If you want Cloud Map to create an @SRV@ record when you register an+    -- instance and you\'re using a system that requires a specific @SRV@+    -- format, such as <http://www.haproxy.org/ HAProxy>, specify the following+    -- for @Name@:+    --+    -- -   Start the name with an underscore (_), such as @_exampleservice@.+    --+    -- -   End the name with /._protocol/, such as @._tcp@.+    --+    -- When you register an instance, Cloud Map creates an @SRV@ record and+    -- assigns a name to the record by concatenating the service name and the+    -- namespace name (for example,+    --+    -- @_exampleservice._tcp.example.com@).+    --+    -- For services that are accessible by DNS queries, you can\'t create+    -- multiple services with names that differ only by case (such as EXAMPLE+    -- and example). Otherwise, these services have the same DNS name and+    -- can\'t be distinguished. However, if you use a namespace that\'s only+    -- accessible by API calls, then you can create services that with names+    -- that differ only by case.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateService' 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:+--+-- 'creatorRequestId', 'createService_creatorRequestId' - A unique string that identifies the request and that allows failed+-- @CreateService@ requests to be retried without the risk of running the+-- operation twice. @CreatorRequestId@ can be any unique string (for+-- example, a date\/timestamp).+--+-- 'description', 'createService_description' - A description for the service.+--+-- 'dnsConfig', 'createService_dnsConfig' - A complex type that contains information about the Amazon Route 53+-- records that you want Cloud Map to create when you register an instance.+--+-- 'healthCheckConfig', 'createService_healthCheckConfig' - /Public DNS and HTTP namespaces only./ A complex type that contains+-- settings for an optional Route 53 health check. If you specify settings+-- for a health check, Cloud Map associates the health check with all the+-- Route 53 DNS records that you specify in @DnsConfig@.+--+-- If you specify a health check configuration, you can specify either+-- @HealthCheckCustomConfig@ or @HealthCheckConfig@ but not both.+--+-- For information about the charges for health checks, see+-- <http://aws.amazon.com/cloud-map/pricing/ Cloud Map Pricing>.+--+-- 'healthCheckCustomConfig', 'createService_healthCheckCustomConfig' - A complex type that contains information about an optional custom health+-- check.+--+-- If you specify a health check configuration, you can specify either+-- @HealthCheckCustomConfig@ or @HealthCheckConfig@ but not both.+--+-- You can\'t add, update, or delete a @HealthCheckCustomConfig@+-- configuration from an existing service.+--+-- 'namespaceId', 'createService_namespaceId' - The ID of the namespace that you want to use to create the service. The+-- namespace ID must be specified, but it can be specified either here or+-- in the @DnsConfig@ object.+--+-- 'tags', 'createService_tags' - The tags to add to the service. Each tag consists of a key and an+-- optional value that you define. Tags keys can be up to 128 characters in+-- length, and tag values can be up to 256 characters in length.+--+-- 'type'', 'createService_type' - If present, specifies that the service instances are only discoverable+-- using the @DiscoverInstances@ API operation. No DNS records is+-- registered for the service instances. The only valid value is @HTTP@.+--+-- 'name', 'createService_name' - The name that you want to assign to the service.+--+-- Do not include sensitive information in the name if the namespace is+-- discoverable by public DNS queries.+--+-- If you want Cloud Map to create an @SRV@ record when you register an+-- instance and you\'re using a system that requires a specific @SRV@+-- format, such as <http://www.haproxy.org/ HAProxy>, specify the following+-- for @Name@:+--+-- -   Start the name with an underscore (_), such as @_exampleservice@.+--+-- -   End the name with /._protocol/, such as @._tcp@.+--+-- When you register an instance, Cloud Map creates an @SRV@ record and+-- assigns a name to the record by concatenating the service name and the+-- namespace name (for example,+--+-- @_exampleservice._tcp.example.com@).+--+-- For services that are accessible by DNS queries, you can\'t create+-- multiple services with names that differ only by case (such as EXAMPLE+-- and example). Otherwise, these services have the same DNS name and+-- can\'t be distinguished. However, if you use a namespace that\'s only+-- accessible by API calls, then you can create services that with names+-- that differ only by case.+newCreateService ::+  -- | 'name'+  Prelude.Text ->+  CreateService+newCreateService pName_ =+  CreateService'+    { creatorRequestId = Prelude.Nothing,+      description = Prelude.Nothing,+      dnsConfig = Prelude.Nothing,+      healthCheckConfig = Prelude.Nothing,+      healthCheckCustomConfig = Prelude.Nothing,+      namespaceId = Prelude.Nothing,+      tags = Prelude.Nothing,+      type' = Prelude.Nothing,+      name = pName_+    }++-- | A unique string that identifies the request and that allows failed+-- @CreateService@ requests to be retried without the risk of running the+-- operation twice. @CreatorRequestId@ can be any unique string (for+-- example, a date\/timestamp).+createService_creatorRequestId :: Lens.Lens' CreateService (Prelude.Maybe Prelude.Text)+createService_creatorRequestId = Lens.lens (\CreateService' {creatorRequestId} -> creatorRequestId) (\s@CreateService' {} a -> s {creatorRequestId = a} :: CreateService)++-- | A description for the service.+createService_description :: Lens.Lens' CreateService (Prelude.Maybe Prelude.Text)+createService_description = Lens.lens (\CreateService' {description} -> description) (\s@CreateService' {} a -> s {description = a} :: CreateService)++-- | A complex type that contains information about the Amazon Route 53+-- records that you want Cloud Map to create when you register an instance.+createService_dnsConfig :: Lens.Lens' CreateService (Prelude.Maybe DnsConfig)+createService_dnsConfig = Lens.lens (\CreateService' {dnsConfig} -> dnsConfig) (\s@CreateService' {} a -> s {dnsConfig = a} :: CreateService)++-- | /Public DNS and HTTP namespaces only./ A complex type that contains+-- settings for an optional Route 53 health check. If you specify settings+-- for a health check, Cloud Map associates the health check with all the+-- Route 53 DNS records that you specify in @DnsConfig@.+--+-- If you specify a health check configuration, you can specify either+-- @HealthCheckCustomConfig@ or @HealthCheckConfig@ but not both.+--+-- For information about the charges for health checks, see+-- <http://aws.amazon.com/cloud-map/pricing/ Cloud Map Pricing>.+createService_healthCheckConfig :: Lens.Lens' CreateService (Prelude.Maybe HealthCheckConfig)+createService_healthCheckConfig = Lens.lens (\CreateService' {healthCheckConfig} -> healthCheckConfig) (\s@CreateService' {} a -> s {healthCheckConfig = a} :: CreateService)++-- | A complex type that contains information about an optional custom health+-- check.+--+-- If you specify a health check configuration, you can specify either+-- @HealthCheckCustomConfig@ or @HealthCheckConfig@ but not both.+--+-- You can\'t add, update, or delete a @HealthCheckCustomConfig@+-- configuration from an existing service.+createService_healthCheckCustomConfig :: Lens.Lens' CreateService (Prelude.Maybe HealthCheckCustomConfig)+createService_healthCheckCustomConfig = Lens.lens (\CreateService' {healthCheckCustomConfig} -> healthCheckCustomConfig) (\s@CreateService' {} a -> s {healthCheckCustomConfig = a} :: CreateService)++-- | The ID of the namespace that you want to use to create the service. The+-- namespace ID must be specified, but it can be specified either here or+-- in the @DnsConfig@ object.+createService_namespaceId :: Lens.Lens' CreateService (Prelude.Maybe Prelude.Text)+createService_namespaceId = Lens.lens (\CreateService' {namespaceId} -> namespaceId) (\s@CreateService' {} a -> s {namespaceId = a} :: CreateService)++-- | The tags to add to the service. Each tag consists of a key and an+-- optional value that you define. Tags keys can be up to 128 characters in+-- length, and tag values can be up to 256 characters in length.+createService_tags :: Lens.Lens' CreateService (Prelude.Maybe [Tag])+createService_tags = Lens.lens (\CreateService' {tags} -> tags) (\s@CreateService' {} a -> s {tags = a} :: CreateService) Prelude.. Lens.mapping Lens.coerced++-- | If present, specifies that the service instances are only discoverable+-- using the @DiscoverInstances@ API operation. No DNS records is+-- registered for the service instances. The only valid value is @HTTP@.+createService_type :: Lens.Lens' CreateService (Prelude.Maybe ServiceTypeOption)+createService_type = Lens.lens (\CreateService' {type'} -> type') (\s@CreateService' {} a -> s {type' = a} :: CreateService)++-- | The name that you want to assign to the service.+--+-- Do not include sensitive information in the name if the namespace is+-- discoverable by public DNS queries.+--+-- If you want Cloud Map to create an @SRV@ record when you register an+-- instance and you\'re using a system that requires a specific @SRV@+-- format, such as <http://www.haproxy.org/ HAProxy>, specify the following+-- for @Name@:+--+-- -   Start the name with an underscore (_), such as @_exampleservice@.+--+-- -   End the name with /._protocol/, such as @._tcp@.+--+-- When you register an instance, Cloud Map creates an @SRV@ record and+-- assigns a name to the record by concatenating the service name and the+-- namespace name (for example,+--+-- @_exampleservice._tcp.example.com@).+--+-- For services that are accessible by DNS queries, you can\'t create+-- multiple services with names that differ only by case (such as EXAMPLE+-- and example). Otherwise, these services have the same DNS name and+-- can\'t be distinguished. However, if you use a namespace that\'s only+-- accessible by API calls, then you can create services that with names+-- that differ only by case.+createService_name :: Lens.Lens' CreateService Prelude.Text+createService_name = Lens.lens (\CreateService' {name} -> name) (\s@CreateService' {} a -> s {name = a} :: CreateService)++instance Core.AWSRequest CreateService where+  type+    AWSResponse CreateService =+      CreateServiceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateServiceResponse'+            Prelude.<$> (x Data..?> "Service")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateService where+  hashWithSalt _salt CreateService' {..} =+    _salt+      `Prelude.hashWithSalt` creatorRequestId+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` dnsConfig+      `Prelude.hashWithSalt` healthCheckConfig+      `Prelude.hashWithSalt` healthCheckCustomConfig+      `Prelude.hashWithSalt` namespaceId+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateService where+  rnf CreateService' {..} =+    Prelude.rnf creatorRequestId+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf dnsConfig+      `Prelude.seq` Prelude.rnf healthCheckConfig+      `Prelude.seq` Prelude.rnf healthCheckCustomConfig+      `Prelude.seq` Prelude.rnf namespaceId+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateService where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.CreateService" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateService where+  toJSON CreateService' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CreatorRequestId" Data..=)+              Prelude.<$> creatorRequestId,+            ("Description" Data..=) Prelude.<$> description,+            ("DnsConfig" Data..=) Prelude.<$> dnsConfig,+            ("HealthCheckConfig" Data..=)+              Prelude.<$> healthCheckConfig,+            ("HealthCheckCustomConfig" Data..=)+              Prelude.<$> healthCheckCustomConfig,+            ("NamespaceId" Data..=) Prelude.<$> namespaceId,+            ("Tags" Data..=) Prelude.<$> tags,+            ("Type" Data..=) Prelude.<$> type',+            Prelude.Just ("Name" Data..= name)+          ]+      )++instance Data.ToPath CreateService where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateService where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateServiceResponse' smart constructor.+data CreateServiceResponse = CreateServiceResponse'+  { -- | A complex type that contains information about the new service.+    service :: Prelude.Maybe ServiceInfo,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateServiceResponse' 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:+--+-- 'service', 'createServiceResponse_service' - A complex type that contains information about the new service.+--+-- 'httpStatus', 'createServiceResponse_httpStatus' - The response's http status code.+newCreateServiceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateServiceResponse+newCreateServiceResponse pHttpStatus_ =+  CreateServiceResponse'+    { service = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A complex type that contains information about the new service.+createServiceResponse_service :: Lens.Lens' CreateServiceResponse (Prelude.Maybe ServiceInfo)+createServiceResponse_service = Lens.lens (\CreateServiceResponse' {service} -> service) (\s@CreateServiceResponse' {} a -> s {service = a} :: CreateServiceResponse)++-- | The response's http status code.+createServiceResponse_httpStatus :: Lens.Lens' CreateServiceResponse Prelude.Int+createServiceResponse_httpStatus = Lens.lens (\CreateServiceResponse' {httpStatus} -> httpStatus) (\s@CreateServiceResponse' {} a -> s {httpStatus = a} :: CreateServiceResponse)++instance Prelude.NFData CreateServiceResponse where+  rnf CreateServiceResponse' {..} =+    Prelude.rnf service+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Route53AutoNaming.DeleteNamespace+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a namespace from the current account. If the namespace still+-- contains one or more services, the request fails.+module Amazonka.Route53AutoNaming.DeleteNamespace+  ( -- * Creating a Request+    DeleteNamespace (..),+    newDeleteNamespace,++    -- * Request Lenses+    deleteNamespace_id,++    -- * Destructuring the Response+    DeleteNamespaceResponse (..),+    newDeleteNamespaceResponse,++    -- * Response Lenses+    deleteNamespaceResponse_operationId,+    deleteNamespaceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newDeleteNamespace' smart constructor.+data DeleteNamespace = DeleteNamespace'+  { -- | The ID of the namespace that you want to delete.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteNamespace' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'deleteNamespace_id' - The ID of the namespace that you want to delete.+newDeleteNamespace ::+  -- | 'id'+  Prelude.Text ->+  DeleteNamespace+newDeleteNamespace pId_ = DeleteNamespace' {id = pId_}++-- | The ID of the namespace that you want to delete.+deleteNamespace_id :: Lens.Lens' DeleteNamespace Prelude.Text+deleteNamespace_id = Lens.lens (\DeleteNamespace' {id} -> id) (\s@DeleteNamespace' {} a -> s {id = a} :: DeleteNamespace)++instance Core.AWSRequest DeleteNamespace where+  type+    AWSResponse DeleteNamespace =+      DeleteNamespaceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteNamespaceResponse'+            Prelude.<$> (x Data..?> "OperationId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteNamespace where+  hashWithSalt _salt DeleteNamespace' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData DeleteNamespace where+  rnf DeleteNamespace' {..} = Prelude.rnf id++instance Data.ToHeaders DeleteNamespace where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.DeleteNamespace" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteNamespace where+  toJSON DeleteNamespace' {..} =+    Data.object+      (Prelude.catMaybes [Prelude.Just ("Id" Data..= id)])++instance Data.ToPath DeleteNamespace where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteNamespace where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteNamespaceResponse' smart constructor.+data DeleteNamespaceResponse = DeleteNamespaceResponse'+  { -- | A value that you can use to determine whether the request completed+    -- successfully. To get the status of the operation, see+    -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+    operationId :: 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 'DeleteNamespaceResponse' 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:+--+-- 'operationId', 'deleteNamespaceResponse_operationId' - A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+--+-- 'httpStatus', 'deleteNamespaceResponse_httpStatus' - The response's http status code.+newDeleteNamespaceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteNamespaceResponse+newDeleteNamespaceResponse pHttpStatus_ =+  DeleteNamespaceResponse'+    { operationId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+deleteNamespaceResponse_operationId :: Lens.Lens' DeleteNamespaceResponse (Prelude.Maybe Prelude.Text)+deleteNamespaceResponse_operationId = Lens.lens (\DeleteNamespaceResponse' {operationId} -> operationId) (\s@DeleteNamespaceResponse' {} a -> s {operationId = a} :: DeleteNamespaceResponse)++-- | The response's http status code.+deleteNamespaceResponse_httpStatus :: Lens.Lens' DeleteNamespaceResponse Prelude.Int+deleteNamespaceResponse_httpStatus = Lens.lens (\DeleteNamespaceResponse' {httpStatus} -> httpStatus) (\s@DeleteNamespaceResponse' {} a -> s {httpStatus = a} :: DeleteNamespaceResponse)++instance Prelude.NFData DeleteNamespaceResponse where+  rnf DeleteNamespaceResponse' {..} =+    Prelude.rnf operationId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,151 @@+{-# 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.Route53AutoNaming.DeleteService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a specified service. If the service still contains one or more+-- registered instances, the request fails.+module Amazonka.Route53AutoNaming.DeleteService+  ( -- * Creating a Request+    DeleteService (..),+    newDeleteService,++    -- * Request Lenses+    deleteService_id,++    -- * Destructuring the Response+    DeleteServiceResponse (..),+    newDeleteServiceResponse,++    -- * Response Lenses+    deleteServiceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newDeleteService' smart constructor.+data DeleteService = DeleteService'+  { -- | The ID of the service that you want to delete.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteService' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'deleteService_id' - The ID of the service that you want to delete.+newDeleteService ::+  -- | 'id'+  Prelude.Text ->+  DeleteService+newDeleteService pId_ = DeleteService' {id = pId_}++-- | The ID of the service that you want to delete.+deleteService_id :: Lens.Lens' DeleteService Prelude.Text+deleteService_id = Lens.lens (\DeleteService' {id} -> id) (\s@DeleteService' {} a -> s {id = a} :: DeleteService)++instance Core.AWSRequest DeleteService where+  type+    AWSResponse DeleteService =+      DeleteServiceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteServiceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteService where+  hashWithSalt _salt DeleteService' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData DeleteService where+  rnf DeleteService' {..} = Prelude.rnf id++instance Data.ToHeaders DeleteService where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.DeleteService" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteService where+  toJSON DeleteService' {..} =+    Data.object+      (Prelude.catMaybes [Prelude.Just ("Id" Data..= id)])++instance Data.ToPath DeleteService where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteService where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteServiceResponse' smart constructor.+data DeleteServiceResponse = DeleteServiceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteServiceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteServiceResponse_httpStatus' - The response's http status code.+newDeleteServiceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteServiceResponse+newDeleteServiceResponse pHttpStatus_ =+  DeleteServiceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteServiceResponse_httpStatus :: Lens.Lens' DeleteServiceResponse Prelude.Int+deleteServiceResponse_httpStatus = Lens.lens (\DeleteServiceResponse' {httpStatus} -> httpStatus) (\s@DeleteServiceResponse' {} a -> s {httpStatus = a} :: DeleteServiceResponse)++instance Prelude.NFData DeleteServiceResponse where+  rnf DeleteServiceResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,201 @@+{-# 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.Route53AutoNaming.DeregisterInstance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the Amazon Route 53 DNS records and health check, if any, that+-- Cloud Map created for the specified instance.+module Amazonka.Route53AutoNaming.DeregisterInstance+  ( -- * Creating a Request+    DeregisterInstance (..),+    newDeregisterInstance,++    -- * Request Lenses+    deregisterInstance_serviceId,+    deregisterInstance_instanceId,++    -- * Destructuring the Response+    DeregisterInstanceResponse (..),+    newDeregisterInstanceResponse,++    -- * Response Lenses+    deregisterInstanceResponse_operationId,+    deregisterInstanceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newDeregisterInstance' smart constructor.+data DeregisterInstance = DeregisterInstance'+  { -- | The ID of the service that the instance is associated with.+    serviceId :: Prelude.Text,+    -- | The value that you specified for @Id@ in the+    -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_RegisterInstance.html RegisterInstance>+    -- request.+    instanceId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeregisterInstance' 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:+--+-- 'serviceId', 'deregisterInstance_serviceId' - The ID of the service that the instance is associated with.+--+-- 'instanceId', 'deregisterInstance_instanceId' - The value that you specified for @Id@ in the+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_RegisterInstance.html RegisterInstance>+-- request.+newDeregisterInstance ::+  -- | 'serviceId'+  Prelude.Text ->+  -- | 'instanceId'+  Prelude.Text ->+  DeregisterInstance+newDeregisterInstance pServiceId_ pInstanceId_ =+  DeregisterInstance'+    { serviceId = pServiceId_,+      instanceId = pInstanceId_+    }++-- | The ID of the service that the instance is associated with.+deregisterInstance_serviceId :: Lens.Lens' DeregisterInstance Prelude.Text+deregisterInstance_serviceId = Lens.lens (\DeregisterInstance' {serviceId} -> serviceId) (\s@DeregisterInstance' {} a -> s {serviceId = a} :: DeregisterInstance)++-- | The value that you specified for @Id@ in the+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_RegisterInstance.html RegisterInstance>+-- request.+deregisterInstance_instanceId :: Lens.Lens' DeregisterInstance Prelude.Text+deregisterInstance_instanceId = Lens.lens (\DeregisterInstance' {instanceId} -> instanceId) (\s@DeregisterInstance' {} a -> s {instanceId = a} :: DeregisterInstance)++instance Core.AWSRequest DeregisterInstance where+  type+    AWSResponse DeregisterInstance =+      DeregisterInstanceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeregisterInstanceResponse'+            Prelude.<$> (x Data..?> "OperationId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeregisterInstance where+  hashWithSalt _salt DeregisterInstance' {..} =+    _salt+      `Prelude.hashWithSalt` serviceId+      `Prelude.hashWithSalt` instanceId++instance Prelude.NFData DeregisterInstance where+  rnf DeregisterInstance' {..} =+    Prelude.rnf serviceId+      `Prelude.seq` Prelude.rnf instanceId++instance Data.ToHeaders DeregisterInstance where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.DeregisterInstance" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeregisterInstance where+  toJSON DeregisterInstance' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ServiceId" Data..= serviceId),+            Prelude.Just ("InstanceId" Data..= instanceId)+          ]+      )++instance Data.ToPath DeregisterInstance where+  toPath = Prelude.const "/"++instance Data.ToQuery DeregisterInstance where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeregisterInstanceResponse' smart constructor.+data DeregisterInstanceResponse = DeregisterInstanceResponse'+  { -- | A value that you can use to determine whether the request completed+    -- successfully. To get the status of the operation, see+    -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+    operationId :: 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 'DeregisterInstanceResponse' 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:+--+-- 'operationId', 'deregisterInstanceResponse_operationId' - A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+--+-- 'httpStatus', 'deregisterInstanceResponse_httpStatus' - The response's http status code.+newDeregisterInstanceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeregisterInstanceResponse+newDeregisterInstanceResponse pHttpStatus_ =+  DeregisterInstanceResponse'+    { operationId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A value that you can use to determine whether the request completed+-- successfully. To get the status of the operation, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>.+deregisterInstanceResponse_operationId :: Lens.Lens' DeregisterInstanceResponse (Prelude.Maybe Prelude.Text)+deregisterInstanceResponse_operationId = Lens.lens (\DeregisterInstanceResponse' {operationId} -> operationId) (\s@DeregisterInstanceResponse' {} a -> s {operationId = a} :: DeregisterInstanceResponse)++-- | The response's http status code.+deregisterInstanceResponse_httpStatus :: Lens.Lens' DeregisterInstanceResponse Prelude.Int+deregisterInstanceResponse_httpStatus = Lens.lens (\DeregisterInstanceResponse' {httpStatus} -> httpStatus) (\s@DeregisterInstanceResponse' {} a -> s {httpStatus = a} :: DeregisterInstanceResponse)++instance Prelude.NFData DeregisterInstanceResponse where+  rnf DeregisterInstanceResponse' {..} =+    Prelude.rnf operationId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,329 @@+{-# 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.Route53AutoNaming.DiscoverInstances+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Discovers registered instances for a specified namespace and service.+-- You can use @DiscoverInstances@ to discover instances for any type of+-- namespace. For public and private DNS namespaces, you can also use DNS+-- queries to discover instances.+module Amazonka.Route53AutoNaming.DiscoverInstances+  ( -- * Creating a Request+    DiscoverInstances (..),+    newDiscoverInstances,++    -- * Request Lenses+    discoverInstances_healthStatus,+    discoverInstances_maxResults,+    discoverInstances_optionalParameters,+    discoverInstances_queryParameters,+    discoverInstances_namespaceName,+    discoverInstances_serviceName,++    -- * Destructuring the Response+    DiscoverInstancesResponse (..),+    newDiscoverInstancesResponse,++    -- * Response Lenses+    discoverInstancesResponse_instances,+    discoverInstancesResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newDiscoverInstances' smart constructor.+data DiscoverInstances = DiscoverInstances'+  { -- | The health status of the instances that you want to discover. This+    -- parameter is ignored for services that don\'t have a health check+    -- configured, and all instances are returned.+    --+    -- [HEALTHY]+    --     Returns healthy instances.+    --+    -- [UNHEALTHY]+    --     Returns unhealthy instances.+    --+    -- [ALL]+    --     Returns all instances.+    --+    -- [HEALTHY_OR_ELSE_ALL]+    --     Returns healthy instances, unless none are reporting a healthy+    --     state. In that case, return all instances. This is also called+    --     failing open.+    healthStatus :: Prelude.Maybe HealthStatusFilter,+    -- | The maximum number of instances that you want Cloud Map to return in the+    -- response to a @DiscoverInstances@ request. If you don\'t specify a value+    -- for @MaxResults@, Cloud Map returns up to 100 instances.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | Opportunistic filters to scope the results based on custom attributes.+    -- If there are instances that match both the filters specified in both the+    -- @QueryParameters@ parameter and this parameter, all of these instances+    -- are returned. Otherwise, the filters are ignored, and only instances+    -- that match the filters that are specified in the @QueryParameters@+    -- parameter are returned.+    optionalParameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | Filters to scope the results based on custom attributes for the instance+    -- (for example, @{version=v1, az=1a}@). Only instances that match all the+    -- specified key-value pairs are returned.+    queryParameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The @HttpName@ name of the namespace. It\'s found in the+    -- @HttpProperties@ member of the @Properties@ member of the namespace.+    namespaceName :: Prelude.Text,+    -- | The name of the service that you specified when you registered the+    -- instance.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DiscoverInstances' 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:+--+-- 'healthStatus', 'discoverInstances_healthStatus' - The health status of the instances that you want to discover. This+-- parameter is ignored for services that don\'t have a health check+-- configured, and all instances are returned.+--+-- [HEALTHY]+--     Returns healthy instances.+--+-- [UNHEALTHY]+--     Returns unhealthy instances.+--+-- [ALL]+--     Returns all instances.+--+-- [HEALTHY_OR_ELSE_ALL]+--     Returns healthy instances, unless none are reporting a healthy+--     state. In that case, return all instances. This is also called+--     failing open.+--+-- 'maxResults', 'discoverInstances_maxResults' - The maximum number of instances that you want Cloud Map to return in the+-- response to a @DiscoverInstances@ request. If you don\'t specify a value+-- for @MaxResults@, Cloud Map returns up to 100 instances.+--+-- 'optionalParameters', 'discoverInstances_optionalParameters' - Opportunistic filters to scope the results based on custom attributes.+-- If there are instances that match both the filters specified in both the+-- @QueryParameters@ parameter and this parameter, all of these instances+-- are returned. Otherwise, the filters are ignored, and only instances+-- that match the filters that are specified in the @QueryParameters@+-- parameter are returned.+--+-- 'queryParameters', 'discoverInstances_queryParameters' - Filters to scope the results based on custom attributes for the instance+-- (for example, @{version=v1, az=1a}@). Only instances that match all the+-- specified key-value pairs are returned.+--+-- 'namespaceName', 'discoverInstances_namespaceName' - The @HttpName@ name of the namespace. It\'s found in the+-- @HttpProperties@ member of the @Properties@ member of the namespace.+--+-- 'serviceName', 'discoverInstances_serviceName' - The name of the service that you specified when you registered the+-- instance.+newDiscoverInstances ::+  -- | 'namespaceName'+  Prelude.Text ->+  -- | 'serviceName'+  Prelude.Text ->+  DiscoverInstances+newDiscoverInstances pNamespaceName_ pServiceName_ =+  DiscoverInstances'+    { healthStatus = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      optionalParameters = Prelude.Nothing,+      queryParameters = Prelude.Nothing,+      namespaceName = pNamespaceName_,+      serviceName = pServiceName_+    }++-- | The health status of the instances that you want to discover. This+-- parameter is ignored for services that don\'t have a health check+-- configured, and all instances are returned.+--+-- [HEALTHY]+--     Returns healthy instances.+--+-- [UNHEALTHY]+--     Returns unhealthy instances.+--+-- [ALL]+--     Returns all instances.+--+-- [HEALTHY_OR_ELSE_ALL]+--     Returns healthy instances, unless none are reporting a healthy+--     state. In that case, return all instances. This is also called+--     failing open.+discoverInstances_healthStatus :: Lens.Lens' DiscoverInstances (Prelude.Maybe HealthStatusFilter)+discoverInstances_healthStatus = Lens.lens (\DiscoverInstances' {healthStatus} -> healthStatus) (\s@DiscoverInstances' {} a -> s {healthStatus = a} :: DiscoverInstances)++-- | The maximum number of instances that you want Cloud Map to return in the+-- response to a @DiscoverInstances@ request. If you don\'t specify a value+-- for @MaxResults@, Cloud Map returns up to 100 instances.+discoverInstances_maxResults :: Lens.Lens' DiscoverInstances (Prelude.Maybe Prelude.Natural)+discoverInstances_maxResults = Lens.lens (\DiscoverInstances' {maxResults} -> maxResults) (\s@DiscoverInstances' {} a -> s {maxResults = a} :: DiscoverInstances)++-- | Opportunistic filters to scope the results based on custom attributes.+-- If there are instances that match both the filters specified in both the+-- @QueryParameters@ parameter and this parameter, all of these instances+-- are returned. Otherwise, the filters are ignored, and only instances+-- that match the filters that are specified in the @QueryParameters@+-- parameter are returned.+discoverInstances_optionalParameters :: Lens.Lens' DiscoverInstances (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+discoverInstances_optionalParameters = Lens.lens (\DiscoverInstances' {optionalParameters} -> optionalParameters) (\s@DiscoverInstances' {} a -> s {optionalParameters = a} :: DiscoverInstances) Prelude.. Lens.mapping Lens.coerced++-- | Filters to scope the results based on custom attributes for the instance+-- (for example, @{version=v1, az=1a}@). Only instances that match all the+-- specified key-value pairs are returned.+discoverInstances_queryParameters :: Lens.Lens' DiscoverInstances (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+discoverInstances_queryParameters = Lens.lens (\DiscoverInstances' {queryParameters} -> queryParameters) (\s@DiscoverInstances' {} a -> s {queryParameters = a} :: DiscoverInstances) Prelude.. Lens.mapping Lens.coerced++-- | The @HttpName@ name of the namespace. It\'s found in the+-- @HttpProperties@ member of the @Properties@ member of the namespace.+discoverInstances_namespaceName :: Lens.Lens' DiscoverInstances Prelude.Text+discoverInstances_namespaceName = Lens.lens (\DiscoverInstances' {namespaceName} -> namespaceName) (\s@DiscoverInstances' {} a -> s {namespaceName = a} :: DiscoverInstances)++-- | The name of the service that you specified when you registered the+-- instance.+discoverInstances_serviceName :: Lens.Lens' DiscoverInstances Prelude.Text+discoverInstances_serviceName = Lens.lens (\DiscoverInstances' {serviceName} -> serviceName) (\s@DiscoverInstances' {} a -> s {serviceName = a} :: DiscoverInstances)++instance Core.AWSRequest DiscoverInstances where+  type+    AWSResponse DiscoverInstances =+      DiscoverInstancesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DiscoverInstancesResponse'+            Prelude.<$> (x Data..?> "Instances" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DiscoverInstances where+  hashWithSalt _salt DiscoverInstances' {..} =+    _salt+      `Prelude.hashWithSalt` healthStatus+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` optionalParameters+      `Prelude.hashWithSalt` queryParameters+      `Prelude.hashWithSalt` namespaceName+      `Prelude.hashWithSalt` serviceName++instance Prelude.NFData DiscoverInstances where+  rnf DiscoverInstances' {..} =+    Prelude.rnf healthStatus+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf optionalParameters+      `Prelude.seq` Prelude.rnf queryParameters+      `Prelude.seq` Prelude.rnf namespaceName+      `Prelude.seq` Prelude.rnf serviceName++instance Data.ToHeaders DiscoverInstances where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.DiscoverInstances" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DiscoverInstances where+  toJSON DiscoverInstances' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("HealthStatus" Data..=) Prelude.<$> healthStatus,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("OptionalParameters" Data..=)+              Prelude.<$> optionalParameters,+            ("QueryParameters" Data..=)+              Prelude.<$> queryParameters,+            Prelude.Just ("NamespaceName" Data..= namespaceName),+            Prelude.Just ("ServiceName" Data..= serviceName)+          ]+      )++instance Data.ToPath DiscoverInstances where+  toPath = Prelude.const "/"++instance Data.ToQuery DiscoverInstances where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDiscoverInstancesResponse' smart constructor.+data DiscoverInstancesResponse = DiscoverInstancesResponse'+  { -- | A complex type that contains one @HttpInstanceSummary@ for each+    -- registered instance.+    instances :: Prelude.Maybe [HttpInstanceSummary],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DiscoverInstancesResponse' 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:+--+-- 'instances', 'discoverInstancesResponse_instances' - A complex type that contains one @HttpInstanceSummary@ for each+-- registered instance.+--+-- 'httpStatus', 'discoverInstancesResponse_httpStatus' - The response's http status code.+newDiscoverInstancesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DiscoverInstancesResponse+newDiscoverInstancesResponse pHttpStatus_ =+  DiscoverInstancesResponse'+    { instances =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A complex type that contains one @HttpInstanceSummary@ for each+-- registered instance.+discoverInstancesResponse_instances :: Lens.Lens' DiscoverInstancesResponse (Prelude.Maybe [HttpInstanceSummary])+discoverInstancesResponse_instances = Lens.lens (\DiscoverInstancesResponse' {instances} -> instances) (\s@DiscoverInstancesResponse' {} a -> s {instances = a} :: DiscoverInstancesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+discoverInstancesResponse_httpStatus :: Lens.Lens' DiscoverInstancesResponse Prelude.Int+discoverInstancesResponse_httpStatus = Lens.lens (\DiscoverInstancesResponse' {httpStatus} -> httpStatus) (\s@DiscoverInstancesResponse' {} a -> s {httpStatus = a} :: DiscoverInstancesResponse)++instance Prelude.NFData DiscoverInstancesResponse where+  rnf DiscoverInstancesResponse' {..} =+    Prelude.rnf instances+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,185 @@+{-# 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.Route53AutoNaming.GetInstance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a specified instance.+module Amazonka.Route53AutoNaming.GetInstance+  ( -- * Creating a Request+    GetInstance (..),+    newGetInstance,++    -- * Request Lenses+    getInstance_serviceId,+    getInstance_instanceId,++    -- * Destructuring the Response+    GetInstanceResponse (..),+    newGetInstanceResponse,++    -- * Response Lenses+    getInstanceResponse_instance,+    getInstanceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newGetInstance' smart constructor.+data GetInstance = GetInstance'+  { -- | The ID of the service that the instance is associated with.+    serviceId :: Prelude.Text,+    -- | The ID of the instance that you want to get information about.+    instanceId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInstance' 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:+--+-- 'serviceId', 'getInstance_serviceId' - The ID of the service that the instance is associated with.+--+-- 'instanceId', 'getInstance_instanceId' - The ID of the instance that you want to get information about.+newGetInstance ::+  -- | 'serviceId'+  Prelude.Text ->+  -- | 'instanceId'+  Prelude.Text ->+  GetInstance+newGetInstance pServiceId_ pInstanceId_ =+  GetInstance'+    { serviceId = pServiceId_,+      instanceId = pInstanceId_+    }++-- | The ID of the service that the instance is associated with.+getInstance_serviceId :: Lens.Lens' GetInstance Prelude.Text+getInstance_serviceId = Lens.lens (\GetInstance' {serviceId} -> serviceId) (\s@GetInstance' {} a -> s {serviceId = a} :: GetInstance)++-- | The ID of the instance that you want to get information about.+getInstance_instanceId :: Lens.Lens' GetInstance Prelude.Text+getInstance_instanceId = Lens.lens (\GetInstance' {instanceId} -> instanceId) (\s@GetInstance' {} a -> s {instanceId = a} :: GetInstance)++instance Core.AWSRequest GetInstance where+  type AWSResponse GetInstance = GetInstanceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetInstanceResponse'+            Prelude.<$> (x Data..?> "Instance")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetInstance where+  hashWithSalt _salt GetInstance' {..} =+    _salt+      `Prelude.hashWithSalt` serviceId+      `Prelude.hashWithSalt` instanceId++instance Prelude.NFData GetInstance where+  rnf GetInstance' {..} =+    Prelude.rnf serviceId+      `Prelude.seq` Prelude.rnf instanceId++instance Data.ToHeaders GetInstance where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.GetInstance" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetInstance where+  toJSON GetInstance' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ServiceId" Data..= serviceId),+            Prelude.Just ("InstanceId" Data..= instanceId)+          ]+      )++instance Data.ToPath GetInstance where+  toPath = Prelude.const "/"++instance Data.ToQuery GetInstance where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetInstanceResponse' smart constructor.+data GetInstanceResponse = GetInstanceResponse'+  { -- | A complex type that contains information about a specified instance.+    instance' :: Prelude.Maybe Instance,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInstanceResponse' 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:+--+-- 'instance'', 'getInstanceResponse_instance' - A complex type that contains information about a specified instance.+--+-- 'httpStatus', 'getInstanceResponse_httpStatus' - The response's http status code.+newGetInstanceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetInstanceResponse+newGetInstanceResponse pHttpStatus_ =+  GetInstanceResponse'+    { instance' = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A complex type that contains information about a specified instance.+getInstanceResponse_instance :: Lens.Lens' GetInstanceResponse (Prelude.Maybe Instance)+getInstanceResponse_instance = Lens.lens (\GetInstanceResponse' {instance'} -> instance') (\s@GetInstanceResponse' {} a -> s {instance' = a} :: GetInstanceResponse)++-- | The response's http status code.+getInstanceResponse_httpStatus :: Lens.Lens' GetInstanceResponse Prelude.Int+getInstanceResponse_httpStatus = Lens.lens (\GetInstanceResponse' {httpStatus} -> httpStatus) (\s@GetInstanceResponse' {} a -> s {httpStatus = a} :: GetInstanceResponse)++instance Prelude.NFData GetInstanceResponse where+  rnf GetInstanceResponse' {..} =+    Prelude.rnf instance'+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,292 @@+{-# 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.Route53AutoNaming.GetInstancesHealthStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the current health status (@Healthy@, @Unhealthy@, or @Unknown@) of+-- one or more instances that are associated with a specified service.+--+-- There\'s a brief delay between when you register an instance and when+-- the health status for the instance is available.+module Amazonka.Route53AutoNaming.GetInstancesHealthStatus+  ( -- * Creating a Request+    GetInstancesHealthStatus (..),+    newGetInstancesHealthStatus,++    -- * Request Lenses+    getInstancesHealthStatus_instances,+    getInstancesHealthStatus_maxResults,+    getInstancesHealthStatus_nextToken,+    getInstancesHealthStatus_serviceId,++    -- * Destructuring the Response+    GetInstancesHealthStatusResponse (..),+    newGetInstancesHealthStatusResponse,++    -- * Response Lenses+    getInstancesHealthStatusResponse_nextToken,+    getInstancesHealthStatusResponse_status,+    getInstancesHealthStatusResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newGetInstancesHealthStatus' smart constructor.+data GetInstancesHealthStatus = GetInstancesHealthStatus'+  { -- | An array that contains the IDs of all the instances that you want to get+    -- the health status for.+    --+    -- If you omit @Instances@, Cloud Map returns the health status for all the+    -- instances that are associated with the specified service.+    --+    -- To get the IDs for the instances that you\'ve registered by using a+    -- specified service, submit a+    -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_ListInstances.html ListInstances>+    -- request.+    instances :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),+    -- | The maximum number of instances that you want Cloud Map to return in the+    -- response to a @GetInstancesHealthStatus@ request. If you don\'t specify+    -- a value for @MaxResults@, Cloud Map returns up to 100 instances.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | For the first @GetInstancesHealthStatus@ request, omit this value.+    --+    -- If more than @MaxResults@ instances match the specified criteria, you+    -- can submit another @GetInstancesHealthStatus@ request to get the next+    -- group of results. Specify the value of @NextToken@ from the previous+    -- response in the next request.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The ID of the service that the instance is associated with.+    serviceId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInstancesHealthStatus' 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:+--+-- 'instances', 'getInstancesHealthStatus_instances' - An array that contains the IDs of all the instances that you want to get+-- the health status for.+--+-- If you omit @Instances@, Cloud Map returns the health status for all the+-- instances that are associated with the specified service.+--+-- To get the IDs for the instances that you\'ve registered by using a+-- specified service, submit a+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_ListInstances.html ListInstances>+-- request.+--+-- 'maxResults', 'getInstancesHealthStatus_maxResults' - The maximum number of instances that you want Cloud Map to return in the+-- response to a @GetInstancesHealthStatus@ request. If you don\'t specify+-- a value for @MaxResults@, Cloud Map returns up to 100 instances.+--+-- 'nextToken', 'getInstancesHealthStatus_nextToken' - For the first @GetInstancesHealthStatus@ request, omit this value.+--+-- If more than @MaxResults@ instances match the specified criteria, you+-- can submit another @GetInstancesHealthStatus@ request to get the next+-- group of results. Specify the value of @NextToken@ from the previous+-- response in the next request.+--+-- 'serviceId', 'getInstancesHealthStatus_serviceId' - The ID of the service that the instance is associated with.+newGetInstancesHealthStatus ::+  -- | 'serviceId'+  Prelude.Text ->+  GetInstancesHealthStatus+newGetInstancesHealthStatus pServiceId_ =+  GetInstancesHealthStatus'+    { instances =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serviceId = pServiceId_+    }++-- | An array that contains the IDs of all the instances that you want to get+-- the health status for.+--+-- If you omit @Instances@, Cloud Map returns the health status for all the+-- instances that are associated with the specified service.+--+-- To get the IDs for the instances that you\'ve registered by using a+-- specified service, submit a+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_ListInstances.html ListInstances>+-- request.+getInstancesHealthStatus_instances :: Lens.Lens' GetInstancesHealthStatus (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))+getInstancesHealthStatus_instances = Lens.lens (\GetInstancesHealthStatus' {instances} -> instances) (\s@GetInstancesHealthStatus' {} a -> s {instances = a} :: GetInstancesHealthStatus) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of instances that you want Cloud Map to return in the+-- response to a @GetInstancesHealthStatus@ request. If you don\'t specify+-- a value for @MaxResults@, Cloud Map returns up to 100 instances.+getInstancesHealthStatus_maxResults :: Lens.Lens' GetInstancesHealthStatus (Prelude.Maybe Prelude.Natural)+getInstancesHealthStatus_maxResults = Lens.lens (\GetInstancesHealthStatus' {maxResults} -> maxResults) (\s@GetInstancesHealthStatus' {} a -> s {maxResults = a} :: GetInstancesHealthStatus)++-- | For the first @GetInstancesHealthStatus@ request, omit this value.+--+-- If more than @MaxResults@ instances match the specified criteria, you+-- can submit another @GetInstancesHealthStatus@ request to get the next+-- group of results. Specify the value of @NextToken@ from the previous+-- response in the next request.+getInstancesHealthStatus_nextToken :: Lens.Lens' GetInstancesHealthStatus (Prelude.Maybe Prelude.Text)+getInstancesHealthStatus_nextToken = Lens.lens (\GetInstancesHealthStatus' {nextToken} -> nextToken) (\s@GetInstancesHealthStatus' {} a -> s {nextToken = a} :: GetInstancesHealthStatus)++-- | The ID of the service that the instance is associated with.+getInstancesHealthStatus_serviceId :: Lens.Lens' GetInstancesHealthStatus Prelude.Text+getInstancesHealthStatus_serviceId = Lens.lens (\GetInstancesHealthStatus' {serviceId} -> serviceId) (\s@GetInstancesHealthStatus' {} a -> s {serviceId = a} :: GetInstancesHealthStatus)++instance Core.AWSRequest GetInstancesHealthStatus where+  type+    AWSResponse GetInstancesHealthStatus =+      GetInstancesHealthStatusResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetInstancesHealthStatusResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Status" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetInstancesHealthStatus where+  hashWithSalt _salt GetInstancesHealthStatus' {..} =+    _salt+      `Prelude.hashWithSalt` instances+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serviceId++instance Prelude.NFData GetInstancesHealthStatus where+  rnf GetInstancesHealthStatus' {..} =+    Prelude.rnf instances+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serviceId++instance Data.ToHeaders GetInstancesHealthStatus where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.GetInstancesHealthStatus" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetInstancesHealthStatus where+  toJSON GetInstancesHealthStatus' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Instances" Data..=) Prelude.<$> instances,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("ServiceId" Data..= serviceId)+          ]+      )++instance Data.ToPath GetInstancesHealthStatus where+  toPath = Prelude.const "/"++instance Data.ToQuery GetInstancesHealthStatus where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetInstancesHealthStatusResponse' smart constructor.+data GetInstancesHealthStatusResponse = GetInstancesHealthStatusResponse'+  { -- | If more than @MaxResults@ instances match the specified criteria, you+    -- can submit another @GetInstancesHealthStatus@ request to get the next+    -- group of results. Specify the value of @NextToken@ from the previous+    -- response in the next request.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A complex type that contains the IDs and the health status of the+    -- instances that you specified in the @GetInstancesHealthStatus@ request.+    status :: Prelude.Maybe (Prelude.HashMap Prelude.Text HealthStatus),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInstancesHealthStatusResponse' 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', 'getInstancesHealthStatusResponse_nextToken' - If more than @MaxResults@ instances match the specified criteria, you+-- can submit another @GetInstancesHealthStatus@ request to get the next+-- group of results. Specify the value of @NextToken@ from the previous+-- response in the next request.+--+-- 'status', 'getInstancesHealthStatusResponse_status' - A complex type that contains the IDs and the health status of the+-- instances that you specified in the @GetInstancesHealthStatus@ request.+--+-- 'httpStatus', 'getInstancesHealthStatusResponse_httpStatus' - The response's http status code.+newGetInstancesHealthStatusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetInstancesHealthStatusResponse+newGetInstancesHealthStatusResponse pHttpStatus_ =+  GetInstancesHealthStatusResponse'+    { nextToken =+        Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If more than @MaxResults@ instances match the specified criteria, you+-- can submit another @GetInstancesHealthStatus@ request to get the next+-- group of results. Specify the value of @NextToken@ from the previous+-- response in the next request.+getInstancesHealthStatusResponse_nextToken :: Lens.Lens' GetInstancesHealthStatusResponse (Prelude.Maybe Prelude.Text)+getInstancesHealthStatusResponse_nextToken = Lens.lens (\GetInstancesHealthStatusResponse' {nextToken} -> nextToken) (\s@GetInstancesHealthStatusResponse' {} a -> s {nextToken = a} :: GetInstancesHealthStatusResponse)++-- | A complex type that contains the IDs and the health status of the+-- instances that you specified in the @GetInstancesHealthStatus@ request.+getInstancesHealthStatusResponse_status :: Lens.Lens' GetInstancesHealthStatusResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text HealthStatus))+getInstancesHealthStatusResponse_status = Lens.lens (\GetInstancesHealthStatusResponse' {status} -> status) (\s@GetInstancesHealthStatusResponse' {} a -> s {status = a} :: GetInstancesHealthStatusResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getInstancesHealthStatusResponse_httpStatus :: Lens.Lens' GetInstancesHealthStatusResponse Prelude.Int+getInstancesHealthStatusResponse_httpStatus = Lens.lens (\GetInstancesHealthStatusResponse' {httpStatus} -> httpStatus) (\s@GetInstancesHealthStatusResponse' {} a -> s {httpStatus = a} :: GetInstancesHealthStatusResponse)++instance+  Prelude.NFData+    GetInstancesHealthStatusResponse+  where+  rnf GetInstancesHealthStatusResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,162 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Route53AutoNaming.GetNamespace+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a namespace.+module Amazonka.Route53AutoNaming.GetNamespace+  ( -- * Creating a Request+    GetNamespace (..),+    newGetNamespace,++    -- * Request Lenses+    getNamespace_id,++    -- * Destructuring the Response+    GetNamespaceResponse (..),+    newGetNamespaceResponse,++    -- * Response Lenses+    getNamespaceResponse_namespace,+    getNamespaceResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newGetNamespace' smart constructor.+data GetNamespace = GetNamespace'+  { -- | The ID of the namespace that you want to get information about.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetNamespace' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'getNamespace_id' - The ID of the namespace that you want to get information about.+newGetNamespace ::+  -- | 'id'+  Prelude.Text ->+  GetNamespace+newGetNamespace pId_ = GetNamespace' {id = pId_}++-- | The ID of the namespace that you want to get information about.+getNamespace_id :: Lens.Lens' GetNamespace Prelude.Text+getNamespace_id = Lens.lens (\GetNamespace' {id} -> id) (\s@GetNamespace' {} a -> s {id = a} :: GetNamespace)++instance Core.AWSRequest GetNamespace where+  type AWSResponse GetNamespace = GetNamespaceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetNamespaceResponse'+            Prelude.<$> (x Data..?> "Namespace")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetNamespace where+  hashWithSalt _salt GetNamespace' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData GetNamespace where+  rnf GetNamespace' {..} = Prelude.rnf id++instance Data.ToHeaders GetNamespace where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.GetNamespace" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetNamespace where+  toJSON GetNamespace' {..} =+    Data.object+      (Prelude.catMaybes [Prelude.Just ("Id" Data..= id)])++instance Data.ToPath GetNamespace where+  toPath = Prelude.const "/"++instance Data.ToQuery GetNamespace where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetNamespaceResponse' smart constructor.+data GetNamespaceResponse = GetNamespaceResponse'+  { -- | A complex type that contains information about the specified namespace.+    namespace :: Prelude.Maybe Namespace,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetNamespaceResponse' 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:+--+-- 'namespace', 'getNamespaceResponse_namespace' - A complex type that contains information about the specified namespace.+--+-- 'httpStatus', 'getNamespaceResponse_httpStatus' - The response's http status code.+newGetNamespaceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetNamespaceResponse+newGetNamespaceResponse pHttpStatus_ =+  GetNamespaceResponse'+    { namespace = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A complex type that contains information about the specified namespace.+getNamespaceResponse_namespace :: Lens.Lens' GetNamespaceResponse (Prelude.Maybe Namespace)+getNamespaceResponse_namespace = Lens.lens (\GetNamespaceResponse' {namespace} -> namespace) (\s@GetNamespaceResponse' {} a -> s {namespace = a} :: GetNamespaceResponse)++-- | The response's http status code.+getNamespaceResponse_httpStatus :: Lens.Lens' GetNamespaceResponse Prelude.Int+getNamespaceResponse_httpStatus = Lens.lens (\GetNamespaceResponse' {httpStatus} -> httpStatus) (\s@GetNamespaceResponse' {} a -> s {httpStatus = a} :: GetNamespaceResponse)++instance Prelude.NFData GetNamespaceResponse where+  rnf GetNamespaceResponse' {..} =+    Prelude.rnf namespace+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,169 @@+{-# 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.Route53AutoNaming.GetOperation+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about any operation that returns an operation ID in the+-- response, such as a @CreateService@ request.+--+-- To get a list of operations that match specified criteria, see+-- <https://docs.aws.amazon.com/cloud-map/latest/api/API_ListOperations.html ListOperations>.+module Amazonka.Route53AutoNaming.GetOperation+  ( -- * Creating a Request+    GetOperation (..),+    newGetOperation,++    -- * Request Lenses+    getOperation_operationId,++    -- * Destructuring the Response+    GetOperationResponse (..),+    newGetOperationResponse,++    -- * Response Lenses+    getOperationResponse_operation,+    getOperationResponse_httpStatus,+  )+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+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Route53AutoNaming.Types++-- | /See:/ 'newGetOperation' smart constructor.+data GetOperation = GetOperation'+  { -- | The ID of the operation that you want to get more information about.+    operationId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetOperation' 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:+--+-- 'operationId', 'getOperation_operationId' - The ID of the operation that you want to get more information about.+newGetOperation ::+  -- | 'operationId'+  Prelude.Text ->+  GetOperation+newGetOperation pOperationId_ =+  GetOperation' {operationId = pOperationId_}++-- | The ID of the operation that you want to get more information about.+getOperation_operationId :: Lens.Lens' GetOperation Prelude.Text+getOperation_operationId = Lens.lens (\GetOperation' {operationId} -> operationId) (\s@GetOperation' {} a -> s {operationId = a} :: GetOperation)++instance Core.AWSRequest GetOperation where+  type AWSResponse GetOperation = GetOperationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetOperationResponse'+            Prelude.<$> (x Data..?> "Operation")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetOperation where+  hashWithSalt _salt GetOperation' {..} =+    _salt `Prelude.hashWithSalt` operationId++instance Prelude.NFData GetOperation where+  rnf GetOperation' {..} = Prelude.rnf operationId++instance Data.ToHeaders GetOperation where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Route53AutoNaming_v20170314.GetOperation" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetOperation where+  toJSON GetOperation' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("OperationId" Data..= operationId)]+      )++instance Data.ToPath GetOperation where+  toPath = Prelude.const "/"++instance Data.ToQuery GetOperation where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetOperationResponse' smart constructor.+data GetOperationResponse = GetOperationResponse'+  { -- | A complex type that contains information about the operation.+    operation :: Prelude.Maybe Operation,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetOperationResponse' 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:+--+-- 'operation', 'getOperationResponse_operation' - A complex type that contains information about the operation.+--+-- 'httpStatus', 'getOperationResponse_httpStatus' - The response's http status code.+newGetOperationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetOperationResponse+newGetOperationResponse pHttpStatus_ =+  GetOperationResponse'+    { operation = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A complex type that contains information about the operation.+getOperationResponse_operation :: Lens.Lens' GetOperationResponse (Prelude.Maybe Operation)+getOperationResponse_operation = Lens.lens (\GetOperationResponse' {operation} -> operation) (\s@GetOperationResponse' {} a -> s {operation = a} :: GetOperationResponse)++-- | The response's http status code.+getOperationResponse_httpStatus :: Lens.Lens' GetOperationResponse Prelude.Int+getOperationResponse_httpStatus = Lens.lens (\GetOperationResponse' {httpStatus} -> httpStatus) (\s@GetOperationResponse' {} a -> s {httpStatus = a} :: GetOperationResponse)++instance Prelude.NFData GetOperationResponse where+  rnf GetOperationResponse' {..} =+    Prelude.rnf operation+      `Prelude.seq` Prelude.rnf httpStatus