amazonka-importexport 1.6.1 → 2.0

raw patch · 40 files changed

+2776/−2117 lines, 40 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-importexport.cabal +81/−80
• fixture/CancelJob.yaml +10/−0
• fixture/CreateJob.yaml +10/−0
• fixture/GetShippingLabel.yaml +10/−0
• fixture/GetStatus.yaml +10/−0
• fixture/ListJobs.yaml +10/−0
• fixture/UpdateJob.yaml +10/−0
• gen/Amazonka/ImportExport.hs +180/−0
• gen/Amazonka/ImportExport/CancelJob.hs +173/−0
• gen/Amazonka/ImportExport/CreateJob.hs +276/−0
• gen/Amazonka/ImportExport/GetShippingLabel.hs +302/−0
• gen/Amazonka/ImportExport/GetStatus.hs +344/−0
• gen/Amazonka/ImportExport/Lens.hs +115/−0
• gen/Amazonka/ImportExport/ListJobs.hs +229/−0
• gen/Amazonka/ImportExport/Types.hs +287/−0
• gen/Amazonka/ImportExport/Types/Artifact.hs +79/−0
• gen/Amazonka/ImportExport/Types/Job.hs +109/−0
• gen/Amazonka/ImportExport/Types/JobType.hs +69/−0
• gen/Amazonka/ImportExport/UpdateJob.hs +248/−0
• gen/Amazonka/ImportExport/Waiters.hs +24/−0
• gen/Network/AWS/ImportExport.hs +0/−164
• gen/Network/AWS/ImportExport/CancelJob.hs +0/−135
• gen/Network/AWS/ImportExport/CreateJob.hs +0/−225
• gen/Network/AWS/ImportExport/GetShippingLabel.hs +0/−245
• gen/Network/AWS/ImportExport/GetStatus.hs +0/−289
• gen/Network/AWS/ImportExport/ListJobs.hs +0/−170
• gen/Network/AWS/ImportExport/Types.hs +0/−218
• gen/Network/AWS/ImportExport/Types/Product.hs +0/−124
• gen/Network/AWS/ImportExport/Types/Sum.hs +0/−48
• gen/Network/AWS/ImportExport/UpdateJob.hs +0/−194
• gen/Network/AWS/ImportExport/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/ImportExport.hs +0/−147
• test/Test/AWS/ImportExport.hs +0/−26
• test/Test/AWS/ImportExport/Internal.hs +0/−16
• test/Test/Amazonka/Gen/ImportExport.hs +158/−0
• test/Test/Amazonka/ImportExport.hs +20/−0
• test/Test/Amazonka/ImportExport/Internal.hs +8/−0

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

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

@@ -1,91 +1,92 @@-name:                  amazonka-importexport-version:               1.6.1-synopsis:              Amazon Import/Export 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-importexport+version:            2.0+synopsis:           Amazon Import/Export 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.ImportExport" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2010-06-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.ImportExport.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.ImportExport" 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-importexport+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-importexport  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.ImportExport-        , Network.AWS.ImportExport.CancelJob-        , Network.AWS.ImportExport.CreateJob-        , Network.AWS.ImportExport.GetShippingLabel-        , Network.AWS.ImportExport.GetStatus-        , Network.AWS.ImportExport.ListJobs-        , Network.AWS.ImportExport.Types-        , Network.AWS.ImportExport.UpdateJob-        , Network.AWS.ImportExport.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.ImportExport.Types.Product-        , Network.AWS.ImportExport.Types.Sum+  exposed-modules:+    Amazonka.ImportExport+    Amazonka.ImportExport.CancelJob+    Amazonka.ImportExport.CreateJob+    Amazonka.ImportExport.GetShippingLabel+    Amazonka.ImportExport.GetStatus+    Amazonka.ImportExport.Lens+    Amazonka.ImportExport.ListJobs+    Amazonka.ImportExport.Types+    Amazonka.ImportExport.Types.Artifact+    Amazonka.ImportExport.Types.Job+    Amazonka.ImportExport.Types.JobType+    Amazonka.ImportExport.UpdateJob+    Amazonka.ImportExport.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-importexport-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.ImportExport-        , Test.AWS.Gen.ImportExport-        , Test.AWS.ImportExport.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.ImportExport+    Test.Amazonka.ImportExport+    Test.Amazonka.ImportExport.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-importexport-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core          >=2.0 && <2.1+    , amazonka-importexport+    , amazonka-test          >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

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

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

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

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

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

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

