amazonka-sqs 1.6.1 → 2.0

raw patch · 108 files changed

+10218/−5108 lines, 108 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-sqs.cabal +105/−94
• fixture/AddPermission.yaml +10/−0
• fixture/AddPermissionResponse.proto +0/−7
• fixture/ChangeMessageVisibility.yaml +4/−4
• fixture/ChangeMessageVisibilityBatch.yaml +4/−4
• fixture/ChangeMessageVisibilityBatchResponse.proto +0/−13
• fixture/ChangeMessageVisibilityResponse.proto +0/−7
• fixture/CreateQueue.yaml +10/−0
• fixture/CreateQueueResponse.proto +0/−13
• fixture/DeleteMessage.yaml +10/−0
• fixture/DeleteMessageBatch.yaml +10/−0
• fixture/DeleteMessageBatchResponse.proto +0/−13
• fixture/DeleteMessageResponse.proto +0/−7
• fixture/DeleteQueue.yaml +10/−0
• fixture/DeleteQueueResponse.proto +0/−7
• fixture/GetQueueAttributes.yaml +10/−0
• fixture/GetQueueAttributesResponse.proto +0/−43
• fixture/GetQueueURL.yaml +0/−0
• fixture/GetQueueURLResponse.proto +0/−8
• fixture/GetQueueUrl.yaml +10/−0
• fixture/GetQueueUrlResponse.proto +0/−0
• fixture/ListDeadLetterSourceQueues.yaml +10/−0
• fixture/ListDeadLetterSourceQueuesResponse.proto +0/−8
• fixture/ListQueues.yaml +10/−0
• fixture/ListQueuesResponse.proto +0/−12
• fixture/PurgeQueue.yaml +10/−0
• fixture/PurgeQueueResponse.proto +0/−7
• fixture/ReceiveMessage.yaml +10/−0
• fixture/ReceiveMessageResponse.proto +0/−29
• fixture/RemovePermission.yaml +10/−0
• fixture/RemovePermissionResponse.proto +0/−7
• fixture/SendMessage.yaml +4/−4
• fixture/SendMessageBatch.yaml +10/−0
• fixture/SendMessageBatchResponse.proto +0/−18
• fixture/SendMessageResponse.proto +0/−12
• fixture/SetQueueAttributes.yaml +10/−0
• fixture/SetQueueAttributesResponse.proto +0/−7
• gen/Amazonka/SQS.hs +335/−0
• gen/Amazonka/SQS/AddPermission.hs +257/−0
• gen/Amazonka/SQS/ChangeMessageVisibility.hs +233/−0
• gen/Amazonka/SQS/ChangeMessageVisibilityBatch.hs +231/−0
• gen/Amazonka/SQS/CreateQueue.hs +823/−0
• gen/Amazonka/SQS/DeleteMessage.hs +168/−0
• gen/Amazonka/SQS/DeleteMessageBatch.hs +214/−0
• gen/Amazonka/SQS/DeleteQueue.hs +142/−0
• gen/Amazonka/SQS/GetQueueAttributes.hs +618/−0
• gen/Amazonka/SQS/GetQueueUrl.hs +204/−0
• gen/Amazonka/SQS/Lens.hs +235/−0
• gen/Amazonka/SQS/ListDeadLetterSourceQueues.hs +265/−0
• gen/Amazonka/SQS/ListQueueTags.hs +164/−0
• gen/Amazonka/SQS/ListQueues.hs +262/−0
• gen/Amazonka/SQS/PurgeQueue.hs +140/−0
• gen/Amazonka/SQS/ReceiveMessage.hs +707/−0
• gen/Amazonka/SQS/RemovePermission.hs +163/−0
• gen/Amazonka/SQS/SendMessage.hs +704/−0
• gen/Amazonka/SQS/SendMessageBatch.hs +235/−0
• gen/Amazonka/SQS/SetQueueAttributes.hs +605/−0
• gen/Amazonka/SQS/TagQueue.hs +156/−0
• gen/Amazonka/SQS/Types.hs +353/−0
• gen/Amazonka/SQS/Types/BatchResultErrorEntry.hs +114/−0
• gen/Amazonka/SQS/Types/ChangeMessageVisibilityBatchRequestEntry.hs +141/−0
• gen/Amazonka/SQS/Types/ChangeMessageVisibilityBatchResultEntry.hs +81/−0
• gen/Amazonka/SQS/Types/DeleteMessageBatchRequestEntry.hs +113/−0
• gen/Amazonka/SQS/Types/DeleteMessageBatchResultEntry.hs +70/−0
• gen/Amazonka/SQS/Types/Message.hs +238/−0
• gen/Amazonka/SQS/Types/MessageAttribute.hs +86/−0
• gen/Amazonka/SQS/Types/MessageAttributeValue.hs +187/−0
• gen/Amazonka/SQS/Types/MessageSystemAttributeNameForSends.hs +66/−0
• gen/Amazonka/SQS/Types/MessageSystemAttributeValue.hs +167/−0
• gen/Amazonka/SQS/Types/QueueAttributeName.hs +171/−0
• gen/Amazonka/SQS/Types/SendMessageBatchRequestEntry.hs +474/−0
• gen/Amazonka/SQS/Types/SendMessageBatchResultEntry.hs +193/−0
• gen/Amazonka/SQS/UntagQueue.hs +142/−0
• gen/Amazonka/SQS/Waiters.hs +24/−0
• gen/Network/AWS/SQS.hs +0/−303
• gen/Network/AWS/SQS/AddPermission.hs +0/−139
• gen/Network/AWS/SQS/ChangeMessageVisibility.hs +0/−140
• gen/Network/AWS/SQS/ChangeMessageVisibilityBatch.hs +0/−167
• gen/Network/AWS/SQS/CreateQueue.hs +0/−162
• gen/Network/AWS/SQS/DeleteMessage.hs +0/−115
• gen/Network/AWS/SQS/DeleteMessageBatch.hs +0/−159
• gen/Network/AWS/SQS/DeleteQueue.hs +0/−110
• gen/Network/AWS/SQS/GetQueueAttributes.hs +0/−145
• gen/Network/AWS/SQS/GetQueueURL.hs +0/−147
• gen/Network/AWS/SQS/ListDeadLetterSourceQueues.hs +0/−139
• gen/Network/AWS/SQS/ListQueueTags.hs +0/−141
• gen/Network/AWS/SQS/ListQueues.hs +0/−132
• gen/Network/AWS/SQS/PurgeQueue.hs +0/−108
• gen/Network/AWS/SQS/ReceiveMessage.hs +0/−224
• gen/Network/AWS/SQS/RemovePermission.hs +0/−114
• gen/Network/AWS/SQS/SendMessage.hs +0/−227
• gen/Network/AWS/SQS/SendMessageBatch.hs +0/−168
• gen/Network/AWS/SQS/SetQueueAttributes.hs +0/−115
• gen/Network/AWS/SQS/TagQueue.hs +0/−125
• gen/Network/AWS/SQS/Types.hs +0/−290
• gen/Network/AWS/SQS/Types/Product.hs +0/−620
• gen/Network/AWS/SQS/Types/Sum.hs +0/−131
• gen/Network/AWS/SQS/UntagQueue.hs +0/−126
• gen/Network/AWS/SQS/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/SQS.hs +0/−399
• test/Test/AWS/SQS.hs +0/−86
• test/Test/AWS/SQS/Internal.hs +0/−16
• test/Test/Amazonka/Gen/SQS.hs +438/−0
• test/Test/Amazonka/SQS.hs +20/−0
• test/Test/Amazonka/SQS/Internal.hs +8/−0

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

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

@@ -1,105 +1,116 @@-name:                  amazonka-sqs-version:               1.6.1-synopsis:              Amazon Simple Queue Service 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-sqs+version:            2.0+synopsis:           Amazon Simple Queue Service 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.SQS" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2012-11-05@ 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.SQS.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.SQS" 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-sqs+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-sqs  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.SQS-        , Network.AWS.SQS.AddPermission-        , Network.AWS.SQS.ChangeMessageVisibility-        , Network.AWS.SQS.ChangeMessageVisibilityBatch-        , Network.AWS.SQS.CreateQueue-        , Network.AWS.SQS.DeleteMessage-        , Network.AWS.SQS.DeleteMessageBatch-        , Network.AWS.SQS.DeleteQueue-        , Network.AWS.SQS.GetQueueAttributes-        , Network.AWS.SQS.GetQueueURL-        , Network.AWS.SQS.ListDeadLetterSourceQueues-        , Network.AWS.SQS.ListQueueTags-        , Network.AWS.SQS.ListQueues-        , Network.AWS.SQS.PurgeQueue-        , Network.AWS.SQS.ReceiveMessage-        , Network.AWS.SQS.RemovePermission-        , Network.AWS.SQS.SendMessage-        , Network.AWS.SQS.SendMessageBatch-        , Network.AWS.SQS.SetQueueAttributes-        , Network.AWS.SQS.TagQueue-        , Network.AWS.SQS.Types-        , Network.AWS.SQS.UntagQueue-        , Network.AWS.SQS.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.SQS.Types.Product-        , Network.AWS.SQS.Types.Sum+  exposed-modules:+    Amazonka.SQS+    Amazonka.SQS.AddPermission+    Amazonka.SQS.ChangeMessageVisibility+    Amazonka.SQS.ChangeMessageVisibilityBatch+    Amazonka.SQS.CreateQueue+    Amazonka.SQS.DeleteMessage+    Amazonka.SQS.DeleteMessageBatch+    Amazonka.SQS.DeleteQueue+    Amazonka.SQS.GetQueueAttributes+    Amazonka.SQS.GetQueueUrl+    Amazonka.SQS.Lens+    Amazonka.SQS.ListDeadLetterSourceQueues+    Amazonka.SQS.ListQueues+    Amazonka.SQS.ListQueueTags+    Amazonka.SQS.PurgeQueue+    Amazonka.SQS.ReceiveMessage+    Amazonka.SQS.RemovePermission+    Amazonka.SQS.SendMessage+    Amazonka.SQS.SendMessageBatch+    Amazonka.SQS.SetQueueAttributes+    Amazonka.SQS.TagQueue+    Amazonka.SQS.Types+    Amazonka.SQS.Types.BatchResultErrorEntry+    Amazonka.SQS.Types.ChangeMessageVisibilityBatchRequestEntry+    Amazonka.SQS.Types.ChangeMessageVisibilityBatchResultEntry+    Amazonka.SQS.Types.DeleteMessageBatchRequestEntry+    Amazonka.SQS.Types.DeleteMessageBatchResultEntry+    Amazonka.SQS.Types.Message+    Amazonka.SQS.Types.MessageAttribute+    Amazonka.SQS.Types.MessageAttributeValue+    Amazonka.SQS.Types.MessageSystemAttributeNameForSends+    Amazonka.SQS.Types.MessageSystemAttributeValue+    Amazonka.SQS.Types.QueueAttributeName+    Amazonka.SQS.Types.SendMessageBatchRequestEntry+    Amazonka.SQS.Types.SendMessageBatchResultEntry+    Amazonka.SQS.UntagQueue+    Amazonka.SQS.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-sqs-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.SQS-        , Test.AWS.Gen.SQS-        , Test.AWS.SQS.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.SQS+    Test.Amazonka.SQS+    Test.Amazonka.SQS.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-sqs-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-sqs+    , 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/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,7 +0,0 @@-<AddPermissionResponse>-    <ResponseMetadata>-        <RequestId>-            9a285199-c8d6-47c2-bdb2-314cb47d599d-        </RequestId>-    </ResponseMetadata>-</AddPermissionResponse>

@@ -1,10 +1,10 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=b393290eebc303b082c1a74c3db16894808c511b131d8a259bc2673c0ec8e6e9-  Host:                  queue.amazonaws.com+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8-  X-Amz-Content-SHA256:  d7e854ec540d9651bbb8cdaeac6aca36b2c91fe5631d1d118b0267cf6b956a50+  X-Amz-Content-SHA256:  abcdef   X-Amz-Date:            20091028T223200Z body:-  Action=ChangeMessageVisibility&QueueUrl=http%3A%2F%2Fsqs.us-east-1.amazonaws.com%2F123456789012%2FtestQueue%2F&ReceiptHandle=MbZli%2BJvwwJaBV%2B3dcjk2W2vA3%2BSTFFljTJg6HYSasuWXPJB%2FWeR4mq21A2x%2FKSbkJ0%3D&Version=2012-11-05&VisibilityTimeout=60+  ''

@@ -1,10 +1,10 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=961fab18f46355378a4215ea705adc736b6fef6bbad03c963ebb5dd7bf9057a1-  Host:                  queue.amazonaws.com+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8-  X-Amz-Content-SHA256:  e10aab72f59365b32e14236ee9d29639661b8e9b6d593cfe73ca61b356aa3085+  X-Amz-Content-SHA256:  abcdef   X-Amz-Date:            20091028T223200Z body:-  Action=ChangeMessageVisibilityBatch&ChangeMessageVisibilityBatchRequestEntry.1.Id=change_visibility_msg_2&ChangeMessageVisibilityBatchRequestEntry.1.ReceiptHandle=MbZli%2BJvwwJaBV%2B3dcjk2W2vA3%2BSTFFljTJg6HYSasuWXPJB%2FWeR4mq21A2x%2FKSbkJ0%3D&ChangeMessageVisibilityBatchRequestEntry.1.VisibilityTimeout=45&ChangeMessageVisibilityBatchRequestEntry.2.Id=change_visibility_msg_3&ChangeMessageVisibilityBatchRequestEntry.2.ReceiptHandle=MbZli%2BJvwwJaBV%2B3dcjk2W2vA3%2BSTFFljTJg6HYSasuWXPJB%2FWeR4mq21A2x%2FKSbkJ0%3D&ChangeMessageVisibilityBatchRequestEntry.2.VisibilityTimeout=45&QueueUrl=http%3A%2F%2Fsqs.us-east-1.amazonaws.com%2F123456789012%2FtestQueue%2F&Version=2012-11-05+  ''

@@ -1,13 +0,0 @@-<ChangeMessageVisibilityBatchResponse>-    <ChangeMessageVisibilityBatchResult>-        <ChangeMessageVisibilityBatchResultEntry>-            <Id>change_visibility_msg_2</Id>-        </ChangeMessageVisibilityBatchResultEntry>-        <ChangeMessageVisibilityBatchResultEntry>-            <Id>change_visibility_msg_3</Id>-        </ChangeMessageVisibilityBatchResultEntry>-    </ChangeMessageVisibilityBatchResult>-    <ResponseMetadata>-        <RequestId>ca9668f7-ab1b-4f7a-8859-f15747ab17a7</RequestId>-    </ResponseMetadata>-</ChangeMessageVisibilityBatchResponse>

@@ -1,7 +0,0 @@-<ChangeMessageVisibilityResponse>-    <ResponseMetadata>-        <RequestId>-            6a7a282a-d013-4a59-aba9-335b0fa48bed-        </RequestId>-    </ResponseMetadata>-</ChangeMessageVisibilityResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,13 +0,0 @@-<CreateQueueResponse>-    <CreateQueueResult>-        <QueueUrl>-            http://&useast1-query;/123456789012/testQueue-        </QueueUrl>-    </CreateQueueResult>-    <ResponseMetadata>-        <RequestId>-            7a62c49f-347e-4fc4-9331-6e8e7a96aa73-        </RequestId>-    </ResponseMetadata>-</CreateQueueResponse>-

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,13 +0,0 @@-<DeleteMessageBatchResponse>-    <DeleteMessageBatchResult>-        <DeleteMessageBatchResultEntry>-            <Id>msg1</Id>-        </DeleteMessageBatchResultEntry>-        <DeleteMessageBatchResultEntry>-            <Id>msg2</Id>-        </DeleteMessageBatchResultEntry>-    </DeleteMessageBatchResult>-    <ResponseMetadata>-        <RequestId>d6f86b7a-74d1-4439-b43f-196a1e29cd85</RequestId>-    </ResponseMetadata>-</DeleteMessageBatchResponse>

@@ -1,7 +0,0 @@-<DeleteMessageResponse>-    <ResponseMetadata>-        <RequestId>-            b5293cb5-d306-4a17-9048-b263635abe42-        </RequestId>-    </ResponseMetadata>-</DeleteMessageResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,7 +0,0 @@-<DeleteQueueResponse>-    <ResponseMetadata>-        <RequestId>-            6fde8d1e-52cd-4581-8cd9-c512f4c64223-        </RequestId>-    </ResponseMetadata>-</DeleteQueueResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,43 +0,0 @@-<GetQueueAttributesResponse>-  <GetQueueAttributesResult>-    <Attribute>-      <Name>ReceiveMessageWaitTimeSeconds</Name>-      <Value>2</Value>-    </Attribute>-    <Attribute>-      <Name>VisibilityTimeout</Name>-      <Value>30</Value>-    </Attribute>-    <Attribute>-      <Name>ApproximateNumberOfMessages</Name>-      <Value>0</Value>-    </Attribute>-    <Attribute>-      <Name>ApproximateNumberOfMessagesNotVisible</Name>-      <Value>0</Value>-    </Attribute>-    <Attribute>-      <Name>CreatedTimestamp</Name>-      <Value>1286771522</Value>-    </Attribute>-    <Attribute>-      <Name>LastModifiedTimestamp</Name>-      <Value>1286771522</Value>-    </Attribute>-    <Attribute>-      <Name>QueueArn</Name>-      <Value>arn:aws:sqs:us-east-1:123456789012:qfoo</Value>-    </Attribute>-    <Attribute>-      <Name>MaximumMessageSize</Name>-      <Value>8192</Value>-    </Attribute>-    <Attribute>-      <Name>MessageRetentionPeriod</Name>-      <Value>345600</Value>-    </Attribute>-  </GetQueueAttributesResult>-  <ResponseMetadata>-    <RequestId>1ea71be5-b5a2-4f9d-b85a-945d8d08cd0b</RequestId>-  </ResponseMetadata>-</GetQueueAttributesResponse>

@@ -1,8 +0,0 @@-<GetQueueUrlResponse>-    <GetQueueUrlResult>-        <QueueUrl>http://sqs.us-east-1.amazonaws.com/123456789012/testQueue/</QueueUrl>-    </GetQueueUrlResult>-    <ResponseMetadata>-        <RequestId>470a6f13-2ed9-4181-ad8a-2fdea142988e</RequestId>-    </ResponseMetadata>-</GetQueueUrlResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,8 +0,0 @@-<ListDeadLetterSourceQueuesResponse xmlns="http://queue.amazonaws.com/doc/2012-11-05/">-    <ListDeadLetterSourceQueuesResult>-        <QueueUrl>http://sqs.us-east-1.amazonaws.com/123456789012/MySourceQueue</QueueUrl>-    </ListDeadLetterSourceQueuesResult>-    <ResponseMetadata>-        <RequestId>8ffb921f-b85e-53d9-abcf-d8d0057f38fc</RequestId>-    </ResponseMetadata>-</ListDeadLetterSourceQueuesResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,12 +0,0 @@-<ListQueuesResponse>-    <ListQueuesResult>-        <QueueUrl>-            http://sqs.us-east-1.amazonaws.com/123456789012/testQueue-        </QueueUrl>-    </ListQueuesResult>-    <ResponseMetadata>-        <RequestId>-            725275ae-0b9b-4762-b238-436d7c65a1ac-        </RequestId>-    </ResponseMetadata>-</ListQueuesResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,7 +0,0 @@-<PurgeQueueResponse>-    <ResponseMetadata>-        <RequestId>-            6fde8d1e-52cd-4581-8cd9-c512f4c64223-        </RequestId>-    </ResponseMetadata>-</PurgeQueueResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,29 +0,0 @@-<ReceiveMessageResponse>-  <ReceiveMessageResult>-    <Message>-      <MessageId>5fea7756-0ea4-451a-a703-a558b933e274</MessageId>-      <ReceiptHandle>MbZj6wDWli+JvwwJaBV+3dcjk2YW2vA3+STFFljTM8tJJg6HRG6PYSasuWXPJB+CwLj1FjgXUv1uSj1gUPAWV66FU/WeR4mq2OKpEGYWbnLmpRCJVAyeMjeU5ZBdtcQ+QEauMZc8ZRv37sIW2iJKq3M9MFx1YvV11A2x/KSbkJ0=</ReceiptHandle>-      <MD5OfBody>fafb00f5732ab283681e124bf8747ed1</MD5OfBody>-      <Body>This is a test message</Body>-      <Attribute>-        <Name>SenderId</Name>-        <Value>195004372649</Value>-      </Attribute>-      <Attribute>-        <Name>SentTimestamp</Name>-        <Value>1238099229000</Value>-      </Attribute>-      <Attribute>-        <Name>ApproximateReceiveCount</Name>-        <Value>5</Value>-      </Attribute>-      <Attribute>-        <Name>ApproximateFirstReceiveTimestamp</Name>-        <Value>1250700979248</Value>-      </Attribute>-    </Message>-  </ReceiveMessageResult>-  <ResponseMetadata>-    <RequestId>b6633655-283d-45b4-aee4-4e84e0ae6afa</RequestId>-  </ResponseMetadata>-</ReceiveMessageResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,7 +0,0 @@-<RemovePermissionResponse>-    <ResponseMetadata>-        <RequestId>-            f8bdb362-6616-42c0-977a-ce9a8bcce3bb-        </RequestId>-    </ResponseMetadata>-</RemovePermissionResponse>

@@ -1,10 +1,10 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=8faa844de01cde8f962d4ee6a4999d1f71af8c2aa062cfb66c259f84a12a7314-  Host:                  queue.amazonaws.com+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8-  X-Amz-Content-SHA256:  f2d70aeaa05157f45a6ac8613342e77d8e76f8ce5e5090eba0173592792c6e71+  X-Amz-Content-SHA256:  abcdef   X-Amz-Date:            20091028T223200Z body:-  Action=SendMessage&MessageAttribute.1.Name=test_attribute_name_1&MessageAttribute.1.Value.DataType=String&MessageAttribute.1.Value.StringValue=test_attribute_value_1&MessageAttribute.2.Name=test_attribute_name_2&MessageAttribute.2.Value.DataType=String&MessageAttribute.2.Value.StringValue=test_attribute_value_2&MessageBody=This%2Bis%2Ba%2Btest%2Bmessage&QueueUrl=http%3A%2F%2Fsqs.us-east-1.amazonaws.com%2F123456789012%2FtestQueue%2F&Version=2012-11-05+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,18 +0,0 @@-<SendMessageBatchResponse>-    <SendMessageBatchResult>-        <SendMessageBatchResultEntry>-            <Id>test_msg_001</Id>-            <MessageId>0a5231c7-8bff-4955-be2e-8dc7c50a25fa</MessageId>-            <MD5OfMessageBody>0e024d309850c78cba5eabbeff7cae71</MD5OfMessageBody>-        </SendMessageBatchResultEntry>-        <SendMessageBatchResultEntry>-            <Id>test_msg_002</Id>-            <MessageId>15ee1ed3-87e7-40c1-bdaa-2e49968ea7e9</MessageId>-            <MD5OfMessageBody>7fb8146a82f95e0af155278f406862c2</MD5OfMessageBody>-            <MD5OfMessageAttributes>295c5fa15a51aae6884d1d7c1d99ca50</MD5OfMessageAttributes>-        </SendMessageBatchResultEntry>-    </SendMessageBatchResult>-    <ResponseMetadata>-        <RequestId>ca1ad5d0-8271-408b-8d0f-1351bf547e74</RequestId>-    </ResponseMetadata>-</SendMessageBatchResponse>

@@ -1,12 +0,0 @@-<SendMessageResponse>-    <SendMessageResult>-        <MD5OfMessageBody>fafb00f5732ab283681e124bf8747ed1</MD5OfMessageBody>-        <MD5OfMessageAttributes>3ae8f24a165a8cedc005670c81a27295</MD5OfMessageAttributes>-        <MessageId>5fea7756-0ea4-451a-a703-a558b933e274</MessageId>-    </SendMessageResult>-    <ResponseMetadata>-        <RequestId>-            27daac76-34dd-47df-bd01-1f6e873584a0-        </RequestId>-    </ResponseMetadata>-</SendMessageResponse>

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/sqs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  sqs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,7 +0,0 @@-<SetQueueAttributesResponse>-    <ResponseMetadata>-        <RequestId>-            e5cca473-4fc0-4198-a451-8abb94d02c75-        </RequestId>-    </ResponseMetadata>-</SetQueueAttributesResponse>

