amazonka-mq 1.6.1 → 2.0

raw patch · 98 files changed

+11181/−4767 lines, 98 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 +3/−4
• Setup.hs +0/−2
• amazonka-mq.cabal +124/−91
• fixture/CreateTags.yaml +10/−0
• fixture/CreateTagsResponse.proto +0/−0
• fixture/DeleteTags.yaml +10/−0
• fixture/DeleteTagsResponse.proto +0/−0
• fixture/DescribeBrokerEngineTypes.yaml +10/−0
• fixture/DescribeBrokerEngineTypesResponse.proto +0/−0
• fixture/DescribeBrokerInstanceOptions.yaml +10/−0
• fixture/DescribeBrokerInstanceOptionsResponse.proto +0/−0
• fixture/ListTags.yaml +10/−0
• fixture/ListTagsResponse.proto +0/−0
• gen/Amazonka/MQ.hs +349/−0
• gen/Amazonka/MQ/CreateBroker.hs +611/−0
• gen/Amazonka/MQ/CreateConfiguration.hs +320/−0
• gen/Amazonka/MQ/CreateTags.hs +145/−0
• gen/Amazonka/MQ/CreateUser.hs +234/−0
• gen/Amazonka/MQ/DeleteBroker.hs +156/−0
• gen/Amazonka/MQ/DeleteTags.hs +138/−0
• gen/Amazonka/MQ/DeleteUser.hs +169/−0
• gen/Amazonka/MQ/DescribeBroker.hs +580/−0
• gen/Amazonka/MQ/DescribeBrokerEngineTypes.hs +231/−0
• gen/Amazonka/MQ/DescribeBrokerInstanceOptions.hs +263/−0
• gen/Amazonka/MQ/DescribeConfiguration.hs +289/−0
• gen/Amazonka/MQ/DescribeConfigurationRevision.hs +230/−0
• gen/Amazonka/MQ/DescribeUser.hs +247/−0
• gen/Amazonka/MQ/Lens.hs +433/−0
• gen/Amazonka/MQ/ListBrokers.hs +221/−0
• gen/Amazonka/MQ/ListConfigurationRevisions.hs +246/−0
• gen/Amazonka/MQ/ListConfigurations.hs +211/−0
• gen/Amazonka/MQ/ListTags.hs +156/−0
• gen/Amazonka/MQ/ListUsers.hs +239/−0
• gen/Amazonka/MQ/RebootBroker.hs +145/−0
• gen/Amazonka/MQ/Types.hs +381/−0
• gen/Amazonka/MQ/Types/ActionRequired.hs +107/−0
• gen/Amazonka/MQ/Types/AuthenticationStrategy.hs +73/−0
• gen/Amazonka/MQ/Types/AvailabilityZone.hs +67/−0
• gen/Amazonka/MQ/Types/BrokerEngineType.hs +89/−0
• gen/Amazonka/MQ/Types/BrokerInstance.hs +99/−0
• gen/Amazonka/MQ/Types/BrokerInstanceOption.hs +146/−0
• gen/Amazonka/MQ/Types/BrokerState.hs +92/−0
• gen/Amazonka/MQ/Types/BrokerStorageType.hs +74/−0
• gen/Amazonka/MQ/Types/BrokerSummary.hs +172/−0
• gen/Amazonka/MQ/Types/ChangeType.hs +77/−0
• gen/Amazonka/MQ/Types/Configuration.hs +228/−0
• gen/Amazonka/MQ/Types/ConfigurationId.hs +96/−0
• gen/Amazonka/MQ/Types/ConfigurationRevision.hs +101/−0
• gen/Amazonka/MQ/Types/Configurations.hs +97/−0
• gen/Amazonka/MQ/Types/DayOfWeek.hs +96/−0
• gen/Amazonka/MQ/Types/DeploymentMode.hs +77/−0
• gen/Amazonka/MQ/Types/EncryptionOptions.hs +110/−0
• gen/Amazonka/MQ/Types/EngineType.hs +72/−0
• gen/Amazonka/MQ/Types/EngineVersion.hs +67/−0
• gen/Amazonka/MQ/Types/LdapServerMetadataInput.hs +304/−0
• gen/Amazonka/MQ/Types/LdapServerMetadataOutput.hs +272/−0
• gen/Amazonka/MQ/Types/Logs.hs +96/−0
• gen/Amazonka/MQ/Types/LogsSummary.hs +135/−0
• gen/Amazonka/MQ/Types/PendingLogs.hs +87/−0
• gen/Amazonka/MQ/Types/SanitizationWarning.hs +104/−0
• gen/Amazonka/MQ/Types/SanitizationWarningReason.hs +77/−0
• gen/Amazonka/MQ/Types/User.hs +177/−0
• gen/Amazonka/MQ/Types/UserPendingChanges.hs +110/−0
• gen/Amazonka/MQ/Types/UserSummary.hs +93/−0
• gen/Amazonka/MQ/Types/WeeklyStartTime.hs +115/−0
• gen/Amazonka/MQ/UpdateBroker.hs +459/−0
• gen/Amazonka/MQ/UpdateConfiguration.hs +268/−0
• gen/Amazonka/MQ/UpdateUser.hs +232/−0
• gen/Amazonka/MQ/Waiters.hs +24/−0
• gen/Network/AWS/MQ.hs +0/−248
• gen/Network/AWS/MQ/CreateBroker.hs +0/−266
• gen/Network/AWS/MQ/CreateConfiguration.hs +0/−182
• gen/Network/AWS/MQ/CreateUser.hs +0/−165
• gen/Network/AWS/MQ/DeleteBroker.hs +0/−123
• gen/Network/AWS/MQ/DeleteUser.hs +0/−125
• gen/Network/AWS/MQ/DescribeBroker.hs +0/−275
• gen/Network/AWS/MQ/DescribeConfiguration.hs +0/−188
• gen/Network/AWS/MQ/DescribeConfigurationRevision.hs +0/−164
• gen/Network/AWS/MQ/DescribeUser.hs +0/−177
• gen/Network/AWS/MQ/ListBrokers.hs +0/−145
• gen/Network/AWS/MQ/ListConfigurationRevisions.hs +0/−183
• gen/Network/AWS/MQ/ListConfigurations.hs +0/−157
• gen/Network/AWS/MQ/ListUsers.hs +0/−177
• gen/Network/AWS/MQ/RebootBroker.hs +0/−117
• gen/Network/AWS/MQ/Types.hs +0/−202
• gen/Network/AWS/MQ/Types/Product.hs +0/−635
• gen/Network/AWS/MQ/Types/Sum.hs +0/−223
• gen/Network/AWS/MQ/UpdateBroker.hs +0/−152
• gen/Network/AWS/MQ/UpdateConfiguration.hs +0/−197
• gen/Network/AWS/MQ/UpdateUser.hs +0/−165
• gen/Network/AWS/MQ/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/MQ.hs +0/−345
• test/Test/AWS/MQ.hs +0/−20
• test/Test/AWS/MQ/Internal.hs +0/−9
• test/Test/Amazonka/Gen/MQ.hs +478/−0
• test/Test/Amazonka/MQ.hs +20/−0
• test/Test/Amazonka/MQ/Internal.hs +8/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2017-11-27@ 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.MQ](http://hackage.haskell.org/package/amazonka-mq/docs/Network-AWS-MQ.html)+See [Amazonka.MQ](http://hackage.haskell.org/package/amazonka-mq/docs/Amazonka-MQ.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

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

@@ -1,102 +1,135 @@-name:                  amazonka-mq-version:               1.6.1-synopsis:              Amazon MQ 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-mq+version:            2.0+synopsis:           Amazon MQ 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.MQ" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-11-27@ 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.MQ.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.MQ" 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-mq+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-mq  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.MQ-        , Network.AWS.MQ.CreateBroker-        , Network.AWS.MQ.CreateConfiguration-        , Network.AWS.MQ.CreateUser-        , Network.AWS.MQ.DeleteBroker-        , Network.AWS.MQ.DeleteUser-        , Network.AWS.MQ.DescribeBroker-        , Network.AWS.MQ.DescribeConfiguration-        , Network.AWS.MQ.DescribeConfigurationRevision-        , Network.AWS.MQ.DescribeUser-        , Network.AWS.MQ.ListBrokers-        , Network.AWS.MQ.ListConfigurationRevisions-        , Network.AWS.MQ.ListConfigurations-        , Network.AWS.MQ.ListUsers-        , Network.AWS.MQ.RebootBroker-        , Network.AWS.MQ.Types-        , Network.AWS.MQ.UpdateBroker-        , Network.AWS.MQ.UpdateConfiguration-        , Network.AWS.MQ.UpdateUser-        , Network.AWS.MQ.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.MQ.Types.Product-        , Network.AWS.MQ.Types.Sum+  exposed-modules:+    Amazonka.MQ+    Amazonka.MQ.CreateBroker+    Amazonka.MQ.CreateConfiguration+    Amazonka.MQ.CreateTags+    Amazonka.MQ.CreateUser+    Amazonka.MQ.DeleteBroker+    Amazonka.MQ.DeleteTags+    Amazonka.MQ.DeleteUser+    Amazonka.MQ.DescribeBroker+    Amazonka.MQ.DescribeBrokerEngineTypes+    Amazonka.MQ.DescribeBrokerInstanceOptions+    Amazonka.MQ.DescribeConfiguration+    Amazonka.MQ.DescribeConfigurationRevision+    Amazonka.MQ.DescribeUser+    Amazonka.MQ.Lens+    Amazonka.MQ.ListBrokers+    Amazonka.MQ.ListConfigurationRevisions+    Amazonka.MQ.ListConfigurations+    Amazonka.MQ.ListTags+    Amazonka.MQ.ListUsers+    Amazonka.MQ.RebootBroker+    Amazonka.MQ.Types+    Amazonka.MQ.Types.ActionRequired+    Amazonka.MQ.Types.AuthenticationStrategy+    Amazonka.MQ.Types.AvailabilityZone+    Amazonka.MQ.Types.BrokerEngineType+    Amazonka.MQ.Types.BrokerInstance+    Amazonka.MQ.Types.BrokerInstanceOption+    Amazonka.MQ.Types.BrokerState+    Amazonka.MQ.Types.BrokerStorageType+    Amazonka.MQ.Types.BrokerSummary+    Amazonka.MQ.Types.ChangeType+    Amazonka.MQ.Types.Configuration+    Amazonka.MQ.Types.ConfigurationId+    Amazonka.MQ.Types.ConfigurationRevision+    Amazonka.MQ.Types.Configurations+    Amazonka.MQ.Types.DayOfWeek+    Amazonka.MQ.Types.DeploymentMode+    Amazonka.MQ.Types.EncryptionOptions+    Amazonka.MQ.Types.EngineType+    Amazonka.MQ.Types.EngineVersion+    Amazonka.MQ.Types.LdapServerMetadataInput+    Amazonka.MQ.Types.LdapServerMetadataOutput+    Amazonka.MQ.Types.Logs+    Amazonka.MQ.Types.LogsSummary+    Amazonka.MQ.Types.PendingLogs+    Amazonka.MQ.Types.SanitizationWarning+    Amazonka.MQ.Types.SanitizationWarningReason+    Amazonka.MQ.Types.User+    Amazonka.MQ.Types.UserPendingChanges+    Amazonka.MQ.Types.UserSummary+    Amazonka.MQ.Types.WeeklyStartTime+    Amazonka.MQ.UpdateBroker+    Amazonka.MQ.UpdateConfiguration+    Amazonka.MQ.UpdateUser+    Amazonka.MQ.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-mq-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.MQ-        , Test.AWS.Gen.MQ-        , Test.AWS.MQ.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.MQ+    Test.Amazonka.MQ+    Test.Amazonka.MQ.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-mq-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-mq+    , 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/mq/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mq.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: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/mq/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mq.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: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/mq/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mq.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: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/mq/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mq.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: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/mq/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mq.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,349 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.MQ+-- 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-11-27@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon MQ is a managed message broker service for Apache ActiveMQ and+-- RabbitMQ that makes it easy to set up and operate message brokers in the+-- cloud. A message broker allows software applications and components to+-- communicate using various programming languages, operating systems, and+-- formal messaging protocols.+module Amazonka.MQ+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** BadRequestException+    _BadRequestException,++    -- ** ConflictException+    _ConflictException,++    -- ** ForbiddenException+    _ForbiddenException,++    -- ** InternalServerErrorException+    _InternalServerErrorException,++    -- ** NotFoundException+    _NotFoundException,++    -- ** UnauthorizedException+    _UnauthorizedException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateBroker+    CreateBroker (CreateBroker'),+    newCreateBroker,+    CreateBrokerResponse (CreateBrokerResponse'),+    newCreateBrokerResponse,++    -- ** CreateConfiguration+    CreateConfiguration (CreateConfiguration'),+    newCreateConfiguration,+    CreateConfigurationResponse (CreateConfigurationResponse'),+    newCreateConfigurationResponse,++    -- ** CreateTags+    CreateTags (CreateTags'),+    newCreateTags,+    CreateTagsResponse (CreateTagsResponse'),+    newCreateTagsResponse,++    -- ** CreateUser+    CreateUser (CreateUser'),+    newCreateUser,+    CreateUserResponse (CreateUserResponse'),+    newCreateUserResponse,++    -- ** DeleteBroker+    DeleteBroker (DeleteBroker'),+    newDeleteBroker,+    DeleteBrokerResponse (DeleteBrokerResponse'),+    newDeleteBrokerResponse,++    -- ** DeleteTags+    DeleteTags (DeleteTags'),+    newDeleteTags,+    DeleteTagsResponse (DeleteTagsResponse'),+    newDeleteTagsResponse,++    -- ** DeleteUser+    DeleteUser (DeleteUser'),+    newDeleteUser,+    DeleteUserResponse (DeleteUserResponse'),+    newDeleteUserResponse,++    -- ** DescribeBroker+    DescribeBroker (DescribeBroker'),+    newDescribeBroker,+    DescribeBrokerResponse (DescribeBrokerResponse'),+    newDescribeBrokerResponse,++    -- ** DescribeBrokerEngineTypes+    DescribeBrokerEngineTypes (DescribeBrokerEngineTypes'),+    newDescribeBrokerEngineTypes,+    DescribeBrokerEngineTypesResponse (DescribeBrokerEngineTypesResponse'),+    newDescribeBrokerEngineTypesResponse,++    -- ** DescribeBrokerInstanceOptions+    DescribeBrokerInstanceOptions (DescribeBrokerInstanceOptions'),+    newDescribeBrokerInstanceOptions,+    DescribeBrokerInstanceOptionsResponse (DescribeBrokerInstanceOptionsResponse'),+    newDescribeBrokerInstanceOptionsResponse,++    -- ** DescribeConfiguration+    DescribeConfiguration (DescribeConfiguration'),+    newDescribeConfiguration,+    DescribeConfigurationResponse (DescribeConfigurationResponse'),+    newDescribeConfigurationResponse,++    -- ** DescribeConfigurationRevision+    DescribeConfigurationRevision (DescribeConfigurationRevision'),+    newDescribeConfigurationRevision,+    DescribeConfigurationRevisionResponse (DescribeConfigurationRevisionResponse'),+    newDescribeConfigurationRevisionResponse,++    -- ** DescribeUser+    DescribeUser (DescribeUser'),+    newDescribeUser,+    DescribeUserResponse (DescribeUserResponse'),+    newDescribeUserResponse,++    -- ** ListBrokers (Paginated)+    ListBrokers (ListBrokers'),+    newListBrokers,+    ListBrokersResponse (ListBrokersResponse'),+    newListBrokersResponse,++    -- ** ListConfigurationRevisions+    ListConfigurationRevisions (ListConfigurationRevisions'),+    newListConfigurationRevisions,+    ListConfigurationRevisionsResponse (ListConfigurationRevisionsResponse'),+    newListConfigurationRevisionsResponse,++    -- ** ListConfigurations+    ListConfigurations (ListConfigurations'),+    newListConfigurations,+    ListConfigurationsResponse (ListConfigurationsResponse'),+    newListConfigurationsResponse,++    -- ** ListTags+    ListTags (ListTags'),+    newListTags,+    ListTagsResponse (ListTagsResponse'),+    newListTagsResponse,++    -- ** ListUsers+    ListUsers (ListUsers'),+    newListUsers,+    ListUsersResponse (ListUsersResponse'),+    newListUsersResponse,++    -- ** RebootBroker+    RebootBroker (RebootBroker'),+    newRebootBroker,+    RebootBrokerResponse (RebootBrokerResponse'),+    newRebootBrokerResponse,++    -- ** UpdateBroker+    UpdateBroker (UpdateBroker'),+    newUpdateBroker,+    UpdateBrokerResponse (UpdateBrokerResponse'),+    newUpdateBrokerResponse,++    -- ** UpdateConfiguration+    UpdateConfiguration (UpdateConfiguration'),+    newUpdateConfiguration,+    UpdateConfigurationResponse (UpdateConfigurationResponse'),+    newUpdateConfigurationResponse,++    -- ** UpdateUser+    UpdateUser (UpdateUser'),+    newUpdateUser,+    UpdateUserResponse (UpdateUserResponse'),+    newUpdateUserResponse,++    -- * Types++    -- ** AuthenticationStrategy+    AuthenticationStrategy (..),++    -- ** BrokerState+    BrokerState (..),++    -- ** BrokerStorageType+    BrokerStorageType (..),++    -- ** ChangeType+    ChangeType (..),++    -- ** DayOfWeek+    DayOfWeek (..),++    -- ** DeploymentMode+    DeploymentMode (..),++    -- ** EngineType+    EngineType (..),++    -- ** SanitizationWarningReason+    SanitizationWarningReason (..),++    -- ** ActionRequired+    ActionRequired (ActionRequired'),+    newActionRequired,++    -- ** AvailabilityZone+    AvailabilityZone (AvailabilityZone'),+    newAvailabilityZone,++    -- ** BrokerEngineType+    BrokerEngineType (BrokerEngineType'),+    newBrokerEngineType,++    -- ** BrokerInstance+    BrokerInstance (BrokerInstance'),+    newBrokerInstance,++    -- ** BrokerInstanceOption+    BrokerInstanceOption (BrokerInstanceOption'),+    newBrokerInstanceOption,++    -- ** BrokerSummary+    BrokerSummary (BrokerSummary'),+    newBrokerSummary,++    -- ** Configuration+    Configuration (Configuration'),+    newConfiguration,++    -- ** ConfigurationId+    ConfigurationId (ConfigurationId'),+    newConfigurationId,++    -- ** ConfigurationRevision+    ConfigurationRevision (ConfigurationRevision'),+    newConfigurationRevision,++    -- ** Configurations+    Configurations (Configurations'),+    newConfigurations,++    -- ** EncryptionOptions+    EncryptionOptions (EncryptionOptions'),+    newEncryptionOptions,++    -- ** EngineVersion+    EngineVersion (EngineVersion'),+    newEngineVersion,++    -- ** LdapServerMetadataInput+    LdapServerMetadataInput (LdapServerMetadataInput'),+    newLdapServerMetadataInput,++    -- ** LdapServerMetadataOutput+    LdapServerMetadataOutput (LdapServerMetadataOutput'),+    newLdapServerMetadataOutput,++    -- ** Logs+    Logs (Logs'),+    newLogs,++    -- ** LogsSummary+    LogsSummary (LogsSummary'),+    newLogsSummary,++    -- ** PendingLogs+    PendingLogs (PendingLogs'),+    newPendingLogs,++    -- ** SanitizationWarning+    SanitizationWarning (SanitizationWarning'),+    newSanitizationWarning,++    -- ** User+    User (User'),+    newUser,++    -- ** UserPendingChanges+    UserPendingChanges (UserPendingChanges'),+    newUserPendingChanges,++    -- ** UserSummary+    UserSummary (UserSummary'),+    newUserSummary,++    -- ** WeeklyStartTime+    WeeklyStartTime (WeeklyStartTime'),+    newWeeklyStartTime,+  )+where++import Amazonka.MQ.CreateBroker+import Amazonka.MQ.CreateConfiguration+import Amazonka.MQ.CreateTags+import Amazonka.MQ.CreateUser+import Amazonka.MQ.DeleteBroker+import Amazonka.MQ.DeleteTags+import Amazonka.MQ.DeleteUser+import Amazonka.MQ.DescribeBroker+import Amazonka.MQ.DescribeBrokerEngineTypes+import Amazonka.MQ.DescribeBrokerInstanceOptions+import Amazonka.MQ.DescribeConfiguration+import Amazonka.MQ.DescribeConfigurationRevision+import Amazonka.MQ.DescribeUser+import Amazonka.MQ.Lens+import Amazonka.MQ.ListBrokers+import Amazonka.MQ.ListConfigurationRevisions+import Amazonka.MQ.ListConfigurations+import Amazonka.MQ.ListTags+import Amazonka.MQ.ListUsers+import Amazonka.MQ.RebootBroker+import Amazonka.MQ.Types+import Amazonka.MQ.UpdateBroker+import Amazonka.MQ.UpdateConfiguration+import Amazonka.MQ.UpdateUser+import Amazonka.MQ.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 'MQ'.++-- $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,611 @@+{-# 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.MQ.CreateBroker+-- 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 broker. Note: This API is asynchronous.+--+-- To create a broker, you must either use the AmazonMQFullAccess IAM+-- policy or include the following EC2 permissions in your IAM policy.+--+-- -   ec2:CreateNetworkInterface+--+--     This permission is required to allow Amazon MQ to create an elastic+--     network interface (ENI) on behalf of your account.+--+-- -   ec2:CreateNetworkInterfacePermission+--+--     This permission is required to attach the ENI to the broker+--     instance.+--+-- -   ec2:DeleteNetworkInterface+--+-- -   ec2:DeleteNetworkInterfacePermission+--+-- -   ec2:DetachNetworkInterface+--+-- -   ec2:DescribeInternetGateways+--+-- -   ec2:DescribeNetworkInterfaces+--+-- -   ec2:DescribeNetworkInterfacePermissions+--+-- -   ec2:DescribeRouteTables+--+-- -   ec2:DescribeSecurityGroups+--+-- -   ec2:DescribeSubnets+--+-- -   ec2:DescribeVpcs+--+-- For more information, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/amazon-mq-setting-up.html#create-iam-user Create an IAM User and Get Your AWS Credentials>+-- and+-- <https://docs.aws.amazon.com/amazon-mq/latest/developer-guide/connecting-to-amazon-mq.html#never-modify-delete-elastic-network-interface Never Modify or Delete the Amazon MQ Elastic Network Interface>+-- in the /Amazon MQ Developer Guide/.+module Amazonka.MQ.CreateBroker+  ( -- * Creating a Request+    CreateBroker (..),+    newCreateBroker,++    -- * Request Lenses+    createBroker_authenticationStrategy,+    createBroker_configuration,+    createBroker_creatorRequestId,+    createBroker_encryptionOptions,+    createBroker_ldapServerMetadata,+    createBroker_logs,+    createBroker_maintenanceWindowStartTime,+    createBroker_securityGroups,+    createBroker_storageType,+    createBroker_subnetIds,+    createBroker_tags,+    createBroker_engineVersion,+    createBroker_hostInstanceType,+    createBroker_autoMinorVersionUpgrade,+    createBroker_users,+    createBroker_brokerName,+    createBroker_deploymentMode,+    createBroker_engineType,+    createBroker_publiclyAccessible,++    -- * Destructuring the Response+    CreateBrokerResponse (..),+    newCreateBrokerResponse,++    -- * Response Lenses+    createBrokerResponse_brokerArn,+    createBrokerResponse_brokerId,+    createBrokerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Creates a broker using the specified properties.+--+-- /See:/ 'newCreateBroker' smart constructor.+data CreateBroker = CreateBroker'+  { -- | Optional. The authentication strategy used to secure the broker. The+    -- default is SIMPLE.+    authenticationStrategy :: Prelude.Maybe AuthenticationStrategy,+    -- | A list of information about the configuration.+    configuration :: Prelude.Maybe ConfigurationId,+    -- | The unique ID that the requester receives for the created broker. Amazon+    -- MQ passes your ID with the API action. Note: We recommend using a+    -- Universally Unique Identifier (UUID) for the creatorRequestId. You may+    -- omit the creatorRequestId if your application doesn\'t require+    -- idempotency.+    creatorRequestId :: Prelude.Maybe Prelude.Text,+    -- | Encryption options for the broker. Does not apply to RabbitMQ brokers.+    encryptionOptions :: Prelude.Maybe EncryptionOptions,+    -- | Optional. The metadata of the LDAP server used to authenticate and+    -- authorize connections to the broker. Does not apply to RabbitMQ brokers.+    ldapServerMetadata :: Prelude.Maybe LdapServerMetadataInput,+    -- | Enables Amazon CloudWatch logging for brokers.+    logs :: Prelude.Maybe Logs,+    -- | The parameters that determine the WeeklyStartTime.+    maintenanceWindowStartTime :: Prelude.Maybe WeeklyStartTime,+    -- | The list of rules (1 minimum, 125 maximum) that authorize connections to+    -- brokers.+    securityGroups :: Prelude.Maybe [Prelude.Text],+    -- | The broker\'s storage type.+    storageType :: Prelude.Maybe BrokerStorageType,+    -- | The list of groups that define which subnets and IP ranges the broker+    -- can use from different Availability Zones. If you specify more than one+    -- subnet, the subnets must be in different Availability Zones. Amazon MQ+    -- will not be able to create VPC endpoints for your broker with multiple+    -- subnets in the same Availability Zone. A SINGLE_INSTANCE deployment+    -- requires one subnet (for example, the default subnet). An+    -- ACTIVE_STANDBY_MULTI_AZ Amazon MQ for ActiveMQ deployment requires two+    -- subnets. A CLUSTER_MULTI_AZ Amazon MQ for RabbitMQ deployment has no+    -- subnet requirements when deployed with public accessibility. Deployment+    -- without public accessibility requires at least one subnet.+    --+    -- If you specify subnets in a+    -- <https://docs.aws.amazon.com/vpc/latest/userguide/vpc-sharing.html shared VPC>+    -- for a RabbitMQ broker, the associated VPC to which the specified subnets+    -- belong must be owned by your AWS account. Amazon MQ will not be able to+    -- create VPC endpoints in VPCs that are not owned by your AWS account.+    subnetIds :: Prelude.Maybe [Prelude.Text],+    -- | Create tags when creating the broker.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | Required. The broker engine\'s version. For a list of supported engine+    -- versions, see+    -- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+    engineVersion :: Prelude.Text,+    -- | Required. The broker\'s instance type.+    hostInstanceType :: Prelude.Text,+    -- | Enables automatic upgrades to new minor versions for brokers, as new+    -- versions are released and supported by Amazon MQ. Automatic upgrades+    -- occur during the scheduled maintenance window of the broker or after a+    -- manual broker reboot. Set to true by default, if no value is specified.+    autoMinorVersionUpgrade :: Prelude.Bool,+    -- | Required. The list of broker users (persons or applications) who can+    -- access queues and topics. This value can contain only alphanumeric+    -- characters, dashes, periods, underscores, and tildes (- . _ ~). This+    -- value must be 2-100 characters long.+    --+    -- Amazon MQ for RabbitMQ+    --+    -- When you create an Amazon MQ for RabbitMQ broker, one and only one+    -- administrative user is accepted and created when a broker is first+    -- provisioned. All subsequent broker users are created by making RabbitMQ+    -- API calls directly to brokers or via the RabbitMQ web console.+    users :: [User],+    -- | Required. The broker\'s name. This value must be unique in your AWS+    -- account, 1-50 characters long, must contain only letters, numbers,+    -- dashes, and underscores, and must not contain white spaces, brackets,+    -- wildcard characters, or special characters.+    brokerName :: Prelude.Text,+    -- | Required. The broker\'s deployment mode.+    deploymentMode :: DeploymentMode,+    -- | Required. The type of broker engine. Currently, Amazon MQ supports+    -- ACTIVEMQ and RABBITMQ.+    engineType :: EngineType,+    -- | Enables connections from applications outside of the VPC that hosts the+    -- broker\'s subnets. Set to false by default, if no value is provided.+    publiclyAccessible :: Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateBroker' with all optional fields 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:+--+-- 'authenticationStrategy', 'createBroker_authenticationStrategy' - Optional. The authentication strategy used to secure the broker. The+-- default is SIMPLE.+--+-- 'configuration', 'createBroker_configuration' - A list of information about the configuration.+--+-- 'creatorRequestId', 'createBroker_creatorRequestId' - The unique ID that the requester receives for the created broker. Amazon+-- MQ passes your ID with the API action. Note: We recommend using a+-- Universally Unique Identifier (UUID) for the creatorRequestId. You may+-- omit the creatorRequestId if your application doesn\'t require+-- idempotency.+--+-- 'encryptionOptions', 'createBroker_encryptionOptions' - Encryption options for the broker. Does not apply to RabbitMQ brokers.+--+-- 'ldapServerMetadata', 'createBroker_ldapServerMetadata' - Optional. The metadata of the LDAP server used to authenticate and+-- authorize connections to the broker. Does not apply to RabbitMQ brokers.+--+-- 'logs', 'createBroker_logs' - Enables Amazon CloudWatch logging for brokers.+--+-- 'maintenanceWindowStartTime', 'createBroker_maintenanceWindowStartTime' - The parameters that determine the WeeklyStartTime.+--+-- 'securityGroups', 'createBroker_securityGroups' - The list of rules (1 minimum, 125 maximum) that authorize connections to+-- brokers.+--+-- 'storageType', 'createBroker_storageType' - The broker\'s storage type.+--+-- 'subnetIds', 'createBroker_subnetIds' - The list of groups that define which subnets and IP ranges the broker+-- can use from different Availability Zones. If you specify more than one+-- subnet, the subnets must be in different Availability Zones. Amazon MQ+-- will not be able to create VPC endpoints for your broker with multiple+-- subnets in the same Availability Zone. A SINGLE_INSTANCE deployment+-- requires one subnet (for example, the default subnet). An+-- ACTIVE_STANDBY_MULTI_AZ Amazon MQ for ActiveMQ deployment requires two+-- subnets. A CLUSTER_MULTI_AZ Amazon MQ for RabbitMQ deployment has no+-- subnet requirements when deployed with public accessibility. Deployment+-- without public accessibility requires at least one subnet.+--+-- If you specify subnets in a+-- <https://docs.aws.amazon.com/vpc/latest/userguide/vpc-sharing.html shared VPC>+-- for a RabbitMQ broker, the associated VPC to which the specified subnets+-- belong must be owned by your AWS account. Amazon MQ will not be able to+-- create VPC endpoints in VPCs that are not owned by your AWS account.+--+-- 'tags', 'createBroker_tags' - Create tags when creating the broker.+--+-- 'engineVersion', 'createBroker_engineVersion' - Required. The broker engine\'s version. For a list of supported engine+-- versions, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+--+-- 'hostInstanceType', 'createBroker_hostInstanceType' - Required. The broker\'s instance type.+--+-- 'autoMinorVersionUpgrade', 'createBroker_autoMinorVersionUpgrade' - Enables automatic upgrades to new minor versions for brokers, as new+-- versions are released and supported by Amazon MQ. Automatic upgrades+-- occur during the scheduled maintenance window of the broker or after a+-- manual broker reboot. Set to true by default, if no value is specified.+--+-- 'users', 'createBroker_users' - Required. The list of broker users (persons or applications) who can+-- access queues and topics. This value can contain only alphanumeric+-- characters, dashes, periods, underscores, and tildes (- . _ ~). This+-- value must be 2-100 characters long.+--+-- Amazon MQ for RabbitMQ+--+-- When you create an Amazon MQ for RabbitMQ broker, one and only one+-- administrative user is accepted and created when a broker is first+-- provisioned. All subsequent broker users are created by making RabbitMQ+-- API calls directly to brokers or via the RabbitMQ web console.+--+-- 'brokerName', 'createBroker_brokerName' - Required. The broker\'s name. This value must be unique in your AWS+-- account, 1-50 characters long, must contain only letters, numbers,+-- dashes, and underscores, and must not contain white spaces, brackets,+-- wildcard characters, or special characters.+--+-- 'deploymentMode', 'createBroker_deploymentMode' - Required. The broker\'s deployment mode.+--+-- 'engineType', 'createBroker_engineType' - Required. The type of broker engine. Currently, Amazon MQ supports+-- ACTIVEMQ and RABBITMQ.+--+-- 'publiclyAccessible', 'createBroker_publiclyAccessible' - Enables connections from applications outside of the VPC that hosts the+-- broker\'s subnets. Set to false by default, if no value is provided.+newCreateBroker ::+  -- | 'engineVersion'+  Prelude.Text ->+  -- | 'hostInstanceType'+  Prelude.Text ->+  -- | 'autoMinorVersionUpgrade'+  Prelude.Bool ->+  -- | 'brokerName'+  Prelude.Text ->+  -- | 'deploymentMode'+  DeploymentMode ->+  -- | 'engineType'+  EngineType ->+  -- | 'publiclyAccessible'+  Prelude.Bool ->+  CreateBroker+newCreateBroker+  pEngineVersion_+  pHostInstanceType_+  pAutoMinorVersionUpgrade_+  pBrokerName_+  pDeploymentMode_+  pEngineType_+  pPubliclyAccessible_ =+    CreateBroker'+      { authenticationStrategy =+          Prelude.Nothing,+        configuration = Prelude.Nothing,+        creatorRequestId = Prelude.Nothing,+        encryptionOptions = Prelude.Nothing,+        ldapServerMetadata = Prelude.Nothing,+        logs = Prelude.Nothing,+        maintenanceWindowStartTime = Prelude.Nothing,+        securityGroups = Prelude.Nothing,+        storageType = Prelude.Nothing,+        subnetIds = Prelude.Nothing,+        tags = Prelude.Nothing,+        engineVersion = pEngineVersion_,+        hostInstanceType = pHostInstanceType_,+        autoMinorVersionUpgrade = pAutoMinorVersionUpgrade_,+        users = Prelude.mempty,+        brokerName = pBrokerName_,+        deploymentMode = pDeploymentMode_,+        engineType = pEngineType_,+        publiclyAccessible = pPubliclyAccessible_+      }++-- | Optional. The authentication strategy used to secure the broker. The+-- default is SIMPLE.+createBroker_authenticationStrategy :: Lens.Lens' CreateBroker (Prelude.Maybe AuthenticationStrategy)+createBroker_authenticationStrategy = Lens.lens (\CreateBroker' {authenticationStrategy} -> authenticationStrategy) (\s@CreateBroker' {} a -> s {authenticationStrategy = a} :: CreateBroker)++-- | A list of information about the configuration.+createBroker_configuration :: Lens.Lens' CreateBroker (Prelude.Maybe ConfigurationId)+createBroker_configuration = Lens.lens (\CreateBroker' {configuration} -> configuration) (\s@CreateBroker' {} a -> s {configuration = a} :: CreateBroker)++-- | The unique ID that the requester receives for the created broker. Amazon+-- MQ passes your ID with the API action. Note: We recommend using a+-- Universally Unique Identifier (UUID) for the creatorRequestId. You may+-- omit the creatorRequestId if your application doesn\'t require+-- idempotency.+createBroker_creatorRequestId :: Lens.Lens' CreateBroker (Prelude.Maybe Prelude.Text)+createBroker_creatorRequestId = Lens.lens (\CreateBroker' {creatorRequestId} -> creatorRequestId) (\s@CreateBroker' {} a -> s {creatorRequestId = a} :: CreateBroker)++-- | Encryption options for the broker. Does not apply to RabbitMQ brokers.+createBroker_encryptionOptions :: Lens.Lens' CreateBroker (Prelude.Maybe EncryptionOptions)+createBroker_encryptionOptions = Lens.lens (\CreateBroker' {encryptionOptions} -> encryptionOptions) (\s@CreateBroker' {} a -> s {encryptionOptions = a} :: CreateBroker)++-- | Optional. The metadata of the LDAP server used to authenticate and+-- authorize connections to the broker. Does not apply to RabbitMQ brokers.+createBroker_ldapServerMetadata :: Lens.Lens' CreateBroker (Prelude.Maybe LdapServerMetadataInput)+createBroker_ldapServerMetadata = Lens.lens (\CreateBroker' {ldapServerMetadata} -> ldapServerMetadata) (\s@CreateBroker' {} a -> s {ldapServerMetadata = a} :: CreateBroker)++-- | Enables Amazon CloudWatch logging for brokers.+createBroker_logs :: Lens.Lens' CreateBroker (Prelude.Maybe Logs)+createBroker_logs = Lens.lens (\CreateBroker' {logs} -> logs) (\s@CreateBroker' {} a -> s {logs = a} :: CreateBroker)++-- | The parameters that determine the WeeklyStartTime.+createBroker_maintenanceWindowStartTime :: Lens.Lens' CreateBroker (Prelude.Maybe WeeklyStartTime)+createBroker_maintenanceWindowStartTime = Lens.lens (\CreateBroker' {maintenanceWindowStartTime} -> maintenanceWindowStartTime) (\s@CreateBroker' {} a -> s {maintenanceWindowStartTime = a} :: CreateBroker)++-- | The list of rules (1 minimum, 125 maximum) that authorize connections to+-- brokers.+createBroker_securityGroups :: Lens.Lens' CreateBroker (Prelude.Maybe [Prelude.Text])+createBroker_securityGroups = Lens.lens (\CreateBroker' {securityGroups} -> securityGroups) (\s@CreateBroker' {} a -> s {securityGroups = a} :: CreateBroker) Prelude.. Lens.mapping Lens.coerced++-- | The broker\'s storage type.+createBroker_storageType :: Lens.Lens' CreateBroker (Prelude.Maybe BrokerStorageType)+createBroker_storageType = Lens.lens (\CreateBroker' {storageType} -> storageType) (\s@CreateBroker' {} a -> s {storageType = a} :: CreateBroker)++-- | The list of groups that define which subnets and IP ranges the broker+-- can use from different Availability Zones. If you specify more than one+-- subnet, the subnets must be in different Availability Zones. Amazon MQ+-- will not be able to create VPC endpoints for your broker with multiple+-- subnets in the same Availability Zone. A SINGLE_INSTANCE deployment+-- requires one subnet (for example, the default subnet). An+-- ACTIVE_STANDBY_MULTI_AZ Amazon MQ for ActiveMQ deployment requires two+-- subnets. A CLUSTER_MULTI_AZ Amazon MQ for RabbitMQ deployment has no+-- subnet requirements when deployed with public accessibility. Deployment+-- without public accessibility requires at least one subnet.+--+-- If you specify subnets in a+-- <https://docs.aws.amazon.com/vpc/latest/userguide/vpc-sharing.html shared VPC>+-- for a RabbitMQ broker, the associated VPC to which the specified subnets+-- belong must be owned by your AWS account. Amazon MQ will not be able to+-- create VPC endpoints in VPCs that are not owned by your AWS account.+createBroker_subnetIds :: Lens.Lens' CreateBroker (Prelude.Maybe [Prelude.Text])+createBroker_subnetIds = Lens.lens (\CreateBroker' {subnetIds} -> subnetIds) (\s@CreateBroker' {} a -> s {subnetIds = a} :: CreateBroker) Prelude.. Lens.mapping Lens.coerced++-- | Create tags when creating the broker.+createBroker_tags :: Lens.Lens' CreateBroker (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createBroker_tags = Lens.lens (\CreateBroker' {tags} -> tags) (\s@CreateBroker' {} a -> s {tags = a} :: CreateBroker) Prelude.. Lens.mapping Lens.coerced++-- | Required. The broker engine\'s version. For a list of supported engine+-- versions, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+createBroker_engineVersion :: Lens.Lens' CreateBroker Prelude.Text+createBroker_engineVersion = Lens.lens (\CreateBroker' {engineVersion} -> engineVersion) (\s@CreateBroker' {} a -> s {engineVersion = a} :: CreateBroker)++-- | Required. The broker\'s instance type.+createBroker_hostInstanceType :: Lens.Lens' CreateBroker Prelude.Text+createBroker_hostInstanceType = Lens.lens (\CreateBroker' {hostInstanceType} -> hostInstanceType) (\s@CreateBroker' {} a -> s {hostInstanceType = a} :: CreateBroker)++-- | Enables automatic upgrades to new minor versions for brokers, as new+-- versions are released and supported by Amazon MQ. Automatic upgrades+-- occur during the scheduled maintenance window of the broker or after a+-- manual broker reboot. Set to true by default, if no value is specified.+createBroker_autoMinorVersionUpgrade :: Lens.Lens' CreateBroker Prelude.Bool+createBroker_autoMinorVersionUpgrade = Lens.lens (\CreateBroker' {autoMinorVersionUpgrade} -> autoMinorVersionUpgrade) (\s@CreateBroker' {} a -> s {autoMinorVersionUpgrade = a} :: CreateBroker)++-- | Required. The list of broker users (persons or applications) who can+-- access queues and topics. This value can contain only alphanumeric+-- characters, dashes, periods, underscores, and tildes (- . _ ~). This+-- value must be 2-100 characters long.+--+-- Amazon MQ for RabbitMQ+--+-- When you create an Amazon MQ for RabbitMQ broker, one and only one+-- administrative user is accepted and created when a broker is first+-- provisioned. All subsequent broker users are created by making RabbitMQ+-- API calls directly to brokers or via the RabbitMQ web console.+createBroker_users :: Lens.Lens' CreateBroker [User]+createBroker_users = Lens.lens (\CreateBroker' {users} -> users) (\s@CreateBroker' {} a -> s {users = a} :: CreateBroker) Prelude.. Lens.coerced++-- | Required. The broker\'s name. This value must be unique in your AWS+-- account, 1-50 characters long, must contain only letters, numbers,+-- dashes, and underscores, and must not contain white spaces, brackets,+-- wildcard characters, or special characters.+createBroker_brokerName :: Lens.Lens' CreateBroker Prelude.Text+createBroker_brokerName = Lens.lens (\CreateBroker' {brokerName} -> brokerName) (\s@CreateBroker' {} a -> s {brokerName = a} :: CreateBroker)++-- | Required. The broker\'s deployment mode.+createBroker_deploymentMode :: Lens.Lens' CreateBroker DeploymentMode+createBroker_deploymentMode = Lens.lens (\CreateBroker' {deploymentMode} -> deploymentMode) (\s@CreateBroker' {} a -> s {deploymentMode = a} :: CreateBroker)++-- | Required. The type of broker engine. Currently, Amazon MQ supports+-- ACTIVEMQ and RABBITMQ.+createBroker_engineType :: Lens.Lens' CreateBroker EngineType+createBroker_engineType = Lens.lens (\CreateBroker' {engineType} -> engineType) (\s@CreateBroker' {} a -> s {engineType = a} :: CreateBroker)++-- | Enables connections from applications outside of the VPC that hosts the+-- broker\'s subnets. Set to false by default, if no value is provided.+createBroker_publiclyAccessible :: Lens.Lens' CreateBroker Prelude.Bool+createBroker_publiclyAccessible = Lens.lens (\CreateBroker' {publiclyAccessible} -> publiclyAccessible) (\s@CreateBroker' {} a -> s {publiclyAccessible = a} :: CreateBroker)++instance Core.AWSRequest CreateBroker where+  type AWSResponse CreateBroker = CreateBrokerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateBrokerResponse'+            Prelude.<$> (x Data..?> "brokerArn")+            Prelude.<*> (x Data..?> "brokerId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateBroker where+  hashWithSalt _salt CreateBroker' {..} =+    _salt+      `Prelude.hashWithSalt` authenticationStrategy+      `Prelude.hashWithSalt` configuration+      `Prelude.hashWithSalt` creatorRequestId+      `Prelude.hashWithSalt` encryptionOptions+      `Prelude.hashWithSalt` ldapServerMetadata+      `Prelude.hashWithSalt` logs+      `Prelude.hashWithSalt` maintenanceWindowStartTime+      `Prelude.hashWithSalt` securityGroups+      `Prelude.hashWithSalt` storageType+      `Prelude.hashWithSalt` subnetIds+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` engineVersion+      `Prelude.hashWithSalt` hostInstanceType+      `Prelude.hashWithSalt` autoMinorVersionUpgrade+      `Prelude.hashWithSalt` users+      `Prelude.hashWithSalt` brokerName+      `Prelude.hashWithSalt` deploymentMode+      `Prelude.hashWithSalt` engineType+      `Prelude.hashWithSalt` publiclyAccessible++instance Prelude.NFData CreateBroker where+  rnf CreateBroker' {..} =+    Prelude.rnf authenticationStrategy+      `Prelude.seq` Prelude.rnf configuration+      `Prelude.seq` Prelude.rnf creatorRequestId+      `Prelude.seq` Prelude.rnf encryptionOptions+      `Prelude.seq` Prelude.rnf ldapServerMetadata+      `Prelude.seq` Prelude.rnf logs+      `Prelude.seq` Prelude.rnf maintenanceWindowStartTime+      `Prelude.seq` Prelude.rnf securityGroups+      `Prelude.seq` Prelude.rnf storageType+      `Prelude.seq` Prelude.rnf subnetIds+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf engineVersion+      `Prelude.seq` Prelude.rnf hostInstanceType+      `Prelude.seq` Prelude.rnf autoMinorVersionUpgrade+      `Prelude.seq` Prelude.rnf users+      `Prelude.seq` Prelude.rnf brokerName+      `Prelude.seq` Prelude.rnf deploymentMode+      `Prelude.seq` Prelude.rnf engineType+      `Prelude.seq` Prelude.rnf publiclyAccessible++instance Data.ToHeaders CreateBroker where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateBroker where+  toJSON CreateBroker' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("authenticationStrategy" Data..=)+              Prelude.<$> authenticationStrategy,+            ("configuration" Data..=) Prelude.<$> configuration,+            ("creatorRequestId" Data..=)+              Prelude.<$> creatorRequestId,+            ("encryptionOptions" Data..=)+              Prelude.<$> encryptionOptions,+            ("ldapServerMetadata" Data..=)+              Prelude.<$> ldapServerMetadata,+            ("logs" Data..=) Prelude.<$> logs,+            ("maintenanceWindowStartTime" Data..=)+              Prelude.<$> maintenanceWindowStartTime,+            ("securityGroups" Data..=)+              Prelude.<$> securityGroups,+            ("storageType" Data..=) Prelude.<$> storageType,+            ("subnetIds" Data..=) Prelude.<$> subnetIds,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("engineVersion" Data..= engineVersion),+            Prelude.Just+              ("hostInstanceType" Data..= hostInstanceType),+            Prelude.Just+              ( "autoMinorVersionUpgrade"+                  Data..= autoMinorVersionUpgrade+              ),+            Prelude.Just ("users" Data..= users),+            Prelude.Just ("brokerName" Data..= brokerName),+            Prelude.Just+              ("deploymentMode" Data..= deploymentMode),+            Prelude.Just ("engineType" Data..= engineType),+            Prelude.Just+              ("publiclyAccessible" Data..= publiclyAccessible)+          ]+      )++instance Data.ToPath CreateBroker where+  toPath = Prelude.const "/v1/brokers"++instance Data.ToQuery CreateBroker where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateBrokerResponse' smart constructor.+data CreateBrokerResponse = CreateBrokerResponse'+  { -- | The broker\'s Amazon Resource Name (ARN).+    brokerArn :: Prelude.Maybe Prelude.Text,+    -- | The unique ID that Amazon MQ generates for the broker.+    brokerId :: 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 'CreateBrokerResponse' with all optional fields 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:+--+-- 'brokerArn', 'createBrokerResponse_brokerArn' - The broker\'s Amazon Resource Name (ARN).+--+-- 'brokerId', 'createBrokerResponse_brokerId' - The unique ID that Amazon MQ generates for the broker.+--+-- 'httpStatus', 'createBrokerResponse_httpStatus' - The response's http status code.+newCreateBrokerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateBrokerResponse+newCreateBrokerResponse pHttpStatus_ =+  CreateBrokerResponse'+    { brokerArn = Prelude.Nothing,+      brokerId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The broker\'s Amazon Resource Name (ARN).+createBrokerResponse_brokerArn :: Lens.Lens' CreateBrokerResponse (Prelude.Maybe Prelude.Text)+createBrokerResponse_brokerArn = Lens.lens (\CreateBrokerResponse' {brokerArn} -> brokerArn) (\s@CreateBrokerResponse' {} a -> s {brokerArn = a} :: CreateBrokerResponse)++-- | The unique ID that Amazon MQ generates for the broker.+createBrokerResponse_brokerId :: Lens.Lens' CreateBrokerResponse (Prelude.Maybe Prelude.Text)+createBrokerResponse_brokerId = Lens.lens (\CreateBrokerResponse' {brokerId} -> brokerId) (\s@CreateBrokerResponse' {} a -> s {brokerId = a} :: CreateBrokerResponse)++-- | The response's http status code.+createBrokerResponse_httpStatus :: Lens.Lens' CreateBrokerResponse Prelude.Int+createBrokerResponse_httpStatus = Lens.lens (\CreateBrokerResponse' {httpStatus} -> httpStatus) (\s@CreateBrokerResponse' {} a -> s {httpStatus = a} :: CreateBrokerResponse)++instance Prelude.NFData CreateBrokerResponse where+  rnf CreateBrokerResponse' {..} =+    Prelude.rnf brokerArn+      `Prelude.seq` Prelude.rnf brokerId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,320 @@+{-# 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.MQ.CreateConfiguration+-- 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 new configuration for the specified configuration name. Amazon+-- MQ uses the default configuration (the engine type and version).+module Amazonka.MQ.CreateConfiguration+  ( -- * Creating a Request+    CreateConfiguration (..),+    newCreateConfiguration,++    -- * Request Lenses+    createConfiguration_authenticationStrategy,+    createConfiguration_tags,+    createConfiguration_engineVersion,+    createConfiguration_engineType,+    createConfiguration_name,++    -- * Destructuring the Response+    CreateConfigurationResponse (..),+    newCreateConfigurationResponse,++    -- * Response Lenses+    createConfigurationResponse_arn,+    createConfigurationResponse_authenticationStrategy,+    createConfigurationResponse_created,+    createConfigurationResponse_id,+    createConfigurationResponse_latestRevision,+    createConfigurationResponse_name,+    createConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Creates a new configuration for the specified configuration name. Amazon+-- MQ uses the default configuration (the engine type and version).+--+-- /See:/ 'newCreateConfiguration' smart constructor.+data CreateConfiguration = CreateConfiguration'+  { -- | Optional. The authentication strategy associated with the configuration.+    -- The default is SIMPLE.+    authenticationStrategy :: Prelude.Maybe AuthenticationStrategy,+    -- | Create tags when creating the configuration.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | Required. The broker engine\'s version. For a list of supported engine+    -- versions, see+    -- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+    engineVersion :: Prelude.Text,+    -- | Required. The type of broker engine. Currently, Amazon MQ supports+    -- ACTIVEMQ and RABBITMQ.+    engineType :: EngineType,+    -- | Required. The name of the configuration. This value can contain only+    -- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+    -- ~). This value must be 1-150 characters long.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateConfiguration' with all optional fields 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:+--+-- 'authenticationStrategy', 'createConfiguration_authenticationStrategy' - Optional. The authentication strategy associated with the configuration.+-- The default is SIMPLE.+--+-- 'tags', 'createConfiguration_tags' - Create tags when creating the configuration.+--+-- 'engineVersion', 'createConfiguration_engineVersion' - Required. The broker engine\'s version. For a list of supported engine+-- versions, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+--+-- 'engineType', 'createConfiguration_engineType' - Required. The type of broker engine. Currently, Amazon MQ supports+-- ACTIVEMQ and RABBITMQ.+--+-- 'name', 'createConfiguration_name' - Required. The name of the configuration. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 1-150 characters long.+newCreateConfiguration ::+  -- | 'engineVersion'+  Prelude.Text ->+  -- | 'engineType'+  EngineType ->+  -- | 'name'+  Prelude.Text ->+  CreateConfiguration+newCreateConfiguration+  pEngineVersion_+  pEngineType_+  pName_ =+    CreateConfiguration'+      { authenticationStrategy =+          Prelude.Nothing,+        tags = Prelude.Nothing,+        engineVersion = pEngineVersion_,+        engineType = pEngineType_,+        name = pName_+      }++-- | Optional. The authentication strategy associated with the configuration.+-- The default is SIMPLE.+createConfiguration_authenticationStrategy :: Lens.Lens' CreateConfiguration (Prelude.Maybe AuthenticationStrategy)+createConfiguration_authenticationStrategy = Lens.lens (\CreateConfiguration' {authenticationStrategy} -> authenticationStrategy) (\s@CreateConfiguration' {} a -> s {authenticationStrategy = a} :: CreateConfiguration)++-- | Create tags when creating the configuration.+createConfiguration_tags :: Lens.Lens' CreateConfiguration (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createConfiguration_tags = Lens.lens (\CreateConfiguration' {tags} -> tags) (\s@CreateConfiguration' {} a -> s {tags = a} :: CreateConfiguration) Prelude.. Lens.mapping Lens.coerced++-- | Required. The broker engine\'s version. For a list of supported engine+-- versions, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+createConfiguration_engineVersion :: Lens.Lens' CreateConfiguration Prelude.Text+createConfiguration_engineVersion = Lens.lens (\CreateConfiguration' {engineVersion} -> engineVersion) (\s@CreateConfiguration' {} a -> s {engineVersion = a} :: CreateConfiguration)++-- | Required. The type of broker engine. Currently, Amazon MQ supports+-- ACTIVEMQ and RABBITMQ.+createConfiguration_engineType :: Lens.Lens' CreateConfiguration EngineType+createConfiguration_engineType = Lens.lens (\CreateConfiguration' {engineType} -> engineType) (\s@CreateConfiguration' {} a -> s {engineType = a} :: CreateConfiguration)++-- | Required. The name of the configuration. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 1-150 characters long.+createConfiguration_name :: Lens.Lens' CreateConfiguration Prelude.Text+createConfiguration_name = Lens.lens (\CreateConfiguration' {name} -> name) (\s@CreateConfiguration' {} a -> s {name = a} :: CreateConfiguration)++instance Core.AWSRequest CreateConfiguration where+  type+    AWSResponse CreateConfiguration =+      CreateConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateConfigurationResponse'+            Prelude.<$> (x Data..?> "arn")+            Prelude.<*> (x Data..?> "authenticationStrategy")+            Prelude.<*> (x Data..?> "created")+            Prelude.<*> (x Data..?> "id")+            Prelude.<*> (x Data..?> "latestRevision")+            Prelude.<*> (x Data..?> "name")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateConfiguration where+  hashWithSalt _salt CreateConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` authenticationStrategy+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` engineVersion+      `Prelude.hashWithSalt` engineType+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateConfiguration where+  rnf CreateConfiguration' {..} =+    Prelude.rnf authenticationStrategy+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf engineVersion+      `Prelude.seq` Prelude.rnf engineType+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateConfiguration where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateConfiguration where+  toJSON CreateConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("authenticationStrategy" Data..=)+              Prelude.<$> authenticationStrategy,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("engineVersion" Data..= engineVersion),+            Prelude.Just ("engineType" Data..= engineType),+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath CreateConfiguration where+  toPath = Prelude.const "/v1/configurations"++instance Data.ToQuery CreateConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateConfigurationResponse' smart constructor.+data CreateConfigurationResponse = CreateConfigurationResponse'+  { -- | Required. The Amazon Resource Name (ARN) of the configuration.+    arn :: Prelude.Maybe Prelude.Text,+    -- | Optional. The authentication strategy associated with the configuration.+    -- The default is SIMPLE.+    authenticationStrategy :: Prelude.Maybe AuthenticationStrategy,+    -- | Required. The date and time of the configuration.+    created :: Prelude.Maybe Data.ISO8601,+    -- | Required. The unique ID that Amazon MQ generates for the configuration.+    id :: Prelude.Maybe Prelude.Text,+    -- | The latest revision of the configuration.+    latestRevision :: Prelude.Maybe ConfigurationRevision,+    -- | Required. The name of the configuration. This value can contain only+    -- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+    -- ~). This value must be 1-150 characters long.+    name :: 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 'CreateConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'createConfigurationResponse_arn' - Required. The Amazon Resource Name (ARN) of the configuration.+--+-- 'authenticationStrategy', 'createConfigurationResponse_authenticationStrategy' - Optional. The authentication strategy associated with the configuration.+-- The default is SIMPLE.+--+-- 'created', 'createConfigurationResponse_created' - Required. The date and time of the configuration.+--+-- 'id', 'createConfigurationResponse_id' - Required. The unique ID that Amazon MQ generates for the configuration.+--+-- 'latestRevision', 'createConfigurationResponse_latestRevision' - The latest revision of the configuration.+--+-- 'name', 'createConfigurationResponse_name' - Required. The name of the configuration. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 1-150 characters long.+--+-- 'httpStatus', 'createConfigurationResponse_httpStatus' - The response's http status code.+newCreateConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateConfigurationResponse+newCreateConfigurationResponse pHttpStatus_ =+  CreateConfigurationResponse'+    { arn = Prelude.Nothing,+      authenticationStrategy = Prelude.Nothing,+      created = Prelude.Nothing,+      id = Prelude.Nothing,+      latestRevision = Prelude.Nothing,+      name = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Required. The Amazon Resource Name (ARN) of the configuration.+createConfigurationResponse_arn :: Lens.Lens' CreateConfigurationResponse (Prelude.Maybe Prelude.Text)+createConfigurationResponse_arn = Lens.lens (\CreateConfigurationResponse' {arn} -> arn) (\s@CreateConfigurationResponse' {} a -> s {arn = a} :: CreateConfigurationResponse)++-- | Optional. The authentication strategy associated with the configuration.+-- The default is SIMPLE.+createConfigurationResponse_authenticationStrategy :: Lens.Lens' CreateConfigurationResponse (Prelude.Maybe AuthenticationStrategy)+createConfigurationResponse_authenticationStrategy = Lens.lens (\CreateConfigurationResponse' {authenticationStrategy} -> authenticationStrategy) (\s@CreateConfigurationResponse' {} a -> s {authenticationStrategy = a} :: CreateConfigurationResponse)++-- | Required. The date and time of the configuration.+createConfigurationResponse_created :: Lens.Lens' CreateConfigurationResponse (Prelude.Maybe Prelude.UTCTime)+createConfigurationResponse_created = Lens.lens (\CreateConfigurationResponse' {created} -> created) (\s@CreateConfigurationResponse' {} a -> s {created = a} :: CreateConfigurationResponse) Prelude.. Lens.mapping Data._Time++-- | Required. The unique ID that Amazon MQ generates for the configuration.+createConfigurationResponse_id :: Lens.Lens' CreateConfigurationResponse (Prelude.Maybe Prelude.Text)+createConfigurationResponse_id = Lens.lens (\CreateConfigurationResponse' {id} -> id) (\s@CreateConfigurationResponse' {} a -> s {id = a} :: CreateConfigurationResponse)++-- | The latest revision of the configuration.+createConfigurationResponse_latestRevision :: Lens.Lens' CreateConfigurationResponse (Prelude.Maybe ConfigurationRevision)+createConfigurationResponse_latestRevision = Lens.lens (\CreateConfigurationResponse' {latestRevision} -> latestRevision) (\s@CreateConfigurationResponse' {} a -> s {latestRevision = a} :: CreateConfigurationResponse)++-- | Required. The name of the configuration. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 1-150 characters long.+createConfigurationResponse_name :: Lens.Lens' CreateConfigurationResponse (Prelude.Maybe Prelude.Text)+createConfigurationResponse_name = Lens.lens (\CreateConfigurationResponse' {name} -> name) (\s@CreateConfigurationResponse' {} a -> s {name = a} :: CreateConfigurationResponse)++-- | The response's http status code.+createConfigurationResponse_httpStatus :: Lens.Lens' CreateConfigurationResponse Prelude.Int+createConfigurationResponse_httpStatus = Lens.lens (\CreateConfigurationResponse' {httpStatus} -> httpStatus) (\s@CreateConfigurationResponse' {} a -> s {httpStatus = a} :: CreateConfigurationResponse)++instance Prelude.NFData CreateConfigurationResponse where+  rnf CreateConfigurationResponse' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf authenticationStrategy+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf latestRevision+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,145 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MQ.CreateTags+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Add a tag to a resource.+module Amazonka.MQ.CreateTags+  ( -- * Creating a Request+    CreateTags (..),+    newCreateTags,++    -- * Request Lenses+    createTags_tags,+    createTags_resourceArn,++    -- * Destructuring the Response+    CreateTagsResponse (..),+    newCreateTagsResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | A map of the key-value pairs for the resource tag.+--+-- /See:/ 'newCreateTags' smart constructor.+data CreateTags = CreateTags'+  { -- | The key-value pair for the resource tag.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the resource tag.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTags' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'createTags_tags' - The key-value pair for the resource tag.+--+-- 'resourceArn', 'createTags_resourceArn' - The Amazon Resource Name (ARN) of the resource tag.+newCreateTags ::+  -- | 'resourceArn'+  Prelude.Text ->+  CreateTags+newCreateTags pResourceArn_ =+  CreateTags'+    { tags = Prelude.Nothing,+      resourceArn = pResourceArn_+    }++-- | The key-value pair for the resource tag.+createTags_tags :: Lens.Lens' CreateTags (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createTags_tags = Lens.lens (\CreateTags' {tags} -> tags) (\s@CreateTags' {} a -> s {tags = a} :: CreateTags) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon Resource Name (ARN) of the resource tag.+createTags_resourceArn :: Lens.Lens' CreateTags Prelude.Text+createTags_resourceArn = Lens.lens (\CreateTags' {resourceArn} -> resourceArn) (\s@CreateTags' {} a -> s {resourceArn = a} :: CreateTags)++instance Core.AWSRequest CreateTags where+  type AWSResponse CreateTags = CreateTagsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response = Response.receiveNull CreateTagsResponse'++instance Prelude.Hashable CreateTags where+  hashWithSalt _salt CreateTags' {..} =+    _salt+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData CreateTags where+  rnf CreateTags' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf resourceArn++instance Data.ToHeaders CreateTags where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateTags where+  toJSON CreateTags' {..} =+    Data.object+      ( Prelude.catMaybes+          [("tags" Data..=) Prelude.<$> tags]+      )++instance Data.ToPath CreateTags where+  toPath CreateTags' {..} =+    Prelude.mconcat+      ["/v1/tags/", Data.toBS resourceArn]++instance Data.ToQuery CreateTags where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateTagsResponse' smart constructor.+data CreateTagsResponse = CreateTagsResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newCreateTagsResponse ::+  CreateTagsResponse+newCreateTagsResponse = CreateTagsResponse'++instance Prelude.NFData CreateTagsResponse where+  rnf _ = ()

@@ -0,0 +1,234 @@+{-# 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.MQ.CreateUser+-- 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 ActiveMQ user.+module Amazonka.MQ.CreateUser+  ( -- * Creating a Request+    CreateUser (..),+    newCreateUser,++    -- * Request Lenses+    createUser_consoleAccess,+    createUser_groups,+    createUser_username,+    createUser_brokerId,+    createUser_password,++    -- * Destructuring the Response+    CreateUserResponse (..),+    newCreateUserResponse,++    -- * Response Lenses+    createUserResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Creates a new ActiveMQ user.+--+-- /See:/ 'newCreateUser' smart constructor.+data CreateUser = CreateUser'+  { -- | Enables access to the ActiveMQ Web Console for the ActiveMQ user.+    consoleAccess :: Prelude.Maybe Prelude.Bool,+    -- | The list of groups (20 maximum) to which the ActiveMQ user belongs. This+    -- value can contain only alphanumeric characters, dashes, periods,+    -- underscores, and tildes (- . _ ~). This value must be 2-100 characters+    -- long.+    groups :: Prelude.Maybe [Prelude.Text],+    -- | The username of the ActiveMQ user. This value can contain only+    -- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+    -- ~). This value must be 2-100 characters long.+    username :: Prelude.Text,+    -- | The unique ID that Amazon MQ generates for the broker.+    brokerId :: Prelude.Text,+    -- | Required. The password of the user. This value must be at least 12+    -- characters long, must contain at least 4 unique characters, and must not+    -- contain commas, colons, or equal signs (,:=).+    password :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateUser' with all optional fields 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:+--+-- 'consoleAccess', 'createUser_consoleAccess' - Enables access to the ActiveMQ Web Console for the ActiveMQ user.+--+-- 'groups', 'createUser_groups' - The list of groups (20 maximum) to which the ActiveMQ user belongs. This+-- value can contain only alphanumeric characters, dashes, periods,+-- underscores, and tildes (- . _ ~). This value must be 2-100 characters+-- long.+--+-- 'username', 'createUser_username' - The username of the ActiveMQ user. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 2-100 characters long.+--+-- 'brokerId', 'createUser_brokerId' - The unique ID that Amazon MQ generates for the broker.+--+-- 'password', 'createUser_password' - Required. The password of the user. This value must be at least 12+-- characters long, must contain at least 4 unique characters, and must not+-- contain commas, colons, or equal signs (,:=).+newCreateUser ::+  -- | 'username'+  Prelude.Text ->+  -- | 'brokerId'+  Prelude.Text ->+  -- | 'password'+  Prelude.Text ->+  CreateUser+newCreateUser pUsername_ pBrokerId_ pPassword_ =+  CreateUser'+    { consoleAccess = Prelude.Nothing,+      groups = Prelude.Nothing,+      username = pUsername_,+      brokerId = pBrokerId_,+      password = pPassword_+    }++-- | Enables access to the ActiveMQ Web Console for the ActiveMQ user.+createUser_consoleAccess :: Lens.Lens' CreateUser (Prelude.Maybe Prelude.Bool)+createUser_consoleAccess = Lens.lens (\CreateUser' {consoleAccess} -> consoleAccess) (\s@CreateUser' {} a -> s {consoleAccess = a} :: CreateUser)++-- | The list of groups (20 maximum) to which the ActiveMQ user belongs. This+-- value can contain only alphanumeric characters, dashes, periods,+-- underscores, and tildes (- . _ ~). This value must be 2-100 characters+-- long.+createUser_groups :: Lens.Lens' CreateUser (Prelude.Maybe [Prelude.Text])+createUser_groups = Lens.lens (\CreateUser' {groups} -> groups) (\s@CreateUser' {} a -> s {groups = a} :: CreateUser) Prelude.. Lens.mapping Lens.coerced++-- | The username of the ActiveMQ user. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 2-100 characters long.+createUser_username :: Lens.Lens' CreateUser Prelude.Text+createUser_username = Lens.lens (\CreateUser' {username} -> username) (\s@CreateUser' {} a -> s {username = a} :: CreateUser)++-- | The unique ID that Amazon MQ generates for the broker.+createUser_brokerId :: Lens.Lens' CreateUser Prelude.Text+createUser_brokerId = Lens.lens (\CreateUser' {brokerId} -> brokerId) (\s@CreateUser' {} a -> s {brokerId = a} :: CreateUser)++-- | Required. The password of the user. This value must be at least 12+-- characters long, must contain at least 4 unique characters, and must not+-- contain commas, colons, or equal signs (,:=).+createUser_password :: Lens.Lens' CreateUser Prelude.Text+createUser_password = Lens.lens (\CreateUser' {password} -> password) (\s@CreateUser' {} a -> s {password = a} :: CreateUser)++instance Core.AWSRequest CreateUser where+  type AWSResponse CreateUser = CreateUserResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CreateUserResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateUser where+  hashWithSalt _salt CreateUser' {..} =+    _salt+      `Prelude.hashWithSalt` consoleAccess+      `Prelude.hashWithSalt` groups+      `Prelude.hashWithSalt` username+      `Prelude.hashWithSalt` brokerId+      `Prelude.hashWithSalt` password++instance Prelude.NFData CreateUser where+  rnf CreateUser' {..} =+    Prelude.rnf consoleAccess+      `Prelude.seq` Prelude.rnf groups+      `Prelude.seq` Prelude.rnf username+      `Prelude.seq` Prelude.rnf brokerId+      `Prelude.seq` Prelude.rnf password++instance Data.ToHeaders CreateUser where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateUser where+  toJSON CreateUser' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("consoleAccess" Data..=) Prelude.<$> consoleAccess,+            ("groups" Data..=) Prelude.<$> groups,+            Prelude.Just ("password" Data..= password)+          ]+      )++instance Data.ToPath CreateUser where+  toPath CreateUser' {..} =+    Prelude.mconcat+      [ "/v1/brokers/",+        Data.toBS brokerId,+        "/users/",+        Data.toBS username+      ]++instance Data.ToQuery CreateUser where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateUserResponse' smart constructor.+data CreateUserResponse = CreateUserResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateUserResponse' with all optional fields 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', 'createUserResponse_httpStatus' - The response's http status code.+newCreateUserResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateUserResponse+newCreateUserResponse pHttpStatus_ =+  CreateUserResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+createUserResponse_httpStatus :: Lens.Lens' CreateUserResponse Prelude.Int+createUserResponse_httpStatus = Lens.lens (\CreateUserResponse' {httpStatus} -> httpStatus) (\s@CreateUserResponse' {} a -> s {httpStatus = a} :: CreateUserResponse)++instance Prelude.NFData CreateUserResponse where+  rnf CreateUserResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,156 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MQ.DeleteBroker+-- 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 broker. Note: This API is asynchronous.+module Amazonka.MQ.DeleteBroker+  ( -- * Creating a Request+    DeleteBroker (..),+    newDeleteBroker,++    -- * Request Lenses+    deleteBroker_brokerId,++    -- * Destructuring the Response+    DeleteBrokerResponse (..),+    newDeleteBrokerResponse,++    -- * Response Lenses+    deleteBrokerResponse_brokerId,+    deleteBrokerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteBroker' smart constructor.+data DeleteBroker = DeleteBroker'+  { -- | The unique ID that Amazon MQ generates for the broker.+    brokerId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBroker' with all optional fields 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:+--+-- 'brokerId', 'deleteBroker_brokerId' - The unique ID that Amazon MQ generates for the broker.+newDeleteBroker ::+  -- | 'brokerId'+  Prelude.Text ->+  DeleteBroker+newDeleteBroker pBrokerId_ =+  DeleteBroker' {brokerId = pBrokerId_}++-- | The unique ID that Amazon MQ generates for the broker.+deleteBroker_brokerId :: Lens.Lens' DeleteBroker Prelude.Text+deleteBroker_brokerId = Lens.lens (\DeleteBroker' {brokerId} -> brokerId) (\s@DeleteBroker' {} a -> s {brokerId = a} :: DeleteBroker)++instance Core.AWSRequest DeleteBroker where+  type AWSResponse DeleteBroker = DeleteBrokerResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteBrokerResponse'+            Prelude.<$> (x Data..?> "brokerId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteBroker where+  hashWithSalt _salt DeleteBroker' {..} =+    _salt `Prelude.hashWithSalt` brokerId++instance Prelude.NFData DeleteBroker where+  rnf DeleteBroker' {..} = Prelude.rnf brokerId++instance Data.ToHeaders DeleteBroker where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteBroker where+  toPath DeleteBroker' {..} =+    Prelude.mconcat+      ["/v1/brokers/", Data.toBS brokerId]++instance Data.ToQuery DeleteBroker where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteBrokerResponse' smart constructor.+data DeleteBrokerResponse = DeleteBrokerResponse'+  { -- | The unique ID that Amazon MQ generates for the broker.+    brokerId :: 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 'DeleteBrokerResponse' with all optional fields 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:+--+-- 'brokerId', 'deleteBrokerResponse_brokerId' - The unique ID that Amazon MQ generates for the broker.+--+-- 'httpStatus', 'deleteBrokerResponse_httpStatus' - The response's http status code.+newDeleteBrokerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteBrokerResponse+newDeleteBrokerResponse pHttpStatus_ =+  DeleteBrokerResponse'+    { brokerId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The unique ID that Amazon MQ generates for the broker.+deleteBrokerResponse_brokerId :: Lens.Lens' DeleteBrokerResponse (Prelude.Maybe Prelude.Text)+deleteBrokerResponse_brokerId = Lens.lens (\DeleteBrokerResponse' {brokerId} -> brokerId) (\s@DeleteBrokerResponse' {} a -> s {brokerId = a} :: DeleteBrokerResponse)++-- | The response's http status code.+deleteBrokerResponse_httpStatus :: Lens.Lens' DeleteBrokerResponse Prelude.Int+deleteBrokerResponse_httpStatus = Lens.lens (\DeleteBrokerResponse' {httpStatus} -> httpStatus) (\s@DeleteBrokerResponse' {} a -> s {httpStatus = a} :: DeleteBrokerResponse)++instance Prelude.NFData DeleteBrokerResponse where+  rnf DeleteBrokerResponse' {..} =+    Prelude.rnf brokerId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,138 @@+{-# 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.MQ.DeleteTags+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes a tag from a resource.+module Amazonka.MQ.DeleteTags+  ( -- * Creating a Request+    DeleteTags (..),+    newDeleteTags,++    -- * Request Lenses+    deleteTags_tagKeys,+    deleteTags_resourceArn,++    -- * Destructuring the Response+    DeleteTagsResponse (..),+    newDeleteTagsResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteTags' smart constructor.+data DeleteTags = DeleteTags'+  { -- | An array of tag keys to delete+    tagKeys :: [Prelude.Text],+    -- | The Amazon Resource Name (ARN) of the resource tag.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTags' with all optional fields 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:+--+-- 'tagKeys', 'deleteTags_tagKeys' - An array of tag keys to delete+--+-- 'resourceArn', 'deleteTags_resourceArn' - The Amazon Resource Name (ARN) of the resource tag.+newDeleteTags ::+  -- | 'resourceArn'+  Prelude.Text ->+  DeleteTags+newDeleteTags pResourceArn_ =+  DeleteTags'+    { tagKeys = Prelude.mempty,+      resourceArn = pResourceArn_+    }++-- | An array of tag keys to delete+deleteTags_tagKeys :: Lens.Lens' DeleteTags [Prelude.Text]+deleteTags_tagKeys = Lens.lens (\DeleteTags' {tagKeys} -> tagKeys) (\s@DeleteTags' {} a -> s {tagKeys = a} :: DeleteTags) Prelude.. Lens.coerced++-- | The Amazon Resource Name (ARN) of the resource tag.+deleteTags_resourceArn :: Lens.Lens' DeleteTags Prelude.Text+deleteTags_resourceArn = Lens.lens (\DeleteTags' {resourceArn} -> resourceArn) (\s@DeleteTags' {} a -> s {resourceArn = a} :: DeleteTags)++instance Core.AWSRequest DeleteTags where+  type AWSResponse DeleteTags = DeleteTagsResponse+  request overrides =+    Request.delete (overrides defaultService)+  response = Response.receiveNull DeleteTagsResponse'++instance Prelude.Hashable DeleteTags where+  hashWithSalt _salt DeleteTags' {..} =+    _salt+      `Prelude.hashWithSalt` tagKeys+      `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData DeleteTags where+  rnf DeleteTags' {..} =+    Prelude.rnf tagKeys+      `Prelude.seq` Prelude.rnf resourceArn++instance Data.ToHeaders DeleteTags where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteTags where+  toPath DeleteTags' {..} =+    Prelude.mconcat+      ["/v1/tags/", Data.toBS resourceArn]++instance Data.ToQuery DeleteTags where+  toQuery DeleteTags' {..} =+    Prelude.mconcat+      ["tagKeys" Data.=: Data.toQueryList "member" tagKeys]++-- | /See:/ 'newDeleteTagsResponse' smart constructor.+data DeleteTagsResponse = DeleteTagsResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteTagsResponse ::+  DeleteTagsResponse+newDeleteTagsResponse = DeleteTagsResponse'++instance Prelude.NFData DeleteTagsResponse where+  rnf _ = ()

@@ -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.MQ.DeleteUser+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an ActiveMQ user.+module Amazonka.MQ.DeleteUser+  ( -- * Creating a Request+    DeleteUser (..),+    newDeleteUser,++    -- * Request Lenses+    deleteUser_username,+    deleteUser_brokerId,++    -- * Destructuring the Response+    DeleteUserResponse (..),+    newDeleteUserResponse,++    -- * Response Lenses+    deleteUserResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteUser' smart constructor.+data DeleteUser = DeleteUser'+  { -- | The username of the ActiveMQ user. This value can contain only+    -- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+    -- ~). This value must be 2-100 characters long.+    username :: Prelude.Text,+    -- | The unique ID that Amazon MQ generates for the broker.+    brokerId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteUser' with all optional fields 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:+--+-- 'username', 'deleteUser_username' - The username of the ActiveMQ user. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 2-100 characters long.+--+-- 'brokerId', 'deleteUser_brokerId' - The unique ID that Amazon MQ generates for the broker.+newDeleteUser ::+  -- | 'username'+  Prelude.Text ->+  -- | 'brokerId'+  Prelude.Text ->+  DeleteUser+newDeleteUser pUsername_ pBrokerId_ =+  DeleteUser'+    { username = pUsername_,+      brokerId = pBrokerId_+    }++-- | The username of the ActiveMQ user. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 2-100 characters long.+deleteUser_username :: Lens.Lens' DeleteUser Prelude.Text+deleteUser_username = Lens.lens (\DeleteUser' {username} -> username) (\s@DeleteUser' {} a -> s {username = a} :: DeleteUser)++-- | The unique ID that Amazon MQ generates for the broker.+deleteUser_brokerId :: Lens.Lens' DeleteUser Prelude.Text+deleteUser_brokerId = Lens.lens (\DeleteUser' {brokerId} -> brokerId) (\s@DeleteUser' {} a -> s {brokerId = a} :: DeleteUser)++instance Core.AWSRequest DeleteUser where+  type AWSResponse DeleteUser = DeleteUserResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteUserResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteUser where+  hashWithSalt _salt DeleteUser' {..} =+    _salt+      `Prelude.hashWithSalt` username+      `Prelude.hashWithSalt` brokerId++instance Prelude.NFData DeleteUser where+  rnf DeleteUser' {..} =+    Prelude.rnf username+      `Prelude.seq` Prelude.rnf brokerId++instance Data.ToHeaders DeleteUser where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteUser where+  toPath DeleteUser' {..} =+    Prelude.mconcat+      [ "/v1/brokers/",+        Data.toBS brokerId,+        "/users/",+        Data.toBS username+      ]++instance Data.ToQuery DeleteUser where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteUserResponse' smart constructor.+data DeleteUserResponse = DeleteUserResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteUserResponse' with all optional fields 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', 'deleteUserResponse_httpStatus' - The response's http status code.+newDeleteUserResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteUserResponse+newDeleteUserResponse pHttpStatus_ =+  DeleteUserResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteUserResponse_httpStatus :: Lens.Lens' DeleteUserResponse Prelude.Int+deleteUserResponse_httpStatus = Lens.lens (\DeleteUserResponse' {httpStatus} -> httpStatus) (\s@DeleteUserResponse' {} a -> s {httpStatus = a} :: DeleteUserResponse)++instance Prelude.NFData DeleteUserResponse where+  rnf DeleteUserResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,580 @@+{-# 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.MQ.DescribeBroker+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the specified broker.+module Amazonka.MQ.DescribeBroker+  ( -- * Creating a Request+    DescribeBroker (..),+    newDescribeBroker,++    -- * Request Lenses+    describeBroker_brokerId,++    -- * Destructuring the Response+    DescribeBrokerResponse (..),+    newDescribeBrokerResponse,++    -- * Response Lenses+    describeBrokerResponse_actionsRequired,+    describeBrokerResponse_authenticationStrategy,+    describeBrokerResponse_autoMinorVersionUpgrade,+    describeBrokerResponse_brokerArn,+    describeBrokerResponse_brokerId,+    describeBrokerResponse_brokerInstances,+    describeBrokerResponse_brokerName,+    describeBrokerResponse_brokerState,+    describeBrokerResponse_configurations,+    describeBrokerResponse_created,+    describeBrokerResponse_deploymentMode,+    describeBrokerResponse_encryptionOptions,+    describeBrokerResponse_engineType,+    describeBrokerResponse_engineVersion,+    describeBrokerResponse_hostInstanceType,+    describeBrokerResponse_ldapServerMetadata,+    describeBrokerResponse_logs,+    describeBrokerResponse_maintenanceWindowStartTime,+    describeBrokerResponse_pendingAuthenticationStrategy,+    describeBrokerResponse_pendingEngineVersion,+    describeBrokerResponse_pendingHostInstanceType,+    describeBrokerResponse_pendingLdapServerMetadata,+    describeBrokerResponse_pendingSecurityGroups,+    describeBrokerResponse_publiclyAccessible,+    describeBrokerResponse_securityGroups,+    describeBrokerResponse_storageType,+    describeBrokerResponse_subnetIds,+    describeBrokerResponse_tags,+    describeBrokerResponse_users,+    describeBrokerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBroker' smart constructor.+data DescribeBroker = DescribeBroker'+  { -- | The unique ID that Amazon MQ generates for the broker.+    brokerId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBroker' with all optional fields 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:+--+-- 'brokerId', 'describeBroker_brokerId' - The unique ID that Amazon MQ generates for the broker.+newDescribeBroker ::+  -- | 'brokerId'+  Prelude.Text ->+  DescribeBroker+newDescribeBroker pBrokerId_ =+  DescribeBroker' {brokerId = pBrokerId_}++-- | The unique ID that Amazon MQ generates for the broker.+describeBroker_brokerId :: Lens.Lens' DescribeBroker Prelude.Text+describeBroker_brokerId = Lens.lens (\DescribeBroker' {brokerId} -> brokerId) (\s@DescribeBroker' {} a -> s {brokerId = a} :: DescribeBroker)++instance Core.AWSRequest DescribeBroker where+  type+    AWSResponse DescribeBroker =+      DescribeBrokerResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBrokerResponse'+            Prelude.<$> ( x+                            Data..?> "actionsRequired"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "authenticationStrategy")+            Prelude.<*> (x Data..?> "autoMinorVersionUpgrade")+            Prelude.<*> (x Data..?> "brokerArn")+            Prelude.<*> (x Data..?> "brokerId")+            Prelude.<*> ( x+                            Data..?> "brokerInstances"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "brokerName")+            Prelude.<*> (x Data..?> "brokerState")+            Prelude.<*> (x Data..?> "configurations")+            Prelude.<*> (x Data..?> "created")+            Prelude.<*> (x Data..?> "deploymentMode")+            Prelude.<*> (x Data..?> "encryptionOptions")+            Prelude.<*> (x Data..?> "engineType")+            Prelude.<*> (x Data..?> "engineVersion")+            Prelude.<*> (x Data..?> "hostInstanceType")+            Prelude.<*> (x Data..?> "ldapServerMetadata")+            Prelude.<*> (x Data..?> "logs")+            Prelude.<*> (x Data..?> "maintenanceWindowStartTime")+            Prelude.<*> (x Data..?> "pendingAuthenticationStrategy")+            Prelude.<*> (x Data..?> "pendingEngineVersion")+            Prelude.<*> (x Data..?> "pendingHostInstanceType")+            Prelude.<*> (x Data..?> "pendingLdapServerMetadata")+            Prelude.<*> ( x+                            Data..?> "pendingSecurityGroups"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "publiclyAccessible")+            Prelude.<*> (x Data..?> "securityGroups" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "storageType")+            Prelude.<*> (x Data..?> "subnetIds" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "users" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeBroker where+  hashWithSalt _salt DescribeBroker' {..} =+    _salt `Prelude.hashWithSalt` brokerId++instance Prelude.NFData DescribeBroker where+  rnf DescribeBroker' {..} = Prelude.rnf brokerId++instance Data.ToHeaders DescribeBroker where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeBroker where+  toPath DescribeBroker' {..} =+    Prelude.mconcat+      ["/v1/brokers/", Data.toBS brokerId]++instance Data.ToQuery DescribeBroker where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBrokerResponse' smart constructor.+data DescribeBrokerResponse = DescribeBrokerResponse'+  { -- | A list of actions required for a broker.+    actionsRequired :: Prelude.Maybe [ActionRequired],+    -- | The authentication strategy used to secure the broker. The default is+    -- SIMPLE.+    authenticationStrategy :: Prelude.Maybe AuthenticationStrategy,+    -- | Enables automatic upgrades to new minor versions for brokers, as new+    -- versions are released and supported by Amazon MQ. Automatic upgrades+    -- occur during the scheduled maintenance window of the broker or after a+    -- manual broker reboot.+    autoMinorVersionUpgrade :: Prelude.Maybe Prelude.Bool,+    -- | The broker\'s Amazon Resource Name (ARN).+    brokerArn :: Prelude.Maybe Prelude.Text,+    -- | The unique ID that Amazon MQ generates for the broker.+    brokerId :: Prelude.Maybe Prelude.Text,+    -- | A list of information about allocated brokers.+    brokerInstances :: Prelude.Maybe [BrokerInstance],+    -- | The broker\'s name. This value must be unique in your AWS account, 1-50+    -- characters long, must contain only letters, numbers, dashes, and+    -- underscores, and must not contain white spaces, brackets, wildcard+    -- characters, or special characters.+    brokerName :: Prelude.Maybe Prelude.Text,+    -- | The broker\'s status.+    brokerState :: Prelude.Maybe BrokerState,+    -- | The list of all revisions for the specified configuration.+    configurations :: Prelude.Maybe Configurations,+    -- | The time when the broker was created.+    created :: Prelude.Maybe Data.ISO8601,+    -- | The broker\'s deployment mode.+    deploymentMode :: Prelude.Maybe DeploymentMode,+    -- | Encryption options for the broker. Does not apply to RabbitMQ brokers.+    encryptionOptions :: Prelude.Maybe EncryptionOptions,+    -- | The type of broker engine. Currently, Amazon MQ supports ACTIVEMQ and+    -- RABBITMQ.+    engineType :: Prelude.Maybe EngineType,+    -- | The broker engine\'s version. For a list of supported engine versions,+    -- see+    -- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+    engineVersion :: Prelude.Maybe Prelude.Text,+    -- | The broker\'s instance type.+    hostInstanceType :: Prelude.Maybe Prelude.Text,+    -- | The metadata of the LDAP server used to authenticate and authorize+    -- connections to the broker.+    ldapServerMetadata :: Prelude.Maybe LdapServerMetadataOutput,+    -- | The list of information about logs currently enabled and pending to be+    -- deployed for the specified broker.+    logs :: Prelude.Maybe LogsSummary,+    -- | The parameters that determine the WeeklyStartTime.+    maintenanceWindowStartTime :: Prelude.Maybe WeeklyStartTime,+    -- | The authentication strategy that will be applied when the broker is+    -- rebooted. The default is SIMPLE.+    pendingAuthenticationStrategy :: Prelude.Maybe AuthenticationStrategy,+    -- | The broker engine version to upgrade to. For a list of supported engine+    -- versions, see+    -- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+    pendingEngineVersion :: Prelude.Maybe Prelude.Text,+    -- | The broker\'s host instance type to upgrade to. For a list of supported+    -- instance types, see+    -- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker.html#broker-instance-types Broker instance types>.+    pendingHostInstanceType :: Prelude.Maybe Prelude.Text,+    -- | The metadata of the LDAP server that will be used to authenticate and+    -- authorize connections to the broker after it is rebooted.+    pendingLdapServerMetadata :: Prelude.Maybe LdapServerMetadataOutput,+    -- | The list of pending security groups to authorize connections to brokers.+    pendingSecurityGroups :: Prelude.Maybe [Prelude.Text],+    -- | Enables connections from applications outside of the VPC that hosts the+    -- broker\'s subnets.+    publiclyAccessible :: Prelude.Maybe Prelude.Bool,+    -- | The list of rules (1 minimum, 125 maximum) that authorize connections to+    -- brokers.+    securityGroups :: Prelude.Maybe [Prelude.Text],+    -- | The broker\'s storage type.+    storageType :: Prelude.Maybe BrokerStorageType,+    -- | The list of groups that define which subnets and IP ranges the broker+    -- can use from different Availability Zones.+    subnetIds :: Prelude.Maybe [Prelude.Text],+    -- | The list of all tags associated with this broker.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The list of all broker usernames for the specified broker.+    users :: Prelude.Maybe [UserSummary],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBrokerResponse' with all optional fields 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:+--+-- 'actionsRequired', 'describeBrokerResponse_actionsRequired' - A list of actions required for a broker.+--+-- 'authenticationStrategy', 'describeBrokerResponse_authenticationStrategy' - The authentication strategy used to secure the broker. The default is+-- SIMPLE.+--+-- 'autoMinorVersionUpgrade', 'describeBrokerResponse_autoMinorVersionUpgrade' - Enables automatic upgrades to new minor versions for brokers, as new+-- versions are released and supported by Amazon MQ. Automatic upgrades+-- occur during the scheduled maintenance window of the broker or after a+-- manual broker reboot.+--+-- 'brokerArn', 'describeBrokerResponse_brokerArn' - The broker\'s Amazon Resource Name (ARN).+--+-- 'brokerId', 'describeBrokerResponse_brokerId' - The unique ID that Amazon MQ generates for the broker.+--+-- 'brokerInstances', 'describeBrokerResponse_brokerInstances' - A list of information about allocated brokers.+--+-- 'brokerName', 'describeBrokerResponse_brokerName' - The broker\'s name. This value must be unique in your AWS account, 1-50+-- characters long, must contain only letters, numbers, dashes, and+-- underscores, and must not contain white spaces, brackets, wildcard+-- characters, or special characters.+--+-- 'brokerState', 'describeBrokerResponse_brokerState' - The broker\'s status.+--+-- 'configurations', 'describeBrokerResponse_configurations' - The list of all revisions for the specified configuration.+--+-- 'created', 'describeBrokerResponse_created' - The time when the broker was created.+--+-- 'deploymentMode', 'describeBrokerResponse_deploymentMode' - The broker\'s deployment mode.+--+-- 'encryptionOptions', 'describeBrokerResponse_encryptionOptions' - Encryption options for the broker. Does not apply to RabbitMQ brokers.+--+-- 'engineType', 'describeBrokerResponse_engineType' - The type of broker engine. Currently, Amazon MQ supports ACTIVEMQ and+-- RABBITMQ.+--+-- 'engineVersion', 'describeBrokerResponse_engineVersion' - The broker engine\'s version. For a list of supported engine versions,+-- see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+--+-- 'hostInstanceType', 'describeBrokerResponse_hostInstanceType' - The broker\'s instance type.+--+-- 'ldapServerMetadata', 'describeBrokerResponse_ldapServerMetadata' - The metadata of the LDAP server used to authenticate and authorize+-- connections to the broker.+--+-- 'logs', 'describeBrokerResponse_logs' - The list of information about logs currently enabled and pending to be+-- deployed for the specified broker.+--+-- 'maintenanceWindowStartTime', 'describeBrokerResponse_maintenanceWindowStartTime' - The parameters that determine the WeeklyStartTime.+--+-- 'pendingAuthenticationStrategy', 'describeBrokerResponse_pendingAuthenticationStrategy' - The authentication strategy that will be applied when the broker is+-- rebooted. The default is SIMPLE.+--+-- 'pendingEngineVersion', 'describeBrokerResponse_pendingEngineVersion' - The broker engine version to upgrade to. For a list of supported engine+-- versions, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+--+-- 'pendingHostInstanceType', 'describeBrokerResponse_pendingHostInstanceType' - The broker\'s host instance type to upgrade to. For a list of supported+-- instance types, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker.html#broker-instance-types Broker instance types>.+--+-- 'pendingLdapServerMetadata', 'describeBrokerResponse_pendingLdapServerMetadata' - The metadata of the LDAP server that will be used to authenticate and+-- authorize connections to the broker after it is rebooted.+--+-- 'pendingSecurityGroups', 'describeBrokerResponse_pendingSecurityGroups' - The list of pending security groups to authorize connections to brokers.+--+-- 'publiclyAccessible', 'describeBrokerResponse_publiclyAccessible' - Enables connections from applications outside of the VPC that hosts the+-- broker\'s subnets.+--+-- 'securityGroups', 'describeBrokerResponse_securityGroups' - The list of rules (1 minimum, 125 maximum) that authorize connections to+-- brokers.+--+-- 'storageType', 'describeBrokerResponse_storageType' - The broker\'s storage type.+--+-- 'subnetIds', 'describeBrokerResponse_subnetIds' - The list of groups that define which subnets and IP ranges the broker+-- can use from different Availability Zones.+--+-- 'tags', 'describeBrokerResponse_tags' - The list of all tags associated with this broker.+--+-- 'users', 'describeBrokerResponse_users' - The list of all broker usernames for the specified broker.+--+-- 'httpStatus', 'describeBrokerResponse_httpStatus' - The response's http status code.+newDescribeBrokerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBrokerResponse+newDescribeBrokerResponse pHttpStatus_ =+  DescribeBrokerResponse'+    { actionsRequired =+        Prelude.Nothing,+      authenticationStrategy = Prelude.Nothing,+      autoMinorVersionUpgrade = Prelude.Nothing,+      brokerArn = Prelude.Nothing,+      brokerId = Prelude.Nothing,+      brokerInstances = Prelude.Nothing,+      brokerName = Prelude.Nothing,+      brokerState = Prelude.Nothing,+      configurations = Prelude.Nothing,+      created = Prelude.Nothing,+      deploymentMode = Prelude.Nothing,+      encryptionOptions = Prelude.Nothing,+      engineType = Prelude.Nothing,+      engineVersion = Prelude.Nothing,+      hostInstanceType = Prelude.Nothing,+      ldapServerMetadata = Prelude.Nothing,+      logs = Prelude.Nothing,+      maintenanceWindowStartTime = Prelude.Nothing,+      pendingAuthenticationStrategy = Prelude.Nothing,+      pendingEngineVersion = Prelude.Nothing,+      pendingHostInstanceType = Prelude.Nothing,+      pendingLdapServerMetadata = Prelude.Nothing,+      pendingSecurityGroups = Prelude.Nothing,+      publiclyAccessible = Prelude.Nothing,+      securityGroups = Prelude.Nothing,+      storageType = Prelude.Nothing,+      subnetIds = Prelude.Nothing,+      tags = Prelude.Nothing,+      users = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of actions required for a broker.+describeBrokerResponse_actionsRequired :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe [ActionRequired])+describeBrokerResponse_actionsRequired = Lens.lens (\DescribeBrokerResponse' {actionsRequired} -> actionsRequired) (\s@DescribeBrokerResponse' {} a -> s {actionsRequired = a} :: DescribeBrokerResponse) Prelude.. Lens.mapping Lens.coerced++-- | The authentication strategy used to secure the broker. The default is+-- SIMPLE.+describeBrokerResponse_authenticationStrategy :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe AuthenticationStrategy)+describeBrokerResponse_authenticationStrategy = Lens.lens (\DescribeBrokerResponse' {authenticationStrategy} -> authenticationStrategy) (\s@DescribeBrokerResponse' {} a -> s {authenticationStrategy = a} :: DescribeBrokerResponse)++-- | Enables automatic upgrades to new minor versions for brokers, as new+-- versions are released and supported by Amazon MQ. Automatic upgrades+-- occur during the scheduled maintenance window of the broker or after a+-- manual broker reboot.+describeBrokerResponse_autoMinorVersionUpgrade :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Bool)+describeBrokerResponse_autoMinorVersionUpgrade = Lens.lens (\DescribeBrokerResponse' {autoMinorVersionUpgrade} -> autoMinorVersionUpgrade) (\s@DescribeBrokerResponse' {} a -> s {autoMinorVersionUpgrade = a} :: DescribeBrokerResponse)++-- | The broker\'s Amazon Resource Name (ARN).+describeBrokerResponse_brokerArn :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Text)+describeBrokerResponse_brokerArn = Lens.lens (\DescribeBrokerResponse' {brokerArn} -> brokerArn) (\s@DescribeBrokerResponse' {} a -> s {brokerArn = a} :: DescribeBrokerResponse)++-- | The unique ID that Amazon MQ generates for the broker.+describeBrokerResponse_brokerId :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Text)+describeBrokerResponse_brokerId = Lens.lens (\DescribeBrokerResponse' {brokerId} -> brokerId) (\s@DescribeBrokerResponse' {} a -> s {brokerId = a} :: DescribeBrokerResponse)++-- | A list of information about allocated brokers.+describeBrokerResponse_brokerInstances :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe [BrokerInstance])+describeBrokerResponse_brokerInstances = Lens.lens (\DescribeBrokerResponse' {brokerInstances} -> brokerInstances) (\s@DescribeBrokerResponse' {} a -> s {brokerInstances = a} :: DescribeBrokerResponse) Prelude.. Lens.mapping Lens.coerced++-- | The broker\'s name. This value must be unique in your AWS account, 1-50+-- characters long, must contain only letters, numbers, dashes, and+-- underscores, and must not contain white spaces, brackets, wildcard+-- characters, or special characters.+describeBrokerResponse_brokerName :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Text)+describeBrokerResponse_brokerName = Lens.lens (\DescribeBrokerResponse' {brokerName} -> brokerName) (\s@DescribeBrokerResponse' {} a -> s {brokerName = a} :: DescribeBrokerResponse)++-- | The broker\'s status.+describeBrokerResponse_brokerState :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe BrokerState)+describeBrokerResponse_brokerState = Lens.lens (\DescribeBrokerResponse' {brokerState} -> brokerState) (\s@DescribeBrokerResponse' {} a -> s {brokerState = a} :: DescribeBrokerResponse)++-- | The list of all revisions for the specified configuration.+describeBrokerResponse_configurations :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Configurations)+describeBrokerResponse_configurations = Lens.lens (\DescribeBrokerResponse' {configurations} -> configurations) (\s@DescribeBrokerResponse' {} a -> s {configurations = a} :: DescribeBrokerResponse)++-- | The time when the broker was created.+describeBrokerResponse_created :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.UTCTime)+describeBrokerResponse_created = Lens.lens (\DescribeBrokerResponse' {created} -> created) (\s@DescribeBrokerResponse' {} a -> s {created = a} :: DescribeBrokerResponse) Prelude.. Lens.mapping Data._Time++-- | The broker\'s deployment mode.+describeBrokerResponse_deploymentMode :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe DeploymentMode)+describeBrokerResponse_deploymentMode = Lens.lens (\DescribeBrokerResponse' {deploymentMode} -> deploymentMode) (\s@DescribeBrokerResponse' {} a -> s {deploymentMode = a} :: DescribeBrokerResponse)++-- | Encryption options for the broker. Does not apply to RabbitMQ brokers.+describeBrokerResponse_encryptionOptions :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe EncryptionOptions)+describeBrokerResponse_encryptionOptions = Lens.lens (\DescribeBrokerResponse' {encryptionOptions} -> encryptionOptions) (\s@DescribeBrokerResponse' {} a -> s {encryptionOptions = a} :: DescribeBrokerResponse)++-- | The type of broker engine. Currently, Amazon MQ supports ACTIVEMQ and+-- RABBITMQ.+describeBrokerResponse_engineType :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe EngineType)+describeBrokerResponse_engineType = Lens.lens (\DescribeBrokerResponse' {engineType} -> engineType) (\s@DescribeBrokerResponse' {} a -> s {engineType = a} :: DescribeBrokerResponse)++-- | The broker engine\'s version. For a list of supported engine versions,+-- see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+describeBrokerResponse_engineVersion :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Text)+describeBrokerResponse_engineVersion = Lens.lens (\DescribeBrokerResponse' {engineVersion} -> engineVersion) (\s@DescribeBrokerResponse' {} a -> s {engineVersion = a} :: DescribeBrokerResponse)++-- | The broker\'s instance type.+describeBrokerResponse_hostInstanceType :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Text)+describeBrokerResponse_hostInstanceType = Lens.lens (\DescribeBrokerResponse' {hostInstanceType} -> hostInstanceType) (\s@DescribeBrokerResponse' {} a -> s {hostInstanceType = a} :: DescribeBrokerResponse)++-- | The metadata of the LDAP server used to authenticate and authorize+-- connections to the broker.+describeBrokerResponse_ldapServerMetadata :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe LdapServerMetadataOutput)+describeBrokerResponse_ldapServerMetadata = Lens.lens (\DescribeBrokerResponse' {ldapServerMetadata} -> ldapServerMetadata) (\s@DescribeBrokerResponse' {} a -> s {ldapServerMetadata = a} :: DescribeBrokerResponse)++-- | The list of information about logs currently enabled and pending to be+-- deployed for the specified broker.+describeBrokerResponse_logs :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe LogsSummary)+describeBrokerResponse_logs = Lens.lens (\DescribeBrokerResponse' {logs} -> logs) (\s@DescribeBrokerResponse' {} a -> s {logs = a} :: DescribeBrokerResponse)++-- | The parameters that determine the WeeklyStartTime.+describeBrokerResponse_maintenanceWindowStartTime :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe WeeklyStartTime)+describeBrokerResponse_maintenanceWindowStartTime = Lens.lens (\DescribeBrokerResponse' {maintenanceWindowStartTime} -> maintenanceWindowStartTime) (\s@DescribeBrokerResponse' {} a -> s {maintenanceWindowStartTime = a} :: DescribeBrokerResponse)++-- | The authentication strategy that will be applied when the broker is+-- rebooted. The default is SIMPLE.+describeBrokerResponse_pendingAuthenticationStrategy :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe AuthenticationStrategy)+describeBrokerResponse_pendingAuthenticationStrategy = Lens.lens (\DescribeBrokerResponse' {pendingAuthenticationStrategy} -> pendingAuthenticationStrategy) (\s@DescribeBrokerResponse' {} a -> s {pendingAuthenticationStrategy = a} :: DescribeBrokerResponse)++-- | The broker engine version to upgrade to. For a list of supported engine+-- versions, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+describeBrokerResponse_pendingEngineVersion :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Text)+describeBrokerResponse_pendingEngineVersion = Lens.lens (\DescribeBrokerResponse' {pendingEngineVersion} -> pendingEngineVersion) (\s@DescribeBrokerResponse' {} a -> s {pendingEngineVersion = a} :: DescribeBrokerResponse)++-- | The broker\'s host instance type to upgrade to. For a list of supported+-- instance types, see+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker.html#broker-instance-types Broker instance types>.+describeBrokerResponse_pendingHostInstanceType :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Text)+describeBrokerResponse_pendingHostInstanceType = Lens.lens (\DescribeBrokerResponse' {pendingHostInstanceType} -> pendingHostInstanceType) (\s@DescribeBrokerResponse' {} a -> s {pendingHostInstanceType = a} :: DescribeBrokerResponse)++-- | The metadata of the LDAP server that will be used to authenticate and+-- authorize connections to the broker after it is rebooted.+describeBrokerResponse_pendingLdapServerMetadata :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe LdapServerMetadataOutput)+describeBrokerResponse_pendingLdapServerMetadata = Lens.lens (\DescribeBrokerResponse' {pendingLdapServerMetadata} -> pendingLdapServerMetadata) (\s@DescribeBrokerResponse' {} a -> s {pendingLdapServerMetadata = a} :: DescribeBrokerResponse)++-- | The list of pending security groups to authorize connections to brokers.+describeBrokerResponse_pendingSecurityGroups :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe [Prelude.Text])+describeBrokerResponse_pendingSecurityGroups = Lens.lens (\DescribeBrokerResponse' {pendingSecurityGroups} -> pendingSecurityGroups) (\s@DescribeBrokerResponse' {} a -> s {pendingSecurityGroups = a} :: DescribeBrokerResponse) Prelude.. Lens.mapping Lens.coerced++-- | Enables connections from applications outside of the VPC that hosts the+-- broker\'s subnets.+describeBrokerResponse_publiclyAccessible :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe Prelude.Bool)+describeBrokerResponse_publiclyAccessible = Lens.lens (\DescribeBrokerResponse' {publiclyAccessible} -> publiclyAccessible) (\s@DescribeBrokerResponse' {} a -> s {publiclyAccessible = a} :: DescribeBrokerResponse)++-- | The list of rules (1 minimum, 125 maximum) that authorize connections to+-- brokers.+describeBrokerResponse_securityGroups :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe [Prelude.Text])+describeBrokerResponse_securityGroups = Lens.lens (\DescribeBrokerResponse' {securityGroups} -> securityGroups) (\s@DescribeBrokerResponse' {} a -> s {securityGroups = a} :: DescribeBrokerResponse) Prelude.. Lens.mapping Lens.coerced++-- | The broker\'s storage type.+describeBrokerResponse_storageType :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe BrokerStorageType)+describeBrokerResponse_storageType = Lens.lens (\DescribeBrokerResponse' {storageType} -> storageType) (\s@DescribeBrokerResponse' {} a -> s {storageType = a} :: DescribeBrokerResponse)++-- | The list of groups that define which subnets and IP ranges the broker+-- can use from different Availability Zones.+describeBrokerResponse_subnetIds :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe [Prelude.Text])+describeBrokerResponse_subnetIds = Lens.lens (\DescribeBrokerResponse' {subnetIds} -> subnetIds) (\s@DescribeBrokerResponse' {} a -> s {subnetIds = a} :: DescribeBrokerResponse) Prelude.. Lens.mapping Lens.coerced++-- | The list of all tags associated with this broker.+describeBrokerResponse_tags :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+describeBrokerResponse_tags = Lens.lens (\DescribeBrokerResponse' {tags} -> tags) (\s@DescribeBrokerResponse' {} a -> s {tags = a} :: DescribeBrokerResponse) Prelude.. Lens.mapping Lens.coerced++-- | The list of all broker usernames for the specified broker.+describeBrokerResponse_users :: Lens.Lens' DescribeBrokerResponse (Prelude.Maybe [UserSummary])+describeBrokerResponse_users = Lens.lens (\DescribeBrokerResponse' {users} -> users) (\s@DescribeBrokerResponse' {} a -> s {users = a} :: DescribeBrokerResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeBrokerResponse_httpStatus :: Lens.Lens' DescribeBrokerResponse Prelude.Int+describeBrokerResponse_httpStatus = Lens.lens (\DescribeBrokerResponse' {httpStatus} -> httpStatus) (\s@DescribeBrokerResponse' {} a -> s {httpStatus = a} :: DescribeBrokerResponse)++instance Prelude.NFData DescribeBrokerResponse where+  rnf DescribeBrokerResponse' {..} =+    Prelude.rnf actionsRequired+      `Prelude.seq` Prelude.rnf authenticationStrategy+      `Prelude.seq` Prelude.rnf autoMinorVersionUpgrade+      `Prelude.seq` Prelude.rnf brokerArn+      `Prelude.seq` Prelude.rnf brokerId+      `Prelude.seq` Prelude.rnf brokerInstances+      `Prelude.seq` Prelude.rnf brokerName+      `Prelude.seq` Prelude.rnf brokerState+      `Prelude.seq` Prelude.rnf configurations+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf deploymentMode+      `Prelude.seq` Prelude.rnf encryptionOptions+      `Prelude.seq` Prelude.rnf engineType+      `Prelude.seq` Prelude.rnf engineVersion+      `Prelude.seq` Prelude.rnf hostInstanceType+      `Prelude.seq` Prelude.rnf ldapServerMetadata+      `Prelude.seq` Prelude.rnf logs+      `Prelude.seq` Prelude.rnf+        maintenanceWindowStartTime+      `Prelude.seq` Prelude.rnf+        pendingAuthenticationStrategy+      `Prelude.seq` Prelude.rnf+        pendingEngineVersion+      `Prelude.seq` Prelude.rnf+        pendingHostInstanceType+      `Prelude.seq` Prelude.rnf+        pendingLdapServerMetadata+      `Prelude.seq` Prelude.rnf+        pendingSecurityGroups+      `Prelude.seq` Prelude.rnf+        publiclyAccessible+      `Prelude.seq` Prelude.rnf+        securityGroups+      `Prelude.seq` Prelude.rnf+        storageType+      `Prelude.seq` Prelude.rnf+        subnetIds+      `Prelude.seq` Prelude.rnf+        tags+      `Prelude.seq` Prelude.rnf+        users+      `Prelude.seq` Prelude.rnf+        httpStatus

@@ -0,0 +1,231 @@+{-# 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.MQ.DescribeBrokerEngineTypes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describe available engine types and versions.+module Amazonka.MQ.DescribeBrokerEngineTypes+  ( -- * Creating a Request+    DescribeBrokerEngineTypes (..),+    newDescribeBrokerEngineTypes,++    -- * Request Lenses+    describeBrokerEngineTypes_engineType,+    describeBrokerEngineTypes_maxResults,+    describeBrokerEngineTypes_nextToken,++    -- * Destructuring the Response+    DescribeBrokerEngineTypesResponse (..),+    newDescribeBrokerEngineTypesResponse,++    -- * Response Lenses+    describeBrokerEngineTypesResponse_brokerEngineTypes,+    describeBrokerEngineTypesResponse_maxResults,+    describeBrokerEngineTypesResponse_nextToken,+    describeBrokerEngineTypesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBrokerEngineTypes' smart constructor.+data DescribeBrokerEngineTypes = DescribeBrokerEngineTypes'+  { -- | Filter response by engine type.+    engineType :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of brokers that Amazon MQ can return per page (20 by+    -- default). This value must be an integer from 5 to 100.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The token that specifies the next page of results Amazon MQ should+    -- return. To request the first page, leave nextToken empty.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBrokerEngineTypes' with all optional fields 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:+--+-- 'engineType', 'describeBrokerEngineTypes_engineType' - Filter response by engine type.+--+-- 'maxResults', 'describeBrokerEngineTypes_maxResults' - The maximum number of brokers that Amazon MQ can return per page (20 by+-- default). This value must be an integer from 5 to 100.+--+-- 'nextToken', 'describeBrokerEngineTypes_nextToken' - The token that specifies the next page of results Amazon MQ should+-- return. To request the first page, leave nextToken empty.+newDescribeBrokerEngineTypes ::+  DescribeBrokerEngineTypes+newDescribeBrokerEngineTypes =+  DescribeBrokerEngineTypes'+    { engineType =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Filter response by engine type.+describeBrokerEngineTypes_engineType :: Lens.Lens' DescribeBrokerEngineTypes (Prelude.Maybe Prelude.Text)+describeBrokerEngineTypes_engineType = Lens.lens (\DescribeBrokerEngineTypes' {engineType} -> engineType) (\s@DescribeBrokerEngineTypes' {} a -> s {engineType = a} :: DescribeBrokerEngineTypes)++-- | The maximum number of brokers that Amazon MQ can return per page (20 by+-- default). This value must be an integer from 5 to 100.+describeBrokerEngineTypes_maxResults :: Lens.Lens' DescribeBrokerEngineTypes (Prelude.Maybe Prelude.Natural)+describeBrokerEngineTypes_maxResults = Lens.lens (\DescribeBrokerEngineTypes' {maxResults} -> maxResults) (\s@DescribeBrokerEngineTypes' {} a -> s {maxResults = a} :: DescribeBrokerEngineTypes)++-- | The token that specifies the next page of results Amazon MQ should+-- return. To request the first page, leave nextToken empty.+describeBrokerEngineTypes_nextToken :: Lens.Lens' DescribeBrokerEngineTypes (Prelude.Maybe Prelude.Text)+describeBrokerEngineTypes_nextToken = Lens.lens (\DescribeBrokerEngineTypes' {nextToken} -> nextToken) (\s@DescribeBrokerEngineTypes' {} a -> s {nextToken = a} :: DescribeBrokerEngineTypes)++instance Core.AWSRequest DescribeBrokerEngineTypes where+  type+    AWSResponse DescribeBrokerEngineTypes =+      DescribeBrokerEngineTypesResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBrokerEngineTypesResponse'+            Prelude.<$> ( x+                            Data..?> "brokerEngineTypes"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "maxResults")+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeBrokerEngineTypes where+  hashWithSalt _salt DescribeBrokerEngineTypes' {..} =+    _salt+      `Prelude.hashWithSalt` engineType+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeBrokerEngineTypes where+  rnf DescribeBrokerEngineTypes' {..} =+    Prelude.rnf engineType+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeBrokerEngineTypes where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeBrokerEngineTypes where+  toPath = Prelude.const "/v1/broker-engine-types"++instance Data.ToQuery DescribeBrokerEngineTypes where+  toQuery DescribeBrokerEngineTypes' {..} =+    Prelude.mconcat+      [ "engineType" Data.=: engineType,+        "maxResults" Data.=: maxResults,+        "nextToken" Data.=: nextToken+      ]++-- | /See:/ 'newDescribeBrokerEngineTypesResponse' smart constructor.+data DescribeBrokerEngineTypesResponse = DescribeBrokerEngineTypesResponse'+  { -- | List of available engine types and versions.+    brokerEngineTypes :: Prelude.Maybe [BrokerEngineType],+    -- | Required. The maximum number of engine types that can be returned per+    -- page (20 by default). This value must be an integer from 5 to 100.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The token that specifies the next page of results Amazon MQ should+    -- return. To request the first page, leave nextToken empty.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBrokerEngineTypesResponse' with all optional fields 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:+--+-- 'brokerEngineTypes', 'describeBrokerEngineTypesResponse_brokerEngineTypes' - List of available engine types and versions.+--+-- 'maxResults', 'describeBrokerEngineTypesResponse_maxResults' - Required. The maximum number of engine types that can be returned per+-- page (20 by default). This value must be an integer from 5 to 100.+--+-- 'nextToken', 'describeBrokerEngineTypesResponse_nextToken' - The token that specifies the next page of results Amazon MQ should+-- return. To request the first page, leave nextToken empty.+--+-- 'httpStatus', 'describeBrokerEngineTypesResponse_httpStatus' - The response's http status code.+newDescribeBrokerEngineTypesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBrokerEngineTypesResponse+newDescribeBrokerEngineTypesResponse pHttpStatus_ =+  DescribeBrokerEngineTypesResponse'+    { brokerEngineTypes =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | List of available engine types and versions.+describeBrokerEngineTypesResponse_brokerEngineTypes :: Lens.Lens' DescribeBrokerEngineTypesResponse (Prelude.Maybe [BrokerEngineType])+describeBrokerEngineTypesResponse_brokerEngineTypes = Lens.lens (\DescribeBrokerEngineTypesResponse' {brokerEngineTypes} -> brokerEngineTypes) (\s@DescribeBrokerEngineTypesResponse' {} a -> s {brokerEngineTypes = a} :: DescribeBrokerEngineTypesResponse) Prelude.. Lens.mapping Lens.coerced++-- | Required. The maximum number of engine types that can be returned per+-- page (20 by default). This value must be an integer from 5 to 100.+describeBrokerEngineTypesResponse_maxResults :: Lens.Lens' DescribeBrokerEngineTypesResponse (Prelude.Maybe Prelude.Natural)+describeBrokerEngineTypesResponse_maxResults = Lens.lens (\DescribeBrokerEngineTypesResponse' {maxResults} -> maxResults) (\s@DescribeBrokerEngineTypesResponse' {} a -> s {maxResults = a} :: DescribeBrokerEngineTypesResponse)++-- | The token that specifies the next page of results Amazon MQ should+-- return. To request the first page, leave nextToken empty.+describeBrokerEngineTypesResponse_nextToken :: Lens.Lens' DescribeBrokerEngineTypesResponse (Prelude.Maybe Prelude.Text)+describeBrokerEngineTypesResponse_nextToken = Lens.lens (\DescribeBrokerEngineTypesResponse' {nextToken} -> nextToken) (\s@DescribeBrokerEngineTypesResponse' {} a -> s {nextToken = a} :: DescribeBrokerEngineTypesResponse)++-- | The response's http status code.+describeBrokerEngineTypesResponse_httpStatus :: Lens.Lens' DescribeBrokerEngineTypesResponse Prelude.Int+describeBrokerEngineTypesResponse_httpStatus = Lens.lens (\DescribeBrokerEngineTypesResponse' {httpStatus} -> httpStatus) (\s@DescribeBrokerEngineTypesResponse' {} a -> s {httpStatus = a} :: DescribeBrokerEngineTypesResponse)++instance+  Prelude.NFData+    DescribeBrokerEngineTypesResponse+  where+  rnf DescribeBrokerEngineTypesResponse' {..} =+    Prelude.rnf brokerEngineTypes+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,263 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MQ.DescribeBrokerInstanceOptions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describe available broker instance options.+module Amazonka.MQ.DescribeBrokerInstanceOptions+  ( -- * Creating a Request+    DescribeBrokerInstanceOptions (..),+    newDescribeBrokerInstanceOptions,++    -- * Request Lenses+    describeBrokerInstanceOptions_engineType,+    describeBrokerInstanceOptions_hostInstanceType,+    describeBrokerInstanceOptions_maxResults,+    describeBrokerInstanceOptions_nextToken,+    describeBrokerInstanceOptions_storageType,++    -- * Destructuring the Response+    DescribeBrokerInstanceOptionsResponse (..),+    newDescribeBrokerInstanceOptionsResponse,++    -- * Response Lenses+    describeBrokerInstanceOptionsResponse_brokerInstanceOptions,+    describeBrokerInstanceOptionsResponse_maxResults,+    describeBrokerInstanceOptionsResponse_nextToken,+    describeBrokerInstanceOptionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBrokerInstanceOptions' smart constructor.+data DescribeBrokerInstanceOptions = DescribeBrokerInstanceOptions'+  { -- | Filter response by engine type.+    engineType :: Prelude.Maybe Prelude.Text,+    -- | Filter response by host instance type.+    hostInstanceType :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of brokers that Amazon MQ can return per page (20 by+    -- default). This value must be an integer from 5 to 100.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The token that specifies the next page of results Amazon MQ should+    -- return. To request the first page, leave nextToken empty.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Filter response by storage type.+    storageType :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBrokerInstanceOptions' with all optional fields 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:+--+-- 'engineType', 'describeBrokerInstanceOptions_engineType' - Filter response by engine type.+--+-- 'hostInstanceType', 'describeBrokerInstanceOptions_hostInstanceType' - Filter response by host instance type.+--+-- 'maxResults', 'describeBrokerInstanceOptions_maxResults' - The maximum number of brokers that Amazon MQ can return per page (20 by+-- default). This value must be an integer from 5 to 100.+--+-- 'nextToken', 'describeBrokerInstanceOptions_nextToken' - The token that specifies the next page of results Amazon MQ should+-- return. To request the first page, leave nextToken empty.+--+-- 'storageType', 'describeBrokerInstanceOptions_storageType' - Filter response by storage type.+newDescribeBrokerInstanceOptions ::+  DescribeBrokerInstanceOptions+newDescribeBrokerInstanceOptions =+  DescribeBrokerInstanceOptions'+    { engineType =+        Prelude.Nothing,+      hostInstanceType = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      storageType = Prelude.Nothing+    }++-- | Filter response by engine type.+describeBrokerInstanceOptions_engineType :: Lens.Lens' DescribeBrokerInstanceOptions (Prelude.Maybe Prelude.Text)+describeBrokerInstanceOptions_engineType = Lens.lens (\DescribeBrokerInstanceOptions' {engineType} -> engineType) (\s@DescribeBrokerInstanceOptions' {} a -> s {engineType = a} :: DescribeBrokerInstanceOptions)++-- | Filter response by host instance type.+describeBrokerInstanceOptions_hostInstanceType :: Lens.Lens' DescribeBrokerInstanceOptions (Prelude.Maybe Prelude.Text)+describeBrokerInstanceOptions_hostInstanceType = Lens.lens (\DescribeBrokerInstanceOptions' {hostInstanceType} -> hostInstanceType) (\s@DescribeBrokerInstanceOptions' {} a -> s {hostInstanceType = a} :: DescribeBrokerInstanceOptions)++-- | The maximum number of brokers that Amazon MQ can return per page (20 by+-- default). This value must be an integer from 5 to 100.+describeBrokerInstanceOptions_maxResults :: Lens.Lens' DescribeBrokerInstanceOptions (Prelude.Maybe Prelude.Natural)+describeBrokerInstanceOptions_maxResults = Lens.lens (\DescribeBrokerInstanceOptions' {maxResults} -> maxResults) (\s@DescribeBrokerInstanceOptions' {} a -> s {maxResults = a} :: DescribeBrokerInstanceOptions)++-- | The token that specifies the next page of results Amazon MQ should+-- return. To request the first page, leave nextToken empty.+describeBrokerInstanceOptions_nextToken :: Lens.Lens' DescribeBrokerInstanceOptions (Prelude.Maybe Prelude.Text)+describeBrokerInstanceOptions_nextToken = Lens.lens (\DescribeBrokerInstanceOptions' {nextToken} -> nextToken) (\s@DescribeBrokerInstanceOptions' {} a -> s {nextToken = a} :: DescribeBrokerInstanceOptions)++-- | Filter response by storage type.+describeBrokerInstanceOptions_storageType :: Lens.Lens' DescribeBrokerInstanceOptions (Prelude.Maybe Prelude.Text)+describeBrokerInstanceOptions_storageType = Lens.lens (\DescribeBrokerInstanceOptions' {storageType} -> storageType) (\s@DescribeBrokerInstanceOptions' {} a -> s {storageType = a} :: DescribeBrokerInstanceOptions)++instance+  Core.AWSRequest+    DescribeBrokerInstanceOptions+  where+  type+    AWSResponse DescribeBrokerInstanceOptions =+      DescribeBrokerInstanceOptionsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBrokerInstanceOptionsResponse'+            Prelude.<$> ( x+                            Data..?> "brokerInstanceOptions"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "maxResults")+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeBrokerInstanceOptions+  where+  hashWithSalt _salt DescribeBrokerInstanceOptions' {..} =+    _salt+      `Prelude.hashWithSalt` engineType+      `Prelude.hashWithSalt` hostInstanceType+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` storageType++instance Prelude.NFData DescribeBrokerInstanceOptions where+  rnf DescribeBrokerInstanceOptions' {..} =+    Prelude.rnf engineType+      `Prelude.seq` Prelude.rnf hostInstanceType+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf storageType++instance Data.ToHeaders DescribeBrokerInstanceOptions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeBrokerInstanceOptions where+  toPath = Prelude.const "/v1/broker-instance-options"++instance Data.ToQuery DescribeBrokerInstanceOptions where+  toQuery DescribeBrokerInstanceOptions' {..} =+    Prelude.mconcat+      [ "engineType" Data.=: engineType,+        "hostInstanceType" Data.=: hostInstanceType,+        "maxResults" Data.=: maxResults,+        "nextToken" Data.=: nextToken,+        "storageType" Data.=: storageType+      ]++-- | /See:/ 'newDescribeBrokerInstanceOptionsResponse' smart constructor.+data DescribeBrokerInstanceOptionsResponse = DescribeBrokerInstanceOptionsResponse'+  { -- | List of available broker instance options.+    brokerInstanceOptions :: Prelude.Maybe [BrokerInstanceOption],+    -- | Required. The maximum number of instance options that can be returned+    -- per page (20 by default). This value must be an integer from 5 to 100.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The token that specifies the next page of results Amazon MQ should+    -- return. To request the first page, leave nextToken empty.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBrokerInstanceOptionsResponse' with all optional fields 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:+--+-- 'brokerInstanceOptions', 'describeBrokerInstanceOptionsResponse_brokerInstanceOptions' - List of available broker instance options.+--+-- 'maxResults', 'describeBrokerInstanceOptionsResponse_maxResults' - Required. The maximum number of instance options that can be returned+-- per page (20 by default). This value must be an integer from 5 to 100.+--+-- 'nextToken', 'describeBrokerInstanceOptionsResponse_nextToken' - The token that specifies the next page of results Amazon MQ should+-- return. To request the first page, leave nextToken empty.+--+-- 'httpStatus', 'describeBrokerInstanceOptionsResponse_httpStatus' - The response's http status code.+newDescribeBrokerInstanceOptionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBrokerInstanceOptionsResponse+newDescribeBrokerInstanceOptionsResponse pHttpStatus_ =+  DescribeBrokerInstanceOptionsResponse'+    { brokerInstanceOptions =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | List of available broker instance options.+describeBrokerInstanceOptionsResponse_brokerInstanceOptions :: Lens.Lens' DescribeBrokerInstanceOptionsResponse (Prelude.Maybe [BrokerInstanceOption])+describeBrokerInstanceOptionsResponse_brokerInstanceOptions = Lens.lens (\DescribeBrokerInstanceOptionsResponse' {brokerInstanceOptions} -> brokerInstanceOptions) (\s@DescribeBrokerInstanceOptionsResponse' {} a -> s {brokerInstanceOptions = a} :: DescribeBrokerInstanceOptionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | Required. The maximum number of instance options that can be returned+-- per page (20 by default). This value must be an integer from 5 to 100.+describeBrokerInstanceOptionsResponse_maxResults :: Lens.Lens' DescribeBrokerInstanceOptionsResponse (Prelude.Maybe Prelude.Natural)+describeBrokerInstanceOptionsResponse_maxResults = Lens.lens (\DescribeBrokerInstanceOptionsResponse' {maxResults} -> maxResults) (\s@DescribeBrokerInstanceOptionsResponse' {} a -> s {maxResults = a} :: DescribeBrokerInstanceOptionsResponse)++-- | The token that specifies the next page of results Amazon MQ should+-- return. To request the first page, leave nextToken empty.+describeBrokerInstanceOptionsResponse_nextToken :: Lens.Lens' DescribeBrokerInstanceOptionsResponse (Prelude.Maybe Prelude.Text)+describeBrokerInstanceOptionsResponse_nextToken = Lens.lens (\DescribeBrokerInstanceOptionsResponse' {nextToken} -> nextToken) (\s@DescribeBrokerInstanceOptionsResponse' {} a -> s {nextToken = a} :: DescribeBrokerInstanceOptionsResponse)++-- | The response's http status code.+describeBrokerInstanceOptionsResponse_httpStatus :: Lens.Lens' DescribeBrokerInstanceOptionsResponse Prelude.Int+describeBrokerInstanceOptionsResponse_httpStatus = Lens.lens (\DescribeBrokerInstanceOptionsResponse' {httpStatus} -> httpStatus) (\s@DescribeBrokerInstanceOptionsResponse' {} a -> s {httpStatus = a} :: DescribeBrokerInstanceOptionsResponse)++instance+  Prelude.NFData+    DescribeBrokerInstanceOptionsResponse+  where+  rnf DescribeBrokerInstanceOptionsResponse' {..} =+    Prelude.rnf brokerInstanceOptions+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,289 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MQ.DescribeConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the specified configuration.+module Amazonka.MQ.DescribeConfiguration+  ( -- * Creating a Request+    DescribeConfiguration (..),+    newDescribeConfiguration,++    -- * Request Lenses+    describeConfiguration_configurationId,++    -- * Destructuring the Response+    DescribeConfigurationResponse (..),+    newDescribeConfigurationResponse,++    -- * Response Lenses+    describeConfigurationResponse_arn,+    describeConfigurationResponse_authenticationStrategy,+    describeConfigurationResponse_created,+    describeConfigurationResponse_description,+    describeConfigurationResponse_engineType,+    describeConfigurationResponse_engineVersion,+    describeConfigurationResponse_id,+    describeConfigurationResponse_latestRevision,+    describeConfigurationResponse_name,+    describeConfigurationResponse_tags,+    describeConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeConfiguration' smart constructor.+data DescribeConfiguration = DescribeConfiguration'+  { -- | The unique ID that Amazon MQ generates for the configuration.+    configurationId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeConfiguration' with all optional fields 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:+--+-- 'configurationId', 'describeConfiguration_configurationId' - The unique ID that Amazon MQ generates for the configuration.+newDescribeConfiguration ::+  -- | 'configurationId'+  Prelude.Text ->+  DescribeConfiguration+newDescribeConfiguration pConfigurationId_ =+  DescribeConfiguration'+    { configurationId =+        pConfigurationId_+    }++-- | The unique ID that Amazon MQ generates for the configuration.+describeConfiguration_configurationId :: Lens.Lens' DescribeConfiguration Prelude.Text+describeConfiguration_configurationId = Lens.lens (\DescribeConfiguration' {configurationId} -> configurationId) (\s@DescribeConfiguration' {} a -> s {configurationId = a} :: DescribeConfiguration)++instance Core.AWSRequest DescribeConfiguration where+  type+    AWSResponse DescribeConfiguration =+      DescribeConfigurationResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeConfigurationResponse'+            Prelude.<$> (x Data..?> "arn")+            Prelude.<*> (x Data..?> "authenticationStrategy")+            Prelude.<*> (x Data..?> "created")+            Prelude.<*> (x Data..?> "description")+            Prelude.<*> (x Data..?> "engineType")+            Prelude.<*> (x Data..?> "engineVersion")+            Prelude.<*> (x Data..?> "id")+            Prelude.<*> (x Data..?> "latestRevision")+            Prelude.<*> (x Data..?> "name")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeConfiguration where+  hashWithSalt _salt DescribeConfiguration' {..} =+    _salt `Prelude.hashWithSalt` configurationId++instance Prelude.NFData DescribeConfiguration where+  rnf DescribeConfiguration' {..} =+    Prelude.rnf configurationId++instance Data.ToHeaders DescribeConfiguration where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeConfiguration where+  toPath DescribeConfiguration' {..} =+    Prelude.mconcat+      ["/v1/configurations/", Data.toBS configurationId]++instance Data.ToQuery DescribeConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeConfigurationResponse' smart constructor.+data DescribeConfigurationResponse = DescribeConfigurationResponse'+  { -- | Required. The ARN of the configuration.+    arn :: Prelude.Maybe Prelude.Text,+    -- | Optional. The authentication strategy associated with the configuration.+    -- The default is SIMPLE.+    authenticationStrategy :: Prelude.Maybe AuthenticationStrategy,+    -- | Required. The date and time of the configuration revision.+    created :: Prelude.Maybe Data.ISO8601,+    -- | Required. The description of the configuration.+    description :: Prelude.Maybe Prelude.Text,+    -- | Required. The type of broker engine. Currently, Amazon MQ supports+    -- ACTIVEMQ and RABBITMQ.+    engineType :: Prelude.Maybe EngineType,+    -- | Required. The broker engine\'s version. For a list of supported engine+    -- versions, see,+    -- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+    engineVersion :: Prelude.Maybe Prelude.Text,+    -- | Required. The unique ID that Amazon MQ generates for the configuration.+    id :: Prelude.Maybe Prelude.Text,+    -- | Required. The latest revision of the configuration.+    latestRevision :: Prelude.Maybe ConfigurationRevision,+    -- | Required. The name of the configuration. This value can contain only+    -- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+    -- ~). This value must be 1-150 characters long.+    name :: Prelude.Maybe Prelude.Text,+    -- | The list of all tags associated with this configuration.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'describeConfigurationResponse_arn' - Required. The ARN of the configuration.+--+-- 'authenticationStrategy', 'describeConfigurationResponse_authenticationStrategy' - Optional. The authentication strategy associated with the configuration.+-- The default is SIMPLE.+--+-- 'created', 'describeConfigurationResponse_created' - Required. The date and time of the configuration revision.+--+-- 'description', 'describeConfigurationResponse_description' - Required. The description of the configuration.+--+-- 'engineType', 'describeConfigurationResponse_engineType' - Required. The type of broker engine. Currently, Amazon MQ supports+-- ACTIVEMQ and RABBITMQ.+--+-- 'engineVersion', 'describeConfigurationResponse_engineVersion' - Required. The broker engine\'s version. For a list of supported engine+-- versions, see,+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+--+-- 'id', 'describeConfigurationResponse_id' - Required. The unique ID that Amazon MQ generates for the configuration.+--+-- 'latestRevision', 'describeConfigurationResponse_latestRevision' - Required. The latest revision of the configuration.+--+-- 'name', 'describeConfigurationResponse_name' - Required. The name of the configuration. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 1-150 characters long.+--+-- 'tags', 'describeConfigurationResponse_tags' - The list of all tags associated with this configuration.+--+-- 'httpStatus', 'describeConfigurationResponse_httpStatus' - The response's http status code.+newDescribeConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeConfigurationResponse+newDescribeConfigurationResponse pHttpStatus_ =+  DescribeConfigurationResponse'+    { arn =+        Prelude.Nothing,+      authenticationStrategy = Prelude.Nothing,+      created = Prelude.Nothing,+      description = Prelude.Nothing,+      engineType = Prelude.Nothing,+      engineVersion = Prelude.Nothing,+      id = Prelude.Nothing,+      latestRevision = Prelude.Nothing,+      name = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Required. The ARN of the configuration.+describeConfigurationResponse_arn :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe Prelude.Text)+describeConfigurationResponse_arn = Lens.lens (\DescribeConfigurationResponse' {arn} -> arn) (\s@DescribeConfigurationResponse' {} a -> s {arn = a} :: DescribeConfigurationResponse)++-- | Optional. The authentication strategy associated with the configuration.+-- The default is SIMPLE.+describeConfigurationResponse_authenticationStrategy :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe AuthenticationStrategy)+describeConfigurationResponse_authenticationStrategy = Lens.lens (\DescribeConfigurationResponse' {authenticationStrategy} -> authenticationStrategy) (\s@DescribeConfigurationResponse' {} a -> s {authenticationStrategy = a} :: DescribeConfigurationResponse)++-- | Required. The date and time of the configuration revision.+describeConfigurationResponse_created :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe Prelude.UTCTime)+describeConfigurationResponse_created = Lens.lens (\DescribeConfigurationResponse' {created} -> created) (\s@DescribeConfigurationResponse' {} a -> s {created = a} :: DescribeConfigurationResponse) Prelude.. Lens.mapping Data._Time++-- | Required. The description of the configuration.+describeConfigurationResponse_description :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe Prelude.Text)+describeConfigurationResponse_description = Lens.lens (\DescribeConfigurationResponse' {description} -> description) (\s@DescribeConfigurationResponse' {} a -> s {description = a} :: DescribeConfigurationResponse)++-- | Required. The type of broker engine. Currently, Amazon MQ supports+-- ACTIVEMQ and RABBITMQ.+describeConfigurationResponse_engineType :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe EngineType)+describeConfigurationResponse_engineType = Lens.lens (\DescribeConfigurationResponse' {engineType} -> engineType) (\s@DescribeConfigurationResponse' {} a -> s {engineType = a} :: DescribeConfigurationResponse)++-- | Required. The broker engine\'s version. For a list of supported engine+-- versions, see,+-- <https://docs.aws.amazon.com//amazon-mq/latest/developer-guide/broker-engine.html Supported engines>.+describeConfigurationResponse_engineVersion :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe Prelude.Text)+describeConfigurationResponse_engineVersion = Lens.lens (\DescribeConfigurationResponse' {engineVersion} -> engineVersion) (\s@DescribeConfigurationResponse' {} a -> s {engineVersion = a} :: DescribeConfigurationResponse)++-- | Required. The unique ID that Amazon MQ generates for the configuration.+describeConfigurationResponse_id :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe Prelude.Text)+describeConfigurationResponse_id = Lens.lens (\DescribeConfigurationResponse' {id} -> id) (\s@DescribeConfigurationResponse' {} a -> s {id = a} :: DescribeConfigurationResponse)++-- | Required. The latest revision of the configuration.+describeConfigurationResponse_latestRevision :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe ConfigurationRevision)+describeConfigurationResponse_latestRevision = Lens.lens (\DescribeConfigurationResponse' {latestRevision} -> latestRevision) (\s@DescribeConfigurationResponse' {} a -> s {latestRevision = a} :: DescribeConfigurationResponse)++-- | Required. The name of the configuration. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 1-150 characters long.+describeConfigurationResponse_name :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe Prelude.Text)+describeConfigurationResponse_name = Lens.lens (\DescribeConfigurationResponse' {name} -> name) (\s@DescribeConfigurationResponse' {} a -> s {name = a} :: DescribeConfigurationResponse)++-- | The list of all tags associated with this configuration.+describeConfigurationResponse_tags :: Lens.Lens' DescribeConfigurationResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+describeConfigurationResponse_tags = Lens.lens (\DescribeConfigurationResponse' {tags} -> tags) (\s@DescribeConfigurationResponse' {} a -> s {tags = a} :: DescribeConfigurationResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeConfigurationResponse_httpStatus :: Lens.Lens' DescribeConfigurationResponse Prelude.Int+describeConfigurationResponse_httpStatus = Lens.lens (\DescribeConfigurationResponse' {httpStatus} -> httpStatus) (\s@DescribeConfigurationResponse' {} a -> s {httpStatus = a} :: DescribeConfigurationResponse)++instance Prelude.NFData DescribeConfigurationResponse where+  rnf DescribeConfigurationResponse' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf authenticationStrategy+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf engineType+      `Prelude.seq` Prelude.rnf engineVersion+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf latestRevision+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,230 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MQ.DescribeConfigurationRevision+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the specified configuration revision for the specified+-- configuration.+module Amazonka.MQ.DescribeConfigurationRevision+  ( -- * Creating a Request+    DescribeConfigurationRevision (..),+    newDescribeConfigurationRevision,++    -- * Request Lenses+    describeConfigurationRevision_configurationRevision,+    describeConfigurationRevision_configurationId,++    -- * Destructuring the Response+    DescribeConfigurationRevisionResponse (..),+    newDescribeConfigurationRevisionResponse,++    -- * Response Lenses+    describeConfigurationRevisionResponse_configurationId,+    describeConfigurationRevisionResponse_created,+    describeConfigurationRevisionResponse_data,+    describeConfigurationRevisionResponse_description,+    describeConfigurationRevisionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeConfigurationRevision' smart constructor.+data DescribeConfigurationRevision = DescribeConfigurationRevision'+  { -- | The revision of the configuration.+    configurationRevision :: Prelude.Text,+    -- | The unique ID that Amazon MQ generates for the configuration.+    configurationId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeConfigurationRevision' with all optional fields 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:+--+-- 'configurationRevision', 'describeConfigurationRevision_configurationRevision' - The revision of the configuration.+--+-- 'configurationId', 'describeConfigurationRevision_configurationId' - The unique ID that Amazon MQ generates for the configuration.+newDescribeConfigurationRevision ::+  -- | 'configurationRevision'+  Prelude.Text ->+  -- | 'configurationId'+  Prelude.Text ->+  DescribeConfigurationRevision+newDescribeConfigurationRevision+  pConfigurationRevision_+  pConfigurationId_ =+    DescribeConfigurationRevision'+      { configurationRevision =+          pConfigurationRevision_,+        configurationId = pConfigurationId_+      }++-- | The revision of the configuration.+describeConfigurationRevision_configurationRevision :: Lens.Lens' DescribeConfigurationRevision Prelude.Text+describeConfigurationRevision_configurationRevision = Lens.lens (\DescribeConfigurationRevision' {configurationRevision} -> configurationRevision) (\s@DescribeConfigurationRevision' {} a -> s {configurationRevision = a} :: DescribeConfigurationRevision)++-- | The unique ID that Amazon MQ generates for the configuration.+describeConfigurationRevision_configurationId :: Lens.Lens' DescribeConfigurationRevision Prelude.Text+describeConfigurationRevision_configurationId = Lens.lens (\DescribeConfigurationRevision' {configurationId} -> configurationId) (\s@DescribeConfigurationRevision' {} a -> s {configurationId = a} :: DescribeConfigurationRevision)++instance+  Core.AWSRequest+    DescribeConfigurationRevision+  where+  type+    AWSResponse DescribeConfigurationRevision =+      DescribeConfigurationRevisionResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeConfigurationRevisionResponse'+            Prelude.<$> (x Data..?> "configurationId")+            Prelude.<*> (x Data..?> "created")+            Prelude.<*> (x Data..?> "data")+            Prelude.<*> (x Data..?> "description")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeConfigurationRevision+  where+  hashWithSalt _salt DescribeConfigurationRevision' {..} =+    _salt+      `Prelude.hashWithSalt` configurationRevision+      `Prelude.hashWithSalt` configurationId++instance Prelude.NFData DescribeConfigurationRevision where+  rnf DescribeConfigurationRevision' {..} =+    Prelude.rnf configurationRevision+      `Prelude.seq` Prelude.rnf configurationId++instance Data.ToHeaders DescribeConfigurationRevision where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeConfigurationRevision where+  toPath DescribeConfigurationRevision' {..} =+    Prelude.mconcat+      [ "/v1/configurations/",+        Data.toBS configurationId,+        "/revisions/",+        Data.toBS configurationRevision+      ]++instance Data.ToQuery DescribeConfigurationRevision where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeConfigurationRevisionResponse' smart constructor.+data DescribeConfigurationRevisionResponse = DescribeConfigurationRevisionResponse'+  { -- | Required. The unique ID that Amazon MQ generates for the configuration.+    configurationId :: Prelude.Maybe Prelude.Text,+    -- | Required. The date and time of the configuration.+    created :: Prelude.Maybe Data.ISO8601,+    -- | Required. The base64-encoded XML configuration.+    data' :: Prelude.Maybe Prelude.Text,+    -- | The description of the configuration.+    description :: 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 'DescribeConfigurationRevisionResponse' with all optional fields 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:+--+-- 'configurationId', 'describeConfigurationRevisionResponse_configurationId' - Required. The unique ID that Amazon MQ generates for the configuration.+--+-- 'created', 'describeConfigurationRevisionResponse_created' - Required. The date and time of the configuration.+--+-- 'data'', 'describeConfigurationRevisionResponse_data' - Required. The base64-encoded XML configuration.+--+-- 'description', 'describeConfigurationRevisionResponse_description' - The description of the configuration.+--+-- 'httpStatus', 'describeConfigurationRevisionResponse_httpStatus' - The response's http status code.+newDescribeConfigurationRevisionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeConfigurationRevisionResponse+newDescribeConfigurationRevisionResponse pHttpStatus_ =+  DescribeConfigurationRevisionResponse'+    { configurationId =+        Prelude.Nothing,+      created = Prelude.Nothing,+      data' = Prelude.Nothing,+      description = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Required. The unique ID that Amazon MQ generates for the configuration.+describeConfigurationRevisionResponse_configurationId :: Lens.Lens' DescribeConfigurationRevisionResponse (Prelude.Maybe Prelude.Text)+describeConfigurationRevisionResponse_configurationId = Lens.lens (\DescribeConfigurationRevisionResponse' {configurationId} -> configurationId) (\s@DescribeConfigurationRevisionResponse' {} a -> s {configurationId = a} :: DescribeConfigurationRevisionResponse)++-- | Required. The date and time of the configuration.+describeConfigurationRevisionResponse_created :: Lens.Lens' DescribeConfigurationRevisionResponse (Prelude.Maybe Prelude.UTCTime)+describeConfigurationRevisionResponse_created = Lens.lens (\DescribeConfigurationRevisionResponse' {created} -> created) (\s@DescribeConfigurationRevisionResponse' {} a -> s {created = a} :: DescribeConfigurationRevisionResponse) Prelude.. Lens.mapping Data._Time++-- | Required. The base64-encoded XML configuration.+describeConfigurationRevisionResponse_data :: Lens.Lens' DescribeConfigurationRevisionResponse (Prelude.Maybe Prelude.Text)+describeConfigurationRevisionResponse_data = Lens.lens (\DescribeConfigurationRevisionResponse' {data'} -> data') (\s@DescribeConfigurationRevisionResponse' {} a -> s {data' = a} :: DescribeConfigurationRevisionResponse)++-- | The description of the configuration.+describeConfigurationRevisionResponse_description :: Lens.Lens' DescribeConfigurationRevisionResponse (Prelude.Maybe Prelude.Text)+describeConfigurationRevisionResponse_description = Lens.lens (\DescribeConfigurationRevisionResponse' {description} -> description) (\s@DescribeConfigurationRevisionResponse' {} a -> s {description = a} :: DescribeConfigurationRevisionResponse)++-- | The response's http status code.+describeConfigurationRevisionResponse_httpStatus :: Lens.Lens' DescribeConfigurationRevisionResponse Prelude.Int+describeConfigurationRevisionResponse_httpStatus = Lens.lens (\DescribeConfigurationRevisionResponse' {httpStatus} -> httpStatus) (\s@DescribeConfigurationRevisionResponse' {} a -> s {httpStatus = a} :: DescribeConfigurationRevisionResponse)++instance+  Prelude.NFData+    DescribeConfigurationRevisionResponse+  where+  rnf DescribeConfigurationRevisionResponse' {..} =+    Prelude.rnf configurationId+      `Prelude.seq` Prelude.rnf created+      `Prelude.seq` Prelude.rnf data'+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,247 @@+{-# 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.MQ.DescribeUser+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about an ActiveMQ user.+module Amazonka.MQ.DescribeUser+  ( -- * Creating a Request+    DescribeUser (..),+    newDescribeUser,++    -- * Request Lenses+    describeUser_username,+    describeUser_brokerId,++    -- * Destructuring the Response+    DescribeUserResponse (..),+    newDescribeUserResponse,++    -- * Response Lenses+    describeUserResponse_brokerId,+    describeUserResponse_consoleAccess,+    describeUserResponse_groups,+    describeUserResponse_pending,+    describeUserResponse_username,+    describeUserResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MQ.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeUser' smart constructor.+data DescribeUser = DescribeUser'+  { -- | The username of the ActiveMQ user. This value can contain only+    -- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+    -- ~). This value must be 2-100 characters long.+    username :: Prelude.Text,+    -- | The unique ID that Amazon MQ generates for the broker.+    brokerId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeUser' with all optional fields 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:+--+-- 'username', 'describeUser_username' - The username of the ActiveMQ user. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 2-100 characters long.+--+-- 'brokerId', 'describeUser_brokerId' - The unique ID that Amazon MQ generates for the broker.+newDescribeUser ::+  -- | 'username'+  Prelude.Text ->+  -- | 'brokerId'+  Prelude.Text ->+  DescribeUser+newDescribeUser pUsername_ pBrokerId_ =+  DescribeUser'+    { username = pUsername_,+      brokerId = pBrokerId_+    }++-- | The username of the ActiveMQ user. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 2-100 characters long.+describeUser_username :: Lens.Lens' DescribeUser Prelude.Text+describeUser_username = Lens.lens (\DescribeUser' {username} -> username) (\s@DescribeUser' {} a -> s {username = a} :: DescribeUser)++-- | The unique ID that Amazon MQ generates for the broker.+describeUser_brokerId :: Lens.Lens' DescribeUser Prelude.Text+describeUser_brokerId = Lens.lens (\DescribeUser' {brokerId} -> brokerId) (\s@DescribeUser' {} a -> s {brokerId = a} :: DescribeUser)++instance Core.AWSRequest DescribeUser where+  type AWSResponse DescribeUser = DescribeUserResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeUserResponse'+            Prelude.<$> (x Data..?> "brokerId")+            Prelude.<*> (x Data..?> "consoleAccess")+            Prelude.<*> (x Data..?> "groups" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "pending")+            Prelude.<*> (x Data..?> "username")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeUser where+  hashWithSalt _salt DescribeUser' {..} =+    _salt+      `Prelude.hashWithSalt` username+      `Prelude.hashWithSalt` brokerId++instance Prelude.NFData DescribeUser where+  rnf DescribeUser' {..} =+    Prelude.rnf username+      `Prelude.seq` Prelude.rnf brokerId++instance Data.ToHeaders DescribeUser where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeUser where+  toPath DescribeUser' {..} =+    Prelude.mconcat+      [ "/v1/brokers/",+        Data.toBS brokerId,+        "/users/",+        Data.toBS username+      ]++instance Data.ToQuery DescribeUser where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeUserResponse' smart constructor.+data DescribeUserResponse = DescribeUserResponse'+  { -- | Required. The unique ID that Amazon MQ generates for the broker.+    brokerId :: Prelude.Maybe Prelude.Text,+    -- | Enables access to the the ActiveMQ Web Console for the ActiveMQ user.+    consoleAccess :: Prelude.Maybe Prelude.Bool,+    -- | The list of groups (20 maximum) to which the ActiveMQ user belongs. This+    -- value can contain only alphanumeric characters, dashes, periods,+    -- underscores, and tildes (- . _ ~). This value must be 2-100 characters+    -- long.+    groups :: Prelude.Maybe [Prelude.Text],+    -- | The status of the changes pending for the ActiveMQ user.+    pending :: Prelude.Maybe UserPendingChanges,+    -- | Required. The username of the ActiveMQ user. This value can contain only+    -- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+    -- ~). This value must be 2-100 characters long.+    username :: 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 'DescribeUserResponse' with all optional fields 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:+--+-- 'brokerId', 'describeUserResponse_brokerId' - Required. The unique ID that Amazon MQ generates for the broker.+--+-- 'consoleAccess', 'describeUserResponse_consoleAccess' - Enables access to the the ActiveMQ Web Console for the ActiveMQ user.+--+-- 'groups', 'describeUserResponse_groups' - The list of groups (20 maximum) to which the ActiveMQ user belongs. This+-- value can contain only alphanumeric characters, dashes, periods,+-- underscores, and tildes (- . _ ~). This value must be 2-100 characters+-- long.+--+-- 'pending', 'describeUserResponse_pending' - The status of the changes pending for the ActiveMQ user.+--+-- 'username', 'describeUserResponse_username' - Required. The username of the ActiveMQ user. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 2-100 characters long.+--+-- 'httpStatus', 'describeUserResponse_httpStatus' - The response's http status code.+newDescribeUserResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeUserResponse+newDescribeUserResponse pHttpStatus_ =+  DescribeUserResponse'+    { brokerId = Prelude.Nothing,+      consoleAccess = Prelude.Nothing,+      groups = Prelude.Nothing,+      pending = Prelude.Nothing,+      username = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Required. The unique ID that Amazon MQ generates for the broker.+describeUserResponse_brokerId :: Lens.Lens' DescribeUserResponse (Prelude.Maybe Prelude.Text)+describeUserResponse_brokerId = Lens.lens (\DescribeUserResponse' {brokerId} -> brokerId) (\s@DescribeUserResponse' {} a -> s {brokerId = a} :: DescribeUserResponse)++-- | Enables access to the the ActiveMQ Web Console for the ActiveMQ user.+describeUserResponse_consoleAccess :: Lens.Lens' DescribeUserResponse (Prelude.Maybe Prelude.Bool)+describeUserResponse_consoleAccess = Lens.lens (\DescribeUserResponse' {consoleAccess} -> consoleAccess) (\s@DescribeUserResponse' {} a -> s {consoleAccess = a} :: DescribeUserResponse)++-- | The list of groups (20 maximum) to which the ActiveMQ user belongs. This+-- value can contain only alphanumeric characters, dashes, periods,+-- underscores, and tildes (- . _ ~). This value must be 2-100 characters+-- long.+describeUserResponse_groups :: Lens.Lens' DescribeUserResponse (Prelude.Maybe [Prelude.Text])+describeUserResponse_groups = Lens.lens (\DescribeUserResponse' {groups} -> groups) (\s@DescribeUserResponse' {} a -> s {groups = a} :: DescribeUserResponse) Prelude.. Lens.mapping Lens.coerced++-- | The status of the changes pending for the ActiveMQ user.+describeUserResponse_pending :: Lens.Lens' DescribeUserResponse (Prelude.Maybe UserPendingChanges)+describeUserResponse_pending = Lens.lens (\DescribeUserResponse' {pending} -> pending) (\s@DescribeUserResponse' {} a -> s {pending = a} :: DescribeUserResponse)++-- | Required. The username of the ActiveMQ user. This value can contain only+-- alphanumeric characters, dashes, periods, underscores, and tildes (- . _+-- ~). This value must be 2-100 characters long.+describeUserResponse_username :: Lens.Lens' DescribeUserResponse (Prelude.Maybe Prelude.Text)+describeUserResponse_username = Lens.lens (\DescribeUserResponse' {username} -> username) (\s@DescribeUserResponse' {} a -> s {username = a} :: DescribeUserResponse)++-- | The response's http status code.+describeUserResponse_httpStatus :: Lens.Lens' DescribeUserResponse Prelude.Int+describeUserResponse_httpStatus = Lens.lens (\DescribeUserResponse' {httpStatus} -> httpStatus) (\s@DescribeUserResponse' {} a -> s {httpStatus = a} :: DescribeUserResponse)++instance Prelude.NFData DescribeUserResponse where+  rnf DescribeUserResponse' {..} =+    Prelude.rnf brokerId+      `Prelude.seq` Prelude.rnf consoleAccess+      `Prelude.seq` Prelude.rnf groups+      `Prelude.seq` Prelude.rnf pending+      `Prelude.seq` Prelude.rnf username+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,433 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MQ.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.MQ.Lens+  ( -- * Operations++    -- ** CreateBroker+    createBroker_authenticationStrategy,+    createBroker_configuration,+    createBroker_creatorRequestId,+    createBroker_encryptionOptions,+    createBroker_ldapServerMetadata,+    createBroker_logs,+    createBroker_maintenanceWindowStartTime,+    createBroker_securityGroups,+    createBroker_storageType,+    createBroker_subnetIds,+    createBroker_tags,+    createBroker_engineVersion,+    createBroker_hostInstanceType,+    createBroker_autoMinorVersionUpgrade,+    createBroker_users,+    createBroker_brokerName,+    createBroker_deploymentMode,+    createBroker_engineType,+    createBroker_publiclyAccessible,+    createBrokerResponse_brokerArn,+    createBrokerResponse_brokerId,+    createBrokerResponse_httpStatus,++    -- ** CreateConfiguration+    createConfiguration_authenticationStrategy,+    createConfiguration_tags,+    createConfiguration_engineVersion,+    createConfiguration_engineType,+    createConfiguration_name,+    createConfigurationResponse_arn,+    createConfigurationResponse_authenticationStrategy,+    createConfigurationResponse_created,+    createConfigurationResponse_id,+    createConfigurationResponse_latestRevision,+    createConfigurationResponse_name,+    createConfigurationResponse_httpStatus,++    -- ** CreateTags+    createTags_tags,+    createTags_resourceArn,++    -- ** CreateUser+    createUser_consoleAccess,+    createUser_groups,+    createUser_username,+    createUser_brokerId,+    createUser_password,+    createUserResponse_httpStatus,++    -- ** DeleteBroker+    deleteBroker_brokerId,+    deleteBrokerResponse_brokerId,+    deleteBrokerResponse_httpStatus,++    -- ** DeleteTags+    deleteTags_tagKeys,+    deleteTags_resourceArn,++    -- ** DeleteUser+    deleteUser_username,+    deleteUser_brokerId,+    deleteUserResponse_httpStatus,++    -- ** DescribeBroker+    describeBroker_brokerId,+    describeBrokerResponse_actionsRequired,+    describeBrokerResponse_authenticationStrategy,+    describeBrokerResponse_autoMinorVersionUpgrade,+    describeBrokerResponse_brokerArn,+    describeBrokerResponse_brokerId,+    describeBrokerResponse_brokerInstances,+    describeBrokerResponse_brokerName,+    describeBrokerResponse_brokerState,+    describeBrokerResponse_configurations,+    describeBrokerResponse_created,+    describeBrokerResponse_deploymentMode,+    describeBrokerResponse_encryptionOptions,+    describeBrokerResponse_engineType,+    describeBrokerResponse_engineVersion,+    describeBrokerResponse_hostInstanceType,+    describeBrokerResponse_ldapServerMetadata,+    describeBrokerResponse_logs,+    describeBrokerResponse_maintenanceWindowStartTime,+    describeBrokerResponse_pendingAuthenticationStrategy,+    describeBrokerResponse_pendingEngineVersion,+    describeBrokerResponse_pendingHostInstanceType,+    describeBrokerResponse_pendingLdapServerMetadata,+    describeBrokerResponse_pendingSecurityGroups,+    describeBrokerResponse_publiclyAccessible,+    describeBrokerResponse_securityGroups,+    describeBrokerResponse_storageType,+    describeBrokerResponse_subnetIds,+    describeBrokerResponse_tags,+    describeBrokerResponse_users,+    describeBrokerResponse_httpStatus,++    -- ** DescribeBrokerEngineTypes+    describeBrokerEngineTypes_engineType,+    describeBrokerEngineTypes_maxResults,+    describeBrokerEngineTypes_nextToken,+    describeBrokerEngineTypesResponse_brokerEngineTypes,+    describeBrokerEngineTypesResponse_maxResults,+    describeBrokerEngineTypesResponse_nextToken,+    describeBrokerEngineTypesResponse_httpStatus,++    -- ** DescribeBrokerInstanceOptions+    describeBrokerInstanceOptions_engineType,+    describeBrokerInstanceOptions_hostInstanceType,+    describeBrokerInstanceOptions_maxResults,+    describeBrokerInstanceOptions_nextToken,+    describeBrokerInstanceOptions_storageType,+    describeBrokerInstanceOptionsResponse_brokerInstanceOptions,+    describeBrokerInstanceOptionsResponse_maxResults,+    describeBrokerInstanceOptionsResponse_nextToken,+    describeBrokerInstanceOptionsResponse_httpStatus,++    -- ** DescribeConfiguration+    describeConfiguration_configurationId,+    describeConfigurationResponse_arn,+    describeConfigurationResponse_authenticationStrategy,+    describeConfigurationResponse_created,+    describeConfigurationResponse_description,+    describeConfigurationResponse_engineType,+    describeConfigurationResponse_engineVersion,+    describeConfigurationResponse_id,+    describeConfigurationResponse_latestRevision,+    describeConfigurationResponse_name,+    describeConfigurationResponse_tags,+    describeConfigurationResponse_httpStatus,++    -- ** DescribeConfigurationRevision+    describeConfigurationRevision_configurationRevision,+    describeConfigurationRevision_configurationId,+    describeConfigurationRevisionResponse_configurationId,+    describeConfigurationRevisionResponse_created,+    describeConfigurationRevisionResponse_data,+    describeConfigurationRevisionResponse_description,+    describeConfigurationRevisionResponse_httpStatus,++    -- ** DescribeUser+    describeUser_username,+    describeUser_brokerId,+    describeUserResponse_brokerId,+    describeUserResponse_consoleAccess,+    describeUserResponse_groups,+    describeUserResponse_pending,+    describeUserResponse_username,+    describeUserResponse_httpStatus,++    -- ** ListBrokers+    listBrokers_maxResults,+    listBrokers_nextToken,+    listBrokersResponse_brokerSummaries,+    listBrokersResponse_nextToken,+    listBrokersResponse_httpStatus,++    -- ** ListConfigurationRevisions+    listConfigurationRevisions_maxResults,+    listConfigurationRevisions_nextToken,+    listConfigurationRevisions_configurationId,+    listConfigurationRevisionsResponse_configurationId,+    listConfigurationRevisionsResponse_maxResults,+    listConfigurationRevisionsResponse_nextToken,+    listConfigurationRevisionsResponse_revisions,+    listConfigurationRevisionsResponse_httpStatus,++    -- ** ListConfigurations+    listConfigurations_maxResults,+    listConfigurations_nextToken,+    listConfigurationsResponse_configurations,+    listConfigurationsResponse_maxResults,+    listConfigurationsResponse_nextToken,+    listConfigurationsResponse_httpStatus,++    -- ** ListTags+    listTags_resourceArn,+    listTagsResponse_tags,+    listTagsResponse_httpStatus,++    -- ** ListUsers+    listUsers_maxResults,+    listUsers_nextToken,+    listUsers_brokerId,+    listUsersResponse_brokerId,+    listUsersResponse_maxResults,+    listUsersResponse_nextToken,+    listUsersResponse_users,+    listUsersResponse_httpStatus,++    -- ** RebootBroker+    rebootBroker_brokerId,+    rebootBrokerResponse_httpStatus,++    -- ** UpdateBroker+    updateBroker_authenticationStrategy,+    updateBroker_autoMinorVersionUpgrade,+    updateBroker_configuration,+    updateBroker_engineVersion,+    updateBroker_hostInstanceType,+    updateBroker_ldapServerMetadata,+    updateBroker_logs,+    updateBroker_maintenanceWindowStartTime,+    updateBroker_securityGroups,+    updateBroker_brokerId,+    updateBrokerResponse_authenticationStrategy,+    updateBrokerResponse_autoMinorVersionUpgrade,+    updateBrokerResponse_brokerId,+    updateBrokerResponse_configuration,+    updateBrokerResponse_engineVersion,+    updateBrokerResponse_hostInstanceType,+    updateBrokerResponse_ldapServerMetadata,+    updateBrokerResponse_logs,+    updateBrokerResponse_maintenanceWindowStartTime,+    updateBrokerResponse_securityGroups,+    updateBrokerResponse_httpStatus,++    -- ** UpdateConfiguration+    updateConfiguration_description,+    updateConfiguration_configurationId,+    updateConfiguration_data,+    updateConfigurationResponse_arn,+    updateConfigurationResponse_created,+    updateConfigurationResponse_id,+    updateConfigurationResponse_latestRevision,+    updateConfigurationResponse_name,+    updateConfigurationResponse_warnings,+    updateConfigurationResponse_httpStatus,++    -- ** UpdateUser+    updateUser_consoleAccess,+    updateUser_groups,+    updateUser_password,+    updateUser_username,+    updateUser_brokerId,+    updateUserResponse_httpStatus,++    -- * Types++    -- ** ActionRequired+    actionRequired_actionRequiredCode,+    actionRequired_actionRequiredInfo,++    -- ** AvailabilityZone+    availabilityZone_name,++    -- ** BrokerEngineType+    brokerEngineType_engineType,+    brokerEngineType_engineVersions,++    -- ** BrokerInstance+    brokerInstance_consoleURL,+    brokerInstance_endpoints,+    brokerInstance_ipAddress,++    -- ** BrokerInstanceOption+    brokerInstanceOption_availabilityZones,+    brokerInstanceOption_engineType,+    brokerInstanceOption_hostInstanceType,+    brokerInstanceOption_storageType,+    brokerInstanceOption_supportedDeploymentModes,+    brokerInstanceOption_supportedEngineVersions,++    -- ** BrokerSummary+    brokerSummary_brokerArn,+    brokerSummary_brokerId,+    brokerSummary_brokerName,+    brokerSummary_brokerState,+    brokerSummary_created,+    brokerSummary_hostInstanceType,+    brokerSummary_deploymentMode,+    brokerSummary_engineType,++    -- ** Configuration+    configuration_tags,+    configuration_description,+    configuration_engineVersion,+    configuration_latestRevision,+    configuration_authenticationStrategy,+    configuration_engineType,+    configuration_id,+    configuration_arn,+    configuration_name,+    configuration_created,++    -- ** ConfigurationId+    configurationId_revision,+    configurationId_id,++    -- ** ConfigurationRevision+    configurationRevision_description,+    configurationRevision_revision,+    configurationRevision_created,++    -- ** Configurations+    configurations_current,+    configurations_history,+    configurations_pending,++    -- ** EncryptionOptions+    encryptionOptions_kmsKeyId,+    encryptionOptions_useAwsOwnedKey,++    -- ** EngineVersion+    engineVersion_name,++    -- ** LdapServerMetadataInput+    ldapServerMetadataInput_roleName,+    ldapServerMetadataInput_roleSearchSubtree,+    ldapServerMetadataInput_userRoleName,+    ldapServerMetadataInput_userSearchSubtree,+    ldapServerMetadataInput_hosts,+    ldapServerMetadataInput_userSearchMatching,+    ldapServerMetadataInput_userBase,+    ldapServerMetadataInput_roleSearchMatching,+    ldapServerMetadataInput_serviceAccountUsername,+    ldapServerMetadataInput_roleBase,+    ldapServerMetadataInput_serviceAccountPassword,++    -- ** LdapServerMetadataOutput+    ldapServerMetadataOutput_roleName,+    ldapServerMetadataOutput_roleSearchSubtree,+    ldapServerMetadataOutput_userRoleName,+    ldapServerMetadataOutput_userSearchSubtree,+    ldapServerMetadataOutput_hosts,+    ldapServerMetadataOutput_userSearchMatching,+    ldapServerMetadataOutput_userBase,+    ldapServerMetadataOutput_roleSearchMatching,+    ldapServerMetadataOutput_serviceAccountUsername,+    ldapServerMetadataOutput_roleBase,++    -- ** Logs+    logs_audit,+    logs_general,++    -- ** LogsSummary+    logsSummary_audit,+    logsSummary_auditLogGroup,+    logsSummary_pending,+    logsSummary_generalLogGroup,+    logsSummary_general,++    -- ** PendingLogs+    pendingLogs_audit,+    pendingLogs_general,++    -- ** SanitizationWarning+    sanitizationWarning_attributeName,+    sanitizationWarning_elementName,+    sanitizationWarning_reason,++    -- ** User+    user_consoleAccess,+    user_groups,+    user_username,+    user_password,++    -- ** UserPendingChanges+    userPendingChanges_consoleAccess,+    userPendingChanges_groups,+    userPendingChanges_pendingChange,++    -- ** UserSummary+    userSummary_pendingChange,+    userSummary_username,++    -- ** WeeklyStartTime+    weeklyStartTime_timeZone,+    weeklyStartTime_timeOfDay,+    weeklyStartTime_dayOfWeek,+  )+where++import Amazonka.MQ.CreateBroker+import Amazonka.MQ.CreateConfiguration+import Amazonka.MQ.CreateTags+import Amazonka.MQ.CreateUser+import Amazonka.MQ.DeleteBroker+import Amazonka.MQ.DeleteTags+import Amazonka.MQ.DeleteUser+import Amazonka.MQ.DescribeBroker+import Amazonka.MQ.DescribeBrokerEngineTypes+import Amazonka.MQ.DescribeBrokerInstanceOptions+import Amazonka.MQ.DescribeConfiguration+import Amazonka.MQ.DescribeConfigurationRevision+import Amazonka.MQ.DescribeUser+import Amazonka.MQ.ListBrokers+import Amazonka.MQ.ListConfigurationRevisions+import Amazonka.MQ.ListConfigurations+import Amazonka.MQ.ListTags+import Amazonka.MQ.ListUsers+import Amazonka.MQ.RebootBroker+import Amazonka.MQ.Types.ActionRequired+import Amazonka.MQ.Types.AvailabilityZone+import Amazonka.MQ.Types.BrokerEngineType+import Amazonka.MQ.Types.BrokerInstance+import Amazonka.MQ.Types.BrokerInstanceOption+import Amazonka.MQ.Types.BrokerSummary+import Amazonka.MQ.Types.Configuration+import Amazonka.MQ.Types.ConfigurationId+import Amazonka.MQ.Types.ConfigurationRevision+import Amazonka.MQ.Types.Configurations+import Amazonka.MQ.Types.EncryptionOptions+import Amazonka.MQ.Types.EngineVersion+import Amazonka.MQ.Types.LdapServerMetadataInput+import Amazonka.MQ.Types.LdapServerMetadataOutput+import Amazonka.MQ.Types.Logs+import Amazonka.MQ.Types.LogsSummary+import Amazonka.MQ.Types.PendingLogs+import Amazonka.MQ.Types.SanitizationWarning+import Amazonka.MQ.Types.User+import Amazonka.MQ.Types.UserPendingChanges+import Amazonka.MQ.Types.UserSummary+import Amazonka.MQ.Types.WeeklyStartTime+import Amazonka.MQ.UpdateBroker+import Amazonka.MQ.UpdateConfiguration+import Amazonka.MQ.UpdateUser