@@ -0,0 +1,180 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.ImportExport+-- 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 @2010-06-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- AWS Import\/Export Service AWS Import\/Export accelerates transferring+-- large amounts of data between the AWS cloud and portable storage devices+-- that you mail to us. AWS Import\/Export transfers data directly onto and+-- off of your storage devices using Amazon\'s high-speed internal network+-- and bypassing the Internet. For large data sets, AWS Import\/Export is+-- often faster than Internet transfer and more cost effective than+-- upgrading your connectivity.+module Amazonka.ImportExport+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** BucketPermissionException+    _BucketPermissionException,++    -- ** CanceledJobIdException+    _CanceledJobIdException,++    -- ** CreateJobQuotaExceededException+    _CreateJobQuotaExceededException,++    -- ** ExpiredJobIdException+    _ExpiredJobIdException,++    -- ** InvalidAccessKeyIdException+    _InvalidAccessKeyIdException,++    -- ** InvalidAddressException+    _InvalidAddressException,++    -- ** InvalidCustomsException+    _InvalidCustomsException,++    -- ** InvalidFileSystemException+    _InvalidFileSystemException,++    -- ** InvalidJobIdException+    _InvalidJobIdException,++    -- ** InvalidManifestFieldException+    _InvalidManifestFieldException,++    -- ** InvalidParameterException+    _InvalidParameterException,++    -- ** InvalidVersionException+    _InvalidVersionException,++    -- ** MalformedManifestException+    _MalformedManifestException,++    -- ** MissingCustomsException+    _MissingCustomsException,++    -- ** MissingManifestFieldException+    _MissingManifestFieldException,++    -- ** MissingParameterException+    _MissingParameterException,++    -- ** MultipleRegionsException+    _MultipleRegionsException,++    -- ** NoSuchBucketException+    _NoSuchBucketException,++    -- ** UnableToCancelJobIdException+    _UnableToCancelJobIdException,++    -- ** UnableToUpdateJobIdException+    _UnableToUpdateJobIdException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CancelJob+    CancelJob (CancelJob'),+    newCancelJob,+    CancelJobResponse (CancelJobResponse'),+    newCancelJobResponse,++    -- ** CreateJob+    CreateJob (CreateJob'),+    newCreateJob,+    CreateJobResponse (CreateJobResponse'),+    newCreateJobResponse,++    -- ** GetShippingLabel+    GetShippingLabel (GetShippingLabel'),+    newGetShippingLabel,+    GetShippingLabelResponse (GetShippingLabelResponse'),+    newGetShippingLabelResponse,++    -- ** GetStatus+    GetStatus (GetStatus'),+    newGetStatus,+    GetStatusResponse (GetStatusResponse'),+    newGetStatusResponse,++    -- ** ListJobs (Paginated)+    ListJobs (ListJobs'),+    newListJobs,+    ListJobsResponse (ListJobsResponse'),+    newListJobsResponse,++    -- ** UpdateJob+    UpdateJob (UpdateJob'),+    newUpdateJob,+    UpdateJobResponse (UpdateJobResponse'),+    newUpdateJobResponse,++    -- * Types++    -- ** JobType+    JobType (..),++    -- ** Artifact+    Artifact (Artifact'),+    newArtifact,++    -- ** Job+    Job (Job'),+    newJob,+  )+where++import Amazonka.ImportExport.CancelJob+import Amazonka.ImportExport.CreateJob+import Amazonka.ImportExport.GetShippingLabel+import Amazonka.ImportExport.GetStatus+import Amazonka.ImportExport.Lens+import Amazonka.ImportExport.ListJobs+import Amazonka.ImportExport.Types+import Amazonka.ImportExport.UpdateJob+import Amazonka.ImportExport.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 'ImportExport'.++-- $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,173 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ImportExport.CancelJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation cancels a specified job. Only the job owner can cancel+-- it. The operation fails if the job has already started or is complete.+module Amazonka.ImportExport.CancelJob+  ( -- * Creating a Request+    CancelJob (..),+    newCancelJob,++    -- * Request Lenses+    cancelJob_aPIVersion,+    cancelJob_jobId,++    -- * Destructuring the Response+    CancelJobResponse (..),+    newCancelJobResponse,++    -- * Response Lenses+    cancelJobResponse_success,+    cancelJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ImportExport.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Input structure for the CancelJob operation.+--+-- /See:/ 'newCancelJob' smart constructor.+data CancelJob = CancelJob'+  { aPIVersion :: Prelude.Maybe Prelude.Text,+    jobId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelJob' 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:+--+-- 'aPIVersion', 'cancelJob_aPIVersion' - Undocumented member.+--+-- 'jobId', 'cancelJob_jobId' - Undocumented member.+newCancelJob ::+  -- | 'jobId'+  Prelude.Text ->+  CancelJob+newCancelJob pJobId_ =+  CancelJob'+    { aPIVersion = Prelude.Nothing,+      jobId = pJobId_+    }++-- | Undocumented member.+cancelJob_aPIVersion :: Lens.Lens' CancelJob (Prelude.Maybe Prelude.Text)+cancelJob_aPIVersion = Lens.lens (\CancelJob' {aPIVersion} -> aPIVersion) (\s@CancelJob' {} a -> s {aPIVersion = a} :: CancelJob)++-- | Undocumented member.+cancelJob_jobId :: Lens.Lens' CancelJob Prelude.Text+cancelJob_jobId = Lens.lens (\CancelJob' {jobId} -> jobId) (\s@CancelJob' {} a -> s {jobId = a} :: CancelJob)++instance Core.AWSRequest CancelJob where+  type AWSResponse CancelJob = CancelJobResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CancelJobResult"+      ( \s h x ->+          CancelJobResponse'+            Prelude.<$> (x Data..@? "Success")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CancelJob where+  hashWithSalt _salt CancelJob' {..} =+    _salt+      `Prelude.hashWithSalt` aPIVersion+      `Prelude.hashWithSalt` jobId++instance Prelude.NFData CancelJob where+  rnf CancelJob' {..} =+    Prelude.rnf aPIVersion+      `Prelude.seq` Prelude.rnf jobId++instance Data.ToHeaders CancelJob where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CancelJob where+  toPath = Prelude.const "/"++instance Data.ToQuery CancelJob where+  toQuery CancelJob' {..} =+    Prelude.mconcat+      [ "Operation=CancelJob",+        "Action" Data.=: ("CancelJob" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-06-01" :: Prelude.ByteString),+        "APIVersion" Data.=: aPIVersion,+        "JobId" Data.=: jobId+      ]++-- | Output structure for the CancelJob operation.+--+-- /See:/ 'newCancelJobResponse' smart constructor.+data CancelJobResponse = CancelJobResponse'+  { success :: Prelude.Maybe Prelude.Bool,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelJobResponse' 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:+--+-- 'success', 'cancelJobResponse_success' - Undocumented member.+--+-- 'httpStatus', 'cancelJobResponse_httpStatus' - The response's http status code.+newCancelJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CancelJobResponse+newCancelJobResponse pHttpStatus_ =+  CancelJobResponse'+    { success = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+cancelJobResponse_success :: Lens.Lens' CancelJobResponse (Prelude.Maybe Prelude.Bool)+cancelJobResponse_success = Lens.lens (\CancelJobResponse' {success} -> success) (\s@CancelJobResponse' {} a -> s {success = a} :: CancelJobResponse)++-- | The response's http status code.+cancelJobResponse_httpStatus :: Lens.Lens' CancelJobResponse Prelude.Int+cancelJobResponse_httpStatus = Lens.lens (\CancelJobResponse' {httpStatus} -> httpStatus) (\s@CancelJobResponse' {} a -> s {httpStatus = a} :: CancelJobResponse)++instance Prelude.NFData CancelJobResponse where+  rnf CancelJobResponse' {..} =+    Prelude.rnf success+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,276 @@+{-# 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.ImportExport.CreateJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation initiates the process of scheduling an upload or download+-- of your data. You include in the request a manifest that describes the+-- data transfer specifics. The response to the request includes a job ID,+-- which you can use in other operations, a signature that you use to+-- identify your storage device, and the address where you should ship your+-- storage device.+module Amazonka.ImportExport.CreateJob+  ( -- * Creating a Request+    CreateJob (..),+    newCreateJob,++    -- * Request Lenses+    createJob_aPIVersion,+    createJob_manifestAddendum,+    createJob_jobType,+    createJob_manifest,+    createJob_validateOnly,++    -- * Destructuring the Response+    CreateJobResponse (..),+    newCreateJobResponse,++    -- * Response Lenses+    createJobResponse_artifactList,+    createJobResponse_jobId,+    createJobResponse_jobType,+    createJobResponse_signature,+    createJobResponse_signatureFileContents,+    createJobResponse_warningMessage,+    createJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ImportExport.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Input structure for the CreateJob operation.+--+-- /See:/ 'newCreateJob' smart constructor.+data CreateJob = CreateJob'+  { aPIVersion :: Prelude.Maybe Prelude.Text,+    manifestAddendum :: Prelude.Maybe Prelude.Text,+    jobType :: JobType,+    manifest :: Prelude.Text,+    validateOnly :: Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateJob' 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:+--+-- 'aPIVersion', 'createJob_aPIVersion' - Undocumented member.+--+-- 'manifestAddendum', 'createJob_manifestAddendum' - Undocumented member.+--+-- 'jobType', 'createJob_jobType' - Undocumented member.+--+-- 'manifest', 'createJob_manifest' - Undocumented member.+--+-- 'validateOnly', 'createJob_validateOnly' - Undocumented member.+newCreateJob ::+  -- | 'jobType'+  JobType ->+  -- | 'manifest'+  Prelude.Text ->+  -- | 'validateOnly'+  Prelude.Bool ->+  CreateJob+newCreateJob pJobType_ pManifest_ pValidateOnly_ =+  CreateJob'+    { aPIVersion = Prelude.Nothing,+      manifestAddendum = Prelude.Nothing,+      jobType = pJobType_,+      manifest = pManifest_,+      validateOnly = pValidateOnly_+    }++-- | Undocumented member.+createJob_aPIVersion :: Lens.Lens' CreateJob (Prelude.Maybe Prelude.Text)+createJob_aPIVersion = Lens.lens (\CreateJob' {aPIVersion} -> aPIVersion) (\s@CreateJob' {} a -> s {aPIVersion = a} :: CreateJob)++-- | Undocumented member.+createJob_manifestAddendum :: Lens.Lens' CreateJob (Prelude.Maybe Prelude.Text)+createJob_manifestAddendum = Lens.lens (\CreateJob' {manifestAddendum} -> manifestAddendum) (\s@CreateJob' {} a -> s {manifestAddendum = a} :: CreateJob)++-- | Undocumented member.+createJob_jobType :: Lens.Lens' CreateJob JobType+createJob_jobType = Lens.lens (\CreateJob' {jobType} -> jobType) (\s@CreateJob' {} a -> s {jobType = a} :: CreateJob)++-- | Undocumented member.+createJob_manifest :: Lens.Lens' CreateJob Prelude.Text+createJob_manifest = Lens.lens (\CreateJob' {manifest} -> manifest) (\s@CreateJob' {} a -> s {manifest = a} :: CreateJob)++-- | Undocumented member.+createJob_validateOnly :: Lens.Lens' CreateJob Prelude.Bool+createJob_validateOnly = Lens.lens (\CreateJob' {validateOnly} -> validateOnly) (\s@CreateJob' {} a -> s {validateOnly = a} :: CreateJob)++instance Core.AWSRequest CreateJob where+  type AWSResponse CreateJob = CreateJobResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CreateJobResult"+      ( \s h x ->+          CreateJobResponse'+            Prelude.<$> ( x+                            Data..@? "ArtifactList"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (x Data..@? "JobId")+            Prelude.<*> (x Data..@? "JobType")+            Prelude.<*> (x Data..@? "Signature")+            Prelude.<*> (x Data..@? "SignatureFileContents")+            Prelude.<*> (x Data..@? "WarningMessage")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateJob where+  hashWithSalt _salt CreateJob' {..} =+    _salt+      `Prelude.hashWithSalt` aPIVersion+      `Prelude.hashWithSalt` manifestAddendum+      `Prelude.hashWithSalt` jobType+      `Prelude.hashWithSalt` manifest+      `Prelude.hashWithSalt` validateOnly++instance Prelude.NFData CreateJob where+  rnf CreateJob' {..} =+    Prelude.rnf aPIVersion+      `Prelude.seq` Prelude.rnf manifestAddendum+      `Prelude.seq` Prelude.rnf jobType+      `Prelude.seq` Prelude.rnf manifest+      `Prelude.seq` Prelude.rnf validateOnly++instance Data.ToHeaders CreateJob where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateJob where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateJob where+  toQuery CreateJob' {..} =+    Prelude.mconcat+      [ "Operation=CreateJob",+        "Action" Data.=: ("CreateJob" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-06-01" :: Prelude.ByteString),+        "APIVersion" Data.=: aPIVersion,+        "ManifestAddendum" Data.=: manifestAddendum,+        "JobType" Data.=: jobType,+        "Manifest" Data.=: manifest,+        "ValidateOnly" Data.=: validateOnly+      ]++-- | Output structure for the CreateJob operation.+--+-- /See:/ 'newCreateJobResponse' smart constructor.+data CreateJobResponse = CreateJobResponse'+  { artifactList :: Prelude.Maybe [Artifact],+    jobId :: Prelude.Maybe Prelude.Text,+    jobType :: Prelude.Maybe JobType,+    signature :: Prelude.Maybe Prelude.Text,+    signatureFileContents :: Prelude.Maybe Prelude.Text,+    warningMessage :: 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 'CreateJobResponse' 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:+--+-- 'artifactList', 'createJobResponse_artifactList' - Undocumented member.+--+-- 'jobId', 'createJobResponse_jobId' - Undocumented member.+--+-- 'jobType', 'createJobResponse_jobType' - Undocumented member.+--+-- 'signature', 'createJobResponse_signature' - Undocumented member.+--+-- 'signatureFileContents', 'createJobResponse_signatureFileContents' - Undocumented member.+--+-- 'warningMessage', 'createJobResponse_warningMessage' - Undocumented member.+--+-- 'httpStatus', 'createJobResponse_httpStatus' - The response's http status code.+newCreateJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateJobResponse+newCreateJobResponse pHttpStatus_ =+  CreateJobResponse'+    { artifactList = Prelude.Nothing,+      jobId = Prelude.Nothing,+      jobType = Prelude.Nothing,+      signature = Prelude.Nothing,+      signatureFileContents = Prelude.Nothing,+      warningMessage = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+createJobResponse_artifactList :: Lens.Lens' CreateJobResponse (Prelude.Maybe [Artifact])+createJobResponse_artifactList = Lens.lens (\CreateJobResponse' {artifactList} -> artifactList) (\s@CreateJobResponse' {} a -> s {artifactList = a} :: CreateJobResponse) Prelude.. Lens.mapping Lens.coerced++-- | Undocumented member.+createJobResponse_jobId :: Lens.Lens' CreateJobResponse (Prelude.Maybe Prelude.Text)+createJobResponse_jobId = Lens.lens (\CreateJobResponse' {jobId} -> jobId) (\s@CreateJobResponse' {} a -> s {jobId = a} :: CreateJobResponse)++-- | Undocumented member.+createJobResponse_jobType :: Lens.Lens' CreateJobResponse (Prelude.Maybe JobType)+createJobResponse_jobType = Lens.lens (\CreateJobResponse' {jobType} -> jobType) (\s@CreateJobResponse' {} a -> s {jobType = a} :: CreateJobResponse)++-- | Undocumented member.+createJobResponse_signature :: Lens.Lens' CreateJobResponse (Prelude.Maybe Prelude.Text)+createJobResponse_signature = Lens.lens (\CreateJobResponse' {signature} -> signature) (\s@CreateJobResponse' {} a -> s {signature = a} :: CreateJobResponse)++-- | Undocumented member.+createJobResponse_signatureFileContents :: Lens.Lens' CreateJobResponse (Prelude.Maybe Prelude.Text)+createJobResponse_signatureFileContents = Lens.lens (\CreateJobResponse' {signatureFileContents} -> signatureFileContents) (\s@CreateJobResponse' {} a -> s {signatureFileContents = a} :: CreateJobResponse)++-- | Undocumented member.+createJobResponse_warningMessage :: Lens.Lens' CreateJobResponse (Prelude.Maybe Prelude.Text)+createJobResponse_warningMessage = Lens.lens (\CreateJobResponse' {warningMessage} -> warningMessage) (\s@CreateJobResponse' {} a -> s {warningMessage = a} :: CreateJobResponse)++-- | The response's http status code.+createJobResponse_httpStatus :: Lens.Lens' CreateJobResponse Prelude.Int+createJobResponse_httpStatus = Lens.lens (\CreateJobResponse' {httpStatus} -> httpStatus) (\s@CreateJobResponse' {} a -> s {httpStatus = a} :: CreateJobResponse)++instance Prelude.NFData CreateJobResponse where+  rnf CreateJobResponse' {..} =+    Prelude.rnf artifactList+      `Prelude.seq` Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf jobType+      `Prelude.seq` Prelude.rnf signature+      `Prelude.seq` Prelude.rnf signatureFileContents+      `Prelude.seq` Prelude.rnf warningMessage+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,302 @@+{-# 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.ImportExport.GetShippingLabel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation generates a pre-paid UPS shipping label that you will use+-- to ship your device to AWS for processing.+module Amazonka.ImportExport.GetShippingLabel+  ( -- * Creating a Request+    GetShippingLabel (..),+    newGetShippingLabel,++    -- * Request Lenses+    getShippingLabel_aPIVersion,+    getShippingLabel_city,+    getShippingLabel_company,+    getShippingLabel_country,+    getShippingLabel_name,+    getShippingLabel_phoneNumber,+    getShippingLabel_postalCode,+    getShippingLabel_stateOrProvince,+    getShippingLabel_street1,+    getShippingLabel_street2,+    getShippingLabel_street3,+    getShippingLabel_jobIds,++    -- * Destructuring the Response+    GetShippingLabelResponse (..),+    newGetShippingLabelResponse,++    -- * Response Lenses+    getShippingLabelResponse_shippingLabelURL,+    getShippingLabelResponse_warning,+    getShippingLabelResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ImportExport.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetShippingLabel' smart constructor.+data GetShippingLabel = GetShippingLabel'+  { aPIVersion :: Prelude.Maybe Prelude.Text,+    city :: Prelude.Maybe Prelude.Text,+    company :: Prelude.Maybe Prelude.Text,+    country :: Prelude.Maybe Prelude.Text,+    name :: Prelude.Maybe Prelude.Text,+    phoneNumber :: Prelude.Maybe Prelude.Text,+    postalCode :: Prelude.Maybe Prelude.Text,+    stateOrProvince :: Prelude.Maybe Prelude.Text,+    street1 :: Prelude.Maybe Prelude.Text,+    street2 :: Prelude.Maybe Prelude.Text,+    street3 :: Prelude.Maybe Prelude.Text,+    jobIds :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetShippingLabel' 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:+--+-- 'aPIVersion', 'getShippingLabel_aPIVersion' - Undocumented member.+--+-- 'city', 'getShippingLabel_city' - Undocumented member.+--+-- 'company', 'getShippingLabel_company' - Undocumented member.+--+-- 'country', 'getShippingLabel_country' - Undocumented member.+--+-- 'name', 'getShippingLabel_name' - Undocumented member.+--+-- 'phoneNumber', 'getShippingLabel_phoneNumber' - Undocumented member.+--+-- 'postalCode', 'getShippingLabel_postalCode' - Undocumented member.+--+-- 'stateOrProvince', 'getShippingLabel_stateOrProvince' - Undocumented member.+--+-- 'street1', 'getShippingLabel_street1' - Undocumented member.+--+-- 'street2', 'getShippingLabel_street2' - Undocumented member.+--+-- 'street3', 'getShippingLabel_street3' - Undocumented member.+--+-- 'jobIds', 'getShippingLabel_jobIds' - Undocumented member.+newGetShippingLabel ::+  GetShippingLabel+newGetShippingLabel =+  GetShippingLabel'+    { aPIVersion = Prelude.Nothing,+      city = Prelude.Nothing,+      company = Prelude.Nothing,+      country = Prelude.Nothing,+      name = Prelude.Nothing,+      phoneNumber = Prelude.Nothing,+      postalCode = Prelude.Nothing,+      stateOrProvince = Prelude.Nothing,+      street1 = Prelude.Nothing,+      street2 = Prelude.Nothing,+      street3 = Prelude.Nothing,+      jobIds = Prelude.mempty+    }++-- | Undocumented member.+getShippingLabel_aPIVersion :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_aPIVersion = Lens.lens (\GetShippingLabel' {aPIVersion} -> aPIVersion) (\s@GetShippingLabel' {} a -> s {aPIVersion = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_city :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_city = Lens.lens (\GetShippingLabel' {city} -> city) (\s@GetShippingLabel' {} a -> s {city = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_company :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_company = Lens.lens (\GetShippingLabel' {company} -> company) (\s@GetShippingLabel' {} a -> s {company = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_country :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_country = Lens.lens (\GetShippingLabel' {country} -> country) (\s@GetShippingLabel' {} a -> s {country = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_name :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_name = Lens.lens (\GetShippingLabel' {name} -> name) (\s@GetShippingLabel' {} a -> s {name = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_phoneNumber :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_phoneNumber = Lens.lens (\GetShippingLabel' {phoneNumber} -> phoneNumber) (\s@GetShippingLabel' {} a -> s {phoneNumber = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_postalCode :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_postalCode = Lens.lens (\GetShippingLabel' {postalCode} -> postalCode) (\s@GetShippingLabel' {} a -> s {postalCode = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_stateOrProvince :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_stateOrProvince = Lens.lens (\GetShippingLabel' {stateOrProvince} -> stateOrProvince) (\s@GetShippingLabel' {} a -> s {stateOrProvince = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_street1 :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_street1 = Lens.lens (\GetShippingLabel' {street1} -> street1) (\s@GetShippingLabel' {} a -> s {street1 = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_street2 :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_street2 = Lens.lens (\GetShippingLabel' {street2} -> street2) (\s@GetShippingLabel' {} a -> s {street2 = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_street3 :: Lens.Lens' GetShippingLabel (Prelude.Maybe Prelude.Text)+getShippingLabel_street3 = Lens.lens (\GetShippingLabel' {street3} -> street3) (\s@GetShippingLabel' {} a -> s {street3 = a} :: GetShippingLabel)++-- | Undocumented member.+getShippingLabel_jobIds :: Lens.Lens' GetShippingLabel [Prelude.Text]+getShippingLabel_jobIds = Lens.lens (\GetShippingLabel' {jobIds} -> jobIds) (\s@GetShippingLabel' {} a -> s {jobIds = a} :: GetShippingLabel) Prelude.. Lens.coerced++instance Core.AWSRequest GetShippingLabel where+  type+    AWSResponse GetShippingLabel =+      GetShippingLabelResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "GetShippingLabelResult"+      ( \s h x ->+          GetShippingLabelResponse'+            Prelude.<$> (x Data..@? "ShippingLabelURL")+            Prelude.<*> (x Data..@? "Warning")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetShippingLabel where+  hashWithSalt _salt GetShippingLabel' {..} =+    _salt+      `Prelude.hashWithSalt` aPIVersion+      `Prelude.hashWithSalt` city+      `Prelude.hashWithSalt` company+      `Prelude.hashWithSalt` country+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` phoneNumber+      `Prelude.hashWithSalt` postalCode+      `Prelude.hashWithSalt` stateOrProvince+      `Prelude.hashWithSalt` street1+      `Prelude.hashWithSalt` street2+      `Prelude.hashWithSalt` street3+      `Prelude.hashWithSalt` jobIds++instance Prelude.NFData GetShippingLabel where+  rnf GetShippingLabel' {..} =+    Prelude.rnf aPIVersion+      `Prelude.seq` Prelude.rnf city+      `Prelude.seq` Prelude.rnf company+      `Prelude.seq` Prelude.rnf country+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf phoneNumber+      `Prelude.seq` Prelude.rnf postalCode+      `Prelude.seq` Prelude.rnf stateOrProvince+      `Prelude.seq` Prelude.rnf street1+      `Prelude.seq` Prelude.rnf street2+      `Prelude.seq` Prelude.rnf street3+      `Prelude.seq` Prelude.rnf jobIds++instance Data.ToHeaders GetShippingLabel where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetShippingLabel where+  toPath = Prelude.const "/"++instance Data.ToQuery GetShippingLabel where+  toQuery GetShippingLabel' {..} =+    Prelude.mconcat+      [ "Operation=GetShippingLabel",+        "Action"+          Data.=: ("GetShippingLabel" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-06-01" :: Prelude.ByteString),+        "APIVersion" Data.=: aPIVersion,+        "city" Data.=: city,+        "company" Data.=: company,+        "country" Data.=: country,+        "name" Data.=: name,+        "phoneNumber" Data.=: phoneNumber,+        "postalCode" Data.=: postalCode,+        "stateOrProvince" Data.=: stateOrProvince,+        "street1" Data.=: street1,+        "street2" Data.=: street2,+        "street3" Data.=: street3,+        "jobIds" Data.=: Data.toQueryList "member" jobIds+      ]++-- | /See:/ 'newGetShippingLabelResponse' smart constructor.+data GetShippingLabelResponse = GetShippingLabelResponse'+  { shippingLabelURL :: Prelude.Maybe Prelude.Text,+    warning :: 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 'GetShippingLabelResponse' 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:+--+-- 'shippingLabelURL', 'getShippingLabelResponse_shippingLabelURL' - Undocumented member.+--+-- 'warning', 'getShippingLabelResponse_warning' - Undocumented member.+--+-- 'httpStatus', 'getShippingLabelResponse_httpStatus' - The response's http status code.+newGetShippingLabelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetShippingLabelResponse+newGetShippingLabelResponse pHttpStatus_ =+  GetShippingLabelResponse'+    { shippingLabelURL =+        Prelude.Nothing,+      warning = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+getShippingLabelResponse_shippingLabelURL :: Lens.Lens' GetShippingLabelResponse (Prelude.Maybe Prelude.Text)+getShippingLabelResponse_shippingLabelURL = Lens.lens (\GetShippingLabelResponse' {shippingLabelURL} -> shippingLabelURL) (\s@GetShippingLabelResponse' {} a -> s {shippingLabelURL = a} :: GetShippingLabelResponse)++-- | Undocumented member.+getShippingLabelResponse_warning :: Lens.Lens' GetShippingLabelResponse (Prelude.Maybe Prelude.Text)+getShippingLabelResponse_warning = Lens.lens (\GetShippingLabelResponse' {warning} -> warning) (\s@GetShippingLabelResponse' {} a -> s {warning = a} :: GetShippingLabelResponse)++-- | The response's http status code.+getShippingLabelResponse_httpStatus :: Lens.Lens' GetShippingLabelResponse Prelude.Int+getShippingLabelResponse_httpStatus = Lens.lens (\GetShippingLabelResponse' {httpStatus} -> httpStatus) (\s@GetShippingLabelResponse' {} a -> s {httpStatus = a} :: GetShippingLabelResponse)++instance Prelude.NFData GetShippingLabelResponse where+  rnf GetShippingLabelResponse' {..} =+    Prelude.rnf shippingLabelURL+      `Prelude.seq` Prelude.rnf warning+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,344 @@+{-# 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.ImportExport.GetStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation returns information about a job, including where the job+-- is in the processing pipeline, the status of the results, and the+-- signature value associated with the job. You can only return information+-- about jobs you own.+module Amazonka.ImportExport.GetStatus+  ( -- * Creating a Request+    GetStatus (..),+    newGetStatus,++    -- * Request Lenses+    getStatus_aPIVersion,+    getStatus_jobId,++    -- * Destructuring the Response+    GetStatusResponse (..),+    newGetStatusResponse,++    -- * Response Lenses+    getStatusResponse_artifactList,+    getStatusResponse_carrier,+    getStatusResponse_creationDate,+    getStatusResponse_currentManifest,+    getStatusResponse_errorCount,+    getStatusResponse_jobId,+    getStatusResponse_jobType,+    getStatusResponse_locationCode,+    getStatusResponse_locationMessage,+    getStatusResponse_logBucket,+    getStatusResponse_logKey,+    getStatusResponse_progressCode,+    getStatusResponse_progressMessage,+    getStatusResponse_signature,+    getStatusResponse_signatureFileContents,+    getStatusResponse_trackingNumber,+    getStatusResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ImportExport.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Input structure for the GetStatus operation.+--+-- /See:/ 'newGetStatus' smart constructor.+data GetStatus = GetStatus'+  { aPIVersion :: Prelude.Maybe Prelude.Text,+    jobId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetStatus' 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:+--+-- 'aPIVersion', 'getStatus_aPIVersion' - Undocumented member.+--+-- 'jobId', 'getStatus_jobId' - Undocumented member.+newGetStatus ::+  -- | 'jobId'+  Prelude.Text ->+  GetStatus+newGetStatus pJobId_ =+  GetStatus'+    { aPIVersion = Prelude.Nothing,+      jobId = pJobId_+    }++-- | Undocumented member.+getStatus_aPIVersion :: Lens.Lens' GetStatus (Prelude.Maybe Prelude.Text)+getStatus_aPIVersion = Lens.lens (\GetStatus' {aPIVersion} -> aPIVersion) (\s@GetStatus' {} a -> s {aPIVersion = a} :: GetStatus)++-- | Undocumented member.+getStatus_jobId :: Lens.Lens' GetStatus Prelude.Text+getStatus_jobId = Lens.lens (\GetStatus' {jobId} -> jobId) (\s@GetStatus' {} a -> s {jobId = a} :: GetStatus)++instance Core.AWSRequest GetStatus where+  type AWSResponse GetStatus = GetStatusResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "GetStatusResult"+      ( \s h x ->+          GetStatusResponse'+            Prelude.<$> ( x+                            Data..@? "ArtifactList"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (x Data..@? "Carrier")+            Prelude.<*> (x Data..@? "CreationDate")+            Prelude.<*> (x Data..@? "CurrentManifest")+            Prelude.<*> (x Data..@? "ErrorCount")+            Prelude.<*> (x Data..@? "JobId")+            Prelude.<*> (x Data..@? "JobType")+            Prelude.<*> (x Data..@? "LocationCode")+            Prelude.<*> (x Data..@? "LocationMessage")+            Prelude.<*> (x Data..@? "LogBucket")+            Prelude.<*> (x Data..@? "LogKey")+            Prelude.<*> (x Data..@? "ProgressCode")+            Prelude.<*> (x Data..@? "ProgressMessage")+            Prelude.<*> (x Data..@? "Signature")+            Prelude.<*> (x Data..@? "SignatureFileContents")+            Prelude.<*> (x Data..@? "TrackingNumber")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetStatus where+  hashWithSalt _salt GetStatus' {..} =+    _salt+      `Prelude.hashWithSalt` aPIVersion+      `Prelude.hashWithSalt` jobId++instance Prelude.NFData GetStatus where+  rnf GetStatus' {..} =+    Prelude.rnf aPIVersion+      `Prelude.seq` Prelude.rnf jobId++instance Data.ToHeaders GetStatus where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetStatus where+  toPath = Prelude.const "/"++instance Data.ToQuery GetStatus where+  toQuery GetStatus' {..} =+    Prelude.mconcat+      [ "Operation=GetStatus",+        "Action" Data.=: ("GetStatus" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-06-01" :: Prelude.ByteString),+        "APIVersion" Data.=: aPIVersion,+        "JobId" Data.=: jobId+      ]++-- | Output structure for the GetStatus operation.+--+-- /See:/ 'newGetStatusResponse' smart constructor.+data GetStatusResponse = GetStatusResponse'+  { artifactList :: Prelude.Maybe [Artifact],+    carrier :: Prelude.Maybe Prelude.Text,+    creationDate :: Prelude.Maybe Data.ISO8601,+    currentManifest :: Prelude.Maybe Prelude.Text,+    errorCount :: Prelude.Maybe Prelude.Int,+    jobId :: Prelude.Maybe Prelude.Text,+    jobType :: Prelude.Maybe JobType,+    locationCode :: Prelude.Maybe Prelude.Text,+    locationMessage :: Prelude.Maybe Prelude.Text,+    logBucket :: Prelude.Maybe Prelude.Text,+    logKey :: Prelude.Maybe Prelude.Text,+    progressCode :: Prelude.Maybe Prelude.Text,+    progressMessage :: Prelude.Maybe Prelude.Text,+    signature :: Prelude.Maybe Prelude.Text,+    signatureFileContents :: Prelude.Maybe Prelude.Text,+    trackingNumber :: 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 'GetStatusResponse' 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:+--+-- 'artifactList', 'getStatusResponse_artifactList' - Undocumented member.+--+-- 'carrier', 'getStatusResponse_carrier' - Undocumented member.+--+-- 'creationDate', 'getStatusResponse_creationDate' - Undocumented member.+--+-- 'currentManifest', 'getStatusResponse_currentManifest' - Undocumented member.+--+-- 'errorCount', 'getStatusResponse_errorCount' - Undocumented member.+--+-- 'jobId', 'getStatusResponse_jobId' - Undocumented member.+--+-- 'jobType', 'getStatusResponse_jobType' - Undocumented member.+--+-- 'locationCode', 'getStatusResponse_locationCode' - Undocumented member.+--+-- 'locationMessage', 'getStatusResponse_locationMessage' - Undocumented member.+--+-- 'logBucket', 'getStatusResponse_logBucket' - Undocumented member.+--+-- 'logKey', 'getStatusResponse_logKey' - Undocumented member.+--+-- 'progressCode', 'getStatusResponse_progressCode' - Undocumented member.+--+-- 'progressMessage', 'getStatusResponse_progressMessage' - Undocumented member.+--+-- 'signature', 'getStatusResponse_signature' - Undocumented member.+--+-- 'signatureFileContents', 'getStatusResponse_signatureFileContents' - Undocumented member.+--+-- 'trackingNumber', 'getStatusResponse_trackingNumber' - Undocumented member.+--+-- 'httpStatus', 'getStatusResponse_httpStatus' - The response's http status code.+newGetStatusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetStatusResponse+newGetStatusResponse pHttpStatus_ =+  GetStatusResponse'+    { artifactList = Prelude.Nothing,+      carrier = Prelude.Nothing,+      creationDate = Prelude.Nothing,+      currentManifest = Prelude.Nothing,+      errorCount = Prelude.Nothing,+      jobId = Prelude.Nothing,+      jobType = Prelude.Nothing,+      locationCode = Prelude.Nothing,+      locationMessage = Prelude.Nothing,+      logBucket = Prelude.Nothing,+      logKey = Prelude.Nothing,+      progressCode = Prelude.Nothing,+      progressMessage = Prelude.Nothing,+      signature = Prelude.Nothing,+      signatureFileContents = Prelude.Nothing,+      trackingNumber = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+getStatusResponse_artifactList :: Lens.Lens' GetStatusResponse (Prelude.Maybe [Artifact])+getStatusResponse_artifactList = Lens.lens (\GetStatusResponse' {artifactList} -> artifactList) (\s@GetStatusResponse' {} a -> s {artifactList = a} :: GetStatusResponse) Prelude.. Lens.mapping Lens.coerced++-- | Undocumented member.+getStatusResponse_carrier :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_carrier = Lens.lens (\GetStatusResponse' {carrier} -> carrier) (\s@GetStatusResponse' {} a -> s {carrier = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_creationDate :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.UTCTime)+getStatusResponse_creationDate = Lens.lens (\GetStatusResponse' {creationDate} -> creationDate) (\s@GetStatusResponse' {} a -> s {creationDate = a} :: GetStatusResponse) Prelude.. Lens.mapping Data._Time++-- | Undocumented member.+getStatusResponse_currentManifest :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_currentManifest = Lens.lens (\GetStatusResponse' {currentManifest} -> currentManifest) (\s@GetStatusResponse' {} a -> s {currentManifest = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_errorCount :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Int)+getStatusResponse_errorCount = Lens.lens (\GetStatusResponse' {errorCount} -> errorCount) (\s@GetStatusResponse' {} a -> s {errorCount = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_jobId :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_jobId = Lens.lens (\GetStatusResponse' {jobId} -> jobId) (\s@GetStatusResponse' {} a -> s {jobId = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_jobType :: Lens.Lens' GetStatusResponse (Prelude.Maybe JobType)+getStatusResponse_jobType = Lens.lens (\GetStatusResponse' {jobType} -> jobType) (\s@GetStatusResponse' {} a -> s {jobType = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_locationCode :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_locationCode = Lens.lens (\GetStatusResponse' {locationCode} -> locationCode) (\s@GetStatusResponse' {} a -> s {locationCode = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_locationMessage :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_locationMessage = Lens.lens (\GetStatusResponse' {locationMessage} -> locationMessage) (\s@GetStatusResponse' {} a -> s {locationMessage = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_logBucket :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_logBucket = Lens.lens (\GetStatusResponse' {logBucket} -> logBucket) (\s@GetStatusResponse' {} a -> s {logBucket = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_logKey :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_logKey = Lens.lens (\GetStatusResponse' {logKey} -> logKey) (\s@GetStatusResponse' {} a -> s {logKey = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_progressCode :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_progressCode = Lens.lens (\GetStatusResponse' {progressCode} -> progressCode) (\s@GetStatusResponse' {} a -> s {progressCode = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_progressMessage :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_progressMessage = Lens.lens (\GetStatusResponse' {progressMessage} -> progressMessage) (\s@GetStatusResponse' {} a -> s {progressMessage = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_signature :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_signature = Lens.lens (\GetStatusResponse' {signature} -> signature) (\s@GetStatusResponse' {} a -> s {signature = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_signatureFileContents :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_signatureFileContents = Lens.lens (\GetStatusResponse' {signatureFileContents} -> signatureFileContents) (\s@GetStatusResponse' {} a -> s {signatureFileContents = a} :: GetStatusResponse)++-- | Undocumented member.+getStatusResponse_trackingNumber :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)+getStatusResponse_trackingNumber = Lens.lens (\GetStatusResponse' {trackingNumber} -> trackingNumber) (\s@GetStatusResponse' {} a -> s {trackingNumber = a} :: GetStatusResponse)++-- | The response's http status code.+getStatusResponse_httpStatus :: Lens.Lens' GetStatusResponse Prelude.Int+getStatusResponse_httpStatus = Lens.lens (\GetStatusResponse' {httpStatus} -> httpStatus) (\s@GetStatusResponse' {} a -> s {httpStatus = a} :: GetStatusResponse)++instance Prelude.NFData GetStatusResponse where+  rnf GetStatusResponse' {..} =+    Prelude.rnf artifactList+      `Prelude.seq` Prelude.rnf carrier+      `Prelude.seq` Prelude.rnf creationDate+      `Prelude.seq` Prelude.rnf currentManifest+      `Prelude.seq` Prelude.rnf errorCount+      `Prelude.seq` Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf jobType+      `Prelude.seq` Prelude.rnf locationCode+      `Prelude.seq` Prelude.rnf locationMessage+      `Prelude.seq` Prelude.rnf logBucket+      `Prelude.seq` Prelude.rnf logKey+      `Prelude.seq` Prelude.rnf progressCode+      `Prelude.seq` Prelude.rnf progressMessage+      `Prelude.seq` Prelude.rnf signature+      `Prelude.seq` Prelude.rnf signatureFileContents+      `Prelude.seq` Prelude.rnf trackingNumber+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,115 @@+{-# 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.ImportExport.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.ImportExport.Lens+  ( -- * Operations++    -- ** CancelJob+    cancelJob_aPIVersion,+    cancelJob_jobId,+    cancelJobResponse_success,+    cancelJobResponse_httpStatus,++    -- ** CreateJob+    createJob_aPIVersion,+    createJob_manifestAddendum,+    createJob_jobType,+    createJob_manifest,+    createJob_validateOnly,+    createJobResponse_artifactList,+    createJobResponse_jobId,+    createJobResponse_jobType,+    createJobResponse_signature,+    createJobResponse_signatureFileContents,+    createJobResponse_warningMessage,+    createJobResponse_httpStatus,++    -- ** GetShippingLabel+    getShippingLabel_aPIVersion,+    getShippingLabel_city,+    getShippingLabel_company,+    getShippingLabel_country,+    getShippingLabel_name,+    getShippingLabel_phoneNumber,+    getShippingLabel_postalCode,+    getShippingLabel_stateOrProvince,+    getShippingLabel_street1,+    getShippingLabel_street2,+    getShippingLabel_street3,+    getShippingLabel_jobIds,+    getShippingLabelResponse_shippingLabelURL,+    getShippingLabelResponse_warning,+    getShippingLabelResponse_httpStatus,++    -- ** GetStatus+    getStatus_aPIVersion,+    getStatus_jobId,+    getStatusResponse_artifactList,+    getStatusResponse_carrier,+    getStatusResponse_creationDate,+    getStatusResponse_currentManifest,+    getStatusResponse_errorCount,+    getStatusResponse_jobId,+    getStatusResponse_jobType,+    getStatusResponse_locationCode,+    getStatusResponse_locationMessage,+    getStatusResponse_logBucket,+    getStatusResponse_logKey,+    getStatusResponse_progressCode,+    getStatusResponse_progressMessage,+    getStatusResponse_signature,+    getStatusResponse_signatureFileContents,+    getStatusResponse_trackingNumber,+    getStatusResponse_httpStatus,++    -- ** ListJobs+    listJobs_aPIVersion,+    listJobs_marker,+    listJobs_maxJobs,+    listJobsResponse_isTruncated,+    listJobsResponse_jobs,+    listJobsResponse_httpStatus,++    -- ** UpdateJob+    updateJob_aPIVersion,+    updateJob_jobId,+    updateJob_manifest,+    updateJob_jobType,+    updateJob_validateOnly,+    updateJobResponse_artifactList,+    updateJobResponse_success,+    updateJobResponse_warningMessage,+    updateJobResponse_httpStatus,++    -- * Types++    -- ** Artifact+    artifact_description,+    artifact_url,++    -- ** Job+    job_jobType,+    job_jobId,+    job_isCanceled,+    job_creationDate,+  )+where++import Amazonka.ImportExport.CancelJob+import Amazonka.ImportExport.CreateJob+import Amazonka.ImportExport.GetShippingLabel+import Amazonka.ImportExport.GetStatus+import Amazonka.ImportExport.ListJobs+import Amazonka.ImportExport.Types.Artifact+import Amazonka.ImportExport.Types.Job+import Amazonka.ImportExport.UpdateJob

@@ -0,0 +1,229 @@+{-# 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.ImportExport.ListJobs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation returns the jobs associated with the requester. AWS+-- Import\/Export lists the jobs in reverse chronological order based on+-- the date of creation. For example if Job Test1 was created 2009Dec30 and+-- Test2 was created 2010Feb05, the ListJobs operation would return Test2+-- followed by Test1.+--+-- This operation returns paginated results.+module Amazonka.ImportExport.ListJobs+  ( -- * Creating a Request+    ListJobs (..),+    newListJobs,++    -- * Request Lenses+    listJobs_aPIVersion,+    listJobs_marker,+    listJobs_maxJobs,++    -- * Destructuring the Response+    ListJobsResponse (..),+    newListJobsResponse,++    -- * Response Lenses+    listJobsResponse_isTruncated,+    listJobsResponse_jobs,+    listJobsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ImportExport.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Input structure for the ListJobs operation.+--+-- /See:/ 'newListJobs' smart constructor.+data ListJobs = ListJobs'+  { aPIVersion :: Prelude.Maybe Prelude.Text,+    marker :: Prelude.Maybe Prelude.Text,+    maxJobs :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListJobs' 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:+--+-- 'aPIVersion', 'listJobs_aPIVersion' - Undocumented member.+--+-- 'marker', 'listJobs_marker' - Undocumented member.+--+-- 'maxJobs', 'listJobs_maxJobs' - Undocumented member.+newListJobs ::+  ListJobs+newListJobs =+  ListJobs'+    { aPIVersion = Prelude.Nothing,+      marker = Prelude.Nothing,+      maxJobs = Prelude.Nothing+    }++-- | Undocumented member.+listJobs_aPIVersion :: Lens.Lens' ListJobs (Prelude.Maybe Prelude.Text)+listJobs_aPIVersion = Lens.lens (\ListJobs' {aPIVersion} -> aPIVersion) (\s@ListJobs' {} a -> s {aPIVersion = a} :: ListJobs)++-- | Undocumented member.+listJobs_marker :: Lens.Lens' ListJobs (Prelude.Maybe Prelude.Text)+listJobs_marker = Lens.lens (\ListJobs' {marker} -> marker) (\s@ListJobs' {} a -> s {marker = a} :: ListJobs)++-- | Undocumented member.+listJobs_maxJobs :: Lens.Lens' ListJobs (Prelude.Maybe Prelude.Int)+listJobs_maxJobs = Lens.lens (\ListJobs' {maxJobs} -> maxJobs) (\s@ListJobs' {} a -> s {maxJobs = a} :: ListJobs)++instance Core.AWSPager ListJobs where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listJobsResponse_isTruncated+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.isNothing+        ( rs+            Lens.^? listJobsResponse_jobs+            Prelude.. Lens._Just+            Prelude.. Lens._last+            Prelude.. job_jobId+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listJobs_marker+          Lens..~ rs+          Lens.^? listJobsResponse_jobs+          Prelude.. Lens._Just+          Prelude.. Lens._last+          Prelude.. job_jobId++instance Core.AWSRequest ListJobs where+  type AWSResponse ListJobs = ListJobsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "ListJobsResult"+      ( \s h x ->+          ListJobsResponse'+            Prelude.<$> (x Data..@? "IsTruncated")+            Prelude.<*> ( x+                            Data..@? "Jobs"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListJobs where+  hashWithSalt _salt ListJobs' {..} =+    _salt+      `Prelude.hashWithSalt` aPIVersion+      `Prelude.hashWithSalt` marker+      `Prelude.hashWithSalt` maxJobs++instance Prelude.NFData ListJobs where+  rnf ListJobs' {..} =+    Prelude.rnf aPIVersion+      `Prelude.seq` Prelude.rnf marker+      `Prelude.seq` Prelude.rnf maxJobs++instance Data.ToHeaders ListJobs where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListJobs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListJobs where+  toQuery ListJobs' {..} =+    Prelude.mconcat+      [ "Operation=ListJobs",+        "Action" Data.=: ("ListJobs" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-06-01" :: Prelude.ByteString),+        "APIVersion" Data.=: aPIVersion,+        "Marker" Data.=: marker,+        "MaxJobs" Data.=: maxJobs+      ]++-- | Output structure for the ListJobs operation.+--+-- /See:/ 'newListJobsResponse' smart constructor.+data ListJobsResponse = ListJobsResponse'+  { isTruncated :: Prelude.Maybe Prelude.Bool,+    jobs :: Prelude.Maybe [Job],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListJobsResponse' 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:+--+-- 'isTruncated', 'listJobsResponse_isTruncated' - Undocumented member.+--+-- 'jobs', 'listJobsResponse_jobs' - Undocumented member.+--+-- 'httpStatus', 'listJobsResponse_httpStatus' - The response's http status code.+newListJobsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListJobsResponse+newListJobsResponse pHttpStatus_ =+  ListJobsResponse'+    { isTruncated = Prelude.Nothing,+      jobs = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+listJobsResponse_isTruncated :: Lens.Lens' ListJobsResponse (Prelude.Maybe Prelude.Bool)+listJobsResponse_isTruncated = Lens.lens (\ListJobsResponse' {isTruncated} -> isTruncated) (\s@ListJobsResponse' {} a -> s {isTruncated = a} :: ListJobsResponse)++-- | Undocumented member.+listJobsResponse_jobs :: Lens.Lens' ListJobsResponse (Prelude.Maybe [Job])+listJobsResponse_jobs = Lens.lens (\ListJobsResponse' {jobs} -> jobs) (\s@ListJobsResponse' {} a -> s {jobs = a} :: ListJobsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listJobsResponse_httpStatus :: Lens.Lens' ListJobsResponse Prelude.Int+listJobsResponse_httpStatus = Lens.lens (\ListJobsResponse' {httpStatus} -> httpStatus) (\s@ListJobsResponse' {} a -> s {httpStatus = a} :: ListJobsResponse)++instance Prelude.NFData ListJobsResponse where+  rnf ListJobsResponse' {..} =+    Prelude.rnf isTruncated+      `Prelude.seq` Prelude.rnf jobs+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,287 @@+{-# 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.ImportExport.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.ImportExport.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _BucketPermissionException,+    _CanceledJobIdException,+    _CreateJobQuotaExceededException,+    _ExpiredJobIdException,+    _InvalidAccessKeyIdException,+    _InvalidAddressException,+    _InvalidCustomsException,+    _InvalidFileSystemException,+    _InvalidJobIdException,+    _InvalidManifestFieldException,+    _InvalidParameterException,+    _InvalidVersionException,+    _MalformedManifestException,+    _MissingCustomsException,+    _MissingManifestFieldException,+    _MissingParameterException,+    _MultipleRegionsException,+    _NoSuchBucketException,+    _UnableToCancelJobIdException,+    _UnableToUpdateJobIdException,++    -- * JobType+    JobType (..),++    -- * Artifact+    Artifact (..),+    newArtifact,+    artifact_description,+    artifact_url,++    -- * Job+    Job (..),+    newJob,+    job_jobType,+    job_jobId,+    job_isCanceled,+    job_creationDate,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.ImportExport.Types.Artifact+import Amazonka.ImportExport.Types.Job+import Amazonka.ImportExport.Types.JobType+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V2 as Sign++-- | API version @2010-06-01@ of the Amazon Import/Export SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "ImportExport",+      Core.signer = Sign.v2,+      Core.endpointPrefix = "importexport",+      Core.signingName = "importexport",+      Core.version = "2010-06-01",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseXMLError "ImportExport",+      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 account specified does not have the appropriate bucket permissions.+_BucketPermissionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_BucketPermissionException =+  Core._MatchServiceError+    defaultService+    "BucketPermissionException"++-- | The specified job ID has been canceled and is no longer valid.+_CanceledJobIdException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CanceledJobIdException =+  Core._MatchServiceError+    defaultService+    "CanceledJobIdException"++-- | Each account can create only a certain number of jobs per day. If you+-- need to create more than this, please contact+-- awsimportexport\@amazon.com to explain your particular use case.+_CreateJobQuotaExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CreateJobQuotaExceededException =+  Core._MatchServiceError+    defaultService+    "CreateJobQuotaExceededException"++-- | Indicates that the specified job has expired out of the system.+_ExpiredJobIdException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ExpiredJobIdException =+  Core._MatchServiceError+    defaultService+    "ExpiredJobIdException"++-- | The AWS Access Key ID specified in the request did not match the+-- manifest\'s accessKeyId value. The manifest and the request+-- authentication must use the same AWS Access Key ID.+_InvalidAccessKeyIdException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidAccessKeyIdException =+  Core._MatchServiceError+    defaultService+    "InvalidAccessKeyIdException"++-- | The address specified in the manifest is invalid.+_InvalidAddressException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidAddressException =+  Core._MatchServiceError+    defaultService+    "InvalidAddressException"++-- | One or more customs parameters was invalid. Please correct and resubmit.+_InvalidCustomsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidCustomsException =+  Core._MatchServiceError+    defaultService+    "InvalidCustomsException"++-- | File system specified in export manifest is invalid.+_InvalidFileSystemException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidFileSystemException =+  Core._MatchServiceError+    defaultService+    "InvalidFileSystemException"++-- | The JOBID was missing, not found, or not associated with the AWS+-- account.+_InvalidJobIdException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidJobIdException =+  Core._MatchServiceError+    defaultService+    "InvalidJobIdException"++-- | One or more manifest fields was invalid. Please correct and resubmit.+_InvalidManifestFieldException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidManifestFieldException =+  Core._MatchServiceError+    defaultService+    "InvalidManifestFieldException"++-- | One or more parameters had an invalid value.+_InvalidParameterException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidParameterException =+  Core._MatchServiceError+    defaultService+    "InvalidParameterException"++-- | The client tool version is invalid.+_InvalidVersionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidVersionException =+  Core._MatchServiceError+    defaultService+    "InvalidVersionException"++-- | Your manifest is not well-formed.+_MalformedManifestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MalformedManifestException =+  Core._MatchServiceError+    defaultService+    "MalformedManifestException"++-- | One or more required customs parameters was missing from the manifest.+_MissingCustomsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MissingCustomsException =+  Core._MatchServiceError+    defaultService+    "MissingCustomsException"++-- | One or more required fields were missing from the manifest file. Please+-- correct and resubmit.+_MissingManifestFieldException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MissingManifestFieldException =+  Core._MatchServiceError+    defaultService+    "MissingManifestFieldException"++-- | One or more required parameters was missing from the request.+_MissingParameterException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MissingParameterException =+  Core._MatchServiceError+    defaultService+    "MissingParameterException"++-- | Your manifest file contained buckets from multiple regions. A job is+-- restricted to buckets from one region. Please correct and resubmit.+_MultipleRegionsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MultipleRegionsException =+  Core._MatchServiceError+    defaultService+    "MultipleRegionsException"++-- | The specified bucket does not exist. Create the specified bucket or+-- change the manifest\'s bucket, exportBucket, or logBucket field to a+-- bucket that the account, as specified by the manifest\'s Access Key ID,+-- has write permissions to.+_NoSuchBucketException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_NoSuchBucketException =+  Core._MatchServiceError+    defaultService+    "NoSuchBucketException"++-- | AWS Import\/Export cannot cancel the job+_UnableToCancelJobIdException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnableToCancelJobIdException =+  Core._MatchServiceError+    defaultService+    "UnableToCancelJobIdException"++-- | AWS Import\/Export cannot update the job+_UnableToUpdateJobIdException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnableToUpdateJobIdException =+  Core._MatchServiceError+    defaultService+    "UnableToUpdateJobIdException"

@@ -0,0 +1,79 @@+{-# 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.ImportExport.Types.Artifact+-- 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.ImportExport.Types.Artifact where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A discrete item that contains the description and URL of an artifact+-- (such as a PDF).+--+-- /See:/ 'newArtifact' smart constructor.+data Artifact = Artifact'+  { description :: Prelude.Maybe Prelude.Text,+    url :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Artifact' 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:+--+-- 'description', 'artifact_description' - Undocumented member.+--+-- 'url', 'artifact_url' - Undocumented member.+newArtifact ::+  Artifact+newArtifact =+  Artifact'+    { description = Prelude.Nothing,+      url = Prelude.Nothing+    }++-- | Undocumented member.+artifact_description :: Lens.Lens' Artifact (Prelude.Maybe Prelude.Text)+artifact_description = Lens.lens (\Artifact' {description} -> description) (\s@Artifact' {} a -> s {description = a} :: Artifact)++-- | Undocumented member.+artifact_url :: Lens.Lens' Artifact (Prelude.Maybe Prelude.Text)+artifact_url = Lens.lens (\Artifact' {url} -> url) (\s@Artifact' {} a -> s {url = a} :: Artifact)++instance Data.FromXML Artifact where+  parseXML x =+    Artifact'+      Prelude.<$> (x Data..@? "Description")+      Prelude.<*> (x Data..@? "URL")++instance Prelude.Hashable Artifact where+  hashWithSalt _salt Artifact' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` url++instance Prelude.NFData Artifact where+  rnf Artifact' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf url

@@ -0,0 +1,109 @@+{-# 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.ImportExport.Types.Job+-- 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.ImportExport.Types.Job where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ImportExport.Types.JobType+import qualified Amazonka.Prelude as Prelude++-- | Representation of a job returned by the ListJobs operation.+--+-- /See:/ 'newJob' smart constructor.+data Job = Job'+  { jobType :: JobType,+    jobId :: Prelude.Text,+    isCanceled :: Prelude.Bool,+    creationDate :: Data.ISO8601+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Job' 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:+--+-- 'jobType', 'job_jobType' - Undocumented member.+--+-- 'jobId', 'job_jobId' - Undocumented member.+--+-- 'isCanceled', 'job_isCanceled' - Undocumented member.+--+-- 'creationDate', 'job_creationDate' - Undocumented member.+newJob ::+  -- | 'jobType'+  JobType ->+  -- | 'jobId'+  Prelude.Text ->+  -- | 'isCanceled'+  Prelude.Bool ->+  -- | 'creationDate'+  Prelude.UTCTime ->+  Job+newJob pJobType_ pJobId_ pIsCanceled_ pCreationDate_ =+  Job'+    { jobType = pJobType_,+      jobId = pJobId_,+      isCanceled = pIsCanceled_,+      creationDate = Data._Time Lens.# pCreationDate_+    }++-- | Undocumented member.+job_jobType :: Lens.Lens' Job JobType+job_jobType = Lens.lens (\Job' {jobType} -> jobType) (\s@Job' {} a -> s {jobType = a} :: Job)++-- | Undocumented member.+job_jobId :: Lens.Lens' Job Prelude.Text+job_jobId = Lens.lens (\Job' {jobId} -> jobId) (\s@Job' {} a -> s {jobId = a} :: Job)++-- | Undocumented member.+job_isCanceled :: Lens.Lens' Job Prelude.Bool+job_isCanceled = Lens.lens (\Job' {isCanceled} -> isCanceled) (\s@Job' {} a -> s {isCanceled = a} :: Job)++-- | Undocumented member.+job_creationDate :: Lens.Lens' Job Prelude.UTCTime+job_creationDate = Lens.lens (\Job' {creationDate} -> creationDate) (\s@Job' {} a -> s {creationDate = a} :: Job) Prelude.. Data._Time++instance Data.FromXML Job where+  parseXML x =+    Job'+      Prelude.<$> (x Data..@ "JobType")+      Prelude.<*> (x Data..@ "JobId")+      Prelude.<*> (x Data..@ "IsCanceled")+      Prelude.<*> (x Data..@ "CreationDate")++instance Prelude.Hashable Job where+  hashWithSalt _salt Job' {..} =+    _salt+      `Prelude.hashWithSalt` jobType+      `Prelude.hashWithSalt` jobId+      `Prelude.hashWithSalt` isCanceled+      `Prelude.hashWithSalt` creationDate++instance Prelude.NFData Job where+  rnf Job' {..} =+    Prelude.rnf jobType+      `Prelude.seq` Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf isCanceled+      `Prelude.seq` Prelude.rnf creationDate

@@ -0,0 +1,69 @@+{-# 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.ImportExport.Types.JobType+-- 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.ImportExport.Types.JobType+  ( JobType+      ( ..,+        JobType_Export,+        JobType_Import+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Specifies whether the job to initiate is an import or export job.+newtype JobType = JobType' {fromJobType :: 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 JobType_Export :: JobType+pattern JobType_Export = JobType' "Export"++pattern JobType_Import :: JobType+pattern JobType_Import = JobType' "Import"++{-# COMPLETE+  JobType_Export,+  JobType_Import,+  JobType'+  #-}

@@ -0,0 +1,248 @@+{-# 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.ImportExport.UpdateJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- You use this operation to change the parameters specified in the+-- original manifest file by supplying a new manifest file. The manifest+-- file attached to this request replaces the original manifest file. You+-- can only use the operation after a CreateJob request but before the data+-- transfer starts and you can only use it on jobs you own.+module Amazonka.ImportExport.UpdateJob+  ( -- * Creating a Request+    UpdateJob (..),+    newUpdateJob,++    -- * Request Lenses+    updateJob_aPIVersion,+    updateJob_jobId,+    updateJob_manifest,+    updateJob_jobType,+    updateJob_validateOnly,++    -- * Destructuring the Response+    UpdateJobResponse (..),+    newUpdateJobResponse,++    -- * Response Lenses+    updateJobResponse_artifactList,+    updateJobResponse_success,+    updateJobResponse_warningMessage,+    updateJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ImportExport.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Input structure for the UpateJob operation.+--+-- /See:/ 'newUpdateJob' smart constructor.+data UpdateJob = UpdateJob'+  { aPIVersion :: Prelude.Maybe Prelude.Text,+    jobId :: Prelude.Text,+    manifest :: Prelude.Text,+    jobType :: JobType,+    validateOnly :: Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateJob' 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:+--+-- 'aPIVersion', 'updateJob_aPIVersion' - Undocumented member.+--+-- 'jobId', 'updateJob_jobId' - Undocumented member.+--+-- 'manifest', 'updateJob_manifest' - Undocumented member.+--+-- 'jobType', 'updateJob_jobType' - Undocumented member.+--+-- 'validateOnly', 'updateJob_validateOnly' - Undocumented member.+newUpdateJob ::+  -- | 'jobId'+  Prelude.Text ->+  -- | 'manifest'+  Prelude.Text ->+  -- | 'jobType'+  JobType ->+  -- | 'validateOnly'+  Prelude.Bool ->+  UpdateJob+newUpdateJob+  pJobId_+  pManifest_+  pJobType_+  pValidateOnly_ =+    UpdateJob'+      { aPIVersion = Prelude.Nothing,+        jobId = pJobId_,+        manifest = pManifest_,+        jobType = pJobType_,+        validateOnly = pValidateOnly_+      }++-- | Undocumented member.+updateJob_aPIVersion :: Lens.Lens' UpdateJob (Prelude.Maybe Prelude.Text)+updateJob_aPIVersion = Lens.lens (\UpdateJob' {aPIVersion} -> aPIVersion) (\s@UpdateJob' {} a -> s {aPIVersion = a} :: UpdateJob)++-- | Undocumented member.+updateJob_jobId :: Lens.Lens' UpdateJob Prelude.Text+updateJob_jobId = Lens.lens (\UpdateJob' {jobId} -> jobId) (\s@UpdateJob' {} a -> s {jobId = a} :: UpdateJob)++-- | Undocumented member.+updateJob_manifest :: Lens.Lens' UpdateJob Prelude.Text+updateJob_manifest = Lens.lens (\UpdateJob' {manifest} -> manifest) (\s@UpdateJob' {} a -> s {manifest = a} :: UpdateJob)++-- | Undocumented member.+updateJob_jobType :: Lens.Lens' UpdateJob JobType+updateJob_jobType = Lens.lens (\UpdateJob' {jobType} -> jobType) (\s@UpdateJob' {} a -> s {jobType = a} :: UpdateJob)++-- | Undocumented member.+updateJob_validateOnly :: Lens.Lens' UpdateJob Prelude.Bool+updateJob_validateOnly = Lens.lens (\UpdateJob' {validateOnly} -> validateOnly) (\s@UpdateJob' {} a -> s {validateOnly = a} :: UpdateJob)++instance Core.AWSRequest UpdateJob where+  type AWSResponse UpdateJob = UpdateJobResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "UpdateJobResult"+      ( \s h x ->+          UpdateJobResponse'+            Prelude.<$> ( x+                            Data..@? "ArtifactList"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (x Data..@? "Success")+            Prelude.<*> (x Data..@? "WarningMessage")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateJob where+  hashWithSalt _salt UpdateJob' {..} =+    _salt+      `Prelude.hashWithSalt` aPIVersion+      `Prelude.hashWithSalt` jobId+      `Prelude.hashWithSalt` manifest+      `Prelude.hashWithSalt` jobType+      `Prelude.hashWithSalt` validateOnly++instance Prelude.NFData UpdateJob where+  rnf UpdateJob' {..} =+    Prelude.rnf aPIVersion+      `Prelude.seq` Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf manifest+      `Prelude.seq` Prelude.rnf jobType+      `Prelude.seq` Prelude.rnf validateOnly++instance Data.ToHeaders UpdateJob where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath UpdateJob where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateJob where+  toQuery UpdateJob' {..} =+    Prelude.mconcat+      [ "Operation=UpdateJob",+        "Action" Data.=: ("UpdateJob" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-06-01" :: Prelude.ByteString),+        "APIVersion" Data.=: aPIVersion,+        "JobId" Data.=: jobId,+        "Manifest" Data.=: manifest,+        "JobType" Data.=: jobType,+        "ValidateOnly" Data.=: validateOnly+      ]++-- | Output structure for the UpateJob operation.+--+-- /See:/ 'newUpdateJobResponse' smart constructor.+data UpdateJobResponse = UpdateJobResponse'+  { artifactList :: Prelude.Maybe [Artifact],+    success :: Prelude.Maybe Prelude.Bool,+    warningMessage :: 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 'UpdateJobResponse' 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:+--+-- 'artifactList', 'updateJobResponse_artifactList' - Undocumented member.+--+-- 'success', 'updateJobResponse_success' - Undocumented member.+--+-- 'warningMessage', 'updateJobResponse_warningMessage' - Undocumented member.+--+-- 'httpStatus', 'updateJobResponse_httpStatus' - The response's http status code.+newUpdateJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateJobResponse+newUpdateJobResponse pHttpStatus_ =+  UpdateJobResponse'+    { artifactList = Prelude.Nothing,+      success = Prelude.Nothing,+      warningMessage = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+updateJobResponse_artifactList :: Lens.Lens' UpdateJobResponse (Prelude.Maybe [Artifact])+updateJobResponse_artifactList = Lens.lens (\UpdateJobResponse' {artifactList} -> artifactList) (\s@UpdateJobResponse' {} a -> s {artifactList = a} :: UpdateJobResponse) Prelude.. Lens.mapping Lens.coerced++-- | Undocumented member.+updateJobResponse_success :: Lens.Lens' UpdateJobResponse (Prelude.Maybe Prelude.Bool)+updateJobResponse_success = Lens.lens (\UpdateJobResponse' {success} -> success) (\s@UpdateJobResponse' {} a -> s {success = a} :: UpdateJobResponse)++-- | Undocumented member.+updateJobResponse_warningMessage :: Lens.Lens' UpdateJobResponse (Prelude.Maybe Prelude.Text)+updateJobResponse_warningMessage = Lens.lens (\UpdateJobResponse' {warningMessage} -> warningMessage) (\s@UpdateJobResponse' {} a -> s {warningMessage = a} :: UpdateJobResponse)++-- | The response's http status code.+updateJobResponse_httpStatus :: Lens.Lens' UpdateJobResponse Prelude.Int+updateJobResponse_httpStatus = Lens.lens (\UpdateJobResponse' {httpStatus} -> httpStatus) (\s@UpdateJobResponse' {} a -> s {httpStatus = a} :: UpdateJobResponse)++instance Prelude.NFData UpdateJobResponse where+  rnf UpdateJobResponse' {..} =+    Prelude.rnf artifactList+      `Prelude.seq` Prelude.rnf success+      `Prelude.seq` Prelude.rnf warningMessage+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,24 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ImportExport.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.ImportExport.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ImportExport.Lens+import Amazonka.ImportExport.Types+import qualified Amazonka.Prelude as Prelude

@@ -1,164 +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.ImportExport--- 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)------ __AWS Import/Export Service__-module Network.AWS.ImportExport-    (-    -- * Service Configuration-      importExport--    -- * Errors-    -- $errors--    -- ** InvalidJobIdException-    , _InvalidJobIdException--    -- ** InvalidParameterException-    , _InvalidParameterException--    -- ** ExpiredJobIdException-    , _ExpiredJobIdException--    -- ** InvalidFileSystemException-    , _InvalidFileSystemException--    -- ** InvalidAccessKeyIdException-    , _InvalidAccessKeyIdException--    -- ** UnableToUpdateJobIdException-    , _UnableToUpdateJobIdException--    -- ** UnableToCancelJobIdException-    , _UnableToCancelJobIdException--    -- ** MultipleRegionsException-    , _MultipleRegionsException--    -- ** InvalidVersionException-    , _InvalidVersionException--    -- ** MalformedManifestException-    , _MalformedManifestException--    -- ** MissingParameterException-    , _MissingParameterException--    -- ** CanceledJobIdException-    , _CanceledJobIdException--    -- ** BucketPermissionException-    , _BucketPermissionException--    -- ** NoSuchBucketException-    , _NoSuchBucketException--    -- ** InvalidAddressException-    , _InvalidAddressException--    -- ** MissingCustomsException-    , _MissingCustomsException--    -- ** InvalidManifestFieldException-    , _InvalidManifestFieldException--    -- ** InvalidCustomsException-    , _InvalidCustomsException--    -- ** MissingManifestFieldException-    , _MissingManifestFieldException--    -- ** CreateJobQuotaExceededException-    , _CreateJobQuotaExceededException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** GetShippingLabel-    , module Network.AWS.ImportExport.GetShippingLabel--    -- ** CreateJob-    , module Network.AWS.ImportExport.CreateJob--    -- ** ListJobs (Paginated)-    , module Network.AWS.ImportExport.ListJobs--    -- ** UpdateJob-    , module Network.AWS.ImportExport.UpdateJob--    -- ** GetStatus-    , module Network.AWS.ImportExport.GetStatus--    -- ** CancelJob-    , module Network.AWS.ImportExport.CancelJob--    -- * Types--    -- ** JobType-    , JobType (..)--    -- ** Artifact-    , Artifact-    , artifact-    , aURL-    , aDescription--    -- ** Job-    , Job-    , job-    , jobJobType-    , jobJobId-    , jobIsCanceled-    , jobCreationDate-    ) where--import Network.AWS.ImportExport.CancelJob-import Network.AWS.ImportExport.CreateJob-import Network.AWS.ImportExport.GetShippingLabel-import Network.AWS.ImportExport.GetStatus-import Network.AWS.ImportExport.ListJobs-import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.UpdateJob-import Network.AWS.ImportExport.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 'ImportExport'.--}--{- $operations-Some AWS operations return results that are incomplete and require subsequent-requests in order to obtain the entire result set. The process of sending-subsequent requests to continue where a previous request left off is called-pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to-1000 objects at a time, and you must send subsequent requests with the-appropriate Marker in order to retrieve the next page of results.--Operations that have an 'AWSPager' instance can transparently perform subsequent-requests, correctly setting Markers and other request facets to iterate through-the entire result set of a truncated API operation. Operations which support-this have an additional note in the documentation.--Many operations have the ability to filter results on the server side. See the-individual operation parameters for details.--}--{- $waiters-Waiters poll by repeatedly sending a request until some remote success condition-configured by the 'Wait' specification is fulfilled. The 'Wait' specification-determines how many attempts should be made, in addition to delay and retry strategies.--}

@@ -1,135 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.ImportExport.CancelJob--- 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)------ This operation cancels a specified job. Only the job owner can cancel it. The operation fails if the job has already started or is complete.-module Network.AWS.ImportExport.CancelJob-    (-    -- * Creating a Request-      cancelJob-    , CancelJob-    -- * Request Lenses-    , cAPIVersion-    , cJobId--    -- * Destructuring the Response-    , cancelJobResponse-    , CancelJobResponse-    -- * Response Lenses-    , crsSuccess-    , crsResponseStatus-    ) where--import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Input structure for the CancelJob operation.------ /See:/ 'cancelJob' smart constructor.-data CancelJob = CancelJob'-  { _cAPIVersion :: !(Maybe Text)-  , _cJobId      :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CancelJob' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cAPIVersion' - Undocumented member.------ * 'cJobId' - Undocumented member.-cancelJob-    :: Text -- ^ 'cJobId'-    -> CancelJob-cancelJob pJobId_ = CancelJob' {_cAPIVersion = Nothing, _cJobId = pJobId_}----- | Undocumented member.-cAPIVersion :: Lens' CancelJob (Maybe Text)-cAPIVersion = lens _cAPIVersion (\ s a -> s{_cAPIVersion = a})---- | Undocumented member.-cJobId :: Lens' CancelJob Text-cJobId = lens _cJobId (\ s a -> s{_cJobId = a})--instance AWSRequest CancelJob where-        type Rs CancelJob = CancelJobResponse-        request = postQuery importExport-        response-          = receiveXMLWrapper "CancelJobResult"-              (\ s h x ->-                 CancelJobResponse' <$>-                   (x .@? "Success") <*> (pure (fromEnum s)))--instance Hashable CancelJob where--instance NFData CancelJob where--instance ToHeaders CancelJob where-        toHeaders = const mempty--instance ToPath CancelJob where-        toPath = const "/"--instance ToQuery CancelJob where-        toQuery CancelJob'{..}-          = mconcat-              ["Operation=CancelJob",-               "Action" =: ("CancelJob" :: ByteString),-               "Version" =: ("2010-06-01" :: ByteString),-               "APIVersion" =: _cAPIVersion, "JobId" =: _cJobId]---- | Output structure for the CancelJob operation.------ /See:/ 'cancelJobResponse' smart constructor.-data CancelJobResponse = CancelJobResponse'-  { _crsSuccess        :: !(Maybe Bool)-  , _crsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CancelJobResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crsSuccess' - Undocumented member.------ * 'crsResponseStatus' - -- | The response status code.-cancelJobResponse-    :: Int -- ^ 'crsResponseStatus'-    -> CancelJobResponse-cancelJobResponse pResponseStatus_ =-  CancelJobResponse'-    {_crsSuccess = Nothing, _crsResponseStatus = pResponseStatus_}----- | Undocumented member.-crsSuccess :: Lens' CancelJobResponse (Maybe Bool)-crsSuccess = lens _crsSuccess (\ s a -> s{_crsSuccess = a})---- | -- | The response status code.-crsResponseStatus :: Lens' CancelJobResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})--instance NFData CancelJobResponse where

@@ -1,225 +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.ImportExport.CreateJob--- 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)------ This operation initiates the process of scheduling an upload or download of your data. You include in the request a manifest that describes the data transfer specifics. The response to the request includes a job ID, which you can use in other operations, a signature that you use to identify your storage device, and the address where you should ship your storage device.-module Network.AWS.ImportExport.CreateJob-    (-    -- * Creating a Request-      createJob-    , CreateJob-    -- * Request Lenses-    , cjAPIVersion-    , cjManifestAddendum-    , cjJobType-    , cjManifest-    , cjValidateOnly--    -- * Destructuring the Response-    , createJobResponse-    , CreateJobResponse-    -- * Response Lenses-    , cjrsSignature-    , cjrsJobType-    , cjrsJobId-    , cjrsSignatureFileContents-    , cjrsWarningMessage-    , cjrsArtifactList-    , cjrsResponseStatus-    ) where--import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Input structure for the CreateJob operation.------ /See:/ 'createJob' smart constructor.-data CreateJob = CreateJob'-  { _cjAPIVersion       :: !(Maybe Text)-  , _cjManifestAddendum :: !(Maybe Text)-  , _cjJobType          :: !JobType-  , _cjManifest         :: !Text-  , _cjValidateOnly     :: !Bool-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateJob' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cjAPIVersion' - Undocumented member.------ * 'cjManifestAddendum' - Undocumented member.------ * 'cjJobType' - Undocumented member.------ * 'cjManifest' - Undocumented member.------ * 'cjValidateOnly' - Undocumented member.-createJob-    :: JobType -- ^ 'cjJobType'-    -> Text -- ^ 'cjManifest'-    -> Bool -- ^ 'cjValidateOnly'-    -> CreateJob-createJob pJobType_ pManifest_ pValidateOnly_ =-  CreateJob'-    { _cjAPIVersion = Nothing-    , _cjManifestAddendum = Nothing-    , _cjJobType = pJobType_-    , _cjManifest = pManifest_-    , _cjValidateOnly = pValidateOnly_-    }----- | Undocumented member.-cjAPIVersion :: Lens' CreateJob (Maybe Text)-cjAPIVersion = lens _cjAPIVersion (\ s a -> s{_cjAPIVersion = a})---- | Undocumented member.-cjManifestAddendum :: Lens' CreateJob (Maybe Text)-cjManifestAddendum = lens _cjManifestAddendum (\ s a -> s{_cjManifestAddendum = a})---- | Undocumented member.-cjJobType :: Lens' CreateJob JobType-cjJobType = lens _cjJobType (\ s a -> s{_cjJobType = a})---- | Undocumented member.-cjManifest :: Lens' CreateJob Text-cjManifest = lens _cjManifest (\ s a -> s{_cjManifest = a})---- | Undocumented member.-cjValidateOnly :: Lens' CreateJob Bool-cjValidateOnly = lens _cjValidateOnly (\ s a -> s{_cjValidateOnly = a})--instance AWSRequest CreateJob where-        type Rs CreateJob = CreateJobResponse-        request = postQuery importExport-        response-          = receiveXMLWrapper "CreateJobResult"-              (\ s h x ->-                 CreateJobResponse' <$>-                   (x .@? "Signature") <*> (x .@? "JobType") <*>-                     (x .@? "JobId")-                     <*> (x .@? "SignatureFileContents")-                     <*> (x .@? "WarningMessage")-                     <*>-                     (x .@? "ArtifactList" .!@ mempty >>=-                        may (parseXMLList "member"))-                     <*> (pure (fromEnum s)))--instance Hashable CreateJob where--instance NFData CreateJob where--instance ToHeaders CreateJob where-        toHeaders = const mempty--instance ToPath CreateJob where-        toPath = const "/"--instance ToQuery CreateJob where-        toQuery CreateJob'{..}-          = mconcat-              ["Operation=CreateJob",-               "Action" =: ("CreateJob" :: ByteString),-               "Version" =: ("2010-06-01" :: ByteString),-               "APIVersion" =: _cjAPIVersion,-               "ManifestAddendum" =: _cjManifestAddendum,-               "JobType" =: _cjJobType, "Manifest" =: _cjManifest,-               "ValidateOnly" =: _cjValidateOnly]---- | Output structure for the CreateJob operation.------ /See:/ 'createJobResponse' smart constructor.-data CreateJobResponse = CreateJobResponse'-  { _cjrsSignature             :: !(Maybe Text)-  , _cjrsJobType               :: !(Maybe JobType)-  , _cjrsJobId                 :: !(Maybe Text)-  , _cjrsSignatureFileContents :: !(Maybe Text)-  , _cjrsWarningMessage        :: !(Maybe Text)-  , _cjrsArtifactList          :: !(Maybe [Artifact])-  , _cjrsResponseStatus        :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateJobResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cjrsSignature' - Undocumented member.------ * 'cjrsJobType' - Undocumented member.------ * 'cjrsJobId' - Undocumented member.------ * 'cjrsSignatureFileContents' - Undocumented member.------ * 'cjrsWarningMessage' - Undocumented member.------ * 'cjrsArtifactList' - Undocumented member.------ * 'cjrsResponseStatus' - -- | The response status code.-createJobResponse-    :: Int -- ^ 'cjrsResponseStatus'-    -> CreateJobResponse-createJobResponse pResponseStatus_ =-  CreateJobResponse'-    { _cjrsSignature = Nothing-    , _cjrsJobType = Nothing-    , _cjrsJobId = Nothing-    , _cjrsSignatureFileContents = Nothing-    , _cjrsWarningMessage = Nothing-    , _cjrsArtifactList = Nothing-    , _cjrsResponseStatus = pResponseStatus_-    }----- | Undocumented member.-cjrsSignature :: Lens' CreateJobResponse (Maybe Text)-cjrsSignature = lens _cjrsSignature (\ s a -> s{_cjrsSignature = a})---- | Undocumented member.-cjrsJobType :: Lens' CreateJobResponse (Maybe JobType)-cjrsJobType = lens _cjrsJobType (\ s a -> s{_cjrsJobType = a})---- | Undocumented member.-cjrsJobId :: Lens' CreateJobResponse (Maybe Text)-cjrsJobId = lens _cjrsJobId (\ s a -> s{_cjrsJobId = a})---- | Undocumented member.-cjrsSignatureFileContents :: Lens' CreateJobResponse (Maybe Text)-cjrsSignatureFileContents = lens _cjrsSignatureFileContents (\ s a -> s{_cjrsSignatureFileContents = a})---- | Undocumented member.-cjrsWarningMessage :: Lens' CreateJobResponse (Maybe Text)-cjrsWarningMessage = lens _cjrsWarningMessage (\ s a -> s{_cjrsWarningMessage = a})---- | Undocumented member.-cjrsArtifactList :: Lens' CreateJobResponse [Artifact]-cjrsArtifactList = lens _cjrsArtifactList (\ s a -> s{_cjrsArtifactList = a}) . _Default . _Coerce---- | -- | The response status code.-cjrsResponseStatus :: Lens' CreateJobResponse Int-cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a})--instance NFData CreateJobResponse where

@@ -1,245 +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.ImportExport.GetShippingLabel--- 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)------ This operation generates a pre-paid UPS shipping label that you will use to ship your device to AWS for processing.-module Network.AWS.ImportExport.GetShippingLabel-    (-    -- * Creating a Request-      getShippingLabel-    , GetShippingLabel-    -- * Request Lenses-    , gslStreet3-    , gslAPIVersion-    , gslCountry-    , gslStateOrProvince-    , gslPostalCode-    , gslStreet2-    , gslName-    , gslCompany-    , gslPhoneNumber-    , gslCity-    , gslStreet1-    , gslJobIds--    -- * Destructuring the Response-    , getShippingLabelResponse-    , GetShippingLabelResponse-    -- * Response Lenses-    , gslrsShippingLabelURL-    , gslrsWarning-    , gslrsResponseStatus-    ) where--import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'getShippingLabel' smart constructor.-data GetShippingLabel = GetShippingLabel'-  { _gslStreet3         :: !(Maybe Text)-  , _gslAPIVersion      :: !(Maybe Text)-  , _gslCountry         :: !(Maybe Text)-  , _gslStateOrProvince :: !(Maybe Text)-  , _gslPostalCode      :: !(Maybe Text)-  , _gslStreet2         :: !(Maybe Text)-  , _gslName            :: !(Maybe Text)-  , _gslCompany         :: !(Maybe Text)-  , _gslPhoneNumber     :: !(Maybe Text)-  , _gslCity            :: !(Maybe Text)-  , _gslStreet1         :: !(Maybe Text)-  , _gslJobIds          :: ![Text]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetShippingLabel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gslStreet3' - Undocumented member.------ * 'gslAPIVersion' - Undocumented member.------ * 'gslCountry' - Undocumented member.------ * 'gslStateOrProvince' - Undocumented member.------ * 'gslPostalCode' - Undocumented member.------ * 'gslStreet2' - Undocumented member.------ * 'gslName' - Undocumented member.------ * 'gslCompany' - Undocumented member.------ * 'gslPhoneNumber' - Undocumented member.------ * 'gslCity' - Undocumented member.------ * 'gslStreet1' - Undocumented member.------ * 'gslJobIds' - Undocumented member.-getShippingLabel-    :: GetShippingLabel-getShippingLabel =-  GetShippingLabel'-    { _gslStreet3 = Nothing-    , _gslAPIVersion = Nothing-    , _gslCountry = Nothing-    , _gslStateOrProvince = Nothing-    , _gslPostalCode = Nothing-    , _gslStreet2 = Nothing-    , _gslName = Nothing-    , _gslCompany = Nothing-    , _gslPhoneNumber = Nothing-    , _gslCity = Nothing-    , _gslStreet1 = Nothing-    , _gslJobIds = mempty-    }----- | Undocumented member.-gslStreet3 :: Lens' GetShippingLabel (Maybe Text)-gslStreet3 = lens _gslStreet3 (\ s a -> s{_gslStreet3 = a})---- | Undocumented member.-gslAPIVersion :: Lens' GetShippingLabel (Maybe Text)-gslAPIVersion = lens _gslAPIVersion (\ s a -> s{_gslAPIVersion = a})---- | Undocumented member.-gslCountry :: Lens' GetShippingLabel (Maybe Text)-gslCountry = lens _gslCountry (\ s a -> s{_gslCountry = a})---- | Undocumented member.-gslStateOrProvince :: Lens' GetShippingLabel (Maybe Text)-gslStateOrProvince = lens _gslStateOrProvince (\ s a -> s{_gslStateOrProvince = a})---- | Undocumented member.-gslPostalCode :: Lens' GetShippingLabel (Maybe Text)-gslPostalCode = lens _gslPostalCode (\ s a -> s{_gslPostalCode = a})---- | Undocumented member.-gslStreet2 :: Lens' GetShippingLabel (Maybe Text)-gslStreet2 = lens _gslStreet2 (\ s a -> s{_gslStreet2 = a})---- | Undocumented member.-gslName :: Lens' GetShippingLabel (Maybe Text)-gslName = lens _gslName (\ s a -> s{_gslName = a})---- | Undocumented member.-gslCompany :: Lens' GetShippingLabel (Maybe Text)-gslCompany = lens _gslCompany (\ s a -> s{_gslCompany = a})---- | Undocumented member.-gslPhoneNumber :: Lens' GetShippingLabel (Maybe Text)-gslPhoneNumber = lens _gslPhoneNumber (\ s a -> s{_gslPhoneNumber = a})---- | Undocumented member.-gslCity :: Lens' GetShippingLabel (Maybe Text)-gslCity = lens _gslCity (\ s a -> s{_gslCity = a})---- | Undocumented member.-gslStreet1 :: Lens' GetShippingLabel (Maybe Text)-gslStreet1 = lens _gslStreet1 (\ s a -> s{_gslStreet1 = a})---- | Undocumented member.-gslJobIds :: Lens' GetShippingLabel [Text]-gslJobIds = lens _gslJobIds (\ s a -> s{_gslJobIds = a}) . _Coerce--instance AWSRequest GetShippingLabel where-        type Rs GetShippingLabel = GetShippingLabelResponse-        request = postQuery importExport-        response-          = receiveXMLWrapper "GetShippingLabelResult"-              (\ s h x ->-                 GetShippingLabelResponse' <$>-                   (x .@? "ShippingLabelURL") <*> (x .@? "Warning") <*>-                     (pure (fromEnum s)))--instance Hashable GetShippingLabel where--instance NFData GetShippingLabel where--instance ToHeaders GetShippingLabel where-        toHeaders = const mempty--instance ToPath GetShippingLabel where-        toPath = const "/"--instance ToQuery GetShippingLabel where-        toQuery GetShippingLabel'{..}-          = mconcat-              ["Operation=GetShippingLabel",-               "Action" =: ("GetShippingLabel" :: ByteString),-               "Version" =: ("2010-06-01" :: ByteString),-               "street3" =: _gslStreet3,-               "APIVersion" =: _gslAPIVersion,-               "country" =: _gslCountry,-               "stateOrProvince" =: _gslStateOrProvince,-               "postalCode" =: _gslPostalCode,-               "street2" =: _gslStreet2, "name" =: _gslName,-               "company" =: _gslCompany,-               "phoneNumber" =: _gslPhoneNumber, "city" =: _gslCity,-               "street1" =: _gslStreet1,-               "jobIds" =: toQueryList "member" _gslJobIds]---- | /See:/ 'getShippingLabelResponse' smart constructor.-data GetShippingLabelResponse = GetShippingLabelResponse'-  { _gslrsShippingLabelURL :: !(Maybe Text)-  , _gslrsWarning          :: !(Maybe Text)-  , _gslrsResponseStatus   :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetShippingLabelResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gslrsShippingLabelURL' - Undocumented member.------ * 'gslrsWarning' - Undocumented member.------ * 'gslrsResponseStatus' - -- | The response status code.-getShippingLabelResponse-    :: Int -- ^ 'gslrsResponseStatus'-    -> GetShippingLabelResponse-getShippingLabelResponse pResponseStatus_ =-  GetShippingLabelResponse'-    { _gslrsShippingLabelURL = Nothing-    , _gslrsWarning = Nothing-    , _gslrsResponseStatus = pResponseStatus_-    }----- | Undocumented member.-gslrsShippingLabelURL :: Lens' GetShippingLabelResponse (Maybe Text)-gslrsShippingLabelURL = lens _gslrsShippingLabelURL (\ s a -> s{_gslrsShippingLabelURL = a})---- | Undocumented member.-gslrsWarning :: Lens' GetShippingLabelResponse (Maybe Text)-gslrsWarning = lens _gslrsWarning (\ s a -> s{_gslrsWarning = a})---- | -- | The response status code.-gslrsResponseStatus :: Lens' GetShippingLabelResponse Int-gslrsResponseStatus = lens _gslrsResponseStatus (\ s a -> s{_gslrsResponseStatus = a})--instance NFData GetShippingLabelResponse where

@@ -1,289 +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.ImportExport.GetStatus--- 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)------ This operation returns information about a job, including where the job is in the processing pipeline, the status of the results, and the signature value associated with the job. You can only return information about jobs you own.-module Network.AWS.ImportExport.GetStatus-    (-    -- * Creating a Request-      getStatus-    , GetStatus-    -- * Request Lenses-    , gsAPIVersion-    , gsJobId--    -- * Destructuring the Response-    , getStatusResponse-    , GetStatusResponse-    -- * Response Lenses-    , gsrsCarrier-    , gsrsTrackingNumber-    , gsrsSignature-    , gsrsJobType-    , gsrsJobId-    , gsrsSignatureFileContents-    , gsrsErrorCount-    , gsrsCurrentManifest-    , gsrsArtifactList-    , gsrsLogBucket-    , gsrsCreationDate-    , gsrsProgressCode-    , gsrsLocationCode-    , gsrsLogKey-    , gsrsLocationMessage-    , gsrsProgressMessage-    , gsrsResponseStatus-    ) where--import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Input structure for the GetStatus operation.------ /See:/ 'getStatus' smart constructor.-data GetStatus = GetStatus'-  { _gsAPIVersion :: !(Maybe Text)-  , _gsJobId      :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gsAPIVersion' - Undocumented member.------ * 'gsJobId' - Undocumented member.-getStatus-    :: Text -- ^ 'gsJobId'-    -> GetStatus-getStatus pJobId_ = GetStatus' {_gsAPIVersion = Nothing, _gsJobId = pJobId_}----- | Undocumented member.-gsAPIVersion :: Lens' GetStatus (Maybe Text)-gsAPIVersion = lens _gsAPIVersion (\ s a -> s{_gsAPIVersion = a})---- | Undocumented member.-gsJobId :: Lens' GetStatus Text-gsJobId = lens _gsJobId (\ s a -> s{_gsJobId = a})--instance AWSRequest GetStatus where-        type Rs GetStatus = GetStatusResponse-        request = postQuery importExport-        response-          = receiveXMLWrapper "GetStatusResult"-              (\ s h x ->-                 GetStatusResponse' <$>-                   (x .@? "Carrier") <*> (x .@? "TrackingNumber") <*>-                     (x .@? "Signature")-                     <*> (x .@? "JobType")-                     <*> (x .@? "JobId")-                     <*> (x .@? "SignatureFileContents")-                     <*> (x .@? "ErrorCount")-                     <*> (x .@? "CurrentManifest")-                     <*>-                     (x .@? "ArtifactList" .!@ mempty >>=-                        may (parseXMLList "member"))-                     <*> (x .@? "LogBucket")-                     <*> (x .@? "CreationDate")-                     <*> (x .@? "ProgressCode")-                     <*> (x .@? "LocationCode")-                     <*> (x .@? "LogKey")-                     <*> (x .@? "LocationMessage")-                     <*> (x .@? "ProgressMessage")-                     <*> (pure (fromEnum s)))--instance Hashable GetStatus where--instance NFData GetStatus where--instance ToHeaders GetStatus where-        toHeaders = const mempty--instance ToPath GetStatus where-        toPath = const "/"--instance ToQuery GetStatus where-        toQuery GetStatus'{..}-          = mconcat-              ["Operation=GetStatus",-               "Action" =: ("GetStatus" :: ByteString),-               "Version" =: ("2010-06-01" :: ByteString),-               "APIVersion" =: _gsAPIVersion, "JobId" =: _gsJobId]---- | Output structure for the GetStatus operation.------ /See:/ 'getStatusResponse' smart constructor.-data GetStatusResponse = GetStatusResponse'-  { _gsrsCarrier               :: !(Maybe Text)-  , _gsrsTrackingNumber        :: !(Maybe Text)-  , _gsrsSignature             :: !(Maybe Text)-  , _gsrsJobType               :: !(Maybe JobType)-  , _gsrsJobId                 :: !(Maybe Text)-  , _gsrsSignatureFileContents :: !(Maybe Text)-  , _gsrsErrorCount            :: !(Maybe Int)-  , _gsrsCurrentManifest       :: !(Maybe Text)-  , _gsrsArtifactList          :: !(Maybe [Artifact])-  , _gsrsLogBucket             :: !(Maybe Text)-  , _gsrsCreationDate          :: !(Maybe ISO8601)-  , _gsrsProgressCode          :: !(Maybe Text)-  , _gsrsLocationCode          :: !(Maybe Text)-  , _gsrsLogKey                :: !(Maybe Text)-  , _gsrsLocationMessage       :: !(Maybe Text)-  , _gsrsProgressMessage       :: !(Maybe Text)-  , _gsrsResponseStatus        :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetStatusResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gsrsCarrier' - Undocumented member.------ * 'gsrsTrackingNumber' - Undocumented member.------ * 'gsrsSignature' - Undocumented member.------ * 'gsrsJobType' - Undocumented member.------ * 'gsrsJobId' - Undocumented member.------ * 'gsrsSignatureFileContents' - Undocumented member.------ * 'gsrsErrorCount' - Undocumented member.------ * 'gsrsCurrentManifest' - Undocumented member.------ * 'gsrsArtifactList' - Undocumented member.------ * 'gsrsLogBucket' - Undocumented member.------ * 'gsrsCreationDate' - Undocumented member.------ * 'gsrsProgressCode' - Undocumented member.------ * 'gsrsLocationCode' - Undocumented member.------ * 'gsrsLogKey' - Undocumented member.------ * 'gsrsLocationMessage' - Undocumented member.------ * 'gsrsProgressMessage' - Undocumented member.------ * 'gsrsResponseStatus' - -- | The response status code.-getStatusResponse-    :: Int -- ^ 'gsrsResponseStatus'-    -> GetStatusResponse-getStatusResponse pResponseStatus_ =-  GetStatusResponse'-    { _gsrsCarrier = Nothing-    , _gsrsTrackingNumber = Nothing-    , _gsrsSignature = Nothing-    , _gsrsJobType = Nothing-    , _gsrsJobId = Nothing-    , _gsrsSignatureFileContents = Nothing-    , _gsrsErrorCount = Nothing-    , _gsrsCurrentManifest = Nothing-    , _gsrsArtifactList = Nothing-    , _gsrsLogBucket = Nothing-    , _gsrsCreationDate = Nothing-    , _gsrsProgressCode = Nothing-    , _gsrsLocationCode = Nothing-    , _gsrsLogKey = Nothing-    , _gsrsLocationMessage = Nothing-    , _gsrsProgressMessage = Nothing-    , _gsrsResponseStatus = pResponseStatus_-    }----- | Undocumented member.-gsrsCarrier :: Lens' GetStatusResponse (Maybe Text)-gsrsCarrier = lens _gsrsCarrier (\ s a -> s{_gsrsCarrier = a})---- | Undocumented member.-gsrsTrackingNumber :: Lens' GetStatusResponse (Maybe Text)-gsrsTrackingNumber = lens _gsrsTrackingNumber (\ s a -> s{_gsrsTrackingNumber = a})---- | Undocumented member.-gsrsSignature :: Lens' GetStatusResponse (Maybe Text)-gsrsSignature = lens _gsrsSignature (\ s a -> s{_gsrsSignature = a})---- | Undocumented member.-gsrsJobType :: Lens' GetStatusResponse (Maybe JobType)-gsrsJobType = lens _gsrsJobType (\ s a -> s{_gsrsJobType = a})---- | Undocumented member.-gsrsJobId :: Lens' GetStatusResponse (Maybe Text)-gsrsJobId = lens _gsrsJobId (\ s a -> s{_gsrsJobId = a})---- | Undocumented member.-gsrsSignatureFileContents :: Lens' GetStatusResponse (Maybe Text)-gsrsSignatureFileContents = lens _gsrsSignatureFileContents (\ s a -> s{_gsrsSignatureFileContents = a})---- | Undocumented member.-gsrsErrorCount :: Lens' GetStatusResponse (Maybe Int)-gsrsErrorCount = lens _gsrsErrorCount (\ s a -> s{_gsrsErrorCount = a})---- | Undocumented member.-gsrsCurrentManifest :: Lens' GetStatusResponse (Maybe Text)-gsrsCurrentManifest = lens _gsrsCurrentManifest (\ s a -> s{_gsrsCurrentManifest = a})---- | Undocumented member.-gsrsArtifactList :: Lens' GetStatusResponse [Artifact]-gsrsArtifactList = lens _gsrsArtifactList (\ s a -> s{_gsrsArtifactList = a}) . _Default . _Coerce---- | Undocumented member.-gsrsLogBucket :: Lens' GetStatusResponse (Maybe Text)-gsrsLogBucket = lens _gsrsLogBucket (\ s a -> s{_gsrsLogBucket = a})---- | Undocumented member.-gsrsCreationDate :: Lens' GetStatusResponse (Maybe UTCTime)-gsrsCreationDate = lens _gsrsCreationDate (\ s a -> s{_gsrsCreationDate = a}) . mapping _Time---- | Undocumented member.-gsrsProgressCode :: Lens' GetStatusResponse (Maybe Text)-gsrsProgressCode = lens _gsrsProgressCode (\ s a -> s{_gsrsProgressCode = a})---- | Undocumented member.-gsrsLocationCode :: Lens' GetStatusResponse (Maybe Text)-gsrsLocationCode = lens _gsrsLocationCode (\ s a -> s{_gsrsLocationCode = a})---- | Undocumented member.-gsrsLogKey :: Lens' GetStatusResponse (Maybe Text)-gsrsLogKey = lens _gsrsLogKey (\ s a -> s{_gsrsLogKey = a})---- | Undocumented member.-gsrsLocationMessage :: Lens' GetStatusResponse (Maybe Text)-gsrsLocationMessage = lens _gsrsLocationMessage (\ s a -> s{_gsrsLocationMessage = a})---- | Undocumented member.-gsrsProgressMessage :: Lens' GetStatusResponse (Maybe Text)-gsrsProgressMessage = lens _gsrsProgressMessage (\ s a -> s{_gsrsProgressMessage = a})---- | -- | The response status code.-gsrsResponseStatus :: Lens' GetStatusResponse Int-gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a})--instance NFData GetStatusResponse where

@@ -1,170 +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.ImportExport.ListJobs--- 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)------ This operation returns the jobs associated with the requester. AWS Import/Export lists the jobs in reverse chronological order based on the date of creation. For example if Job Test1 was created 2009Dec30 and Test2 was created 2010Feb05, the ListJobs operation would return Test2 followed by Test1.------ This operation returns paginated results.-module Network.AWS.ImportExport.ListJobs-    (-    -- * Creating a Request-      listJobs-    , ListJobs-    -- * Request Lenses-    , ljAPIVersion-    , ljMarker-    , ljMaxJobs--    -- * Destructuring the Response-    , listJobsResponse-    , ListJobsResponse-    -- * Response Lenses-    , ljrsJobs-    , ljrsIsTruncated-    , ljrsResponseStatus-    ) where--import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Input structure for the ListJobs operation.------ /See:/ 'listJobs' smart constructor.-data ListJobs = ListJobs'-  { _ljAPIVersion :: !(Maybe Text)-  , _ljMarker     :: !(Maybe Text)-  , _ljMaxJobs    :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListJobs' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ljAPIVersion' - Undocumented member.------ * 'ljMarker' - Undocumented member.------ * 'ljMaxJobs' - Undocumented member.-listJobs-    :: ListJobs-listJobs =-  ListJobs' {_ljAPIVersion = Nothing, _ljMarker = Nothing, _ljMaxJobs = Nothing}----- | Undocumented member.-ljAPIVersion :: Lens' ListJobs (Maybe Text)-ljAPIVersion = lens _ljAPIVersion (\ s a -> s{_ljAPIVersion = a})---- | Undocumented member.-ljMarker :: Lens' ListJobs (Maybe Text)-ljMarker = lens _ljMarker (\ s a -> s{_ljMarker = a})---- | Undocumented member.-ljMaxJobs :: Lens' ListJobs (Maybe Int)-ljMaxJobs = lens _ljMaxJobs (\ s a -> s{_ljMaxJobs = a})--instance AWSPager ListJobs where-        page rq rs-          | stop (rs ^. ljrsIsTruncated) = Nothing-          | isNothing (rs ^? ljrsJobs . _last . jobJobId) =-            Nothing-          | otherwise =-            Just $ rq &-              ljMarker .~ rs ^? ljrsJobs . _last . jobJobId--instance AWSRequest ListJobs where-        type Rs ListJobs = ListJobsResponse-        request = postQuery importExport-        response-          = receiveXMLWrapper "ListJobsResult"-              (\ s h x ->-                 ListJobsResponse' <$>-                   (x .@? "Jobs" .!@ mempty >>=-                      may (parseXMLList "member"))-                     <*> (x .@? "IsTruncated")-                     <*> (pure (fromEnum s)))--instance Hashable ListJobs where--instance NFData ListJobs where--instance ToHeaders ListJobs where-        toHeaders = const mempty--instance ToPath ListJobs where-        toPath = const "/"--instance ToQuery ListJobs where-        toQuery ListJobs'{..}-          = mconcat-              ["Operation=ListJobs",-               "Action" =: ("ListJobs" :: ByteString),-               "Version" =: ("2010-06-01" :: ByteString),-               "APIVersion" =: _ljAPIVersion, "Marker" =: _ljMarker,-               "MaxJobs" =: _ljMaxJobs]---- | Output structure for the ListJobs operation.------ /See:/ 'listJobsResponse' smart constructor.-data ListJobsResponse = ListJobsResponse'-  { _ljrsJobs           :: !(Maybe [Job])-  , _ljrsIsTruncated    :: !(Maybe Bool)-  , _ljrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ljrsJobs' - Undocumented member.------ * 'ljrsIsTruncated' - Undocumented member.------ * 'ljrsResponseStatus' - -- | The response status code.-listJobsResponse-    :: Int -- ^ 'ljrsResponseStatus'-    -> ListJobsResponse-listJobsResponse pResponseStatus_ =-  ListJobsResponse'-    { _ljrsJobs = Nothing-    , _ljrsIsTruncated = Nothing-    , _ljrsResponseStatus = pResponseStatus_-    }----- | Undocumented member.-ljrsJobs :: Lens' ListJobsResponse [Job]-ljrsJobs = lens _ljrsJobs (\ s a -> s{_ljrsJobs = a}) . _Default . _Coerce---- | Undocumented member.-ljrsIsTruncated :: Lens' ListJobsResponse (Maybe Bool)-ljrsIsTruncated = lens _ljrsIsTruncated (\ s a -> s{_ljrsIsTruncated = a})---- | -- | The response status code.-ljrsResponseStatus :: Lens' ListJobsResponse Int-ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a})--instance NFData ListJobsResponse where

@@ -1,218 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.ImportExport.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.ImportExport.Types-    (-    -- * Service Configuration-      importExport--    -- * Errors-    , _InvalidJobIdException-    , _InvalidParameterException-    , _ExpiredJobIdException-    , _InvalidFileSystemException-    , _InvalidAccessKeyIdException-    , _UnableToUpdateJobIdException-    , _UnableToCancelJobIdException-    , _MultipleRegionsException-    , _InvalidVersionException-    , _MalformedManifestException-    , _MissingParameterException-    , _CanceledJobIdException-    , _BucketPermissionException-    , _NoSuchBucketException-    , _InvalidAddressException-    , _MissingCustomsException-    , _InvalidManifestFieldException-    , _InvalidCustomsException-    , _MissingManifestFieldException-    , _CreateJobQuotaExceededException--    -- * JobType-    , JobType (..)--    -- * Artifact-    , Artifact-    , artifact-    , aURL-    , aDescription--    -- * Job-    , Job-    , job-    , jobJobType-    , jobJobId-    , jobIsCanceled-    , jobCreationDate-    ) where--import Network.AWS.ImportExport.Types.Product-import Network.AWS.ImportExport.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V2---- | API version @2010-06-01@ of the Amazon Import/Export SDK configuration.-importExport :: Service-importExport =-  Service-    { _svcAbbrev = "ImportExport"-    , _svcSigner = v2-    , _svcPrefix = "importexport"-    , _svcVersion = "2010-06-01"-    , _svcEndpoint = defaultEndpoint importExport-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseXMLError "ImportExport"-    , _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 JOBID was missing, not found, or not associated with the AWS account.-_InvalidJobIdException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidJobIdException = _MatchServiceError importExport "InvalidJobIdException"----- | One or more parameters had an invalid value.-_InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidParameterException =-  _MatchServiceError importExport "InvalidParameterException"----- | Indicates that the specified job has expired out of the system.-_ExpiredJobIdException :: AsError a => Getting (First ServiceError) a ServiceError-_ExpiredJobIdException = _MatchServiceError importExport "ExpiredJobIdException"----- | File system specified in export manifest is invalid.-_InvalidFileSystemException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidFileSystemException =-  _MatchServiceError importExport "InvalidFileSystemException"----- | The AWS Access Key ID specified in the request did not match the manifest's accessKeyId value. The manifest and the request authentication must use the same AWS Access Key ID.-_InvalidAccessKeyIdException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidAccessKeyIdException =-  _MatchServiceError importExport "InvalidAccessKeyIdException"----- | AWS Import/Export cannot update the job-_UnableToUpdateJobIdException :: AsError a => Getting (First ServiceError) a ServiceError-_UnableToUpdateJobIdException =-  _MatchServiceError importExport "UnableToUpdateJobIdException"----- | AWS Import/Export cannot cancel the job-_UnableToCancelJobIdException :: AsError a => Getting (First ServiceError) a ServiceError-_UnableToCancelJobIdException =-  _MatchServiceError importExport "UnableToCancelJobIdException"----- | Your manifest file contained buckets from multiple regions. A job is restricted to buckets from one region. Please correct and resubmit.-_MultipleRegionsException :: AsError a => Getting (First ServiceError) a ServiceError-_MultipleRegionsException =-  _MatchServiceError importExport "MultipleRegionsException"----- | The client tool version is invalid.-_InvalidVersionException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidVersionException =-  _MatchServiceError importExport "InvalidVersionException"----- | Your manifest is not well-formed.-_MalformedManifestException :: AsError a => Getting (First ServiceError) a ServiceError-_MalformedManifestException =-  _MatchServiceError importExport "MalformedManifestException"----- | One or more required parameters was missing from the request.-_MissingParameterException :: AsError a => Getting (First ServiceError) a ServiceError-_MissingParameterException =-  _MatchServiceError importExport "MissingParameterException"----- | The specified job ID has been canceled and is no longer valid.-_CanceledJobIdException :: AsError a => Getting (First ServiceError) a ServiceError-_CanceledJobIdException =-  _MatchServiceError importExport "CanceledJobIdException"----- | The account specified does not have the appropriate bucket permissions.-_BucketPermissionException :: AsError a => Getting (First ServiceError) a ServiceError-_BucketPermissionException =-  _MatchServiceError importExport "BucketPermissionException"----- | The specified bucket does not exist. Create the specified bucket or change the manifest's bucket, exportBucket, or logBucket field to a bucket that the account, as specified by the manifest's Access Key ID, has write permissions to.-_NoSuchBucketException :: AsError a => Getting (First ServiceError) a ServiceError-_NoSuchBucketException = _MatchServiceError importExport "NoSuchBucketException"----- | The address specified in the manifest is invalid.-_InvalidAddressException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidAddressException =-  _MatchServiceError importExport "InvalidAddressException"----- | One or more required customs parameters was missing from the manifest.-_MissingCustomsException :: AsError a => Getting (First ServiceError) a ServiceError-_MissingCustomsException =-  _MatchServiceError importExport "MissingCustomsException"----- | One or more manifest fields was invalid. Please correct and resubmit.-_InvalidManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidManifestFieldException =-  _MatchServiceError importExport "InvalidManifestFieldException"----- | One or more customs parameters was invalid. Please correct and resubmit.-_InvalidCustomsException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidCustomsException =-  _MatchServiceError importExport "InvalidCustomsException"----- | One or more required fields were missing from the manifest file. Please correct and resubmit.-_MissingManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError-_MissingManifestFieldException =-  _MatchServiceError importExport "MissingManifestFieldException"----- | Each account can create only a certain number of jobs per day. If you need to create more than this, please contact awsimportexport@amazon.com to explain your particular use case.-_CreateJobQuotaExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_CreateJobQuotaExceededException =-  _MatchServiceError importExport "CreateJobQuotaExceededException"-

@@ -1,124 +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.ImportExport.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.ImportExport.Types.Product where--import Network.AWS.ImportExport.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude---- | A discrete item that contains the description and URL of an artifact (such as a PDF).------ /See:/ 'artifact' smart constructor.-data Artifact = Artifact'-  { _aURL         :: !(Maybe Text)-  , _aDescription :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Artifact' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aURL' - Undocumented member.------ * 'aDescription' - Undocumented member.-artifact-    :: Artifact-artifact = Artifact' {_aURL = Nothing, _aDescription = Nothing}----- | Undocumented member.-aURL :: Lens' Artifact (Maybe Text)-aURL = lens _aURL (\ s a -> s{_aURL = a})---- | Undocumented member.-aDescription :: Lens' Artifact (Maybe Text)-aDescription = lens _aDescription (\ s a -> s{_aDescription = a})--instance FromXML Artifact where-        parseXML x-          = Artifact' <$>-              (x .@? "URL") <*> (x .@? "Description")--instance Hashable Artifact where--instance NFData Artifact where---- | Representation of a job returned by the ListJobs operation.------ /See:/ 'job' smart constructor.-data Job = Job'-  { _jobJobType      :: !JobType-  , _jobJobId        :: !Text-  , _jobIsCanceled   :: !Bool-  , _jobCreationDate :: !ISO8601-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Job' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jobJobType' - Undocumented member.------ * 'jobJobId' - Undocumented member.------ * 'jobIsCanceled' - Undocumented member.------ * 'jobCreationDate' - Undocumented member.-job-    :: JobType -- ^ 'jobJobType'-    -> Text -- ^ 'jobJobId'-    -> Bool -- ^ 'jobIsCanceled'-    -> UTCTime -- ^ 'jobCreationDate'-    -> Job-job pJobType_ pJobId_ pIsCanceled_ pCreationDate_ =-  Job'-    { _jobJobType = pJobType_-    , _jobJobId = pJobId_-    , _jobIsCanceled = pIsCanceled_-    , _jobCreationDate = _Time # pCreationDate_-    }----- | Undocumented member.-jobJobType :: Lens' Job JobType-jobJobType = lens _jobJobType (\ s a -> s{_jobJobType = a})---- | Undocumented member.-jobJobId :: Lens' Job Text-jobJobId = lens _jobJobId (\ s a -> s{_jobJobId = a})---- | Undocumented member.-jobIsCanceled :: Lens' Job Bool-jobIsCanceled = lens _jobIsCanceled (\ s a -> s{_jobIsCanceled = a})---- | Undocumented member.-jobCreationDate :: Lens' Job UTCTime-jobCreationDate = lens _jobCreationDate (\ s a -> s{_jobCreationDate = a}) . _Time--instance FromXML Job where-        parseXML x-          = Job' <$>-              (x .@ "JobType") <*> (x .@ "JobId") <*>-                (x .@ "IsCanceled")-                <*> (x .@ "CreationDate")--instance Hashable Job where--instance NFData Job where

@@ -1,48 +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.ImportExport.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.ImportExport.Types.Sum where--import Network.AWS.Prelude---- | Specifies whether the job to initiate is an import or export job.-data JobType-  = Export-  | Import-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText JobType where-    parser = takeLowerText >>= \case-        "export" -> pure Export-        "import" -> pure Import-        e -> fromTextError $ "Failure parsing JobType from value: '" <> e-           <> "'. Accepted values: export, import"--instance ToText JobType where-    toText = \case-        Export -> "Export"-        Import -> "Import"--instance Hashable     JobType-instance NFData       JobType-instance ToByteString JobType-instance ToQuery      JobType-instance ToHeader     JobType--instance FromXML JobType where-    parseXML = parseXMLText "JobType"

@@ -1,194 +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.ImportExport.UpdateJob--- 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)------ You use this operation to change the parameters specified in the original manifest file by supplying a new manifest file. The manifest file attached to this request replaces the original manifest file. You can only use the operation after a CreateJob request but before the data transfer starts and you can only use it on jobs you own.-module Network.AWS.ImportExport.UpdateJob-    (-    -- * Creating a Request-      updateJob-    , UpdateJob-    -- * Request Lenses-    , ujAPIVersion-    , ujJobId-    , ujManifest-    , ujJobType-    , ujValidateOnly--    -- * Destructuring the Response-    , updateJobResponse-    , UpdateJobResponse-    -- * Response Lenses-    , ujrsSuccess-    , ujrsWarningMessage-    , ujrsArtifactList-    , ujrsResponseStatus-    ) where--import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Input structure for the UpateJob operation.------ /See:/ 'updateJob' smart constructor.-data UpdateJob = UpdateJob'-  { _ujAPIVersion   :: !(Maybe Text)-  , _ujJobId        :: !Text-  , _ujManifest     :: !Text-  , _ujJobType      :: !JobType-  , _ujValidateOnly :: !Bool-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateJob' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ujAPIVersion' - Undocumented member.------ * 'ujJobId' - Undocumented member.------ * 'ujManifest' - Undocumented member.------ * 'ujJobType' - Undocumented member.------ * 'ujValidateOnly' - Undocumented member.-updateJob-    :: Text -- ^ 'ujJobId'-    -> Text -- ^ 'ujManifest'-    -> JobType -- ^ 'ujJobType'-    -> Bool -- ^ 'ujValidateOnly'-    -> UpdateJob-updateJob pJobId_ pManifest_ pJobType_ pValidateOnly_ =-  UpdateJob'-    { _ujAPIVersion = Nothing-    , _ujJobId = pJobId_-    , _ujManifest = pManifest_-    , _ujJobType = pJobType_-    , _ujValidateOnly = pValidateOnly_-    }----- | Undocumented member.-ujAPIVersion :: Lens' UpdateJob (Maybe Text)-ujAPIVersion = lens _ujAPIVersion (\ s a -> s{_ujAPIVersion = a})---- | Undocumented member.-ujJobId :: Lens' UpdateJob Text-ujJobId = lens _ujJobId (\ s a -> s{_ujJobId = a})---- | Undocumented member.-ujManifest :: Lens' UpdateJob Text-ujManifest = lens _ujManifest (\ s a -> s{_ujManifest = a})---- | Undocumented member.-ujJobType :: Lens' UpdateJob JobType-ujJobType = lens _ujJobType (\ s a -> s{_ujJobType = a})---- | Undocumented member.-ujValidateOnly :: Lens' UpdateJob Bool-ujValidateOnly = lens _ujValidateOnly (\ s a -> s{_ujValidateOnly = a})--instance AWSRequest UpdateJob where-        type Rs UpdateJob = UpdateJobResponse-        request = postQuery importExport-        response-          = receiveXMLWrapper "UpdateJobResult"-              (\ s h x ->-                 UpdateJobResponse' <$>-                   (x .@? "Success") <*> (x .@? "WarningMessage") <*>-                     (x .@? "ArtifactList" .!@ mempty >>=-                        may (parseXMLList "member"))-                     <*> (pure (fromEnum s)))--instance Hashable UpdateJob where--instance NFData UpdateJob where--instance ToHeaders UpdateJob where-        toHeaders = const mempty--instance ToPath UpdateJob where-        toPath = const "/"--instance ToQuery UpdateJob where-        toQuery UpdateJob'{..}-          = mconcat-              ["Operation=UpdateJob",-               "Action" =: ("UpdateJob" :: ByteString),-               "Version" =: ("2010-06-01" :: ByteString),-               "APIVersion" =: _ujAPIVersion, "JobId" =: _ujJobId,-               "Manifest" =: _ujManifest, "JobType" =: _ujJobType,-               "ValidateOnly" =: _ujValidateOnly]---- | Output structure for the UpateJob operation.------ /See:/ 'updateJobResponse' smart constructor.-data UpdateJobResponse = UpdateJobResponse'-  { _ujrsSuccess        :: !(Maybe Bool)-  , _ujrsWarningMessage :: !(Maybe Text)-  , _ujrsArtifactList   :: !(Maybe [Artifact])-  , _ujrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateJobResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ujrsSuccess' - Undocumented member.------ * 'ujrsWarningMessage' - Undocumented member.------ * 'ujrsArtifactList' - Undocumented member.------ * 'ujrsResponseStatus' - -- | The response status code.-updateJobResponse-    :: Int -- ^ 'ujrsResponseStatus'-    -> UpdateJobResponse-updateJobResponse pResponseStatus_ =-  UpdateJobResponse'-    { _ujrsSuccess = Nothing-    , _ujrsWarningMessage = Nothing-    , _ujrsArtifactList = Nothing-    , _ujrsResponseStatus = pResponseStatus_-    }----- | Undocumented member.-ujrsSuccess :: Lens' UpdateJobResponse (Maybe Bool)-ujrsSuccess = lens _ujrsSuccess (\ s a -> s{_ujrsSuccess = a})---- | Undocumented member.-ujrsWarningMessage :: Lens' UpdateJobResponse (Maybe Text)-ujrsWarningMessage = lens _ujrsWarningMessage (\ s a -> s{_ujrsWarningMessage = a})---- | Undocumented member.-ujrsArtifactList :: Lens' UpdateJobResponse [Artifact]-ujrsArtifactList = lens _ujrsArtifactList (\ s a -> s{_ujrsArtifactList = a}) . _Default . _Coerce---- | -- | The response status code.-ujrsResponseStatus :: Lens' UpdateJobResponse Int-ujrsResponseStatus = lens _ujrsResponseStatus (\ s a -> s{_ujrsResponseStatus = a})--instance NFData UpdateJobResponse where

@@ -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.ImportExport.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.ImportExport.Waiters where--import Network.AWS.ImportExport.Types-import Network.AWS.Lens-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.ImportExport+import Test.Amazonka.ImportExport.Internal import Test.Tasty-import Test.AWS.ImportExport-import Test.AWS.ImportExport.Internal  main :: IO ()-main = defaultMain $ testGroup "ImportExport"-    [ testGroup "tests"    tests-    , testGroup "fixtures" fixtures-    ]+main =+  defaultMain $+    testGroup+      "ImportExport"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]

@@ -1,147 +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.ImportExport--- 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.ImportExport where--import Data.Proxy-import Network.AWS.ImportExport-import Test.AWS.Fixture-import Test.AWS.ImportExport.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"---         [ requestGetShippingLabel $---             getShippingLabel------         , requestCreateJob $---             createJob------         , requestListJobs $---             listJobs------         , requestUpdateJob $---             updateJob------         , requestGetStatus $---             getStatus------         , requestCancelJob $---             cancelJob------           ]----     , testGroup "response"---         [ responseGetShippingLabel $---             getShippingLabelResponse------         , responseCreateJob $---             createJobResponse------         , responseListJobs $---             listJobsResponse------         , responseUpdateJob $---             updateJobResponse------         , responseGetStatus $---             getStatusResponse------         , responseCancelJob $---             cancelJobResponse------           ]---     ]---- Requests--requestGetShippingLabel :: GetShippingLabel -> TestTree-requestGetShippingLabel = req-    "GetShippingLabel"-    "fixture/GetShippingLabel.yaml"--requestCreateJob :: CreateJob -> TestTree-requestCreateJob = req-    "CreateJob"-    "fixture/CreateJob.yaml"--requestListJobs :: ListJobs -> TestTree-requestListJobs = req-    "ListJobs"-    "fixture/ListJobs.yaml"--requestUpdateJob :: UpdateJob -> TestTree-requestUpdateJob = req-    "UpdateJob"-    "fixture/UpdateJob.yaml"--requestGetStatus :: GetStatus -> TestTree-requestGetStatus = req-    "GetStatus"-    "fixture/GetStatus.yaml"--requestCancelJob :: CancelJob -> TestTree-requestCancelJob = req-    "CancelJob"-    "fixture/CancelJob.yaml"---- Responses--responseGetShippingLabel :: GetShippingLabelResponse -> TestTree-responseGetShippingLabel = res-    "GetShippingLabelResponse"-    "fixture/GetShippingLabelResponse.proto"-    importExport-    (Proxy :: Proxy GetShippingLabel)--responseCreateJob :: CreateJobResponse -> TestTree-responseCreateJob = res-    "CreateJobResponse"-    "fixture/CreateJobResponse.proto"-    importExport-    (Proxy :: Proxy CreateJob)--responseListJobs :: ListJobsResponse -> TestTree-responseListJobs = res-    "ListJobsResponse"-    "fixture/ListJobsResponse.proto"-    importExport-    (Proxy :: Proxy ListJobs)--responseUpdateJob :: UpdateJobResponse -> TestTree-responseUpdateJob = res-    "UpdateJobResponse"-    "fixture/UpdateJobResponse.proto"-    importExport-    (Proxy :: Proxy UpdateJob)--responseGetStatus :: GetStatusResponse -> TestTree-responseGetStatus = res-    "GetStatusResponse"-    "fixture/GetStatusResponse.proto"-    importExport-    (Proxy :: Proxy GetStatus)--responseCancelJob :: CancelJobResponse -> TestTree-responseCancelJob = res-    "CancelJobResponse"-    "fixture/CancelJobResponse.proto"-    importExport-    (Proxy :: Proxy CancelJob)

@@ -1,26 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Module      : Test.AWS.ImportExport--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.ImportExport-    ( tests-    , fixtures-    ) where--import           Network.AWS.ImportExport-import           Test.AWS.Gen.ImportExport-import           Test.Tasty--tests :: [TestTree]-tests = []--fixtures :: [TestTree]-fixtures = []

@@ -1,16 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Test.AWS.ImportExport.Internal--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.ImportExport.Internal where--import Test.AWS.Prelude

@@ -0,0 +1,158 @@+{-# 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.ImportExport+-- 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.ImportExport where++import Amazonka.ImportExport+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.ImportExport.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"+--         [ requestCancelJob $+--             newCancelJob+--+--         , requestCreateJob $+--             newCreateJob+--+--         , requestGetShippingLabel $+--             newGetShippingLabel+--+--         , requestGetStatus $+--             newGetStatus+--+--         , requestListJobs $+--             newListJobs+--+--         , requestUpdateJob $+--             newUpdateJob+--+--           ]++--     , testGroup "response"+--         [ responseCancelJob $+--             newCancelJobResponse+--+--         , responseCreateJob $+--             newCreateJobResponse+--+--         , responseGetShippingLabel $+--             newGetShippingLabelResponse+--+--         , responseGetStatus $+--             newGetStatusResponse+--+--         , responseListJobs $+--             newListJobsResponse+--+--         , responseUpdateJob $+--             newUpdateJobResponse+--+--           ]+--     ]++-- Requests++requestCancelJob :: CancelJob -> TestTree+requestCancelJob =+  req+    "CancelJob"+    "fixture/CancelJob.yaml"++requestCreateJob :: CreateJob -> TestTree+requestCreateJob =+  req+    "CreateJob"+    "fixture/CreateJob.yaml"++requestGetShippingLabel :: GetShippingLabel -> TestTree+requestGetShippingLabel =+  req+    "GetShippingLabel"+    "fixture/GetShippingLabel.yaml"++requestGetStatus :: GetStatus -> TestTree+requestGetStatus =+  req+    "GetStatus"+    "fixture/GetStatus.yaml"++requestListJobs :: ListJobs -> TestTree+requestListJobs =+  req+    "ListJobs"+    "fixture/ListJobs.yaml"++requestUpdateJob :: UpdateJob -> TestTree+requestUpdateJob =+  req+    "UpdateJob"+    "fixture/UpdateJob.yaml"++-- Responses++responseCancelJob :: CancelJobResponse -> TestTree+responseCancelJob =+  res+    "CancelJobResponse"+    "fixture/CancelJobResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CancelJob)++responseCreateJob :: CreateJobResponse -> TestTree+responseCreateJob =+  res+    "CreateJobResponse"+    "fixture/CreateJobResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateJob)++responseGetShippingLabel :: GetShippingLabelResponse -> TestTree+responseGetShippingLabel =+  res+    "GetShippingLabelResponse"+    "fixture/GetShippingLabelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetShippingLabel)++responseGetStatus :: GetStatusResponse -> TestTree+responseGetStatus =+  res+    "GetStatusResponse"+    "fixture/GetStatusResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetStatus)++responseListJobs :: ListJobsResponse -> TestTree+responseListJobs =+  res+    "ListJobsResponse"+    "fixture/ListJobsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListJobs)++responseUpdateJob :: UpdateJobResponse -> TestTree+responseUpdateJob =+  res+    "UpdateJobResponse"+    "fixture/UpdateJobResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateJob)

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

@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.ImportExport.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.ImportExport.Internal where