@@ -0,0 +1,335 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.SQS+-- 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 @2012-11-05@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Welcome to the /Amazon SQS API Reference/.+--+-- Amazon SQS is a reliable, highly-scalable hosted queue for storing+-- messages as they travel between applications or microservices. Amazon+-- SQS moves data between distributed application components and helps you+-- decouple these components.+--+-- For information on the permissions you need to use this API, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-authentication-and-access-control.html Identity and access management>+-- in the /Amazon SQS Developer Guide./+--+-- You can use <http://aws.amazon.com/tools/#sdk Amazon Web Services SDKs>+-- to access Amazon SQS using your favorite programming language. The SDKs+-- perform tasks such as the following automatically:+--+-- -   Cryptographically sign your service requests+--+-- -   Retry requests+--+-- -   Handle error responses+--+-- __Additional information__+--+-- -   <http://aws.amazon.com/sqs/ Amazon SQS Product Page>+--+-- -   /Amazon SQS Developer Guide/+--+--     -   <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-making-api-requests.html Making API Requests>+--+--     -   <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-message-metadata.html#sqs-message-attributes Amazon SQS Message Attributes>+--+--     -   <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-dead-letter-queues.html Amazon SQS Dead-Letter Queues>+--+-- -   <http://docs.aws.amazon.com/cli/latest/reference/sqs/index.html Amazon SQS in the Command Line Interface>+--+-- -   /Amazon Web Services General Reference/+--+--     -   <https://docs.aws.amazon.com/general/latest/gr/rande.html#sqs_region Regions and Endpoints>+module Amazonka.SQS+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** BatchEntryIdsNotDistinct+    _BatchEntryIdsNotDistinct,++    -- ** BatchRequestTooLong+    _BatchRequestTooLong,++    -- ** EmptyBatchRequest+    _EmptyBatchRequest,++    -- ** InvalidAttributeName+    _InvalidAttributeName,++    -- ** InvalidBatchEntryId+    _InvalidBatchEntryId,++    -- ** InvalidIdFormat+    _InvalidIdFormat,++    -- ** InvalidMessageContents+    _InvalidMessageContents,++    -- ** MessageNotInflight+    _MessageNotInflight,++    -- ** OverLimit+    _OverLimit,++    -- ** PurgeQueueInProgress+    _PurgeQueueInProgress,++    -- ** QueueDeletedRecently+    _QueueDeletedRecently,++    -- ** QueueDoesNotExist+    _QueueDoesNotExist,++    -- ** QueueNameExists+    _QueueNameExists,++    -- ** ReceiptHandleIsInvalid+    _ReceiptHandleIsInvalid,++    -- ** TooManyEntriesInBatchRequest+    _TooManyEntriesInBatchRequest,++    -- ** UnsupportedOperation+    _UnsupportedOperation,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** AddPermission+    AddPermission (AddPermission'),+    newAddPermission,+    AddPermissionResponse (AddPermissionResponse'),+    newAddPermissionResponse,++    -- ** ChangeMessageVisibility+    ChangeMessageVisibility (ChangeMessageVisibility'),+    newChangeMessageVisibility,+    ChangeMessageVisibilityResponse (ChangeMessageVisibilityResponse'),+    newChangeMessageVisibilityResponse,++    -- ** ChangeMessageVisibilityBatch+    ChangeMessageVisibilityBatch (ChangeMessageVisibilityBatch'),+    newChangeMessageVisibilityBatch,+    ChangeMessageVisibilityBatchResponse (ChangeMessageVisibilityBatchResponse'),+    newChangeMessageVisibilityBatchResponse,++    -- ** CreateQueue+    CreateQueue (CreateQueue'),+    newCreateQueue,+    CreateQueueResponse (CreateQueueResponse'),+    newCreateQueueResponse,++    -- ** DeleteMessage+    DeleteMessage (DeleteMessage'),+    newDeleteMessage,+    DeleteMessageResponse (DeleteMessageResponse'),+    newDeleteMessageResponse,++    -- ** DeleteMessageBatch+    DeleteMessageBatch (DeleteMessageBatch'),+    newDeleteMessageBatch,+    DeleteMessageBatchResponse (DeleteMessageBatchResponse'),+    newDeleteMessageBatchResponse,++    -- ** DeleteQueue+    DeleteQueue (DeleteQueue'),+    newDeleteQueue,+    DeleteQueueResponse (DeleteQueueResponse'),+    newDeleteQueueResponse,++    -- ** GetQueueAttributes+    GetQueueAttributes (GetQueueAttributes'),+    newGetQueueAttributes,+    GetQueueAttributesResponse (GetQueueAttributesResponse'),+    newGetQueueAttributesResponse,++    -- ** GetQueueUrl+    GetQueueUrl (GetQueueUrl'),+    newGetQueueUrl,+    GetQueueUrlResponse (GetQueueUrlResponse'),+    newGetQueueUrlResponse,++    -- ** ListDeadLetterSourceQueues (Paginated)+    ListDeadLetterSourceQueues (ListDeadLetterSourceQueues'),+    newListDeadLetterSourceQueues,+    ListDeadLetterSourceQueuesResponse (ListDeadLetterSourceQueuesResponse'),+    newListDeadLetterSourceQueuesResponse,++    -- ** ListQueueTags+    ListQueueTags (ListQueueTags'),+    newListQueueTags,+    ListQueueTagsResponse (ListQueueTagsResponse'),+    newListQueueTagsResponse,++    -- ** ListQueues (Paginated)+    ListQueues (ListQueues'),+    newListQueues,+    ListQueuesResponse (ListQueuesResponse'),+    newListQueuesResponse,++    -- ** PurgeQueue+    PurgeQueue (PurgeQueue'),+    newPurgeQueue,+    PurgeQueueResponse (PurgeQueueResponse'),+    newPurgeQueueResponse,++    -- ** ReceiveMessage+    ReceiveMessage (ReceiveMessage'),+    newReceiveMessage,+    ReceiveMessageResponse (ReceiveMessageResponse'),+    newReceiveMessageResponse,++    -- ** RemovePermission+    RemovePermission (RemovePermission'),+    newRemovePermission,+    RemovePermissionResponse (RemovePermissionResponse'),+    newRemovePermissionResponse,++    -- ** SendMessage+    SendMessage (SendMessage'),+    newSendMessage,+    SendMessageResponse (SendMessageResponse'),+    newSendMessageResponse,++    -- ** SendMessageBatch+    SendMessageBatch (SendMessageBatch'),+    newSendMessageBatch,+    SendMessageBatchResponse (SendMessageBatchResponse'),+    newSendMessageBatchResponse,++    -- ** SetQueueAttributes+    SetQueueAttributes (SetQueueAttributes'),+    newSetQueueAttributes,+    SetQueueAttributesResponse (SetQueueAttributesResponse'),+    newSetQueueAttributesResponse,++    -- ** TagQueue+    TagQueue (TagQueue'),+    newTagQueue,+    TagQueueResponse (TagQueueResponse'),+    newTagQueueResponse,++    -- ** UntagQueue+    UntagQueue (UntagQueue'),+    newUntagQueue,+    UntagQueueResponse (UntagQueueResponse'),+    newUntagQueueResponse,++    -- * Types++    -- ** MessageAttribute+    MessageAttribute (..),++    -- ** MessageSystemAttributeNameForSends+    MessageSystemAttributeNameForSends (..),++    -- ** QueueAttributeName+    QueueAttributeName (..),++    -- ** BatchResultErrorEntry+    BatchResultErrorEntry (BatchResultErrorEntry'),+    newBatchResultErrorEntry,++    -- ** ChangeMessageVisibilityBatchRequestEntry+    ChangeMessageVisibilityBatchRequestEntry (ChangeMessageVisibilityBatchRequestEntry'),+    newChangeMessageVisibilityBatchRequestEntry,++    -- ** ChangeMessageVisibilityBatchResultEntry+    ChangeMessageVisibilityBatchResultEntry (ChangeMessageVisibilityBatchResultEntry'),+    newChangeMessageVisibilityBatchResultEntry,++    -- ** DeleteMessageBatchRequestEntry+    DeleteMessageBatchRequestEntry (DeleteMessageBatchRequestEntry'),+    newDeleteMessageBatchRequestEntry,++    -- ** DeleteMessageBatchResultEntry+    DeleteMessageBatchResultEntry (DeleteMessageBatchResultEntry'),+    newDeleteMessageBatchResultEntry,++    -- ** Message+    Message (Message'),+    newMessage,++    -- ** MessageAttributeValue+    MessageAttributeValue (MessageAttributeValue'),+    newMessageAttributeValue,++    -- ** MessageSystemAttributeValue+    MessageSystemAttributeValue (MessageSystemAttributeValue'),+    newMessageSystemAttributeValue,++    -- ** SendMessageBatchRequestEntry+    SendMessageBatchRequestEntry (SendMessageBatchRequestEntry'),+    newSendMessageBatchRequestEntry,++    -- ** SendMessageBatchResultEntry+    SendMessageBatchResultEntry (SendMessageBatchResultEntry'),+    newSendMessageBatchResultEntry,+  )+where++import Amazonka.SQS.AddPermission+import Amazonka.SQS.ChangeMessageVisibility+import Amazonka.SQS.ChangeMessageVisibilityBatch+import Amazonka.SQS.CreateQueue+import Amazonka.SQS.DeleteMessage+import Amazonka.SQS.DeleteMessageBatch+import Amazonka.SQS.DeleteQueue+import Amazonka.SQS.GetQueueAttributes+import Amazonka.SQS.GetQueueUrl+import Amazonka.SQS.Lens+import Amazonka.SQS.ListDeadLetterSourceQueues+import Amazonka.SQS.ListQueueTags+import Amazonka.SQS.ListQueues+import Amazonka.SQS.PurgeQueue+import Amazonka.SQS.ReceiveMessage+import Amazonka.SQS.RemovePermission+import Amazonka.SQS.SendMessage+import Amazonka.SQS.SendMessageBatch+import Amazonka.SQS.SetQueueAttributes+import Amazonka.SQS.TagQueue+import Amazonka.SQS.Types+import Amazonka.SQS.UntagQueue+import Amazonka.SQS.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 'SQS'.++-- $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,257 @@+{-# 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.SQS.AddPermission+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds a permission to a queue for a specific+-- <https://docs.aws.amazon.com/general/latest/gr/glos-chap.html#P principal>.+-- This allows sharing access to the queue.+--+-- When you create a queue, you have full control access rights for the+-- queue. Only you, the owner of the queue, can grant or deny permissions+-- to the queue. For more information about these permissions, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-writing-an-sqs-policy.html#write-messages-to-shared-queue Allow Developers to Write Messages to a Shared Queue>+-- in the /Amazon SQS Developer Guide/.+--+-- -   @AddPermission@ generates a policy for you. You can use+--     @ @@SetQueueAttributes@@ @ to upload your policy. For more+--     information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-creating-custom-policies.html Using Custom Policies with the Amazon SQS Access Policy Language>+--     in the /Amazon SQS Developer Guide/.+--+-- -   An Amazon SQS policy can have a maximum of 7 actions.+--+-- -   To remove the ability to change queue permissions, you must deny+--     permission to the @AddPermission@, @RemovePermission@, and+--     @SetQueueAttributes@ actions in your IAM policy.+--+-- Some actions take lists of parameters. These lists are specified using+-- the @param.n@ notation. Values of @n@ are integers starting from 1. For+-- example, a parameter list with two elements looks like this:+--+-- @&AttributeName.1=first@+--+-- @&AttributeName.2=second@+--+-- Cross-account permissions don\'t apply to this action. For more+-- information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-customer-managed-policy-examples.html#grant-cross-account-permissions-to-role-and-user-name Grant cross-account permissions to a role and a user name>+-- in the /Amazon SQS Developer Guide/.+module Amazonka.SQS.AddPermission+  ( -- * Creating a Request+    AddPermission (..),+    newAddPermission,++    -- * Request Lenses+    addPermission_queueUrl,+    addPermission_label,+    addPermission_aWSAccountIds,+    addPermission_actions,++    -- * Destructuring the Response+    AddPermissionResponse (..),+    newAddPermissionResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newAddPermission' smart constructor.+data AddPermission = AddPermission'+  { -- | The URL of the Amazon SQS queue to which permissions are added.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text,+    -- | The unique identification of the permission you\'re setting (for+    -- example, @AliceSendMessage@). Maximum 80 characters. Allowed characters+    -- include alphanumeric characters, hyphens (@-@), and underscores (@_@).+    label :: Prelude.Text,+    -- | The Amazon Web Services account numbers of the+    -- <https://docs.aws.amazon.com/general/latest/gr/glos-chap.html#P principals>+    -- who are to receive permission. For information about locating the Amazon+    -- Web Services account identification, see+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-making-api-requests.html#sqs-api-request-authentication Your Amazon Web Services Identifiers>+    -- in the /Amazon SQS Developer Guide/.+    aWSAccountIds :: [Prelude.Text],+    -- | The action the client wants to allow for the specified principal. Valid+    -- values: the name of any action or @*@.+    --+    -- For more information about these actions, see+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-overview-of-managing-access.html Overview of Managing Access Permissions to Your Amazon Simple Queue Service Resource>+    -- in the /Amazon SQS Developer Guide/.+    --+    -- Specifying @SendMessage@, @DeleteMessage@, or @ChangeMessageVisibility@+    -- for @ActionName.n@ also grants permissions for the corresponding batch+    -- versions of those actions: @SendMessageBatch@, @DeleteMessageBatch@, and+    -- @ChangeMessageVisibilityBatch@.+    actions :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddPermission' 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:+--+-- 'queueUrl', 'addPermission_queueUrl' - The URL of the Amazon SQS queue to which permissions are added.+--+-- Queue URLs and names are case-sensitive.+--+-- 'label', 'addPermission_label' - The unique identification of the permission you\'re setting (for+-- example, @AliceSendMessage@). Maximum 80 characters. Allowed characters+-- include alphanumeric characters, hyphens (@-@), and underscores (@_@).+--+-- 'aWSAccountIds', 'addPermission_aWSAccountIds' - The Amazon Web Services account numbers of the+-- <https://docs.aws.amazon.com/general/latest/gr/glos-chap.html#P principals>+-- who are to receive permission. For information about locating the Amazon+-- Web Services account identification, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-making-api-requests.html#sqs-api-request-authentication Your Amazon Web Services Identifiers>+-- in the /Amazon SQS Developer Guide/.+--+-- 'actions', 'addPermission_actions' - The action the client wants to allow for the specified principal. Valid+-- values: the name of any action or @*@.+--+-- For more information about these actions, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-overview-of-managing-access.html Overview of Managing Access Permissions to Your Amazon Simple Queue Service Resource>+-- in the /Amazon SQS Developer Guide/.+--+-- Specifying @SendMessage@, @DeleteMessage@, or @ChangeMessageVisibility@+-- for @ActionName.n@ also grants permissions for the corresponding batch+-- versions of those actions: @SendMessageBatch@, @DeleteMessageBatch@, and+-- @ChangeMessageVisibilityBatch@.+newAddPermission ::+  -- | 'queueUrl'+  Prelude.Text ->+  -- | 'label'+  Prelude.Text ->+  AddPermission+newAddPermission pQueueUrl_ pLabel_ =+  AddPermission'+    { queueUrl = pQueueUrl_,+      label = pLabel_,+      aWSAccountIds = Prelude.mempty,+      actions = Prelude.mempty+    }++-- | The URL of the Amazon SQS queue to which permissions are added.+--+-- Queue URLs and names are case-sensitive.+addPermission_queueUrl :: Lens.Lens' AddPermission Prelude.Text+addPermission_queueUrl = Lens.lens (\AddPermission' {queueUrl} -> queueUrl) (\s@AddPermission' {} a -> s {queueUrl = a} :: AddPermission)++-- | The unique identification of the permission you\'re setting (for+-- example, @AliceSendMessage@). Maximum 80 characters. Allowed characters+-- include alphanumeric characters, hyphens (@-@), and underscores (@_@).+addPermission_label :: Lens.Lens' AddPermission Prelude.Text+addPermission_label = Lens.lens (\AddPermission' {label} -> label) (\s@AddPermission' {} a -> s {label = a} :: AddPermission)++-- | The Amazon Web Services account numbers of the+-- <https://docs.aws.amazon.com/general/latest/gr/glos-chap.html#P principals>+-- who are to receive permission. For information about locating the Amazon+-- Web Services account identification, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-making-api-requests.html#sqs-api-request-authentication Your Amazon Web Services Identifiers>+-- in the /Amazon SQS Developer Guide/.+addPermission_aWSAccountIds :: Lens.Lens' AddPermission [Prelude.Text]+addPermission_aWSAccountIds = Lens.lens (\AddPermission' {aWSAccountIds} -> aWSAccountIds) (\s@AddPermission' {} a -> s {aWSAccountIds = a} :: AddPermission) Prelude.. Lens.coerced++-- | The action the client wants to allow for the specified principal. Valid+-- values: the name of any action or @*@.+--+-- For more information about these actions, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-overview-of-managing-access.html Overview of Managing Access Permissions to Your Amazon Simple Queue Service Resource>+-- in the /Amazon SQS Developer Guide/.+--+-- Specifying @SendMessage@, @DeleteMessage@, or @ChangeMessageVisibility@+-- for @ActionName.n@ also grants permissions for the corresponding batch+-- versions of those actions: @SendMessageBatch@, @DeleteMessageBatch@, and+-- @ChangeMessageVisibilityBatch@.+addPermission_actions :: Lens.Lens' AddPermission [Prelude.Text]+addPermission_actions = Lens.lens (\AddPermission' {actions} -> actions) (\s@AddPermission' {} a -> s {actions = a} :: AddPermission) Prelude.. Lens.coerced++instance Core.AWSRequest AddPermission where+  type+    AWSResponse AddPermission =+      AddPermissionResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveNull AddPermissionResponse'++instance Prelude.Hashable AddPermission where+  hashWithSalt _salt AddPermission' {..} =+    _salt+      `Prelude.hashWithSalt` queueUrl+      `Prelude.hashWithSalt` label+      `Prelude.hashWithSalt` aWSAccountIds+      `Prelude.hashWithSalt` actions++instance Prelude.NFData AddPermission where+  rnf AddPermission' {..} =+    Prelude.rnf queueUrl+      `Prelude.seq` Prelude.rnf label+      `Prelude.seq` Prelude.rnf aWSAccountIds+      `Prelude.seq` Prelude.rnf actions++instance Data.ToHeaders AddPermission where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AddPermission where+  toPath = Prelude.const "/"++instance Data.ToQuery AddPermission where+  toQuery AddPermission' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("AddPermission" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueUrl" Data.=: queueUrl,+        "Label" Data.=: label,+        Data.toQueryList "AWSAccountId" aWSAccountIds,+        Data.toQueryList "ActionName" actions+      ]++-- | /See:/ 'newAddPermissionResponse' smart constructor.+data AddPermissionResponse = AddPermissionResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddPermissionResponse' 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.+newAddPermissionResponse ::+  AddPermissionResponse+newAddPermissionResponse = AddPermissionResponse'++instance Prelude.NFData AddPermissionResponse where+  rnf _ = ()

