amazonka-mediastore 1.6.1 → 2.0

raw patch · 92 files changed

+6244/−2299 lines, 92 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-mediastore.cabal +101/−84
• fixture/DeleteCORSPolicy.yaml +0/−10
• fixture/DeleteCORSPolicyResponse.proto +0/−0
• fixture/DeleteCorsPolicy.yaml +10/−0
• fixture/DeleteCorsPolicyResponse.proto +0/−0
• fixture/DeleteLifecyclePolicy.yaml +10/−0
• fixture/DeleteLifecyclePolicyResponse.proto +0/−0
• fixture/DeleteMetricPolicy.yaml +10/−0
• fixture/DeleteMetricPolicyResponse.proto +0/−0
• fixture/GetCORSPolicy.yaml +0/−10
• fixture/GetCORSPolicyResponse.proto +0/−0
• fixture/GetCorsPolicy.yaml +10/−0
• fixture/GetCorsPolicyResponse.proto +0/−0
• fixture/GetLifecyclePolicy.yaml +10/−0
• fixture/GetLifecyclePolicyResponse.proto +0/−0
• fixture/GetMetricPolicy.yaml +10/−0
• fixture/GetMetricPolicyResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/PutCORSPolicy.yaml +0/−10
• fixture/PutCORSPolicyResponse.proto +0/−0
• fixture/PutCorsPolicy.yaml +10/−0
• fixture/PutCorsPolicyResponse.proto +0/−0
• fixture/PutLifecyclePolicy.yaml +10/−0
• fixture/PutLifecyclePolicyResponse.proto +0/−0
• fixture/PutMetricPolicy.yaml +10/−0
• fixture/PutMetricPolicyResponse.proto +0/−0
• fixture/StartAccessLogging.yaml +10/−0
• fixture/StartAccessLoggingResponse.proto +0/−0
• fixture/StopAccessLogging.yaml +10/−0
• fixture/StopAccessLoggingResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• gen/Amazonka/MediaStore.hs +257/−0
• gen/Amazonka/MediaStore/CreateContainer.hs +267/−0
• gen/Amazonka/MediaStore/DeleteContainer.hs +157/−0
• gen/Amazonka/MediaStore/DeleteContainerPolicy.hs +163/−0
• gen/Amazonka/MediaStore/DeleteCorsPolicy.hs +163/−0
• gen/Amazonka/MediaStore/DeleteLifecyclePolicy.hs +163/−0
• gen/Amazonka/MediaStore/DeleteMetricPolicy.hs +167/−0
• gen/Amazonka/MediaStore/DescribeContainer.hs +175/−0
• gen/Amazonka/MediaStore/GetContainerPolicy.hs +178/−0
• gen/Amazonka/MediaStore/GetCorsPolicy.hs +176/−0
• gen/Amazonka/MediaStore/GetLifecyclePolicy.hs +181/−0
• gen/Amazonka/MediaStore/GetMetricPolicy.hs +173/−0
• gen/Amazonka/MediaStore/Lens.hs +174/−0
• gen/Amazonka/MediaStore/ListContainers.hs +245/−0
• gen/Amazonka/MediaStore/ListTagsForResource.hs +168/−0
• gen/Amazonka/MediaStore/PutContainerPolicy.hs +197/−0
• gen/Amazonka/MediaStore/PutCorsPolicy.hs +189/−0
• gen/Amazonka/MediaStore/PutLifecyclePolicy.hs +190/−0
• gen/Amazonka/MediaStore/PutMetricPolicy.hs +224/−0
• gen/Amazonka/MediaStore/StartAccessLogging.hs +164/−0
• gen/Amazonka/MediaStore/StopAccessLogging.hs +162/−0
• gen/Amazonka/MediaStore/TagResource.hs +193/−0
• gen/Amazonka/MediaStore/Types.hs +200/−0
• gen/Amazonka/MediaStore/Types/Container.hs +185/−0
• gen/Amazonka/MediaStore/Types/ContainerLevelMetrics.hs +71/−0
• gen/Amazonka/MediaStore/Types/ContainerStatus.hs +76/−0
• gen/Amazonka/MediaStore/Types/CorsRule.hs +216/−0
• gen/Amazonka/MediaStore/Types/MethodName.hs +81/−0
• gen/Amazonka/MediaStore/Types/MetricPolicy.hs +124/−0
• gen/Amazonka/MediaStore/Types/MetricPolicyRule.hs +106/−0
• gen/Amazonka/MediaStore/Types/Tag.hs +110/−0
• gen/Amazonka/MediaStore/UntagResource.hs +184/−0
• gen/Amazonka/MediaStore/Waiters.hs +24/−0
• gen/Network/AWS/MediaStore.hs +0/−147
• gen/Network/AWS/MediaStore/CreateContainer.hs +0/−135
• gen/Network/AWS/MediaStore/DeleteCORSPolicy.hs +0/−126
• gen/Network/AWS/MediaStore/DeleteContainer.hs +0/−124
• gen/Network/AWS/MediaStore/DeleteContainerPolicy.hs +0/−126
• gen/Network/AWS/MediaStore/DescribeContainer.hs +0/−132
• gen/Network/AWS/MediaStore/GetCORSPolicy.hs +0/−138
• gen/Network/AWS/MediaStore/GetContainerPolicy.hs +0/−136
• gen/Network/AWS/MediaStore/ListContainers.hs +0/−157
• gen/Network/AWS/MediaStore/PutCORSPolicy.hs +0/−138
• gen/Network/AWS/MediaStore/PutContainerPolicy.hs +0/−137
• gen/Network/AWS/MediaStore/Types.hs +0/−140
• gen/Network/AWS/MediaStore/Types/Product.hs +0/−179
• gen/Network/AWS/MediaStore/Types/Sum.hs +0/−86
• gen/Network/AWS/MediaStore/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/MediaStore.hs +0/−219
• test/Test/AWS/MediaStore.hs +0/−20
• test/Test/AWS/MediaStore/Internal.hs +0/−9
• test/Test/Amazonka/Gen/MediaStore.hs +458/−0
• test/Test/Amazonka/MediaStore.hs +20/−0
• test/Test/Amazonka/MediaStore/Internal.hs +8/−0

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

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

@@ -1,95 +1,112 @@-name:                  amazonka-mediastore-version:               1.6.1-synopsis:              Amazon Elemental MediaStore 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-mediastore+version:            2.0+synopsis:           Amazon Elemental MediaStore 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.MediaStore" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-09-01@ 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.MediaStore.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.MediaStore" 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-mediastore+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-mediastore  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.MediaStore-        , Network.AWS.MediaStore.CreateContainer-        , Network.AWS.MediaStore.DeleteCORSPolicy-        , Network.AWS.MediaStore.DeleteContainer-        , Network.AWS.MediaStore.DeleteContainerPolicy-        , Network.AWS.MediaStore.DescribeContainer-        , Network.AWS.MediaStore.GetCORSPolicy-        , Network.AWS.MediaStore.GetContainerPolicy-        , Network.AWS.MediaStore.ListContainers-        , Network.AWS.MediaStore.PutCORSPolicy-        , Network.AWS.MediaStore.PutContainerPolicy-        , Network.AWS.MediaStore.Types-        , Network.AWS.MediaStore.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.MediaStore.Types.Product-        , Network.AWS.MediaStore.Types.Sum+  exposed-modules:+    Amazonka.MediaStore+    Amazonka.MediaStore.CreateContainer+    Amazonka.MediaStore.DeleteContainer+    Amazonka.MediaStore.DeleteContainerPolicy+    Amazonka.MediaStore.DeleteCorsPolicy+    Amazonka.MediaStore.DeleteLifecyclePolicy+    Amazonka.MediaStore.DeleteMetricPolicy+    Amazonka.MediaStore.DescribeContainer+    Amazonka.MediaStore.GetContainerPolicy+    Amazonka.MediaStore.GetCorsPolicy+    Amazonka.MediaStore.GetLifecyclePolicy+    Amazonka.MediaStore.GetMetricPolicy+    Amazonka.MediaStore.Lens+    Amazonka.MediaStore.ListContainers+    Amazonka.MediaStore.ListTagsForResource+    Amazonka.MediaStore.PutContainerPolicy+    Amazonka.MediaStore.PutCorsPolicy+    Amazonka.MediaStore.PutLifecyclePolicy+    Amazonka.MediaStore.PutMetricPolicy+    Amazonka.MediaStore.StartAccessLogging+    Amazonka.MediaStore.StopAccessLogging+    Amazonka.MediaStore.TagResource+    Amazonka.MediaStore.Types+    Amazonka.MediaStore.Types.Container+    Amazonka.MediaStore.Types.ContainerLevelMetrics+    Amazonka.MediaStore.Types.ContainerStatus+    Amazonka.MediaStore.Types.CorsRule+    Amazonka.MediaStore.Types.MethodName+    Amazonka.MediaStore.Types.MetricPolicy+    Amazonka.MediaStore.Types.MetricPolicyRule+    Amazonka.MediaStore.Types.Tag+    Amazonka.MediaStore.UntagResource+    Amazonka.MediaStore.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-mediastore-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.MediaStore-        , Test.AWS.Gen.MediaStore-        , Test.AWS.MediaStore.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.MediaStore+    Test.Amazonka.MediaStore+    Test.Amazonka.MediaStore.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-mediastore-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-mediastore+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

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

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

