amazonka-mediastore-dataplane 1.6.1 → 2.0

raw patch · 33 files changed

+2277/−1469 lines, 33 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-dataplane.cabal +81/−79
• gen/Amazonka/MediaStoreData.hs +123/−0
• gen/Amazonka/MediaStoreData/DeleteObject.hs +135/−0
• gen/Amazonka/MediaStoreData/DescribeObject.hs +216/−0
• gen/Amazonka/MediaStoreData/GetObject.hs +333/−0
• gen/Amazonka/MediaStoreData/Lens.hs +79/−0
• gen/Amazonka/MediaStoreData/ListItems.hs +271/−0
• gen/Amazonka/MediaStoreData/PutObject.hs +353/−0
• gen/Amazonka/MediaStoreData/Types.hs +155/−0
• gen/Amazonka/MediaStoreData/Types/Item.hs +133/−0
• gen/Amazonka/MediaStoreData/Types/ItemType.hs +71/−0
• gen/Amazonka/MediaStoreData/Types/StorageClass.hs +66/−0
• gen/Amazonka/MediaStoreData/Types/UploadAvailability.hs +71/−0
• gen/Amazonka/MediaStoreData/Waiters.hs +24/−0
• gen/Network/AWS/MediaStoreData.hs +0/−113
• gen/Network/AWS/MediaStoreData/DeleteObject.hs +0/−111
• gen/Network/AWS/MediaStoreData/DescribeObject.hs +0/−163
• gen/Network/AWS/MediaStoreData/GetObject.hs +0/−190
• gen/Network/AWS/MediaStoreData/ListItems.hs +0/−152
• gen/Network/AWS/MediaStoreData/PutObject.hs +0/−185
• gen/Network/AWS/MediaStoreData/Types.hs +0/−116
• gen/Network/AWS/MediaStoreData/Types/Product.hs +0/−104
• gen/Network/AWS/MediaStoreData/Types/Sum.hs +0/−74
• gen/Network/AWS/MediaStoreData/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/MediaStoreData.hs +0/−117
• test/Test/AWS/MediaStoreData.hs +0/−20
• test/Test/AWS/MediaStoreData/Internal.hs +0/−9
• test/Test/Amazonka/Gen/MediaStoreData.hs +124/−0
• test/Test/Amazonka/MediaStoreData.hs +20/−0
• test/Test/Amazonka/MediaStoreData/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.MediaStoreData](http://hackage.haskell.org/package/amazonka-mediastore-dataplane/docs/Network-AWS-MediaStoreData.html)+See [Amazonka.MediaStoreData](http://hackage.haskell.org/package/amazonka-mediastore-dataplane/docs/Amazonka-MediaStoreData.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

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

@@ -1,90 +1,92 @@-name:                  amazonka-mediastore-dataplane-version:               1.6.1-synopsis:              Amazon Elemental MediaStore Data Plane 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-dataplane+version:            2.0+synopsis:           Amazon Elemental MediaStore Data Plane 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.MediaStoreData" 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.MediaStoreData.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.MediaStoreData" 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-dataplane+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-mediastore-dataplane  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.MediaStoreData-        , Network.AWS.MediaStoreData.DeleteObject-        , Network.AWS.MediaStoreData.DescribeObject-        , Network.AWS.MediaStoreData.GetObject-        , Network.AWS.MediaStoreData.ListItems-        , Network.AWS.MediaStoreData.PutObject-        , Network.AWS.MediaStoreData.Types-        , Network.AWS.MediaStoreData.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.MediaStoreData.Types.Product-        , Network.AWS.MediaStoreData.Types.Sum+  exposed-modules:+    Amazonka.MediaStoreData+    Amazonka.MediaStoreData.DeleteObject+    Amazonka.MediaStoreData.DescribeObject+    Amazonka.MediaStoreData.GetObject+    Amazonka.MediaStoreData.Lens+    Amazonka.MediaStoreData.ListItems+    Amazonka.MediaStoreData.PutObject+    Amazonka.MediaStoreData.Types+    Amazonka.MediaStoreData.Types.Item+    Amazonka.MediaStoreData.Types.ItemType+    Amazonka.MediaStoreData.Types.StorageClass+    Amazonka.MediaStoreData.Types.UploadAvailability+    Amazonka.MediaStoreData.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-dataplane-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.MediaStoreData-        , Test.AWS.Gen.MediaStoreData-        , Test.AWS.MediaStoreData.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.MediaStoreData+    Test.Amazonka.MediaStoreData+    Test.Amazonka.MediaStoreData.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-mediastore-dataplane-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core                  >=2.0 && <2.1+    , amazonka-mediastore-dataplane+    , amazonka-test                  >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,123 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.MediaStoreData+-- 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 asset is an object, similar to an object in+-- the Amazon S3 service. Objects are the fundamental entities that are+-- stored in AWS Elemental MediaStore.+module Amazonka.MediaStoreData+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ContainerNotFoundException+    _ContainerNotFoundException,++    -- ** InternalServerError+    _InternalServerError,++    -- ** ObjectNotFoundException+    _ObjectNotFoundException,++    -- ** RequestedRangeNotSatisfiableException+    _RequestedRangeNotSatisfiableException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DeleteObject+    DeleteObject (DeleteObject'),+    newDeleteObject,+    DeleteObjectResponse (DeleteObjectResponse'),+    newDeleteObjectResponse,++    -- ** DescribeObject+    DescribeObject (DescribeObject'),+    newDescribeObject,+    DescribeObjectResponse (DescribeObjectResponse'),+    newDescribeObjectResponse,++    -- ** GetObject+    GetObject (GetObject'),+    newGetObject,+    GetObjectResponse (GetObjectResponse'),+    newGetObjectResponse,++    -- ** ListItems (Paginated)+    ListItems (ListItems'),+    newListItems,+    ListItemsResponse (ListItemsResponse'),+    newListItemsResponse,++    -- ** PutObject+    PutObject (PutObject'),+    newPutObject,+    PutObjectResponse (PutObjectResponse'),+    newPutObjectResponse,++    -- * Types++    -- ** ItemType+    ItemType (..),++    -- ** StorageClass+    StorageClass (..),++    -- ** UploadAvailability+    UploadAvailability (..),++    -- ** Item+    Item (Item'),+    newItem,+  )+where++import Amazonka.MediaStoreData.DeleteObject+import Amazonka.MediaStoreData.DescribeObject+import Amazonka.MediaStoreData.GetObject+import Amazonka.MediaStoreData.Lens+import Amazonka.MediaStoreData.ListItems+import Amazonka.MediaStoreData.PutObject+import Amazonka.MediaStoreData.Types+import Amazonka.MediaStoreData.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 'MediaStoreData'.++-- $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,135 @@+{-# 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.MediaStoreData.DeleteObject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an object at the specified path.+module Amazonka.MediaStoreData.DeleteObject+  ( -- * Creating a Request+    DeleteObject (..),+    newDeleteObject,++    -- * Request Lenses+    deleteObject_path,++    -- * Destructuring the Response+    DeleteObjectResponse (..),+    newDeleteObjectResponse,++    -- * Response Lenses+    deleteObjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStoreData.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteObject' smart constructor.+data DeleteObject = DeleteObject'+  { -- | The path (including the file name) where the object is stored in the+    -- container. Format: \<folder name>\/\<folder name>\/\<file name>+    path :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteObject' 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:+--+-- 'path', 'deleteObject_path' - The path (including the file name) where the object is stored in the+-- container. Format: \<folder name>\/\<folder name>\/\<file name>+newDeleteObject ::+  -- | 'path'+  Prelude.Text ->+  DeleteObject+newDeleteObject pPath_ = DeleteObject' {path = pPath_}++-- | The path (including the file name) where the object is stored in the+-- container. Format: \<folder name>\/\<folder name>\/\<file name>+deleteObject_path :: Lens.Lens' DeleteObject Prelude.Text+deleteObject_path = Lens.lens (\DeleteObject' {path} -> path) (\s@DeleteObject' {} a -> s {path = a} :: DeleteObject)++instance Core.AWSRequest DeleteObject where+  type AWSResponse DeleteObject = DeleteObjectResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteObjectResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteObject where+  hashWithSalt _salt DeleteObject' {..} =+    _salt `Prelude.hashWithSalt` path++instance Prelude.NFData DeleteObject where+  rnf DeleteObject' {..} = Prelude.rnf path++instance Data.ToHeaders DeleteObject where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteObject where+  toPath DeleteObject' {..} =+    Prelude.mconcat ["/", Data.toBS path]++instance Data.ToQuery DeleteObject where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteObjectResponse' smart constructor.+data DeleteObjectResponse = DeleteObjectResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteObjectResponse' 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', 'deleteObjectResponse_httpStatus' - The response's http status code.+newDeleteObjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteObjectResponse+newDeleteObjectResponse pHttpStatus_ =+  DeleteObjectResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteObjectResponse_httpStatus :: Lens.Lens' DeleteObjectResponse Prelude.Int+deleteObjectResponse_httpStatus = Lens.lens (\DeleteObjectResponse' {httpStatus} -> httpStatus) (\s@DeleteObjectResponse' {} a -> s {httpStatus = a} :: DeleteObjectResponse)++instance Prelude.NFData DeleteObjectResponse where+  rnf DeleteObjectResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,216 @@+{-# 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.MediaStoreData.DescribeObject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the headers for an object at the specified path.+module Amazonka.MediaStoreData.DescribeObject+  ( -- * Creating a Request+    DescribeObject (..),+    newDescribeObject,++    -- * Request Lenses+    describeObject_path,++    -- * Destructuring the Response+    DescribeObjectResponse (..),+    newDescribeObjectResponse,++    -- * Response Lenses+    describeObjectResponse_cacheControl,+    describeObjectResponse_contentLength,+    describeObjectResponse_contentType,+    describeObjectResponse_eTag,+    describeObjectResponse_lastModified,+    describeObjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStoreData.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeObject' smart constructor.+data DescribeObject = DescribeObject'+  { -- | The path (including the file name) where the object is stored in the+    -- container. Format: \<folder name>\/\<folder name>\/\<file name>+    path :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeObject' 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:+--+-- 'path', 'describeObject_path' - The path (including the file name) where the object is stored in the+-- container. Format: \<folder name>\/\<folder name>\/\<file name>+newDescribeObject ::+  -- | 'path'+  Prelude.Text ->+  DescribeObject+newDescribeObject pPath_ =+  DescribeObject' {path = pPath_}++-- | The path (including the file name) where the object is stored in the+-- container. Format: \<folder name>\/\<folder name>\/\<file name>+describeObject_path :: Lens.Lens' DescribeObject Prelude.Text+describeObject_path = Lens.lens (\DescribeObject' {path} -> path) (\s@DescribeObject' {} a -> s {path = a} :: DescribeObject)++instance Core.AWSRequest DescribeObject where+  type+    AWSResponse DescribeObject =+      DescribeObjectResponse+  request overrides =+    Request.head' (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DescribeObjectResponse'+            Prelude.<$> (h Data..#? "Cache-Control")+            Prelude.<*> (h Data..#? "Content-Length")+            Prelude.<*> (h Data..#? "Content-Type")+            Prelude.<*> (h Data..#? "ETag")+            Prelude.<*> (h Data..#? "Last-Modified")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeObject where+  hashWithSalt _salt DescribeObject' {..} =+    _salt `Prelude.hashWithSalt` path++instance Prelude.NFData DescribeObject where+  rnf DescribeObject' {..} = Prelude.rnf path++instance Data.ToHeaders DescribeObject where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeObject where+  toPath DescribeObject' {..} =+    Prelude.mconcat ["/", Data.toBS path]++instance Data.ToQuery DescribeObject where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeObjectResponse' smart constructor.+data DescribeObjectResponse = DescribeObjectResponse'+  { -- | An optional @CacheControl@ header that allows the caller to control the+    -- object\'s cache behavior. Headers can be passed in as specified in the+    -- HTTP at+    -- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+    --+    -- Headers with a custom user-defined value are also accepted.+    cacheControl :: Prelude.Maybe Prelude.Text,+    -- | The length of the object in bytes.+    contentLength :: Prelude.Maybe Prelude.Natural,+    -- | The content type of the object.+    contentType :: Prelude.Maybe Prelude.Text,+    -- | The ETag that represents a unique instance of the object.+    eTag :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the object was last modified.+    lastModified :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeObjectResponse' 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:+--+-- 'cacheControl', 'describeObjectResponse_cacheControl' - An optional @CacheControl@ header that allows the caller to control the+-- object\'s cache behavior. Headers can be passed in as specified in the+-- HTTP at+-- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+--+-- Headers with a custom user-defined value are also accepted.+--+-- 'contentLength', 'describeObjectResponse_contentLength' - The length of the object in bytes.+--+-- 'contentType', 'describeObjectResponse_contentType' - The content type of the object.+--+-- 'eTag', 'describeObjectResponse_eTag' - The ETag that represents a unique instance of the object.+--+-- 'lastModified', 'describeObjectResponse_lastModified' - The date and time that the object was last modified.+--+-- 'httpStatus', 'describeObjectResponse_httpStatus' - The response's http status code.+newDescribeObjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeObjectResponse+newDescribeObjectResponse pHttpStatus_ =+  DescribeObjectResponse'+    { cacheControl =+        Prelude.Nothing,+      contentLength = Prelude.Nothing,+      contentType = Prelude.Nothing,+      eTag = Prelude.Nothing,+      lastModified = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An optional @CacheControl@ header that allows the caller to control the+-- object\'s cache behavior. Headers can be passed in as specified in the+-- HTTP at+-- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+--+-- Headers with a custom user-defined value are also accepted.+describeObjectResponse_cacheControl :: Lens.Lens' DescribeObjectResponse (Prelude.Maybe Prelude.Text)+describeObjectResponse_cacheControl = Lens.lens (\DescribeObjectResponse' {cacheControl} -> cacheControl) (\s@DescribeObjectResponse' {} a -> s {cacheControl = a} :: DescribeObjectResponse)++-- | The length of the object in bytes.+describeObjectResponse_contentLength :: Lens.Lens' DescribeObjectResponse (Prelude.Maybe Prelude.Natural)+describeObjectResponse_contentLength = Lens.lens (\DescribeObjectResponse' {contentLength} -> contentLength) (\s@DescribeObjectResponse' {} a -> s {contentLength = a} :: DescribeObjectResponse)++-- | The content type of the object.+describeObjectResponse_contentType :: Lens.Lens' DescribeObjectResponse (Prelude.Maybe Prelude.Text)+describeObjectResponse_contentType = Lens.lens (\DescribeObjectResponse' {contentType} -> contentType) (\s@DescribeObjectResponse' {} a -> s {contentType = a} :: DescribeObjectResponse)++-- | The ETag that represents a unique instance of the object.+describeObjectResponse_eTag :: Lens.Lens' DescribeObjectResponse (Prelude.Maybe Prelude.Text)+describeObjectResponse_eTag = Lens.lens (\DescribeObjectResponse' {eTag} -> eTag) (\s@DescribeObjectResponse' {} a -> s {eTag = a} :: DescribeObjectResponse)++-- | The date and time that the object was last modified.+describeObjectResponse_lastModified :: Lens.Lens' DescribeObjectResponse (Prelude.Maybe Prelude.UTCTime)+describeObjectResponse_lastModified = Lens.lens (\DescribeObjectResponse' {lastModified} -> lastModified) (\s@DescribeObjectResponse' {} a -> s {lastModified = a} :: DescribeObjectResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describeObjectResponse_httpStatus :: Lens.Lens' DescribeObjectResponse Prelude.Int+describeObjectResponse_httpStatus = Lens.lens (\DescribeObjectResponse' {httpStatus} -> httpStatus) (\s@DescribeObjectResponse' {} a -> s {httpStatus = a} :: DescribeObjectResponse)++instance Prelude.NFData DescribeObjectResponse where+  rnf DescribeObjectResponse' {..} =+    Prelude.rnf cacheControl+      `Prelude.seq` Prelude.rnf contentLength+      `Prelude.seq` Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf eTag+      `Prelude.seq` Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,333 @@+{-# 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.MediaStoreData.GetObject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Downloads the object at the specified path. If the object’s upload+-- availability is set to @streaming@, AWS Elemental MediaStore downloads+-- the object even if it’s still uploading the object.+module Amazonka.MediaStoreData.GetObject+  ( -- * Creating a Request+    GetObject (..),+    newGetObject,++    -- * Request Lenses+    getObject_range,+    getObject_path,++    -- * Destructuring the Response+    GetObjectResponse (..),+    newGetObjectResponse,++    -- * Response Lenses+    getObjectResponse_cacheControl,+    getObjectResponse_contentLength,+    getObjectResponse_contentRange,+    getObjectResponse_contentType,+    getObjectResponse_eTag,+    getObjectResponse_lastModified,+    getObjectResponse_statusCode,+    getObjectResponse_body,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStoreData.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetObject' smart constructor.+data GetObject = GetObject'+  { -- | The range bytes of an object to retrieve. For more information about the+    -- @Range@ header, see+    -- <http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.35>. AWS+    -- Elemental MediaStore ignores this header for partially uploaded objects+    -- that have streaming upload availability.+    range :: Prelude.Maybe Prelude.Text,+    -- | The path (including the file name) where the object is stored in the+    -- container. Format: \<folder name>\/\<folder name>\/\<file name>+    --+    -- For example, to upload the file @mlaw.avi@ to the folder path+    -- @premium\\canada@ in the container @movies@, enter the path+    -- @premium\/canada\/mlaw.avi@.+    --+    -- Do not include the container name in this path.+    --+    -- If the path includes any folders that don\'t exist yet, the service+    -- creates them. For example, suppose you have an existing @premium\/usa@+    -- subfolder. If you specify @premium\/canada@, the service creates a+    -- @canada@ subfolder in the @premium@ folder. You then have two+    -- subfolders, @usa@ and @canada@, in the @premium@ folder.+    --+    -- There is no correlation between the path to the source and the path+    -- (folders) in the container in AWS Elemental MediaStore.+    --+    -- For more information about folders and how they exist in a container,+    -- see the+    -- <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide>.+    --+    -- The file name is the name that is assigned to the file that you upload.+    -- The file can have the same name inside and outside of AWS Elemental+    -- MediaStore, or it can have the same name. The file name can include or+    -- omit an extension.+    path :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetObject' 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:+--+-- 'range', 'getObject_range' - The range bytes of an object to retrieve. For more information about the+-- @Range@ header, see+-- <http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.35>. AWS+-- Elemental MediaStore ignores this header for partially uploaded objects+-- that have streaming upload availability.+--+-- 'path', 'getObject_path' - The path (including the file name) where the object is stored in the+-- container. Format: \<folder name>\/\<folder name>\/\<file name>+--+-- For example, to upload the file @mlaw.avi@ to the folder path+-- @premium\\canada@ in the container @movies@, enter the path+-- @premium\/canada\/mlaw.avi@.+--+-- Do not include the container name in this path.+--+-- If the path includes any folders that don\'t exist yet, the service+-- creates them. For example, suppose you have an existing @premium\/usa@+-- subfolder. If you specify @premium\/canada@, the service creates a+-- @canada@ subfolder in the @premium@ folder. You then have two+-- subfolders, @usa@ and @canada@, in the @premium@ folder.+--+-- There is no correlation between the path to the source and the path+-- (folders) in the container in AWS Elemental MediaStore.+--+-- For more information about folders and how they exist in a container,+-- see the+-- <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide>.+--+-- The file name is the name that is assigned to the file that you upload.+-- The file can have the same name inside and outside of AWS Elemental+-- MediaStore, or it can have the same name. The file name can include or+-- omit an extension.+newGetObject ::+  -- | 'path'+  Prelude.Text ->+  GetObject+newGetObject pPath_ =+  GetObject' {range = Prelude.Nothing, path = pPath_}++-- | The range bytes of an object to retrieve. For more information about the+-- @Range@ header, see+-- <http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.35>. AWS+-- Elemental MediaStore ignores this header for partially uploaded objects+-- that have streaming upload availability.+getObject_range :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)+getObject_range = Lens.lens (\GetObject' {range} -> range) (\s@GetObject' {} a -> s {range = a} :: GetObject)++-- | The path (including the file name) where the object is stored in the+-- container. Format: \<folder name>\/\<folder name>\/\<file name>+--+-- For example, to upload the file @mlaw.avi@ to the folder path+-- @premium\\canada@ in the container @movies@, enter the path+-- @premium\/canada\/mlaw.avi@.+--+-- Do not include the container name in this path.+--+-- If the path includes any folders that don\'t exist yet, the service+-- creates them. For example, suppose you have an existing @premium\/usa@+-- subfolder. If you specify @premium\/canada@, the service creates a+-- @canada@ subfolder in the @premium@ folder. You then have two+-- subfolders, @usa@ and @canada@, in the @premium@ folder.+--+-- There is no correlation between the path to the source and the path+-- (folders) in the container in AWS Elemental MediaStore.+--+-- For more information about folders and how they exist in a container,+-- see the+-- <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide>.+--+-- The file name is the name that is assigned to the file that you upload.+-- The file can have the same name inside and outside of AWS Elemental+-- MediaStore, or it can have the same name. The file name can include or+-- omit an extension.+getObject_path :: Lens.Lens' GetObject Prelude.Text+getObject_path = Lens.lens (\GetObject' {path} -> path) (\s@GetObject' {} a -> s {path = a} :: GetObject)++instance Core.AWSRequest GetObject where+  type AWSResponse GetObject = GetObjectResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveBody+      ( \s h x ->+          GetObjectResponse'+            Prelude.<$> (h Data..#? "Cache-Control")+            Prelude.<*> (h Data..#? "Content-Length")+            Prelude.<*> (h Data..#? "Content-Range")+            Prelude.<*> (h Data..#? "Content-Type")+            Prelude.<*> (h Data..#? "ETag")+            Prelude.<*> (h Data..#? "Last-Modified")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (Prelude.pure x)+      )++instance Prelude.Hashable GetObject where+  hashWithSalt _salt GetObject' {..} =+    _salt+      `Prelude.hashWithSalt` range+      `Prelude.hashWithSalt` path++instance Prelude.NFData GetObject where+  rnf GetObject' {..} =+    Prelude.rnf range `Prelude.seq` Prelude.rnf path++instance Data.ToHeaders GetObject where+  toHeaders GetObject' {..} =+    Prelude.mconcat ["Range" Data.=# range]++instance Data.ToPath GetObject where+  toPath GetObject' {..} =+    Prelude.mconcat ["/", Data.toBS path]++instance Data.ToQuery GetObject where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetObjectResponse' smart constructor.+data GetObjectResponse = GetObjectResponse'+  { -- | An optional @CacheControl@ header that allows the caller to control the+    -- object\'s cache behavior. Headers can be passed in as specified in the+    -- HTTP spec at+    -- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+    --+    -- Headers with a custom user-defined value are also accepted.+    cacheControl :: Prelude.Maybe Prelude.Text,+    -- | The length of the object in bytes.+    contentLength :: Prelude.Maybe Prelude.Natural,+    -- | The range of bytes to retrieve.+    contentRange :: Prelude.Maybe Prelude.Text,+    -- | The content type of the object.+    contentType :: Prelude.Maybe Prelude.Text,+    -- | The ETag that represents a unique instance of the object.+    eTag :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the object was last modified.+    lastModified :: Prelude.Maybe Data.POSIX,+    -- | The HTML status code of the request. Status codes ranging from 200 to+    -- 299 indicate success. All other status codes indicate the type of error+    -- that occurred.+    statusCode :: Prelude.Int,+    -- | The bytes of the object.+    body :: Data.ResponseBody+  }+  deriving (Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetObjectResponse' 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:+--+-- 'cacheControl', 'getObjectResponse_cacheControl' - An optional @CacheControl@ header that allows the caller to control the+-- object\'s cache behavior. Headers can be passed in as specified in the+-- HTTP spec at+-- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+--+-- Headers with a custom user-defined value are also accepted.+--+-- 'contentLength', 'getObjectResponse_contentLength' - The length of the object in bytes.+--+-- 'contentRange', 'getObjectResponse_contentRange' - The range of bytes to retrieve.+--+-- 'contentType', 'getObjectResponse_contentType' - The content type of the object.+--+-- 'eTag', 'getObjectResponse_eTag' - The ETag that represents a unique instance of the object.+--+-- 'lastModified', 'getObjectResponse_lastModified' - The date and time that the object was last modified.+--+-- 'statusCode', 'getObjectResponse_statusCode' - The HTML status code of the request. Status codes ranging from 200 to+-- 299 indicate success. All other status codes indicate the type of error+-- that occurred.+--+-- 'body', 'getObjectResponse_body' - The bytes of the object.+newGetObjectResponse ::+  -- | 'statusCode'+  Prelude.Int ->+  -- | 'body'+  Data.ResponseBody ->+  GetObjectResponse+newGetObjectResponse pStatusCode_ pBody_ =+  GetObjectResponse'+    { cacheControl = Prelude.Nothing,+      contentLength = Prelude.Nothing,+      contentRange = Prelude.Nothing,+      contentType = Prelude.Nothing,+      eTag = Prelude.Nothing,+      lastModified = Prelude.Nothing,+      statusCode = pStatusCode_,+      body = pBody_+    }++-- | An optional @CacheControl@ header that allows the caller to control the+-- object\'s cache behavior. Headers can be passed in as specified in the+-- HTTP spec at+-- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+--+-- Headers with a custom user-defined value are also accepted.+getObjectResponse_cacheControl :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)+getObjectResponse_cacheControl = Lens.lens (\GetObjectResponse' {cacheControl} -> cacheControl) (\s@GetObjectResponse' {} a -> s {cacheControl = a} :: GetObjectResponse)++-- | The length of the object in bytes.+getObjectResponse_contentLength :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Natural)+getObjectResponse_contentLength = Lens.lens (\GetObjectResponse' {contentLength} -> contentLength) (\s@GetObjectResponse' {} a -> s {contentLength = a} :: GetObjectResponse)++-- | The range of bytes to retrieve.+getObjectResponse_contentRange :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)+getObjectResponse_contentRange = Lens.lens (\GetObjectResponse' {contentRange} -> contentRange) (\s@GetObjectResponse' {} a -> s {contentRange = a} :: GetObjectResponse)++-- | The content type of the object.+getObjectResponse_contentType :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)+getObjectResponse_contentType = Lens.lens (\GetObjectResponse' {contentType} -> contentType) (\s@GetObjectResponse' {} a -> s {contentType = a} :: GetObjectResponse)++-- | The ETag that represents a unique instance of the object.+getObjectResponse_eTag :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)+getObjectResponse_eTag = Lens.lens (\GetObjectResponse' {eTag} -> eTag) (\s@GetObjectResponse' {} a -> s {eTag = a} :: GetObjectResponse)++-- | The date and time that the object was last modified.+getObjectResponse_lastModified :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.UTCTime)+getObjectResponse_lastModified = Lens.lens (\GetObjectResponse' {lastModified} -> lastModified) (\s@GetObjectResponse' {} a -> s {lastModified = a} :: GetObjectResponse) Prelude.. Lens.mapping Data._Time++-- | The HTML status code of the request. Status codes ranging from 200 to+-- 299 indicate success. All other status codes indicate the type of error+-- that occurred.+getObjectResponse_statusCode :: Lens.Lens' GetObjectResponse Prelude.Int+getObjectResponse_statusCode = Lens.lens (\GetObjectResponse' {statusCode} -> statusCode) (\s@GetObjectResponse' {} a -> s {statusCode = a} :: GetObjectResponse)++-- | The bytes of the object.+getObjectResponse_body :: Lens.Lens' GetObjectResponse Data.ResponseBody+getObjectResponse_body = Lens.lens (\GetObjectResponse' {body} -> body) (\s@GetObjectResponse' {} a -> s {body = a} :: GetObjectResponse)

@@ -0,0 +1,79 @@+{-# 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.MediaStoreData.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.MediaStoreData.Lens+  ( -- * Operations++    -- ** DeleteObject+    deleteObject_path,+    deleteObjectResponse_httpStatus,++    -- ** DescribeObject+    describeObject_path,+    describeObjectResponse_cacheControl,+    describeObjectResponse_contentLength,+    describeObjectResponse_contentType,+    describeObjectResponse_eTag,+    describeObjectResponse_lastModified,+    describeObjectResponse_httpStatus,++    -- ** GetObject+    getObject_range,+    getObject_path,+    getObjectResponse_cacheControl,+    getObjectResponse_contentLength,+    getObjectResponse_contentRange,+    getObjectResponse_contentType,+    getObjectResponse_eTag,+    getObjectResponse_lastModified,+    getObjectResponse_statusCode,+    getObjectResponse_body,++    -- ** ListItems+    listItems_maxResults,+    listItems_nextToken,+    listItems_path,+    listItemsResponse_items,+    listItemsResponse_nextToken,+    listItemsResponse_httpStatus,++    -- ** PutObject+    putObject_cacheControl,+    putObject_contentType,+    putObject_storageClass,+    putObject_uploadAvailability,+    putObject_path,+    putObject_body,+    putObjectResponse_contentSHA256,+    putObjectResponse_eTag,+    putObjectResponse_storageClass,+    putObjectResponse_httpStatus,++    -- * Types++    -- ** Item+    item_contentLength,+    item_contentType,+    item_eTag,+    item_lastModified,+    item_name,+    item_type,+  )+where++import Amazonka.MediaStoreData.DeleteObject+import Amazonka.MediaStoreData.DescribeObject+import Amazonka.MediaStoreData.GetObject+import Amazonka.MediaStoreData.ListItems+import Amazonka.MediaStoreData.PutObject+import Amazonka.MediaStoreData.Types.Item

@@ -0,0 +1,271 @@+{-# 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.MediaStoreData.ListItems+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a list of metadata entries about folders and objects in the+-- specified folder.+--+-- This operation returns paginated results.+module Amazonka.MediaStoreData.ListItems+  ( -- * Creating a Request+    ListItems (..),+    newListItems,++    -- * Request Lenses+    listItems_maxResults,+    listItems_nextToken,+    listItems_path,++    -- * Destructuring the Response+    ListItemsResponse (..),+    newListItemsResponse,++    -- * Response Lenses+    listItemsResponse_items,+    listItemsResponse_nextToken,+    listItemsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStoreData.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListItems' smart constructor.+data ListItems = ListItems'+  { -- | The maximum number of results to return per API request. For example,+    -- you submit a @ListItems@ request with @MaxResults@ set at 500. Although+    -- 2,000 items match your request, the service returns no more than the+    -- first 500 items. (The service also returns a @NextToken@ value that you+    -- can use to fetch the next batch of results.) The service might return+    -- fewer results than the @MaxResults@ value.+    --+    -- If @MaxResults@ is not included in the request, the service defaults to+    -- pagination with a maximum of 1,000 results per page.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The token that identifies which batch of results that you want to see.+    -- For example, you submit a @ListItems@ request with @MaxResults@ set at+    -- 500. The service returns the first batch of results (up to 500) and a+    -- @NextToken@ value. To see the next batch of results, you can submit the+    -- @ListItems@ request a second time and specify the @NextToken@ value.+    --+    -- Tokens expire after 15 minutes.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The path in the container from which to retrieve items. Format: \<folder+    -- name>\/\<folder name>\/\<file name>+    path :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListItems' 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', 'listItems_maxResults' - The maximum number of results to return per API request. For example,+-- you submit a @ListItems@ request with @MaxResults@ set at 500. Although+-- 2,000 items match your request, the service returns no more than the+-- first 500 items. (The service also returns a @NextToken@ value that you+-- can use to fetch the next batch of results.) The service might return+-- fewer results than the @MaxResults@ value.+--+-- If @MaxResults@ is not included in the request, the service defaults to+-- pagination with a maximum of 1,000 results per page.+--+-- 'nextToken', 'listItems_nextToken' - The token that identifies which batch of results that you want to see.+-- For example, you submit a @ListItems@ request with @MaxResults@ set at+-- 500. The service returns the first batch of results (up to 500) and a+-- @NextToken@ value. To see the next batch of results, you can submit the+-- @ListItems@ request a second time and specify the @NextToken@ value.+--+-- Tokens expire after 15 minutes.+--+-- 'path', 'listItems_path' - The path in the container from which to retrieve items. Format: \<folder+-- name>\/\<folder name>\/\<file name>+newListItems ::+  ListItems+newListItems =+  ListItems'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      path = Prelude.Nothing+    }++-- | The maximum number of results to return per API request. For example,+-- you submit a @ListItems@ request with @MaxResults@ set at 500. Although+-- 2,000 items match your request, the service returns no more than the+-- first 500 items. (The service also returns a @NextToken@ value that you+-- can use to fetch the next batch of results.) The service might return+-- fewer results than the @MaxResults@ value.+--+-- If @MaxResults@ is not included in the request, the service defaults to+-- pagination with a maximum of 1,000 results per page.+listItems_maxResults :: Lens.Lens' ListItems (Prelude.Maybe Prelude.Natural)+listItems_maxResults = Lens.lens (\ListItems' {maxResults} -> maxResults) (\s@ListItems' {} a -> s {maxResults = a} :: ListItems)++-- | The token that identifies which batch of results that you want to see.+-- For example, you submit a @ListItems@ request with @MaxResults@ set at+-- 500. The service returns the first batch of results (up to 500) and a+-- @NextToken@ value. To see the next batch of results, you can submit the+-- @ListItems@ request a second time and specify the @NextToken@ value.+--+-- Tokens expire after 15 minutes.+listItems_nextToken :: Lens.Lens' ListItems (Prelude.Maybe Prelude.Text)+listItems_nextToken = Lens.lens (\ListItems' {nextToken} -> nextToken) (\s@ListItems' {} a -> s {nextToken = a} :: ListItems)++-- | The path in the container from which to retrieve items. Format: \<folder+-- name>\/\<folder name>\/\<file name>+listItems_path :: Lens.Lens' ListItems (Prelude.Maybe Prelude.Text)+listItems_path = Lens.lens (\ListItems' {path} -> path) (\s@ListItems' {} a -> s {path = a} :: ListItems)++instance Core.AWSPager ListItems where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listItemsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listItemsResponse_items+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listItems_nextToken+          Lens..~ rs+          Lens.^? listItemsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListItems where+  type AWSResponse ListItems = ListItemsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListItemsResponse'+            Prelude.<$> (x Data..?> "Items" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListItems where+  hashWithSalt _salt ListItems' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` path++instance Prelude.NFData ListItems where+  rnf ListItems' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf path++instance Data.ToHeaders ListItems where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListItems where+  toPath = Prelude.const "/"++instance Data.ToQuery ListItems where+  toQuery ListItems' {..} =+    Prelude.mconcat+      [ "MaxResults" Data.=: maxResults,+        "NextToken" Data.=: nextToken,+        "Path" Data.=: path+      ]++-- | /See:/ 'newListItemsResponse' smart constructor.+data ListItemsResponse = ListItemsResponse'+  { -- | The metadata entries for the folders and objects at the requested path.+    items :: Prelude.Maybe [Item],+    -- | The token that can be used in a request to view the next set of results.+    -- For example, you submit a @ListItems@ request that matches 2,000 items+    -- with @MaxResults@ set at 500. The service returns the first batch of+    -- results (up to 500) and a @NextToken@ value that can be used to fetch+    -- the next batch of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListItemsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'items', 'listItemsResponse_items' - The metadata entries for the folders and objects at the requested path.+--+-- 'nextToken', 'listItemsResponse_nextToken' - The token that can be used in a request to view the next set of results.+-- For example, you submit a @ListItems@ request that matches 2,000 items+-- with @MaxResults@ set at 500. The service returns the first batch of+-- results (up to 500) and a @NextToken@ value that can be used to fetch+-- the next batch of results.+--+-- 'httpStatus', 'listItemsResponse_httpStatus' - The response's http status code.+newListItemsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListItemsResponse+newListItemsResponse pHttpStatus_ =+  ListItemsResponse'+    { items = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The metadata entries for the folders and objects at the requested path.+listItemsResponse_items :: Lens.Lens' ListItemsResponse (Prelude.Maybe [Item])+listItemsResponse_items = Lens.lens (\ListItemsResponse' {items} -> items) (\s@ListItemsResponse' {} a -> s {items = a} :: ListItemsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token that can be used in a request to view the next set of results.+-- For example, you submit a @ListItems@ request that matches 2,000 items+-- with @MaxResults@ set at 500. The service returns the first batch of+-- results (up to 500) and a @NextToken@ value that can be used to fetch+-- the next batch of results.+listItemsResponse_nextToken :: Lens.Lens' ListItemsResponse (Prelude.Maybe Prelude.Text)+listItemsResponse_nextToken = Lens.lens (\ListItemsResponse' {nextToken} -> nextToken) (\s@ListItemsResponse' {} a -> s {nextToken = a} :: ListItemsResponse)++-- | The response's http status code.+listItemsResponse_httpStatus :: Lens.Lens' ListItemsResponse Prelude.Int+listItemsResponse_httpStatus = Lens.lens (\ListItemsResponse' {httpStatus} -> httpStatus) (\s@ListItemsResponse' {} a -> s {httpStatus = a} :: ListItemsResponse)++instance Prelude.NFData ListItemsResponse where+  rnf ListItemsResponse' {..} =+    Prelude.rnf items+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,353 @@+{-# 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.MediaStoreData.PutObject+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Uploads an object to the specified path. Object sizes are limited to 25+-- MB for standard upload availability and 10 MB for streaming upload+-- availability.+module Amazonka.MediaStoreData.PutObject+  ( -- * Creating a Request+    PutObject (..),+    newPutObject,++    -- * Request Lenses+    putObject_cacheControl,+    putObject_contentType,+    putObject_storageClass,+    putObject_uploadAvailability,+    putObject_path,+    putObject_body,++    -- * Destructuring the Response+    PutObjectResponse (..),+    newPutObjectResponse,++    -- * Response Lenses+    putObjectResponse_contentSHA256,+    putObjectResponse_eTag,+    putObjectResponse_storageClass,+    putObjectResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStoreData.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newPutObject' smart constructor.+data PutObject = PutObject'+  { -- | An optional @CacheControl@ header that allows the caller to control the+    -- object\'s cache behavior. Headers can be passed in as specified in the+    -- HTTP at+    -- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+    --+    -- Headers with a custom user-defined value are also accepted.+    cacheControl :: Prelude.Maybe Prelude.Text,+    -- | The content type of the object.+    contentType :: Prelude.Maybe Prelude.Text,+    -- | Indicates the storage class of a @Put@ request. Defaults to+    -- high-performance temporal storage class, and objects are persisted into+    -- durable storage shortly after being received.+    storageClass :: Prelude.Maybe StorageClass,+    -- | Indicates the availability of an object while it is still uploading. If+    -- the value is set to @streaming@, the object is available for downloading+    -- after some initial buffering but before the object is uploaded+    -- completely. If the value is set to @standard@, the object is available+    -- for downloading only when it is uploaded completely. The default value+    -- for this header is @standard@.+    --+    -- To use this header, you must also set the HTTP @Transfer-Encoding@+    -- header to @chunked@.+    uploadAvailability :: Prelude.Maybe UploadAvailability,+    -- | The path (including the file name) where the object is stored in the+    -- container. Format: \<folder name>\/\<folder name>\/\<file name>+    --+    -- For example, to upload the file @mlaw.avi@ to the folder path+    -- @premium\\canada@ in the container @movies@, enter the path+    -- @premium\/canada\/mlaw.avi@.+    --+    -- Do not include the container name in this path.+    --+    -- If the path includes any folders that don\'t exist yet, the service+    -- creates them. For example, suppose you have an existing @premium\/usa@+    -- subfolder. If you specify @premium\/canada@, the service creates a+    -- @canada@ subfolder in the @premium@ folder. You then have two+    -- subfolders, @usa@ and @canada@, in the @premium@ folder.+    --+    -- There is no correlation between the path to the source and the path+    -- (folders) in the container in AWS Elemental MediaStore.+    --+    -- For more information about folders and how they exist in a container,+    -- see the+    -- <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide>.+    --+    -- The file name is the name that is assigned to the file that you upload.+    -- The file can have the same name inside and outside of AWS Elemental+    -- MediaStore, or it can have the same name. The file name can include or+    -- omit an extension.+    path :: Prelude.Text,+    -- | The bytes to be stored.+    body :: Data.HashedBody+  }+  deriving (Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutObject' 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:+--+-- 'cacheControl', 'putObject_cacheControl' - An optional @CacheControl@ header that allows the caller to control the+-- object\'s cache behavior. Headers can be passed in as specified in the+-- HTTP at+-- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+--+-- Headers with a custom user-defined value are also accepted.+--+-- 'contentType', 'putObject_contentType' - The content type of the object.+--+-- 'storageClass', 'putObject_storageClass' - Indicates the storage class of a @Put@ request. Defaults to+-- high-performance temporal storage class, and objects are persisted into+-- durable storage shortly after being received.+--+-- 'uploadAvailability', 'putObject_uploadAvailability' - Indicates the availability of an object while it is still uploading. If+-- the value is set to @streaming@, the object is available for downloading+-- after some initial buffering but before the object is uploaded+-- completely. If the value is set to @standard@, the object is available+-- for downloading only when it is uploaded completely. The default value+-- for this header is @standard@.+--+-- To use this header, you must also set the HTTP @Transfer-Encoding@+-- header to @chunked@.+--+-- 'path', 'putObject_path' - The path (including the file name) where the object is stored in the+-- container. Format: \<folder name>\/\<folder name>\/\<file name>+--+-- For example, to upload the file @mlaw.avi@ to the folder path+-- @premium\\canada@ in the container @movies@, enter the path+-- @premium\/canada\/mlaw.avi@.+--+-- Do not include the container name in this path.+--+-- If the path includes any folders that don\'t exist yet, the service+-- creates them. For example, suppose you have an existing @premium\/usa@+-- subfolder. If you specify @premium\/canada@, the service creates a+-- @canada@ subfolder in the @premium@ folder. You then have two+-- subfolders, @usa@ and @canada@, in the @premium@ folder.+--+-- There is no correlation between the path to the source and the path+-- (folders) in the container in AWS Elemental MediaStore.+--+-- For more information about folders and how they exist in a container,+-- see the+-- <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide>.+--+-- The file name is the name that is assigned to the file that you upload.+-- The file can have the same name inside and outside of AWS Elemental+-- MediaStore, or it can have the same name. The file name can include or+-- omit an extension.+--+-- 'body', 'putObject_body' - The bytes to be stored.+newPutObject ::+  -- | 'path'+  Prelude.Text ->+  -- | 'body'+  Data.HashedBody ->+  PutObject+newPutObject pPath_ pBody_ =+  PutObject'+    { cacheControl = Prelude.Nothing,+      contentType = Prelude.Nothing,+      storageClass = Prelude.Nothing,+      uploadAvailability = Prelude.Nothing,+      path = pPath_,+      body = pBody_+    }++-- | An optional @CacheControl@ header that allows the caller to control the+-- object\'s cache behavior. Headers can be passed in as specified in the+-- HTTP at+-- <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9>.+--+-- Headers with a custom user-defined value are also accepted.+putObject_cacheControl :: Lens.Lens' PutObject (Prelude.Maybe Prelude.Text)+putObject_cacheControl = Lens.lens (\PutObject' {cacheControl} -> cacheControl) (\s@PutObject' {} a -> s {cacheControl = a} :: PutObject)++-- | The content type of the object.+putObject_contentType :: Lens.Lens' PutObject (Prelude.Maybe Prelude.Text)+putObject_contentType = Lens.lens (\PutObject' {contentType} -> contentType) (\s@PutObject' {} a -> s {contentType = a} :: PutObject)++-- | Indicates the storage class of a @Put@ request. Defaults to+-- high-performance temporal storage class, and objects are persisted into+-- durable storage shortly after being received.+putObject_storageClass :: Lens.Lens' PutObject (Prelude.Maybe StorageClass)+putObject_storageClass = Lens.lens (\PutObject' {storageClass} -> storageClass) (\s@PutObject' {} a -> s {storageClass = a} :: PutObject)++-- | Indicates the availability of an object while it is still uploading. If+-- the value is set to @streaming@, the object is available for downloading+-- after some initial buffering but before the object is uploaded+-- completely. If the value is set to @standard@, the object is available+-- for downloading only when it is uploaded completely. The default value+-- for this header is @standard@.+--+-- To use this header, you must also set the HTTP @Transfer-Encoding@+-- header to @chunked@.+putObject_uploadAvailability :: Lens.Lens' PutObject (Prelude.Maybe UploadAvailability)+putObject_uploadAvailability = Lens.lens (\PutObject' {uploadAvailability} -> uploadAvailability) (\s@PutObject' {} a -> s {uploadAvailability = a} :: PutObject)++-- | The path (including the file name) where the object is stored in the+-- container. Format: \<folder name>\/\<folder name>\/\<file name>+--+-- For example, to upload the file @mlaw.avi@ to the folder path+-- @premium\\canada@ in the container @movies@, enter the path+-- @premium\/canada\/mlaw.avi@.+--+-- Do not include the container name in this path.+--+-- If the path includes any folders that don\'t exist yet, the service+-- creates them. For example, suppose you have an existing @premium\/usa@+-- subfolder. If you specify @premium\/canada@, the service creates a+-- @canada@ subfolder in the @premium@ folder. You then have two+-- subfolders, @usa@ and @canada@, in the @premium@ folder.+--+-- There is no correlation between the path to the source and the path+-- (folders) in the container in AWS Elemental MediaStore.+--+-- For more information about folders and how they exist in a container,+-- see the+-- <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide>.+--+-- The file name is the name that is assigned to the file that you upload.+-- The file can have the same name inside and outside of AWS Elemental+-- MediaStore, or it can have the same name. The file name can include or+-- omit an extension.+putObject_path :: Lens.Lens' PutObject Prelude.Text+putObject_path = Lens.lens (\PutObject' {path} -> path) (\s@PutObject' {} a -> s {path = a} :: PutObject)++-- | The bytes to be stored.+putObject_body :: Lens.Lens' PutObject Data.HashedBody+putObject_body = Lens.lens (\PutObject' {body} -> body) (\s@PutObject' {} a -> s {body = a} :: PutObject)++instance Core.AWSRequest PutObject where+  type AWSResponse PutObject = PutObjectResponse+  request overrides =+    Request.putBody (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          PutObjectResponse'+            Prelude.<$> (x Data..?> "ContentSHA256")+            Prelude.<*> (x Data..?> "ETag")+            Prelude.<*> (x Data..?> "StorageClass")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Data.ToBody PutObject where+  toBody PutObject' {..} = Data.toBody body++instance Data.ToHeaders PutObject where+  toHeaders PutObject' {..} =+    Prelude.mconcat+      [ "Cache-Control" Data.=# cacheControl,+        "Content-Type" Data.=# contentType,+        "x-amz-storage-class" Data.=# storageClass,+        "x-amz-upload-availability"+          Data.=# uploadAvailability+      ]++instance Data.ToPath PutObject where+  toPath PutObject' {..} =+    Prelude.mconcat ["/", Data.toBS path]++instance Data.ToQuery PutObject where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutObjectResponse' smart constructor.+data PutObjectResponse = PutObjectResponse'+  { -- | The SHA256 digest of the object that is persisted.+    contentSHA256 :: Prelude.Maybe Prelude.Text,+    -- | Unique identifier of the object in the container.+    eTag :: Prelude.Maybe Prelude.Text,+    -- | The storage class where the object was persisted. The class should be+    -- “Temporal”.+    storageClass :: Prelude.Maybe StorageClass,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutObjectResponse' 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:+--+-- 'contentSHA256', 'putObjectResponse_contentSHA256' - The SHA256 digest of the object that is persisted.+--+-- 'eTag', 'putObjectResponse_eTag' - Unique identifier of the object in the container.+--+-- 'storageClass', 'putObjectResponse_storageClass' - The storage class where the object was persisted. The class should be+-- “Temporal”.+--+-- 'httpStatus', 'putObjectResponse_httpStatus' - The response's http status code.+newPutObjectResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutObjectResponse+newPutObjectResponse pHttpStatus_ =+  PutObjectResponse'+    { contentSHA256 = Prelude.Nothing,+      eTag = Prelude.Nothing,+      storageClass = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The SHA256 digest of the object that is persisted.+putObjectResponse_contentSHA256 :: Lens.Lens' PutObjectResponse (Prelude.Maybe Prelude.Text)+putObjectResponse_contentSHA256 = Lens.lens (\PutObjectResponse' {contentSHA256} -> contentSHA256) (\s@PutObjectResponse' {} a -> s {contentSHA256 = a} :: PutObjectResponse)++-- | Unique identifier of the object in the container.+putObjectResponse_eTag :: Lens.Lens' PutObjectResponse (Prelude.Maybe Prelude.Text)+putObjectResponse_eTag = Lens.lens (\PutObjectResponse' {eTag} -> eTag) (\s@PutObjectResponse' {} a -> s {eTag = a} :: PutObjectResponse)++-- | The storage class where the object was persisted. The class should be+-- “Temporal”.+putObjectResponse_storageClass :: Lens.Lens' PutObjectResponse (Prelude.Maybe StorageClass)+putObjectResponse_storageClass = Lens.lens (\PutObjectResponse' {storageClass} -> storageClass) (\s@PutObjectResponse' {} a -> s {storageClass = a} :: PutObjectResponse)++-- | The response's http status code.+putObjectResponse_httpStatus :: Lens.Lens' PutObjectResponse Prelude.Int+putObjectResponse_httpStatus = Lens.lens (\PutObjectResponse' {httpStatus} -> httpStatus) (\s@PutObjectResponse' {} a -> s {httpStatus = a} :: PutObjectResponse)++instance Prelude.NFData PutObjectResponse where+  rnf PutObjectResponse' {..} =+    Prelude.rnf contentSHA256+      `Prelude.seq` Prelude.rnf eTag+      `Prelude.seq` Prelude.rnf storageClass+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,155 @@+{-# 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.MediaStoreData.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.MediaStoreData.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _ContainerNotFoundException,+    _InternalServerError,+    _ObjectNotFoundException,+    _RequestedRangeNotSatisfiableException,++    -- * ItemType+    ItemType (..),++    -- * StorageClass+    StorageClass (..),++    -- * UploadAvailability+    UploadAvailability (..),++    -- * Item+    Item (..),+    newItem,+    item_contentLength,+    item_contentType,+    item_eTag,+    item_lastModified,+    item_name,+    item_type,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.MediaStoreData.Types.Item+import Amazonka.MediaStoreData.Types.ItemType+import Amazonka.MediaStoreData.Types.StorageClass+import Amazonka.MediaStoreData.Types.UploadAvailability+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2017-09-01@ of the Amazon Elemental MediaStore Data Plane SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "MediaStoreData",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "data.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 "MediaStoreData",+      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 specified container was not found for the specified account.+_ContainerNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ContainerNotFoundException =+  Core._MatchServiceError+    defaultService+    "ContainerNotFoundException"+    Prelude.. Core.hasStatus 404++-- | The service is temporarily unavailable.+_InternalServerError :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerError =+  Core._MatchServiceError+    defaultService+    "InternalServerError"++-- | Could not perform an operation on an object that does not exist.+_ObjectNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ObjectNotFoundException =+  Core._MatchServiceError+    defaultService+    "ObjectNotFoundException"+    Prelude.. Core.hasStatus 404++-- | The requested content range is not valid.+_RequestedRangeNotSatisfiableException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_RequestedRangeNotSatisfiableException =+  Core._MatchServiceError+    defaultService+    "RequestedRangeNotSatisfiableException"+    Prelude.. Core.hasStatus 416

@@ -0,0 +1,133 @@+{-# 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.MediaStoreData.Types.Item+-- 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.MediaStoreData.Types.Item where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStoreData.Types.ItemType+import qualified Amazonka.Prelude as Prelude++-- | A metadata entry for a folder or object.+--+-- /See:/ 'newItem' smart constructor.+data Item = Item'+  { -- | The length of the item in bytes.+    contentLength :: Prelude.Maybe Prelude.Natural,+    -- | The content type of the item.+    contentType :: Prelude.Maybe Prelude.Text,+    -- | The ETag that represents a unique instance of the item.+    eTag :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the item was last modified.+    lastModified :: Prelude.Maybe Data.POSIX,+    -- | The name of the item.+    name :: Prelude.Maybe Prelude.Text,+    -- | The item type (folder or object).+    type' :: Prelude.Maybe ItemType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Item' 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:+--+-- 'contentLength', 'item_contentLength' - The length of the item in bytes.+--+-- 'contentType', 'item_contentType' - The content type of the item.+--+-- 'eTag', 'item_eTag' - The ETag that represents a unique instance of the item.+--+-- 'lastModified', 'item_lastModified' - The date and time that the item was last modified.+--+-- 'name', 'item_name' - The name of the item.+--+-- 'type'', 'item_type' - The item type (folder or object).+newItem ::+  Item+newItem =+  Item'+    { contentLength = Prelude.Nothing,+      contentType = Prelude.Nothing,+      eTag = Prelude.Nothing,+      lastModified = Prelude.Nothing,+      name = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The length of the item in bytes.+item_contentLength :: Lens.Lens' Item (Prelude.Maybe Prelude.Natural)+item_contentLength = Lens.lens (\Item' {contentLength} -> contentLength) (\s@Item' {} a -> s {contentLength = a} :: Item)++-- | The content type of the item.+item_contentType :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_contentType = Lens.lens (\Item' {contentType} -> contentType) (\s@Item' {} a -> s {contentType = a} :: Item)++-- | The ETag that represents a unique instance of the item.+item_eTag :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_eTag = Lens.lens (\Item' {eTag} -> eTag) (\s@Item' {} a -> s {eTag = a} :: Item)++-- | The date and time that the item was last modified.+item_lastModified :: Lens.Lens' Item (Prelude.Maybe Prelude.UTCTime)+item_lastModified = Lens.lens (\Item' {lastModified} -> lastModified) (\s@Item' {} a -> s {lastModified = a} :: Item) Prelude.. Lens.mapping Data._Time++-- | The name of the item.+item_name :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_name = Lens.lens (\Item' {name} -> name) (\s@Item' {} a -> s {name = a} :: Item)++-- | The item type (folder or object).+item_type :: Lens.Lens' Item (Prelude.Maybe ItemType)+item_type = Lens.lens (\Item' {type'} -> type') (\s@Item' {} a -> s {type' = a} :: Item)++instance Data.FromJSON Item where+  parseJSON =+    Data.withObject+      "Item"+      ( \x ->+          Item'+            Prelude.<$> (x Data..:? "ContentLength")+            Prelude.<*> (x Data..:? "ContentType")+            Prelude.<*> (x Data..:? "ETag")+            Prelude.<*> (x Data..:? "LastModified")+            Prelude.<*> (x Data..:? "Name")+            Prelude.<*> (x Data..:? "Type")+      )++instance Prelude.Hashable Item where+  hashWithSalt _salt Item' {..} =+    _salt+      `Prelude.hashWithSalt` contentLength+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` eTag+      `Prelude.hashWithSalt` lastModified+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` type'++instance Prelude.NFData Item where+  rnf Item' {..} =+    Prelude.rnf contentLength+      `Prelude.seq` Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf eTag+      `Prelude.seq` Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf type'

@@ -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.MediaStoreData.Types.ItemType+-- 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.MediaStoreData.Types.ItemType+  ( ItemType+      ( ..,+        ItemType_FOLDER,+        ItemType_OBJECT+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ItemType = ItemType'+  { fromItemType ::+      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 ItemType_FOLDER :: ItemType+pattern ItemType_FOLDER = ItemType' "FOLDER"++pattern ItemType_OBJECT :: ItemType+pattern ItemType_OBJECT = ItemType' "OBJECT"++{-# COMPLETE+  ItemType_FOLDER,+  ItemType_OBJECT,+  ItemType'+  #-}

@@ -0,0 +1,66 @@+{-# 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.MediaStoreData.Types.StorageClass+-- 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.MediaStoreData.Types.StorageClass+  ( StorageClass+      ( ..,+        StorageClass_TEMPORAL+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype StorageClass = StorageClass'+  { fromStorageClass ::+      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 StorageClass_TEMPORAL :: StorageClass+pattern StorageClass_TEMPORAL = StorageClass' "TEMPORAL"++{-# COMPLETE+  StorageClass_TEMPORAL,+  StorageClass'+  #-}

@@ -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.MediaStoreData.Types.UploadAvailability+-- 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.MediaStoreData.Types.UploadAvailability+  ( UploadAvailability+      ( ..,+        UploadAvailability_STANDARD,+        UploadAvailability_STREAMING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype UploadAvailability = UploadAvailability'+  { fromUploadAvailability ::+      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 UploadAvailability_STANDARD :: UploadAvailability+pattern UploadAvailability_STANDARD = UploadAvailability' "STANDARD"++pattern UploadAvailability_STREAMING :: UploadAvailability+pattern UploadAvailability_STREAMING = UploadAvailability' "STREAMING"++{-# COMPLETE+  UploadAvailability_STANDARD,+  UploadAvailability_STREAMING,+  UploadAvailability'+  #-}

@@ -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.MediaStoreData.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.MediaStoreData.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MediaStoreData.Lens+import Amazonka.MediaStoreData.Types+import qualified Amazonka.Prelude as Prelude

@@ -1,113 +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.MediaStoreData--- 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 asset is an object, similar to an object in the Amazon S3 service. Objects are the fundamental entities that are stored in AWS Elemental MediaStore.-------module Network.AWS.MediaStoreData-    (-    -- * Service Configuration-      mediaStoreData--    -- * Errors-    -- $errors--    -- ** RequestedRangeNotSatisfiableException-    , _RequestedRangeNotSatisfiableException--    -- ** InternalServerError-    , _InternalServerError--    -- ** ContainerNotFoundException-    , _ContainerNotFoundException--    -- ** ObjectNotFoundException-    , _ObjectNotFoundException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** PutObject-    , module Network.AWS.MediaStoreData.PutObject--    -- ** DeleteObject-    , module Network.AWS.MediaStoreData.DeleteObject--    -- ** DescribeObject-    , module Network.AWS.MediaStoreData.DescribeObject--    -- ** GetObject-    , module Network.AWS.MediaStoreData.GetObject--    -- ** ListItems-    , module Network.AWS.MediaStoreData.ListItems--    -- * Types--    -- ** ItemType-    , ItemType (..)--    -- ** StorageClass-    , StorageClass (..)--    -- ** Item-    , Item-    , item-    , iETag-    , iContentLength-    , iName-    , iType-    , iLastModified-    , iContentType-    ) where--import Network.AWS.MediaStoreData.DeleteObject-import Network.AWS.MediaStoreData.DescribeObject-import Network.AWS.MediaStoreData.GetObject-import Network.AWS.MediaStoreData.ListItems-import Network.AWS.MediaStoreData.PutObject-import Network.AWS.MediaStoreData.Types-import Network.AWS.MediaStoreData.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 'MediaStoreData'.--}--{- $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,111 +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.MediaStoreData.DeleteObject--- 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)------ Deletes an object at the specified path.-------module Network.AWS.MediaStoreData.DeleteObject-    (-    -- * Creating a Request-      deleteObject-    , DeleteObject-    -- * Request Lenses-    , doPath--    -- * Destructuring the Response-    , deleteObjectResponse-    , DeleteObjectResponse-    -- * Response Lenses-    , dorsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.MediaStoreData.Types-import Network.AWS.MediaStoreData.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'deleteObject' smart constructor.-newtype DeleteObject = DeleteObject'-  { _doPath :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteObject' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'doPath' - The path (including the file name) where the object is stored in the container. Format: <folder name>/<folder name>/<file name>-deleteObject-    :: Text -- ^ 'doPath'-    -> DeleteObject-deleteObject pPath_ = DeleteObject' {_doPath = pPath_}----- | The path (including the file name) where the object is stored in the container. Format: <folder name>/<folder name>/<file name>-doPath :: Lens' DeleteObject Text-doPath = lens _doPath (\ s a -> s{_doPath = a})--instance AWSRequest DeleteObject where-        type Rs DeleteObject = DeleteObjectResponse-        request = delete mediaStoreData-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteObjectResponse' <$> (pure (fromEnum s)))--instance Hashable DeleteObject where--instance NFData DeleteObject where--instance ToHeaders DeleteObject where-        toHeaders = const mempty--instance ToPath DeleteObject where-        toPath DeleteObject'{..}-          = mconcat ["/", toBS _doPath]--instance ToQuery DeleteObject where-        toQuery = const mempty---- | /See:/ 'deleteObjectResponse' smart constructor.-newtype DeleteObjectResponse = DeleteObjectResponse'-  { _dorsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteObjectResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dorsResponseStatus' - -- | The response status code.-deleteObjectResponse-    :: Int -- ^ 'dorsResponseStatus'-    -> DeleteObjectResponse-deleteObjectResponse pResponseStatus_ =-  DeleteObjectResponse' {_dorsResponseStatus = pResponseStatus_}----- | -- | The response status code.-dorsResponseStatus :: Lens' DeleteObjectResponse Int-dorsResponseStatus = lens _dorsResponseStatus (\ s a -> s{_dorsResponseStatus = a})--instance NFData DeleteObjectResponse where

@@ -1,163 +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.MediaStoreData.DescribeObject--- 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)------ Gets the headers for an object at the specified path.-------module Network.AWS.MediaStoreData.DescribeObject-    (-    -- * Creating a Request-      describeObject-    , DescribeObject-    -- * Request Lenses-    , dPath--    -- * Destructuring the Response-    , describeObjectResponse-    , DescribeObjectResponse-    -- * Response Lenses-    , drsETag-    , drsContentLength-    , drsCacheControl-    , drsLastModified-    , drsContentType-    , drsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.MediaStoreData.Types-import Network.AWS.MediaStoreData.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'describeObject' smart constructor.-newtype DescribeObject = DescribeObject'-  { _dPath :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeObject' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dPath' - The path (including the file name) where the object is stored in the container. Format: <folder name>/<folder name>/<file name>-describeObject-    :: Text -- ^ 'dPath'-    -> DescribeObject-describeObject pPath_ = DescribeObject' {_dPath = pPath_}----- | The path (including the file name) where the object is stored in the container. Format: <folder name>/<folder name>/<file name>-dPath :: Lens' DescribeObject Text-dPath = lens _dPath (\ s a -> s{_dPath = a})--instance AWSRequest DescribeObject where-        type Rs DescribeObject = DescribeObjectResponse-        request = head' mediaStoreData-        response-          = receiveEmpty-              (\ s h x ->-                 DescribeObjectResponse' <$>-                   (h .#? "ETag") <*> (h .#? "Content-Length") <*>-                     (h .#? "Cache-Control")-                     <*> (h .#? "Last-Modified")-                     <*> (h .#? "Content-Type")-                     <*> (pure (fromEnum s)))--instance Hashable DescribeObject where--instance NFData DescribeObject where--instance ToHeaders DescribeObject where-        toHeaders = const mempty--instance ToPath DescribeObject where-        toPath DescribeObject'{..}-          = mconcat ["/", toBS _dPath]--instance ToQuery DescribeObject where-        toQuery = const mempty---- | /See:/ 'describeObjectResponse' smart constructor.-data DescribeObjectResponse = DescribeObjectResponse'-  { _drsETag           :: !(Maybe Text)-  , _drsContentLength  :: !(Maybe Nat)-  , _drsCacheControl   :: !(Maybe Text)-  , _drsLastModified   :: !(Maybe POSIX)-  , _drsContentType    :: !(Maybe Text)-  , _drsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeObjectResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drsETag' - The ETag that represents a unique instance of the object.------ * 'drsContentLength' - The length of the object in bytes.------ * 'drsCacheControl' - An optional @CacheControl@ header that allows the caller to control the object's cache behavior. Headers can be passed in as specified in the HTTP at <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9 https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9> . Headers with a custom user-defined value are also accepted.------ * 'drsLastModified' - The date and time that the object was last modified.------ * 'drsContentType' - The content type of the object.------ * 'drsResponseStatus' - -- | The response status code.-describeObjectResponse-    :: Int -- ^ 'drsResponseStatus'-    -> DescribeObjectResponse-describeObjectResponse pResponseStatus_ =-  DescribeObjectResponse'-    { _drsETag = Nothing-    , _drsContentLength = Nothing-    , _drsCacheControl = Nothing-    , _drsLastModified = Nothing-    , _drsContentType = Nothing-    , _drsResponseStatus = pResponseStatus_-    }----- | The ETag that represents a unique instance of the object.-drsETag :: Lens' DescribeObjectResponse (Maybe Text)-drsETag = lens _drsETag (\ s a -> s{_drsETag = a})---- | The length of the object in bytes.-drsContentLength :: Lens' DescribeObjectResponse (Maybe Natural)-drsContentLength = lens _drsContentLength (\ s a -> s{_drsContentLength = a}) . mapping _Nat---- | An optional @CacheControl@ header that allows the caller to control the object's cache behavior. Headers can be passed in as specified in the HTTP at <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9 https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9> . Headers with a custom user-defined value are also accepted.-drsCacheControl :: Lens' DescribeObjectResponse (Maybe Text)-drsCacheControl = lens _drsCacheControl (\ s a -> s{_drsCacheControl = a})---- | The date and time that the object was last modified.-drsLastModified :: Lens' DescribeObjectResponse (Maybe UTCTime)-drsLastModified = lens _drsLastModified (\ s a -> s{_drsLastModified = a}) . mapping _Time---- | The content type of the object.-drsContentType :: Lens' DescribeObjectResponse (Maybe Text)-drsContentType = lens _drsContentType (\ s a -> s{_drsContentType = a})---- | -- | The response status code.-drsResponseStatus :: Lens' DescribeObjectResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})--instance NFData DescribeObjectResponse where

@@ -1,190 +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.MediaStoreData.GetObject--- 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)------ Downloads the object at the specified path.-------module Network.AWS.MediaStoreData.GetObject-    (-    -- * Creating a Request-      getObject-    , GetObject-    -- * Request Lenses-    , goRange-    , goPath--    -- * Destructuring the Response-    , getObjectResponse-    , GetObjectResponse-    -- * Response Lenses-    , gorsETag-    , gorsContentLength-    , gorsCacheControl-    , gorsLastModified-    , gorsContentRange-    , gorsContentType-    , gorsStatusCode-    , gorsBody-    ) where--import Network.AWS.Lens-import Network.AWS.MediaStoreData.Types-import Network.AWS.MediaStoreData.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'getObject' smart constructor.-data GetObject = GetObject'-  { _goRange :: !(Maybe Text)-  , _goPath  :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetObject' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'goRange' - The range bytes of an object to retrieve. For more information about the @Range@ header, go to <http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.35 http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.35> .------ * 'goPath' - The path (including the file name) where the object is stored in the container. Format: <folder name>/<folder name>/<file name> For example, to upload the file @mlaw.avi@ to the folder path @premium\canada@ in the container @movies@ , enter the path @premium/canada/mlaw.avi@ . Do not include the container name in this path. If the path includes any folders that don't exist yet, the service creates them. For example, suppose you have an existing @premium/usa@ subfolder. If you specify @premium/canada@ , the service creates a @canada@ subfolder in the @premium@ folder. You then have two subfolders, @usa@ and @canada@ , in the @premium@ folder.  There is no correlation between the path to the source and the path (folders) in the container in AWS Elemental MediaStore. For more information about folders and how they exist in a container, see the <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide> . The file name is the name that is assigned to the file that you upload. The file can have the same name inside and outside of AWS Elemental MediaStore, or it can have the same name. The file name can include or omit an extension.-getObject-    :: Text -- ^ 'goPath'-    -> GetObject-getObject pPath_ = GetObject' {_goRange = Nothing, _goPath = pPath_}----- | The range bytes of an object to retrieve. For more information about the @Range@ header, go to <http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.35 http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.35> .-goRange :: Lens' GetObject (Maybe Text)-goRange = lens _goRange (\ s a -> s{_goRange = a})---- | The path (including the file name) where the object is stored in the container. Format: <folder name>/<folder name>/<file name> For example, to upload the file @mlaw.avi@ to the folder path @premium\canada@ in the container @movies@ , enter the path @premium/canada/mlaw.avi@ . Do not include the container name in this path. If the path includes any folders that don't exist yet, the service creates them. For example, suppose you have an existing @premium/usa@ subfolder. If you specify @premium/canada@ , the service creates a @canada@ subfolder in the @premium@ folder. You then have two subfolders, @usa@ and @canada@ , in the @premium@ folder.  There is no correlation between the path to the source and the path (folders) in the container in AWS Elemental MediaStore. For more information about folders and how they exist in a container, see the <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide> . The file name is the name that is assigned to the file that you upload. The file can have the same name inside and outside of AWS Elemental MediaStore, or it can have the same name. The file name can include or omit an extension.-goPath :: Lens' GetObject Text-goPath = lens _goPath (\ s a -> s{_goPath = a})--instance AWSRequest GetObject where-        type Rs GetObject = GetObjectResponse-        request = get mediaStoreData-        response-          = receiveBody-              (\ s h x ->-                 GetObjectResponse' <$>-                   (h .#? "ETag") <*> (h .#? "Content-Length") <*>-                     (h .#? "Cache-Control")-                     <*> (h .#? "Last-Modified")-                     <*> (h .#? "Content-Range")-                     <*> (h .#? "Content-Type")-                     <*> (pure (fromEnum s))-                     <*> (pure x))--instance Hashable GetObject where--instance NFData GetObject where--instance ToHeaders GetObject where-        toHeaders GetObject'{..}-          = mconcat ["Range" =# _goRange]--instance ToPath GetObject where-        toPath GetObject'{..} = mconcat ["/", toBS _goPath]--instance ToQuery GetObject where-        toQuery = const mempty---- | /See:/ 'getObjectResponse' smart constructor.-data GetObjectResponse = GetObjectResponse'-  { _gorsETag          :: !(Maybe Text)-  , _gorsContentLength :: !(Maybe Nat)-  , _gorsCacheControl  :: !(Maybe Text)-  , _gorsLastModified  :: !(Maybe POSIX)-  , _gorsContentRange  :: !(Maybe Text)-  , _gorsContentType   :: !(Maybe Text)-  , _gorsStatusCode    :: !Int-  , _gorsBody          :: !RsBody-  } deriving (Show, Generic)----- | Creates a value of 'GetObjectResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gorsETag' - The ETag that represents a unique instance of the object.------ * 'gorsContentLength' - The length of the object in bytes.------ * 'gorsCacheControl' - An optional @CacheControl@ header that allows the caller to control the object's cache behavior. Headers can be passed in as specified in the HTTP spec at <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9 https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9> . Headers with a custom user-defined value are also accepted.------ * 'gorsLastModified' - The date and time that the object was last modified.------ * 'gorsContentRange' - The range of bytes to retrieve.------ * 'gorsContentType' - The content type of the object.------ * 'gorsStatusCode' - The HTML status code of the request. Status codes ranging from 200 to 299 indicate success. All other status codes indicate the type of error that occurred.------ * 'gorsBody' - The bytes of the object.-getObjectResponse-    :: Int -- ^ 'gorsStatusCode'-    -> RsBody -- ^ 'gorsBody'-    -> GetObjectResponse-getObjectResponse pStatusCode_ pBody_ =-  GetObjectResponse'-    { _gorsETag = Nothing-    , _gorsContentLength = Nothing-    , _gorsCacheControl = Nothing-    , _gorsLastModified = Nothing-    , _gorsContentRange = Nothing-    , _gorsContentType = Nothing-    , _gorsStatusCode = pStatusCode_-    , _gorsBody = pBody_-    }----- | The ETag that represents a unique instance of the object.-gorsETag :: Lens' GetObjectResponse (Maybe Text)-gorsETag = lens _gorsETag (\ s a -> s{_gorsETag = a})---- | The length of the object in bytes.-gorsContentLength :: Lens' GetObjectResponse (Maybe Natural)-gorsContentLength = lens _gorsContentLength (\ s a -> s{_gorsContentLength = a}) . mapping _Nat---- | An optional @CacheControl@ header that allows the caller to control the object's cache behavior. Headers can be passed in as specified in the HTTP spec at <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9 https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9> . Headers with a custom user-defined value are also accepted.-gorsCacheControl :: Lens' GetObjectResponse (Maybe Text)-gorsCacheControl = lens _gorsCacheControl (\ s a -> s{_gorsCacheControl = a})---- | The date and time that the object was last modified.-gorsLastModified :: Lens' GetObjectResponse (Maybe UTCTime)-gorsLastModified = lens _gorsLastModified (\ s a -> s{_gorsLastModified = a}) . mapping _Time---- | The range of bytes to retrieve.-gorsContentRange :: Lens' GetObjectResponse (Maybe Text)-gorsContentRange = lens _gorsContentRange (\ s a -> s{_gorsContentRange = a})---- | The content type of the object.-gorsContentType :: Lens' GetObjectResponse (Maybe Text)-gorsContentType = lens _gorsContentType (\ s a -> s{_gorsContentType = a})---- | The HTML status code of the request. Status codes ranging from 200 to 299 indicate success. All other status codes indicate the type of error that occurred.-gorsStatusCode :: Lens' GetObjectResponse Int-gorsStatusCode = lens _gorsStatusCode (\ s a -> s{_gorsStatusCode = a})---- | The bytes of the object.-gorsBody :: Lens' GetObjectResponse RsBody-gorsBody = lens _gorsBody (\ s a -> s{_gorsBody = a})

@@ -1,152 +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.MediaStoreData.ListItems--- 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)------ Provides a list of metadata entries about folders and objects in the specified folder.-------module Network.AWS.MediaStoreData.ListItems-    (-    -- * Creating a Request-      listItems-    , ListItems-    -- * Request Lenses-    , liPath-    , liNextToken-    , liMaxResults--    -- * Destructuring the Response-    , listItemsResponse-    , ListItemsResponse-    -- * Response Lenses-    , lirsItems-    , lirsNextToken-    , lirsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.MediaStoreData.Types-import Network.AWS.MediaStoreData.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'listItems' smart constructor.-data ListItems = ListItems'-  { _liPath       :: !(Maybe Text)-  , _liNextToken  :: !(Maybe Text)-  , _liMaxResults :: !(Maybe Nat)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListItems' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'liPath' - The path in the container from which to retrieve items. Format: <folder name>/<folder name>/<file name>------ * 'liNextToken' - The @NextToken@ received in the @ListItemsResponse@ for the same container and path. Tokens expire after 15 minutes.------ * 'liMaxResults' - The maximum results to return. The service might return fewer results.-listItems-    :: ListItems-listItems =-  ListItems'-    {_liPath = Nothing, _liNextToken = Nothing, _liMaxResults = Nothing}----- | The path in the container from which to retrieve items. Format: <folder name>/<folder name>/<file name>-liPath :: Lens' ListItems (Maybe Text)-liPath = lens _liPath (\ s a -> s{_liPath = a})---- | The @NextToken@ received in the @ListItemsResponse@ for the same container and path. Tokens expire after 15 minutes.-liNextToken :: Lens' ListItems (Maybe Text)-liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a})---- | The maximum results to return. The service might return fewer results.-liMaxResults :: Lens' ListItems (Maybe Natural)-liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . mapping _Nat--instance AWSRequest ListItems where-        type Rs ListItems = ListItemsResponse-        request = get mediaStoreData-        response-          = receiveJSON-              (\ s h x ->-                 ListItemsResponse' <$>-                   (x .?> "Items" .!@ mempty) <*> (x .?> "NextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListItems where--instance NFData ListItems where--instance ToHeaders ListItems where-        toHeaders = const mempty--instance ToPath ListItems where-        toPath = const "/"--instance ToQuery ListItems where-        toQuery ListItems'{..}-          = mconcat-              ["Path" =: _liPath, "NextToken" =: _liNextToken,-               "MaxResults" =: _liMaxResults]---- | /See:/ 'listItemsResponse' smart constructor.-data ListItemsResponse = ListItemsResponse'-  { _lirsItems          :: !(Maybe [Item])-  , _lirsNextToken      :: !(Maybe Text)-  , _lirsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListItemsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lirsItems' - Metadata entries for the folders and objects at the requested path.------ * 'lirsNextToken' - The @NextToken@ used to request the next page of results using @ListItems@ .------ * 'lirsResponseStatus' - -- | The response status code.-listItemsResponse-    :: Int -- ^ 'lirsResponseStatus'-    -> ListItemsResponse-listItemsResponse pResponseStatus_ =-  ListItemsResponse'-    { _lirsItems = Nothing-    , _lirsNextToken = Nothing-    , _lirsResponseStatus = pResponseStatus_-    }----- | Metadata entries for the folders and objects at the requested path.-lirsItems :: Lens' ListItemsResponse [Item]-lirsItems = lens _lirsItems (\ s a -> s{_lirsItems = a}) . _Default . _Coerce---- | The @NextToken@ used to request the next page of results using @ListItems@ .-lirsNextToken :: Lens' ListItemsResponse (Maybe Text)-lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a})---- | -- | The response status code.-lirsResponseStatus :: Lens' ListItemsResponse Int-lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a})--instance NFData ListItemsResponse where

@@ -1,185 +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.MediaStoreData.PutObject--- 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)------ Uploads an object to the specified path. Object sizes are limited to 10 MB.-------module Network.AWS.MediaStoreData.PutObject-    (-    -- * Creating a Request-      putObject-    , PutObject-    -- * Request Lenses-    , poStorageClass-    , poCacheControl-    , poContentType-    , poPath-    , poBody--    -- * Destructuring the Response-    , putObjectResponse-    , PutObjectResponse-    -- * Response Lenses-    , porsETag-    , porsStorageClass-    , porsContentSHA256-    , porsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.MediaStoreData.Types-import Network.AWS.MediaStoreData.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'putObject' smart constructor.-data PutObject = PutObject'-  { _poStorageClass :: !(Maybe StorageClass)-  , _poCacheControl :: !(Maybe Text)-  , _poContentType  :: !(Maybe Text)-  , _poPath         :: !Text-  , _poBody         :: !HashedBody-  } deriving (Show, Generic)----- | Creates a value of 'PutObject' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'poStorageClass' - Indicates the storage class of a @Put@ request. Defaults to high-performance temporal storage class, and objects are persisted into durable storage shortly after being received.------ * 'poCacheControl' - An optional @CacheControl@ header that allows the caller to control the object's cache behavior. Headers can be passed in as specified in the HTTP at <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9 https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9> . Headers with a custom user-defined value are also accepted.------ * 'poContentType' - The content type of the object.------ * 'poPath' - The path (including the file name) where the object is stored in the container. Format: <folder name>/<folder name>/<file name> For example, to upload the file @mlaw.avi@ to the folder path @premium\canada@ in the container @movies@ , enter the path @premium/canada/mlaw.avi@ . Do not include the container name in this path. If the path includes any folders that don't exist yet, the service creates them. For example, suppose you have an existing @premium/usa@ subfolder. If you specify @premium/canada@ , the service creates a @canada@ subfolder in the @premium@ folder. You then have two subfolders, @usa@ and @canada@ , in the @premium@ folder.  There is no correlation between the path to the source and the path (folders) in the container in AWS Elemental MediaStore. For more information about folders and how they exist in a container, see the <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide> . The file name is the name that is assigned to the file that you upload. The file can have the same name inside and outside of AWS Elemental MediaStore, or it can have the same name. The file name can include or omit an extension.------ * 'poBody' - The bytes to be stored.-putObject-    :: Text -- ^ 'poPath'-    -> HashedBody -- ^ 'poBody'-    -> PutObject-putObject pPath_ pBody_ =-  PutObject'-    { _poStorageClass = Nothing-    , _poCacheControl = Nothing-    , _poContentType = Nothing-    , _poPath = pPath_-    , _poBody = pBody_-    }----- | Indicates the storage class of a @Put@ request. Defaults to high-performance temporal storage class, and objects are persisted into durable storage shortly after being received.-poStorageClass :: Lens' PutObject (Maybe StorageClass)-poStorageClass = lens _poStorageClass (\ s a -> s{_poStorageClass = a})---- | An optional @CacheControl@ header that allows the caller to control the object's cache behavior. Headers can be passed in as specified in the HTTP at <https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9 https://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9> . Headers with a custom user-defined value are also accepted.-poCacheControl :: Lens' PutObject (Maybe Text)-poCacheControl = lens _poCacheControl (\ s a -> s{_poCacheControl = a})---- | The content type of the object.-poContentType :: Lens' PutObject (Maybe Text)-poContentType = lens _poContentType (\ s a -> s{_poContentType = a})---- | The path (including the file name) where the object is stored in the container. Format: <folder name>/<folder name>/<file name> For example, to upload the file @mlaw.avi@ to the folder path @premium\canada@ in the container @movies@ , enter the path @premium/canada/mlaw.avi@ . Do not include the container name in this path. If the path includes any folders that don't exist yet, the service creates them. For example, suppose you have an existing @premium/usa@ subfolder. If you specify @premium/canada@ , the service creates a @canada@ subfolder in the @premium@ folder. You then have two subfolders, @usa@ and @canada@ , in the @premium@ folder.  There is no correlation between the path to the source and the path (folders) in the container in AWS Elemental MediaStore. For more information about folders and how they exist in a container, see the <http://docs.aws.amazon.com/mediastore/latest/ug/ AWS Elemental MediaStore User Guide> . The file name is the name that is assigned to the file that you upload. The file can have the same name inside and outside of AWS Elemental MediaStore, or it can have the same name. The file name can include or omit an extension.-poPath :: Lens' PutObject Text-poPath = lens _poPath (\ s a -> s{_poPath = a})---- | The bytes to be stored.-poBody :: Lens' PutObject HashedBody-poBody = lens _poBody (\ s a -> s{_poBody = a})--instance AWSRequest PutObject where-        type Rs PutObject = PutObjectResponse-        request = putBody mediaStoreData-        response-          = receiveJSON-              (\ s h x ->-                 PutObjectResponse' <$>-                   (x .?> "ETag") <*> (x .?> "StorageClass") <*>-                     (x .?> "ContentSHA256")-                     <*> (pure (fromEnum s)))--instance ToBody PutObject where-        toBody = toBody . _poBody--instance ToHeaders PutObject where-        toHeaders PutObject'{..}-          = mconcat-              ["x-amz-storage-class" =# _poStorageClass,-               "Cache-Control" =# _poCacheControl,-               "Content-Type" =# _poContentType]--instance ToPath PutObject where-        toPath PutObject'{..} = mconcat ["/", toBS _poPath]--instance ToQuery PutObject where-        toQuery = const mempty---- | /See:/ 'putObjectResponse' smart constructor.-data PutObjectResponse = PutObjectResponse'-  { _porsETag           :: !(Maybe Text)-  , _porsStorageClass   :: !(Maybe StorageClass)-  , _porsContentSHA256  :: !(Maybe Text)-  , _porsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PutObjectResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'porsETag' - Unique identifier of the object in the container.------ * 'porsStorageClass' - The storage class where the object was persisted. Should be “Temporal”.------ * 'porsContentSHA256' - The SHA256 digest of the object that is persisted.------ * 'porsResponseStatus' - -- | The response status code.-putObjectResponse-    :: Int -- ^ 'porsResponseStatus'-    -> PutObjectResponse-putObjectResponse pResponseStatus_ =-  PutObjectResponse'-    { _porsETag = Nothing-    , _porsStorageClass = Nothing-    , _porsContentSHA256 = Nothing-    , _porsResponseStatus = pResponseStatus_-    }----- | Unique identifier of the object in the container.-porsETag :: Lens' PutObjectResponse (Maybe Text)-porsETag = lens _porsETag (\ s a -> s{_porsETag = a})---- | The storage class where the object was persisted. Should be “Temporal”.-porsStorageClass :: Lens' PutObjectResponse (Maybe StorageClass)-porsStorageClass = lens _porsStorageClass (\ s a -> s{_porsStorageClass = a})---- | The SHA256 digest of the object that is persisted.-porsContentSHA256 :: Lens' PutObjectResponse (Maybe Text)-porsContentSHA256 = lens _porsContentSHA256 (\ s a -> s{_porsContentSHA256 = a})---- | -- | The response status code.-porsResponseStatus :: Lens' PutObjectResponse Int-porsResponseStatus = lens _porsResponseStatus (\ s a -> s{_porsResponseStatus = a})--instance NFData PutObjectResponse where

@@ -1,116 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MediaStoreData.Types--- 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)----module Network.AWS.MediaStoreData.Types-    (-    -- * Service Configuration-      mediaStoreData--    -- * Errors-    , _RequestedRangeNotSatisfiableException-    , _InternalServerError-    , _ContainerNotFoundException-    , _ObjectNotFoundException--    -- * ItemType-    , ItemType (..)--    -- * StorageClass-    , StorageClass (..)--    -- * Item-    , Item-    , item-    , iETag-    , iContentLength-    , iName-    , iType-    , iLastModified-    , iContentType-    ) where--import Network.AWS.Lens-import Network.AWS.MediaStoreData.Types.Product-import Network.AWS.MediaStoreData.Types.Sum-import Network.AWS.Prelude-import Network.AWS.Sign.V4---- | API version @2017-09-01@ of the Amazon Elemental MediaStore Data Plane SDK configuration.-mediaStoreData :: Service-mediaStoreData =-  Service-    { _svcAbbrev = "MediaStoreData"-    , _svcSigner = v4-    , _svcPrefix = "data.mediastore"-    , _svcVersion = "2017-09-01"-    , _svcEndpoint = defaultEndpoint mediaStoreData-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseJSONError "MediaStoreData"-    , _svcRetry = retry-    }-  where-    retry =-      Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }-    check e-      | has (hasCode "ThrottledException" . hasStatus 400) e =-        Just "throttled_exception"-      | has (hasStatus 429) e = Just "too_many_requests"-      | has (hasCode "ThrottlingException" . hasStatus 400) e =-        Just "throttling_exception"-      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-      | has (hasStatus 504) e = Just "gateway_timeout"-      | has (hasCode "RequestThrottledException" . hasStatus 400) e =-        Just "request_throttled_exception"-      | has (hasStatus 502) e = Just "bad_gateway"-      | has (hasStatus 503) e = Just "service_unavailable"-      | has (hasStatus 500) e = Just "general_server_error"-      | has (hasStatus 509) e = Just "limit_exceeded"-      | otherwise = Nothing----- | The requested content range is not valid.-------_RequestedRangeNotSatisfiableException :: AsError a => Getting (First ServiceError) a ServiceError-_RequestedRangeNotSatisfiableException =-  _MatchServiceError mediaStoreData "RequestedRangeNotSatisfiableException" .-  hasStatus 416----- | The service is temporarily unavailable.-------_InternalServerError :: AsError a => Getting (First ServiceError) a ServiceError-_InternalServerError = _MatchServiceError mediaStoreData "InternalServerError"----- | The specified container was not found for the specified account.-------_ContainerNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError-_ContainerNotFoundException =-  _MatchServiceError mediaStoreData "ContainerNotFoundException" . hasStatus 404----- | Could not perform an operation on an object that does not exist.-------_ObjectNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError-_ObjectNotFoundException =-  _MatchServiceError mediaStoreData "ObjectNotFoundException" . hasStatus 404-

@@ -1,104 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MediaStoreData.Types.Product--- 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)----module Network.AWS.MediaStoreData.Types.Product where--import Network.AWS.Lens-import Network.AWS.MediaStoreData.Types.Sum-import Network.AWS.Prelude---- | A metadata entry for a folder or object.------------ /See:/ 'item' smart constructor.-data Item = Item'-  { _iETag          :: !(Maybe Text)-  , _iContentLength :: !(Maybe Nat)-  , _iName          :: !(Maybe Text)-  , _iType          :: !(Maybe ItemType)-  , _iLastModified  :: !(Maybe POSIX)-  , _iContentType   :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Item' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iETag' - The ETag that represents a unique instance of the item.------ * 'iContentLength' - The length of the item in bytes.------ * 'iName' - The name of the item.------ * 'iType' - The item type (folder or object).------ * 'iLastModified' - The date and time that the item was last modified.------ * 'iContentType' - The content type of the item.-item-    :: Item-item =-  Item'-    { _iETag = Nothing-    , _iContentLength = Nothing-    , _iName = Nothing-    , _iType = Nothing-    , _iLastModified = Nothing-    , _iContentType = Nothing-    }----- | The ETag that represents a unique instance of the item.-iETag :: Lens' Item (Maybe Text)-iETag = lens _iETag (\ s a -> s{_iETag = a})---- | The length of the item in bytes.-iContentLength :: Lens' Item (Maybe Natural)-iContentLength = lens _iContentLength (\ s a -> s{_iContentLength = a}) . mapping _Nat---- | The name of the item.-iName :: Lens' Item (Maybe Text)-iName = lens _iName (\ s a -> s{_iName = a})---- | The item type (folder or object).-iType :: Lens' Item (Maybe ItemType)-iType = lens _iType (\ s a -> s{_iType = a})---- | The date and time that the item was last modified.-iLastModified :: Lens' Item (Maybe UTCTime)-iLastModified = lens _iLastModified (\ s a -> s{_iLastModified = a}) . mapping _Time---- | The content type of the item.-iContentType :: Lens' Item (Maybe Text)-iContentType = lens _iContentType (\ s a -> s{_iContentType = a})--instance FromJSON Item where-        parseJSON-          = withObject "Item"-              (\ x ->-                 Item' <$>-                   (x .:? "ETag") <*> (x .:? "ContentLength") <*>-                     (x .:? "Name")-                     <*> (x .:? "Type")-                     <*> (x .:? "LastModified")-                     <*> (x .:? "ContentType"))--instance Hashable Item where--instance NFData Item where

@@ -1,74 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MediaStoreData.Types.Sum--- 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)----module Network.AWS.MediaStoreData.Types.Sum where--import Network.AWS.Prelude--data ItemType-  = TypeFolder-  | TypeObject-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ItemType where-    parser = takeLowerText >>= \case-        "folder" -> pure TypeFolder-        "object" -> pure TypeObject-        e -> fromTextError $ "Failure parsing ItemType from value: '" <> e-           <> "'. Accepted values: folder, object"--instance ToText ItemType where-    toText = \case-        TypeFolder -> "FOLDER"-        TypeObject -> "OBJECT"--instance Hashable     ItemType-instance NFData       ItemType-instance ToByteString ItemType-instance ToQuery      ItemType-instance ToHeader     ItemType--instance FromJSON ItemType where-    parseJSON = parseJSONText "ItemType"--data StorageClass =-  Temporal-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText StorageClass where-    parser = takeLowerText >>= \case-        "temporal" -> pure Temporal-        e -> fromTextError $ "Failure parsing StorageClass from value: '" <> e-           <> "'. Accepted values: temporal"--instance ToText StorageClass where-    toText = \case-        Temporal -> "TEMPORAL"--instance Hashable     StorageClass-instance NFData       StorageClass-instance ToByteString StorageClass-instance ToQuery      StorageClass-instance ToHeader     StorageClass--instance ToJSON StorageClass where-    toJSON = toJSONText--instance FromJSON StorageClass where-    parseJSON = parseJSONText "StorageClass"

@@ -1,21 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MediaStoreData.Waiters--- 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)----module Network.AWS.MediaStoreData.Waiters where--import Network.AWS.Lens-import Network.AWS.MediaStoreData.Types-import Network.AWS.Prelude-import Network.AWS.Waiter

@@ -2,20 +2,22 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2018 Brendan Hay+-- Copyright   : (c) 2013-2023 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Maintainer  : Brendan Hay -- Stability   : auto-generated -- Portability : non-portable (GHC extensions)--- module Main (main) where +import Test.Amazonka.MediaStoreData+import Test.Amazonka.MediaStoreData.Internal import Test.Tasty-import Test.AWS.MediaStoreData-import Test.AWS.MediaStoreData.Internal  main :: IO ()-main = defaultMain $ testGroup "MediaStoreData"-    [ testGroup "tests"    tests-    , testGroup "fixtures" fixtures-    ]+main =+  defaultMain $+    testGroup+      "MediaStoreData"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]

@@ -1,117 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-orphans        #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Test.AWS.Gen.MediaStoreData--- 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)----module Test.AWS.Gen.MediaStoreData where--import Data.Proxy-import Network.AWS.MediaStoreData-import Test.AWS.Fixture-import Test.AWS.MediaStoreData.Internal-import Test.AWS.Prelude-import Test.Tasty---- Auto-generated: the actual test selection needs to be manually placed into--- the top-level so that real test data can be incrementally added.------ This commented snippet is what the entire set should look like:---- fixtures :: TestTree--- fixtures =---     [ testGroup "request"---         [ requestPutObject $---             putObject------         , requestDeleteObject $---             deleteObject------         , requestDescribeObject $---             describeObject------         , requestGetObject $---             getObject------         , requestListItems $---             listItems------           ]----     , testGroup "response"---         [ responsePutObject $---             putObjectResponse------         , responseDeleteObject $---             deleteObjectResponse------         , responseDescribeObject $---             describeObjectResponse------         , responseGetObject $---             getObjectResponse------         , responseListItems $---             listItemsResponse------           ]---     ]---- Requests--requestDeleteObject :: DeleteObject -> TestTree-requestDeleteObject = req-    "DeleteObject"-    "fixture/DeleteObject.yaml"--requestDescribeObject :: DescribeObject -> TestTree-requestDescribeObject = req-    "DescribeObject"-    "fixture/DescribeObject.yaml"--requestGetObject :: GetObject -> TestTree-requestGetObject = req-    "GetObject"-    "fixture/GetObject.yaml"--requestListItems :: ListItems -> TestTree-requestListItems = req-    "ListItems"-    "fixture/ListItems.yaml"---- Responses--responsePutObject :: PutObjectResponse -> TestTree-responsePutObject = res-    "PutObjectResponse"-    "fixture/PutObjectResponse.proto"-    mediaStoreData-    (Proxy :: Proxy PutObject)--responseDeleteObject :: DeleteObjectResponse -> TestTree-responseDeleteObject = res-    "DeleteObjectResponse"-    "fixture/DeleteObjectResponse.proto"-    mediaStoreData-    (Proxy :: Proxy DeleteObject)--responseDescribeObject :: DescribeObjectResponse -> TestTree-responseDescribeObject = res-    "DescribeObjectResponse"-    "fixture/DescribeObjectResponse.proto"-    mediaStoreData-    (Proxy :: Proxy DescribeObject)--responseListItems :: ListItemsResponse -> TestTree-responseListItems = res-    "ListItemsResponse"-    "fixture/ListItemsResponse.proto"-    mediaStoreData-    (Proxy :: Proxy ListItems)

@@ -1,20 +0,0 @@--- |--- Module      : Test.AWS.MediaStoreData--- 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)----module Test.AWS.MediaStoreData-    ( tests-    , fixtures-    ) where--import Test.Tasty (TestTree)--tests :: [TestTree]-tests = []--fixtures :: [TestTree]-fixtures = []

@@ -1,9 +0,0 @@--- |--- Module      : Test.AWS.MediaStoreData.Internal--- 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)----module Test.AWS.MediaStoreData.Internal where

@@ -0,0 +1,124 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.Amazonka.Gen.MediaStoreData+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Gen.MediaStoreData where++import Amazonka.MediaStoreData+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.MediaStoreData.Internal+import Test.Amazonka.Prelude+import Test.Tasty++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ requestDeleteObject $+--             newDeleteObject+--+--         , requestDescribeObject $+--             newDescribeObject+--+--         , requestGetObject $+--             newGetObject+--+--         , requestListItems $+--             newListItems+--+--         , requestPutObject $+--             newPutObject+--+--           ]++--     , testGroup "response"+--         [ responseDeleteObject $+--             newDeleteObjectResponse+--+--         , responseDescribeObject $+--             newDescribeObjectResponse+--+--         , responseGetObject $+--             newGetObjectResponse+--+--         , responseListItems $+--             newListItemsResponse+--+--         , responsePutObject $+--             newPutObjectResponse+--+--           ]+--     ]++-- Requests++requestDeleteObject :: DeleteObject -> TestTree+requestDeleteObject =+  req+    "DeleteObject"+    "fixture/DeleteObject.yaml"++requestDescribeObject :: DescribeObject -> TestTree+requestDescribeObject =+  req+    "DescribeObject"+    "fixture/DescribeObject.yaml"++requestGetObject :: GetObject -> TestTree+requestGetObject =+  req+    "GetObject"+    "fixture/GetObject.yaml"++requestListItems :: ListItems -> TestTree+requestListItems =+  req+    "ListItems"+    "fixture/ListItems.yaml"++-- Responses++responseDeleteObject :: DeleteObjectResponse -> TestTree+responseDeleteObject =+  res+    "DeleteObjectResponse"+    "fixture/DeleteObjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteObject)++responseDescribeObject :: DescribeObjectResponse -> TestTree+responseDescribeObject =+  res+    "DescribeObjectResponse"+    "fixture/DescribeObjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeObject)++responseListItems :: ListItemsResponse -> TestTree+responseListItems =+  res+    "ListItemsResponse"+    "fixture/ListItemsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListItems)++responsePutObject :: PutObjectResponse -> TestTree+responsePutObject =+  res+    "PutObjectResponse"+    "fixture/PutObjectResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy PutObject)

@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.MediaStoreData+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.MediaStoreData+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []

@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.MediaStoreData.Internal+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.MediaStoreData.Internal where