@@ -0,0 +1,233 @@+{-# 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.SQS.ChangeMessageVisibility+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Changes the visibility timeout of a specified message in a queue to a+-- new value. The default visibility timeout for a message is 30 seconds.+-- The minimum is 0 seconds. The maximum is 12 hours. For more information,+-- see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+-- in the /Amazon SQS Developer Guide/.+--+-- For example, you have a message with a visibility timeout of 5 minutes.+-- After 3 minutes, you call @ChangeMessageVisibility@ with a timeout of 10+-- minutes. You can continue to call @ChangeMessageVisibility@ to extend+-- the visibility timeout to the maximum allowed time. If you try to extend+-- the visibility timeout beyond the maximum, your request is rejected.+--+-- An Amazon SQS message has three basic states:+--+-- 1.  Sent to a queue by a producer.+--+-- 2.  Received from the queue by a consumer.+--+-- 3.  Deleted from the queue.+--+-- A message is considered to be /stored/ after it is sent to a queue by a+-- producer, but not yet received from the queue by a consumer (that is,+-- between states 1 and 2). There is no limit to the number of stored+-- messages. A message is considered to be /in flight/ after it is received+-- from a queue by a consumer, but not yet deleted from the queue (that is,+-- between states 2 and 3). There is a limit to the number of inflight+-- messages.+--+-- Limits that apply to inflight messages are unrelated to the /unlimited/+-- number of stored messages.+--+-- For most standard queues (depending on queue traffic and message+-- backlog), there can be a maximum of approximately 120,000 inflight+-- messages (received from a queue by a consumer, but not yet deleted from+-- the queue). If you reach this limit, Amazon SQS returns the @OverLimit@+-- error message. To avoid reaching the limit, you should delete messages+-- from the queue after they\'re processed. You can also increase the+-- number of queues you use to process your messages. To request a limit+-- increase,+-- <https://console.aws.amazon.com/support/home#/case/create?issueType=service-limit-increase&limitType=service-code-sqs file a support request>.+--+-- For FIFO queues, there can be a maximum of 20,000 inflight messages+-- (received from a queue by a consumer, but not yet deleted from the+-- queue). If you reach this limit, Amazon SQS returns no error messages.+--+-- If you attempt to set the @VisibilityTimeout@ to a value greater than+-- the maximum time left, Amazon SQS returns an error. Amazon SQS doesn\'t+-- automatically recalculate and increase the timeout to the maximum+-- remaining time.+--+-- Unlike with a queue, when you change the visibility timeout for a+-- specific message the timeout value is applied immediately but isn\'t+-- saved in memory for that message. If you don\'t delete a message after+-- it is received, the visibility timeout for the message reverts to the+-- original timeout value (not to the value you set using the+-- @ChangeMessageVisibility@ action) the next time the message is received.+module Amazonka.SQS.ChangeMessageVisibility+  ( -- * Creating a Request+    ChangeMessageVisibility (..),+    newChangeMessageVisibility,++    -- * Request Lenses+    changeMessageVisibility_queueUrl,+    changeMessageVisibility_receiptHandle,+    changeMessageVisibility_visibilityTimeout,++    -- * Destructuring the Response+    ChangeMessageVisibilityResponse (..),+    newChangeMessageVisibilityResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- | /See:/ 'newChangeMessageVisibility' smart constructor.+data ChangeMessageVisibility = ChangeMessageVisibility'+  { -- | The URL of the Amazon SQS queue whose message\'s visibility is changed.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text,+    -- | The receipt handle associated with the message whose visibility timeout+    -- is changed. This parameter is returned by the @ @@ReceiveMessage@@ @+    -- action.+    receiptHandle :: Prelude.Text,+    -- | The new value for the message\'s visibility timeout (in seconds). Values+    -- range: @0@ to @43200@. Maximum: 12 hours.+    visibilityTimeout :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ChangeMessageVisibility' 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:+--+-- 'queueUrl', 'changeMessageVisibility_queueUrl' - The URL of the Amazon SQS queue whose message\'s visibility is changed.+--+-- Queue URLs and names are case-sensitive.+--+-- 'receiptHandle', 'changeMessageVisibility_receiptHandle' - The receipt handle associated with the message whose visibility timeout+-- is changed. This parameter is returned by the @ @@ReceiveMessage@@ @+-- action.+--+-- 'visibilityTimeout', 'changeMessageVisibility_visibilityTimeout' - The new value for the message\'s visibility timeout (in seconds). Values+-- range: @0@ to @43200@. Maximum: 12 hours.+newChangeMessageVisibility ::+  -- | 'queueUrl'+  Prelude.Text ->+  -- | 'receiptHandle'+  Prelude.Text ->+  -- | 'visibilityTimeout'+  Prelude.Int ->+  ChangeMessageVisibility+newChangeMessageVisibility+  pQueueUrl_+  pReceiptHandle_+  pVisibilityTimeout_ =+    ChangeMessageVisibility'+      { queueUrl = pQueueUrl_,+        receiptHandle = pReceiptHandle_,+        visibilityTimeout = pVisibilityTimeout_+      }++-- | The URL of the Amazon SQS queue whose message\'s visibility is changed.+--+-- Queue URLs and names are case-sensitive.+changeMessageVisibility_queueUrl :: Lens.Lens' ChangeMessageVisibility Prelude.Text+changeMessageVisibility_queueUrl = Lens.lens (\ChangeMessageVisibility' {queueUrl} -> queueUrl) (\s@ChangeMessageVisibility' {} a -> s {queueUrl = a} :: ChangeMessageVisibility)++-- | The receipt handle associated with the message whose visibility timeout+-- is changed. This parameter is returned by the @ @@ReceiveMessage@@ @+-- action.+changeMessageVisibility_receiptHandle :: Lens.Lens' ChangeMessageVisibility Prelude.Text+changeMessageVisibility_receiptHandle = Lens.lens (\ChangeMessageVisibility' {receiptHandle} -> receiptHandle) (\s@ChangeMessageVisibility' {} a -> s {receiptHandle = a} :: ChangeMessageVisibility)++-- | The new value for the message\'s visibility timeout (in seconds). Values+-- range: @0@ to @43200@. Maximum: 12 hours.+changeMessageVisibility_visibilityTimeout :: Lens.Lens' ChangeMessageVisibility Prelude.Int+changeMessageVisibility_visibilityTimeout = Lens.lens (\ChangeMessageVisibility' {visibilityTimeout} -> visibilityTimeout) (\s@ChangeMessageVisibility' {} a -> s {visibilityTimeout = a} :: ChangeMessageVisibility)++instance Core.AWSRequest ChangeMessageVisibility where+  type+    AWSResponse ChangeMessageVisibility =+      ChangeMessageVisibilityResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveNull+      ChangeMessageVisibilityResponse'++instance Prelude.Hashable ChangeMessageVisibility where+  hashWithSalt _salt ChangeMessageVisibility' {..} =+    _salt+      `Prelude.hashWithSalt` queueUrl+      `Prelude.hashWithSalt` receiptHandle+      `Prelude.hashWithSalt` visibilityTimeout++instance Prelude.NFData ChangeMessageVisibility where+  rnf ChangeMessageVisibility' {..} =+    Prelude.rnf queueUrl+      `Prelude.seq` Prelude.rnf receiptHandle+      `Prelude.seq` Prelude.rnf visibilityTimeout++instance Data.ToHeaders ChangeMessageVisibility where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ChangeMessageVisibility where+  toPath = Prelude.const "/"++instance Data.ToQuery ChangeMessageVisibility where+  toQuery ChangeMessageVisibility' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("ChangeMessageVisibility" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueUrl" Data.=: queueUrl,+        "ReceiptHandle" Data.=: receiptHandle,+        "VisibilityTimeout" Data.=: visibilityTimeout+      ]++-- | /See:/ 'newChangeMessageVisibilityResponse' smart constructor.+data ChangeMessageVisibilityResponse = ChangeMessageVisibilityResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ChangeMessageVisibilityResponse' 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.+newChangeMessageVisibilityResponse ::+  ChangeMessageVisibilityResponse+newChangeMessageVisibilityResponse =+  ChangeMessageVisibilityResponse'++instance+  Prelude.NFData+    ChangeMessageVisibilityResponse+  where+  rnf _ = ()

@@ -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.SQS.ChangeMessageVisibilityBatch+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Changes the visibility timeout of multiple messages. This is a batch+-- version of @ @@ChangeMessageVisibility@@.@ The result of the action on+-- each message is reported individually in the response. You can send up+-- to 10 @ @@ChangeMessageVisibility@@ @ requests with each+-- @ChangeMessageVisibilityBatch@ action.+--+-- Because the batch request can result in a combination of successful and+-- unsuccessful actions, you should check for batch errors even when the+-- call returns an HTTP status code of @200@.+--+-- Some actions take lists of parameters. These lists are specified using+-- the @param.n@ notation. Values of @n@ are integers starting from 1. For+-- example, a parameter list with two elements looks like this:+--+-- @&AttributeName.1=first@+--+-- @&AttributeName.2=second@+module Amazonka.SQS.ChangeMessageVisibilityBatch+  ( -- * Creating a Request+    ChangeMessageVisibilityBatch (..),+    newChangeMessageVisibilityBatch,++    -- * Request Lenses+    changeMessageVisibilityBatch_queueUrl,+    changeMessageVisibilityBatch_entries,++    -- * Destructuring the Response+    ChangeMessageVisibilityBatchResponse (..),+    newChangeMessageVisibilityBatchResponse,++    -- * Response Lenses+    changeMessageVisibilityBatchResponse_httpStatus,+    changeMessageVisibilityBatchResponse_successful,+    changeMessageVisibilityBatchResponse_failed,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newChangeMessageVisibilityBatch' smart constructor.+data ChangeMessageVisibilityBatch = ChangeMessageVisibilityBatch'+  { -- | The URL of the Amazon SQS queue whose messages\' visibility is changed.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text,+    -- | A list of receipt handles of the messages for which the visibility+    -- timeout must be changed.+    entries :: [ChangeMessageVisibilityBatchRequestEntry]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ChangeMessageVisibilityBatch' 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:+--+-- 'queueUrl', 'changeMessageVisibilityBatch_queueUrl' - The URL of the Amazon SQS queue whose messages\' visibility is changed.+--+-- Queue URLs and names are case-sensitive.+--+-- 'entries', 'changeMessageVisibilityBatch_entries' - A list of receipt handles of the messages for which the visibility+-- timeout must be changed.+newChangeMessageVisibilityBatch ::+  -- | 'queueUrl'+  Prelude.Text ->+  ChangeMessageVisibilityBatch+newChangeMessageVisibilityBatch pQueueUrl_ =+  ChangeMessageVisibilityBatch'+    { queueUrl =+        pQueueUrl_,+      entries = Prelude.mempty+    }++-- | The URL of the Amazon SQS queue whose messages\' visibility is changed.+--+-- Queue URLs and names are case-sensitive.+changeMessageVisibilityBatch_queueUrl :: Lens.Lens' ChangeMessageVisibilityBatch Prelude.Text+changeMessageVisibilityBatch_queueUrl = Lens.lens (\ChangeMessageVisibilityBatch' {queueUrl} -> queueUrl) (\s@ChangeMessageVisibilityBatch' {} a -> s {queueUrl = a} :: ChangeMessageVisibilityBatch)++-- | A list of receipt handles of the messages for which the visibility+-- timeout must be changed.+changeMessageVisibilityBatch_entries :: Lens.Lens' ChangeMessageVisibilityBatch [ChangeMessageVisibilityBatchRequestEntry]+changeMessageVisibilityBatch_entries = Lens.lens (\ChangeMessageVisibilityBatch' {entries} -> entries) (\s@ChangeMessageVisibilityBatch' {} a -> s {entries = a} :: ChangeMessageVisibilityBatch) Prelude.. Lens.coerced++instance Core.AWSRequest ChangeMessageVisibilityBatch where+  type+    AWSResponse ChangeMessageVisibilityBatch =+      ChangeMessageVisibilityBatchResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "ChangeMessageVisibilityBatchResult"+      ( \s h x ->+          ChangeMessageVisibilityBatchResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( Data.parseXMLList+                            "ChangeMessageVisibilityBatchResultEntry"+                            x+                        )+            Prelude.<*> (Data.parseXMLList "BatchResultErrorEntry" x)+      )++instance+  Prelude.Hashable+    ChangeMessageVisibilityBatch+  where+  hashWithSalt _salt ChangeMessageVisibilityBatch' {..} =+    _salt+      `Prelude.hashWithSalt` queueUrl+      `Prelude.hashWithSalt` entries++instance Prelude.NFData ChangeMessageVisibilityBatch where+  rnf ChangeMessageVisibilityBatch' {..} =+    Prelude.rnf queueUrl+      `Prelude.seq` Prelude.rnf entries++instance Data.ToHeaders ChangeMessageVisibilityBatch where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ChangeMessageVisibilityBatch where+  toPath = Prelude.const "/"++instance Data.ToQuery ChangeMessageVisibilityBatch where+  toQuery ChangeMessageVisibilityBatch' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "ChangeMessageVisibilityBatch" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueUrl" Data.=: queueUrl,+        Data.toQueryList+          "ChangeMessageVisibilityBatchRequestEntry"+          entries+      ]++-- | For each message in the batch, the response contains a+-- @ @@ChangeMessageVisibilityBatchResultEntry@@ @ tag if the message+-- succeeds or a @ @@BatchResultErrorEntry@@ @ tag if the message fails.+--+-- /See:/ 'newChangeMessageVisibilityBatchResponse' smart constructor.+data ChangeMessageVisibilityBatchResponse = ChangeMessageVisibilityBatchResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of @ @@ChangeMessageVisibilityBatchResultEntry@@ @ items.+    successful :: [ChangeMessageVisibilityBatchResultEntry],+    -- | A list of @ @@BatchResultErrorEntry@@ @ items.+    failed :: [BatchResultErrorEntry]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ChangeMessageVisibilityBatchResponse' 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', 'changeMessageVisibilityBatchResponse_httpStatus' - The response's http status code.+--+-- 'successful', 'changeMessageVisibilityBatchResponse_successful' - A list of @ @@ChangeMessageVisibilityBatchResultEntry@@ @ items.+--+-- 'failed', 'changeMessageVisibilityBatchResponse_failed' - A list of @ @@BatchResultErrorEntry@@ @ items.+newChangeMessageVisibilityBatchResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ChangeMessageVisibilityBatchResponse+newChangeMessageVisibilityBatchResponse pHttpStatus_ =+  ChangeMessageVisibilityBatchResponse'+    { httpStatus =+        pHttpStatus_,+      successful = Prelude.mempty,+      failed = Prelude.mempty+    }++-- | The response's http status code.+changeMessageVisibilityBatchResponse_httpStatus :: Lens.Lens' ChangeMessageVisibilityBatchResponse Prelude.Int+changeMessageVisibilityBatchResponse_httpStatus = Lens.lens (\ChangeMessageVisibilityBatchResponse' {httpStatus} -> httpStatus) (\s@ChangeMessageVisibilityBatchResponse' {} a -> s {httpStatus = a} :: ChangeMessageVisibilityBatchResponse)++-- | A list of @ @@ChangeMessageVisibilityBatchResultEntry@@ @ items.+changeMessageVisibilityBatchResponse_successful :: Lens.Lens' ChangeMessageVisibilityBatchResponse [ChangeMessageVisibilityBatchResultEntry]+changeMessageVisibilityBatchResponse_successful = Lens.lens (\ChangeMessageVisibilityBatchResponse' {successful} -> successful) (\s@ChangeMessageVisibilityBatchResponse' {} a -> s {successful = a} :: ChangeMessageVisibilityBatchResponse) Prelude.. Lens.coerced++-- | A list of @ @@BatchResultErrorEntry@@ @ items.+changeMessageVisibilityBatchResponse_failed :: Lens.Lens' ChangeMessageVisibilityBatchResponse [BatchResultErrorEntry]+changeMessageVisibilityBatchResponse_failed = Lens.lens (\ChangeMessageVisibilityBatchResponse' {failed} -> failed) (\s@ChangeMessageVisibilityBatchResponse' {} a -> s {failed = a} :: ChangeMessageVisibilityBatchResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ChangeMessageVisibilityBatchResponse+  where+  rnf ChangeMessageVisibilityBatchResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf successful+      `Prelude.seq` Prelude.rnf failed

@@ -0,0 +1,823 @@+{-# 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.SQS.CreateQueue+-- 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 standard or FIFO queue. You can pass one or more+-- attributes in the request. Keep the following in mind:+--+-- -   If you don\'t specify the @FifoQueue@ attribute, Amazon SQS creates+--     a standard queue.+--+--     You can\'t change the queue type after you create it and you can\'t+--     convert an existing standard queue into a FIFO queue. You must+--     either create a new FIFO queue for your application or delete your+--     existing standard queue and recreate it as a FIFO queue. For more+--     information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html#FIFO-queues-moving Moving From a Standard Queue to a FIFO Queue>+--     in the /Amazon SQS Developer Guide/.+--+-- -   If you don\'t provide a value for an attribute, the queue is created+--     with the default value for the attribute.+--+-- -   If you delete a queue, you must wait at least 60 seconds before+--     creating a queue with the same name.+--+-- To successfully create a new queue, you must provide a queue name that+-- adheres to the+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/limits-queues.html limits related to queues>+-- and is unique within the scope of your queues.+--+-- After you create a queue, you must wait at least one second after the+-- queue is created to be able to use the queue.+--+-- To get the queue URL, use the @ @@GetQueueUrl@@ @ action.+-- @ @@GetQueueUrl@@ @ requires only the @QueueName@ parameter. be aware of+-- existing queue names:+--+-- -   If you provide the name of an existing queue along with the exact+--     names and values of all the queue\'s attributes, @CreateQueue@+--     returns the queue URL for the existing queue.+--+-- -   If the queue name, attribute names, or attribute values don\'t match+--     an existing queue, @CreateQueue@ returns an error.+--+-- Some actions take lists of parameters. These lists are specified using+-- the @param.n@ notation. Values of @n@ are integers starting from 1. For+-- example, a parameter list with two elements looks like this:+--+-- @&AttributeName.1=first@+--+-- @&AttributeName.2=second@+--+-- Cross-account permissions don\'t apply to this action. For more+-- information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-customer-managed-policy-examples.html#grant-cross-account-permissions-to-role-and-user-name Grant cross-account permissions to a role and a user name>+-- in the /Amazon SQS Developer Guide/.+module Amazonka.SQS.CreateQueue+  ( -- * Creating a Request+    CreateQueue (..),+    newCreateQueue,++    -- * Request Lenses+    createQueue_attributes,+    createQueue_tags,+    createQueue_queueName,++    -- * Destructuring the Response+    CreateQueueResponse (..),+    newCreateQueueResponse,++    -- * Response Lenses+    createQueueResponse_queueUrl,+    createQueueResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newCreateQueue' smart constructor.+data CreateQueue = CreateQueue'+  { -- | A map of attributes with their corresponding values.+    --+    -- The following lists the names, descriptions, and values of the special+    -- request parameters that the @CreateQueue@ action uses:+    --+    -- -   @DelaySeconds@ – The length of time, in seconds, for which the+    --     delivery of all messages in the queue is delayed. Valid values: An+    --     integer from 0 to 900 seconds (15 minutes). Default: 0.+    --+    -- -   @MaximumMessageSize@ – The limit of how many bytes a message can+    --     contain before Amazon SQS rejects it. Valid values: An integer from+    --     1,024 bytes (1 KiB) to 262,144 bytes (256 KiB). Default: 262,144+    --     (256 KiB).+    --+    -- -   @MessageRetentionPeriod@ – The length of time, in seconds, for which+    --     Amazon SQS retains a message. Valid values: An integer from 60+    --     seconds (1 minute) to 1,209,600 seconds (14 days). Default: 345,600+    --     (4 days).+    --+    -- -   @Policy@ – The queue\'s policy. A valid Amazon Web Services policy.+    --     For more information about policy structure, see+    --     <https://docs.aws.amazon.com/IAM/latest/UserGuide/PoliciesOverview.html Overview of Amazon Web Services IAM Policies>+    --     in the /Amazon IAM User Guide/.+    --+    -- -   @ReceiveMessageWaitTimeSeconds@ – The length of time, in seconds,+    --     for which a @ @@ReceiveMessage@@ @ action waits for a message to+    --     arrive. Valid values: An integer from 0 to 20 (seconds). Default: 0.+    --+    -- -   @RedrivePolicy@ – The string that includes the parameters for the+    --     dead-letter queue functionality of the source queue as a JSON+    --     object. For more information about the redrive policy and+    --     dead-letter queues, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-dead-letter-queues.html Using Amazon SQS Dead-Letter Queues>+    --     in the /Amazon SQS Developer Guide/.+    --+    --     -   @deadLetterTargetArn@ – The Amazon Resource Name (ARN) of the+    --         dead-letter queue to which Amazon SQS moves messages after the+    --         value of @maxReceiveCount@ is exceeded.+    --+    --     -   @maxReceiveCount@ – The number of times a message is delivered+    --         to the source queue before being moved to the dead-letter queue.+    --         When the @ReceiveCount@ for a message exceeds the+    --         @maxReceiveCount@ for a queue, Amazon SQS moves the message to+    --         the dead-letter-queue.+    --+    --     The dead-letter queue of a FIFO queue must also be a FIFO queue.+    --     Similarly, the dead-letter queue of a standard queue must also be a+    --     standard queue.+    --+    -- -   @VisibilityTimeout@ – The visibility timeout for the queue, in+    --     seconds. Valid values: An integer from 0 to 43,200 (12 hours).+    --     Default: 30. For more information about the visibility timeout, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+    --     in the /Amazon SQS Developer Guide/.+    --+    -- The following attributes apply only to+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html server-side-encryption>:+    --+    -- -   @KmsMasterKeyId@ – The ID of an Amazon Web Services managed customer+    --     master key (CMK) for Amazon SQS or a custom CMK. For more+    --     information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-sse-key-terms Key Terms>.+    --     While the alias of the Amazon Web Services managed CMK for Amazon+    --     SQS is always @alias\/aws\/sqs@, the alias of a custom CMK can, for+    --     example, be @alias\/@/@MyAlias@/@ @. For more examples, see+    --     <https://docs.aws.amazon.com/kms/latest/APIReference/API_DescribeKey.html#API_DescribeKey_RequestParameters KeyId>+    --     in the /Key Management Service API Reference/.+    --+    -- -   @KmsDataKeyReusePeriodSeconds@ – The length of time, in seconds, for+    --     which Amazon SQS can reuse a+    --     <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#data-keys data key>+    --     to encrypt or decrypt messages before calling KMS again. An integer+    --     representing seconds, between 60 seconds (1 minute) and 86,400+    --     seconds (24 hours). Default: 300 (5 minutes). A shorter time period+    --     provides better security but results in more calls to KMS which+    --     might incur charges after Free Tier. For more information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-how-does-the-data-key-reuse-period-work How Does the Data Key Reuse Period Work?>.+    --+    -- -   @SqsManagedSseEnabled@ – Enables server-side queue encryption using+    --     SQS owned encryption keys. Only one server-side encryption option is+    --     supported per queue (e.g.+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+    --     or+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+    --+    -- The following attributes apply only to+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO (first-in-first-out) queues>:+    --+    -- -   @FifoQueue@ – Designates a queue as FIFO. Valid values are @true@+    --     and @false@. If you don\'t specify the @FifoQueue@ attribute, Amazon+    --     SQS creates a standard queue. You can provide this attribute only+    --     during queue creation. You can\'t change it for an existing queue.+    --     When you set this attribute, you must also provide the+    --     @MessageGroupId@ for your messages explicitly.+    --+    --     For more information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-understanding-logic.html FIFO queue logic>+    --     in the /Amazon SQS Developer Guide/.+    --+    -- -   @ContentBasedDeduplication@ – Enables content-based deduplication.+    --     Valid values are @true@ and @false@. For more information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-exactly-once-processing.html Exactly-once processing>+    --     in the /Amazon SQS Developer Guide/. Note the following:+    --+    --     -   Every message must have a unique @MessageDeduplicationId@.+    --+    --         -   You may provide a @MessageDeduplicationId@ explicitly.+    --+    --         -   If you aren\'t able to provide a @MessageDeduplicationId@+    --             and you enable @ContentBasedDeduplication@ for your queue,+    --             Amazon SQS uses a SHA-256 hash to generate the+    --             @MessageDeduplicationId@ using the body of the message (but+    --             not the attributes of the message).+    --+    --         -   If you don\'t provide a @MessageDeduplicationId@ and the+    --             queue doesn\'t have @ContentBasedDeduplication@ set, the+    --             action fails with an error.+    --+    --         -   If the queue has @ContentBasedDeduplication@ set, your+    --             @MessageDeduplicationId@ overrides the generated one.+    --+    --     -   When @ContentBasedDeduplication@ is in effect, messages with+    --         identical content sent within the deduplication interval are+    --         treated as duplicates and only one copy of the message is+    --         delivered.+    --+    --     -   If you send one message with @ContentBasedDeduplication@ enabled+    --         and then another message with a @MessageDeduplicationId@ that is+    --         the same as the one generated for the first+    --         @MessageDeduplicationId@, the two messages are treated as+    --         duplicates and only one copy of the message is delivered.+    --+    -- The following attributes apply only to+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/high-throughput-fifo.html high throughput for FIFO queues>:+    --+    -- -   @DeduplicationScope@ – Specifies whether message deduplication+    --     occurs at the message group or queue level. Valid values are+    --     @messageGroup@ and @queue@.+    --+    -- -   @FifoThroughputLimit@ – Specifies whether the FIFO queue throughput+    --     quota applies to the entire queue or per message group. Valid values+    --     are @perQueue@ and @perMessageGroupId@. The @perMessageGroupId@+    --     value is allowed only when the value for @DeduplicationScope@ is+    --     @messageGroup@.+    --+    -- To enable high throughput for FIFO queues, do the following:+    --+    -- -   Set @DeduplicationScope@ to @messageGroup@.+    --+    -- -   Set @FifoThroughputLimit@ to @perMessageGroupId@.+    --+    -- If you set these attributes to anything other than the values shown for+    -- enabling high throughput, normal throughput is in effect and+    -- deduplication occurs as specified.+    --+    -- For information on throughput quotas, see+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/quotas-messages.html Quotas related to messages>+    -- in the /Amazon SQS Developer Guide/.+    attributes :: Prelude.Maybe (Prelude.HashMap QueueAttributeName Prelude.Text),+    -- | Add cost allocation tags to the specified Amazon SQS queue. For an+    -- overview, see+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-queue-tags.html Tagging Your Amazon SQS Queues>+    -- in the /Amazon SQS Developer Guide/.+    --+    -- When you use queue tags, keep the following guidelines in mind:+    --+    -- -   Adding more than 50 tags to a queue isn\'t recommended.+    --+    -- -   Tags don\'t have any semantic meaning. Amazon SQS interprets tags as+    --     character strings.+    --+    -- -   Tags are case-sensitive.+    --+    -- -   A new tag with a key identical to that of an existing tag overwrites+    --     the existing tag.+    --+    -- For a full list of tag restrictions, see+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-limits.html#limits-queues Quotas related to queues>+    -- in the /Amazon SQS Developer Guide/.+    --+    -- To be able to tag a queue on creation, you must have the+    -- @sqs:CreateQueue@ and @sqs:TagQueue@ permissions.+    --+    -- Cross-account permissions don\'t apply to this action. For more+    -- information, see+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-customer-managed-policy-examples.html#grant-cross-account-permissions-to-role-and-user-name Grant cross-account permissions to a role and a user name>+    -- in the /Amazon SQS Developer Guide/.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The name of the new queue. The following limits apply to this name:+    --+    -- -   A queue name can have up to 80 characters.+    --+    -- -   Valid values: alphanumeric characters, hyphens (@-@), and+    --     underscores (@_@).+    --+    -- -   A FIFO queue name must end with the @.fifo@ suffix.+    --+    -- Queue URLs and names are case-sensitive.+    queueName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateQueue' 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:+--+-- 'attributes', 'createQueue_attributes' - A map of attributes with their corresponding values.+--+-- The following lists the names, descriptions, and values of the special+-- request parameters that the @CreateQueue@ action uses:+--+-- -   @DelaySeconds@ – The length of time, in seconds, for which the+--     delivery of all messages in the queue is delayed. Valid values: An+--     integer from 0 to 900 seconds (15 minutes). Default: 0.+--+-- -   @MaximumMessageSize@ – The limit of how many bytes a message can+--     contain before Amazon SQS rejects it. Valid values: An integer from+--     1,024 bytes (1 KiB) to 262,144 bytes (256 KiB). Default: 262,144+--     (256 KiB).+--+-- -   @MessageRetentionPeriod@ – The length of time, in seconds, for which+--     Amazon SQS retains a message. Valid values: An integer from 60+--     seconds (1 minute) to 1,209,600 seconds (14 days). Default: 345,600+--     (4 days).+--+-- -   @Policy@ – The queue\'s policy. A valid Amazon Web Services policy.+--     For more information about policy structure, see+--     <https://docs.aws.amazon.com/IAM/latest/UserGuide/PoliciesOverview.html Overview of Amazon Web Services IAM Policies>+--     in the /Amazon IAM User Guide/.+--+-- -   @ReceiveMessageWaitTimeSeconds@ – The length of time, in seconds,+--     for which a @ @@ReceiveMessage@@ @ action waits for a message to+--     arrive. Valid values: An integer from 0 to 20 (seconds). Default: 0.+--+-- -   @RedrivePolicy@ – The string that includes the parameters for the+--     dead-letter queue functionality of the source queue as a JSON+--     object. For more information about the redrive policy and+--     dead-letter queues, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-dead-letter-queues.html Using Amazon SQS Dead-Letter Queues>+--     in the /Amazon SQS Developer Guide/.+--+--     -   @deadLetterTargetArn@ – The Amazon Resource Name (ARN) of the+--         dead-letter queue to which Amazon SQS moves messages after the+--         value of @maxReceiveCount@ is exceeded.+--+--     -   @maxReceiveCount@ – The number of times a message is delivered+--         to the source queue before being moved to the dead-letter queue.+--         When the @ReceiveCount@ for a message exceeds the+--         @maxReceiveCount@ for a queue, Amazon SQS moves the message to+--         the dead-letter-queue.+--+--     The dead-letter queue of a FIFO queue must also be a FIFO queue.+--     Similarly, the dead-letter queue of a standard queue must also be a+--     standard queue.+--+-- -   @VisibilityTimeout@ – The visibility timeout for the queue, in+--     seconds. Valid values: An integer from 0 to 43,200 (12 hours).+--     Default: 30. For more information about the visibility timeout, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+--     in the /Amazon SQS Developer Guide/.+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html server-side-encryption>:+--+-- -   @KmsMasterKeyId@ – The ID of an Amazon Web Services managed customer+--     master key (CMK) for Amazon SQS or a custom CMK. For more+--     information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-sse-key-terms Key Terms>.+--     While the alias of the Amazon Web Services managed CMK for Amazon+--     SQS is always @alias\/aws\/sqs@, the alias of a custom CMK can, for+--     example, be @alias\/@/@MyAlias@/@ @. For more examples, see+--     <https://docs.aws.amazon.com/kms/latest/APIReference/API_DescribeKey.html#API_DescribeKey_RequestParameters KeyId>+--     in the /Key Management Service API Reference/.+--+-- -   @KmsDataKeyReusePeriodSeconds@ – The length of time, in seconds, for+--     which Amazon SQS can reuse a+--     <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#data-keys data key>+--     to encrypt or decrypt messages before calling KMS again. An integer+--     representing seconds, between 60 seconds (1 minute) and 86,400+--     seconds (24 hours). Default: 300 (5 minutes). A shorter time period+--     provides better security but results in more calls to KMS which+--     might incur charges after Free Tier. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-how-does-the-data-key-reuse-period-work How Does the Data Key Reuse Period Work?>.+--+-- -   @SqsManagedSseEnabled@ – Enables server-side queue encryption using+--     SQS owned encryption keys. Only one server-side encryption option is+--     supported per queue (e.g.+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+--     or+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO (first-in-first-out) queues>:+--+-- -   @FifoQueue@ – Designates a queue as FIFO. Valid values are @true@+--     and @false@. If you don\'t specify the @FifoQueue@ attribute, Amazon+--     SQS creates a standard queue. You can provide this attribute only+--     during queue creation. You can\'t change it for an existing queue.+--     When you set this attribute, you must also provide the+--     @MessageGroupId@ for your messages explicitly.+--+--     For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-understanding-logic.html FIFO queue logic>+--     in the /Amazon SQS Developer Guide/.+--+-- -   @ContentBasedDeduplication@ – Enables content-based deduplication.+--     Valid values are @true@ and @false@. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-exactly-once-processing.html Exactly-once processing>+--     in the /Amazon SQS Developer Guide/. Note the following:+--+--     -   Every message must have a unique @MessageDeduplicationId@.+--+--         -   You may provide a @MessageDeduplicationId@ explicitly.+--+--         -   If you aren\'t able to provide a @MessageDeduplicationId@+--             and you enable @ContentBasedDeduplication@ for your queue,+--             Amazon SQS uses a SHA-256 hash to generate the+--             @MessageDeduplicationId@ using the body of the message (but+--             not the attributes of the message).+--+--         -   If you don\'t provide a @MessageDeduplicationId@ and the+--             queue doesn\'t have @ContentBasedDeduplication@ set, the+--             action fails with an error.+--+--         -   If the queue has @ContentBasedDeduplication@ set, your+--             @MessageDeduplicationId@ overrides the generated one.+--+--     -   When @ContentBasedDeduplication@ is in effect, messages with+--         identical content sent within the deduplication interval are+--         treated as duplicates and only one copy of the message is+--         delivered.+--+--     -   If you send one message with @ContentBasedDeduplication@ enabled+--         and then another message with a @MessageDeduplicationId@ that is+--         the same as the one generated for the first+--         @MessageDeduplicationId@, the two messages are treated as+--         duplicates and only one copy of the message is delivered.+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/high-throughput-fifo.html high throughput for FIFO queues>:+--+-- -   @DeduplicationScope@ – Specifies whether message deduplication+--     occurs at the message group or queue level. Valid values are+--     @messageGroup@ and @queue@.+--+-- -   @FifoThroughputLimit@ – Specifies whether the FIFO queue throughput+--     quota applies to the entire queue or per message group. Valid values+--     are @perQueue@ and @perMessageGroupId@. The @perMessageGroupId@+--     value is allowed only when the value for @DeduplicationScope@ is+--     @messageGroup@.+--+-- To enable high throughput for FIFO queues, do the following:+--+-- -   Set @DeduplicationScope@ to @messageGroup@.+--+-- -   Set @FifoThroughputLimit@ to @perMessageGroupId@.+--+-- If you set these attributes to anything other than the values shown for+-- enabling high throughput, normal throughput is in effect and+-- deduplication occurs as specified.+--+-- For information on throughput quotas, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/quotas-messages.html Quotas related to messages>+-- in the /Amazon SQS Developer Guide/.+--+-- 'tags', 'createQueue_tags' - Add cost allocation tags to the specified Amazon SQS queue. For an+-- overview, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-queue-tags.html Tagging Your Amazon SQS Queues>+-- in the /Amazon SQS Developer Guide/.+--+-- When you use queue tags, keep the following guidelines in mind:+--+-- -   Adding more than 50 tags to a queue isn\'t recommended.+--+-- -   Tags don\'t have any semantic meaning. Amazon SQS interprets tags as+--     character strings.+--+-- -   Tags are case-sensitive.+--+-- -   A new tag with a key identical to that of an existing tag overwrites+--     the existing tag.+--+-- For a full list of tag restrictions, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-limits.html#limits-queues Quotas related to queues>+-- in the /Amazon SQS Developer Guide/.+--+-- To be able to tag a queue on creation, you must have the+-- @sqs:CreateQueue@ and @sqs:TagQueue@ permissions.+--+-- Cross-account permissions don\'t apply to this action. For more+-- information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-customer-managed-policy-examples.html#grant-cross-account-permissions-to-role-and-user-name Grant cross-account permissions to a role and a user name>+-- in the /Amazon SQS Developer Guide/.+--+-- 'queueName', 'createQueue_queueName' - The name of the new queue. The following limits apply to this name:+--+-- -   A queue name can have up to 80 characters.+--+-- -   Valid values: alphanumeric characters, hyphens (@-@), and+--     underscores (@_@).+--+-- -   A FIFO queue name must end with the @.fifo@ suffix.+--+-- Queue URLs and names are case-sensitive.+newCreateQueue ::+  -- | 'queueName'+  Prelude.Text ->+  CreateQueue+newCreateQueue pQueueName_ =+  CreateQueue'+    { attributes = Prelude.Nothing,+      tags = Prelude.Nothing,+      queueName = pQueueName_+    }++-- | A map of attributes with their corresponding values.+--+-- The following lists the names, descriptions, and values of the special+-- request parameters that the @CreateQueue@ action uses:+--+-- -   @DelaySeconds@ – The length of time, in seconds, for which the+--     delivery of all messages in the queue is delayed. Valid values: An+--     integer from 0 to 900 seconds (15 minutes). Default: 0.+--+-- -   @MaximumMessageSize@ – The limit of how many bytes a message can+--     contain before Amazon SQS rejects it. Valid values: An integer from+--     1,024 bytes (1 KiB) to 262,144 bytes (256 KiB). Default: 262,144+--     (256 KiB).+--+-- -   @MessageRetentionPeriod@ – The length of time, in seconds, for which+--     Amazon SQS retains a message. Valid values: An integer from 60+--     seconds (1 minute) to 1,209,600 seconds (14 days). Default: 345,600+--     (4 days).+--+-- -   @Policy@ – The queue\'s policy. A valid Amazon Web Services policy.+--     For more information about policy structure, see+--     <https://docs.aws.amazon.com/IAM/latest/UserGuide/PoliciesOverview.html Overview of Amazon Web Services IAM Policies>+--     in the /Amazon IAM User Guide/.+--+-- -   @ReceiveMessageWaitTimeSeconds@ – The length of time, in seconds,+--     for which a @ @@ReceiveMessage@@ @ action waits for a message to+--     arrive. Valid values: An integer from 0 to 20 (seconds). Default: 0.+--+-- -   @RedrivePolicy@ – The string that includes the parameters for the+--     dead-letter queue functionality of the source queue as a JSON+--     object. For more information about the redrive policy and+--     dead-letter queues, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-dead-letter-queues.html Using Amazon SQS Dead-Letter Queues>+--     in the /Amazon SQS Developer Guide/.+--+--     -   @deadLetterTargetArn@ – The Amazon Resource Name (ARN) of the+--         dead-letter queue to which Amazon SQS moves messages after the+--         value of @maxReceiveCount@ is exceeded.+--+--     -   @maxReceiveCount@ – The number of times a message is delivered+--         to the source queue before being moved to the dead-letter queue.+--         When the @ReceiveCount@ for a message exceeds the+--         @maxReceiveCount@ for a queue, Amazon SQS moves the message to+--         the dead-letter-queue.+--+--     The dead-letter queue of a FIFO queue must also be a FIFO queue.+--     Similarly, the dead-letter queue of a standard queue must also be a+--     standard queue.+--+-- -   @VisibilityTimeout@ – The visibility timeout for the queue, in+--     seconds. Valid values: An integer from 0 to 43,200 (12 hours).+--     Default: 30. For more information about the visibility timeout, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+--     in the /Amazon SQS Developer Guide/.+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html server-side-encryption>:+--+-- -   @KmsMasterKeyId@ – The ID of an Amazon Web Services managed customer+--     master key (CMK) for Amazon SQS or a custom CMK. For more+--     information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-sse-key-terms Key Terms>.+--     While the alias of the Amazon Web Services managed CMK for Amazon+--     SQS is always @alias\/aws\/sqs@, the alias of a custom CMK can, for+--     example, be @alias\/@/@MyAlias@/@ @. For more examples, see+--     <https://docs.aws.amazon.com/kms/latest/APIReference/API_DescribeKey.html#API_DescribeKey_RequestParameters KeyId>+--     in the /Key Management Service API Reference/.+--+-- -   @KmsDataKeyReusePeriodSeconds@ – The length of time, in seconds, for+--     which Amazon SQS can reuse a+--     <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#data-keys data key>+--     to encrypt or decrypt messages before calling KMS again. An integer+--     representing seconds, between 60 seconds (1 minute) and 86,400+--     seconds (24 hours). Default: 300 (5 minutes). A shorter time period+--     provides better security but results in more calls to KMS which+--     might incur charges after Free Tier. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-how-does-the-data-key-reuse-period-work How Does the Data Key Reuse Period Work?>.+--+-- -   @SqsManagedSseEnabled@ – Enables server-side queue encryption using+--     SQS owned encryption keys. Only one server-side encryption option is+--     supported per queue (e.g.+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+--     or+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO (first-in-first-out) queues>:+--+-- -   @FifoQueue@ – Designates a queue as FIFO. Valid values are @true@+--     and @false@. If you don\'t specify the @FifoQueue@ attribute, Amazon+--     SQS creates a standard queue. You can provide this attribute only+--     during queue creation. You can\'t change it for an existing queue.+--     When you set this attribute, you must also provide the+--     @MessageGroupId@ for your messages explicitly.+--+--     For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-understanding-logic.html FIFO queue logic>+--     in the /Amazon SQS Developer Guide/.+--+-- -   @ContentBasedDeduplication@ – Enables content-based deduplication.+--     Valid values are @true@ and @false@. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-exactly-once-processing.html Exactly-once processing>+--     in the /Amazon SQS Developer Guide/. Note the following:+--+--     -   Every message must have a unique @MessageDeduplicationId@.+--+--         -   You may provide a @MessageDeduplicationId@ explicitly.+--+--         -   If you aren\'t able to provide a @MessageDeduplicationId@+--             and you enable @ContentBasedDeduplication@ for your queue,+--             Amazon SQS uses a SHA-256 hash to generate the+--             @MessageDeduplicationId@ using the body of the message (but+--             not the attributes of the message).+--+--         -   If you don\'t provide a @MessageDeduplicationId@ and the+--             queue doesn\'t have @ContentBasedDeduplication@ set, the+--             action fails with an error.+--+--         -   If the queue has @ContentBasedDeduplication@ set, your+--             @MessageDeduplicationId@ overrides the generated one.+--+--     -   When @ContentBasedDeduplication@ is in effect, messages with+--         identical content sent within the deduplication interval are+--         treated as duplicates and only one copy of the message is+--         delivered.+--+--     -   If you send one message with @ContentBasedDeduplication@ enabled+--         and then another message with a @MessageDeduplicationId@ that is+--         the same as the one generated for the first+--         @MessageDeduplicationId@, the two messages are treated as+--         duplicates and only one copy of the message is delivered.+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/high-throughput-fifo.html high throughput for FIFO queues>:+--+-- -   @DeduplicationScope@ – Specifies whether message deduplication+--     occurs at the message group or queue level. Valid values are+--     @messageGroup@ and @queue@.+--+-- -   @FifoThroughputLimit@ – Specifies whether the FIFO queue throughput+--     quota applies to the entire queue or per message group. Valid values+--     are @perQueue@ and @perMessageGroupId@. The @perMessageGroupId@+--     value is allowed only when the value for @DeduplicationScope@ is+--     @messageGroup@.+--+-- To enable high throughput for FIFO queues, do the following:+--+-- -   Set @DeduplicationScope@ to @messageGroup@.+--+-- -   Set @FifoThroughputLimit@ to @perMessageGroupId@.+--+-- If you set these attributes to anything other than the values shown for+-- enabling high throughput, normal throughput is in effect and+-- deduplication occurs as specified.+--+-- For information on throughput quotas, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/quotas-messages.html Quotas related to messages>+-- in the /Amazon SQS Developer Guide/.+createQueue_attributes :: Lens.Lens' CreateQueue (Prelude.Maybe (Prelude.HashMap QueueAttributeName Prelude.Text))+createQueue_attributes = Lens.lens (\CreateQueue' {attributes} -> attributes) (\s@CreateQueue' {} a -> s {attributes = a} :: CreateQueue) Prelude.. Lens.mapping Lens.coerced++-- | Add cost allocation tags to the specified Amazon SQS queue. For an+-- overview, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-queue-tags.html Tagging Your Amazon SQS Queues>+-- in the /Amazon SQS Developer Guide/.+--+-- When you use queue tags, keep the following guidelines in mind:+--+-- -   Adding more than 50 tags to a queue isn\'t recommended.+--+-- -   Tags don\'t have any semantic meaning. Amazon SQS interprets tags as+--     character strings.+--+-- -   Tags are case-sensitive.+--+-- -   A new tag with a key identical to that of an existing tag overwrites+--     the existing tag.+--+-- For a full list of tag restrictions, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-limits.html#limits-queues Quotas related to queues>+-- in the /Amazon SQS Developer Guide/.+--+-- To be able to tag a queue on creation, you must have the+-- @sqs:CreateQueue@ and @sqs:TagQueue@ permissions.+--+-- Cross-account permissions don\'t apply to this action. For more+-- information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-customer-managed-policy-examples.html#grant-cross-account-permissions-to-role-and-user-name Grant cross-account permissions to a role and a user name>+-- in the /Amazon SQS Developer Guide/.+createQueue_tags :: Lens.Lens' CreateQueue (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createQueue_tags = Lens.lens (\CreateQueue' {tags} -> tags) (\s@CreateQueue' {} a -> s {tags = a} :: CreateQueue) Prelude.. Lens.mapping Lens.coerced++-- | The name of the new queue. The following limits apply to this name:+--+-- -   A queue name can have up to 80 characters.+--+-- -   Valid values: alphanumeric characters, hyphens (@-@), and+--     underscores (@_@).+--+-- -   A FIFO queue name must end with the @.fifo@ suffix.+--+-- Queue URLs and names are case-sensitive.+createQueue_queueName :: Lens.Lens' CreateQueue Prelude.Text+createQueue_queueName = Lens.lens (\CreateQueue' {queueName} -> queueName) (\s@CreateQueue' {} a -> s {queueName = a} :: CreateQueue)++instance Core.AWSRequest CreateQueue where+  type AWSResponse CreateQueue = CreateQueueResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CreateQueueResult"+      ( \s h x ->+          CreateQueueResponse'+            Prelude.<$> (x Data..@? "QueueUrl")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateQueue where+  hashWithSalt _salt CreateQueue' {..} =+    _salt+      `Prelude.hashWithSalt` attributes+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` queueName++instance Prelude.NFData CreateQueue where+  rnf CreateQueue' {..} =+    Prelude.rnf attributes+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf queueName++instance Data.ToHeaders CreateQueue where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateQueue where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateQueue where+  toQuery CreateQueue' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("CreateQueue" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        Data.toQuery+          ( Data.toQueryMap "Attribute" "Name" "Value"+              Prelude.<$> attributes+          ),+        Data.toQuery+          ( Data.toQueryMap "Tag" "Key" "Value"+              Prelude.<$> tags+          ),+        "QueueName" Data.=: queueName+      ]++-- | Returns the @QueueUrl@ attribute of the created queue.+--+-- /See:/ 'newCreateQueueResponse' smart constructor.+data CreateQueueResponse = CreateQueueResponse'+  { -- | The URL of the created Amazon SQS queue.+    queueUrl :: 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 'CreateQueueResponse' 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:+--+-- 'queueUrl', 'createQueueResponse_queueUrl' - The URL of the created Amazon SQS queue.+--+-- 'httpStatus', 'createQueueResponse_httpStatus' - The response's http status code.+newCreateQueueResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateQueueResponse+newCreateQueueResponse pHttpStatus_ =+  CreateQueueResponse'+    { queueUrl = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The URL of the created Amazon SQS queue.+createQueueResponse_queueUrl :: Lens.Lens' CreateQueueResponse (Prelude.Maybe Prelude.Text)+createQueueResponse_queueUrl = Lens.lens (\CreateQueueResponse' {queueUrl} -> queueUrl) (\s@CreateQueueResponse' {} a -> s {queueUrl = a} :: CreateQueueResponse)++-- | The response's http status code.+createQueueResponse_httpStatus :: Lens.Lens' CreateQueueResponse Prelude.Int+createQueueResponse_httpStatus = Lens.lens (\CreateQueueResponse' {httpStatus} -> httpStatus) (\s@CreateQueueResponse' {} a -> s {httpStatus = a} :: CreateQueueResponse)++instance Prelude.NFData CreateQueueResponse where+  rnf CreateQueueResponse' {..} =+    Prelude.rnf queueUrl+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,168 @@+{-# 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.SQS.DeleteMessage+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified message from the specified queue. To select the+-- message to delete, use the @ReceiptHandle@ of the message (/not/ the+-- @MessageId@ which you receive when you send the message). Amazon SQS can+-- delete a message from a queue even if a visibility timeout setting+-- causes the message to be locked by another consumer. Amazon SQS+-- automatically deletes messages left in a queue longer than the retention+-- period configured for the queue.+--+-- The @ReceiptHandle@ is associated with a /specific instance/ of+-- receiving a message. If you receive a message more than once, the+-- @ReceiptHandle@ is different each time you receive a message. When you+-- use the @DeleteMessage@ action, you must provide the most recently+-- received @ReceiptHandle@ for the message (otherwise, the request+-- succeeds, but the message might not be deleted).+--+-- For standard queues, it is possible to receive a message even after you+-- delete it. This might happen on rare occasions if one of the servers+-- which stores a copy of the message is unavailable when you send the+-- request to delete the message. The copy remains on the server and might+-- be returned to you during a subsequent receive request. You should+-- ensure that your application is idempotent, so that receiving a message+-- more than once does not cause issues.+module Amazonka.SQS.DeleteMessage+  ( -- * Creating a Request+    DeleteMessage (..),+    newDeleteMessage,++    -- * Request Lenses+    deleteMessage_queueUrl,+    deleteMessage_receiptHandle,++    -- * Destructuring the Response+    DeleteMessageResponse (..),+    newDeleteMessageResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newDeleteMessage' smart constructor.+data DeleteMessage = DeleteMessage'+  { -- | The URL of the Amazon SQS queue from which messages are deleted.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text,+    -- | The receipt handle associated with the message to delete.+    receiptHandle :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteMessage' 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:+--+-- 'queueUrl', 'deleteMessage_queueUrl' - The URL of the Amazon SQS queue from which messages are deleted.+--+-- Queue URLs and names are case-sensitive.+--+-- 'receiptHandle', 'deleteMessage_receiptHandle' - The receipt handle associated with the message to delete.+newDeleteMessage ::+  -- | 'queueUrl'+  Prelude.Text ->+  -- | 'receiptHandle'+  Prelude.Text ->+  DeleteMessage+newDeleteMessage pQueueUrl_ pReceiptHandle_ =+  DeleteMessage'+    { queueUrl = pQueueUrl_,+      receiptHandle = pReceiptHandle_+    }++-- | The URL of the Amazon SQS queue from which messages are deleted.+--+-- Queue URLs and names are case-sensitive.+deleteMessage_queueUrl :: Lens.Lens' DeleteMessage Prelude.Text+deleteMessage_queueUrl = Lens.lens (\DeleteMessage' {queueUrl} -> queueUrl) (\s@DeleteMessage' {} a -> s {queueUrl = a} :: DeleteMessage)++-- | The receipt handle associated with the message to delete.+deleteMessage_receiptHandle :: Lens.Lens' DeleteMessage Prelude.Text+deleteMessage_receiptHandle = Lens.lens (\DeleteMessage' {receiptHandle} -> receiptHandle) (\s@DeleteMessage' {} a -> s {receiptHandle = a} :: DeleteMessage)++instance Core.AWSRequest DeleteMessage where+  type+    AWSResponse DeleteMessage =+      DeleteMessageResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveNull DeleteMessageResponse'++instance Prelude.Hashable DeleteMessage where+  hashWithSalt _salt DeleteMessage' {..} =+    _salt+      `Prelude.hashWithSalt` queueUrl+      `Prelude.hashWithSalt` receiptHandle++instance Prelude.NFData DeleteMessage where+  rnf DeleteMessage' {..} =+    Prelude.rnf queueUrl+      `Prelude.seq` Prelude.rnf receiptHandle++instance Data.ToHeaders DeleteMessage where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteMessage where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteMessage where+  toQuery DeleteMessage' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteMessage" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueUrl" Data.=: queueUrl,+        "ReceiptHandle" Data.=: receiptHandle+      ]++-- | /See:/ 'newDeleteMessageResponse' smart constructor.+data DeleteMessageResponse = DeleteMessageResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteMessageResponse' 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.+newDeleteMessageResponse ::+  DeleteMessageResponse+newDeleteMessageResponse = DeleteMessageResponse'++instance Prelude.NFData DeleteMessageResponse where+  rnf _ = ()

@@ -0,0 +1,214 @@+{-# 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.SQS.DeleteMessageBatch+-- 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 up to ten messages from the specified queue. This is a batch+-- version of @ @@DeleteMessage@@.@ The result of the action on each+-- message is reported individually in the response.+--+-- Because the batch request can result in a combination of successful and+-- unsuccessful actions, you should check for batch errors even when the+-- call returns an HTTP status code of @200@.+--+-- Some actions take lists of parameters. These lists are specified using+-- the @param.n@ notation. Values of @n@ are integers starting from 1. For+-- example, a parameter list with two elements looks like this:+--+-- @&AttributeName.1=first@+--+-- @&AttributeName.2=second@+module Amazonka.SQS.DeleteMessageBatch+  ( -- * Creating a Request+    DeleteMessageBatch (..),+    newDeleteMessageBatch,++    -- * Request Lenses+    deleteMessageBatch_queueUrl,+    deleteMessageBatch_entries,++    -- * Destructuring the Response+    DeleteMessageBatchResponse (..),+    newDeleteMessageBatchResponse,++    -- * Response Lenses+    deleteMessageBatchResponse_httpStatus,+    deleteMessageBatchResponse_successful,+    deleteMessageBatchResponse_failed,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newDeleteMessageBatch' smart constructor.+data DeleteMessageBatch = DeleteMessageBatch'+  { -- | The URL of the Amazon SQS queue from which messages are deleted.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text,+    -- | A list of receipt handles for the messages to be deleted.+    entries :: [DeleteMessageBatchRequestEntry]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteMessageBatch' 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:+--+-- 'queueUrl', 'deleteMessageBatch_queueUrl' - The URL of the Amazon SQS queue from which messages are deleted.+--+-- Queue URLs and names are case-sensitive.+--+-- 'entries', 'deleteMessageBatch_entries' - A list of receipt handles for the messages to be deleted.+newDeleteMessageBatch ::+  -- | 'queueUrl'+  Prelude.Text ->+  DeleteMessageBatch+newDeleteMessageBatch pQueueUrl_ =+  DeleteMessageBatch'+    { queueUrl = pQueueUrl_,+      entries = Prelude.mempty+    }++-- | The URL of the Amazon SQS queue from which messages are deleted.+--+-- Queue URLs and names are case-sensitive.+deleteMessageBatch_queueUrl :: Lens.Lens' DeleteMessageBatch Prelude.Text+deleteMessageBatch_queueUrl = Lens.lens (\DeleteMessageBatch' {queueUrl} -> queueUrl) (\s@DeleteMessageBatch' {} a -> s {queueUrl = a} :: DeleteMessageBatch)++-- | A list of receipt handles for the messages to be deleted.+deleteMessageBatch_entries :: Lens.Lens' DeleteMessageBatch [DeleteMessageBatchRequestEntry]+deleteMessageBatch_entries = Lens.lens (\DeleteMessageBatch' {entries} -> entries) (\s@DeleteMessageBatch' {} a -> s {entries = a} :: DeleteMessageBatch) Prelude.. Lens.coerced++instance Core.AWSRequest DeleteMessageBatch where+  type+    AWSResponse DeleteMessageBatch =+      DeleteMessageBatchResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteMessageBatchResult"+      ( \s h x ->+          DeleteMessageBatchResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (Data.parseXMLList "DeleteMessageBatchResultEntry" x)+            Prelude.<*> (Data.parseXMLList "BatchResultErrorEntry" x)+      )++instance Prelude.Hashable DeleteMessageBatch where+  hashWithSalt _salt DeleteMessageBatch' {..} =+    _salt+      `Prelude.hashWithSalt` queueUrl+      `Prelude.hashWithSalt` entries++instance Prelude.NFData DeleteMessageBatch where+  rnf DeleteMessageBatch' {..} =+    Prelude.rnf queueUrl+      `Prelude.seq` Prelude.rnf entries++instance Data.ToHeaders DeleteMessageBatch where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteMessageBatch where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteMessageBatch where+  toQuery DeleteMessageBatch' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteMessageBatch" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueUrl" Data.=: queueUrl,+        Data.toQueryList+          "DeleteMessageBatchRequestEntry"+          entries+      ]++-- | For each message in the batch, the response contains a+-- @ @@DeleteMessageBatchResultEntry@@ @ tag if the message is deleted or a+-- @ @@BatchResultErrorEntry@@ @ tag if the message can\'t be deleted.+--+-- /See:/ 'newDeleteMessageBatchResponse' smart constructor.+data DeleteMessageBatchResponse = DeleteMessageBatchResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of @ @@DeleteMessageBatchResultEntry@@ @ items.+    successful :: [DeleteMessageBatchResultEntry],+    -- | A list of @ @@BatchResultErrorEntry@@ @ items.+    failed :: [BatchResultErrorEntry]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteMessageBatchResponse' 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', 'deleteMessageBatchResponse_httpStatus' - The response's http status code.+--+-- 'successful', 'deleteMessageBatchResponse_successful' - A list of @ @@DeleteMessageBatchResultEntry@@ @ items.+--+-- 'failed', 'deleteMessageBatchResponse_failed' - A list of @ @@BatchResultErrorEntry@@ @ items.+newDeleteMessageBatchResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteMessageBatchResponse+newDeleteMessageBatchResponse pHttpStatus_ =+  DeleteMessageBatchResponse'+    { httpStatus =+        pHttpStatus_,+      successful = Prelude.mempty,+      failed = Prelude.mempty+    }++-- | The response's http status code.+deleteMessageBatchResponse_httpStatus :: Lens.Lens' DeleteMessageBatchResponse Prelude.Int+deleteMessageBatchResponse_httpStatus = Lens.lens (\DeleteMessageBatchResponse' {httpStatus} -> httpStatus) (\s@DeleteMessageBatchResponse' {} a -> s {httpStatus = a} :: DeleteMessageBatchResponse)++-- | A list of @ @@DeleteMessageBatchResultEntry@@ @ items.+deleteMessageBatchResponse_successful :: Lens.Lens' DeleteMessageBatchResponse [DeleteMessageBatchResultEntry]+deleteMessageBatchResponse_successful = Lens.lens (\DeleteMessageBatchResponse' {successful} -> successful) (\s@DeleteMessageBatchResponse' {} a -> s {successful = a} :: DeleteMessageBatchResponse) Prelude.. Lens.coerced++-- | A list of @ @@BatchResultErrorEntry@@ @ items.+deleteMessageBatchResponse_failed :: Lens.Lens' DeleteMessageBatchResponse [BatchResultErrorEntry]+deleteMessageBatchResponse_failed = Lens.lens (\DeleteMessageBatchResponse' {failed} -> failed) (\s@DeleteMessageBatchResponse' {} a -> s {failed = a} :: DeleteMessageBatchResponse) Prelude.. Lens.coerced++instance Prelude.NFData DeleteMessageBatchResponse where+  rnf DeleteMessageBatchResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf successful+      `Prelude.seq` Prelude.rnf failed

@@ -0,0 +1,142 @@+{-# 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.SQS.DeleteQueue+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the queue specified by the @QueueUrl@, regardless of the+-- queue\'s contents.+--+-- Be careful with the @DeleteQueue@ action: When you delete a queue, any+-- messages in the queue are no longer available.+--+-- When you delete a queue, the deletion process takes up to 60 seconds.+-- Requests you send involving that queue during the 60 seconds might+-- succeed. For example, a @ @@SendMessage@@ @ request might succeed, but+-- after 60 seconds the queue and the message you sent no longer exist.+--+-- When you delete a queue, you must wait at least 60 seconds before+-- creating a queue with the same name.+--+-- Cross-account permissions don\'t apply to this action. For more+-- information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-customer-managed-policy-examples.html#grant-cross-account-permissions-to-role-and-user-name Grant cross-account permissions to a role and a user name>+-- in the /Amazon SQS Developer Guide/.+module Amazonka.SQS.DeleteQueue+  ( -- * Creating a Request+    DeleteQueue (..),+    newDeleteQueue,++    -- * Request Lenses+    deleteQueue_queueUrl,++    -- * Destructuring the Response+    DeleteQueueResponse (..),+    newDeleteQueueResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newDeleteQueue' smart constructor.+data DeleteQueue = DeleteQueue'+  { -- | The URL of the Amazon SQS queue to delete.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteQueue' 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:+--+-- 'queueUrl', 'deleteQueue_queueUrl' - The URL of the Amazon SQS queue to delete.+--+-- Queue URLs and names are case-sensitive.+newDeleteQueue ::+  -- | 'queueUrl'+  Prelude.Text ->+  DeleteQueue+newDeleteQueue pQueueUrl_ =+  DeleteQueue' {queueUrl = pQueueUrl_}++-- | The URL of the Amazon SQS queue to delete.+--+-- Queue URLs and names are case-sensitive.+deleteQueue_queueUrl :: Lens.Lens' DeleteQueue Prelude.Text+deleteQueue_queueUrl = Lens.lens (\DeleteQueue' {queueUrl} -> queueUrl) (\s@DeleteQueue' {} a -> s {queueUrl = a} :: DeleteQueue)++instance Core.AWSRequest DeleteQueue where+  type AWSResponse DeleteQueue = DeleteQueueResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response = Response.receiveNull DeleteQueueResponse'++instance Prelude.Hashable DeleteQueue where+  hashWithSalt _salt DeleteQueue' {..} =+    _salt `Prelude.hashWithSalt` queueUrl++instance Prelude.NFData DeleteQueue where+  rnf DeleteQueue' {..} = Prelude.rnf queueUrl++instance Data.ToHeaders DeleteQueue where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteQueue where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteQueue where+  toQuery DeleteQueue' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteQueue" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueUrl" Data.=: queueUrl+      ]++-- | /See:/ 'newDeleteQueueResponse' smart constructor.+data DeleteQueueResponse = DeleteQueueResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteQueueResponse' 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.+newDeleteQueueResponse ::+  DeleteQueueResponse+newDeleteQueueResponse = DeleteQueueResponse'++instance Prelude.NFData DeleteQueueResponse where+  rnf _ = ()

@@ -0,0 +1,618 @@+{-# 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.SQS.GetQueueAttributes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets attributes for the specified queue.+--+-- To determine whether a queue is+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO>,+-- you can check whether @QueueName@ ends with the @.fifo@ suffix.+module Amazonka.SQS.GetQueueAttributes+  ( -- * Creating a Request+    GetQueueAttributes (..),+    newGetQueueAttributes,++    -- * Request Lenses+    getQueueAttributes_attributeNames,+    getQueueAttributes_queueUrl,++    -- * Destructuring the Response+    GetQueueAttributesResponse (..),+    newGetQueueAttributesResponse,++    -- * Response Lenses+    getQueueAttributesResponse_attributes,+    getQueueAttributesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newGetQueueAttributes' smart constructor.+data GetQueueAttributes = GetQueueAttributes'+  { -- | A list of attributes for which to retrieve information.+    --+    -- The @AttributeName.N@ parameter is optional, but if you don\'t specify+    -- values for this parameter, the request returns empty results.+    --+    -- In the future, new attributes might be added. If you write code that+    -- calls this action, we recommend that you structure your code so that it+    -- can handle new attributes gracefully.+    --+    -- The following attributes are supported:+    --+    -- The @ApproximateNumberOfMessagesDelayed@,+    -- @ApproximateNumberOfMessagesNotVisible@, and+    -- @ApproximateNumberOfMessagesVisible@ metrics may not achieve consistency+    -- until at least 1 minute after the producers stop sending messages. This+    -- period is required for the queue metadata to reach eventual consistency.+    --+    -- -   @All@ – Returns all values.+    --+    -- -   @ApproximateNumberOfMessages@ – Returns the approximate number of+    --     messages available for retrieval from the queue.+    --+    -- -   @ApproximateNumberOfMessagesDelayed@ – Returns the approximate+    --     number of messages in the queue that are delayed and not available+    --     for reading immediately. This can happen when the queue is+    --     configured as a delay queue or when a message has been sent with a+    --     delay parameter.+    --+    -- -   @ApproximateNumberOfMessagesNotVisible@ – Returns the approximate+    --     number of messages that are in flight. Messages are considered to be+    --     /in flight/ if they have been sent to a client but have not yet been+    --     deleted or have not yet reached the end of their visibility window.+    --+    -- -   @CreatedTimestamp@ – Returns the time when the queue was created in+    --     seconds (<http://en.wikipedia.org/wiki/Unix_time epoch time>).+    --+    -- -   @DelaySeconds@ – Returns the default delay on the queue in seconds.+    --+    -- -   @LastModifiedTimestamp@ – Returns the time when the queue was last+    --     changed in seconds+    --     (<http://en.wikipedia.org/wiki/Unix_time epoch time>).+    --+    -- -   @MaximumMessageSize@ – Returns the limit of how many bytes a message+    --     can contain before Amazon SQS rejects it.+    --+    -- -   @MessageRetentionPeriod@ – Returns the length of time, in seconds,+    --     for which Amazon SQS retains a message.+    --+    -- -   @Policy@ – Returns the policy of the queue.+    --+    -- -   @QueueArn@ – Returns the Amazon resource name (ARN) of the queue.+    --+    -- -   @ReceiveMessageWaitTimeSeconds@ – Returns the length of time, in+    --     seconds, for which the @ReceiveMessage@ action waits for a message+    --     to arrive.+    --+    -- -   @RedrivePolicy@ – The string that includes the parameters for the+    --     dead-letter queue functionality of the source queue as a JSON+    --     object. For more information about the redrive policy and+    --     dead-letter queues, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-dead-letter-queues.html Using Amazon SQS Dead-Letter Queues>+    --     in the /Amazon SQS Developer Guide/.+    --+    --     -   @deadLetterTargetArn@ – The Amazon Resource Name (ARN) of the+    --         dead-letter queue to which Amazon SQS moves messages after the+    --         value of @maxReceiveCount@ is exceeded.+    --+    --     -   @maxReceiveCount@ – The number of times a message is delivered+    --         to the source queue before being moved to the dead-letter queue.+    --         When the @ReceiveCount@ for a message exceeds the+    --         @maxReceiveCount@ for a queue, Amazon SQS moves the message to+    --         the dead-letter-queue.+    --+    -- -   @VisibilityTimeout@ – Returns the visibility timeout for the queue.+    --     For more information about the visibility timeout, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+    --     in the /Amazon SQS Developer Guide/.+    --+    -- The following attributes apply only to+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html server-side-encryption>:+    --+    -- -   @KmsMasterKeyId@ – Returns the ID of an Amazon Web Services managed+    --     customer master key (CMK) for Amazon SQS or a custom CMK. For more+    --     information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-sse-key-terms Key Terms>.+    --+    -- -   @KmsDataKeyReusePeriodSeconds@ – Returns the length of time, in+    --     seconds, for which Amazon SQS can reuse a data key to encrypt or+    --     decrypt messages before calling KMS again. For more information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-how-does-the-data-key-reuse-period-work How Does the Data Key Reuse Period Work?>.+    --+    -- -   @SqsManagedSseEnabled@ – Returns information about whether the queue+    --     is using SSE-SQS encryption using SQS owned encryption keys. Only+    --     one server-side encryption option is supported per queue (e.g.+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+    --     or+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+    --+    -- The following attributes apply only to+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO (first-in-first-out) queues>:+    --+    -- -   @FifoQueue@ – Returns information about whether the queue is FIFO.+    --     For more information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-understanding-logic.html FIFO queue logic>+    --     in the /Amazon SQS Developer Guide/.+    --+    --     To determine whether a queue is+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO>,+    --     you can check whether @QueueName@ ends with the @.fifo@ suffix.+    --+    -- -   @ContentBasedDeduplication@ – Returns whether content-based+    --     deduplication is enabled for the queue. For more information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-exactly-once-processing.html Exactly-once processing>+    --     in the /Amazon SQS Developer Guide/.+    --+    -- The following attributes apply only to+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/high-throughput-fifo.html high throughput for FIFO queues>:+    --+    -- -   @DeduplicationScope@ – Specifies whether message deduplication+    --     occurs at the message group or queue level. Valid values are+    --     @messageGroup@ and @queue@.+    --+    -- -   @FifoThroughputLimit@ – Specifies whether the FIFO queue throughput+    --     quota applies to the entire queue or per message group. Valid values+    --     are @perQueue@ and @perMessageGroupId@. The @perMessageGroupId@+    --     value is allowed only when the value for @DeduplicationScope@ is+    --     @messageGroup@.+    --+    -- To enable high throughput for FIFO queues, do the following:+    --+    -- -   Set @DeduplicationScope@ to @messageGroup@.+    --+    -- -   Set @FifoThroughputLimit@ to @perMessageGroupId@.+    --+    -- If you set these attributes to anything other than the values shown for+    -- enabling high throughput, normal throughput is in effect and+    -- deduplication occurs as specified.+    --+    -- For information on throughput quotas, see+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/quotas-messages.html Quotas related to messages>+    -- in the /Amazon SQS Developer Guide/.+    attributeNames :: Prelude.Maybe [QueueAttributeName],+    -- | The URL of the Amazon SQS queue whose attribute information is+    -- retrieved.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetQueueAttributes' 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:+--+-- 'attributeNames', 'getQueueAttributes_attributeNames' - A list of attributes for which to retrieve information.+--+-- The @AttributeName.N@ parameter is optional, but if you don\'t specify+-- values for this parameter, the request returns empty results.+--+-- In the future, new attributes might be added. If you write code that+-- calls this action, we recommend that you structure your code so that it+-- can handle new attributes gracefully.+--+-- The following attributes are supported:+--+-- The @ApproximateNumberOfMessagesDelayed@,+-- @ApproximateNumberOfMessagesNotVisible@, and+-- @ApproximateNumberOfMessagesVisible@ metrics may not achieve consistency+-- until at least 1 minute after the producers stop sending messages. This+-- period is required for the queue metadata to reach eventual consistency.+--+-- -   @All@ – Returns all values.+--+-- -   @ApproximateNumberOfMessages@ – Returns the approximate number of+--     messages available for retrieval from the queue.+--+-- -   @ApproximateNumberOfMessagesDelayed@ – Returns the approximate+--     number of messages in the queue that are delayed and not available+--     for reading immediately. This can happen when the queue is+--     configured as a delay queue or when a message has been sent with a+--     delay parameter.+--+-- -   @ApproximateNumberOfMessagesNotVisible@ – Returns the approximate+--     number of messages that are in flight. Messages are considered to be+--     /in flight/ if they have been sent to a client but have not yet been+--     deleted or have not yet reached the end of their visibility window.+--+-- -   @CreatedTimestamp@ – Returns the time when the queue was created in+--     seconds (<http://en.wikipedia.org/wiki/Unix_time epoch time>).+--+-- -   @DelaySeconds@ – Returns the default delay on the queue in seconds.+--+-- -   @LastModifiedTimestamp@ – Returns the time when the queue was last+--     changed in seconds+--     (<http://en.wikipedia.org/wiki/Unix_time epoch time>).+--+-- -   @MaximumMessageSize@ – Returns the limit of how many bytes a message+--     can contain before Amazon SQS rejects it.+--+-- -   @MessageRetentionPeriod@ – Returns the length of time, in seconds,+--     for which Amazon SQS retains a message.+--+-- -   @Policy@ – Returns the policy of the queue.+--+-- -   @QueueArn@ – Returns the Amazon resource name (ARN) of the queue.+--+-- -   @ReceiveMessageWaitTimeSeconds@ – Returns the length of time, in+--     seconds, for which the @ReceiveMessage@ action waits for a message+--     to arrive.+--+-- -   @RedrivePolicy@ – The string that includes the parameters for the+--     dead-letter queue functionality of the source queue as a JSON+--     object. For more information about the redrive policy and+--     dead-letter queues, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-dead-letter-queues.html Using Amazon SQS Dead-Letter Queues>+--     in the /Amazon SQS Developer Guide/.+--+--     -   @deadLetterTargetArn@ – The Amazon Resource Name (ARN) of the+--         dead-letter queue to which Amazon SQS moves messages after the+--         value of @maxReceiveCount@ is exceeded.+--+--     -   @maxReceiveCount@ – The number of times a message is delivered+--         to the source queue before being moved to the dead-letter queue.+--         When the @ReceiveCount@ for a message exceeds the+--         @maxReceiveCount@ for a queue, Amazon SQS moves the message to+--         the dead-letter-queue.+--+-- -   @VisibilityTimeout@ – Returns the visibility timeout for the queue.+--     For more information about the visibility timeout, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+--     in the /Amazon SQS Developer Guide/.+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html server-side-encryption>:+--+-- -   @KmsMasterKeyId@ – Returns the ID of an Amazon Web Services managed+--     customer master key (CMK) for Amazon SQS or a custom CMK. For more+--     information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-sse-key-terms Key Terms>.+--+-- -   @KmsDataKeyReusePeriodSeconds@ – Returns the length of time, in+--     seconds, for which Amazon SQS can reuse a data key to encrypt or+--     decrypt messages before calling KMS again. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-how-does-the-data-key-reuse-period-work How Does the Data Key Reuse Period Work?>.+--+-- -   @SqsManagedSseEnabled@ – Returns information about whether the queue+--     is using SSE-SQS encryption using SQS owned encryption keys. Only+--     one server-side encryption option is supported per queue (e.g.+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+--     or+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO (first-in-first-out) queues>:+--+-- -   @FifoQueue@ – Returns information about whether the queue is FIFO.+--     For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-understanding-logic.html FIFO queue logic>+--     in the /Amazon SQS Developer Guide/.+--+--     To determine whether a queue is+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO>,+--     you can check whether @QueueName@ ends with the @.fifo@ suffix.+--+-- -   @ContentBasedDeduplication@ – Returns whether content-based+--     deduplication is enabled for the queue. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-exactly-once-processing.html Exactly-once processing>+--     in the /Amazon SQS Developer Guide/.+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/high-throughput-fifo.html high throughput for FIFO queues>:+--+-- -   @DeduplicationScope@ – Specifies whether message deduplication+--     occurs at the message group or queue level. Valid values are+--     @messageGroup@ and @queue@.+--+-- -   @FifoThroughputLimit@ – Specifies whether the FIFO queue throughput+--     quota applies to the entire queue or per message group. Valid values+--     are @perQueue@ and @perMessageGroupId@. The @perMessageGroupId@+--     value is allowed only when the value for @DeduplicationScope@ is+--     @messageGroup@.+--+-- To enable high throughput for FIFO queues, do the following:+--+-- -   Set @DeduplicationScope@ to @messageGroup@.+--+-- -   Set @FifoThroughputLimit@ to @perMessageGroupId@.+--+-- If you set these attributes to anything other than the values shown for+-- enabling high throughput, normal throughput is in effect and+-- deduplication occurs as specified.+--+-- For information on throughput quotas, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/quotas-messages.html Quotas related to messages>+-- in the /Amazon SQS Developer Guide/.+--+-- 'queueUrl', 'getQueueAttributes_queueUrl' - The URL of the Amazon SQS queue whose attribute information is+-- retrieved.+--+-- Queue URLs and names are case-sensitive.+newGetQueueAttributes ::+  -- | 'queueUrl'+  Prelude.Text ->+  GetQueueAttributes+newGetQueueAttributes pQueueUrl_ =+  GetQueueAttributes'+    { attributeNames =+        Prelude.Nothing,+      queueUrl = pQueueUrl_+    }++-- | A list of attributes for which to retrieve information.+--+-- The @AttributeName.N@ parameter is optional, but if you don\'t specify+-- values for this parameter, the request returns empty results.+--+-- In the future, new attributes might be added. If you write code that+-- calls this action, we recommend that you structure your code so that it+-- can handle new attributes gracefully.+--+-- The following attributes are supported:+--+-- The @ApproximateNumberOfMessagesDelayed@,+-- @ApproximateNumberOfMessagesNotVisible@, and+-- @ApproximateNumberOfMessagesVisible@ metrics may not achieve consistency+-- until at least 1 minute after the producers stop sending messages. This+-- period is required for the queue metadata to reach eventual consistency.+--+-- -   @All@ – Returns all values.+--+-- -   @ApproximateNumberOfMessages@ – Returns the approximate number of+--     messages available for retrieval from the queue.+--+-- -   @ApproximateNumberOfMessagesDelayed@ – Returns the approximate+--     number of messages in the queue that are delayed and not available+--     for reading immediately. This can happen when the queue is+--     configured as a delay queue or when a message has been sent with a+--     delay parameter.+--+-- -   @ApproximateNumberOfMessagesNotVisible@ – Returns the approximate+--     number of messages that are in flight. Messages are considered to be+--     /in flight/ if they have been sent to a client but have not yet been+--     deleted or have not yet reached the end of their visibility window.+--+-- -   @CreatedTimestamp@ – Returns the time when the queue was created in+--     seconds (<http://en.wikipedia.org/wiki/Unix_time epoch time>).+--+-- -   @DelaySeconds@ – Returns the default delay on the queue in seconds.+--+-- -   @LastModifiedTimestamp@ – Returns the time when the queue was last+--     changed in seconds+--     (<http://en.wikipedia.org/wiki/Unix_time epoch time>).+--+-- -   @MaximumMessageSize@ – Returns the limit of how many bytes a message+--     can contain before Amazon SQS rejects it.+--+-- -   @MessageRetentionPeriod@ – Returns the length of time, in seconds,+--     for which Amazon SQS retains a message.+--+-- -   @Policy@ – Returns the policy of the queue.+--+-- -   @QueueArn@ – Returns the Amazon resource name (ARN) of the queue.+--+-- -   @ReceiveMessageWaitTimeSeconds@ – Returns the length of time, in+--     seconds, for which the @ReceiveMessage@ action waits for a message+--     to arrive.+--+-- -   @RedrivePolicy@ – The string that includes the parameters for the+--     dead-letter queue functionality of the source queue as a JSON+--     object. For more information about the redrive policy and+--     dead-letter queues, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-dead-letter-queues.html Using Amazon SQS Dead-Letter Queues>+--     in the /Amazon SQS Developer Guide/.+--+--     -   @deadLetterTargetArn@ – The Amazon Resource Name (ARN) of the+--         dead-letter queue to which Amazon SQS moves messages after the+--         value of @maxReceiveCount@ is exceeded.+--+--     -   @maxReceiveCount@ – The number of times a message is delivered+--         to the source queue before being moved to the dead-letter queue.+--         When the @ReceiveCount@ for a message exceeds the+--         @maxReceiveCount@ for a queue, Amazon SQS moves the message to+--         the dead-letter-queue.+--+-- -   @VisibilityTimeout@ – Returns the visibility timeout for the queue.+--     For more information about the visibility timeout, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+--     in the /Amazon SQS Developer Guide/.+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html server-side-encryption>:+--+-- -   @KmsMasterKeyId@ – Returns the ID of an Amazon Web Services managed+--     customer master key (CMK) for Amazon SQS or a custom CMK. For more+--     information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-sse-key-terms Key Terms>.+--+-- -   @KmsDataKeyReusePeriodSeconds@ – Returns the length of time, in+--     seconds, for which Amazon SQS can reuse a data key to encrypt or+--     decrypt messages before calling KMS again. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-server-side-encryption.html#sqs-how-does-the-data-key-reuse-period-work How Does the Data Key Reuse Period Work?>.+--+-- -   @SqsManagedSseEnabled@ – Returns information about whether the queue+--     is using SSE-SQS encryption using SQS owned encryption keys. Only+--     one server-side encryption option is supported per queue (e.g.+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+--     or+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO (first-in-first-out) queues>:+--+-- -   @FifoQueue@ – Returns information about whether the queue is FIFO.+--     For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-understanding-logic.html FIFO queue logic>+--     in the /Amazon SQS Developer Guide/.+--+--     To determine whether a queue is+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues.html FIFO>,+--     you can check whether @QueueName@ ends with the @.fifo@ suffix.+--+-- -   @ContentBasedDeduplication@ – Returns whether content-based+--     deduplication is enabled for the queue. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/FIFO-queues-exactly-once-processing.html Exactly-once processing>+--     in the /Amazon SQS Developer Guide/.+--+-- The following attributes apply only to+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/high-throughput-fifo.html high throughput for FIFO queues>:+--+-- -   @DeduplicationScope@ – Specifies whether message deduplication+--     occurs at the message group or queue level. Valid values are+--     @messageGroup@ and @queue@.+--+-- -   @FifoThroughputLimit@ – Specifies whether the FIFO queue throughput+--     quota applies to the entire queue or per message group. Valid values+--     are @perQueue@ and @perMessageGroupId@. The @perMessageGroupId@+--     value is allowed only when the value for @DeduplicationScope@ is+--     @messageGroup@.+--+-- To enable high throughput for FIFO queues, do the following:+--+-- -   Set @DeduplicationScope@ to @messageGroup@.+--+-- -   Set @FifoThroughputLimit@ to @perMessageGroupId@.+--+-- If you set these attributes to anything other than the values shown for+-- enabling high throughput, normal throughput is in effect and+-- deduplication occurs as specified.+--+-- For information on throughput quotas, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/quotas-messages.html Quotas related to messages>+-- in the /Amazon SQS Developer Guide/.+getQueueAttributes_attributeNames :: Lens.Lens' GetQueueAttributes (Prelude.Maybe [QueueAttributeName])+getQueueAttributes_attributeNames = Lens.lens (\GetQueueAttributes' {attributeNames} -> attributeNames) (\s@GetQueueAttributes' {} a -> s {attributeNames = a} :: GetQueueAttributes) Prelude.. Lens.mapping Lens.coerced++-- | The URL of the Amazon SQS queue whose attribute information is+-- retrieved.+--+-- Queue URLs and names are case-sensitive.+getQueueAttributes_queueUrl :: Lens.Lens' GetQueueAttributes Prelude.Text+getQueueAttributes_queueUrl = Lens.lens (\GetQueueAttributes' {queueUrl} -> queueUrl) (\s@GetQueueAttributes' {} a -> s {queueUrl = a} :: GetQueueAttributes)++instance Core.AWSRequest GetQueueAttributes where+  type+    AWSResponse GetQueueAttributes =+      GetQueueAttributesResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "GetQueueAttributesResult"+      ( \s h x ->+          GetQueueAttributesResponse'+            Prelude.<$> ( Core.may+                            (Data.parseXMLMap "Attribute" "Name" "Value")+                            x+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetQueueAttributes where+  hashWithSalt _salt GetQueueAttributes' {..} =+    _salt+      `Prelude.hashWithSalt` attributeNames+      `Prelude.hashWithSalt` queueUrl++instance Prelude.NFData GetQueueAttributes where+  rnf GetQueueAttributes' {..} =+    Prelude.rnf attributeNames+      `Prelude.seq` Prelude.rnf queueUrl++instance Data.ToHeaders GetQueueAttributes where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetQueueAttributes where+  toPath = Prelude.const "/"++instance Data.ToQuery GetQueueAttributes where+  toQuery GetQueueAttributes' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("GetQueueAttributes" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        Data.toQuery+          ( Data.toQueryList "AttributeName"+              Prelude.<$> attributeNames+          ),+        "QueueUrl" Data.=: queueUrl+      ]++-- | A list of returned queue attributes.+--+-- /See:/ 'newGetQueueAttributesResponse' smart constructor.+data GetQueueAttributesResponse = GetQueueAttributesResponse'+  { -- | A map of attributes to their respective values.+    attributes :: Prelude.Maybe (Prelude.HashMap QueueAttributeName Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetQueueAttributesResponse' 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:+--+-- 'attributes', 'getQueueAttributesResponse_attributes' - A map of attributes to their respective values.+--+-- 'httpStatus', 'getQueueAttributesResponse_httpStatus' - The response's http status code.+newGetQueueAttributesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetQueueAttributesResponse+newGetQueueAttributesResponse pHttpStatus_ =+  GetQueueAttributesResponse'+    { attributes =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A map of attributes to their respective values.+getQueueAttributesResponse_attributes :: Lens.Lens' GetQueueAttributesResponse (Prelude.Maybe (Prelude.HashMap QueueAttributeName Prelude.Text))+getQueueAttributesResponse_attributes = Lens.lens (\GetQueueAttributesResponse' {attributes} -> attributes) (\s@GetQueueAttributesResponse' {} a -> s {attributes = a} :: GetQueueAttributesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getQueueAttributesResponse_httpStatus :: Lens.Lens' GetQueueAttributesResponse Prelude.Int+getQueueAttributesResponse_httpStatus = Lens.lens (\GetQueueAttributesResponse' {httpStatus} -> httpStatus) (\s@GetQueueAttributesResponse' {} a -> s {httpStatus = a} :: GetQueueAttributesResponse)++instance Prelude.NFData GetQueueAttributesResponse where+  rnf GetQueueAttributesResponse' {..} =+    Prelude.rnf attributes+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,204 @@+{-# 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.SQS.GetQueueUrl+-- 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 URL of an existing Amazon SQS queue.+--+-- To access a queue that belongs to another AWS account, use the+-- @QueueOwnerAWSAccountId@ parameter to specify the account ID of the+-- queue\'s owner. The queue\'s owner must grant you permission to access+-- the queue. For more information about shared queue access, see+-- @ @@AddPermission@@ @ or see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-writing-an-sqs-policy.html#write-messages-to-shared-queue Allow Developers to Write Messages to a Shared Queue>+-- in the /Amazon SQS Developer Guide/.+module Amazonka.SQS.GetQueueUrl+  ( -- * Creating a Request+    GetQueueUrl (..),+    newGetQueueUrl,++    -- * Request Lenses+    getQueueUrl_queueOwnerAWSAccountId,+    getQueueUrl_queueName,++    -- * Destructuring the Response+    GetQueueUrlResponse (..),+    newGetQueueUrlResponse,++    -- * Response Lenses+    getQueueUrlResponse_httpStatus,+    getQueueUrlResponse_queueUrl,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newGetQueueUrl' smart constructor.+data GetQueueUrl = GetQueueUrl'+  { -- | The Amazon Web Services account ID of the account that created the+    -- queue.+    queueOwnerAWSAccountId :: Prelude.Maybe Prelude.Text,+    -- | The name of the queue whose URL must be fetched. Maximum 80 characters.+    -- Valid values: alphanumeric characters, hyphens (@-@), and underscores+    -- (@_@).+    --+    -- Queue URLs and names are case-sensitive.+    queueName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetQueueUrl' 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:+--+-- 'queueOwnerAWSAccountId', 'getQueueUrl_queueOwnerAWSAccountId' - The Amazon Web Services account ID of the account that created the+-- queue.+--+-- 'queueName', 'getQueueUrl_queueName' - The name of the queue whose URL must be fetched. Maximum 80 characters.+-- Valid values: alphanumeric characters, hyphens (@-@), and underscores+-- (@_@).+--+-- Queue URLs and names are case-sensitive.+newGetQueueUrl ::+  -- | 'queueName'+  Prelude.Text ->+  GetQueueUrl+newGetQueueUrl pQueueName_ =+  GetQueueUrl'+    { queueOwnerAWSAccountId =+        Prelude.Nothing,+      queueName = pQueueName_+    }++-- | The Amazon Web Services account ID of the account that created the+-- queue.+getQueueUrl_queueOwnerAWSAccountId :: Lens.Lens' GetQueueUrl (Prelude.Maybe Prelude.Text)+getQueueUrl_queueOwnerAWSAccountId = Lens.lens (\GetQueueUrl' {queueOwnerAWSAccountId} -> queueOwnerAWSAccountId) (\s@GetQueueUrl' {} a -> s {queueOwnerAWSAccountId = a} :: GetQueueUrl)++-- | The name of the queue whose URL must be fetched. Maximum 80 characters.+-- Valid values: alphanumeric characters, hyphens (@-@), and underscores+-- (@_@).+--+-- Queue URLs and names are case-sensitive.+getQueueUrl_queueName :: Lens.Lens' GetQueueUrl Prelude.Text+getQueueUrl_queueName = Lens.lens (\GetQueueUrl' {queueName} -> queueName) (\s@GetQueueUrl' {} a -> s {queueName = a} :: GetQueueUrl)++instance Core.AWSRequest GetQueueUrl where+  type AWSResponse GetQueueUrl = GetQueueUrlResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "GetQueueUrlResult"+      ( \s h x ->+          GetQueueUrlResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "QueueUrl")+      )++instance Prelude.Hashable GetQueueUrl where+  hashWithSalt _salt GetQueueUrl' {..} =+    _salt+      `Prelude.hashWithSalt` queueOwnerAWSAccountId+      `Prelude.hashWithSalt` queueName++instance Prelude.NFData GetQueueUrl where+  rnf GetQueueUrl' {..} =+    Prelude.rnf queueOwnerAWSAccountId+      `Prelude.seq` Prelude.rnf queueName++instance Data.ToHeaders GetQueueUrl where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetQueueUrl where+  toPath = Prelude.const "/"++instance Data.ToQuery GetQueueUrl where+  toQuery GetQueueUrl' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("GetQueueUrl" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueOwnerAWSAccountId"+          Data.=: queueOwnerAWSAccountId,+        "QueueName" Data.=: queueName+      ]++-- | For more information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-api-responses.html Interpreting Responses>+-- in the /Amazon SQS Developer Guide/.+--+-- /See:/ 'newGetQueueUrlResponse' smart constructor.+data GetQueueUrlResponse = GetQueueUrlResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The URL of the queue.+    queueUrl :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetQueueUrlResponse' 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', 'getQueueUrlResponse_httpStatus' - The response's http status code.+--+-- 'queueUrl', 'getQueueUrlResponse_queueUrl' - The URL of the queue.+newGetQueueUrlResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'queueUrl'+  Prelude.Text ->+  GetQueueUrlResponse+newGetQueueUrlResponse pHttpStatus_ pQueueUrl_ =+  GetQueueUrlResponse'+    { httpStatus = pHttpStatus_,+      queueUrl = pQueueUrl_+    }++-- | The response's http status code.+getQueueUrlResponse_httpStatus :: Lens.Lens' GetQueueUrlResponse Prelude.Int+getQueueUrlResponse_httpStatus = Lens.lens (\GetQueueUrlResponse' {httpStatus} -> httpStatus) (\s@GetQueueUrlResponse' {} a -> s {httpStatus = a} :: GetQueueUrlResponse)++-- | The URL of the queue.+getQueueUrlResponse_queueUrl :: Lens.Lens' GetQueueUrlResponse Prelude.Text+getQueueUrlResponse_queueUrl = Lens.lens (\GetQueueUrlResponse' {queueUrl} -> queueUrl) (\s@GetQueueUrlResponse' {} a -> s {queueUrl = a} :: GetQueueUrlResponse)++instance Prelude.NFData GetQueueUrlResponse where+  rnf GetQueueUrlResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf queueUrl

@@ -0,0 +1,235 @@+{-# 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.SQS.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.SQS.Lens+  ( -- * Operations++    -- ** AddPermission+    addPermission_queueUrl,+    addPermission_label,+    addPermission_aWSAccountIds,+    addPermission_actions,++    -- ** ChangeMessageVisibility+    changeMessageVisibility_queueUrl,+    changeMessageVisibility_receiptHandle,+    changeMessageVisibility_visibilityTimeout,++    -- ** ChangeMessageVisibilityBatch+    changeMessageVisibilityBatch_queueUrl,+    changeMessageVisibilityBatch_entries,+    changeMessageVisibilityBatchResponse_httpStatus,+    changeMessageVisibilityBatchResponse_successful,+    changeMessageVisibilityBatchResponse_failed,++    -- ** CreateQueue+    createQueue_attributes,+    createQueue_tags,+    createQueue_queueName,+    createQueueResponse_queueUrl,+    createQueueResponse_httpStatus,++    -- ** DeleteMessage+    deleteMessage_queueUrl,+    deleteMessage_receiptHandle,++    -- ** DeleteMessageBatch+    deleteMessageBatch_queueUrl,+    deleteMessageBatch_entries,+    deleteMessageBatchResponse_httpStatus,+    deleteMessageBatchResponse_successful,+    deleteMessageBatchResponse_failed,++    -- ** DeleteQueue+    deleteQueue_queueUrl,++    -- ** GetQueueAttributes+    getQueueAttributes_attributeNames,+    getQueueAttributes_queueUrl,+    getQueueAttributesResponse_attributes,+    getQueueAttributesResponse_httpStatus,++    -- ** GetQueueUrl+    getQueueUrl_queueOwnerAWSAccountId,+    getQueueUrl_queueName,+    getQueueUrlResponse_httpStatus,+    getQueueUrlResponse_queueUrl,++    -- ** ListDeadLetterSourceQueues+    listDeadLetterSourceQueues_maxResults,+    listDeadLetterSourceQueues_nextToken,+    listDeadLetterSourceQueues_queueUrl,+    listDeadLetterSourceQueuesResponse_nextToken,+    listDeadLetterSourceQueuesResponse_httpStatus,+    listDeadLetterSourceQueuesResponse_queueUrls,++    -- ** ListQueueTags+    listQueueTags_queueUrl,+    listQueueTagsResponse_tags,+    listQueueTagsResponse_httpStatus,++    -- ** ListQueues+    listQueues_maxResults,+    listQueues_nextToken,+    listQueues_queueNamePrefix,+    listQueuesResponse_nextToken,+    listQueuesResponse_queueUrls,+    listQueuesResponse_httpStatus,++    -- ** PurgeQueue+    purgeQueue_queueUrl,++    -- ** ReceiveMessage+    receiveMessage_attributeNames,+    receiveMessage_maxNumberOfMessages,+    receiveMessage_messageAttributeNames,+    receiveMessage_receiveRequestAttemptId,+    receiveMessage_visibilityTimeout,+    receiveMessage_waitTimeSeconds,+    receiveMessage_queueUrl,+    receiveMessageResponse_messages,+    receiveMessageResponse_httpStatus,++    -- ** RemovePermission+    removePermission_queueUrl,+    removePermission_label,++    -- ** SendMessage+    sendMessage_delaySeconds,+    sendMessage_messageAttributes,+    sendMessage_messageDeduplicationId,+    sendMessage_messageGroupId,+    sendMessage_messageSystemAttributes,+    sendMessage_queueUrl,+    sendMessage_messageBody,+    sendMessageResponse_mD5OfMessageAttributes,+    sendMessageResponse_mD5OfMessageBody,+    sendMessageResponse_mD5OfMessageSystemAttributes,+    sendMessageResponse_messageId,+    sendMessageResponse_sequenceNumber,+    sendMessageResponse_httpStatus,++    -- ** SendMessageBatch+    sendMessageBatch_queueUrl,+    sendMessageBatch_entries,+    sendMessageBatchResponse_httpStatus,+    sendMessageBatchResponse_successful,+    sendMessageBatchResponse_failed,++    -- ** SetQueueAttributes+    setQueueAttributes_queueUrl,+    setQueueAttributes_attributes,++    -- ** TagQueue+    tagQueue_queueUrl,+    tagQueue_tags,++    -- ** UntagQueue+    untagQueue_queueUrl,+    untagQueue_tagKeys,++    -- * Types++    -- ** BatchResultErrorEntry+    batchResultErrorEntry_message,+    batchResultErrorEntry_id,+    batchResultErrorEntry_senderFault,+    batchResultErrorEntry_code,++    -- ** ChangeMessageVisibilityBatchRequestEntry+    changeMessageVisibilityBatchRequestEntry_visibilityTimeout,+    changeMessageVisibilityBatchRequestEntry_id,+    changeMessageVisibilityBatchRequestEntry_receiptHandle,++    -- ** ChangeMessageVisibilityBatchResultEntry+    changeMessageVisibilityBatchResultEntry_id,++    -- ** DeleteMessageBatchRequestEntry+    deleteMessageBatchRequestEntry_id,+    deleteMessageBatchRequestEntry_receiptHandle,++    -- ** DeleteMessageBatchResultEntry+    deleteMessageBatchResultEntry_id,++    -- ** Message+    message_attributes,+    message_body,+    message_mD5OfBody,+    message_mD5OfMessageAttributes,+    message_messageAttributes,+    message_messageId,+    message_receiptHandle,++    -- ** MessageAttributeValue+    messageAttributeValue_binaryListValues,+    messageAttributeValue_binaryValue,+    messageAttributeValue_stringListValues,+    messageAttributeValue_stringValue,+    messageAttributeValue_dataType,++    -- ** MessageSystemAttributeValue+    messageSystemAttributeValue_binaryListValues,+    messageSystemAttributeValue_binaryValue,+    messageSystemAttributeValue_stringListValues,+    messageSystemAttributeValue_stringValue,+    messageSystemAttributeValue_dataType,++    -- ** SendMessageBatchRequestEntry+    sendMessageBatchRequestEntry_delaySeconds,+    sendMessageBatchRequestEntry_messageAttributes,+    sendMessageBatchRequestEntry_messageDeduplicationId,+    sendMessageBatchRequestEntry_messageGroupId,+    sendMessageBatchRequestEntry_messageSystemAttributes,+    sendMessageBatchRequestEntry_id,+    sendMessageBatchRequestEntry_messageBody,++    -- ** SendMessageBatchResultEntry+    sendMessageBatchResultEntry_mD5OfMessageAttributes,+    sendMessageBatchResultEntry_mD5OfMessageSystemAttributes,+    sendMessageBatchResultEntry_sequenceNumber,+    sendMessageBatchResultEntry_id,+    sendMessageBatchResultEntry_messageId,+    sendMessageBatchResultEntry_mD5OfMessageBody,+  )+where++import Amazonka.SQS.AddPermission+import Amazonka.SQS.ChangeMessageVisibility+import Amazonka.SQS.ChangeMessageVisibilityBatch+import Amazonka.SQS.CreateQueue+import Amazonka.SQS.DeleteMessage+import Amazonka.SQS.DeleteMessageBatch+import Amazonka.SQS.DeleteQueue+import Amazonka.SQS.GetQueueAttributes+import Amazonka.SQS.GetQueueUrl+import Amazonka.SQS.ListDeadLetterSourceQueues+import Amazonka.SQS.ListQueueTags+import Amazonka.SQS.ListQueues+import Amazonka.SQS.PurgeQueue+import Amazonka.SQS.ReceiveMessage+import Amazonka.SQS.RemovePermission+import Amazonka.SQS.SendMessage+import Amazonka.SQS.SendMessageBatch+import Amazonka.SQS.SetQueueAttributes+import Amazonka.SQS.TagQueue+import Amazonka.SQS.Types.BatchResultErrorEntry+import Amazonka.SQS.Types.ChangeMessageVisibilityBatchRequestEntry+import Amazonka.SQS.Types.ChangeMessageVisibilityBatchResultEntry+import Amazonka.SQS.Types.DeleteMessageBatchRequestEntry+import Amazonka.SQS.Types.DeleteMessageBatchResultEntry+import Amazonka.SQS.Types.Message+import Amazonka.SQS.Types.MessageAttributeValue+import Amazonka.SQS.Types.MessageSystemAttributeValue+import Amazonka.SQS.Types.SendMessageBatchRequestEntry+import Amazonka.SQS.Types.SendMessageBatchResultEntry+import Amazonka.SQS.UntagQueue

@@ -0,0 +1,265 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SQS.ListDeadLetterSourceQueues+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of your queues that have the @RedrivePolicy@ queue+-- attribute configured with a dead-letter queue.+--+-- The @ListDeadLetterSourceQueues@ methods supports pagination. Set+-- parameter @MaxResults@ in the request to specify the maximum number of+-- results to be returned in the response. If you do not set @MaxResults@,+-- the response includes a maximum of 1,000 results. If you set+-- @MaxResults@ and there are additional results to display, the response+-- includes a value for @NextToken@. Use @NextToken@ as a parameter in your+-- next request to @ListDeadLetterSourceQueues@ to receive the next page of+-- results.+--+-- For more information about using dead-letter queues, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-dead-letter-queues.html Using Amazon SQS Dead-Letter Queues>+-- in the /Amazon SQS Developer Guide/.+--+-- This operation returns paginated results.+module Amazonka.SQS.ListDeadLetterSourceQueues+  ( -- * Creating a Request+    ListDeadLetterSourceQueues (..),+    newListDeadLetterSourceQueues,++    -- * Request Lenses+    listDeadLetterSourceQueues_maxResults,+    listDeadLetterSourceQueues_nextToken,+    listDeadLetterSourceQueues_queueUrl,++    -- * Destructuring the Response+    ListDeadLetterSourceQueuesResponse (..),+    newListDeadLetterSourceQueuesResponse,++    -- * Response Lenses+    listDeadLetterSourceQueuesResponse_nextToken,+    listDeadLetterSourceQueuesResponse_httpStatus,+    listDeadLetterSourceQueuesResponse_queueUrls,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newListDeadLetterSourceQueues' smart constructor.+data ListDeadLetterSourceQueues = ListDeadLetterSourceQueues'+  { -- | Maximum number of results to include in the response. Value range is 1+    -- to 1000. You must set @MaxResults@ to receive a value for @NextToken@ in+    -- the response.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | Pagination token to request the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The URL of a dead-letter queue.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDeadLetterSourceQueues' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listDeadLetterSourceQueues_maxResults' - Maximum number of results to include in the response. Value range is 1+-- to 1000. You must set @MaxResults@ to receive a value for @NextToken@ in+-- the response.+--+-- 'nextToken', 'listDeadLetterSourceQueues_nextToken' - Pagination token to request the next set of results.+--+-- 'queueUrl', 'listDeadLetterSourceQueues_queueUrl' - The URL of a dead-letter queue.+--+-- Queue URLs and names are case-sensitive.+newListDeadLetterSourceQueues ::+  -- | 'queueUrl'+  Prelude.Text ->+  ListDeadLetterSourceQueues+newListDeadLetterSourceQueues pQueueUrl_ =+  ListDeadLetterSourceQueues'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      queueUrl = pQueueUrl_+    }++-- | Maximum number of results to include in the response. Value range is 1+-- to 1000. You must set @MaxResults@ to receive a value for @NextToken@ in+-- the response.+listDeadLetterSourceQueues_maxResults :: Lens.Lens' ListDeadLetterSourceQueues (Prelude.Maybe Prelude.Int)+listDeadLetterSourceQueues_maxResults = Lens.lens (\ListDeadLetterSourceQueues' {maxResults} -> maxResults) (\s@ListDeadLetterSourceQueues' {} a -> s {maxResults = a} :: ListDeadLetterSourceQueues)++-- | Pagination token to request the next set of results.+listDeadLetterSourceQueues_nextToken :: Lens.Lens' ListDeadLetterSourceQueues (Prelude.Maybe Prelude.Text)+listDeadLetterSourceQueues_nextToken = Lens.lens (\ListDeadLetterSourceQueues' {nextToken} -> nextToken) (\s@ListDeadLetterSourceQueues' {} a -> s {nextToken = a} :: ListDeadLetterSourceQueues)++-- | The URL of a dead-letter queue.+--+-- Queue URLs and names are case-sensitive.+listDeadLetterSourceQueues_queueUrl :: Lens.Lens' ListDeadLetterSourceQueues Prelude.Text+listDeadLetterSourceQueues_queueUrl = Lens.lens (\ListDeadLetterSourceQueues' {queueUrl} -> queueUrl) (\s@ListDeadLetterSourceQueues' {} a -> s {queueUrl = a} :: ListDeadLetterSourceQueues)++instance Core.AWSPager ListDeadLetterSourceQueues where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listDeadLetterSourceQueuesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listDeadLetterSourceQueuesResponse_queueUrls+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listDeadLetterSourceQueues_nextToken+          Lens..~ rs+          Lens.^? listDeadLetterSourceQueuesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListDeadLetterSourceQueues where+  type+    AWSResponse ListDeadLetterSourceQueues =+      ListDeadLetterSourceQueuesResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "ListDeadLetterSourceQueuesResult"+      ( \s h x ->+          ListDeadLetterSourceQueuesResponse'+            Prelude.<$> (x Data..@? "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (Data.parseXMLList "QueueUrl" x)+      )++instance Prelude.Hashable ListDeadLetterSourceQueues where+  hashWithSalt _salt ListDeadLetterSourceQueues' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` queueUrl++instance Prelude.NFData ListDeadLetterSourceQueues where+  rnf ListDeadLetterSourceQueues' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf queueUrl++instance Data.ToHeaders ListDeadLetterSourceQueues where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListDeadLetterSourceQueues where+  toPath = Prelude.const "/"++instance Data.ToQuery ListDeadLetterSourceQueues where+  toQuery ListDeadLetterSourceQueues' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("ListDeadLetterSourceQueues" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "MaxResults" Data.=: maxResults,+        "NextToken" Data.=: nextToken,+        "QueueUrl" Data.=: queueUrl+      ]++-- | A list of your dead letter source queues.+--+-- /See:/ 'newListDeadLetterSourceQueuesResponse' smart constructor.+data ListDeadLetterSourceQueuesResponse = ListDeadLetterSourceQueuesResponse'+  { -- | Pagination token to include in the next request. Token value is @null@+    -- if there are no additional results to request, or if you did not set+    -- @MaxResults@ in the request.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of source queue URLs that have the @RedrivePolicy@ queue+    -- attribute configured with a dead-letter queue.+    queueUrls :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDeadLetterSourceQueuesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listDeadLetterSourceQueuesResponse_nextToken' - Pagination token to include in the next request. Token value is @null@+-- if there are no additional results to request, or if you did not set+-- @MaxResults@ in the request.+--+-- 'httpStatus', 'listDeadLetterSourceQueuesResponse_httpStatus' - The response's http status code.+--+-- 'queueUrls', 'listDeadLetterSourceQueuesResponse_queueUrls' - A list of source queue URLs that have the @RedrivePolicy@ queue+-- attribute configured with a dead-letter queue.+newListDeadLetterSourceQueuesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListDeadLetterSourceQueuesResponse+newListDeadLetterSourceQueuesResponse pHttpStatus_ =+  ListDeadLetterSourceQueuesResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      queueUrls = Prelude.mempty+    }++-- | Pagination token to include in the next request. Token value is @null@+-- if there are no additional results to request, or if you did not set+-- @MaxResults@ in the request.+listDeadLetterSourceQueuesResponse_nextToken :: Lens.Lens' ListDeadLetterSourceQueuesResponse (Prelude.Maybe Prelude.Text)+listDeadLetterSourceQueuesResponse_nextToken = Lens.lens (\ListDeadLetterSourceQueuesResponse' {nextToken} -> nextToken) (\s@ListDeadLetterSourceQueuesResponse' {} a -> s {nextToken = a} :: ListDeadLetterSourceQueuesResponse)++-- | The response's http status code.+listDeadLetterSourceQueuesResponse_httpStatus :: Lens.Lens' ListDeadLetterSourceQueuesResponse Prelude.Int+listDeadLetterSourceQueuesResponse_httpStatus = Lens.lens (\ListDeadLetterSourceQueuesResponse' {httpStatus} -> httpStatus) (\s@ListDeadLetterSourceQueuesResponse' {} a -> s {httpStatus = a} :: ListDeadLetterSourceQueuesResponse)++-- | A list of source queue URLs that have the @RedrivePolicy@ queue+-- attribute configured with a dead-letter queue.+listDeadLetterSourceQueuesResponse_queueUrls :: Lens.Lens' ListDeadLetterSourceQueuesResponse [Prelude.Text]+listDeadLetterSourceQueuesResponse_queueUrls = Lens.lens (\ListDeadLetterSourceQueuesResponse' {queueUrls} -> queueUrls) (\s@ListDeadLetterSourceQueuesResponse' {} a -> s {queueUrls = a} :: ListDeadLetterSourceQueuesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListDeadLetterSourceQueuesResponse+  where+  rnf ListDeadLetterSourceQueuesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf queueUrls

@@ -0,0 +1,164 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SQS.ListQueueTags+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List all cost allocation tags added to the specified Amazon SQS queue.+-- For an overview, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-queue-tags.html Tagging Your Amazon SQS Queues>+-- in the /Amazon SQS Developer Guide/.+--+-- Cross-account permissions don\'t apply to this action. For more+-- information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-customer-managed-policy-examples.html#grant-cross-account-permissions-to-role-and-user-name Grant cross-account permissions to a role and a user name>+-- in the /Amazon SQS Developer Guide/.+module Amazonka.SQS.ListQueueTags+  ( -- * Creating a Request+    ListQueueTags (..),+    newListQueueTags,++    -- * Request Lenses+    listQueueTags_queueUrl,++    -- * Destructuring the Response+    ListQueueTagsResponse (..),+    newListQueueTagsResponse,++    -- * Response Lenses+    listQueueTagsResponse_tags,+    listQueueTagsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- | /See:/ 'newListQueueTags' smart constructor.+data ListQueueTags = ListQueueTags'+  { -- | The URL of the queue.+    queueUrl :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListQueueTags' 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:+--+-- 'queueUrl', 'listQueueTags_queueUrl' - The URL of the queue.+newListQueueTags ::+  -- | 'queueUrl'+  Prelude.Text ->+  ListQueueTags+newListQueueTags pQueueUrl_ =+  ListQueueTags' {queueUrl = pQueueUrl_}++-- | The URL of the queue.+listQueueTags_queueUrl :: Lens.Lens' ListQueueTags Prelude.Text+listQueueTags_queueUrl = Lens.lens (\ListQueueTags' {queueUrl} -> queueUrl) (\s@ListQueueTags' {} a -> s {queueUrl = a} :: ListQueueTags)++instance Core.AWSRequest ListQueueTags where+  type+    AWSResponse ListQueueTags =+      ListQueueTagsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "ListQueueTagsResult"+      ( \s h x ->+          ListQueueTagsResponse'+            Prelude.<$> (Core.may (Data.parseXMLMap "Tag" "Key" "Value") x)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListQueueTags where+  hashWithSalt _salt ListQueueTags' {..} =+    _salt `Prelude.hashWithSalt` queueUrl++instance Prelude.NFData ListQueueTags where+  rnf ListQueueTags' {..} = Prelude.rnf queueUrl++instance Data.ToHeaders ListQueueTags where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListQueueTags where+  toPath = Prelude.const "/"++instance Data.ToQuery ListQueueTags where+  toQuery ListQueueTags' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("ListQueueTags" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueUrl" Data.=: queueUrl+      ]++-- | /See:/ 'newListQueueTagsResponse' smart constructor.+data ListQueueTagsResponse = ListQueueTagsResponse'+  { -- | The list of all tags added to the specified queue.+    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 'ListQueueTagsResponse' 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', 'listQueueTagsResponse_tags' - The list of all tags added to the specified queue.+--+-- 'httpStatus', 'listQueueTagsResponse_httpStatus' - The response's http status code.+newListQueueTagsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListQueueTagsResponse+newListQueueTagsResponse pHttpStatus_ =+  ListQueueTagsResponse'+    { tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The list of all tags added to the specified queue.+listQueueTagsResponse_tags :: Lens.Lens' ListQueueTagsResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+listQueueTagsResponse_tags = Lens.lens (\ListQueueTagsResponse' {tags} -> tags) (\s@ListQueueTagsResponse' {} a -> s {tags = a} :: ListQueueTagsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listQueueTagsResponse_httpStatus :: Lens.Lens' ListQueueTagsResponse Prelude.Int+listQueueTagsResponse_httpStatus = Lens.lens (\ListQueueTagsResponse' {httpStatus} -> httpStatus) (\s@ListQueueTagsResponse' {} a -> s {httpStatus = a} :: ListQueueTagsResponse)++instance Prelude.NFData ListQueueTagsResponse where+  rnf ListQueueTagsResponse' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,262 @@+{-# 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.SQS.ListQueues+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of your queues in the current region. The response+-- includes a maximum of 1,000 results. If you specify a value for the+-- optional @QueueNamePrefix@ parameter, only queues with a name that+-- begins with the specified value are returned.+--+-- The @listQueues@ methods supports pagination. Set parameter @MaxResults@+-- in the request to specify the maximum number of results to be returned+-- in the response. If you do not set @MaxResults@, the response includes a+-- maximum of 1,000 results. If you set @MaxResults@ and there are+-- additional results to display, the response includes a value for+-- @NextToken@. Use @NextToken@ as a parameter in your next request to+-- @listQueues@ to receive the next page of results.+--+-- Cross-account permissions don\'t apply to this action. For more+-- information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-customer-managed-policy-examples.html#grant-cross-account-permissions-to-role-and-user-name Grant cross-account permissions to a role and a user name>+-- in the /Amazon SQS Developer Guide/.+--+-- This operation returns paginated results.+module Amazonka.SQS.ListQueues+  ( -- * Creating a Request+    ListQueues (..),+    newListQueues,++    -- * Request Lenses+    listQueues_maxResults,+    listQueues_nextToken,+    listQueues_queueNamePrefix,++    -- * Destructuring the Response+    ListQueuesResponse (..),+    newListQueuesResponse,++    -- * Response Lenses+    listQueuesResponse_nextToken,+    listQueuesResponse_queueUrls,+    listQueuesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newListQueues' smart constructor.+data ListQueues = ListQueues'+  { -- | Maximum number of results to include in the response. Value range is 1+    -- to 1000. You must set @MaxResults@ to receive a value for @NextToken@ in+    -- the response.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | Pagination token to request the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A string to use for filtering the list results. Only those queues whose+    -- name begins with the specified string are returned.+    --+    -- Queue URLs and names are case-sensitive.+    queueNamePrefix :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListQueues' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listQueues_maxResults' - Maximum number of results to include in the response. Value range is 1+-- to 1000. You must set @MaxResults@ to receive a value for @NextToken@ in+-- the response.+--+-- 'nextToken', 'listQueues_nextToken' - Pagination token to request the next set of results.+--+-- 'queueNamePrefix', 'listQueues_queueNamePrefix' - A string to use for filtering the list results. Only those queues whose+-- name begins with the specified string are returned.+--+-- Queue URLs and names are case-sensitive.+newListQueues ::+  ListQueues+newListQueues =+  ListQueues'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      queueNamePrefix = Prelude.Nothing+    }++-- | Maximum number of results to include in the response. Value range is 1+-- to 1000. You must set @MaxResults@ to receive a value for @NextToken@ in+-- the response.+listQueues_maxResults :: Lens.Lens' ListQueues (Prelude.Maybe Prelude.Int)+listQueues_maxResults = Lens.lens (\ListQueues' {maxResults} -> maxResults) (\s@ListQueues' {} a -> s {maxResults = a} :: ListQueues)++-- | Pagination token to request the next set of results.+listQueues_nextToken :: Lens.Lens' ListQueues (Prelude.Maybe Prelude.Text)+listQueues_nextToken = Lens.lens (\ListQueues' {nextToken} -> nextToken) (\s@ListQueues' {} a -> s {nextToken = a} :: ListQueues)++-- | A string to use for filtering the list results. Only those queues whose+-- name begins with the specified string are returned.+--+-- Queue URLs and names are case-sensitive.+listQueues_queueNamePrefix :: Lens.Lens' ListQueues (Prelude.Maybe Prelude.Text)+listQueues_queueNamePrefix = Lens.lens (\ListQueues' {queueNamePrefix} -> queueNamePrefix) (\s@ListQueues' {} a -> s {queueNamePrefix = a} :: ListQueues)++instance Core.AWSPager ListQueues where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listQueuesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listQueuesResponse_queueUrls+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listQueues_nextToken+          Lens..~ rs+          Lens.^? listQueuesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListQueues where+  type AWSResponse ListQueues = ListQueuesResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "ListQueuesResult"+      ( \s h x ->+          ListQueuesResponse'+            Prelude.<$> (x Data..@? "NextToken")+            Prelude.<*> (Core.may (Data.parseXMLList "QueueUrl") x)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListQueues where+  hashWithSalt _salt ListQueues' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` queueNamePrefix++instance Prelude.NFData ListQueues where+  rnf ListQueues' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf queueNamePrefix++instance Data.ToHeaders ListQueues where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListQueues where+  toPath = Prelude.const "/"++instance Data.ToQuery ListQueues where+  toQuery ListQueues' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("ListQueues" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "MaxResults" Data.=: maxResults,+        "NextToken" Data.=: nextToken,+        "QueueNamePrefix" Data.=: queueNamePrefix+      ]++-- | A list of your queues.+--+-- /See:/ 'newListQueuesResponse' smart constructor.+data ListQueuesResponse = ListQueuesResponse'+  { -- | Pagination token to include in the next request. Token value is @null@+    -- if there are no additional results to request, or if you did not set+    -- @MaxResults@ in the request.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of queue URLs, up to 1,000 entries, or the value of MaxResults+    -- that you sent in the request.+    queueUrls :: 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 'ListQueuesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listQueuesResponse_nextToken' - Pagination token to include in the next request. Token value is @null@+-- if there are no additional results to request, or if you did not set+-- @MaxResults@ in the request.+--+-- 'queueUrls', 'listQueuesResponse_queueUrls' - A list of queue URLs, up to 1,000 entries, or the value of MaxResults+-- that you sent in the request.+--+-- 'httpStatus', 'listQueuesResponse_httpStatus' - The response's http status code.+newListQueuesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListQueuesResponse+newListQueuesResponse pHttpStatus_ =+  ListQueuesResponse'+    { nextToken = Prelude.Nothing,+      queueUrls = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Pagination token to include in the next request. Token value is @null@+-- if there are no additional results to request, or if you did not set+-- @MaxResults@ in the request.+listQueuesResponse_nextToken :: Lens.Lens' ListQueuesResponse (Prelude.Maybe Prelude.Text)+listQueuesResponse_nextToken = Lens.lens (\ListQueuesResponse' {nextToken} -> nextToken) (\s@ListQueuesResponse' {} a -> s {nextToken = a} :: ListQueuesResponse)++-- | A list of queue URLs, up to 1,000 entries, or the value of MaxResults+-- that you sent in the request.+listQueuesResponse_queueUrls :: Lens.Lens' ListQueuesResponse (Prelude.Maybe [Prelude.Text])+listQueuesResponse_queueUrls = Lens.lens (\ListQueuesResponse' {queueUrls} -> queueUrls) (\s@ListQueuesResponse' {} a -> s {queueUrls = a} :: ListQueuesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listQueuesResponse_httpStatus :: Lens.Lens' ListQueuesResponse Prelude.Int+listQueuesResponse_httpStatus = Lens.lens (\ListQueuesResponse' {httpStatus} -> httpStatus) (\s@ListQueuesResponse' {} a -> s {httpStatus = a} :: ListQueuesResponse)++instance Prelude.NFData ListQueuesResponse where+  rnf ListQueuesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf queueUrls+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,140 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SQS.PurgeQueue+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the messages in a queue specified by the @QueueURL@ parameter.+--+-- When you use the @PurgeQueue@ action, you can\'t retrieve any messages+-- deleted from a queue.+--+-- The message deletion process takes up to 60 seconds. We recommend+-- waiting for 60 seconds regardless of your queue\'s size.+--+-- Messages sent to the queue /before/ you call @PurgeQueue@ might be+-- received but are deleted within the next minute.+--+-- Messages sent to the queue /after/ you call @PurgeQueue@ might be+-- deleted while the queue is being purged.+module Amazonka.SQS.PurgeQueue+  ( -- * Creating a Request+    PurgeQueue (..),+    newPurgeQueue,++    -- * Request Lenses+    purgeQueue_queueUrl,++    -- * Destructuring the Response+    PurgeQueueResponse (..),+    newPurgeQueueResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newPurgeQueue' smart constructor.+data PurgeQueue = PurgeQueue'+  { -- | The URL of the queue from which the @PurgeQueue@ action deletes+    -- messages.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PurgeQueue' 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:+--+-- 'queueUrl', 'purgeQueue_queueUrl' - The URL of the queue from which the @PurgeQueue@ action deletes+-- messages.+--+-- Queue URLs and names are case-sensitive.+newPurgeQueue ::+  -- | 'queueUrl'+  Prelude.Text ->+  PurgeQueue+newPurgeQueue pQueueUrl_ =+  PurgeQueue' {queueUrl = pQueueUrl_}++-- | The URL of the queue from which the @PurgeQueue@ action deletes+-- messages.+--+-- Queue URLs and names are case-sensitive.+purgeQueue_queueUrl :: Lens.Lens' PurgeQueue Prelude.Text+purgeQueue_queueUrl = Lens.lens (\PurgeQueue' {queueUrl} -> queueUrl) (\s@PurgeQueue' {} a -> s {queueUrl = a} :: PurgeQueue)++instance Core.AWSRequest PurgeQueue where+  type AWSResponse PurgeQueue = PurgeQueueResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response = Response.receiveNull PurgeQueueResponse'++instance Prelude.Hashable PurgeQueue where+  hashWithSalt _salt PurgeQueue' {..} =+    _salt `Prelude.hashWithSalt` queueUrl++instance Prelude.NFData PurgeQueue where+  rnf PurgeQueue' {..} = Prelude.rnf queueUrl++instance Data.ToHeaders PurgeQueue where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath PurgeQueue where+  toPath = Prelude.const "/"++instance Data.ToQuery PurgeQueue where+  toQuery PurgeQueue' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("PurgeQueue" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        "QueueUrl" Data.=: queueUrl+      ]++-- | /See:/ 'newPurgeQueueResponse' smart constructor.+data PurgeQueueResponse = PurgeQueueResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PurgeQueueResponse' 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.+newPurgeQueueResponse ::+  PurgeQueueResponse+newPurgeQueueResponse = PurgeQueueResponse'++instance Prelude.NFData PurgeQueueResponse where+  rnf _ = ()

@@ -0,0 +1,707 @@+{-# 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.SQS.ReceiveMessage+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves one or more messages (up to 10), from the specified queue.+-- Using the @WaitTimeSeconds@ parameter enables long-poll support. For+-- more information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-long-polling.html Amazon SQS Long Polling>+-- in the /Amazon SQS Developer Guide/.+--+-- Short poll is the default behavior where a weighted random set of+-- machines is sampled on a @ReceiveMessage@ call. Thus, only the messages+-- on the sampled machines are returned. If the number of messages in the+-- queue is small (fewer than 1,000), you most likely get fewer messages+-- than you requested per @ReceiveMessage@ call. If the number of messages+-- in the queue is extremely small, you might not receive any messages in a+-- particular @ReceiveMessage@ response. If this happens, repeat the+-- request.+--+-- For each message returned, the response includes the following:+--+-- -   The message body.+--+-- -   An MD5 digest of the message body. For information about MD5, see+--     <https://www.ietf.org/rfc/rfc1321.txt RFC1321>.+--+-- -   The @MessageId@ you received when you sent the message to the queue.+--+-- -   The receipt handle.+--+-- -   The message attributes.+--+-- -   An MD5 digest of the message attributes.+--+-- The receipt handle is the identifier you must provide when deleting the+-- message. For more information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-queue-message-identifiers.html Queue and Message Identifiers>+-- in the /Amazon SQS Developer Guide/.+--+-- You can provide the @VisibilityTimeout@ parameter in your request. The+-- parameter is applied to the messages that Amazon SQS returns in the+-- response. If you don\'t include the parameter, the overall visibility+-- timeout for the queue is used for the returned messages. For more+-- information, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+-- in the /Amazon SQS Developer Guide/.+--+-- A message that isn\'t deleted or a message whose visibility isn\'t+-- extended before the visibility timeout expires counts as a failed+-- receive. Depending on the configuration of the queue, the message might+-- be sent to the dead-letter queue.+--+-- In the future, new attributes might be added. If you write code that+-- calls this action, we recommend that you structure your code so that it+-- can handle new attributes gracefully.+module Amazonka.SQS.ReceiveMessage+  ( -- * Creating a Request+    ReceiveMessage (..),+    newReceiveMessage,++    -- * Request Lenses+    receiveMessage_attributeNames,+    receiveMessage_maxNumberOfMessages,+    receiveMessage_messageAttributeNames,+    receiveMessage_receiveRequestAttemptId,+    receiveMessage_visibilityTimeout,+    receiveMessage_waitTimeSeconds,+    receiveMessage_queueUrl,++    -- * Destructuring the Response+    ReceiveMessageResponse (..),+    newReceiveMessageResponse,++    -- * Response Lenses+    receiveMessageResponse_messages,+    receiveMessageResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SQS.Types++-- |+--+-- /See:/ 'newReceiveMessage' smart constructor.+data ReceiveMessage = ReceiveMessage'+  { -- | A list of attributes that need to be returned along with each message.+    -- These attributes include:+    --+    -- -   @All@ – Returns all values.+    --+    -- -   @ApproximateFirstReceiveTimestamp@ – Returns the time the message+    --     was first received from the queue+    --     (<http://en.wikipedia.org/wiki/Unix_time epoch time> in+    --     milliseconds).+    --+    -- -   @ApproximateReceiveCount@ – Returns the number of times a message+    --     has been received across all queues but not deleted.+    --+    -- -   @AWSTraceHeader@ – Returns the X-Ray trace header string.+    --+    -- -   @SenderId@+    --+    --     -   For an IAM user, returns the IAM user ID, for example+    --         @ABCDEFGHI1JKLMNOPQ23R@.+    --+    --     -   For an IAM role, returns the IAM role ID, for example+    --         @ABCDE1F2GH3I4JK5LMNOP:i-a123b456@.+    --+    -- -   @SentTimestamp@ – Returns the time the message was sent to the queue+    --     (<http://en.wikipedia.org/wiki/Unix_time epoch time> in+    --     milliseconds).+    --+    -- -   @SqsManagedSseEnabled@ – Enables server-side queue encryption using+    --     SQS owned encryption keys. Only one server-side encryption option is+    --     supported per queue (e.g.+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+    --     or+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+    --+    -- -   @MessageDeduplicationId@ – Returns the value provided by the+    --     producer that calls the @ @@SendMessage@@ @ action.+    --+    -- -   @MessageGroupId@ – Returns the value provided by the producer that+    --     calls the @ @@SendMessage@@ @ action. Messages with the same+    --     @MessageGroupId@ are returned in sequence.+    --+    -- -   @SequenceNumber@ – Returns the value provided by Amazon SQS.+    attributeNames :: Prelude.Maybe [MessageAttribute],+    -- | The maximum number of messages to return. Amazon SQS never returns more+    -- messages than this value (however, fewer messages might be returned).+    -- Valid values: 1 to 10. Default: 1.+    maxNumberOfMessages :: Prelude.Maybe Prelude.Int,+    -- | The name of the message attribute, where /N/ is the index.+    --+    -- -   The name can contain alphanumeric characters and the underscore+    --     (@_@), hyphen (@-@), and period (@.@).+    --+    -- -   The name is case-sensitive and must be unique among all attribute+    --     names for the message.+    --+    -- -   The name must not start with AWS-reserved prefixes such as @AWS.@ or+    --     @Amazon.@ (or any casing variants).+    --+    -- -   The name must not start or end with a period (@.@), and it should+    --     not have periods in succession (@..@).+    --+    -- -   The name can be up to 256 characters long.+    --+    -- When using @ReceiveMessage@, you can send a list of attribute names to+    -- receive, or you can return all of the attributes by specifying @All@ or+    -- @.*@ in your request. You can also use all message attributes starting+    -- with a prefix, for example @bar.*@.+    messageAttributeNames :: Prelude.Maybe [Prelude.Text],+    -- | This parameter applies only to FIFO (first-in-first-out) queues.+    --+    -- The token used for deduplication of @ReceiveMessage@ calls. If a+    -- networking issue occurs after a @ReceiveMessage@ action, and instead of+    -- a response you receive a generic error, it is possible to retry the same+    -- action with an identical @ReceiveRequestAttemptId@ to retrieve the same+    -- set of messages, even if their visibility timeout has not yet expired.+    --+    -- -   You can use @ReceiveRequestAttemptId@ only for 5 minutes after a+    --     @ReceiveMessage@ action.+    --+    -- -   When you set @FifoQueue@, a caller of the @ReceiveMessage@ action+    --     can provide a @ReceiveRequestAttemptId@ explicitly.+    --+    -- -   If a caller of the @ReceiveMessage@ action doesn\'t provide a+    --     @ReceiveRequestAttemptId@, Amazon SQS generates a+    --     @ReceiveRequestAttemptId@.+    --+    -- -   It is possible to retry the @ReceiveMessage@ action with the same+    --     @ReceiveRequestAttemptId@ if none of the messages have been modified+    --     (deleted or had their visibility changes).+    --+    -- -   During a visibility timeout, subsequent calls with the same+    --     @ReceiveRequestAttemptId@ return the same messages and receipt+    --     handles. If a retry occurs within the deduplication interval, it+    --     resets the visibility timeout. For more information, see+    --     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+    --     in the /Amazon SQS Developer Guide/.+    --+    --     If a caller of the @ReceiveMessage@ action still processes messages+    --     when the visibility timeout expires and messages become visible,+    --     another worker consuming from the same queue can receive the same+    --     messages and therefore process duplicates. Also, if a consumer whose+    --     message processing time is longer than the visibility timeout tries+    --     to delete the processed messages, the action fails with an error.+    --+    --     To mitigate this effect, ensure that your application observes a+    --     safe threshold before the visibility timeout expires and extend the+    --     visibility timeout as necessary.+    --+    -- -   While messages with a particular @MessageGroupId@ are invisible, no+    --     more messages belonging to the same @MessageGroupId@ are returned+    --     until the visibility timeout expires. You can still receive messages+    --     with another @MessageGroupId@ as long as it is also visible.+    --+    -- -   If a caller of @ReceiveMessage@ can\'t track the+    --     @ReceiveRequestAttemptId@, no retries work until the original+    --     visibility timeout expires. As a result, delays might occur but the+    --     messages in the queue remain in a strict order.+    --+    -- The maximum length of @ReceiveRequestAttemptId@ is 128 characters.+    -- @ReceiveRequestAttemptId@ can contain alphanumeric characters (@a-z@,+    -- @A-Z@, @0-9@) and punctuation+    -- (@!\"#$%&\'()*+,-.\/:;\<=>?\@[\\]^_\`{|}~@).+    --+    -- For best practices of using @ReceiveRequestAttemptId@, see+    -- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/using-receiverequestattemptid-request-parameter.html Using the ReceiveRequestAttemptId Request Parameter>+    -- in the /Amazon SQS Developer Guide/.+    receiveRequestAttemptId :: Prelude.Maybe Prelude.Text,+    -- | The duration (in seconds) that the received messages are hidden from+    -- subsequent retrieve requests after being retrieved by a @ReceiveMessage@+    -- request.+    visibilityTimeout :: Prelude.Maybe Prelude.Int,+    -- | The duration (in seconds) for which the call waits for a message to+    -- arrive in the queue before returning. If a message is available, the+    -- call returns sooner than @WaitTimeSeconds@. If no messages are available+    -- and the wait time expires, the call returns successfully with an empty+    -- list of messages.+    --+    -- To avoid HTTP errors, ensure that the HTTP response timeout for+    -- @ReceiveMessage@ requests is longer than the @WaitTimeSeconds@+    -- parameter. For example, with the Java SDK, you can set HTTP transport+    -- settings using the+    -- <https://sdk.amazonaws.com/java/api/latest/software/amazon/awssdk/http/nio/netty/NettyNioAsyncHttpClient.html NettyNioAsyncHttpClient>+    -- for asynchronous clients, or the+    -- <https://sdk.amazonaws.com/java/api/latest/software/amazon/awssdk/http/apache/ApacheHttpClient.html ApacheHttpClient>+    -- for synchronous clients.+    waitTimeSeconds :: Prelude.Maybe Prelude.Int,+    -- | The URL of the Amazon SQS queue from which messages are received.+    --+    -- Queue URLs and names are case-sensitive.+    queueUrl :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReceiveMessage' 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:+--+-- 'attributeNames', 'receiveMessage_attributeNames' - A list of attributes that need to be returned along with each message.+-- These attributes include:+--+-- -   @All@ – Returns all values.+--+-- -   @ApproximateFirstReceiveTimestamp@ – Returns the time the message+--     was first received from the queue+--     (<http://en.wikipedia.org/wiki/Unix_time epoch time> in+--     milliseconds).+--+-- -   @ApproximateReceiveCount@ – Returns the number of times a message+--     has been received across all queues but not deleted.+--+-- -   @AWSTraceHeader@ – Returns the X-Ray trace header string.+--+-- -   @SenderId@+--+--     -   For an IAM user, returns the IAM user ID, for example+--         @ABCDEFGHI1JKLMNOPQ23R@.+--+--     -   For an IAM role, returns the IAM role ID, for example+--         @ABCDE1F2GH3I4JK5LMNOP:i-a123b456@.+--+-- -   @SentTimestamp@ – Returns the time the message was sent to the queue+--     (<http://en.wikipedia.org/wiki/Unix_time epoch time> in+--     milliseconds).+--+-- -   @SqsManagedSseEnabled@ – Enables server-side queue encryption using+--     SQS owned encryption keys. Only one server-side encryption option is+--     supported per queue (e.g.+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+--     or+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+--+-- -   @MessageDeduplicationId@ – Returns the value provided by the+--     producer that calls the @ @@SendMessage@@ @ action.+--+-- -   @MessageGroupId@ – Returns the value provided by the producer that+--     calls the @ @@SendMessage@@ @ action. Messages with the same+--     @MessageGroupId@ are returned in sequence.+--+-- -   @SequenceNumber@ – Returns the value provided by Amazon SQS.+--+-- 'maxNumberOfMessages', 'receiveMessage_maxNumberOfMessages' - The maximum number of messages to return. Amazon SQS never returns more+-- messages than this value (however, fewer messages might be returned).+-- Valid values: 1 to 10. Default: 1.+--+-- 'messageAttributeNames', 'receiveMessage_messageAttributeNames' - The name of the message attribute, where /N/ is the index.+--+-- -   The name can contain alphanumeric characters and the underscore+--     (@_@), hyphen (@-@), and period (@.@).+--+-- -   The name is case-sensitive and must be unique among all attribute+--     names for the message.+--+-- -   The name must not start with AWS-reserved prefixes such as @AWS.@ or+--     @Amazon.@ (or any casing variants).+--+-- -   The name must not start or end with a period (@.@), and it should+--     not have periods in succession (@..@).+--+-- -   The name can be up to 256 characters long.+--+-- When using @ReceiveMessage@, you can send a list of attribute names to+-- receive, or you can return all of the attributes by specifying @All@ or+-- @.*@ in your request. You can also use all message attributes starting+-- with a prefix, for example @bar.*@.+--+-- 'receiveRequestAttemptId', 'receiveMessage_receiveRequestAttemptId' - This parameter applies only to FIFO (first-in-first-out) queues.+--+-- The token used for deduplication of @ReceiveMessage@ calls. If a+-- networking issue occurs after a @ReceiveMessage@ action, and instead of+-- a response you receive a generic error, it is possible to retry the same+-- action with an identical @ReceiveRequestAttemptId@ to retrieve the same+-- set of messages, even if their visibility timeout has not yet expired.+--+-- -   You can use @ReceiveRequestAttemptId@ only for 5 minutes after a+--     @ReceiveMessage@ action.+--+-- -   When you set @FifoQueue@, a caller of the @ReceiveMessage@ action+--     can provide a @ReceiveRequestAttemptId@ explicitly.+--+-- -   If a caller of the @ReceiveMessage@ action doesn\'t provide a+--     @ReceiveRequestAttemptId@, Amazon SQS generates a+--     @ReceiveRequestAttemptId@.+--+-- -   It is possible to retry the @ReceiveMessage@ action with the same+--     @ReceiveRequestAttemptId@ if none of the messages have been modified+--     (deleted or had their visibility changes).+--+-- -   During a visibility timeout, subsequent calls with the same+--     @ReceiveRequestAttemptId@ return the same messages and receipt+--     handles. If a retry occurs within the deduplication interval, it+--     resets the visibility timeout. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+--     in the /Amazon SQS Developer Guide/.+--+--     If a caller of the @ReceiveMessage@ action still processes messages+--     when the visibility timeout expires and messages become visible,+--     another worker consuming from the same queue can receive the same+--     messages and therefore process duplicates. Also, if a consumer whose+--     message processing time is longer than the visibility timeout tries+--     to delete the processed messages, the action fails with an error.+--+--     To mitigate this effect, ensure that your application observes a+--     safe threshold before the visibility timeout expires and extend the+--     visibility timeout as necessary.+--+-- -   While messages with a particular @MessageGroupId@ are invisible, no+--     more messages belonging to the same @MessageGroupId@ are returned+--     until the visibility timeout expires. You can still receive messages+--     with another @MessageGroupId@ as long as it is also visible.+--+-- -   If a caller of @ReceiveMessage@ can\'t track the+--     @ReceiveRequestAttemptId@, no retries work until the original+--     visibility timeout expires. As a result, delays might occur but the+--     messages in the queue remain in a strict order.+--+-- The maximum length of @ReceiveRequestAttemptId@ is 128 characters.+-- @ReceiveRequestAttemptId@ can contain alphanumeric characters (@a-z@,+-- @A-Z@, @0-9@) and punctuation+-- (@!\"#$%&\'()*+,-.\/:;\<=>?\@[\\]^_\`{|}~@).+--+-- For best practices of using @ReceiveRequestAttemptId@, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/using-receiverequestattemptid-request-parameter.html Using the ReceiveRequestAttemptId Request Parameter>+-- in the /Amazon SQS Developer Guide/.+--+-- 'visibilityTimeout', 'receiveMessage_visibilityTimeout' - The duration (in seconds) that the received messages are hidden from+-- subsequent retrieve requests after being retrieved by a @ReceiveMessage@+-- request.+--+-- 'waitTimeSeconds', 'receiveMessage_waitTimeSeconds' - The duration (in seconds) for which the call waits for a message to+-- arrive in the queue before returning. If a message is available, the+-- call returns sooner than @WaitTimeSeconds@. If no messages are available+-- and the wait time expires, the call returns successfully with an empty+-- list of messages.+--+-- To avoid HTTP errors, ensure that the HTTP response timeout for+-- @ReceiveMessage@ requests is longer than the @WaitTimeSeconds@+-- parameter. For example, with the Java SDK, you can set HTTP transport+-- settings using the+-- <https://sdk.amazonaws.com/java/api/latest/software/amazon/awssdk/http/nio/netty/NettyNioAsyncHttpClient.html NettyNioAsyncHttpClient>+-- for asynchronous clients, or the+-- <https://sdk.amazonaws.com/java/api/latest/software/amazon/awssdk/http/apache/ApacheHttpClient.html ApacheHttpClient>+-- for synchronous clients.+--+-- 'queueUrl', 'receiveMessage_queueUrl' - The URL of the Amazon SQS queue from which messages are received.+--+-- Queue URLs and names are case-sensitive.+newReceiveMessage ::+  -- | 'queueUrl'+  Prelude.Text ->+  ReceiveMessage+newReceiveMessage pQueueUrl_ =+  ReceiveMessage'+    { attributeNames = Prelude.Nothing,+      maxNumberOfMessages = Prelude.Nothing,+      messageAttributeNames = Prelude.Nothing,+      receiveRequestAttemptId = Prelude.Nothing,+      visibilityTimeout = Prelude.Nothing,+      waitTimeSeconds = Prelude.Nothing,+      queueUrl = pQueueUrl_+    }++-- | A list of attributes that need to be returned along with each message.+-- These attributes include:+--+-- -   @All@ – Returns all values.+--+-- -   @ApproximateFirstReceiveTimestamp@ – Returns the time the message+--     was first received from the queue+--     (<http://en.wikipedia.org/wiki/Unix_time epoch time> in+--     milliseconds).+--+-- -   @ApproximateReceiveCount@ – Returns the number of times a message+--     has been received across all queues but not deleted.+--+-- -   @AWSTraceHeader@ – Returns the X-Ray trace header string.+--+-- -   @SenderId@+--+--     -   For an IAM user, returns the IAM user ID, for example+--         @ABCDEFGHI1JKLMNOPQ23R@.+--+--     -   For an IAM role, returns the IAM role ID, for example+--         @ABCDE1F2GH3I4JK5LMNOP:i-a123b456@.+--+-- -   @SentTimestamp@ – Returns the time the message was sent to the queue+--     (<http://en.wikipedia.org/wiki/Unix_time epoch time> in+--     milliseconds).+--+-- -   @SqsManagedSseEnabled@ – Enables server-side queue encryption using+--     SQS owned encryption keys. Only one server-side encryption option is+--     supported per queue (e.g.+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sse-existing-queue.html SSE-KMS>+--     or+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-configure-sqs-sse-queue.html SSE-SQS>).+--+-- -   @MessageDeduplicationId@ – Returns the value provided by the+--     producer that calls the @ @@SendMessage@@ @ action.+--+-- -   @MessageGroupId@ – Returns the value provided by the producer that+--     calls the @ @@SendMessage@@ @ action. Messages with the same+--     @MessageGroupId@ are returned in sequence.+--+-- -   @SequenceNumber@ – Returns the value provided by Amazon SQS.+receiveMessage_attributeNames :: Lens.Lens' ReceiveMessage (Prelude.Maybe [MessageAttribute])+receiveMessage_attributeNames = Lens.lens (\ReceiveMessage' {attributeNames} -> attributeNames) (\s@ReceiveMessage' {} a -> s {attributeNames = a} :: ReceiveMessage) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of messages to return. Amazon SQS never returns more+-- messages than this value (however, fewer messages might be returned).+-- Valid values: 1 to 10. Default: 1.+receiveMessage_maxNumberOfMessages :: Lens.Lens' ReceiveMessage (Prelude.Maybe Prelude.Int)+receiveMessage_maxNumberOfMessages = Lens.lens (\ReceiveMessage' {maxNumberOfMessages} -> maxNumberOfMessages) (\s@ReceiveMessage' {} a -> s {maxNumberOfMessages = a} :: ReceiveMessage)++-- | The name of the message attribute, where /N/ is the index.+--+-- -   The name can contain alphanumeric characters and the underscore+--     (@_@), hyphen (@-@), and period (@.@).+--+-- -   The name is case-sensitive and must be unique among all attribute+--     names for the message.+--+-- -   The name must not start with AWS-reserved prefixes such as @AWS.@ or+--     @Amazon.@ (or any casing variants).+--+-- -   The name must not start or end with a period (@.@), and it should+--     not have periods in succession (@..@).+--+-- -   The name can be up to 256 characters long.+--+-- When using @ReceiveMessage@, you can send a list of attribute names to+-- receive, or you can return all of the attributes by specifying @All@ or+-- @.*@ in your request. You can also use all message attributes starting+-- with a prefix, for example @bar.*@.+receiveMessage_messageAttributeNames :: Lens.Lens' ReceiveMessage (Prelude.Maybe [Prelude.Text])+receiveMessage_messageAttributeNames = Lens.lens (\ReceiveMessage' {messageAttributeNames} -> messageAttributeNames) (\s@ReceiveMessage' {} a -> s {messageAttributeNames = a} :: ReceiveMessage) Prelude.. Lens.mapping Lens.coerced++-- | This parameter applies only to FIFO (first-in-first-out) queues.+--+-- The token used for deduplication of @ReceiveMessage@ calls. If a+-- networking issue occurs after a @ReceiveMessage@ action, and instead of+-- a response you receive a generic error, it is possible to retry the same+-- action with an identical @ReceiveRequestAttemptId@ to retrieve the same+-- set of messages, even if their visibility timeout has not yet expired.+--+-- -   You can use @ReceiveRequestAttemptId@ only for 5 minutes after a+--     @ReceiveMessage@ action.+--+-- -   When you set @FifoQueue@, a caller of the @ReceiveMessage@ action+--     can provide a @ReceiveRequestAttemptId@ explicitly.+--+-- -   If a caller of the @ReceiveMessage@ action doesn\'t provide a+--     @ReceiveRequestAttemptId@, Amazon SQS generates a+--     @ReceiveRequestAttemptId@.+--+-- -   It is possible to retry the @ReceiveMessage@ action with the same+--     @ReceiveRequestAttemptId@ if none of the messages have been modified+--     (deleted or had their visibility changes).+--+-- -   During a visibility timeout, subsequent calls with the same+--     @ReceiveRequestAttemptId@ return the same messages and receipt+--     handles. If a retry occurs within the deduplication interval, it+--     resets the visibility timeout. For more information, see+--     <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/sqs-visibility-timeout.html Visibility Timeout>+--     in the /Amazon SQS Developer Guide/.+--+--     If a caller of the @ReceiveMessage@ action still processes messages+--     when the visibility timeout expires and messages become visible,+--     another worker consuming from the same queue can receive the same+--     messages and therefore process duplicates. Also, if a consumer whose+--     message processing time is longer than the visibility timeout tries+--     to delete the processed messages, the action fails with an error.+--+--     To mitigate this effect, ensure that your application observes a+--     safe threshold before the visibility timeout expires and extend the+--     visibility timeout as necessary.+--+-- -   While messages with a particular @MessageGroupId@ are invisible, no+--     more messages belonging to the same @MessageGroupId@ are returned+--     until the visibility timeout expires. You can still receive messages+--     with another @MessageGroupId@ as long as it is also visible.+--+-- -   If a caller of @ReceiveMessage@ can\'t track the+--     @ReceiveRequestAttemptId@, no retries work until the original+--     visibility timeout expires. As a result, delays might occur but the+--     messages in the queue remain in a strict order.+--+-- The maximum length of @ReceiveRequestAttemptId@ is 128 characters.+-- @ReceiveRequestAttemptId@ can contain alphanumeric characters (@a-z@,+-- @A-Z@, @0-9@) and punctuation+-- (@!\"#$%&\'()*+,-.\/:;\<=>?\@[\\]^_\`{|}~@).+--+-- For best practices of using @ReceiveRequestAttemptId@, see+-- <https://docs.aws.amazon.com/AWSSimpleQueueService/latest/SQSDeveloperGuide/using-receiverequestattemptid-request-parameter.html Using the ReceiveRequestAttemptId Request Parameter>+-- in the /Amazon SQS Developer Guide/.+receiveMessage_receiveRequestAttemptId :: Lens.Lens' ReceiveMessage (Prelude.Maybe Prelude.Text)+receiveMessage_receiveRequestAttemptId = Lens.lens (\ReceiveMessage' {receiveRequestAttemptId} -> receiveRequestAttemptId) (\s@ReceiveMessage' {} a -> s {receiveRequestAttemptId = a} :: ReceiveMessage)++-- | The duration (in seconds) that the received messages are hidden from+-- subsequent retrieve requests after being retrieved by a @ReceiveMessage@+-- request.+receiveMessage_visibilityTimeout :: Lens.Lens' ReceiveMessage (Prelude.Maybe Prelude.Int)+receiveMessage_visibilityTimeout = Lens.lens (\ReceiveMessage' {visibilityTimeout} -> visibilityTimeout) (\s@ReceiveMessage' {} a -> s {visibilityTimeout = a} :: ReceiveMessage)++-- | The duration (in seconds) for which the call waits for a message to+-- arrive in the queue before returning. If a message is available, the+-- call returns sooner than @WaitTimeSeconds@. If no messages are available+-- and the wait time expires, the call returns successfully with an empty+-- list of messages.+--+-- To avoid HTTP errors, ensure that the HTTP response timeout for+-- @ReceiveMessage@ requests is longer than the @WaitTimeSeconds@+-- parameter. For example, with the Java SDK, you can set HTTP transport+-- settings using the+-- <https://sdk.amazonaws.com/java/api/latest/software/amazon/awssdk/http/nio/netty/NettyNioAsyncHttpClient.html NettyNioAsyncHttpClient>+-- for asynchronous clients, or the+-- <https://sdk.amazonaws.com/java/api/latest/software/amazon/awssdk/http/apache/ApacheHttpClient.html ApacheHttpClient>+-- for synchronous clients.+receiveMessage_waitTimeSeconds :: Lens.Lens' ReceiveMessage (Prelude.Maybe Prelude.Int)+receiveMessage_waitTimeSeconds = Lens.lens (\ReceiveMessage' {waitTimeSeconds} -> waitTimeSeconds) (\s@ReceiveMessage' {} a -> s {waitTimeSeconds = a} :: ReceiveMessage)++-- | The URL of the Amazon SQS queue from which messages are received.+--+-- Queue URLs and names are case-sensitive.+receiveMessage_queueUrl :: Lens.Lens' ReceiveMessage Prelude.Text+receiveMessage_queueUrl = Lens.lens (\ReceiveMessage' {queueUrl} -> queueUrl) (\s@ReceiveMessage' {} a -> s {queueUrl = a} :: ReceiveMessage)++instance Core.AWSRequest ReceiveMessage where+  type+    AWSResponse ReceiveMessage =+      ReceiveMessageResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "ReceiveMessageResult"+      ( \s h x ->+          ReceiveMessageResponse'+            Prelude.<$> (Core.may (Data.parseXMLList "Message") x)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ReceiveMessage where+  hashWithSalt _salt ReceiveMessage' {..} =+    _salt+      `Prelude.hashWithSalt` attributeNames+      `Prelude.hashWithSalt` maxNumberOfMessages+      `Prelude.hashWithSalt` messageAttributeNames+      `Prelude.hashWithSalt` receiveRequestAttemptId+      `Prelude.hashWithSalt` visibilityTimeout+      `Prelude.hashWithSalt` waitTimeSeconds+      `Prelude.hashWithSalt` queueUrl++instance Prelude.NFData ReceiveMessage where+  rnf ReceiveMessage' {..} =+    Prelude.rnf attributeNames+      `Prelude.seq` Prelude.rnf maxNumberOfMessages+      `Prelude.seq` Prelude.rnf messageAttributeNames+      `Prelude.seq` Prelude.rnf receiveRequestAttemptId+      `Prelude.seq` Prelude.rnf visibilityTimeout+      `Prelude.seq` Prelude.rnf waitTimeSeconds+      `Prelude.seq` Prelude.rnf queueUrl++instance Data.ToHeaders ReceiveMessage where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ReceiveMessage where+  toPath = Prelude.const "/"++instance Data.ToQuery ReceiveMessage where+  toQuery ReceiveMessage' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("ReceiveMessage" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-11-05" :: Prelude.ByteString),+        Data.toQuery+          ( Data.toQueryList "AttributeName"+              Prelude.<$> attributeNames+          ),+        "MaxNumberOfMessages" Data.=: maxNumberOfMessages,+        Data.toQuery+          ( Data.toQueryList "MessageAttributeName"+              Prelude.<$> messageAttributeNames+          ),+        "ReceiveRequestAttemptId"+          Data.=: receiveRequestAttemptId,+        "VisibilityTimeout" Data.=: visibilityTimeout,+        "WaitTimeSeconds" Data.=: waitTimeSeconds,+        "QueueUrl" Data.=: queueUrl+      ]++-- | A list of received messages.+--+-- /See:/ 'newReceiveMessageResponse' smart constructor.+data ReceiveMessageResponse = ReceiveMessageResponse'+  { -- | A list of messages.+    messages :: Prelude.Maybe [Message],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReceiveMessageResponse' 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:+--+-- 'messages', 'receiveMessageResponse_messages' - A list of messages.+--+-- 'httpStatus', 'receiveMessageResponse_httpStatus' - The response's http status code.+newReceiveMessageResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ReceiveMessageResponse+newReceiveMessageResponse pHttpStatus_ =+  ReceiveMessageResponse'+    { messages = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of messages.+receiveMessageResponse_messages :: Lens.Lens' ReceiveMessageResponse (Prelude.Maybe [Message])+receiveMessageResponse_messages = Lens.lens (\ReceiveMessageResponse' {messages} -> messages) (\s@ReceiveMessageResponse' {} a -> s {messages = a} :: ReceiveMessageResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+receiveMessageResponse_httpStatus :: Lens.Lens' ReceiveMessageResponse Prelude.Int+receiveMessageResponse_httpStatus = Lens.lens (\ReceiveMessageResponse' {httpStatus} -> httpStatus) (\s@ReceiveMessageResponse' {} a -> s {httpStatus = a} :: ReceiveMessageResponse)++instance Prelude.NFData ReceiveMessageResponse where+  rnf ReceiveMessageResponse' {..} =+    Prelude.rnf messages+      `Prelude.seq` Prelude.rnf httpStatus