@@ -1,10 +0,0 @@-----method: POST-headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/mediastore/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  mediastore.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/mediastore/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mediastore.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/mediastore/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mediastore.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/mediastore/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mediastore.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/mediastore/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mediastore.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/mediastore/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mediastore.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/mediastore/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mediastore.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/mediastore/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  mediastore.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,257 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.MediaStore+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2017-09-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- An AWS Elemental MediaStore container is a namespace that holds folders+-- and objects. You use a container endpoint to create, read, and delete+-- objects.+module Amazonka.MediaStore+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ContainerInUseException+    _ContainerInUseException,++    -- ** ContainerNotFoundException+    _ContainerNotFoundException,++    -- ** CorsPolicyNotFoundException+    _CorsPolicyNotFoundException,++    -- ** InternalServerError+    _InternalServerError,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** PolicyNotFoundException+    _PolicyNotFoundException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateContainer+    CreateContainer (CreateContainer'),+    newCreateContainer,+    CreateContainerResponse (CreateContainerResponse'),+    newCreateContainerResponse,++    -- ** DeleteContainer+    DeleteContainer (DeleteContainer'),+    newDeleteContainer,+    DeleteContainerResponse (DeleteContainerResponse'),+    newDeleteContainerResponse,++    -- ** DeleteContainerPolicy+    DeleteContainerPolicy (DeleteContainerPolicy'),+    newDeleteContainerPolicy,+    DeleteContainerPolicyResponse (DeleteContainerPolicyResponse'),+    newDeleteContainerPolicyResponse,++    -- ** DeleteCorsPolicy+    DeleteCorsPolicy (DeleteCorsPolicy'),+    newDeleteCorsPolicy,+    DeleteCorsPolicyResponse (DeleteCorsPolicyResponse'),+    newDeleteCorsPolicyResponse,++    -- ** DeleteLifecyclePolicy+    DeleteLifecyclePolicy (DeleteLifecyclePolicy'),+    newDeleteLifecyclePolicy,+    DeleteLifecyclePolicyResponse (DeleteLifecyclePolicyResponse'),+    newDeleteLifecyclePolicyResponse,++    -- ** DeleteMetricPolicy+    DeleteMetricPolicy (DeleteMetricPolicy'),+    newDeleteMetricPolicy,+    DeleteMetricPolicyResponse (DeleteMetricPolicyResponse'),+    newDeleteMetricPolicyResponse,++    -- ** DescribeContainer+    DescribeContainer (DescribeContainer'),+    newDescribeContainer,+    DescribeContainerResponse (DescribeContainerResponse'),+    newDescribeContainerResponse,++    -- ** GetContainerPolicy+    GetContainerPolicy (GetContainerPolicy'),+    newGetContainerPolicy,+    GetContainerPolicyResponse (GetContainerPolicyResponse'),+    newGetContainerPolicyResponse,++    -- ** GetCorsPolicy+    GetCorsPolicy (GetCorsPolicy'),+    newGetCorsPolicy,+    GetCorsPolicyResponse (GetCorsPolicyResponse'),+    newGetCorsPolicyResponse,++    -- ** GetLifecyclePolicy+    GetLifecyclePolicy (GetLifecyclePolicy'),+    newGetLifecyclePolicy,+    GetLifecyclePolicyResponse (GetLifecyclePolicyResponse'),+    newGetLifecyclePolicyResponse,++    -- ** GetMetricPolicy+    GetMetricPolicy (GetMetricPolicy'),+    newGetMetricPolicy,+    GetMetricPolicyResponse (GetMetricPolicyResponse'),+    newGetMetricPolicyResponse,++    -- ** ListContainers (Paginated)+    ListContainers (ListContainers'),+    newListContainers,+    ListContainersResponse (ListContainersResponse'),+    newListContainersResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** PutContainerPolicy+    PutContainerPolicy (PutContainerPolicy'),+    newPutContainerPolicy,+    PutContainerPolicyResponse (PutContainerPolicyResponse'),+    newPutContainerPolicyResponse,++    -- ** PutCorsPolicy+    PutCorsPolicy (PutCorsPolicy'),+    newPutCorsPolicy,+    PutCorsPolicyResponse (PutCorsPolicyResponse'),+    newPutCorsPolicyResponse,++    -- ** PutLifecyclePolicy+    PutLifecyclePolicy (PutLifecyclePolicy'),+    newPutLifecyclePolicy,+    PutLifecyclePolicyResponse (PutLifecyclePolicyResponse'),+    newPutLifecyclePolicyResponse,++    -- ** PutMetricPolicy+    PutMetricPolicy (PutMetricPolicy'),+    newPutMetricPolicy,+    PutMetricPolicyResponse (PutMetricPolicyResponse'),+    newPutMetricPolicyResponse,++    -- ** StartAccessLogging+    StartAccessLogging (StartAccessLogging'),+    newStartAccessLogging,+    StartAccessLoggingResponse (StartAccessLoggingResponse'),+    newStartAccessLoggingResponse,++    -- ** StopAccessLogging+    StopAccessLogging (StopAccessLogging'),+    newStopAccessLogging,+    StopAccessLoggingResponse (StopAccessLoggingResponse'),+    newStopAccessLoggingResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- * Types++    -- ** ContainerLevelMetrics+    ContainerLevelMetrics (..),++    -- ** ContainerStatus+    ContainerStatus (..),++    -- ** MethodName+    MethodName (..),++    -- ** Container+    Container (Container'),+    newContainer,++    -- ** CorsRule+    CorsRule (CorsRule'),+    newCorsRule,++    -- ** MetricPolicy+    MetricPolicy (MetricPolicy'),+    newMetricPolicy,++    -- ** MetricPolicyRule+    MetricPolicyRule (MetricPolicyRule'),+    newMetricPolicyRule,++    -- ** Tag+    Tag (Tag'),+    newTag,+  )+where++import Amazonka.MediaStore.CreateContainer+import Amazonka.MediaStore.DeleteContainer+import Amazonka.MediaStore.DeleteContainerPolicy+import Amazonka.MediaStore.DeleteCorsPolicy+import Amazonka.MediaStore.DeleteLifecyclePolicy+import Amazonka.MediaStore.DeleteMetricPolicy+import Amazonka.MediaStore.DescribeContainer+import Amazonka.MediaStore.GetContainerPolicy+import Amazonka.MediaStore.GetCorsPolicy+import Amazonka.MediaStore.GetLifecyclePolicy+import Amazonka.MediaStore.GetMetricPolicy+import Amazonka.MediaStore.Lens+import Amazonka.MediaStore.ListContainers+import Amazonka.MediaStore.ListTagsForResource+import Amazonka.MediaStore.PutContainerPolicy+import Amazonka.MediaStore.PutCorsPolicy+import Amazonka.MediaStore.PutLifecyclePolicy+import Amazonka.MediaStore.PutMetricPolicy+import Amazonka.MediaStore.StartAccessLogging+import Amazonka.MediaStore.StopAccessLogging+import Amazonka.MediaStore.TagResource+import Amazonka.MediaStore.Types+import Amazonka.MediaStore.UntagResource+import Amazonka.MediaStore.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 'MediaStore'.++-- $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,267 @@+{-# 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.MediaStore.CreateContainer+-- 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 storage container to hold objects. A container is similar to a+-- bucket in the Amazon S3 service.+module Amazonka.MediaStore.CreateContainer+  ( -- * Creating a Request+    CreateContainer (..),+    newCreateContainer,++    -- * Request Lenses+    createContainer_tags,+    createContainer_containerName,++    -- * Destructuring the Response+    CreateContainerResponse (..),+    newCreateContainerResponse,++    -- * Response Lenses+    createContainerResponse_httpStatus,+    createContainerResponse_container,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateContainer' smart constructor.+data CreateContainer = CreateContainer'+  { -- | An array of key:value pairs that you define. These values can be+    -- anything that you want. Typically, the tag key represents a category+    -- (such as \"environment\") and the tag value represents a specific value+    -- within that category (such as \"test,\" \"development,\" or+    -- \"production\"). You can add up to 50 tags to each container. For more+    -- information about tagging, including naming and usage conventions, see+    -- <https://docs.aws.amazon.com/mediastore/latest/ug/tagging.html Tagging Resources in MediaStore>.+    tags :: Prelude.Maybe (Prelude.NonEmpty Tag),+    -- | The name for the container. The name must be from 1 to 255 characters.+    -- Container names must be unique to your AWS account within a specific+    -- region. As an example, you could create a container named @movies@ in+    -- every region, as long as you don’t have an existing container with that+    -- name.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateContainer' 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', 'createContainer_tags' - An array of key:value pairs that you define. These values can be+-- anything that you want. Typically, the tag key represents a category+-- (such as \"environment\") and the tag value represents a specific value+-- within that category (such as \"test,\" \"development,\" or+-- \"production\"). You can add up to 50 tags to each container. For more+-- information about tagging, including naming and usage conventions, see+-- <https://docs.aws.amazon.com/mediastore/latest/ug/tagging.html Tagging Resources in MediaStore>.+--+-- 'containerName', 'createContainer_containerName' - The name for the container. The name must be from 1 to 255 characters.+-- Container names must be unique to your AWS account within a specific+-- region. As an example, you could create a container named @movies@ in+-- every region, as long as you don’t have an existing container with that+-- name.+newCreateContainer ::+  -- | 'containerName'+  Prelude.Text ->+  CreateContainer+newCreateContainer pContainerName_ =+  CreateContainer'+    { tags = Prelude.Nothing,+      containerName = pContainerName_+    }++-- | An array of key:value pairs that you define. These values can be+-- anything that you want. Typically, the tag key represents a category+-- (such as \"environment\") and the tag value represents a specific value+-- within that category (such as \"test,\" \"development,\" or+-- \"production\"). You can add up to 50 tags to each container. For more+-- information about tagging, including naming and usage conventions, see+-- <https://docs.aws.amazon.com/mediastore/latest/ug/tagging.html Tagging Resources in MediaStore>.+createContainer_tags :: Lens.Lens' CreateContainer (Prelude.Maybe (Prelude.NonEmpty Tag))+createContainer_tags = Lens.lens (\CreateContainer' {tags} -> tags) (\s@CreateContainer' {} a -> s {tags = a} :: CreateContainer) Prelude.. Lens.mapping Lens.coerced++-- | The name for the container. The name must be from 1 to 255 characters.+-- Container names must be unique to your AWS account within a specific+-- region. As an example, you could create a container named @movies@ in+-- every region, as long as you don’t have an existing container with that+-- name.+createContainer_containerName :: Lens.Lens' CreateContainer Prelude.Text+createContainer_containerName = Lens.lens (\CreateContainer' {containerName} -> containerName) (\s@CreateContainer' {} a -> s {containerName = a} :: CreateContainer)++instance Core.AWSRequest CreateContainer where+  type+    AWSResponse CreateContainer =+      CreateContainerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateContainerResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "Container")+      )++instance Prelude.Hashable CreateContainer where+  hashWithSalt _salt CreateContainer' {..} =+    _salt+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` containerName++instance Prelude.NFData CreateContainer where+  rnf CreateContainer' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf containerName++instance Data.ToHeaders CreateContainer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.CreateContainer" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateContainer where+  toJSON CreateContainer' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath CreateContainer where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateContainer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateContainerResponse' smart constructor.+data CreateContainerResponse = CreateContainerResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | ContainerARN: The Amazon Resource Name (ARN) of the newly created+    -- container. The ARN has the following format: arn:aws:\<region>:\<account+    -- that owns this container>:container\/\<name of container>. For example:+    -- arn:aws:mediastore:us-west-2:111122223333:container\/movies+    --+    -- ContainerName: The container name as specified in the request.+    --+    -- CreationTime: Unix time stamp.+    --+    -- Status: The status of container creation or deletion. The status is one+    -- of the following: @CREATING@, @ACTIVE@, or @DELETING@. While the service+    -- is creating the container, the status is @CREATING@. When an endpoint is+    -- available, the status changes to @ACTIVE@.+    --+    -- The return value does not include the container\'s endpoint. To make+    -- downstream requests, you must obtain this value by using+    -- DescribeContainer or ListContainers.+    container :: Container+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateContainerResponse' 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', 'createContainerResponse_httpStatus' - The response's http status code.+--+-- 'container', 'createContainerResponse_container' - ContainerARN: The Amazon Resource Name (ARN) of the newly created+-- container. The ARN has the following format: arn:aws:\<region>:\<account+-- that owns this container>:container\/\<name of container>. For example:+-- arn:aws:mediastore:us-west-2:111122223333:container\/movies+--+-- ContainerName: The container name as specified in the request.+--+-- CreationTime: Unix time stamp.+--+-- Status: The status of container creation or deletion. The status is one+-- of the following: @CREATING@, @ACTIVE@, or @DELETING@. While the service+-- is creating the container, the status is @CREATING@. When an endpoint is+-- available, the status changes to @ACTIVE@.+--+-- The return value does not include the container\'s endpoint. To make+-- downstream requests, you must obtain this value by using+-- DescribeContainer or ListContainers.+newCreateContainerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'container'+  Container ->+  CreateContainerResponse+newCreateContainerResponse pHttpStatus_ pContainer_ =+  CreateContainerResponse'+    { httpStatus = pHttpStatus_,+      container = pContainer_+    }++-- | The response's http status code.+createContainerResponse_httpStatus :: Lens.Lens' CreateContainerResponse Prelude.Int+createContainerResponse_httpStatus = Lens.lens (\CreateContainerResponse' {httpStatus} -> httpStatus) (\s@CreateContainerResponse' {} a -> s {httpStatus = a} :: CreateContainerResponse)++-- | ContainerARN: The Amazon Resource Name (ARN) of the newly created+-- container. The ARN has the following format: arn:aws:\<region>:\<account+-- that owns this container>:container\/\<name of container>. For example:+-- arn:aws:mediastore:us-west-2:111122223333:container\/movies+--+-- ContainerName: The container name as specified in the request.+--+-- CreationTime: Unix time stamp.+--+-- Status: The status of container creation or deletion. The status is one+-- of the following: @CREATING@, @ACTIVE@, or @DELETING@. While the service+-- is creating the container, the status is @CREATING@. When an endpoint is+-- available, the status changes to @ACTIVE@.+--+-- The return value does not include the container\'s endpoint. To make+-- downstream requests, you must obtain this value by using+-- DescribeContainer or ListContainers.+createContainerResponse_container :: Lens.Lens' CreateContainerResponse Container+createContainerResponse_container = Lens.lens (\CreateContainerResponse' {container} -> container) (\s@CreateContainerResponse' {} a -> s {container = a} :: CreateContainerResponse)++instance Prelude.NFData CreateContainerResponse where+  rnf CreateContainerResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf container

@@ -0,0 +1,157 @@+{-# 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.MediaStore.DeleteContainer+-- 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 container. Before you make a @DeleteContainer@+-- request, delete any objects in the container or in any folders in the+-- container. You can delete only empty containers.+module Amazonka.MediaStore.DeleteContainer+  ( -- * Creating a Request+    DeleteContainer (..),+    newDeleteContainer,++    -- * Request Lenses+    deleteContainer_containerName,++    -- * Destructuring the Response+    DeleteContainerResponse (..),+    newDeleteContainerResponse,++    -- * Response Lenses+    deleteContainerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteContainer' smart constructor.+data DeleteContainer = DeleteContainer'+  { -- | The name of the container to delete.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteContainer' 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:+--+-- 'containerName', 'deleteContainer_containerName' - The name of the container to delete.+newDeleteContainer ::+  -- | 'containerName'+  Prelude.Text ->+  DeleteContainer+newDeleteContainer pContainerName_ =+  DeleteContainer' {containerName = pContainerName_}++-- | The name of the container to delete.+deleteContainer_containerName :: Lens.Lens' DeleteContainer Prelude.Text+deleteContainer_containerName = Lens.lens (\DeleteContainer' {containerName} -> containerName) (\s@DeleteContainer' {} a -> s {containerName = a} :: DeleteContainer)++instance Core.AWSRequest DeleteContainer where+  type+    AWSResponse DeleteContainer =+      DeleteContainerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteContainerResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteContainer where+  hashWithSalt _salt DeleteContainer' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData DeleteContainer where+  rnf DeleteContainer' {..} = Prelude.rnf containerName++instance Data.ToHeaders DeleteContainer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.DeleteContainer" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteContainer where+  toJSON DeleteContainer' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath DeleteContainer where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteContainer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteContainerResponse' smart constructor.+data DeleteContainerResponse = DeleteContainerResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteContainerResponse' 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', 'deleteContainerResponse_httpStatus' - The response's http status code.+newDeleteContainerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteContainerResponse+newDeleteContainerResponse pHttpStatus_ =+  DeleteContainerResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteContainerResponse_httpStatus :: Lens.Lens' DeleteContainerResponse Prelude.Int+deleteContainerResponse_httpStatus = Lens.lens (\DeleteContainerResponse' {httpStatus} -> httpStatus) (\s@DeleteContainerResponse' {} a -> s {httpStatus = a} :: DeleteContainerResponse)++instance Prelude.NFData DeleteContainerResponse where+  rnf DeleteContainerResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,163 @@+{-# 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.MediaStore.DeleteContainerPolicy+-- 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 access policy that is associated with the specified+-- container.+module Amazonka.MediaStore.DeleteContainerPolicy+  ( -- * Creating a Request+    DeleteContainerPolicy (..),+    newDeleteContainerPolicy,++    -- * Request Lenses+    deleteContainerPolicy_containerName,++    -- * Destructuring the Response+    DeleteContainerPolicyResponse (..),+    newDeleteContainerPolicyResponse,++    -- * Response Lenses+    deleteContainerPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteContainerPolicy' smart constructor.+data DeleteContainerPolicy = DeleteContainerPolicy'+  { -- | The name of the container that holds the policy.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteContainerPolicy' 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:+--+-- 'containerName', 'deleteContainerPolicy_containerName' - The name of the container that holds the policy.+newDeleteContainerPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  DeleteContainerPolicy+newDeleteContainerPolicy pContainerName_ =+  DeleteContainerPolicy'+    { containerName =+        pContainerName_+    }++-- | The name of the container that holds the policy.+deleteContainerPolicy_containerName :: Lens.Lens' DeleteContainerPolicy Prelude.Text+deleteContainerPolicy_containerName = Lens.lens (\DeleteContainerPolicy' {containerName} -> containerName) (\s@DeleteContainerPolicy' {} a -> s {containerName = a} :: DeleteContainerPolicy)++instance Core.AWSRequest DeleteContainerPolicy where+  type+    AWSResponse DeleteContainerPolicy =+      DeleteContainerPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteContainerPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteContainerPolicy where+  hashWithSalt _salt DeleteContainerPolicy' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData DeleteContainerPolicy where+  rnf DeleteContainerPolicy' {..} =+    Prelude.rnf containerName++instance Data.ToHeaders DeleteContainerPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.DeleteContainerPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteContainerPolicy where+  toJSON DeleteContainerPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath DeleteContainerPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteContainerPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteContainerPolicyResponse' smart constructor.+data DeleteContainerPolicyResponse = DeleteContainerPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteContainerPolicyResponse' 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', 'deleteContainerPolicyResponse_httpStatus' - The response's http status code.+newDeleteContainerPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteContainerPolicyResponse+newDeleteContainerPolicyResponse pHttpStatus_ =+  DeleteContainerPolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteContainerPolicyResponse_httpStatus :: Lens.Lens' DeleteContainerPolicyResponse Prelude.Int+deleteContainerPolicyResponse_httpStatus = Lens.lens (\DeleteContainerPolicyResponse' {httpStatus} -> httpStatus) (\s@DeleteContainerPolicyResponse' {} a -> s {httpStatus = a} :: DeleteContainerPolicyResponse)++instance Prelude.NFData DeleteContainerPolicyResponse where+  rnf DeleteContainerPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,163 @@+{-# 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.MediaStore.DeleteCorsPolicy+-- 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 cross-origin resource sharing (CORS) configuration+-- information that is set for the container.+--+-- To use this operation, you must have permission to perform the+-- @MediaStore:DeleteCorsPolicy@ action. The container owner has this+-- permission by default and can grant this permission to others.+module Amazonka.MediaStore.DeleteCorsPolicy+  ( -- * Creating a Request+    DeleteCorsPolicy (..),+    newDeleteCorsPolicy,++    -- * Request Lenses+    deleteCorsPolicy_containerName,++    -- * Destructuring the Response+    DeleteCorsPolicyResponse (..),+    newDeleteCorsPolicyResponse,++    -- * Response Lenses+    deleteCorsPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteCorsPolicy' smart constructor.+data DeleteCorsPolicy = DeleteCorsPolicy'+  { -- | The name of the container to remove the policy from.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteCorsPolicy' 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:+--+-- 'containerName', 'deleteCorsPolicy_containerName' - The name of the container to remove the policy from.+newDeleteCorsPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  DeleteCorsPolicy+newDeleteCorsPolicy pContainerName_ =+  DeleteCorsPolicy' {containerName = pContainerName_}++-- | The name of the container to remove the policy from.+deleteCorsPolicy_containerName :: Lens.Lens' DeleteCorsPolicy Prelude.Text+deleteCorsPolicy_containerName = Lens.lens (\DeleteCorsPolicy' {containerName} -> containerName) (\s@DeleteCorsPolicy' {} a -> s {containerName = a} :: DeleteCorsPolicy)++instance Core.AWSRequest DeleteCorsPolicy where+  type+    AWSResponse DeleteCorsPolicy =+      DeleteCorsPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteCorsPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteCorsPolicy where+  hashWithSalt _salt DeleteCorsPolicy' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData DeleteCorsPolicy where+  rnf DeleteCorsPolicy' {..} = Prelude.rnf containerName++instance Data.ToHeaders DeleteCorsPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.DeleteCorsPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteCorsPolicy where+  toJSON DeleteCorsPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath DeleteCorsPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteCorsPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteCorsPolicyResponse' smart constructor.+data DeleteCorsPolicyResponse = DeleteCorsPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteCorsPolicyResponse' 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', 'deleteCorsPolicyResponse_httpStatus' - The response's http status code.+newDeleteCorsPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteCorsPolicyResponse+newDeleteCorsPolicyResponse pHttpStatus_ =+  DeleteCorsPolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteCorsPolicyResponse_httpStatus :: Lens.Lens' DeleteCorsPolicyResponse Prelude.Int+deleteCorsPolicyResponse_httpStatus = Lens.lens (\DeleteCorsPolicyResponse' {httpStatus} -> httpStatus) (\s@DeleteCorsPolicyResponse' {} a -> s {httpStatus = a} :: DeleteCorsPolicyResponse)++instance Prelude.NFData DeleteCorsPolicyResponse where+  rnf DeleteCorsPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,163 @@+{-# 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.MediaStore.DeleteLifecyclePolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes an object lifecycle policy from a container. It takes up to 20+-- minutes for the change to take effect.+module Amazonka.MediaStore.DeleteLifecyclePolicy+  ( -- * Creating a Request+    DeleteLifecyclePolicy (..),+    newDeleteLifecyclePolicy,++    -- * Request Lenses+    deleteLifecyclePolicy_containerName,++    -- * Destructuring the Response+    DeleteLifecyclePolicyResponse (..),+    newDeleteLifecyclePolicyResponse,++    -- * Response Lenses+    deleteLifecyclePolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteLifecyclePolicy' smart constructor.+data DeleteLifecyclePolicy = DeleteLifecyclePolicy'+  { -- | The name of the container that holds the object lifecycle policy.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLifecyclePolicy' 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:+--+-- 'containerName', 'deleteLifecyclePolicy_containerName' - The name of the container that holds the object lifecycle policy.+newDeleteLifecyclePolicy ::+  -- | 'containerName'+  Prelude.Text ->+  DeleteLifecyclePolicy+newDeleteLifecyclePolicy pContainerName_ =+  DeleteLifecyclePolicy'+    { containerName =+        pContainerName_+    }++-- | The name of the container that holds the object lifecycle policy.+deleteLifecyclePolicy_containerName :: Lens.Lens' DeleteLifecyclePolicy Prelude.Text+deleteLifecyclePolicy_containerName = Lens.lens (\DeleteLifecyclePolicy' {containerName} -> containerName) (\s@DeleteLifecyclePolicy' {} a -> s {containerName = a} :: DeleteLifecyclePolicy)++instance Core.AWSRequest DeleteLifecyclePolicy where+  type+    AWSResponse DeleteLifecyclePolicy =+      DeleteLifecyclePolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteLifecyclePolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteLifecyclePolicy where+  hashWithSalt _salt DeleteLifecyclePolicy' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData DeleteLifecyclePolicy where+  rnf DeleteLifecyclePolicy' {..} =+    Prelude.rnf containerName++instance Data.ToHeaders DeleteLifecyclePolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.DeleteLifecyclePolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteLifecyclePolicy where+  toJSON DeleteLifecyclePolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath DeleteLifecyclePolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteLifecyclePolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteLifecyclePolicyResponse' smart constructor.+data DeleteLifecyclePolicyResponse = DeleteLifecyclePolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLifecyclePolicyResponse' 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', 'deleteLifecyclePolicyResponse_httpStatus' - The response's http status code.+newDeleteLifecyclePolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteLifecyclePolicyResponse+newDeleteLifecyclePolicyResponse pHttpStatus_ =+  DeleteLifecyclePolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteLifecyclePolicyResponse_httpStatus :: Lens.Lens' DeleteLifecyclePolicyResponse Prelude.Int+deleteLifecyclePolicyResponse_httpStatus = Lens.lens (\DeleteLifecyclePolicyResponse' {httpStatus} -> httpStatus) (\s@DeleteLifecyclePolicyResponse' {} a -> s {httpStatus = a} :: DeleteLifecyclePolicyResponse)++instance Prelude.NFData DeleteLifecyclePolicyResponse where+  rnf DeleteLifecyclePolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,167 @@+{-# 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.MediaStore.DeleteMetricPolicy+-- 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 metric policy that is associated with the specified+-- container. If there is no metric policy associated with the container,+-- MediaStore doesn\'t send metrics to CloudWatch.+module Amazonka.MediaStore.DeleteMetricPolicy+  ( -- * Creating a Request+    DeleteMetricPolicy (..),+    newDeleteMetricPolicy,++    -- * Request Lenses+    deleteMetricPolicy_containerName,++    -- * Destructuring the Response+    DeleteMetricPolicyResponse (..),+    newDeleteMetricPolicyResponse,++    -- * Response Lenses+    deleteMetricPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteMetricPolicy' smart constructor.+data DeleteMetricPolicy = DeleteMetricPolicy'+  { -- | The name of the container that is associated with the metric policy that+    -- you want to delete.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteMetricPolicy' 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:+--+-- 'containerName', 'deleteMetricPolicy_containerName' - The name of the container that is associated with the metric policy that+-- you want to delete.+newDeleteMetricPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  DeleteMetricPolicy+newDeleteMetricPolicy pContainerName_ =+  DeleteMetricPolicy'+    { containerName =+        pContainerName_+    }++-- | The name of the container that is associated with the metric policy that+-- you want to delete.+deleteMetricPolicy_containerName :: Lens.Lens' DeleteMetricPolicy Prelude.Text+deleteMetricPolicy_containerName = Lens.lens (\DeleteMetricPolicy' {containerName} -> containerName) (\s@DeleteMetricPolicy' {} a -> s {containerName = a} :: DeleteMetricPolicy)++instance Core.AWSRequest DeleteMetricPolicy where+  type+    AWSResponse DeleteMetricPolicy =+      DeleteMetricPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteMetricPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteMetricPolicy where+  hashWithSalt _salt DeleteMetricPolicy' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData DeleteMetricPolicy where+  rnf DeleteMetricPolicy' {..} =+    Prelude.rnf containerName++instance Data.ToHeaders DeleteMetricPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.DeleteMetricPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteMetricPolicy where+  toJSON DeleteMetricPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath DeleteMetricPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteMetricPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteMetricPolicyResponse' smart constructor.+data DeleteMetricPolicyResponse = DeleteMetricPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteMetricPolicyResponse' 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', 'deleteMetricPolicyResponse_httpStatus' - The response's http status code.+newDeleteMetricPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteMetricPolicyResponse+newDeleteMetricPolicyResponse pHttpStatus_ =+  DeleteMetricPolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteMetricPolicyResponse_httpStatus :: Lens.Lens' DeleteMetricPolicyResponse Prelude.Int+deleteMetricPolicyResponse_httpStatus = Lens.lens (\DeleteMetricPolicyResponse' {httpStatus} -> httpStatus) (\s@DeleteMetricPolicyResponse' {} a -> s {httpStatus = a} :: DeleteMetricPolicyResponse)++instance Prelude.NFData DeleteMetricPolicyResponse where+  rnf DeleteMetricPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.DescribeContainer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the properties of the requested container. This request is+-- commonly used to retrieve the endpoint of a container. An endpoint is a+-- value assigned by the service when a new container is created. A+-- container\'s endpoint does not change after it has been assigned. The+-- @DescribeContainer@ request returns a single @Container@ object based on+-- @ContainerName@. To return all @Container@ objects that are associated+-- with a specified AWS account, use ListContainers.+module Amazonka.MediaStore.DescribeContainer+  ( -- * Creating a Request+    DescribeContainer (..),+    newDescribeContainer,++    -- * Request Lenses+    describeContainer_containerName,++    -- * Destructuring the Response+    DescribeContainerResponse (..),+    newDescribeContainerResponse,++    -- * Response Lenses+    describeContainerResponse_container,+    describeContainerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeContainer' smart constructor.+data DescribeContainer = DescribeContainer'+  { -- | The name of the container to query.+    containerName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeContainer' 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:+--+-- 'containerName', 'describeContainer_containerName' - The name of the container to query.+newDescribeContainer ::+  DescribeContainer+newDescribeContainer =+  DescribeContainer' {containerName = Prelude.Nothing}++-- | The name of the container to query.+describeContainer_containerName :: Lens.Lens' DescribeContainer (Prelude.Maybe Prelude.Text)+describeContainer_containerName = Lens.lens (\DescribeContainer' {containerName} -> containerName) (\s@DescribeContainer' {} a -> s {containerName = a} :: DescribeContainer)++instance Core.AWSRequest DescribeContainer where+  type+    AWSResponse DescribeContainer =+      DescribeContainerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeContainerResponse'+            Prelude.<$> (x Data..?> "Container")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeContainer where+  hashWithSalt _salt DescribeContainer' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData DescribeContainer where+  rnf DescribeContainer' {..} =+    Prelude.rnf containerName++instance Data.ToHeaders DescribeContainer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.DescribeContainer" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeContainer where+  toJSON DescribeContainer' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ContainerName" Data..=)+              Prelude.<$> containerName+          ]+      )++instance Data.ToPath DescribeContainer where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeContainer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeContainerResponse' smart constructor.+data DescribeContainerResponse = DescribeContainerResponse'+  { -- | The name of the queried container.+    container :: Prelude.Maybe Container,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeContainerResponse' 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:+--+-- 'container', 'describeContainerResponse_container' - The name of the queried container.+--+-- 'httpStatus', 'describeContainerResponse_httpStatus' - The response's http status code.+newDescribeContainerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeContainerResponse+newDescribeContainerResponse pHttpStatus_ =+  DescribeContainerResponse'+    { container =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The name of the queried container.+describeContainerResponse_container :: Lens.Lens' DescribeContainerResponse (Prelude.Maybe Container)+describeContainerResponse_container = Lens.lens (\DescribeContainerResponse' {container} -> container) (\s@DescribeContainerResponse' {} a -> s {container = a} :: DescribeContainerResponse)++-- | The response's http status code.+describeContainerResponse_httpStatus :: Lens.Lens' DescribeContainerResponse Prelude.Int+describeContainerResponse_httpStatus = Lens.lens (\DescribeContainerResponse' {httpStatus} -> httpStatus) (\s@DescribeContainerResponse' {} a -> s {httpStatus = a} :: DescribeContainerResponse)++instance Prelude.NFData DescribeContainerResponse where+  rnf DescribeContainerResponse' {..} =+    Prelude.rnf container+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,178 @@+{-# 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.MediaStore.GetContainerPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the access policy for the specified container. For information+-- about the data that is included in an access policy, see the+-- <https://aws.amazon.com/documentation/iam/ AWS Identity and Access Management User Guide>.+module Amazonka.MediaStore.GetContainerPolicy+  ( -- * Creating a Request+    GetContainerPolicy (..),+    newGetContainerPolicy,++    -- * Request Lenses+    getContainerPolicy_containerName,++    -- * Destructuring the Response+    GetContainerPolicyResponse (..),+    newGetContainerPolicyResponse,++    -- * Response Lenses+    getContainerPolicyResponse_httpStatus,+    getContainerPolicyResponse_policy,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetContainerPolicy' smart constructor.+data GetContainerPolicy = GetContainerPolicy'+  { -- | The name of the container.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetContainerPolicy' 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:+--+-- 'containerName', 'getContainerPolicy_containerName' - The name of the container.+newGetContainerPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  GetContainerPolicy+newGetContainerPolicy pContainerName_ =+  GetContainerPolicy'+    { containerName =+        pContainerName_+    }++-- | The name of the container.+getContainerPolicy_containerName :: Lens.Lens' GetContainerPolicy Prelude.Text+getContainerPolicy_containerName = Lens.lens (\GetContainerPolicy' {containerName} -> containerName) (\s@GetContainerPolicy' {} a -> s {containerName = a} :: GetContainerPolicy)++instance Core.AWSRequest GetContainerPolicy where+  type+    AWSResponse GetContainerPolicy =+      GetContainerPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetContainerPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "Policy")+      )++instance Prelude.Hashable GetContainerPolicy where+  hashWithSalt _salt GetContainerPolicy' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData GetContainerPolicy where+  rnf GetContainerPolicy' {..} =+    Prelude.rnf containerName++instance Data.ToHeaders GetContainerPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.GetContainerPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetContainerPolicy where+  toJSON GetContainerPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath GetContainerPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery GetContainerPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetContainerPolicyResponse' smart constructor.+data GetContainerPolicyResponse = GetContainerPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The contents of the access policy.+    policy :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetContainerPolicyResponse' 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', 'getContainerPolicyResponse_httpStatus' - The response's http status code.+--+-- 'policy', 'getContainerPolicyResponse_policy' - The contents of the access policy.+newGetContainerPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'policy'+  Prelude.Text ->+  GetContainerPolicyResponse+newGetContainerPolicyResponse pHttpStatus_ pPolicy_ =+  GetContainerPolicyResponse'+    { httpStatus =+        pHttpStatus_,+      policy = pPolicy_+    }++-- | The response's http status code.+getContainerPolicyResponse_httpStatus :: Lens.Lens' GetContainerPolicyResponse Prelude.Int+getContainerPolicyResponse_httpStatus = Lens.lens (\GetContainerPolicyResponse' {httpStatus} -> httpStatus) (\s@GetContainerPolicyResponse' {} a -> s {httpStatus = a} :: GetContainerPolicyResponse)++-- | The contents of the access policy.+getContainerPolicyResponse_policy :: Lens.Lens' GetContainerPolicyResponse Prelude.Text+getContainerPolicyResponse_policy = Lens.lens (\GetContainerPolicyResponse' {policy} -> policy) (\s@GetContainerPolicyResponse' {} a -> s {policy = a} :: GetContainerPolicyResponse)++instance Prelude.NFData GetContainerPolicyResponse where+  rnf GetContainerPolicyResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf policy

@@ -0,0 +1,176 @@+{-# 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.MediaStore.GetCorsPolicy+-- 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 cross-origin resource sharing (CORS) configuration+-- information that is set for the container.+--+-- To use this operation, you must have permission to perform the+-- @MediaStore:GetCorsPolicy@ action. By default, the container owner has+-- this permission and can grant it to others.+module Amazonka.MediaStore.GetCorsPolicy+  ( -- * Creating a Request+    GetCorsPolicy (..),+    newGetCorsPolicy,++    -- * Request Lenses+    getCorsPolicy_containerName,++    -- * Destructuring the Response+    GetCorsPolicyResponse (..),+    newGetCorsPolicyResponse,++    -- * Response Lenses+    getCorsPolicyResponse_httpStatus,+    getCorsPolicyResponse_corsPolicy,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetCorsPolicy' smart constructor.+data GetCorsPolicy = GetCorsPolicy'+  { -- | The name of the container that the policy is assigned to.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetCorsPolicy' 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:+--+-- 'containerName', 'getCorsPolicy_containerName' - The name of the container that the policy is assigned to.+newGetCorsPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  GetCorsPolicy+newGetCorsPolicy pContainerName_ =+  GetCorsPolicy' {containerName = pContainerName_}++-- | The name of the container that the policy is assigned to.+getCorsPolicy_containerName :: Lens.Lens' GetCorsPolicy Prelude.Text+getCorsPolicy_containerName = Lens.lens (\GetCorsPolicy' {containerName} -> containerName) (\s@GetCorsPolicy' {} a -> s {containerName = a} :: GetCorsPolicy)++instance Core.AWSRequest GetCorsPolicy where+  type+    AWSResponse GetCorsPolicy =+      GetCorsPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetCorsPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "CorsPolicy")+      )++instance Prelude.Hashable GetCorsPolicy where+  hashWithSalt _salt GetCorsPolicy' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData GetCorsPolicy where+  rnf GetCorsPolicy' {..} = Prelude.rnf containerName++instance Data.ToHeaders GetCorsPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.GetCorsPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetCorsPolicy where+  toJSON GetCorsPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath GetCorsPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery GetCorsPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetCorsPolicyResponse' smart constructor.+data GetCorsPolicyResponse = GetCorsPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The CORS policy assigned to the container.+    corsPolicy :: Prelude.NonEmpty CorsRule+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetCorsPolicyResponse' 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', 'getCorsPolicyResponse_httpStatus' - The response's http status code.+--+-- 'corsPolicy', 'getCorsPolicyResponse_corsPolicy' - The CORS policy assigned to the container.+newGetCorsPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'corsPolicy'+  Prelude.NonEmpty CorsRule ->+  GetCorsPolicyResponse+newGetCorsPolicyResponse pHttpStatus_ pCorsPolicy_ =+  GetCorsPolicyResponse'+    { httpStatus = pHttpStatus_,+      corsPolicy = Lens.coerced Lens.# pCorsPolicy_+    }++-- | The response's http status code.+getCorsPolicyResponse_httpStatus :: Lens.Lens' GetCorsPolicyResponse Prelude.Int+getCorsPolicyResponse_httpStatus = Lens.lens (\GetCorsPolicyResponse' {httpStatus} -> httpStatus) (\s@GetCorsPolicyResponse' {} a -> s {httpStatus = a} :: GetCorsPolicyResponse)++-- | The CORS policy assigned to the container.+getCorsPolicyResponse_corsPolicy :: Lens.Lens' GetCorsPolicyResponse (Prelude.NonEmpty CorsRule)+getCorsPolicyResponse_corsPolicy = Lens.lens (\GetCorsPolicyResponse' {corsPolicy} -> corsPolicy) (\s@GetCorsPolicyResponse' {} a -> s {corsPolicy = a} :: GetCorsPolicyResponse) Prelude.. Lens.coerced++instance Prelude.NFData GetCorsPolicyResponse where+  rnf GetCorsPolicyResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf corsPolicy

@@ -0,0 +1,181 @@+{-# 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.MediaStore.GetLifecyclePolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the object lifecycle policy that is assigned to a container.+module Amazonka.MediaStore.GetLifecyclePolicy+  ( -- * Creating a Request+    GetLifecyclePolicy (..),+    newGetLifecyclePolicy,++    -- * Request Lenses+    getLifecyclePolicy_containerName,++    -- * Destructuring the Response+    GetLifecyclePolicyResponse (..),+    newGetLifecyclePolicyResponse,++    -- * Response Lenses+    getLifecyclePolicyResponse_httpStatus,+    getLifecyclePolicyResponse_lifecyclePolicy,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetLifecyclePolicy' smart constructor.+data GetLifecyclePolicy = GetLifecyclePolicy'+  { -- | The name of the container that the object lifecycle policy is assigned+    -- to.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetLifecyclePolicy' 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:+--+-- 'containerName', 'getLifecyclePolicy_containerName' - The name of the container that the object lifecycle policy is assigned+-- to.+newGetLifecyclePolicy ::+  -- | 'containerName'+  Prelude.Text ->+  GetLifecyclePolicy+newGetLifecyclePolicy pContainerName_ =+  GetLifecyclePolicy'+    { containerName =+        pContainerName_+    }++-- | The name of the container that the object lifecycle policy is assigned+-- to.+getLifecyclePolicy_containerName :: Lens.Lens' GetLifecyclePolicy Prelude.Text+getLifecyclePolicy_containerName = Lens.lens (\GetLifecyclePolicy' {containerName} -> containerName) (\s@GetLifecyclePolicy' {} a -> s {containerName = a} :: GetLifecyclePolicy)++instance Core.AWSRequest GetLifecyclePolicy where+  type+    AWSResponse GetLifecyclePolicy =+      GetLifecyclePolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetLifecyclePolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "LifecyclePolicy")+      )++instance Prelude.Hashable GetLifecyclePolicy where+  hashWithSalt _salt GetLifecyclePolicy' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData GetLifecyclePolicy where+  rnf GetLifecyclePolicy' {..} =+    Prelude.rnf containerName++instance Data.ToHeaders GetLifecyclePolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.GetLifecyclePolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetLifecyclePolicy where+  toJSON GetLifecyclePolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath GetLifecyclePolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery GetLifecyclePolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetLifecyclePolicyResponse' smart constructor.+data GetLifecyclePolicyResponse = GetLifecyclePolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The object lifecycle policy that is assigned to the container.+    lifecyclePolicy :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetLifecyclePolicyResponse' 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', 'getLifecyclePolicyResponse_httpStatus' - The response's http status code.+--+-- 'lifecyclePolicy', 'getLifecyclePolicyResponse_lifecyclePolicy' - The object lifecycle policy that is assigned to the container.+newGetLifecyclePolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'lifecyclePolicy'+  Prelude.Text ->+  GetLifecyclePolicyResponse+newGetLifecyclePolicyResponse+  pHttpStatus_+  pLifecyclePolicy_ =+    GetLifecyclePolicyResponse'+      { httpStatus =+          pHttpStatus_,+        lifecyclePolicy = pLifecyclePolicy_+      }++-- | The response's http status code.+getLifecyclePolicyResponse_httpStatus :: Lens.Lens' GetLifecyclePolicyResponse Prelude.Int+getLifecyclePolicyResponse_httpStatus = Lens.lens (\GetLifecyclePolicyResponse' {httpStatus} -> httpStatus) (\s@GetLifecyclePolicyResponse' {} a -> s {httpStatus = a} :: GetLifecyclePolicyResponse)++-- | The object lifecycle policy that is assigned to the container.+getLifecyclePolicyResponse_lifecyclePolicy :: Lens.Lens' GetLifecyclePolicyResponse Prelude.Text+getLifecyclePolicyResponse_lifecyclePolicy = Lens.lens (\GetLifecyclePolicyResponse' {lifecyclePolicy} -> lifecyclePolicy) (\s@GetLifecyclePolicyResponse' {} a -> s {lifecyclePolicy = a} :: GetLifecyclePolicyResponse)++instance Prelude.NFData GetLifecyclePolicyResponse where+  rnf GetLifecyclePolicyResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf lifecyclePolicy

@@ -0,0 +1,173 @@+{-# 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.MediaStore.GetMetricPolicy+-- 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 metric policy for the specified container.+module Amazonka.MediaStore.GetMetricPolicy+  ( -- * Creating a Request+    GetMetricPolicy (..),+    newGetMetricPolicy,++    -- * Request Lenses+    getMetricPolicy_containerName,++    -- * Destructuring the Response+    GetMetricPolicyResponse (..),+    newGetMetricPolicyResponse,++    -- * Response Lenses+    getMetricPolicyResponse_httpStatus,+    getMetricPolicyResponse_metricPolicy,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetMetricPolicy' smart constructor.+data GetMetricPolicy = GetMetricPolicy'+  { -- | The name of the container that is associated with the metric policy.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetMetricPolicy' 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:+--+-- 'containerName', 'getMetricPolicy_containerName' - The name of the container that is associated with the metric policy.+newGetMetricPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  GetMetricPolicy+newGetMetricPolicy pContainerName_ =+  GetMetricPolicy' {containerName = pContainerName_}++-- | The name of the container that is associated with the metric policy.+getMetricPolicy_containerName :: Lens.Lens' GetMetricPolicy Prelude.Text+getMetricPolicy_containerName = Lens.lens (\GetMetricPolicy' {containerName} -> containerName) (\s@GetMetricPolicy' {} a -> s {containerName = a} :: GetMetricPolicy)++instance Core.AWSRequest GetMetricPolicy where+  type+    AWSResponse GetMetricPolicy =+      GetMetricPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetMetricPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "MetricPolicy")+      )++instance Prelude.Hashable GetMetricPolicy where+  hashWithSalt _salt GetMetricPolicy' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData GetMetricPolicy where+  rnf GetMetricPolicy' {..} = Prelude.rnf containerName++instance Data.ToHeaders GetMetricPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.GetMetricPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetMetricPolicy where+  toJSON GetMetricPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath GetMetricPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery GetMetricPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetMetricPolicyResponse' smart constructor.+data GetMetricPolicyResponse = GetMetricPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The metric policy that is associated with the specific container.+    metricPolicy :: MetricPolicy+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetMetricPolicyResponse' 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', 'getMetricPolicyResponse_httpStatus' - The response's http status code.+--+-- 'metricPolicy', 'getMetricPolicyResponse_metricPolicy' - The metric policy that is associated with the specific container.+newGetMetricPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'metricPolicy'+  MetricPolicy ->+  GetMetricPolicyResponse+newGetMetricPolicyResponse+  pHttpStatus_+  pMetricPolicy_ =+    GetMetricPolicyResponse'+      { httpStatus = pHttpStatus_,+        metricPolicy = pMetricPolicy_+      }++-- | The response's http status code.+getMetricPolicyResponse_httpStatus :: Lens.Lens' GetMetricPolicyResponse Prelude.Int+getMetricPolicyResponse_httpStatus = Lens.lens (\GetMetricPolicyResponse' {httpStatus} -> httpStatus) (\s@GetMetricPolicyResponse' {} a -> s {httpStatus = a} :: GetMetricPolicyResponse)++-- | The metric policy that is associated with the specific container.+getMetricPolicyResponse_metricPolicy :: Lens.Lens' GetMetricPolicyResponse MetricPolicy+getMetricPolicyResponse_metricPolicy = Lens.lens (\GetMetricPolicyResponse' {metricPolicy} -> metricPolicy) (\s@GetMetricPolicyResponse' {} a -> s {metricPolicy = a} :: GetMetricPolicyResponse)++instance Prelude.NFData GetMetricPolicyResponse where+  rnf GetMetricPolicyResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf metricPolicy

@@ -0,0 +1,174 @@+{-# 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.MediaStore.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.MediaStore.Lens+  ( -- * Operations++    -- ** CreateContainer+    createContainer_tags,+    createContainer_containerName,+    createContainerResponse_httpStatus,+    createContainerResponse_container,++    -- ** DeleteContainer+    deleteContainer_containerName,+    deleteContainerResponse_httpStatus,++    -- ** DeleteContainerPolicy+    deleteContainerPolicy_containerName,+    deleteContainerPolicyResponse_httpStatus,++    -- ** DeleteCorsPolicy+    deleteCorsPolicy_containerName,+    deleteCorsPolicyResponse_httpStatus,++    -- ** DeleteLifecyclePolicy+    deleteLifecyclePolicy_containerName,+    deleteLifecyclePolicyResponse_httpStatus,++    -- ** DeleteMetricPolicy+    deleteMetricPolicy_containerName,+    deleteMetricPolicyResponse_httpStatus,++    -- ** DescribeContainer+    describeContainer_containerName,+    describeContainerResponse_container,+    describeContainerResponse_httpStatus,++    -- ** GetContainerPolicy+    getContainerPolicy_containerName,+    getContainerPolicyResponse_httpStatus,+    getContainerPolicyResponse_policy,++    -- ** GetCorsPolicy+    getCorsPolicy_containerName,+    getCorsPolicyResponse_httpStatus,+    getCorsPolicyResponse_corsPolicy,++    -- ** GetLifecyclePolicy+    getLifecyclePolicy_containerName,+    getLifecyclePolicyResponse_httpStatus,+    getLifecyclePolicyResponse_lifecyclePolicy,++    -- ** GetMetricPolicy+    getMetricPolicy_containerName,+    getMetricPolicyResponse_httpStatus,+    getMetricPolicyResponse_metricPolicy,++    -- ** ListContainers+    listContainers_maxResults,+    listContainers_nextToken,+    listContainersResponse_nextToken,+    listContainersResponse_httpStatus,+    listContainersResponse_containers,++    -- ** ListTagsForResource+    listTagsForResource_resource,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** PutContainerPolicy+    putContainerPolicy_containerName,+    putContainerPolicy_policy,+    putContainerPolicyResponse_httpStatus,++    -- ** PutCorsPolicy+    putCorsPolicy_containerName,+    putCorsPolicy_corsPolicy,+    putCorsPolicyResponse_httpStatus,++    -- ** PutLifecyclePolicy+    putLifecyclePolicy_containerName,+    putLifecyclePolicy_lifecyclePolicy,+    putLifecyclePolicyResponse_httpStatus,++    -- ** PutMetricPolicy+    putMetricPolicy_containerName,+    putMetricPolicy_metricPolicy,+    putMetricPolicyResponse_httpStatus,++    -- ** StartAccessLogging+    startAccessLogging_containerName,+    startAccessLoggingResponse_httpStatus,++    -- ** StopAccessLogging+    stopAccessLogging_containerName,+    stopAccessLoggingResponse_httpStatus,++    -- ** TagResource+    tagResource_resource,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resource,+    untagResource_tagKeys,+    untagResourceResponse_httpStatus,++    -- * Types++    -- ** Container+    container_arn,+    container_accessLoggingEnabled,+    container_creationTime,+    container_endpoint,+    container_name,+    container_status,++    -- ** CorsRule+    corsRule_allowedMethods,+    corsRule_exposeHeaders,+    corsRule_maxAgeSeconds,+    corsRule_allowedOrigins,+    corsRule_allowedHeaders,++    -- ** MetricPolicy+    metricPolicy_metricPolicyRules,+    metricPolicy_containerLevelMetrics,++    -- ** MetricPolicyRule+    metricPolicyRule_objectGroup,+    metricPolicyRule_objectGroupName,++    -- ** Tag+    tag_value,+    tag_key,+  )+where++import Amazonka.MediaStore.CreateContainer+import Amazonka.MediaStore.DeleteContainer+import Amazonka.MediaStore.DeleteContainerPolicy+import Amazonka.MediaStore.DeleteCorsPolicy+import Amazonka.MediaStore.DeleteLifecyclePolicy+import Amazonka.MediaStore.DeleteMetricPolicy+import Amazonka.MediaStore.DescribeContainer+import Amazonka.MediaStore.GetContainerPolicy+import Amazonka.MediaStore.GetCorsPolicy+import Amazonka.MediaStore.GetLifecyclePolicy+import Amazonka.MediaStore.GetMetricPolicy+import Amazonka.MediaStore.ListContainers+import Amazonka.MediaStore.ListTagsForResource+import Amazonka.MediaStore.PutContainerPolicy+import Amazonka.MediaStore.PutCorsPolicy+import Amazonka.MediaStore.PutLifecyclePolicy+import Amazonka.MediaStore.PutMetricPolicy+import Amazonka.MediaStore.StartAccessLogging+import Amazonka.MediaStore.StopAccessLogging+import Amazonka.MediaStore.TagResource+import Amazonka.MediaStore.Types.Container+import Amazonka.MediaStore.Types.CorsRule+import Amazonka.MediaStore.Types.MetricPolicy+import Amazonka.MediaStore.Types.MetricPolicyRule+import Amazonka.MediaStore.Types.Tag+import Amazonka.MediaStore.UntagResource

@@ -0,0 +1,245 @@+{-# 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.MediaStore.ListContainers+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the properties of all containers in AWS Elemental MediaStore.+--+-- You can query to receive all the containers in one response. Or you can+-- include the @MaxResults@ parameter to receive a limited number of+-- containers in each response. In this case, the response includes a+-- token. To get the next set of containers, send the command again, this+-- time with the @NextToken@ parameter (with the returned token as its+-- value). The next set of responses appears, with a token if there are+-- still more containers to receive.+--+-- See also DescribeContainer, which gets the properties of one container.+--+-- This operation returns paginated results.+module Amazonka.MediaStore.ListContainers+  ( -- * Creating a Request+    ListContainers (..),+    newListContainers,++    -- * Request Lenses+    listContainers_maxResults,+    listContainers_nextToken,++    -- * Destructuring the Response+    ListContainersResponse (..),+    newListContainersResponse,++    -- * Response Lenses+    listContainersResponse_nextToken,+    listContainersResponse_httpStatus,+    listContainersResponse_containers,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListContainers' smart constructor.+data ListContainers = ListContainers'+  { -- | Enter the maximum number of containers in the response. Use from 1 to+    -- 255 characters.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | Only if you used @MaxResults@ in the first command, enter the token+    -- (which was included in the previous response) to obtain the next set of+    -- containers. This token is included in a response only if there actually+    -- are more containers to list.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListContainers' 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', 'listContainers_maxResults' - Enter the maximum number of containers in the response. Use from 1 to+-- 255 characters.+--+-- 'nextToken', 'listContainers_nextToken' - Only if you used @MaxResults@ in the first command, enter the token+-- (which was included in the previous response) to obtain the next set of+-- containers. This token is included in a response only if there actually+-- are more containers to list.+newListContainers ::+  ListContainers+newListContainers =+  ListContainers'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Enter the maximum number of containers in the response. Use from 1 to+-- 255 characters.+listContainers_maxResults :: Lens.Lens' ListContainers (Prelude.Maybe Prelude.Natural)+listContainers_maxResults = Lens.lens (\ListContainers' {maxResults} -> maxResults) (\s@ListContainers' {} a -> s {maxResults = a} :: ListContainers)++-- | Only if you used @MaxResults@ in the first command, enter the token+-- (which was included in the previous response) to obtain the next set of+-- containers. This token is included in a response only if there actually+-- are more containers to list.+listContainers_nextToken :: Lens.Lens' ListContainers (Prelude.Maybe Prelude.Text)+listContainers_nextToken = Lens.lens (\ListContainers' {nextToken} -> nextToken) (\s@ListContainers' {} a -> s {nextToken = a} :: ListContainers)++instance Core.AWSPager ListContainers where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listContainersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listContainersResponse_containers) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listContainers_nextToken+          Lens..~ rs+          Lens.^? listContainersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListContainers where+  type+    AWSResponse ListContainers =+      ListContainersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListContainersResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "Containers" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListContainers where+  hashWithSalt _salt ListContainers' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListContainers where+  rnf ListContainers' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListContainers where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.ListContainers" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListContainers where+  toJSON ListContainers' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListContainers where+  toPath = Prelude.const "/"++instance Data.ToQuery ListContainers where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListContainersResponse' smart constructor.+data ListContainersResponse = ListContainersResponse'+  { -- | @NextToken@ is the token to use in the next call to @ListContainers@.+    -- This token is returned only if you included the @MaxResults@ tag in the+    -- original command, and only if there are still containers to return.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The names of the containers.+    containers :: [Container]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListContainersResponse' 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', 'listContainersResponse_nextToken' - @NextToken@ is the token to use in the next call to @ListContainers@.+-- This token is returned only if you included the @MaxResults@ tag in the+-- original command, and only if there are still containers to return.+--+-- 'httpStatus', 'listContainersResponse_httpStatus' - The response's http status code.+--+-- 'containers', 'listContainersResponse_containers' - The names of the containers.+newListContainersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListContainersResponse+newListContainersResponse pHttpStatus_ =+  ListContainersResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      containers = Prelude.mempty+    }++-- | @NextToken@ is the token to use in the next call to @ListContainers@.+-- This token is returned only if you included the @MaxResults@ tag in the+-- original command, and only if there are still containers to return.+listContainersResponse_nextToken :: Lens.Lens' ListContainersResponse (Prelude.Maybe Prelude.Text)+listContainersResponse_nextToken = Lens.lens (\ListContainersResponse' {nextToken} -> nextToken) (\s@ListContainersResponse' {} a -> s {nextToken = a} :: ListContainersResponse)++-- | The response's http status code.+listContainersResponse_httpStatus :: Lens.Lens' ListContainersResponse Prelude.Int+listContainersResponse_httpStatus = Lens.lens (\ListContainersResponse' {httpStatus} -> httpStatus) (\s@ListContainersResponse' {} a -> s {httpStatus = a} :: ListContainersResponse)++-- | The names of the containers.+listContainersResponse_containers :: Lens.Lens' ListContainersResponse [Container]+listContainersResponse_containers = Lens.lens (\ListContainersResponse' {containers} -> containers) (\s@ListContainersResponse' {} a -> s {containers = a} :: ListContainersResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListContainersResponse where+  rnf ListContainersResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf containers

@@ -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.MediaStore.ListTagsForResource+-- 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 the tags assigned to the specified container.+module Amazonka.MediaStore.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_resource,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | The Amazon Resource Name (ARN) for the container.+    resource :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' 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:+--+-- 'resource', 'listTagsForResource_resource' - The Amazon Resource Name (ARN) for the container.+newListTagsForResource ::+  -- | 'resource'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResource_ =+  ListTagsForResource' {resource = pResource_}++-- | The Amazon Resource Name (ARN) for the container.+listTagsForResource_resource :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resource = Lens.lens (\ListTagsForResource' {resource} -> resource) (\s@ListTagsForResource' {} a -> s {resource = a} :: ListTagsForResource)++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (x Data..?> "Tags")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt `Prelude.hashWithSalt` resource++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} = Prelude.rnf resource++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("Resource" Data..= resource)]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | An array of key:value pairs that are assigned to the container.+    tags :: Prelude.Maybe (Prelude.NonEmpty Tag),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResourceResponse' 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', 'listTagsForResourceResponse_tags' - An array of key:value pairs that are assigned to the container.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { tags =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An array of key:value pairs that are assigned to the container.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe (Prelude.NonEmpty Tag))+listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int+listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse)++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,197 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.PutContainerPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an access policy for the specified container to restrict the+-- users and clients that can access it. For information about the data+-- that is included in an access policy, see the+-- <https://aws.amazon.com/documentation/iam/ AWS Identity and Access Management User Guide>.+--+-- For this release of the REST API, you can create only one policy for a+-- container. If you enter @PutContainerPolicy@ twice, the second command+-- modifies the existing policy.+module Amazonka.MediaStore.PutContainerPolicy+  ( -- * Creating a Request+    PutContainerPolicy (..),+    newPutContainerPolicy,++    -- * Request Lenses+    putContainerPolicy_containerName,+    putContainerPolicy_policy,++    -- * Destructuring the Response+    PutContainerPolicyResponse (..),+    newPutContainerPolicyResponse,++    -- * Response Lenses+    putContainerPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newPutContainerPolicy' smart constructor.+data PutContainerPolicy = PutContainerPolicy'+  { -- | The name of the container.+    containerName :: Prelude.Text,+    -- | The contents of the policy, which includes the following:+    --+    -- -   One @Version@ tag+    --+    -- -   One @Statement@ tag that contains the standard tags for the policy.+    policy :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutContainerPolicy' 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:+--+-- 'containerName', 'putContainerPolicy_containerName' - The name of the container.+--+-- 'policy', 'putContainerPolicy_policy' - The contents of the policy, which includes the following:+--+-- -   One @Version@ tag+--+-- -   One @Statement@ tag that contains the standard tags for the policy.+newPutContainerPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  -- | 'policy'+  Prelude.Text ->+  PutContainerPolicy+newPutContainerPolicy pContainerName_ pPolicy_ =+  PutContainerPolicy'+    { containerName =+        pContainerName_,+      policy = pPolicy_+    }++-- | The name of the container.+putContainerPolicy_containerName :: Lens.Lens' PutContainerPolicy Prelude.Text+putContainerPolicy_containerName = Lens.lens (\PutContainerPolicy' {containerName} -> containerName) (\s@PutContainerPolicy' {} a -> s {containerName = a} :: PutContainerPolicy)++-- | The contents of the policy, which includes the following:+--+-- -   One @Version@ tag+--+-- -   One @Statement@ tag that contains the standard tags for the policy.+putContainerPolicy_policy :: Lens.Lens' PutContainerPolicy Prelude.Text+putContainerPolicy_policy = Lens.lens (\PutContainerPolicy' {policy} -> policy) (\s@PutContainerPolicy' {} a -> s {policy = a} :: PutContainerPolicy)++instance Core.AWSRequest PutContainerPolicy where+  type+    AWSResponse PutContainerPolicy =+      PutContainerPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          PutContainerPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutContainerPolicy where+  hashWithSalt _salt PutContainerPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` containerName+      `Prelude.hashWithSalt` policy++instance Prelude.NFData PutContainerPolicy where+  rnf PutContainerPolicy' {..} =+    Prelude.rnf containerName+      `Prelude.seq` Prelude.rnf policy++instance Data.ToHeaders PutContainerPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.PutContainerPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PutContainerPolicy where+  toJSON PutContainerPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName),+            Prelude.Just ("Policy" Data..= policy)+          ]+      )++instance Data.ToPath PutContainerPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery PutContainerPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutContainerPolicyResponse' smart constructor.+data PutContainerPolicyResponse = PutContainerPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutContainerPolicyResponse' 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', 'putContainerPolicyResponse_httpStatus' - The response's http status code.+newPutContainerPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutContainerPolicyResponse+newPutContainerPolicyResponse pHttpStatus_ =+  PutContainerPolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+putContainerPolicyResponse_httpStatus :: Lens.Lens' PutContainerPolicyResponse Prelude.Int+putContainerPolicyResponse_httpStatus = Lens.lens (\PutContainerPolicyResponse' {httpStatus} -> httpStatus) (\s@PutContainerPolicyResponse' {} a -> s {httpStatus = a} :: PutContainerPolicyResponse)++instance Prelude.NFData PutContainerPolicyResponse where+  rnf PutContainerPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,189 @@+{-# 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.MediaStore.PutCorsPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets the cross-origin resource sharing (CORS) configuration on a+-- container so that the container can service cross-origin requests. For+-- example, you might want to enable a request whose origin is+-- http:\/\/www.example.com to access your AWS Elemental MediaStore+-- container at my.example.container.com by using the browser\'s+-- XMLHttpRequest capability.+--+-- To enable CORS on a container, you attach a CORS policy to the+-- container. In the CORS policy, you configure rules that identify origins+-- and the HTTP methods that can be executed on your container. The policy+-- can contain up to 398,000 characters. You can add up to 100 rules to a+-- CORS policy. If more than one rule applies, the service uses the first+-- applicable rule listed.+--+-- To learn more about CORS, see+-- <https://docs.aws.amazon.com/mediastore/latest/ug/cors-policy.html Cross-Origin Resource Sharing (CORS) in AWS Elemental MediaStore>.+module Amazonka.MediaStore.PutCorsPolicy+  ( -- * Creating a Request+    PutCorsPolicy (..),+    newPutCorsPolicy,++    -- * Request Lenses+    putCorsPolicy_containerName,+    putCorsPolicy_corsPolicy,++    -- * Destructuring the Response+    PutCorsPolicyResponse (..),+    newPutCorsPolicyResponse,++    -- * Response Lenses+    putCorsPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newPutCorsPolicy' smart constructor.+data PutCorsPolicy = PutCorsPolicy'+  { -- | The name of the container that you want to assign the CORS policy to.+    containerName :: Prelude.Text,+    -- | The CORS policy to apply to the container.+    corsPolicy :: Prelude.NonEmpty CorsRule+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutCorsPolicy' 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:+--+-- 'containerName', 'putCorsPolicy_containerName' - The name of the container that you want to assign the CORS policy to.+--+-- 'corsPolicy', 'putCorsPolicy_corsPolicy' - The CORS policy to apply to the container.+newPutCorsPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  -- | 'corsPolicy'+  Prelude.NonEmpty CorsRule ->+  PutCorsPolicy+newPutCorsPolicy pContainerName_ pCorsPolicy_ =+  PutCorsPolicy'+    { containerName = pContainerName_,+      corsPolicy = Lens.coerced Lens.# pCorsPolicy_+    }++-- | The name of the container that you want to assign the CORS policy to.+putCorsPolicy_containerName :: Lens.Lens' PutCorsPolicy Prelude.Text+putCorsPolicy_containerName = Lens.lens (\PutCorsPolicy' {containerName} -> containerName) (\s@PutCorsPolicy' {} a -> s {containerName = a} :: PutCorsPolicy)++-- | The CORS policy to apply to the container.+putCorsPolicy_corsPolicy :: Lens.Lens' PutCorsPolicy (Prelude.NonEmpty CorsRule)+putCorsPolicy_corsPolicy = Lens.lens (\PutCorsPolicy' {corsPolicy} -> corsPolicy) (\s@PutCorsPolicy' {} a -> s {corsPolicy = a} :: PutCorsPolicy) Prelude.. Lens.coerced++instance Core.AWSRequest PutCorsPolicy where+  type+    AWSResponse PutCorsPolicy =+      PutCorsPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          PutCorsPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutCorsPolicy where+  hashWithSalt _salt PutCorsPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` containerName+      `Prelude.hashWithSalt` corsPolicy++instance Prelude.NFData PutCorsPolicy where+  rnf PutCorsPolicy' {..} =+    Prelude.rnf containerName+      `Prelude.seq` Prelude.rnf corsPolicy++instance Data.ToHeaders PutCorsPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.PutCorsPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PutCorsPolicy where+  toJSON PutCorsPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName),+            Prelude.Just ("CorsPolicy" Data..= corsPolicy)+          ]+      )++instance Data.ToPath PutCorsPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery PutCorsPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutCorsPolicyResponse' smart constructor.+data PutCorsPolicyResponse = PutCorsPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutCorsPolicyResponse' 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', 'putCorsPolicyResponse_httpStatus' - The response's http status code.+newPutCorsPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutCorsPolicyResponse+newPutCorsPolicyResponse pHttpStatus_ =+  PutCorsPolicyResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+putCorsPolicyResponse_httpStatus :: Lens.Lens' PutCorsPolicyResponse Prelude.Int+putCorsPolicyResponse_httpStatus = Lens.lens (\PutCorsPolicyResponse' {httpStatus} -> httpStatus) (\s@PutCorsPolicyResponse' {} a -> s {httpStatus = a} :: PutCorsPolicyResponse)++instance Prelude.NFData PutCorsPolicyResponse where+  rnf PutCorsPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,190 @@+{-# 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.MediaStore.PutLifecyclePolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Writes an object lifecycle policy to a container. If the container+-- already has an object lifecycle policy, the service replaces the+-- existing policy with the new policy. It takes up to 20 minutes for the+-- change to take effect.+--+-- For information about how to construct an object lifecycle policy, see+-- <https://docs.aws.amazon.com/mediastore/latest/ug/policies-object-lifecycle-components.html Components of an Object Lifecycle Policy>.+module Amazonka.MediaStore.PutLifecyclePolicy+  ( -- * Creating a Request+    PutLifecyclePolicy (..),+    newPutLifecyclePolicy,++    -- * Request Lenses+    putLifecyclePolicy_containerName,+    putLifecyclePolicy_lifecyclePolicy,++    -- * Destructuring the Response+    PutLifecyclePolicyResponse (..),+    newPutLifecyclePolicyResponse,++    -- * Response Lenses+    putLifecyclePolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newPutLifecyclePolicy' smart constructor.+data PutLifecyclePolicy = PutLifecyclePolicy'+  { -- | The name of the container that you want to assign the object lifecycle+    -- policy to.+    containerName :: Prelude.Text,+    -- | The object lifecycle policy to apply to the container.+    lifecyclePolicy :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutLifecyclePolicy' 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:+--+-- 'containerName', 'putLifecyclePolicy_containerName' - The name of the container that you want to assign the object lifecycle+-- policy to.+--+-- 'lifecyclePolicy', 'putLifecyclePolicy_lifecyclePolicy' - The object lifecycle policy to apply to the container.+newPutLifecyclePolicy ::+  -- | 'containerName'+  Prelude.Text ->+  -- | 'lifecyclePolicy'+  Prelude.Text ->+  PutLifecyclePolicy+newPutLifecyclePolicy+  pContainerName_+  pLifecyclePolicy_ =+    PutLifecyclePolicy'+      { containerName =+          pContainerName_,+        lifecyclePolicy = pLifecyclePolicy_+      }++-- | The name of the container that you want to assign the object lifecycle+-- policy to.+putLifecyclePolicy_containerName :: Lens.Lens' PutLifecyclePolicy Prelude.Text+putLifecyclePolicy_containerName = Lens.lens (\PutLifecyclePolicy' {containerName} -> containerName) (\s@PutLifecyclePolicy' {} a -> s {containerName = a} :: PutLifecyclePolicy)++-- | The object lifecycle policy to apply to the container.+putLifecyclePolicy_lifecyclePolicy :: Lens.Lens' PutLifecyclePolicy Prelude.Text+putLifecyclePolicy_lifecyclePolicy = Lens.lens (\PutLifecyclePolicy' {lifecyclePolicy} -> lifecyclePolicy) (\s@PutLifecyclePolicy' {} a -> s {lifecyclePolicy = a} :: PutLifecyclePolicy)++instance Core.AWSRequest PutLifecyclePolicy where+  type+    AWSResponse PutLifecyclePolicy =+      PutLifecyclePolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          PutLifecyclePolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutLifecyclePolicy where+  hashWithSalt _salt PutLifecyclePolicy' {..} =+    _salt+      `Prelude.hashWithSalt` containerName+      `Prelude.hashWithSalt` lifecyclePolicy++instance Prelude.NFData PutLifecyclePolicy where+  rnf PutLifecyclePolicy' {..} =+    Prelude.rnf containerName+      `Prelude.seq` Prelude.rnf lifecyclePolicy++instance Data.ToHeaders PutLifecyclePolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.PutLifecyclePolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PutLifecyclePolicy where+  toJSON PutLifecyclePolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName),+            Prelude.Just+              ("LifecyclePolicy" Data..= lifecyclePolicy)+          ]+      )++instance Data.ToPath PutLifecyclePolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery PutLifecyclePolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutLifecyclePolicyResponse' smart constructor.+data PutLifecyclePolicyResponse = PutLifecyclePolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutLifecyclePolicyResponse' 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', 'putLifecyclePolicyResponse_httpStatus' - The response's http status code.+newPutLifecyclePolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutLifecyclePolicyResponse+newPutLifecyclePolicyResponse pHttpStatus_ =+  PutLifecyclePolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+putLifecyclePolicyResponse_httpStatus :: Lens.Lens' PutLifecyclePolicyResponse Prelude.Int+putLifecyclePolicyResponse_httpStatus = Lens.lens (\PutLifecyclePolicyResponse' {httpStatus} -> httpStatus) (\s@PutLifecyclePolicyResponse' {} a -> s {httpStatus = a} :: PutLifecyclePolicyResponse)++instance Prelude.NFData PutLifecyclePolicyResponse where+  rnf PutLifecyclePolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,224 @@+{-# 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.MediaStore.PutMetricPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The metric policy that you want to add to the container. A metric policy+-- allows AWS Elemental MediaStore to send metrics to Amazon CloudWatch. It+-- takes up to 20 minutes for the new policy to take effect.+module Amazonka.MediaStore.PutMetricPolicy+  ( -- * Creating a Request+    PutMetricPolicy (..),+    newPutMetricPolicy,++    -- * Request Lenses+    putMetricPolicy_containerName,+    putMetricPolicy_metricPolicy,++    -- * Destructuring the Response+    PutMetricPolicyResponse (..),+    newPutMetricPolicyResponse,++    -- * Response Lenses+    putMetricPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newPutMetricPolicy' smart constructor.+data PutMetricPolicy = PutMetricPolicy'+  { -- | The name of the container that you want to add the metric policy to.+    containerName :: Prelude.Text,+    -- | The metric policy that you want to associate with the container. In the+    -- policy, you must indicate whether you want MediaStore to send+    -- container-level metrics. You can also include up to five rules to define+    -- groups of objects that you want MediaStore to send object-level metrics+    -- for. If you include rules in the policy, construct each rule with both+    -- of the following:+    --+    -- -   An object group that defines which objects to include in the group.+    --     The definition can be a path or a file name, but it can\'t have more+    --     than 900 characters. Valid characters are: a-z, A-Z, 0-9, _+    --     (underscore), = (equal), : (colon), . (period), - (hyphen), ~+    --     (tilde), \/ (forward slash), and * (asterisk). Wildcards (*) are+    --     acceptable.+    --+    -- -   An object group name that allows you to refer to the object group.+    --     The name can\'t have more than 30 characters. Valid characters are:+    --     a-z, A-Z, 0-9, and _ (underscore).+    metricPolicy :: MetricPolicy+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutMetricPolicy' 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:+--+-- 'containerName', 'putMetricPolicy_containerName' - The name of the container that you want to add the metric policy to.+--+-- 'metricPolicy', 'putMetricPolicy_metricPolicy' - The metric policy that you want to associate with the container. In the+-- policy, you must indicate whether you want MediaStore to send+-- container-level metrics. You can also include up to five rules to define+-- groups of objects that you want MediaStore to send object-level metrics+-- for. If you include rules in the policy, construct each rule with both+-- of the following:+--+-- -   An object group that defines which objects to include in the group.+--     The definition can be a path or a file name, but it can\'t have more+--     than 900 characters. Valid characters are: a-z, A-Z, 0-9, _+--     (underscore), = (equal), : (colon), . (period), - (hyphen), ~+--     (tilde), \/ (forward slash), and * (asterisk). Wildcards (*) are+--     acceptable.+--+-- -   An object group name that allows you to refer to the object group.+--     The name can\'t have more than 30 characters. Valid characters are:+--     a-z, A-Z, 0-9, and _ (underscore).+newPutMetricPolicy ::+  -- | 'containerName'+  Prelude.Text ->+  -- | 'metricPolicy'+  MetricPolicy ->+  PutMetricPolicy+newPutMetricPolicy pContainerName_ pMetricPolicy_ =+  PutMetricPolicy'+    { containerName = pContainerName_,+      metricPolicy = pMetricPolicy_+    }++-- | The name of the container that you want to add the metric policy to.+putMetricPolicy_containerName :: Lens.Lens' PutMetricPolicy Prelude.Text+putMetricPolicy_containerName = Lens.lens (\PutMetricPolicy' {containerName} -> containerName) (\s@PutMetricPolicy' {} a -> s {containerName = a} :: PutMetricPolicy)++-- | The metric policy that you want to associate with the container. In the+-- policy, you must indicate whether you want MediaStore to send+-- container-level metrics. You can also include up to five rules to define+-- groups of objects that you want MediaStore to send object-level metrics+-- for. If you include rules in the policy, construct each rule with both+-- of the following:+--+-- -   An object group that defines which objects to include in the group.+--     The definition can be a path or a file name, but it can\'t have more+--     than 900 characters. Valid characters are: a-z, A-Z, 0-9, _+--     (underscore), = (equal), : (colon), . (period), - (hyphen), ~+--     (tilde), \/ (forward slash), and * (asterisk). Wildcards (*) are+--     acceptable.+--+-- -   An object group name that allows you to refer to the object group.+--     The name can\'t have more than 30 characters. Valid characters are:+--     a-z, A-Z, 0-9, and _ (underscore).+putMetricPolicy_metricPolicy :: Lens.Lens' PutMetricPolicy MetricPolicy+putMetricPolicy_metricPolicy = Lens.lens (\PutMetricPolicy' {metricPolicy} -> metricPolicy) (\s@PutMetricPolicy' {} a -> s {metricPolicy = a} :: PutMetricPolicy)++instance Core.AWSRequest PutMetricPolicy where+  type+    AWSResponse PutMetricPolicy =+      PutMetricPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          PutMetricPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutMetricPolicy where+  hashWithSalt _salt PutMetricPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` containerName+      `Prelude.hashWithSalt` metricPolicy++instance Prelude.NFData PutMetricPolicy where+  rnf PutMetricPolicy' {..} =+    Prelude.rnf containerName+      `Prelude.seq` Prelude.rnf metricPolicy++instance Data.ToHeaders PutMetricPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.PutMetricPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PutMetricPolicy where+  toJSON PutMetricPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName),+            Prelude.Just ("MetricPolicy" Data..= metricPolicy)+          ]+      )++instance Data.ToPath PutMetricPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery PutMetricPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutMetricPolicyResponse' smart constructor.+data PutMetricPolicyResponse = PutMetricPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutMetricPolicyResponse' 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', 'putMetricPolicyResponse_httpStatus' - The response's http status code.+newPutMetricPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutMetricPolicyResponse+newPutMetricPolicyResponse pHttpStatus_ =+  PutMetricPolicyResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+putMetricPolicyResponse_httpStatus :: Lens.Lens' PutMetricPolicyResponse Prelude.Int+putMetricPolicyResponse_httpStatus = Lens.lens (\PutMetricPolicyResponse' {httpStatus} -> httpStatus) (\s@PutMetricPolicyResponse' {} a -> s {httpStatus = a} :: PutMetricPolicyResponse)++instance Prelude.NFData PutMetricPolicyResponse where+  rnf PutMetricPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -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.MediaStore.StartAccessLogging+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts access logging on the specified container. When you enable access+-- logging on a container, MediaStore delivers access logs for objects+-- stored in that container to Amazon CloudWatch Logs.+module Amazonka.MediaStore.StartAccessLogging+  ( -- * Creating a Request+    StartAccessLogging (..),+    newStartAccessLogging,++    -- * Request Lenses+    startAccessLogging_containerName,++    -- * Destructuring the Response+    StartAccessLoggingResponse (..),+    newStartAccessLoggingResponse,++    -- * Response Lenses+    startAccessLoggingResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartAccessLogging' smart constructor.+data StartAccessLogging = StartAccessLogging'+  { -- | The name of the container that you want to start access logging on.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartAccessLogging' 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:+--+-- 'containerName', 'startAccessLogging_containerName' - The name of the container that you want to start access logging on.+newStartAccessLogging ::+  -- | 'containerName'+  Prelude.Text ->+  StartAccessLogging+newStartAccessLogging pContainerName_ =+  StartAccessLogging'+    { containerName =+        pContainerName_+    }++-- | The name of the container that you want to start access logging on.+startAccessLogging_containerName :: Lens.Lens' StartAccessLogging Prelude.Text+startAccessLogging_containerName = Lens.lens (\StartAccessLogging' {containerName} -> containerName) (\s@StartAccessLogging' {} a -> s {containerName = a} :: StartAccessLogging)++instance Core.AWSRequest StartAccessLogging where+  type+    AWSResponse StartAccessLogging =+      StartAccessLoggingResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          StartAccessLoggingResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartAccessLogging where+  hashWithSalt _salt StartAccessLogging' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData StartAccessLogging where+  rnf StartAccessLogging' {..} =+    Prelude.rnf containerName++instance Data.ToHeaders StartAccessLogging where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.StartAccessLogging" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartAccessLogging where+  toJSON StartAccessLogging' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath StartAccessLogging where+  toPath = Prelude.const "/"++instance Data.ToQuery StartAccessLogging where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartAccessLoggingResponse' smart constructor.+data StartAccessLoggingResponse = StartAccessLoggingResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartAccessLoggingResponse' 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', 'startAccessLoggingResponse_httpStatus' - The response's http status code.+newStartAccessLoggingResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartAccessLoggingResponse+newStartAccessLoggingResponse pHttpStatus_ =+  StartAccessLoggingResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+startAccessLoggingResponse_httpStatus :: Lens.Lens' StartAccessLoggingResponse Prelude.Int+startAccessLoggingResponse_httpStatus = Lens.lens (\StartAccessLoggingResponse' {httpStatus} -> httpStatus) (\s@StartAccessLoggingResponse' {} a -> s {httpStatus = a} :: StartAccessLoggingResponse)++instance Prelude.NFData StartAccessLoggingResponse where+  rnf StartAccessLoggingResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,162 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.StopAccessLogging+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops access logging on the specified container. When you stop access+-- logging on a container, MediaStore stops sending access logs to Amazon+-- CloudWatch Logs. These access logs are not saved and are not+-- retrievable.+module Amazonka.MediaStore.StopAccessLogging+  ( -- * Creating a Request+    StopAccessLogging (..),+    newStopAccessLogging,++    -- * Request Lenses+    stopAccessLogging_containerName,++    -- * Destructuring the Response+    StopAccessLoggingResponse (..),+    newStopAccessLoggingResponse,++    -- * Response Lenses+    stopAccessLoggingResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStopAccessLogging' smart constructor.+data StopAccessLogging = StopAccessLogging'+  { -- | The name of the container that you want to stop access logging on.+    containerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopAccessLogging' 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:+--+-- 'containerName', 'stopAccessLogging_containerName' - The name of the container that you want to stop access logging on.+newStopAccessLogging ::+  -- | 'containerName'+  Prelude.Text ->+  StopAccessLogging+newStopAccessLogging pContainerName_ =+  StopAccessLogging' {containerName = pContainerName_}++-- | The name of the container that you want to stop access logging on.+stopAccessLogging_containerName :: Lens.Lens' StopAccessLogging Prelude.Text+stopAccessLogging_containerName = Lens.lens (\StopAccessLogging' {containerName} -> containerName) (\s@StopAccessLogging' {} a -> s {containerName = a} :: StopAccessLogging)++instance Core.AWSRequest StopAccessLogging where+  type+    AWSResponse StopAccessLogging =+      StopAccessLoggingResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          StopAccessLoggingResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopAccessLogging where+  hashWithSalt _salt StopAccessLogging' {..} =+    _salt `Prelude.hashWithSalt` containerName++instance Prelude.NFData StopAccessLogging where+  rnf StopAccessLogging' {..} =+    Prelude.rnf containerName++instance Data.ToHeaders StopAccessLogging where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.StopAccessLogging" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopAccessLogging where+  toJSON StopAccessLogging' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContainerName" Data..= containerName)+          ]+      )++instance Data.ToPath StopAccessLogging where+  toPath = Prelude.const "/"++instance Data.ToQuery StopAccessLogging where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStopAccessLoggingResponse' smart constructor.+data StopAccessLoggingResponse = StopAccessLoggingResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopAccessLoggingResponse' 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', 'stopAccessLoggingResponse_httpStatus' - The response's http status code.+newStopAccessLoggingResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopAccessLoggingResponse+newStopAccessLoggingResponse pHttpStatus_ =+  StopAccessLoggingResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+stopAccessLoggingResponse_httpStatus :: Lens.Lens' StopAccessLoggingResponse Prelude.Int+stopAccessLoggingResponse_httpStatus = Lens.lens (\StopAccessLoggingResponse' {httpStatus} -> httpStatus) (\s@StopAccessLoggingResponse' {} a -> s {httpStatus = a} :: StopAccessLoggingResponse)++instance Prelude.NFData StopAccessLoggingResponse where+  rnf StopAccessLoggingResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,193 @@+{-# 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.MediaStore.TagResource+-- 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 tags to the specified AWS Elemental MediaStore container. Tags are+-- key:value pairs that you can associate with AWS resources. For example,+-- the tag key might be \"customer\" and the tag value might be+-- \"companyA.\" You can specify one or more tags to add to each container.+-- You can add up to 50 tags to each container. For more information about+-- tagging, including naming and usage conventions, see+-- <https://docs.aws.amazon.com/mediastore/latest/ug/tagging.html Tagging Resources in MediaStore>.+module Amazonka.MediaStore.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resource,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The Amazon Resource Name (ARN) for the container.+    resource :: Prelude.Text,+    -- | An array of key:value pairs that you want to add to the container. You+    -- need to specify only the tags that you want to add or update. For+    -- example, suppose a container already has two tags (customer:CompanyA and+    -- priority:High). You want to change the priority tag and also add a third+    -- tag (type:Contract). For TagResource, you specify the following tags:+    -- priority:Medium, type:Contract. The result is that your container has+    -- three tags: customer:CompanyA, priority:Medium, and type:Contract.+    tags :: Prelude.NonEmpty Tag+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' 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:+--+-- 'resource', 'tagResource_resource' - The Amazon Resource Name (ARN) for the container.+--+-- 'tags', 'tagResource_tags' - An array of key:value pairs that you want to add to the container. You+-- need to specify only the tags that you want to add or update. For+-- example, suppose a container already has two tags (customer:CompanyA and+-- priority:High). You want to change the priority tag and also add a third+-- tag (type:Contract). For TagResource, you specify the following tags:+-- priority:Medium, type:Contract. The result is that your container has+-- three tags: customer:CompanyA, priority:Medium, and type:Contract.+newTagResource ::+  -- | 'resource'+  Prelude.Text ->+  -- | 'tags'+  Prelude.NonEmpty Tag ->+  TagResource+newTagResource pResource_ pTags_ =+  TagResource'+    { resource = pResource_,+      tags = Lens.coerced Lens.# pTags_+    }++-- | The Amazon Resource Name (ARN) for the container.+tagResource_resource :: Lens.Lens' TagResource Prelude.Text+tagResource_resource = Lens.lens (\TagResource' {resource} -> resource) (\s@TagResource' {} a -> s {resource = a} :: TagResource)++-- | An array of key:value pairs that you want to add to the container. You+-- need to specify only the tags that you want to add or update. For+-- example, suppose a container already has two tags (customer:CompanyA and+-- priority:High). You want to change the priority tag and also add a third+-- tag (type:Contract). For TagResource, you specify the following tags:+-- priority:Medium, type:Contract. The result is that your container has+-- three tags: customer:CompanyA, priority:Medium, and type:Contract.+tagResource_tags :: Lens.Lens' TagResource (Prelude.NonEmpty Tag)+tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced++instance Core.AWSRequest TagResource where+  type AWSResponse TagResource = TagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resource+      `Prelude.hashWithSalt` tags++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resource `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.TagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Resource" Data..= resource),+            Prelude.Just ("Tags" Data..= tags)+          ]+      )++instance Data.ToPath TagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' 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', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,200 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.MediaStore.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _ContainerInUseException,+    _ContainerNotFoundException,+    _CorsPolicyNotFoundException,+    _InternalServerError,+    _LimitExceededException,+    _PolicyNotFoundException,++    -- * ContainerLevelMetrics+    ContainerLevelMetrics (..),++    -- * ContainerStatus+    ContainerStatus (..),++    -- * MethodName+    MethodName (..),++    -- * Container+    Container (..),+    newContainer,+    container_arn,+    container_accessLoggingEnabled,+    container_creationTime,+    container_endpoint,+    container_name,+    container_status,++    -- * CorsRule+    CorsRule (..),+    newCorsRule,+    corsRule_allowedMethods,+    corsRule_exposeHeaders,+    corsRule_maxAgeSeconds,+    corsRule_allowedOrigins,+    corsRule_allowedHeaders,++    -- * MetricPolicy+    MetricPolicy (..),+    newMetricPolicy,+    metricPolicy_metricPolicyRules,+    metricPolicy_containerLevelMetrics,++    -- * MetricPolicyRule+    MetricPolicyRule (..),+    newMetricPolicyRule,+    metricPolicyRule_objectGroup,+    metricPolicyRule_objectGroupName,++    -- * Tag+    Tag (..),+    newTag,+    tag_value,+    tag_key,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.MediaStore.Types.Container+import Amazonka.MediaStore.Types.ContainerLevelMetrics+import Amazonka.MediaStore.Types.ContainerStatus+import Amazonka.MediaStore.Types.CorsRule+import Amazonka.MediaStore.Types.MethodName+import Amazonka.MediaStore.Types.MetricPolicy+import Amazonka.MediaStore.Types.MetricPolicyRule+import Amazonka.MediaStore.Types.Tag+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2017-09-01@ of the Amazon Elemental MediaStore SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "MediaStore",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "mediastore",+      Core.signingName = "mediastore",+      Core.version = "2017-09-01",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "MediaStore",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | The container that you specified in the request already exists or is+-- being updated.+_ContainerInUseException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ContainerInUseException =+  Core._MatchServiceError+    defaultService+    "ContainerInUseException"++-- | The container that you specified in the request does not exist.+_ContainerNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ContainerNotFoundException =+  Core._MatchServiceError+    defaultService+    "ContainerNotFoundException"++-- | The CORS policy that you specified in the request does not exist.+_CorsPolicyNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CorsPolicyNotFoundException =+  Core._MatchServiceError+    defaultService+    "CorsPolicyNotFoundException"++-- | The service is temporarily unavailable.+_InternalServerError :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerError =+  Core._MatchServiceError+    defaultService+    "InternalServerError"++-- | A service limit has been exceeded.+_LimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LimitExceededException =+  Core._MatchServiceError+    defaultService+    "LimitExceededException"++-- | The policy that you specified in the request does not exist.+_PolicyNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_PolicyNotFoundException =+  Core._MatchServiceError+    defaultService+    "PolicyNotFoundException"

@@ -0,0 +1,185 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types.Container+-- 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.MediaStore.Types.Container where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types.ContainerStatus+import qualified Amazonka.Prelude as Prelude++-- | This section describes operations that you can perform on an AWS+-- Elemental MediaStore container.+--+-- /See:/ 'newContainer' smart constructor.+data Container = Container'+  { -- | The Amazon Resource Name (ARN) of the container. The ARN has the+    -- following format:+    --+    -- arn:aws:\<region>:\<account that owns this container>:container\/\<name+    -- of container>+    --+    -- For example: arn:aws:mediastore:us-west-2:111122223333:container\/movies+    arn :: Prelude.Maybe Prelude.Text,+    -- | The state of access logging on the container. This value is @false@ by+    -- default, indicating that AWS Elemental MediaStore does not send access+    -- logs to Amazon CloudWatch Logs. When you enable access logging on the+    -- container, MediaStore changes this value to @true@, indicating that the+    -- service delivers access logs for objects stored in that container to+    -- CloudWatch Logs.+    accessLoggingEnabled :: Prelude.Maybe Prelude.Bool,+    -- | Unix timestamp.+    creationTime :: Prelude.Maybe Data.POSIX,+    -- | The DNS endpoint of the container. Use the endpoint to identify the+    -- specific container when sending requests to the data plane. The service+    -- assigns this value when the container is created. Once the value has+    -- been assigned, it does not change.+    endpoint :: Prelude.Maybe Prelude.Text,+    -- | The name of the container.+    name :: Prelude.Maybe Prelude.Text,+    -- | The status of container creation or deletion. The status is one of the+    -- following: @CREATING@, @ACTIVE@, or @DELETING@. While the service is+    -- creating the container, the status is @CREATING@. When the endpoint is+    -- available, the status changes to @ACTIVE@.+    status :: Prelude.Maybe ContainerStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Container' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'container_arn' - The Amazon Resource Name (ARN) of the container. The ARN has the+-- following format:+--+-- arn:aws:\<region>:\<account that owns this container>:container\/\<name+-- of container>+--+-- For example: arn:aws:mediastore:us-west-2:111122223333:container\/movies+--+-- 'accessLoggingEnabled', 'container_accessLoggingEnabled' - The state of access logging on the container. This value is @false@ by+-- default, indicating that AWS Elemental MediaStore does not send access+-- logs to Amazon CloudWatch Logs. When you enable access logging on the+-- container, MediaStore changes this value to @true@, indicating that the+-- service delivers access logs for objects stored in that container to+-- CloudWatch Logs.+--+-- 'creationTime', 'container_creationTime' - Unix timestamp.+--+-- 'endpoint', 'container_endpoint' - The DNS endpoint of the container. Use the endpoint to identify the+-- specific container when sending requests to the data plane. The service+-- assigns this value when the container is created. Once the value has+-- been assigned, it does not change.+--+-- 'name', 'container_name' - The name of the container.+--+-- 'status', 'container_status' - The status of container creation or deletion. The status is one of the+-- following: @CREATING@, @ACTIVE@, or @DELETING@. While the service is+-- creating the container, the status is @CREATING@. When the endpoint is+-- available, the status changes to @ACTIVE@.+newContainer ::+  Container+newContainer =+  Container'+    { arn = Prelude.Nothing,+      accessLoggingEnabled = Prelude.Nothing,+      creationTime = Prelude.Nothing,+      endpoint = Prelude.Nothing,+      name = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the container. The ARN has the+-- following format:+--+-- arn:aws:\<region>:\<account that owns this container>:container\/\<name+-- of container>+--+-- For example: arn:aws:mediastore:us-west-2:111122223333:container\/movies+container_arn :: Lens.Lens' Container (Prelude.Maybe Prelude.Text)+container_arn = Lens.lens (\Container' {arn} -> arn) (\s@Container' {} a -> s {arn = a} :: Container)++-- | The state of access logging on the container. This value is @false@ by+-- default, indicating that AWS Elemental MediaStore does not send access+-- logs to Amazon CloudWatch Logs. When you enable access logging on the+-- container, MediaStore changes this value to @true@, indicating that the+-- service delivers access logs for objects stored in that container to+-- CloudWatch Logs.+container_accessLoggingEnabled :: Lens.Lens' Container (Prelude.Maybe Prelude.Bool)+container_accessLoggingEnabled = Lens.lens (\Container' {accessLoggingEnabled} -> accessLoggingEnabled) (\s@Container' {} a -> s {accessLoggingEnabled = a} :: Container)++-- | Unix timestamp.+container_creationTime :: Lens.Lens' Container (Prelude.Maybe Prelude.UTCTime)+container_creationTime = Lens.lens (\Container' {creationTime} -> creationTime) (\s@Container' {} a -> s {creationTime = a} :: Container) Prelude.. Lens.mapping Data._Time++-- | The DNS endpoint of the container. Use the endpoint to identify the+-- specific container when sending requests to the data plane. The service+-- assigns this value when the container is created. Once the value has+-- been assigned, it does not change.+container_endpoint :: Lens.Lens' Container (Prelude.Maybe Prelude.Text)+container_endpoint = Lens.lens (\Container' {endpoint} -> endpoint) (\s@Container' {} a -> s {endpoint = a} :: Container)++-- | The name of the container.+container_name :: Lens.Lens' Container (Prelude.Maybe Prelude.Text)+container_name = Lens.lens (\Container' {name} -> name) (\s@Container' {} a -> s {name = a} :: Container)++-- | The status of container creation or deletion. The status is one of the+-- following: @CREATING@, @ACTIVE@, or @DELETING@. While the service is+-- creating the container, the status is @CREATING@. When the endpoint is+-- available, the status changes to @ACTIVE@.+container_status :: Lens.Lens' Container (Prelude.Maybe ContainerStatus)+container_status = Lens.lens (\Container' {status} -> status) (\s@Container' {} a -> s {status = a} :: Container)++instance Data.FromJSON Container where+  parseJSON =+    Data.withObject+      "Container"+      ( \x ->+          Container'+            Prelude.<$> (x Data..:? "ARN")+            Prelude.<*> (x Data..:? "AccessLoggingEnabled")+            Prelude.<*> (x Data..:? "CreationTime")+            Prelude.<*> (x Data..:? "Endpoint")+            Prelude.<*> (x Data..:? "Name")+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable Container where+  hashWithSalt _salt Container' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` accessLoggingEnabled+      `Prelude.hashWithSalt` creationTime+      `Prelude.hashWithSalt` endpoint+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` status++instance Prelude.NFData Container where+  rnf Container' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf accessLoggingEnabled+      `Prelude.seq` Prelude.rnf creationTime+      `Prelude.seq` Prelude.rnf endpoint+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types.ContainerLevelMetrics+-- 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.MediaStore.Types.ContainerLevelMetrics+  ( ContainerLevelMetrics+      ( ..,+        ContainerLevelMetrics_DISABLED,+        ContainerLevelMetrics_ENABLED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ContainerLevelMetrics = ContainerLevelMetrics'+  { fromContainerLevelMetrics ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ContainerLevelMetrics_DISABLED :: ContainerLevelMetrics+pattern ContainerLevelMetrics_DISABLED = ContainerLevelMetrics' "DISABLED"++pattern ContainerLevelMetrics_ENABLED :: ContainerLevelMetrics+pattern ContainerLevelMetrics_ENABLED = ContainerLevelMetrics' "ENABLED"++{-# COMPLETE+  ContainerLevelMetrics_DISABLED,+  ContainerLevelMetrics_ENABLED,+  ContainerLevelMetrics'+  #-}

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types.ContainerStatus+-- 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.MediaStore.Types.ContainerStatus+  ( ContainerStatus+      ( ..,+        ContainerStatus_ACTIVE,+        ContainerStatus_CREATING,+        ContainerStatus_DELETING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ContainerStatus = ContainerStatus'+  { fromContainerStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ContainerStatus_ACTIVE :: ContainerStatus+pattern ContainerStatus_ACTIVE = ContainerStatus' "ACTIVE"++pattern ContainerStatus_CREATING :: ContainerStatus+pattern ContainerStatus_CREATING = ContainerStatus' "CREATING"++pattern ContainerStatus_DELETING :: ContainerStatus+pattern ContainerStatus_DELETING = ContainerStatus' "DELETING"++{-# COMPLETE+  ContainerStatus_ACTIVE,+  ContainerStatus_CREATING,+  ContainerStatus_DELETING,+  ContainerStatus'+  #-}

@@ -0,0 +1,216 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types.CorsRule+-- 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.MediaStore.Types.CorsRule where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types.MethodName+import qualified Amazonka.Prelude as Prelude++-- | A rule for a CORS policy. You can add up to 100 rules to a CORS policy.+-- If more than one rule applies, the service uses the first applicable+-- rule listed.+--+-- /See:/ 'newCorsRule' smart constructor.+data CorsRule = CorsRule'+  { -- | Identifies an HTTP method that the origin that is specified in the rule+    -- is allowed to execute.+    --+    -- Each CORS rule must contain at least one @AllowedMethods@ and one+    -- @AllowedOrigins@ element.+    allowedMethods :: Prelude.Maybe (Prelude.NonEmpty MethodName),+    -- | One or more headers in the response that you want users to be able to+    -- access from their applications (for example, from a JavaScript+    -- @XMLHttpRequest@ object).+    --+    -- This element is optional for each rule.+    exposeHeaders :: Prelude.Maybe [Prelude.Text],+    -- | The time in seconds that your browser caches the preflight response for+    -- the specified resource.+    --+    -- A CORS rule can have only one @MaxAgeSeconds@ element.+    maxAgeSeconds :: Prelude.Maybe Prelude.Natural,+    -- | One or more response headers that you want users to be able to access+    -- from their applications (for example, from a JavaScript @XMLHttpRequest@+    -- object).+    --+    -- Each CORS rule must have at least one @AllowedOrigins@ element. The+    -- string value can include only one wildcard character (*), for example,+    -- http:\/\/*.example.com. Additionally, you can specify only one wildcard+    -- character to allow cross-origin access for all origins.+    allowedOrigins :: Prelude.NonEmpty Prelude.Text,+    -- | Specifies which headers are allowed in a preflight @OPTIONS@ request+    -- through the @Access-Control-Request-Headers@ header. Each header name+    -- that is specified in @Access-Control-Request-Headers@ must have a+    -- corresponding entry in the rule. Only the headers that were requested+    -- are sent back.+    --+    -- This element can contain only one wildcard character (*).+    allowedHeaders :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CorsRule' 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:+--+-- 'allowedMethods', 'corsRule_allowedMethods' - Identifies an HTTP method that the origin that is specified in the rule+-- is allowed to execute.+--+-- Each CORS rule must contain at least one @AllowedMethods@ and one+-- @AllowedOrigins@ element.+--+-- 'exposeHeaders', 'corsRule_exposeHeaders' - One or more headers in the response that you want users to be able to+-- access from their applications (for example, from a JavaScript+-- @XMLHttpRequest@ object).+--+-- This element is optional for each rule.+--+-- 'maxAgeSeconds', 'corsRule_maxAgeSeconds' - The time in seconds that your browser caches the preflight response for+-- the specified resource.+--+-- A CORS rule can have only one @MaxAgeSeconds@ element.+--+-- 'allowedOrigins', 'corsRule_allowedOrigins' - One or more response headers that you want users to be able to access+-- from their applications (for example, from a JavaScript @XMLHttpRequest@+-- object).+--+-- Each CORS rule must have at least one @AllowedOrigins@ element. The+-- string value can include only one wildcard character (*), for example,+-- http:\/\/*.example.com. Additionally, you can specify only one wildcard+-- character to allow cross-origin access for all origins.+--+-- 'allowedHeaders', 'corsRule_allowedHeaders' - Specifies which headers are allowed in a preflight @OPTIONS@ request+-- through the @Access-Control-Request-Headers@ header. Each header name+-- that is specified in @Access-Control-Request-Headers@ must have a+-- corresponding entry in the rule. Only the headers that were requested+-- are sent back.+--+-- This element can contain only one wildcard character (*).+newCorsRule ::+  -- | 'allowedOrigins'+  Prelude.NonEmpty Prelude.Text ->+  CorsRule+newCorsRule pAllowedOrigins_ =+  CorsRule'+    { allowedMethods = Prelude.Nothing,+      exposeHeaders = Prelude.Nothing,+      maxAgeSeconds = Prelude.Nothing,+      allowedOrigins =+        Lens.coerced Lens.# pAllowedOrigins_,+      allowedHeaders = Prelude.mempty+    }++-- | Identifies an HTTP method that the origin that is specified in the rule+-- is allowed to execute.+--+-- Each CORS rule must contain at least one @AllowedMethods@ and one+-- @AllowedOrigins@ element.+corsRule_allowedMethods :: Lens.Lens' CorsRule (Prelude.Maybe (Prelude.NonEmpty MethodName))+corsRule_allowedMethods = Lens.lens (\CorsRule' {allowedMethods} -> allowedMethods) (\s@CorsRule' {} a -> s {allowedMethods = a} :: CorsRule) Prelude.. Lens.mapping Lens.coerced++-- | One or more headers in the response that you want users to be able to+-- access from their applications (for example, from a JavaScript+-- @XMLHttpRequest@ object).+--+-- This element is optional for each rule.+corsRule_exposeHeaders :: Lens.Lens' CorsRule (Prelude.Maybe [Prelude.Text])+corsRule_exposeHeaders = Lens.lens (\CorsRule' {exposeHeaders} -> exposeHeaders) (\s@CorsRule' {} a -> s {exposeHeaders = a} :: CorsRule) Prelude.. Lens.mapping Lens.coerced++-- | The time in seconds that your browser caches the preflight response for+-- the specified resource.+--+-- A CORS rule can have only one @MaxAgeSeconds@ element.+corsRule_maxAgeSeconds :: Lens.Lens' CorsRule (Prelude.Maybe Prelude.Natural)+corsRule_maxAgeSeconds = Lens.lens (\CorsRule' {maxAgeSeconds} -> maxAgeSeconds) (\s@CorsRule' {} a -> s {maxAgeSeconds = a} :: CorsRule)++-- | One or more response headers that you want users to be able to access+-- from their applications (for example, from a JavaScript @XMLHttpRequest@+-- object).+--+-- Each CORS rule must have at least one @AllowedOrigins@ element. The+-- string value can include only one wildcard character (*), for example,+-- http:\/\/*.example.com. Additionally, you can specify only one wildcard+-- character to allow cross-origin access for all origins.+corsRule_allowedOrigins :: Lens.Lens' CorsRule (Prelude.NonEmpty Prelude.Text)+corsRule_allowedOrigins = Lens.lens (\CorsRule' {allowedOrigins} -> allowedOrigins) (\s@CorsRule' {} a -> s {allowedOrigins = a} :: CorsRule) Prelude.. Lens.coerced++-- | Specifies which headers are allowed in a preflight @OPTIONS@ request+-- through the @Access-Control-Request-Headers@ header. Each header name+-- that is specified in @Access-Control-Request-Headers@ must have a+-- corresponding entry in the rule. Only the headers that were requested+-- are sent back.+--+-- This element can contain only one wildcard character (*).+corsRule_allowedHeaders :: Lens.Lens' CorsRule [Prelude.Text]+corsRule_allowedHeaders = Lens.lens (\CorsRule' {allowedHeaders} -> allowedHeaders) (\s@CorsRule' {} a -> s {allowedHeaders = a} :: CorsRule) Prelude.. Lens.coerced++instance Data.FromJSON CorsRule where+  parseJSON =+    Data.withObject+      "CorsRule"+      ( \x ->+          CorsRule'+            Prelude.<$> (x Data..:? "AllowedMethods")+            Prelude.<*> (x Data..:? "ExposeHeaders" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "MaxAgeSeconds")+            Prelude.<*> (x Data..: "AllowedOrigins")+            Prelude.<*> ( x+                            Data..:? "AllowedHeaders"+                            Data..!= Prelude.mempty+                        )+      )++instance Prelude.Hashable CorsRule where+  hashWithSalt _salt CorsRule' {..} =+    _salt+      `Prelude.hashWithSalt` allowedMethods+      `Prelude.hashWithSalt` exposeHeaders+      `Prelude.hashWithSalt` maxAgeSeconds+      `Prelude.hashWithSalt` allowedOrigins+      `Prelude.hashWithSalt` allowedHeaders++instance Prelude.NFData CorsRule where+  rnf CorsRule' {..} =+    Prelude.rnf allowedMethods+      `Prelude.seq` Prelude.rnf exposeHeaders+      `Prelude.seq` Prelude.rnf maxAgeSeconds+      `Prelude.seq` Prelude.rnf allowedOrigins+      `Prelude.seq` Prelude.rnf allowedHeaders++instance Data.ToJSON CorsRule where+  toJSON CorsRule' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AllowedMethods" Data..=)+              Prelude.<$> allowedMethods,+            ("ExposeHeaders" Data..=) Prelude.<$> exposeHeaders,+            ("MaxAgeSeconds" Data..=) Prelude.<$> maxAgeSeconds,+            Prelude.Just+              ("AllowedOrigins" Data..= allowedOrigins),+            Prelude.Just+              ("AllowedHeaders" Data..= allowedHeaders)+          ]+      )

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types.MethodName+-- 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.MediaStore.Types.MethodName+  ( MethodName+      ( ..,+        MethodName_DELETE,+        MethodName_GET,+        MethodName_HEAD,+        MethodName_PUT+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype MethodName = MethodName'+  { fromMethodName ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern MethodName_DELETE :: MethodName+pattern MethodName_DELETE = MethodName' "DELETE"++pattern MethodName_GET :: MethodName+pattern MethodName_GET = MethodName' "GET"++pattern MethodName_HEAD :: MethodName+pattern MethodName_HEAD = MethodName' "HEAD"++pattern MethodName_PUT :: MethodName+pattern MethodName_PUT = MethodName' "PUT"++{-# COMPLETE+  MethodName_DELETE,+  MethodName_GET,+  MethodName_HEAD,+  MethodName_PUT,+  MethodName'+  #-}

@@ -0,0 +1,124 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types.MetricPolicy+-- 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.MediaStore.Types.MetricPolicy where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types.ContainerLevelMetrics+import Amazonka.MediaStore.Types.MetricPolicyRule+import qualified Amazonka.Prelude as Prelude++-- | The metric policy that is associated with the container. A metric policy+-- allows AWS Elemental MediaStore to send metrics to Amazon CloudWatch. In+-- the policy, you must indicate whether you want MediaStore to send+-- container-level metrics. You can also include rules to define groups of+-- objects that you want MediaStore to send object-level metrics for.+--+-- To view examples of how to construct a metric policy for your use case,+-- see+-- <https://docs.aws.amazon.com/mediastore/latest/ug/policies-metric-examples.html Example Metric Policies>.+--+-- /See:/ 'newMetricPolicy' smart constructor.+data MetricPolicy = MetricPolicy'+  { -- | A parameter that holds an array of rules that enable metrics at the+    -- object level. This parameter is optional, but if you choose to include+    -- it, you must also include at least one rule. By default, you can include+    -- up to five rules. You can also+    -- <https://console.aws.amazon.com/servicequotas/home?region=us-east-1#!/services/mediastore/quotas request a quota increase>+    -- to allow up to 300 rules per policy.+    metricPolicyRules :: Prelude.Maybe (Prelude.NonEmpty MetricPolicyRule),+    -- | A setting to enable or disable metrics at the container level.+    containerLevelMetrics :: ContainerLevelMetrics+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MetricPolicy' 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:+--+-- 'metricPolicyRules', 'metricPolicy_metricPolicyRules' - A parameter that holds an array of rules that enable metrics at the+-- object level. This parameter is optional, but if you choose to include+-- it, you must also include at least one rule. By default, you can include+-- up to five rules. You can also+-- <https://console.aws.amazon.com/servicequotas/home?region=us-east-1#!/services/mediastore/quotas request a quota increase>+-- to allow up to 300 rules per policy.+--+-- 'containerLevelMetrics', 'metricPolicy_containerLevelMetrics' - A setting to enable or disable metrics at the container level.+newMetricPolicy ::+  -- | 'containerLevelMetrics'+  ContainerLevelMetrics ->+  MetricPolicy+newMetricPolicy pContainerLevelMetrics_ =+  MetricPolicy'+    { metricPolicyRules = Prelude.Nothing,+      containerLevelMetrics = pContainerLevelMetrics_+    }++-- | A parameter that holds an array of rules that enable metrics at the+-- object level. This parameter is optional, but if you choose to include+-- it, you must also include at least one rule. By default, you can include+-- up to five rules. You can also+-- <https://console.aws.amazon.com/servicequotas/home?region=us-east-1#!/services/mediastore/quotas request a quota increase>+-- to allow up to 300 rules per policy.+metricPolicy_metricPolicyRules :: Lens.Lens' MetricPolicy (Prelude.Maybe (Prelude.NonEmpty MetricPolicyRule))+metricPolicy_metricPolicyRules = Lens.lens (\MetricPolicy' {metricPolicyRules} -> metricPolicyRules) (\s@MetricPolicy' {} a -> s {metricPolicyRules = a} :: MetricPolicy) Prelude.. Lens.mapping Lens.coerced++-- | A setting to enable or disable metrics at the container level.+metricPolicy_containerLevelMetrics :: Lens.Lens' MetricPolicy ContainerLevelMetrics+metricPolicy_containerLevelMetrics = Lens.lens (\MetricPolicy' {containerLevelMetrics} -> containerLevelMetrics) (\s@MetricPolicy' {} a -> s {containerLevelMetrics = a} :: MetricPolicy)++instance Data.FromJSON MetricPolicy where+  parseJSON =+    Data.withObject+      "MetricPolicy"+      ( \x ->+          MetricPolicy'+            Prelude.<$> (x Data..:? "MetricPolicyRules")+            Prelude.<*> (x Data..: "ContainerLevelMetrics")+      )++instance Prelude.Hashable MetricPolicy where+  hashWithSalt _salt MetricPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` metricPolicyRules+      `Prelude.hashWithSalt` containerLevelMetrics++instance Prelude.NFData MetricPolicy where+  rnf MetricPolicy' {..} =+    Prelude.rnf metricPolicyRules+      `Prelude.seq` Prelude.rnf containerLevelMetrics++instance Data.ToJSON MetricPolicy where+  toJSON MetricPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MetricPolicyRules" Data..=)+              Prelude.<$> metricPolicyRules,+            Prelude.Just+              ( "ContainerLevelMetrics"+                  Data..= containerLevelMetrics+              )+          ]+      )

@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types.MetricPolicyRule+-- 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.MediaStore.Types.MetricPolicyRule where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A setting that enables metrics at the object level. Each rule contains+-- an object group and an object group name. If the policy includes the+-- MetricPolicyRules parameter, you must include at least one rule. Each+-- metric policy can include up to five rules by default. You can also+-- <https://console.aws.amazon.com/servicequotas/home?region=us-east-1#!/services/mediastore/quotas request a quota increase>+-- to allow up to 300 rules per policy.+--+-- /See:/ 'newMetricPolicyRule' smart constructor.+data MetricPolicyRule = MetricPolicyRule'+  { -- | A path or file name that defines which objects to include in the group.+    -- Wildcards (*) are acceptable.+    objectGroup :: Prelude.Text,+    -- | A name that allows you to refer to the object group.+    objectGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MetricPolicyRule' 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:+--+-- 'objectGroup', 'metricPolicyRule_objectGroup' - A path or file name that defines which objects to include in the group.+-- Wildcards (*) are acceptable.+--+-- 'objectGroupName', 'metricPolicyRule_objectGroupName' - A name that allows you to refer to the object group.+newMetricPolicyRule ::+  -- | 'objectGroup'+  Prelude.Text ->+  -- | 'objectGroupName'+  Prelude.Text ->+  MetricPolicyRule+newMetricPolicyRule pObjectGroup_ pObjectGroupName_ =+  MetricPolicyRule'+    { objectGroup = pObjectGroup_,+      objectGroupName = pObjectGroupName_+    }++-- | A path or file name that defines which objects to include in the group.+-- Wildcards (*) are acceptable.+metricPolicyRule_objectGroup :: Lens.Lens' MetricPolicyRule Prelude.Text+metricPolicyRule_objectGroup = Lens.lens (\MetricPolicyRule' {objectGroup} -> objectGroup) (\s@MetricPolicyRule' {} a -> s {objectGroup = a} :: MetricPolicyRule)++-- | A name that allows you to refer to the object group.+metricPolicyRule_objectGroupName :: Lens.Lens' MetricPolicyRule Prelude.Text+metricPolicyRule_objectGroupName = Lens.lens (\MetricPolicyRule' {objectGroupName} -> objectGroupName) (\s@MetricPolicyRule' {} a -> s {objectGroupName = a} :: MetricPolicyRule)++instance Data.FromJSON MetricPolicyRule where+  parseJSON =+    Data.withObject+      "MetricPolicyRule"+      ( \x ->+          MetricPolicyRule'+            Prelude.<$> (x Data..: "ObjectGroup")+            Prelude.<*> (x Data..: "ObjectGroupName")+      )++instance Prelude.Hashable MetricPolicyRule where+  hashWithSalt _salt MetricPolicyRule' {..} =+    _salt+      `Prelude.hashWithSalt` objectGroup+      `Prelude.hashWithSalt` objectGroupName++instance Prelude.NFData MetricPolicyRule where+  rnf MetricPolicyRule' {..} =+    Prelude.rnf objectGroup+      `Prelude.seq` Prelude.rnf objectGroupName++instance Data.ToJSON MetricPolicyRule where+  toJSON MetricPolicyRule' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ObjectGroup" Data..= objectGroup),+            Prelude.Just+              ("ObjectGroupName" Data..= objectGroupName)+          ]+      )

@@ -0,0 +1,110 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Types.Tag+-- 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.MediaStore.Types.Tag where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A collection of tags associated with a container. Each tag consists of a+-- key:value pair, which can be anything you define. Typically, the tag key+-- represents a category (such as \"environment\") and the tag value+-- represents a specific value within that category (such as \"test,\"+-- \"development,\" or \"production\"). You can add up to 50 tags to each+-- container. For more information about tagging, including naming and+-- usage conventions, see+-- <https://docs.aws.amazon.com/mediastore/latest/ug/tagging.html Tagging Resources in MediaStore>.+--+-- /See:/ 'newTag' smart constructor.+data Tag = Tag'+  { -- | Part of the key:value pair that defines a tag. You can use a tag value+    -- to describe a specific value within a category, such as \"companyA\" or+    -- \"companyB.\" Tag values are case-sensitive.+    value :: Prelude.Maybe Prelude.Text,+    -- | Part of the key:value pair that defines a tag. You can use a tag key to+    -- describe a category of information, such as \"customer.\" Tag keys are+    -- case-sensitive.+    key :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' 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:+--+-- 'value', 'tag_value' - Part of the key:value pair that defines a tag. You can use a tag value+-- to describe a specific value within a category, such as \"companyA\" or+-- \"companyB.\" Tag values are case-sensitive.+--+-- 'key', 'tag_key' - Part of the key:value pair that defines a tag. You can use a tag key to+-- describe a category of information, such as \"customer.\" Tag keys are+-- case-sensitive.+newTag ::+  -- | 'key'+  Prelude.Text ->+  Tag+newTag pKey_ =+  Tag' {value = Prelude.Nothing, key = pKey_}++-- | Part of the key:value pair that defines a tag. You can use a tag value+-- to describe a specific value within a category, such as \"companyA\" or+-- \"companyB.\" Tag values are case-sensitive.+tag_value :: Lens.Lens' Tag (Prelude.Maybe Prelude.Text)+tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag)++-- | Part of the key:value pair that defines a tag. You can use a tag key to+-- describe a category of information, such as \"customer.\" Tag keys are+-- case-sensitive.+tag_key :: Lens.Lens' Tag Prelude.Text+tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag)++instance Data.FromJSON Tag where+  parseJSON =+    Data.withObject+      "Tag"+      ( \x ->+          Tag'+            Prelude.<$> (x Data..:? "Value")+            Prelude.<*> (x Data..: "Key")+      )++instance Prelude.Hashable Tag where+  hashWithSalt _salt Tag' {..} =+    _salt+      `Prelude.hashWithSalt` value+      `Prelude.hashWithSalt` key++instance Prelude.NFData Tag where+  rnf Tag' {..} =+    Prelude.rnf value `Prelude.seq` Prelude.rnf key++instance Data.ToJSON Tag where+  toJSON Tag' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Value" Data..=) Prelude.<$> value,+            Prelude.Just ("Key" Data..= key)+          ]+      )

@@ -0,0 +1,184 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.UntagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes tags from the specified container. You can specify one or more+-- tags to remove.+module Amazonka.MediaStore.UntagResource+  ( -- * Creating a Request+    UntagResource (..),+    newUntagResource,++    -- * Request Lenses+    untagResource_resource,+    untagResource_tagKeys,++    -- * Destructuring the Response+    UntagResourceResponse (..),+    newUntagResourceResponse,++    -- * Response Lenses+    untagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUntagResource' smart constructor.+data UntagResource = UntagResource'+  { -- | The Amazon Resource Name (ARN) for the container.+    resource :: Prelude.Text,+    -- | A comma-separated list of keys for tags that you want to remove from the+    -- container. For example, if your container has two tags+    -- (customer:CompanyA and priority:High) and you want to remove one of the+    -- tags (priority:High), you specify the key for the tag that you want to+    -- remove (priority).+    tagKeys :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResource' 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:+--+-- 'resource', 'untagResource_resource' - The Amazon Resource Name (ARN) for the container.+--+-- 'tagKeys', 'untagResource_tagKeys' - A comma-separated list of keys for tags that you want to remove from the+-- container. For example, if your container has two tags+-- (customer:CompanyA and priority:High) and you want to remove one of the+-- tags (priority:High), you specify the key for the tag that you want to+-- remove (priority).+newUntagResource ::+  -- | 'resource'+  Prelude.Text ->+  UntagResource+newUntagResource pResource_ =+  UntagResource'+    { resource = pResource_,+      tagKeys = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) for the container.+untagResource_resource :: Lens.Lens' UntagResource Prelude.Text+untagResource_resource = Lens.lens (\UntagResource' {resource} -> resource) (\s@UntagResource' {} a -> s {resource = a} :: UntagResource)++-- | A comma-separated list of keys for tags that you want to remove from the+-- container. For example, if your container has two tags+-- (customer:CompanyA and priority:High) and you want to remove one of the+-- tags (priority:High), you specify the key for the tag that you want to+-- remove (priority).+untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text]+untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced++instance Core.AWSRequest UntagResource where+  type+    AWSResponse UntagResource =+      UntagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UntagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UntagResource where+  hashWithSalt _salt UntagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resource+      `Prelude.hashWithSalt` tagKeys++instance Prelude.NFData UntagResource where+  rnf UntagResource' {..} =+    Prelude.rnf resource+      `Prelude.seq` Prelude.rnf tagKeys++instance Data.ToHeaders UntagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MediaStore_20170901.UntagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UntagResource where+  toJSON UntagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Resource" Data..= resource),+            Prelude.Just ("TagKeys" Data..= tagKeys)+          ]+      )++instance Data.ToPath UntagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery UntagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUntagResourceResponse' smart constructor.+data UntagResourceResponse = UntagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResourceResponse' 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', 'untagResourceResponse_httpStatus' - The response's http status code.+newUntagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UntagResourceResponse+newUntagResourceResponse pHttpStatus_ =+  UntagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+untagResourceResponse_httpStatus :: Lens.Lens' UntagResourceResponse Prelude.Int+untagResourceResponse_httpStatus = Lens.lens (\UntagResourceResponse' {httpStatus} -> httpStatus) (\s@UntagResourceResponse' {} a -> s {httpStatus = a} :: UntagResourceResponse)++instance Prelude.NFData UntagResourceResponse where+  rnf UntagResourceResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,24 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MediaStore.Waiters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.MediaStore.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStore.Lens+import Amazonka.MediaStore.Types+import qualified Amazonka.Prelude as Prelude

@@ -1,147 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MediaStore--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ An AWS Elemental MediaStore container is a namespace that holds folders and objects. You use a container endpoint to create, read, and delete objects.-------module Network.AWS.MediaStore-    (-    -- * Service Configuration-      mediaStore--    -- * Errors-    -- $errors--    -- ** PolicyNotFoundException-    , _PolicyNotFoundException--    -- ** CORSPolicyNotFoundException-    , _CORSPolicyNotFoundException--    -- ** ContainerInUseException-    , _ContainerInUseException--    -- ** InternalServerError-    , _InternalServerError--    -- ** ContainerNotFoundException-    , _ContainerNotFoundException--    -- ** LimitExceededException-    , _LimitExceededException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** CreateContainer-    , module Network.AWS.MediaStore.CreateContainer--    -- ** ListContainers-    , module Network.AWS.MediaStore.ListContainers--    -- ** DeleteContainer-    , module Network.AWS.MediaStore.DeleteContainer--    -- ** PutCORSPolicy-    , module Network.AWS.MediaStore.PutCORSPolicy--    -- ** DeleteCORSPolicy-    , module Network.AWS.MediaStore.DeleteCORSPolicy--    -- ** DescribeContainer-    , module Network.AWS.MediaStore.DescribeContainer--    -- ** GetCORSPolicy-    , module Network.AWS.MediaStore.GetCORSPolicy--    -- ** DeleteContainerPolicy-    , module Network.AWS.MediaStore.DeleteContainerPolicy--    -- ** PutContainerPolicy-    , module Network.AWS.MediaStore.PutContainerPolicy--    -- ** GetContainerPolicy-    , module Network.AWS.MediaStore.GetContainerPolicy--    -- * Types--    -- ** ContainerStatus-    , ContainerStatus (..)--    -- ** MethodName-    , MethodName (..)--    -- ** CORSRule-    , CORSRule-    , corsRule-    , crAllowedMethods-    , crMaxAgeSeconds-    , crAllowedHeaders-    , crAllowedOrigins-    , crExposeHeaders--    -- ** Container-    , Container-    , container-    , cCreationTime-    , cStatus-    , cARN-    , cName-    , cEndpoint-    ) where--import Network.AWS.MediaStore.CreateContainer-import Network.AWS.MediaStore.DeleteContainer-import Network.AWS.MediaStore.DeleteContainerPolicy-import Network.AWS.MediaStore.DeleteCORSPolicy-import Network.AWS.MediaStore.DescribeContainer-import Network.AWS.MediaStore.GetContainerPolicy-import Network.AWS.MediaStore.GetCORSPolicy-import Network.AWS.MediaStore.ListContainers-import Network.AWS.MediaStore.PutContainerPolicy-import Network.AWS.MediaStore.PutCORSPolicy-import Network.AWS.MediaStore.Types-import Network.AWS.MediaStore.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 'MediaStore'.--}--{- $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.--}

@@ -1,135 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MediaStore.CreateContainer--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a storage container to hold objects. A container is similar to a bucket in the Amazon S3 service.-------module Network.AWS.MediaStore.CreateContainer-    (-    -- * Creating a Request-      createContainer-    , CreateContainer-    -- * Request Lenses-    , ccContainerName--    -- * Destructuring the Response-    , createContainerResponse-    , CreateContainerResponse-    -- * Response Lenses-    , ccrsResponseStatus-    , ccrsContainer-    ) where--import Network.AWS.Lens-import Network.AWS.MediaStore.Types-import Network.AWS.MediaStore.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'createContainer' smart constructor.-newtype CreateContainer = CreateContainer'-  { _ccContainerName :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateContainer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccContainerName' - The name for the container. The name must be from 1 to 255 characters. Container names must be unique to your AWS account within a specific region. As an example, you could create a container named @movies@ in every region, as long as you don’t have an existing container with that name.-createContainer-    :: Text -- ^ 'ccContainerName'-    -> CreateContainer-createContainer pContainerName_ =-  CreateContainer' {_ccContainerName = pContainerName_}----- | The name for the container. The name must be from 1 to 255 characters. Container names must be unique to your AWS account within a specific region. As an example, you could create a container named @movies@ in every region, as long as you don’t have an existing container with that name.-ccContainerName :: Lens' CreateContainer Text-ccContainerName = lens _ccContainerName (\ s a -> s{_ccContainerName = a})--instance AWSRequest CreateContainer where-        type Rs CreateContainer = CreateContainerResponse-        request = postJSON mediaStore-        response-          = receiveJSON-              (\ s h x ->-                 CreateContainerResponse' <$>-                   (pure (fromEnum s)) <*> (x .:> "Container"))--instance Hashable CreateContainer where--instance NFData CreateContainer where--instance ToHeaders CreateContainer where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("MediaStore_20170901.CreateContainer" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateContainer where-        toJSON CreateContainer'{..}-          = object-              (catMaybes-                 [Just ("ContainerName" .= _ccContainerName)])--instance ToPath CreateContainer where-        toPath = const "/"--instance ToQuery CreateContainer where-        toQuery = const mempty---- | /See:/ 'createContainerResponse' smart constructor.-data CreateContainerResponse = CreateContainerResponse'-  { _ccrsResponseStatus :: !Int-  , _ccrsContainer      :: !Container-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateContainerResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccrsResponseStatus' - -- | The response status code.------ * 'ccrsContainer' - ContainerARN: The Amazon Resource Name (ARN) of the newly created container. The ARN has the following format: arn:aws:<region>:<account that owns this container>:container/<name of container>. For example: arn:aws:mediastore:us-west-2:111122223333:container/movies  ContainerName: The container name as specified in the request. CreationTime: Unix time stamp. Status: The status of container creation or deletion. The status is one of the following: @CREATING@ , @ACTIVE@ , or @DELETING@ . While the service is creating the container, the status is @CREATING@ . When an endpoint is available, the status changes to @ACTIVE@ . The return value does not include the container's endpoint. To make downstream requests, you must obtain this value by using 'DescribeContainer' or 'ListContainers' .-createContainerResponse-    :: Int -- ^ 'ccrsResponseStatus'-    -> Container -- ^ 'ccrsContainer'-    -> CreateContainerResponse-createContainerResponse pResponseStatus_ pContainer_ =-  CreateContainerResponse'-    {_ccrsResponseStatus = pResponseStatus_, _ccrsContainer = pContainer_}----- | -- | The response status code.-ccrsResponseStatus :: Lens' CreateContainerResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})---- | ContainerARN: The Amazon Resource Name (ARN) of the newly created container. The ARN has the following format: arn:aws:<region>:<account that owns this container>:container/<name of container>. For example: arn:aws:mediastore:us-west-2:111122223333:container/movies  ContainerName: The container name as specified in the request. CreationTime: Unix time stamp. Status: The status of container creation or deletion. The status is one of the following: @CREATING@ , @ACTIVE@ , or @DELETING@ . While the service is creating the container, the status is @CREATING@ . When an endpoint is available, the status changes to @ACTIVE@ . The return value does not include the container's endpoint. To make downstream requests, you must obtain this value by using 'DescribeContainer' or 'ListContainers' .-ccrsContainer :: Lens' CreateContainerResponse Container-ccrsContainer = lens _ccrsContainer (\ s a -> s{_ccrsContainer = a})--instance NFData CreateContainerResponse where