amazonka-elastictranscoder 1.6.1 → 2.0

raw patch · 98 files changed

+16639/−6886 lines, 98 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-elastictranscoder.cabal +119/−90
• fixture/CancelJob.yaml +10/−0
• fixture/CreateJob.yaml +10/−0
• fixture/CreatePipeline.yaml +10/−0
• fixture/CreatePreset.yaml +10/−0
• fixture/DeletePipeline.yaml +10/−0
• fixture/DeletePreset.yaml +10/−0
• fixture/ListJobsByPipeline.yaml +10/−0
• fixture/ListJobsByStatus.yaml +10/−0
• fixture/ListPipelines.yaml +10/−0
• fixture/ListPresets.yaml +10/−0
• fixture/ReadJob.yaml +10/−0
• fixture/ReadPipeline.yaml +10/−0
• fixture/ReadPreset.yaml +10/−0
• fixture/UpdatePipeline.yaml +10/−0
• fixture/UpdatePipelineNotifications.yaml +10/−0
• fixture/UpdatePipelineStatus.yaml +10/−0
• gen/Amazonka/ElasticTranscoder.hs +323/−0
• gen/Amazonka/ElasticTranscoder/CancelJob.hs +149/−0
• gen/Amazonka/ElasticTranscoder/CreateJob.hs +324/−0
• gen/Amazonka/ElasticTranscoder/CreatePipeline.hs +883/−0
• gen/Amazonka/ElasticTranscoder/CreatePreset.hs +285/−0
• gen/Amazonka/ElasticTranscoder/DeletePipeline.hs +143/−0
• gen/Amazonka/ElasticTranscoder/DeletePreset.hs +144/−0
• gen/Amazonka/ElasticTranscoder/Lens.hs +441/−0
• gen/Amazonka/ElasticTranscoder/ListJobsByPipeline.hs +248/−0
• gen/Amazonka/ElasticTranscoder/ListJobsByStatus.hs +251/−0
• gen/Amazonka/ElasticTranscoder/ListPipelines.hs +229/−0
• gen/Amazonka/ElasticTranscoder/ListPresets.hs +228/−0
• gen/Amazonka/ElasticTranscoder/ReadJob.hs +155/−0
• gen/Amazonka/ElasticTranscoder/ReadPipeline.hs +181/−0
• gen/Amazonka/ElasticTranscoder/ReadPreset.hs +157/−0
• gen/Amazonka/ElasticTranscoder/Types.hs +512/−0
• gen/Amazonka/ElasticTranscoder/Types/Artwork.hs +307/−0
• gen/Amazonka/ElasticTranscoder/Types/AudioCodecOptions.hs +248/−0
• gen/Amazonka/ElasticTranscoder/Types/AudioParameters.hs +604/−0
• gen/Amazonka/ElasticTranscoder/Types/CaptionFormat.hs +237/−0
• gen/Amazonka/ElasticTranscoder/Types/CaptionSource.hs +188/−0
• gen/Amazonka/ElasticTranscoder/Types/Captions.hs +173/−0
• gen/Amazonka/ElasticTranscoder/Types/Clip.hs +73/−0
• gen/Amazonka/ElasticTranscoder/Types/CreateJobOutput.hs +571/−0
• gen/Amazonka/ElasticTranscoder/Types/CreateJobPlaylist.hs +275/−0
• gen/Amazonka/ElasticTranscoder/Types/DetectedProperties.hs +135/−0
• gen/Amazonka/ElasticTranscoder/Types/Encryption.hs +277/−0
• gen/Amazonka/ElasticTranscoder/Types/HlsContentProtection.hs +240/−0
• gen/Amazonka/ElasticTranscoder/Types/InputCaptions.hs +155/−0
• gen/Amazonka/ElasticTranscoder/Types/Job.hs +359/−0
• gen/Amazonka/ElasticTranscoder/Types/JobAlbumArt.hs +142/−0
• gen/Amazonka/ElasticTranscoder/Types/JobInput.hs +472/−0
• gen/Amazonka/ElasticTranscoder/Types/JobOutput.hs +805/−0
• gen/Amazonka/ElasticTranscoder/Types/JobWatermark.hs +143/−0
• gen/Amazonka/ElasticTranscoder/Types/Notifications.hs +135/−0
• gen/Amazonka/ElasticTranscoder/Types/Permission.hs +190/−0
• gen/Amazonka/ElasticTranscoder/Types/Pipeline.hs +599/−0
• gen/Amazonka/ElasticTranscoder/Types/PipelineOutputConfig.hs +209/−0
• gen/Amazonka/ElasticTranscoder/Types/PlayReadyDrm.hs +231/−0
• gen/Amazonka/ElasticTranscoder/Types/Playlist.hs +304/−0
• gen/Amazonka/ElasticTranscoder/Types/Preset.hs +197/−0
• gen/Amazonka/ElasticTranscoder/Types/PresetWatermark.hs +598/−0
• gen/Amazonka/ElasticTranscoder/Types/Thumbnails.hs +360/−0
• gen/Amazonka/ElasticTranscoder/Types/TimeSpan.hs +123/−0
• gen/Amazonka/ElasticTranscoder/Types/Timing.hs +99/−0
• gen/Amazonka/ElasticTranscoder/Types/VideoParameters.hs +1447/−0
• gen/Amazonka/ElasticTranscoder/Types/Warning.hs +97/−0
• gen/Amazonka/ElasticTranscoder/UpdatePipeline.hs +791/−0
• gen/Amazonka/ElasticTranscoder/UpdatePipelineNotifications.hs +264/−0
• gen/Amazonka/ElasticTranscoder/UpdatePipelineStatus.hs +199/−0
• gen/Amazonka/ElasticTranscoder/Waiters.hs +60/−0
• gen/Network/AWS/ElasticTranscoder.hs +0/−471
• gen/Network/AWS/ElasticTranscoder/CancelJob.hs +0/−119
• gen/Network/AWS/ElasticTranscoder/CreateJob.hs +0/−209
• gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs +0/−221
• gen/Network/AWS/ElasticTranscoder/CreatePreset.hs +0/−203
• gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs +0/−121
• gen/Network/AWS/ElasticTranscoder/DeletePreset.hs +0/−119
• gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs +0/−180
• gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs +0/−174
• gen/Network/AWS/ElasticTranscoder/ListPipelines.hs +0/−161
• gen/Network/AWS/ElasticTranscoder/ListPresets.hs +0/−161
• gen/Network/AWS/ElasticTranscoder/ReadJob.hs +0/−129
• gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs +0/−141
• gen/Network/AWS/ElasticTranscoder/ReadPreset.hs +0/−129
• gen/Network/AWS/ElasticTranscoder/Types.hs +0/−444
• gen/Network/AWS/ElasticTranscoder/Types/Product.hs +0/−2845
• gen/Network/AWS/ElasticTranscoder/Types/Sum.hs +0/−20
• gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs +0/−220
• gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs +0/−152
• gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs +0/−147
• gen/Network/AWS/ElasticTranscoder/Waiters.hs +0/−46
• test/Main.hs +11/−9
• test/Test/AWS/ElasticTranscoder.hs +0/−26
• test/Test/AWS/ElasticTranscoder/Internal.hs +0/−16
• test/Test/AWS/Gen/ElasticTranscoder.hs +0/−327
• test/Test/Amazonka/ElasticTranscoder.hs +20/−0
• test/Test/Amazonka/ElasticTranscoder/Internal.hs +8/−0
• test/Test/Amazonka/Gen/ElasticTranscoder.hs +358/−0

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

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

@@ -1,101 +1,130 @@-name:                  amazonka-elastictranscoder-version:               1.6.1-synopsis:              Amazon Elastic Transcoder 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-elastictranscoder+version:            2.0+synopsis:           Amazon Elastic Transcoder 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.ElasticTranscoder" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2012-09-25@ 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.ElasticTranscoder.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.ElasticTranscoder" 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-elastictranscoder+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-elastictranscoder  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.ElasticTranscoder-        , Network.AWS.ElasticTranscoder.CancelJob-        , Network.AWS.ElasticTranscoder.CreateJob-        , Network.AWS.ElasticTranscoder.CreatePipeline-        , Network.AWS.ElasticTranscoder.CreatePreset-        , Network.AWS.ElasticTranscoder.DeletePipeline-        , Network.AWS.ElasticTranscoder.DeletePreset-        , Network.AWS.ElasticTranscoder.ListJobsByPipeline-        , Network.AWS.ElasticTranscoder.ListJobsByStatus-        , Network.AWS.ElasticTranscoder.ListPipelines-        , Network.AWS.ElasticTranscoder.ListPresets-        , Network.AWS.ElasticTranscoder.ReadJob-        , Network.AWS.ElasticTranscoder.ReadPipeline-        , Network.AWS.ElasticTranscoder.ReadPreset-        , Network.AWS.ElasticTranscoder.Types-        , Network.AWS.ElasticTranscoder.UpdatePipeline-        , Network.AWS.ElasticTranscoder.UpdatePipelineNotifications-        , Network.AWS.ElasticTranscoder.UpdatePipelineStatus-        , Network.AWS.ElasticTranscoder.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.ElasticTranscoder.Types.Product-        , Network.AWS.ElasticTranscoder.Types.Sum+  exposed-modules:+    Amazonka.ElasticTranscoder+    Amazonka.ElasticTranscoder.CancelJob+    Amazonka.ElasticTranscoder.CreateJob+    Amazonka.ElasticTranscoder.CreatePipeline+    Amazonka.ElasticTranscoder.CreatePreset+    Amazonka.ElasticTranscoder.DeletePipeline+    Amazonka.ElasticTranscoder.DeletePreset+    Amazonka.ElasticTranscoder.Lens+    Amazonka.ElasticTranscoder.ListJobsByPipeline+    Amazonka.ElasticTranscoder.ListJobsByStatus+    Amazonka.ElasticTranscoder.ListPipelines+    Amazonka.ElasticTranscoder.ListPresets+    Amazonka.ElasticTranscoder.ReadJob+    Amazonka.ElasticTranscoder.ReadPipeline+    Amazonka.ElasticTranscoder.ReadPreset+    Amazonka.ElasticTranscoder.Types+    Amazonka.ElasticTranscoder.Types.Artwork+    Amazonka.ElasticTranscoder.Types.AudioCodecOptions+    Amazonka.ElasticTranscoder.Types.AudioParameters+    Amazonka.ElasticTranscoder.Types.CaptionFormat+    Amazonka.ElasticTranscoder.Types.Captions+    Amazonka.ElasticTranscoder.Types.CaptionSource+    Amazonka.ElasticTranscoder.Types.Clip+    Amazonka.ElasticTranscoder.Types.CreateJobOutput+    Amazonka.ElasticTranscoder.Types.CreateJobPlaylist+    Amazonka.ElasticTranscoder.Types.DetectedProperties+    Amazonka.ElasticTranscoder.Types.Encryption+    Amazonka.ElasticTranscoder.Types.HlsContentProtection+    Amazonka.ElasticTranscoder.Types.InputCaptions+    Amazonka.ElasticTranscoder.Types.Job+    Amazonka.ElasticTranscoder.Types.JobAlbumArt+    Amazonka.ElasticTranscoder.Types.JobInput+    Amazonka.ElasticTranscoder.Types.JobOutput+    Amazonka.ElasticTranscoder.Types.JobWatermark+    Amazonka.ElasticTranscoder.Types.Notifications+    Amazonka.ElasticTranscoder.Types.Permission+    Amazonka.ElasticTranscoder.Types.Pipeline+    Amazonka.ElasticTranscoder.Types.PipelineOutputConfig+    Amazonka.ElasticTranscoder.Types.Playlist+    Amazonka.ElasticTranscoder.Types.PlayReadyDrm+    Amazonka.ElasticTranscoder.Types.Preset+    Amazonka.ElasticTranscoder.Types.PresetWatermark+    Amazonka.ElasticTranscoder.Types.Thumbnails+    Amazonka.ElasticTranscoder.Types.TimeSpan+    Amazonka.ElasticTranscoder.Types.Timing+    Amazonka.ElasticTranscoder.Types.VideoParameters+    Amazonka.ElasticTranscoder.Types.Warning+    Amazonka.ElasticTranscoder.UpdatePipeline+    Amazonka.ElasticTranscoder.UpdatePipelineNotifications+    Amazonka.ElasticTranscoder.UpdatePipelineStatus+    Amazonka.ElasticTranscoder.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-elastictranscoder-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.ElasticTranscoder-        , Test.AWS.Gen.ElasticTranscoder-        , Test.AWS.ElasticTranscoder.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.ElasticTranscoder+    Test.Amazonka.ElasticTranscoder.Internal+    Test.Amazonka.Gen.ElasticTranscoder -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-elastictranscoder-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core               >=2.0 && <2.1+    , amazonka-elastictranscoder+    , amazonka-test               >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

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

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

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

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

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

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

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

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

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

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elastictranscoder/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elastictranscoder.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: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elastictranscoder/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elastictranscoder.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/elastictranscoder/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elastictranscoder.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/elastictranscoder/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elastictranscoder.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,323 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.ElasticTranscoder+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2012-09-25@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- AWS Elastic Transcoder Service+--+-- The AWS Elastic Transcoder Service.+module Amazonka.ElasticTranscoder+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** IncompatibleVersionException+    _IncompatibleVersionException,++    -- ** InternalServiceException+    _InternalServiceException,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** ResourceInUseException+    _ResourceInUseException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- ** JobComplete+    newJobComplete,++    -- * Operations+    -- $operations++    -- ** CancelJob+    CancelJob (CancelJob'),+    newCancelJob,+    CancelJobResponse (CancelJobResponse'),+    newCancelJobResponse,++    -- ** CreateJob+    CreateJob (CreateJob'),+    newCreateJob,+    CreateJobResponse (CreateJobResponse'),+    newCreateJobResponse,++    -- ** CreatePipeline+    CreatePipeline (CreatePipeline'),+    newCreatePipeline,+    CreatePipelineResponse (CreatePipelineResponse'),+    newCreatePipelineResponse,++    -- ** CreatePreset+    CreatePreset (CreatePreset'),+    newCreatePreset,+    CreatePresetResponse (CreatePresetResponse'),+    newCreatePresetResponse,++    -- ** DeletePipeline+    DeletePipeline (DeletePipeline'),+    newDeletePipeline,+    DeletePipelineResponse (DeletePipelineResponse'),+    newDeletePipelineResponse,++    -- ** DeletePreset+    DeletePreset (DeletePreset'),+    newDeletePreset,+    DeletePresetResponse (DeletePresetResponse'),+    newDeletePresetResponse,++    -- ** ListJobsByPipeline (Paginated)+    ListJobsByPipeline (ListJobsByPipeline'),+    newListJobsByPipeline,+    ListJobsByPipelineResponse (ListJobsByPipelineResponse'),+    newListJobsByPipelineResponse,++    -- ** ListJobsByStatus (Paginated)+    ListJobsByStatus (ListJobsByStatus'),+    newListJobsByStatus,+    ListJobsByStatusResponse (ListJobsByStatusResponse'),+    newListJobsByStatusResponse,++    -- ** ListPipelines (Paginated)+    ListPipelines (ListPipelines'),+    newListPipelines,+    ListPipelinesResponse (ListPipelinesResponse'),+    newListPipelinesResponse,++    -- ** ListPresets (Paginated)+    ListPresets (ListPresets'),+    newListPresets,+    ListPresetsResponse (ListPresetsResponse'),+    newListPresetsResponse,++    -- ** ReadJob+    ReadJob (ReadJob'),+    newReadJob,+    ReadJobResponse (ReadJobResponse'),+    newReadJobResponse,++    -- ** ReadPipeline+    ReadPipeline (ReadPipeline'),+    newReadPipeline,+    ReadPipelineResponse (ReadPipelineResponse'),+    newReadPipelineResponse,++    -- ** ReadPreset+    ReadPreset (ReadPreset'),+    newReadPreset,+    ReadPresetResponse (ReadPresetResponse'),+    newReadPresetResponse,++    -- ** UpdatePipeline+    UpdatePipeline (UpdatePipeline'),+    newUpdatePipeline,+    UpdatePipelineResponse (UpdatePipelineResponse'),+    newUpdatePipelineResponse,++    -- ** UpdatePipelineNotifications+    UpdatePipelineNotifications (UpdatePipelineNotifications'),+    newUpdatePipelineNotifications,+    UpdatePipelineNotificationsResponse (UpdatePipelineNotificationsResponse'),+    newUpdatePipelineNotificationsResponse,++    -- ** UpdatePipelineStatus+    UpdatePipelineStatus (UpdatePipelineStatus'),+    newUpdatePipelineStatus,+    UpdatePipelineStatusResponse (UpdatePipelineStatusResponse'),+    newUpdatePipelineStatusResponse,++    -- * Types++    -- ** Artwork+    Artwork (Artwork'),+    newArtwork,++    -- ** AudioCodecOptions+    AudioCodecOptions (AudioCodecOptions'),+    newAudioCodecOptions,++    -- ** AudioParameters+    AudioParameters (AudioParameters'),+    newAudioParameters,++    -- ** CaptionFormat+    CaptionFormat (CaptionFormat'),+    newCaptionFormat,++    -- ** CaptionSource+    CaptionSource (CaptionSource'),+    newCaptionSource,++    -- ** Captions+    Captions (Captions'),+    newCaptions,++    -- ** Clip+    Clip (Clip'),+    newClip,++    -- ** CreateJobOutput+    CreateJobOutput (CreateJobOutput'),+    newCreateJobOutput,++    -- ** CreateJobPlaylist+    CreateJobPlaylist (CreateJobPlaylist'),+    newCreateJobPlaylist,++    -- ** DetectedProperties+    DetectedProperties (DetectedProperties'),+    newDetectedProperties,++    -- ** Encryption+    Encryption (Encryption'),+    newEncryption,++    -- ** HlsContentProtection+    HlsContentProtection (HlsContentProtection'),+    newHlsContentProtection,++    -- ** InputCaptions+    InputCaptions (InputCaptions'),+    newInputCaptions,++    -- ** Job+    Job (Job'),+    newJob,++    -- ** JobAlbumArt+    JobAlbumArt (JobAlbumArt'),+    newJobAlbumArt,++    -- ** JobInput+    JobInput (JobInput'),+    newJobInput,++    -- ** JobOutput+    JobOutput (JobOutput'),+    newJobOutput,++    -- ** JobWatermark+    JobWatermark (JobWatermark'),+    newJobWatermark,++    -- ** Notifications+    Notifications (Notifications'),+    newNotifications,++    -- ** Permission+    Permission (Permission'),+    newPermission,++    -- ** Pipeline+    Pipeline (Pipeline'),+    newPipeline,++    -- ** PipelineOutputConfig+    PipelineOutputConfig (PipelineOutputConfig'),+    newPipelineOutputConfig,++    -- ** PlayReadyDrm+    PlayReadyDrm (PlayReadyDrm'),+    newPlayReadyDrm,++    -- ** Playlist+    Playlist (Playlist'),+    newPlaylist,++    -- ** Preset+    Preset (Preset'),+    newPreset,++    -- ** PresetWatermark+    PresetWatermark (PresetWatermark'),+    newPresetWatermark,++    -- ** Thumbnails+    Thumbnails (Thumbnails'),+    newThumbnails,++    -- ** TimeSpan+    TimeSpan (TimeSpan'),+    newTimeSpan,++    -- ** Timing+    Timing (Timing'),+    newTiming,++    -- ** VideoParameters+    VideoParameters (VideoParameters'),+    newVideoParameters,++    -- ** Warning+    Warning (Warning'),+    newWarning,+  )+where++import Amazonka.ElasticTranscoder.CancelJob+import Amazonka.ElasticTranscoder.CreateJob+import Amazonka.ElasticTranscoder.CreatePipeline+import Amazonka.ElasticTranscoder.CreatePreset+import Amazonka.ElasticTranscoder.DeletePipeline+import Amazonka.ElasticTranscoder.DeletePreset+import Amazonka.ElasticTranscoder.Lens+import Amazonka.ElasticTranscoder.ListJobsByPipeline+import Amazonka.ElasticTranscoder.ListJobsByStatus+import Amazonka.ElasticTranscoder.ListPipelines+import Amazonka.ElasticTranscoder.ListPresets+import Amazonka.ElasticTranscoder.ReadJob+import Amazonka.ElasticTranscoder.ReadPipeline+import Amazonka.ElasticTranscoder.ReadPreset+import Amazonka.ElasticTranscoder.Types+import Amazonka.ElasticTranscoder.UpdatePipeline+import Amazonka.ElasticTranscoder.UpdatePipelineNotifications+import Amazonka.ElasticTranscoder.UpdatePipelineStatus+import Amazonka.ElasticTranscoder.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 'ElasticTranscoder'.++-- $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,149 @@+{-# 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.ElasticTranscoder.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)+--+-- The CancelJob operation cancels an unfinished job.+--+-- You can only cancel a job that has a status of @Submitted@. To prevent a+-- pipeline from starting to process a job while you\'re getting the job+-- identifier, use UpdatePipelineStatus to temporarily pause the pipeline.+module Amazonka.ElasticTranscoder.CancelJob+  ( -- * Creating a Request+    CancelJob (..),+    newCancelJob,++    -- * Request Lenses+    cancelJob_id,++    -- * Destructuring the Response+    CancelJobResponse (..),+    newCancelJobResponse,++    -- * Response Lenses+    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.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @CancelJobRequest@ structure.+--+-- /See:/ 'newCancelJob' smart constructor.+data CancelJob = CancelJob'+  { -- | The identifier of the job that you want to cancel.+    --+    -- To get a list of the jobs (including their @jobId@) that have a status+    -- of @Submitted@, use the ListJobsByStatus API action.+    id :: 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:+--+-- 'id', 'cancelJob_id' - The identifier of the job that you want to cancel.+--+-- To get a list of the jobs (including their @jobId@) that have a status+-- of @Submitted@, use the ListJobsByStatus API action.+newCancelJob ::+  -- | 'id'+  Prelude.Text ->+  CancelJob+newCancelJob pId_ = CancelJob' {id = pId_}++-- | The identifier of the job that you want to cancel.+--+-- To get a list of the jobs (including their @jobId@) that have a status+-- of @Submitted@, use the ListJobsByStatus API action.+cancelJob_id :: Lens.Lens' CancelJob Prelude.Text+cancelJob_id = Lens.lens (\CancelJob' {id} -> id) (\s@CancelJob' {} a -> s {id = a} :: CancelJob)++instance Core.AWSRequest CancelJob where+  type AWSResponse CancelJob = CancelJobResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CancelJobResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CancelJob where+  hashWithSalt _salt CancelJob' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData CancelJob where+  rnf CancelJob' {..} = Prelude.rnf id++instance Data.ToHeaders CancelJob where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CancelJob where+  toPath CancelJob' {..} =+    Prelude.mconcat ["/2012-09-25/jobs/", Data.toBS id]++instance Data.ToQuery CancelJob where+  toQuery = Prelude.const Prelude.mempty++-- | The response body contains a JSON object. If the job is successfully+-- canceled, the value of @Success@ is @true@.+--+-- /See:/ 'newCancelJobResponse' smart constructor.+data CancelJobResponse = CancelJobResponse'+  { -- | 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:+--+-- 'httpStatus', 'cancelJobResponse_httpStatus' - The response's http status code.+newCancelJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CancelJobResponse+newCancelJobResponse pHttpStatus_ =+  CancelJobResponse' {httpStatus = pHttpStatus_}++-- | 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 httpStatus

@@ -0,0 +1,324 @@+{-# 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.ElasticTranscoder.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)+--+-- When you create a job, Elastic Transcoder returns JSON data that+-- includes the values that you specified plus information about the job+-- that is created.+--+-- If you have specified more than one output for your jobs (for example,+-- one output for the Kindle Fire and another output for the Apple iPhone+-- 4s), you currently must use the Elastic Transcoder API to list the jobs+-- (as opposed to the AWS Console).+module Amazonka.ElasticTranscoder.CreateJob+  ( -- * Creating a Request+    CreateJob (..),+    newCreateJob,++    -- * Request Lenses+    createJob_input,+    createJob_inputs,+    createJob_output,+    createJob_outputKeyPrefix,+    createJob_outputs,+    createJob_playlists,+    createJob_userMetadata,+    createJob_pipelineId,++    -- * Destructuring the Response+    CreateJobResponse (..),+    newCreateJobResponse,++    -- * Response Lenses+    createJobResponse_job,+    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.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @CreateJobRequest@ structure.+--+-- /See:/ 'newCreateJob' smart constructor.+data CreateJob = CreateJob'+  { -- | A section of the request body that provides information about the file+    -- that is being transcoded.+    input :: Prelude.Maybe JobInput,+    -- | A section of the request body that provides information about the files+    -- that are being transcoded.+    inputs :: Prelude.Maybe [JobInput],+    -- | A section of the request body that provides information about the+    -- transcoded (target) file. We strongly recommend that you use the+    -- @Outputs@ syntax instead of the @Output@ syntax.+    output :: Prelude.Maybe CreateJobOutput,+    -- | The value, if any, that you want Elastic Transcoder to prepend to the+    -- names of all files that this job creates, including output files,+    -- thumbnails, and playlists.+    outputKeyPrefix :: Prelude.Maybe Prelude.Text,+    -- | A section of the request body that provides information about the+    -- transcoded (target) files. We recommend that you use the @Outputs@+    -- syntax instead of the @Output@ syntax.+    outputs :: Prelude.Maybe [CreateJobOutput],+    -- | If you specify a preset in @PresetId@ for which the value of @Container@+    -- is fmp4 (Fragmented MP4) or ts (MPEG-TS), Playlists contains information+    -- about the master playlists that you want Elastic Transcoder to create.+    --+    -- The maximum number of master playlists in a job is 30.+    playlists :: Prelude.Maybe [CreateJobPlaylist],+    -- | User-defined metadata that you want to associate with an Elastic+    -- Transcoder job. You specify metadata in @key\/value@ pairs, and you can+    -- add up to 10 @key\/value@ pairs per job. Elastic Transcoder does not+    -- guarantee that @key\/value@ pairs are returned in the same order in+    -- which you specify them.+    userMetadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The @Id@ of the pipeline that you want Elastic Transcoder to use for+    -- transcoding. The pipeline determines several settings, including the+    -- Amazon S3 bucket from which Elastic Transcoder gets the files to+    -- transcode and the bucket into which Elastic Transcoder puts the+    -- transcoded files.+    pipelineId :: Prelude.Text+  }+  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:+--+-- 'input', 'createJob_input' - A section of the request body that provides information about the file+-- that is being transcoded.+--+-- 'inputs', 'createJob_inputs' - A section of the request body that provides information about the files+-- that are being transcoded.+--+-- 'output', 'createJob_output' - A section of the request body that provides information about the+-- transcoded (target) file. We strongly recommend that you use the+-- @Outputs@ syntax instead of the @Output@ syntax.+--+-- 'outputKeyPrefix', 'createJob_outputKeyPrefix' - The value, if any, that you want Elastic Transcoder to prepend to the+-- names of all files that this job creates, including output files,+-- thumbnails, and playlists.+--+-- 'outputs', 'createJob_outputs' - A section of the request body that provides information about the+-- transcoded (target) files. We recommend that you use the @Outputs@+-- syntax instead of the @Output@ syntax.+--+-- 'playlists', 'createJob_playlists' - If you specify a preset in @PresetId@ for which the value of @Container@+-- is fmp4 (Fragmented MP4) or ts (MPEG-TS), Playlists contains information+-- about the master playlists that you want Elastic Transcoder to create.+--+-- The maximum number of master playlists in a job is 30.+--+-- 'userMetadata', 'createJob_userMetadata' - User-defined metadata that you want to associate with an Elastic+-- Transcoder job. You specify metadata in @key\/value@ pairs, and you can+-- add up to 10 @key\/value@ pairs per job. Elastic Transcoder does not+-- guarantee that @key\/value@ pairs are returned in the same order in+-- which you specify them.+--+-- 'pipelineId', 'createJob_pipelineId' - The @Id@ of the pipeline that you want Elastic Transcoder to use for+-- transcoding. The pipeline determines several settings, including the+-- Amazon S3 bucket from which Elastic Transcoder gets the files to+-- transcode and the bucket into which Elastic Transcoder puts the+-- transcoded files.+newCreateJob ::+  -- | 'pipelineId'+  Prelude.Text ->+  CreateJob+newCreateJob pPipelineId_ =+  CreateJob'+    { input = Prelude.Nothing,+      inputs = Prelude.Nothing,+      output = Prelude.Nothing,+      outputKeyPrefix = Prelude.Nothing,+      outputs = Prelude.Nothing,+      playlists = Prelude.Nothing,+      userMetadata = Prelude.Nothing,+      pipelineId = pPipelineId_+    }++-- | A section of the request body that provides information about the file+-- that is being transcoded.+createJob_input :: Lens.Lens' CreateJob (Prelude.Maybe JobInput)+createJob_input = Lens.lens (\CreateJob' {input} -> input) (\s@CreateJob' {} a -> s {input = a} :: CreateJob)++-- | A section of the request body that provides information about the files+-- that are being transcoded.+createJob_inputs :: Lens.Lens' CreateJob (Prelude.Maybe [JobInput])+createJob_inputs = Lens.lens (\CreateJob' {inputs} -> inputs) (\s@CreateJob' {} a -> s {inputs = a} :: CreateJob) Prelude.. Lens.mapping Lens.coerced++-- | A section of the request body that provides information about the+-- transcoded (target) file. We strongly recommend that you use the+-- @Outputs@ syntax instead of the @Output@ syntax.+createJob_output :: Lens.Lens' CreateJob (Prelude.Maybe CreateJobOutput)+createJob_output = Lens.lens (\CreateJob' {output} -> output) (\s@CreateJob' {} a -> s {output = a} :: CreateJob)++-- | The value, if any, that you want Elastic Transcoder to prepend to the+-- names of all files that this job creates, including output files,+-- thumbnails, and playlists.+createJob_outputKeyPrefix :: Lens.Lens' CreateJob (Prelude.Maybe Prelude.Text)+createJob_outputKeyPrefix = Lens.lens (\CreateJob' {outputKeyPrefix} -> outputKeyPrefix) (\s@CreateJob' {} a -> s {outputKeyPrefix = a} :: CreateJob)++-- | A section of the request body that provides information about the+-- transcoded (target) files. We recommend that you use the @Outputs@+-- syntax instead of the @Output@ syntax.+createJob_outputs :: Lens.Lens' CreateJob (Prelude.Maybe [CreateJobOutput])+createJob_outputs = Lens.lens (\CreateJob' {outputs} -> outputs) (\s@CreateJob' {} a -> s {outputs = a} :: CreateJob) Prelude.. Lens.mapping Lens.coerced++-- | If you specify a preset in @PresetId@ for which the value of @Container@+-- is fmp4 (Fragmented MP4) or ts (MPEG-TS), Playlists contains information+-- about the master playlists that you want Elastic Transcoder to create.+--+-- The maximum number of master playlists in a job is 30.+createJob_playlists :: Lens.Lens' CreateJob (Prelude.Maybe [CreateJobPlaylist])+createJob_playlists = Lens.lens (\CreateJob' {playlists} -> playlists) (\s@CreateJob' {} a -> s {playlists = a} :: CreateJob) Prelude.. Lens.mapping Lens.coerced++-- | User-defined metadata that you want to associate with an Elastic+-- Transcoder job. You specify metadata in @key\/value@ pairs, and you can+-- add up to 10 @key\/value@ pairs per job. Elastic Transcoder does not+-- guarantee that @key\/value@ pairs are returned in the same order in+-- which you specify them.+createJob_userMetadata :: Lens.Lens' CreateJob (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createJob_userMetadata = Lens.lens (\CreateJob' {userMetadata} -> userMetadata) (\s@CreateJob' {} a -> s {userMetadata = a} :: CreateJob) Prelude.. Lens.mapping Lens.coerced++-- | The @Id@ of the pipeline that you want Elastic Transcoder to use for+-- transcoding. The pipeline determines several settings, including the+-- Amazon S3 bucket from which Elastic Transcoder gets the files to+-- transcode and the bucket into which Elastic Transcoder puts the+-- transcoded files.+createJob_pipelineId :: Lens.Lens' CreateJob Prelude.Text+createJob_pipelineId = Lens.lens (\CreateJob' {pipelineId} -> pipelineId) (\s@CreateJob' {} a -> s {pipelineId = a} :: CreateJob)++instance Core.AWSRequest CreateJob where+  type AWSResponse CreateJob = CreateJobResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateJobResponse'+            Prelude.<$> (x Data..?> "Job")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateJob where+  hashWithSalt _salt CreateJob' {..} =+    _salt+      `Prelude.hashWithSalt` input+      `Prelude.hashWithSalt` inputs+      `Prelude.hashWithSalt` output+      `Prelude.hashWithSalt` outputKeyPrefix+      `Prelude.hashWithSalt` outputs+      `Prelude.hashWithSalt` playlists+      `Prelude.hashWithSalt` userMetadata+      `Prelude.hashWithSalt` pipelineId++instance Prelude.NFData CreateJob where+  rnf CreateJob' {..} =+    Prelude.rnf input+      `Prelude.seq` Prelude.rnf inputs+      `Prelude.seq` Prelude.rnf output+      `Prelude.seq` Prelude.rnf outputKeyPrefix+      `Prelude.seq` Prelude.rnf outputs+      `Prelude.seq` Prelude.rnf playlists+      `Prelude.seq` Prelude.rnf userMetadata+      `Prelude.seq` Prelude.rnf pipelineId++instance Data.ToHeaders CreateJob where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON CreateJob where+  toJSON CreateJob' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Input" Data..=) Prelude.<$> input,+            ("Inputs" Data..=) Prelude.<$> inputs,+            ("Output" Data..=) Prelude.<$> output,+            ("OutputKeyPrefix" Data..=)+              Prelude.<$> outputKeyPrefix,+            ("Outputs" Data..=) Prelude.<$> outputs,+            ("Playlists" Data..=) Prelude.<$> playlists,+            ("UserMetadata" Data..=) Prelude.<$> userMetadata,+            Prelude.Just ("PipelineId" Data..= pipelineId)+          ]+      )++instance Data.ToPath CreateJob where+  toPath = Prelude.const "/2012-09-25/jobs"++instance Data.ToQuery CreateJob where+  toQuery = Prelude.const Prelude.mempty++-- | The CreateJobResponse structure.+--+-- /See:/ 'newCreateJobResponse' smart constructor.+data CreateJobResponse = CreateJobResponse'+  { -- | A section of the response body that provides information about the job+    -- that is created.+    job :: 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 '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:+--+-- 'job', 'createJobResponse_job' - A section of the response body that provides information about the job+-- that is created.+--+-- 'httpStatus', 'createJobResponse_httpStatus' - The response's http status code.+newCreateJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateJobResponse+newCreateJobResponse pHttpStatus_ =+  CreateJobResponse'+    { job = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A section of the response body that provides information about the job+-- that is created.+createJobResponse_job :: Lens.Lens' CreateJobResponse (Prelude.Maybe Job)+createJobResponse_job = Lens.lens (\CreateJobResponse' {job} -> job) (\s@CreateJobResponse' {} a -> s {job = 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 job+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,883 @@+{-# 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.ElasticTranscoder.CreatePipeline+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The CreatePipeline operation creates a pipeline with settings that you+-- specify.+module Amazonka.ElasticTranscoder.CreatePipeline+  ( -- * Creating a Request+    CreatePipeline (..),+    newCreatePipeline,++    -- * Request Lenses+    createPipeline_awsKmsKeyArn,+    createPipeline_contentConfig,+    createPipeline_notifications,+    createPipeline_outputBucket,+    createPipeline_thumbnailConfig,+    createPipeline_name,+    createPipeline_inputBucket,+    createPipeline_role,++    -- * Destructuring the Response+    CreatePipelineResponse (..),+    newCreatePipelineResponse,++    -- * Response Lenses+    createPipelineResponse_pipeline,+    createPipelineResponse_warnings,+    createPipelineResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @CreatePipelineRequest@ structure.+--+-- /See:/ 'newCreatePipeline' smart constructor.+data CreatePipeline = CreatePipeline'+  { -- | The AWS Key Management Service (AWS KMS) key that you want to use with+    -- this pipeline.+    --+    -- If you use either @s3@ or @s3-aws-kms@ as your @Encryption:Mode@, you+    -- don\'t need to provide a key with your job because a default key, known+    -- as an AWS-KMS key, is created for you automatically. You need to provide+    -- an AWS-KMS key only if you want to use a non-default AWS-KMS key, or if+    -- you are using an @Encryption:Mode@ of @aes-cbc-pkcs7@, @aes-ctr@, or+    -- @aes-gcm@.+    awsKmsKeyArn :: Prelude.Maybe Prelude.Text,+    -- | The optional @ContentConfig@ object specifies information about the+    -- Amazon S3 bucket in which you want Elastic Transcoder to save transcoded+    -- files and playlists: which bucket to use, which users you want to have+    -- access to the files, the type of access you want users to have, and the+    -- storage class that you want to assign to the files.+    --+    -- If you specify values for @ContentConfig@, you must also specify values+    -- for @ThumbnailConfig@.+    --+    -- If you specify values for @ContentConfig@ and @ThumbnailConfig@, omit+    -- the @OutputBucket@ object.+    --+    -- -   __Bucket__: The Amazon S3 bucket in which you want Elastic+    --     Transcoder to save transcoded files and playlists.+    --+    -- -   __Permissions__ (Optional): The Permissions object specifies which+    --     users you want to have access to transcoded files and the type of+    --     access you want them to have. You can grant permissions to a maximum+    --     of 30 users and\/or predefined Amazon S3 groups.+    --+    -- -   __Grantee Type__: Specify the type of value that appears in the+    --     @Grantee@ object:+    --+    --     -   __Canonical__: The value in the @Grantee@ object is either the+    --         canonical user ID for an AWS account or an origin access+    --         identity for an Amazon CloudFront distribution. For more+    --         information about canonical user IDs, see Access Control List+    --         (ACL) Overview in the Amazon Simple Storage Service Developer+    --         Guide. For more information about using CloudFront origin access+    --         identities to require that users use CloudFront URLs instead of+    --         Amazon S3 URLs, see Using an Origin Access Identity to Restrict+    --         Access to Your Amazon S3 Content.+    --+    --         A canonical user ID is not the same as an AWS account number.+    --+    --     -   __Email__: The value in the @Grantee@ object is the registered+    --         email address of an AWS account.+    --+    --     -   __Group__: The value in the @Grantee@ object is one of the+    --         following predefined Amazon S3 groups: @AllUsers@,+    --         @AuthenticatedUsers@, or @LogDelivery@.+    --+    -- -   __Grantee__: The AWS user or group that you want to have access to+    --     transcoded files and playlists. To identify the user or group, you+    --     can specify the canonical user ID for an AWS account, an origin+    --     access identity for a CloudFront distribution, the registered email+    --     address of an AWS account, or a predefined Amazon S3 group+    --+    -- -   __Access__: The permission that you want to give to the AWS user+    --     that you specified in @Grantee@. Permissions are granted on the+    --     files that Elastic Transcoder adds to the bucket, including+    --     playlists and video files. Valid values include:+    --+    --     -   @READ@: The grantee can read the objects and metadata for+    --         objects that Elastic Transcoder adds to the Amazon S3 bucket.+    --+    --     -   @READ_ACP@: The grantee can read the object ACL for objects that+    --         Elastic Transcoder adds to the Amazon S3 bucket.+    --+    --     -   @WRITE_ACP@: The grantee can write the ACL for the objects that+    --         Elastic Transcoder adds to the Amazon S3 bucket.+    --+    --     -   @FULL_CONTROL@: The grantee has @READ@, @READ_ACP@, and+    --         @WRITE_ACP@ permissions for the objects that Elastic Transcoder+    --         adds to the Amazon S3 bucket.+    --+    -- -   __StorageClass__: The Amazon S3 storage class, @Standard@ or+    --     @ReducedRedundancy@, that you want Elastic Transcoder to assign to+    --     the video files and playlists that it stores in your Amazon S3+    --     bucket.+    contentConfig :: Prelude.Maybe PipelineOutputConfig,+    -- | The Amazon Simple Notification Service (Amazon SNS) topic that you want+    -- to notify to report job status.+    --+    -- To receive notifications, you must also subscribe to the new topic in+    -- the Amazon SNS console.+    --+    -- -   __Progressing__: The topic ARN for the Amazon Simple Notification+    --     Service (Amazon SNS) topic that you want to notify when Elastic+    --     Transcoder has started to process a job in this pipeline. This is+    --     the ARN that Amazon SNS returned when you created the topic. For+    --     more information, see Create a Topic in the Amazon Simple+    --     Notification Service Developer Guide.+    --+    -- -   __Complete__: The topic ARN for the Amazon SNS topic that you want+    --     to notify when Elastic Transcoder has finished processing a job in+    --     this pipeline. This is the ARN that Amazon SNS returned when you+    --     created the topic.+    --+    -- -   __Warning__: The topic ARN for the Amazon SNS topic that you want to+    --     notify when Elastic Transcoder encounters a warning condition while+    --     processing a job in this pipeline. This is the ARN that Amazon SNS+    --     returned when you created the topic.+    --+    -- -   __Error__: The topic ARN for the Amazon SNS topic that you want to+    --     notify when Elastic Transcoder encounters an error condition while+    --     processing a job in this pipeline. This is the ARN that Amazon SNS+    --     returned when you created the topic.+    notifications :: Prelude.Maybe Notifications,+    -- | The Amazon S3 bucket in which you want Elastic Transcoder to save the+    -- transcoded files. (Use this, or use ContentConfig:Bucket plus+    -- ThumbnailConfig:Bucket.)+    --+    -- Specify this value when all of the following are true:+    --+    -- -   You want to save transcoded files, thumbnails (if any), and+    --     playlists (if any) together in one bucket.+    --+    -- -   You do not want to specify the users or groups who have access to+    --     the transcoded files, thumbnails, and playlists.+    --+    -- -   You do not want to specify the permissions that Elastic Transcoder+    --     grants to the files.+    --+    --     When Elastic Transcoder saves files in @OutputBucket@, it grants+    --     full control over the files only to the AWS account that owns the+    --     role that is specified by @Role@.+    --+    -- -   You want to associate the transcoded files and thumbnails with the+    --     Amazon S3 Standard storage class.+    --+    -- If you want to save transcoded files and playlists in one bucket and+    -- thumbnails in another bucket, specify which users can access the+    -- transcoded files or the permissions the users have, or change the Amazon+    -- S3 storage class, omit @OutputBucket@ and specify values for+    -- @ContentConfig@ and @ThumbnailConfig@ instead.+    outputBucket :: Prelude.Maybe Prelude.Text,+    -- | The @ThumbnailConfig@ object specifies several values, including the+    -- Amazon S3 bucket in which you want Elastic Transcoder to save thumbnail+    -- files, which users you want to have access to the files, the type of+    -- access you want users to have, and the storage class that you want to+    -- assign to the files.+    --+    -- If you specify values for @ContentConfig@, you must also specify values+    -- for @ThumbnailConfig@ even if you don\'t want to create thumbnails.+    --+    -- If you specify values for @ContentConfig@ and @ThumbnailConfig@, omit+    -- the @OutputBucket@ object.+    --+    -- -   __Bucket__: The Amazon S3 bucket in which you want Elastic+    --     Transcoder to save thumbnail files.+    --+    -- -   __Permissions__ (Optional): The @Permissions@ object specifies which+    --     users and\/or predefined Amazon S3 groups you want to have access to+    --     thumbnail files, and the type of access you want them to have. You+    --     can grant permissions to a maximum of 30 users and\/or predefined+    --     Amazon S3 groups.+    --+    -- -   __GranteeType__: Specify the type of value that appears in the+    --     Grantee object:+    --+    --     -   __Canonical__: The value in the @Grantee@ object is either the+    --         canonical user ID for an AWS account or an origin access+    --         identity for an Amazon CloudFront distribution.+    --+    --         A canonical user ID is not the same as an AWS account number.+    --+    --     -   __Email__: The value in the @Grantee@ object is the registered+    --         email address of an AWS account.+    --+    --     -   __Group__: The value in the @Grantee@ object is one of the+    --         following predefined Amazon S3 groups: @AllUsers@,+    --         @AuthenticatedUsers@, or @LogDelivery@.+    --+    -- -   __Grantee__: The AWS user or group that you want to have access to+    --     thumbnail files. To identify the user or group, you can specify the+    --     canonical user ID for an AWS account, an origin access identity for+    --     a CloudFront distribution, the registered email address of an AWS+    --     account, or a predefined Amazon S3 group.+    --+    -- -   __Access__: The permission that you want to give to the AWS user+    --     that you specified in @Grantee@. Permissions are granted on the+    --     thumbnail files that Elastic Transcoder adds to the bucket. Valid+    --     values include:+    --+    --     -   @READ@: The grantee can read the thumbnails and metadata for+    --         objects that Elastic Transcoder adds to the Amazon S3 bucket.+    --+    --     -   @READ_ACP@: The grantee can read the object ACL for thumbnails+    --         that Elastic Transcoder adds to the Amazon S3 bucket.+    --+    --     -   @WRITE_ACP@: The grantee can write the ACL for the thumbnails+    --         that Elastic Transcoder adds to the Amazon S3 bucket.+    --+    --     -   @FULL_CONTROL@: The grantee has @READ@, @READ_ACP@, and+    --         @WRITE_ACP@ permissions for the thumbnails that Elastic+    --         Transcoder adds to the Amazon S3 bucket.+    --+    -- -   __StorageClass__: The Amazon S3 storage class, @Standard@ or+    --     @ReducedRedundancy@, that you want Elastic Transcoder to assign to+    --     the thumbnails that it stores in your Amazon S3 bucket.+    thumbnailConfig :: Prelude.Maybe PipelineOutputConfig,+    -- | The name of the pipeline. We recommend that the name be unique within+    -- the AWS account, but uniqueness is not enforced.+    --+    -- Constraints: Maximum 40 characters.+    name :: Prelude.Text,+    -- | The Amazon S3 bucket in which you saved the media files that you want to+    -- transcode.+    inputBucket :: Prelude.Text,+    -- | The IAM Amazon Resource Name (ARN) for the role that you want Elastic+    -- Transcoder to use to create the pipeline.+    role' :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreatePipeline' 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:+--+-- 'awsKmsKeyArn', 'createPipeline_awsKmsKeyArn' - The AWS Key Management Service (AWS KMS) key that you want to use with+-- this pipeline.+--+-- If you use either @s3@ or @s3-aws-kms@ as your @Encryption:Mode@, you+-- don\'t need to provide a key with your job because a default key, known+-- as an AWS-KMS key, is created for you automatically. You need to provide+-- an AWS-KMS key only if you want to use a non-default AWS-KMS key, or if+-- you are using an @Encryption:Mode@ of @aes-cbc-pkcs7@, @aes-ctr@, or+-- @aes-gcm@.+--+-- 'contentConfig', 'createPipeline_contentConfig' - The optional @ContentConfig@ object specifies information about the+-- Amazon S3 bucket in which you want Elastic Transcoder to save transcoded+-- files and playlists: which bucket to use, which users you want to have+-- access to the files, the type of access you want users to have, and the+-- storage class that you want to assign to the files.+--+-- If you specify values for @ContentConfig@, you must also specify values+-- for @ThumbnailConfig@.+--+-- If you specify values for @ContentConfig@ and @ThumbnailConfig@, omit+-- the @OutputBucket@ object.+--+-- -   __Bucket__: The Amazon S3 bucket in which you want Elastic+--     Transcoder to save transcoded files and playlists.+--+-- -   __Permissions__ (Optional): The Permissions object specifies which+--     users you want to have access to transcoded files and the type of+--     access you want them to have. You can grant permissions to a maximum+--     of 30 users and\/or predefined Amazon S3 groups.+--+-- -   __Grantee Type__: Specify the type of value that appears in the+--     @Grantee@ object:+--+--     -   __Canonical__: The value in the @Grantee@ object is either the+--         canonical user ID for an AWS account or an origin access+--         identity for an Amazon CloudFront distribution. For more+--         information about canonical user IDs, see Access Control List+--         (ACL) Overview in the Amazon Simple Storage Service Developer+--         Guide. For more information about using CloudFront origin access+--         identities to require that users use CloudFront URLs instead of+--         Amazon S3 URLs, see Using an Origin Access Identity to Restrict+--         Access to Your Amazon S3 Content.+--+--         A canonical user ID is not the same as an AWS account number.+--+--     -   __Email__: The value in the @Grantee@ object is the registered+--         email address of an AWS account.+--+--     -   __Group__: The value in the @Grantee@ object is one of the+--         following predefined Amazon S3 groups: @AllUsers@,+--         @AuthenticatedUsers@, or @LogDelivery@.+--+-- -   __Grantee__: The AWS user or group that you want to have access to+--     transcoded files and playlists. To identify the user or group, you+--     can specify the canonical user ID for an AWS account, an origin+--     access identity for a CloudFront distribution, the registered email+--     address of an AWS account, or a predefined Amazon S3 group+--+-- -   __Access__: The permission that you want to give to the AWS user+--     that you specified in @Grantee@. Permissions are granted on the+--     files that Elastic Transcoder adds to the bucket, including+--     playlists and video files. Valid values include:+--+--     -   @READ@: The grantee can read the objects and metadata for+--         objects that Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @READ_ACP@: The grantee can read the object ACL for objects that+--         Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @WRITE_ACP@: The grantee can write the ACL for the objects that+--         Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @FULL_CONTROL@: The grantee has @READ@, @READ_ACP@, and+--         @WRITE_ACP@ permissions for the objects that Elastic Transcoder+--         adds to the Amazon S3 bucket.+--+-- -   __StorageClass__: The Amazon S3 storage class, @Standard@ or+--     @ReducedRedundancy@, that you want Elastic Transcoder to assign to+--     the video files and playlists that it stores in your Amazon S3+--     bucket.+--+-- 'notifications', 'createPipeline_notifications' - The Amazon Simple Notification Service (Amazon SNS) topic that you want+-- to notify to report job status.+--+-- To receive notifications, you must also subscribe to the new topic in+-- the Amazon SNS console.+--+-- -   __Progressing__: The topic ARN for the Amazon Simple Notification+--     Service (Amazon SNS) topic that you want to notify when Elastic+--     Transcoder has started to process a job in this pipeline. This is+--     the ARN that Amazon SNS returned when you created the topic. For+--     more information, see Create a Topic in the Amazon Simple+--     Notification Service Developer Guide.+--+-- -   __Complete__: The topic ARN for the Amazon SNS topic that you want+--     to notify when Elastic Transcoder has finished processing a job in+--     this pipeline. This is the ARN that Amazon SNS returned when you+--     created the topic.+--+-- -   __Warning__: The topic ARN for the Amazon SNS topic that you want to+--     notify when Elastic Transcoder encounters a warning condition while+--     processing a job in this pipeline. This is the ARN that Amazon SNS+--     returned when you created the topic.+--+-- -   __Error__: The topic ARN for the Amazon SNS topic that you want to+--     notify when Elastic Transcoder encounters an error condition while+--     processing a job in this pipeline. This is the ARN that Amazon SNS+--     returned when you created the topic.+--+-- 'outputBucket', 'createPipeline_outputBucket' - The Amazon S3 bucket in which you want Elastic Transcoder to save the+-- transcoded files. (Use this, or use ContentConfig:Bucket plus+-- ThumbnailConfig:Bucket.)+--+-- Specify this value when all of the following are true:+--+-- -   You want to save transcoded files, thumbnails (if any), and+--     playlists (if any) together in one bucket.+--+-- -   You do not want to specify the users or groups who have access to+--     the transcoded files, thumbnails, and playlists.+--+-- -   You do not want to specify the permissions that Elastic Transcoder+--     grants to the files.+--+--     When Elastic Transcoder saves files in @OutputBucket@, it grants+--     full control over the files only to the AWS account that owns the+--     role that is specified by @Role@.+--+-- -   You want to associate the transcoded files and thumbnails with the+--     Amazon S3 Standard storage class.+--+-- If you want to save transcoded files and playlists in one bucket and+-- thumbnails in another bucket, specify which users can access the+-- transcoded files or the permissions the users have, or change the Amazon+-- S3 storage class, omit @OutputBucket@ and specify values for+-- @ContentConfig@ and @ThumbnailConfig@ instead.+--+-- 'thumbnailConfig', 'createPipeline_thumbnailConfig' - The @ThumbnailConfig@ object specifies several values, including the+-- Amazon S3 bucket in which you want Elastic Transcoder to save thumbnail+-- files, which users you want to have access to the files, the type of+-- access you want users to have, and the storage class that you want to+-- assign to the files.+--+-- If you specify values for @ContentConfig@, you must also specify values+-- for @ThumbnailConfig@ even if you don\'t want to create thumbnails.+--+-- If you specify values for @ContentConfig@ and @ThumbnailConfig@, omit+-- the @OutputBucket@ object.+--+-- -   __Bucket__: The Amazon S3 bucket in which you want Elastic+--     Transcoder to save thumbnail files.+--+-- -   __Permissions__ (Optional): The @Permissions@ object specifies which+--     users and\/or predefined Amazon S3 groups you want to have access to+--     thumbnail files, and the type of access you want them to have. You+--     can grant permissions to a maximum of 30 users and\/or predefined+--     Amazon S3 groups.+--+-- -   __GranteeType__: Specify the type of value that appears in the+--     Grantee object:+--+--     -   __Canonical__: The value in the @Grantee@ object is either the+--         canonical user ID for an AWS account or an origin access+--         identity for an Amazon CloudFront distribution.+--+--         A canonical user ID is not the same as an AWS account number.+--+--     -   __Email__: The value in the @Grantee@ object is the registered+--         email address of an AWS account.+--+--     -   __Group__: The value in the @Grantee@ object is one of the+--         following predefined Amazon S3 groups: @AllUsers@,+--         @AuthenticatedUsers@, or @LogDelivery@.+--+-- -   __Grantee__: The AWS user or group that you want to have access to+--     thumbnail files. To identify the user or group, you can specify the+--     canonical user ID for an AWS account, an origin access identity for+--     a CloudFront distribution, the registered email address of an AWS+--     account, or a predefined Amazon S3 group.+--+-- -   __Access__: The permission that you want to give to the AWS user+--     that you specified in @Grantee@. Permissions are granted on the+--     thumbnail files that Elastic Transcoder adds to the bucket. Valid+--     values include:+--+--     -   @READ@: The grantee can read the thumbnails and metadata for+--         objects that Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @READ_ACP@: The grantee can read the object ACL for thumbnails+--         that Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @WRITE_ACP@: The grantee can write the ACL for the thumbnails+--         that Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @FULL_CONTROL@: The grantee has @READ@, @READ_ACP@, and+--         @WRITE_ACP@ permissions for the thumbnails that Elastic+--         Transcoder adds to the Amazon S3 bucket.+--+-- -   __StorageClass__: The Amazon S3 storage class, @Standard@ or+--     @ReducedRedundancy@, that you want Elastic Transcoder to assign to+--     the thumbnails that it stores in your Amazon S3 bucket.+--+-- 'name', 'createPipeline_name' - The name of the pipeline. We recommend that the name be unique within+-- the AWS account, but uniqueness is not enforced.+--+-- Constraints: Maximum 40 characters.+--+-- 'inputBucket', 'createPipeline_inputBucket' - The Amazon S3 bucket in which you saved the media files that you want to+-- transcode.+--+-- 'role'', 'createPipeline_role' - The IAM Amazon Resource Name (ARN) for the role that you want Elastic+-- Transcoder to use to create the pipeline.+newCreatePipeline ::+  -- | 'name'+  Prelude.Text ->+  -- | 'inputBucket'+  Prelude.Text ->+  -- | 'role''+  Prelude.Text ->+  CreatePipeline+newCreatePipeline pName_ pInputBucket_ pRole_ =+  CreatePipeline'+    { awsKmsKeyArn = Prelude.Nothing,+      contentConfig = Prelude.Nothing,+      notifications = Prelude.Nothing,+      outputBucket = Prelude.Nothing,+      thumbnailConfig = Prelude.Nothing,+      name = pName_,+      inputBucket = pInputBucket_,+      role' = pRole_+    }++-- | The AWS Key Management Service (AWS KMS) key that you want to use with+-- this pipeline.+--+-- If you use either @s3@ or @s3-aws-kms@ as your @Encryption:Mode@, you+-- don\'t need to provide a key with your job because a default key, known+-- as an AWS-KMS key, is created for you automatically. You need to provide+-- an AWS-KMS key only if you want to use a non-default AWS-KMS key, or if+-- you are using an @Encryption:Mode@ of @aes-cbc-pkcs7@, @aes-ctr@, or+-- @aes-gcm@.+createPipeline_awsKmsKeyArn :: Lens.Lens' CreatePipeline (Prelude.Maybe Prelude.Text)+createPipeline_awsKmsKeyArn = Lens.lens (\CreatePipeline' {awsKmsKeyArn} -> awsKmsKeyArn) (\s@CreatePipeline' {} a -> s {awsKmsKeyArn = a} :: CreatePipeline)++-- | The optional @ContentConfig@ object specifies information about the+-- Amazon S3 bucket in which you want Elastic Transcoder to save transcoded+-- files and playlists: which bucket to use, which users you want to have+-- access to the files, the type of access you want users to have, and the+-- storage class that you want to assign to the files.+--+-- If you specify values for @ContentConfig@, you must also specify values+-- for @ThumbnailConfig@.+--+-- If you specify values for @ContentConfig@ and @ThumbnailConfig@, omit+-- the @OutputBucket@ object.+--+-- -   __Bucket__: The Amazon S3 bucket in which you want Elastic+--     Transcoder to save transcoded files and playlists.+--+-- -   __Permissions__ (Optional): The Permissions object specifies which+--     users you want to have access to transcoded files and the type of+--     access you want them to have. You can grant permissions to a maximum+--     of 30 users and\/or predefined Amazon S3 groups.+--+-- -   __Grantee Type__: Specify the type of value that appears in the+--     @Grantee@ object:+--+--     -   __Canonical__: The value in the @Grantee@ object is either the+--         canonical user ID for an AWS account or an origin access+--         identity for an Amazon CloudFront distribution. For more+--         information about canonical user IDs, see Access Control List+--         (ACL) Overview in the Amazon Simple Storage Service Developer+--         Guide. For more information about using CloudFront origin access+--         identities to require that users use CloudFront URLs instead of+--         Amazon S3 URLs, see Using an Origin Access Identity to Restrict+--         Access to Your Amazon S3 Content.+--+--         A canonical user ID is not the same as an AWS account number.+--+--     -   __Email__: The value in the @Grantee@ object is the registered+--         email address of an AWS account.+--+--     -   __Group__: The value in the @Grantee@ object is one of the+--         following predefined Amazon S3 groups: @AllUsers@,+--         @AuthenticatedUsers@, or @LogDelivery@.+--+-- -   __Grantee__: The AWS user or group that you want to have access to+--     transcoded files and playlists. To identify the user or group, you+--     can specify the canonical user ID for an AWS account, an origin+--     access identity for a CloudFront distribution, the registered email+--     address of an AWS account, or a predefined Amazon S3 group+--+-- -   __Access__: The permission that you want to give to the AWS user+--     that you specified in @Grantee@. Permissions are granted on the+--     files that Elastic Transcoder adds to the bucket, including+--     playlists and video files. Valid values include:+--+--     -   @READ@: The grantee can read the objects and metadata for+--         objects that Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @READ_ACP@: The grantee can read the object ACL for objects that+--         Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @WRITE_ACP@: The grantee can write the ACL for the objects that+--         Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @FULL_CONTROL@: The grantee has @READ@, @READ_ACP@, and+--         @WRITE_ACP@ permissions for the objects that Elastic Transcoder+--         adds to the Amazon S3 bucket.+--+-- -   __StorageClass__: The Amazon S3 storage class, @Standard@ or+--     @ReducedRedundancy@, that you want Elastic Transcoder to assign to+--     the video files and playlists that it stores in your Amazon S3+--     bucket.+createPipeline_contentConfig :: Lens.Lens' CreatePipeline (Prelude.Maybe PipelineOutputConfig)+createPipeline_contentConfig = Lens.lens (\CreatePipeline' {contentConfig} -> contentConfig) (\s@CreatePipeline' {} a -> s {contentConfig = a} :: CreatePipeline)++-- | The Amazon Simple Notification Service (Amazon SNS) topic that you want+-- to notify to report job status.+--+-- To receive notifications, you must also subscribe to the new topic in+-- the Amazon SNS console.+--+-- -   __Progressing__: The topic ARN for the Amazon Simple Notification+--     Service (Amazon SNS) topic that you want to notify when Elastic+--     Transcoder has started to process a job in this pipeline. This is+--     the ARN that Amazon SNS returned when you created the topic. For+--     more information, see Create a Topic in the Amazon Simple+--     Notification Service Developer Guide.+--+-- -   __Complete__: The topic ARN for the Amazon SNS topic that you want+--     to notify when Elastic Transcoder has finished processing a job in+--     this pipeline. This is the ARN that Amazon SNS returned when you+--     created the topic.+--+-- -   __Warning__: The topic ARN for the Amazon SNS topic that you want to+--     notify when Elastic Transcoder encounters a warning condition while+--     processing a job in this pipeline. This is the ARN that Amazon SNS+--     returned when you created the topic.+--+-- -   __Error__: The topic ARN for the Amazon SNS topic that you want to+--     notify when Elastic Transcoder encounters an error condition while+--     processing a job in this pipeline. This is the ARN that Amazon SNS+--     returned when you created the topic.+createPipeline_notifications :: Lens.Lens' CreatePipeline (Prelude.Maybe Notifications)+createPipeline_notifications = Lens.lens (\CreatePipeline' {notifications} -> notifications) (\s@CreatePipeline' {} a -> s {notifications = a} :: CreatePipeline)++-- | The Amazon S3 bucket in which you want Elastic Transcoder to save the+-- transcoded files. (Use this, or use ContentConfig:Bucket plus+-- ThumbnailConfig:Bucket.)+--+-- Specify this value when all of the following are true:+--+-- -   You want to save transcoded files, thumbnails (if any), and+--     playlists (if any) together in one bucket.+--+-- -   You do not want to specify the users or groups who have access to+--     the transcoded files, thumbnails, and playlists.+--+-- -   You do not want to specify the permissions that Elastic Transcoder+--     grants to the files.+--+--     When Elastic Transcoder saves files in @OutputBucket@, it grants+--     full control over the files only to the AWS account that owns the+--     role that is specified by @Role@.+--+-- -   You want to associate the transcoded files and thumbnails with the+--     Amazon S3 Standard storage class.+--+-- If you want to save transcoded files and playlists in one bucket and+-- thumbnails in another bucket, specify which users can access the+-- transcoded files or the permissions the users have, or change the Amazon+-- S3 storage class, omit @OutputBucket@ and specify values for+-- @ContentConfig@ and @ThumbnailConfig@ instead.+createPipeline_outputBucket :: Lens.Lens' CreatePipeline (Prelude.Maybe Prelude.Text)+createPipeline_outputBucket = Lens.lens (\CreatePipeline' {outputBucket} -> outputBucket) (\s@CreatePipeline' {} a -> s {outputBucket = a} :: CreatePipeline)++-- | The @ThumbnailConfig@ object specifies several values, including the+-- Amazon S3 bucket in which you want Elastic Transcoder to save thumbnail+-- files, which users you want to have access to the files, the type of+-- access you want users to have, and the storage class that you want to+-- assign to the files.+--+-- If you specify values for @ContentConfig@, you must also specify values+-- for @ThumbnailConfig@ even if you don\'t want to create thumbnails.+--+-- If you specify values for @ContentConfig@ and @ThumbnailConfig@, omit+-- the @OutputBucket@ object.+--+-- -   __Bucket__: The Amazon S3 bucket in which you want Elastic+--     Transcoder to save thumbnail files.+--+-- -   __Permissions__ (Optional): The @Permissions@ object specifies which+--     users and\/or predefined Amazon S3 groups you want to have access to+--     thumbnail files, and the type of access you want them to have. You+--     can grant permissions to a maximum of 30 users and\/or predefined+--     Amazon S3 groups.+--+-- -   __GranteeType__: Specify the type of value that appears in the+--     Grantee object:+--+--     -   __Canonical__: The value in the @Grantee@ object is either the+--         canonical user ID for an AWS account or an origin access+--         identity for an Amazon CloudFront distribution.+--+--         A canonical user ID is not the same as an AWS account number.+--+--     -   __Email__: The value in the @Grantee@ object is the registered+--         email address of an AWS account.+--+--     -   __Group__: The value in the @Grantee@ object is one of the+--         following predefined Amazon S3 groups: @AllUsers@,+--         @AuthenticatedUsers@, or @LogDelivery@.+--+-- -   __Grantee__: The AWS user or group that you want to have access to+--     thumbnail files. To identify the user or group, you can specify the+--     canonical user ID for an AWS account, an origin access identity for+--     a CloudFront distribution, the registered email address of an AWS+--     account, or a predefined Amazon S3 group.+--+-- -   __Access__: The permission that you want to give to the AWS user+--     that you specified in @Grantee@. Permissions are granted on the+--     thumbnail files that Elastic Transcoder adds to the bucket. Valid+--     values include:+--+--     -   @READ@: The grantee can read the thumbnails and metadata for+--         objects that Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @READ_ACP@: The grantee can read the object ACL for thumbnails+--         that Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @WRITE_ACP@: The grantee can write the ACL for the thumbnails+--         that Elastic Transcoder adds to the Amazon S3 bucket.+--+--     -   @FULL_CONTROL@: The grantee has @READ@, @READ_ACP@, and+--         @WRITE_ACP@ permissions for the thumbnails that Elastic+--         Transcoder adds to the Amazon S3 bucket.+--+-- -   __StorageClass__: The Amazon S3 storage class, @Standard@ or+--     @ReducedRedundancy@, that you want Elastic Transcoder to assign to+--     the thumbnails that it stores in your Amazon S3 bucket.+createPipeline_thumbnailConfig :: Lens.Lens' CreatePipeline (Prelude.Maybe PipelineOutputConfig)+createPipeline_thumbnailConfig = Lens.lens (\CreatePipeline' {thumbnailConfig} -> thumbnailConfig) (\s@CreatePipeline' {} a -> s {thumbnailConfig = a} :: CreatePipeline)++-- | The name of the pipeline. We recommend that the name be unique within+-- the AWS account, but uniqueness is not enforced.+--+-- Constraints: Maximum 40 characters.+createPipeline_name :: Lens.Lens' CreatePipeline Prelude.Text+createPipeline_name = Lens.lens (\CreatePipeline' {name} -> name) (\s@CreatePipeline' {} a -> s {name = a} :: CreatePipeline)++-- | The Amazon S3 bucket in which you saved the media files that you want to+-- transcode.+createPipeline_inputBucket :: Lens.Lens' CreatePipeline Prelude.Text+createPipeline_inputBucket = Lens.lens (\CreatePipeline' {inputBucket} -> inputBucket) (\s@CreatePipeline' {} a -> s {inputBucket = a} :: CreatePipeline)++-- | The IAM Amazon Resource Name (ARN) for the role that you want Elastic+-- Transcoder to use to create the pipeline.+createPipeline_role :: Lens.Lens' CreatePipeline Prelude.Text+createPipeline_role = Lens.lens (\CreatePipeline' {role'} -> role') (\s@CreatePipeline' {} a -> s {role' = a} :: CreatePipeline)++instance Core.AWSRequest CreatePipeline where+  type+    AWSResponse CreatePipeline =+      CreatePipelineResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreatePipelineResponse'+            Prelude.<$> (x Data..?> "Pipeline")+            Prelude.<*> (x Data..?> "Warnings" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreatePipeline where+  hashWithSalt _salt CreatePipeline' {..} =+    _salt+      `Prelude.hashWithSalt` awsKmsKeyArn+      `Prelude.hashWithSalt` contentConfig+      `Prelude.hashWithSalt` notifications+      `Prelude.hashWithSalt` outputBucket+      `Prelude.hashWithSalt` thumbnailConfig+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` inputBucket+      `Prelude.hashWithSalt` role'++instance Prelude.NFData CreatePipeline where+  rnf CreatePipeline' {..} =+    Prelude.rnf awsKmsKeyArn+      `Prelude.seq` Prelude.rnf contentConfig+      `Prelude.seq` Prelude.rnf notifications+      `Prelude.seq` Prelude.rnf outputBucket+      `Prelude.seq` Prelude.rnf thumbnailConfig+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf inputBucket+      `Prelude.seq` Prelude.rnf role'++instance Data.ToHeaders CreatePipeline where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON CreatePipeline where+  toJSON CreatePipeline' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AwsKmsKeyArn" Data..=) Prelude.<$> awsKmsKeyArn,+            ("ContentConfig" Data..=) Prelude.<$> contentConfig,+            ("Notifications" Data..=) Prelude.<$> notifications,+            ("OutputBucket" Data..=) Prelude.<$> outputBucket,+            ("ThumbnailConfig" Data..=)+              Prelude.<$> thumbnailConfig,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("InputBucket" Data..= inputBucket),+            Prelude.Just ("Role" Data..= role')+          ]+      )++instance Data.ToPath CreatePipeline where+  toPath = Prelude.const "/2012-09-25/pipelines"++instance Data.ToQuery CreatePipeline where+  toQuery = Prelude.const Prelude.mempty++-- | When you create a pipeline, Elastic Transcoder returns the values that+-- you specified in the request.+--+-- /See:/ 'newCreatePipelineResponse' smart constructor.+data CreatePipelineResponse = CreatePipelineResponse'+  { -- | A section of the response body that provides information about the+    -- pipeline that is created.+    pipeline :: Prelude.Maybe Pipeline,+    -- | Elastic Transcoder returns a warning if the resources used by your+    -- pipeline are not in the same region as the pipeline.+    --+    -- Using resources in the same region, such as your Amazon S3 buckets,+    -- Amazon SNS notification topics, and AWS KMS key, reduces processing time+    -- and prevents cross-regional charges.+    warnings :: Prelude.Maybe [Warning],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreatePipelineResponse' 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:+--+-- 'pipeline', 'createPipelineResponse_pipeline' - A section of the response body that provides information about the+-- pipeline that is created.+--+-- 'warnings', 'createPipelineResponse_warnings' - Elastic Transcoder returns a warning if the resources used by your+-- pipeline are not in the same region as the pipeline.+--+-- Using resources in the same region, such as your Amazon S3 buckets,+-- Amazon SNS notification topics, and AWS KMS key, reduces processing time+-- and prevents cross-regional charges.+--+-- 'httpStatus', 'createPipelineResponse_httpStatus' - The response's http status code.+newCreatePipelineResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreatePipelineResponse+newCreatePipelineResponse pHttpStatus_ =+  CreatePipelineResponse'+    { pipeline = Prelude.Nothing,+      warnings = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A section of the response body that provides information about the+-- pipeline that is created.+createPipelineResponse_pipeline :: Lens.Lens' CreatePipelineResponse (Prelude.Maybe Pipeline)+createPipelineResponse_pipeline = Lens.lens (\CreatePipelineResponse' {pipeline} -> pipeline) (\s@CreatePipelineResponse' {} a -> s {pipeline = a} :: CreatePipelineResponse)++-- | Elastic Transcoder returns a warning if the resources used by your+-- pipeline are not in the same region as the pipeline.+--+-- Using resources in the same region, such as your Amazon S3 buckets,+-- Amazon SNS notification topics, and AWS KMS key, reduces processing time+-- and prevents cross-regional charges.+createPipelineResponse_warnings :: Lens.Lens' CreatePipelineResponse (Prelude.Maybe [Warning])+createPipelineResponse_warnings = Lens.lens (\CreatePipelineResponse' {warnings} -> warnings) (\s@CreatePipelineResponse' {} a -> s {warnings = a} :: CreatePipelineResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+createPipelineResponse_httpStatus :: Lens.Lens' CreatePipelineResponse Prelude.Int+createPipelineResponse_httpStatus = Lens.lens (\CreatePipelineResponse' {httpStatus} -> httpStatus) (\s@CreatePipelineResponse' {} a -> s {httpStatus = a} :: CreatePipelineResponse)++instance Prelude.NFData CreatePipelineResponse where+  rnf CreatePipelineResponse' {..} =+    Prelude.rnf pipeline+      `Prelude.seq` Prelude.rnf warnings+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,285 @@+{-# 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.ElasticTranscoder.CreatePreset+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The CreatePreset operation creates a preset with settings that you+-- specify.+--+-- Elastic Transcoder checks the CreatePreset settings to ensure that they+-- meet Elastic Transcoder requirements and to determine whether they+-- comply with H.264 standards. If your settings are not valid for Elastic+-- Transcoder, Elastic Transcoder returns an HTTP 400 response+-- (@ValidationException@) and does not create the preset. If the settings+-- are valid for Elastic Transcoder but aren\'t strictly compliant with the+-- H.264 standard, Elastic Transcoder creates the preset and returns a+-- warning message in the response. This helps you determine whether your+-- settings comply with the H.264 standard while giving you greater+-- flexibility with respect to the video that Elastic Transcoder produces.+--+-- Elastic Transcoder uses the H.264 video-compression format. For more+-- information, see the International Telecommunication Union publication+-- /Recommendation ITU-T H.264: Advanced video coding for generic+-- audiovisual services/.+module Amazonka.ElasticTranscoder.CreatePreset+  ( -- * Creating a Request+    CreatePreset (..),+    newCreatePreset,++    -- * Request Lenses+    createPreset_audio,+    createPreset_description,+    createPreset_thumbnails,+    createPreset_video,+    createPreset_name,+    createPreset_container,++    -- * Destructuring the Response+    CreatePresetResponse (..),+    newCreatePresetResponse,++    -- * Response Lenses+    createPresetResponse_preset,+    createPresetResponse_warning,+    createPresetResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @CreatePresetRequest@ structure.+--+-- /See:/ 'newCreatePreset' smart constructor.+data CreatePreset = CreatePreset'+  { -- | A section of the request body that specifies the audio parameters.+    audio :: Prelude.Maybe AudioParameters,+    -- | A description of the preset.+    description :: Prelude.Maybe Prelude.Text,+    -- | A section of the request body that specifies the thumbnail parameters,+    -- if any.+    thumbnails :: Prelude.Maybe Thumbnails,+    -- | A section of the request body that specifies the video parameters.+    video :: Prelude.Maybe VideoParameters,+    -- | The name of the preset. We recommend that the name be unique within the+    -- AWS account, but uniqueness is not enforced.+    name :: Prelude.Text,+    -- | The container type for the output file. Valid values include @flac@,+    -- @flv@, @fmp4@, @gif@, @mp3@, @mp4@, @mpg@, @mxf@, @oga@, @ogg@, @ts@,+    -- and @webm@.+    container :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreatePreset' 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:+--+-- 'audio', 'createPreset_audio' - A section of the request body that specifies the audio parameters.+--+-- 'description', 'createPreset_description' - A description of the preset.+--+-- 'thumbnails', 'createPreset_thumbnails' - A section of the request body that specifies the thumbnail parameters,+-- if any.+--+-- 'video', 'createPreset_video' - A section of the request body that specifies the video parameters.+--+-- 'name', 'createPreset_name' - The name of the preset. We recommend that the name be unique within the+-- AWS account, but uniqueness is not enforced.+--+-- 'container', 'createPreset_container' - The container type for the output file. Valid values include @flac@,+-- @flv@, @fmp4@, @gif@, @mp3@, @mp4@, @mpg@, @mxf@, @oga@, @ogg@, @ts@,+-- and @webm@.+newCreatePreset ::+  -- | 'name'+  Prelude.Text ->+  -- | 'container'+  Prelude.Text ->+  CreatePreset+newCreatePreset pName_ pContainer_ =+  CreatePreset'+    { audio = Prelude.Nothing,+      description = Prelude.Nothing,+      thumbnails = Prelude.Nothing,+      video = Prelude.Nothing,+      name = pName_,+      container = pContainer_+    }++-- | A section of the request body that specifies the audio parameters.+createPreset_audio :: Lens.Lens' CreatePreset (Prelude.Maybe AudioParameters)+createPreset_audio = Lens.lens (\CreatePreset' {audio} -> audio) (\s@CreatePreset' {} a -> s {audio = a} :: CreatePreset)++-- | A description of the preset.+createPreset_description :: Lens.Lens' CreatePreset (Prelude.Maybe Prelude.Text)+createPreset_description = Lens.lens (\CreatePreset' {description} -> description) (\s@CreatePreset' {} a -> s {description = a} :: CreatePreset)++-- | A section of the request body that specifies the thumbnail parameters,+-- if any.+createPreset_thumbnails :: Lens.Lens' CreatePreset (Prelude.Maybe Thumbnails)+createPreset_thumbnails = Lens.lens (\CreatePreset' {thumbnails} -> thumbnails) (\s@CreatePreset' {} a -> s {thumbnails = a} :: CreatePreset)++-- | A section of the request body that specifies the video parameters.+createPreset_video :: Lens.Lens' CreatePreset (Prelude.Maybe VideoParameters)+createPreset_video = Lens.lens (\CreatePreset' {video} -> video) (\s@CreatePreset' {} a -> s {video = a} :: CreatePreset)++-- | The name of the preset. We recommend that the name be unique within the+-- AWS account, but uniqueness is not enforced.+createPreset_name :: Lens.Lens' CreatePreset Prelude.Text+createPreset_name = Lens.lens (\CreatePreset' {name} -> name) (\s@CreatePreset' {} a -> s {name = a} :: CreatePreset)++-- | The container type for the output file. Valid values include @flac@,+-- @flv@, @fmp4@, @gif@, @mp3@, @mp4@, @mpg@, @mxf@, @oga@, @ogg@, @ts@,+-- and @webm@.+createPreset_container :: Lens.Lens' CreatePreset Prelude.Text+createPreset_container = Lens.lens (\CreatePreset' {container} -> container) (\s@CreatePreset' {} a -> s {container = a} :: CreatePreset)++instance Core.AWSRequest CreatePreset where+  type AWSResponse CreatePreset = CreatePresetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreatePresetResponse'+            Prelude.<$> (x Data..?> "Preset")+            Prelude.<*> (x Data..?> "Warning")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreatePreset where+  hashWithSalt _salt CreatePreset' {..} =+    _salt+      `Prelude.hashWithSalt` audio+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` thumbnails+      `Prelude.hashWithSalt` video+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` container++instance Prelude.NFData CreatePreset where+  rnf CreatePreset' {..} =+    Prelude.rnf audio+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf thumbnails+      `Prelude.seq` Prelude.rnf video+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf container++instance Data.ToHeaders CreatePreset where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON CreatePreset where+  toJSON CreatePreset' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Audio" Data..=) Prelude.<$> audio,+            ("Description" Data..=) Prelude.<$> description,+            ("Thumbnails" Data..=) Prelude.<$> thumbnails,+            ("Video" Data..=) Prelude.<$> video,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Container" Data..= container)+          ]+      )++instance Data.ToPath CreatePreset where+  toPath = Prelude.const "/2012-09-25/presets"++instance Data.ToQuery CreatePreset where+  toQuery = Prelude.const Prelude.mempty++-- | The @CreatePresetResponse@ structure.+--+-- /See:/ 'newCreatePresetResponse' smart constructor.+data CreatePresetResponse = CreatePresetResponse'+  { -- | A section of the response body that provides information about the+    -- preset that is created.+    preset :: Prelude.Maybe Preset,+    -- | If the preset settings don\'t comply with the standards for the video+    -- codec but Elastic Transcoder created the preset, this message explains+    -- the reason the preset settings don\'t meet the standard. Elastic+    -- Transcoder created the preset because the settings might produce+    -- acceptable output.+    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 'CreatePresetResponse' 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:+--+-- 'preset', 'createPresetResponse_preset' - A section of the response body that provides information about the+-- preset that is created.+--+-- 'warning', 'createPresetResponse_warning' - If the preset settings don\'t comply with the standards for the video+-- codec but Elastic Transcoder created the preset, this message explains+-- the reason the preset settings don\'t meet the standard. Elastic+-- Transcoder created the preset because the settings might produce+-- acceptable output.+--+-- 'httpStatus', 'createPresetResponse_httpStatus' - The response's http status code.+newCreatePresetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreatePresetResponse+newCreatePresetResponse pHttpStatus_ =+  CreatePresetResponse'+    { preset = Prelude.Nothing,+      warning = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A section of the response body that provides information about the+-- preset that is created.+createPresetResponse_preset :: Lens.Lens' CreatePresetResponse (Prelude.Maybe Preset)+createPresetResponse_preset = Lens.lens (\CreatePresetResponse' {preset} -> preset) (\s@CreatePresetResponse' {} a -> s {preset = a} :: CreatePresetResponse)++-- | If the preset settings don\'t comply with the standards for the video+-- codec but Elastic Transcoder created the preset, this message explains+-- the reason the preset settings don\'t meet the standard. Elastic+-- Transcoder created the preset because the settings might produce+-- acceptable output.+createPresetResponse_warning :: Lens.Lens' CreatePresetResponse (Prelude.Maybe Prelude.Text)+createPresetResponse_warning = Lens.lens (\CreatePresetResponse' {warning} -> warning) (\s@CreatePresetResponse' {} a -> s {warning = a} :: CreatePresetResponse)++-- | The response's http status code.+createPresetResponse_httpStatus :: Lens.Lens' CreatePresetResponse Prelude.Int+createPresetResponse_httpStatus = Lens.lens (\CreatePresetResponse' {httpStatus} -> httpStatus) (\s@CreatePresetResponse' {} a -> s {httpStatus = a} :: CreatePresetResponse)++instance Prelude.NFData CreatePresetResponse where+  rnf CreatePresetResponse' {..} =+    Prelude.rnf preset+      `Prelude.seq` Prelude.rnf warning+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,143 @@+{-# 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.ElasticTranscoder.DeletePipeline+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The DeletePipeline operation removes a pipeline.+--+-- You can only delete a pipeline that has never been used or that is not+-- currently in use (doesn\'t contain any active jobs). If the pipeline is+-- currently in use, @DeletePipeline@ returns an error.+module Amazonka.ElasticTranscoder.DeletePipeline+  ( -- * Creating a Request+    DeletePipeline (..),+    newDeletePipeline,++    -- * Request Lenses+    deletePipeline_id,++    -- * Destructuring the Response+    DeletePipelineResponse (..),+    newDeletePipelineResponse,++    -- * Response Lenses+    deletePipelineResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @DeletePipelineRequest@ structure.+--+-- /See:/ 'newDeletePipeline' smart constructor.+data DeletePipeline = DeletePipeline'+  { -- | The identifier of the pipeline that you want to delete.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeletePipeline' 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:+--+-- 'id', 'deletePipeline_id' - The identifier of the pipeline that you want to delete.+newDeletePipeline ::+  -- | 'id'+  Prelude.Text ->+  DeletePipeline+newDeletePipeline pId_ = DeletePipeline' {id = pId_}++-- | The identifier of the pipeline that you want to delete.+deletePipeline_id :: Lens.Lens' DeletePipeline Prelude.Text+deletePipeline_id = Lens.lens (\DeletePipeline' {id} -> id) (\s@DeletePipeline' {} a -> s {id = a} :: DeletePipeline)++instance Core.AWSRequest DeletePipeline where+  type+    AWSResponse DeletePipeline =+      DeletePipelineResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeletePipelineResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeletePipeline where+  hashWithSalt _salt DeletePipeline' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData DeletePipeline where+  rnf DeletePipeline' {..} = Prelude.rnf id++instance Data.ToHeaders DeletePipeline where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeletePipeline where+  toPath DeletePipeline' {..} =+    Prelude.mconcat+      ["/2012-09-25/pipelines/", Data.toBS id]++instance Data.ToQuery DeletePipeline where+  toQuery = Prelude.const Prelude.mempty++-- | The @DeletePipelineResponse@ structure.+--+-- /See:/ 'newDeletePipelineResponse' smart constructor.+data DeletePipelineResponse = DeletePipelineResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeletePipelineResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deletePipelineResponse_httpStatus' - The response's http status code.+newDeletePipelineResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeletePipelineResponse+newDeletePipelineResponse pHttpStatus_ =+  DeletePipelineResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deletePipelineResponse_httpStatus :: Lens.Lens' DeletePipelineResponse Prelude.Int+deletePipelineResponse_httpStatus = Lens.lens (\DeletePipelineResponse' {httpStatus} -> httpStatus) (\s@DeletePipelineResponse' {} a -> s {httpStatus = a} :: DeletePipelineResponse)++instance Prelude.NFData DeletePipelineResponse where+  rnf DeletePipelineResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,144 @@+{-# 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.ElasticTranscoder.DeletePreset+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The DeletePreset operation removes a preset that you\'ve added in an AWS+-- region.+--+-- You can\'t delete the default presets that are included with Elastic+-- Transcoder.+module Amazonka.ElasticTranscoder.DeletePreset+  ( -- * Creating a Request+    DeletePreset (..),+    newDeletePreset,++    -- * Request Lenses+    deletePreset_id,++    -- * Destructuring the Response+    DeletePresetResponse (..),+    newDeletePresetResponse,++    -- * Response Lenses+    deletePresetResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @DeletePresetRequest@ structure.+--+-- /See:/ 'newDeletePreset' smart constructor.+data DeletePreset = DeletePreset'+  { -- | The identifier of the preset for which you want to get detailed+    -- information.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeletePreset' 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:+--+-- 'id', 'deletePreset_id' - The identifier of the preset for which you want to get detailed+-- information.+newDeletePreset ::+  -- | 'id'+  Prelude.Text ->+  DeletePreset+newDeletePreset pId_ = DeletePreset' {id = pId_}++-- | The identifier of the preset for which you want to get detailed+-- information.+deletePreset_id :: Lens.Lens' DeletePreset Prelude.Text+deletePreset_id = Lens.lens (\DeletePreset' {id} -> id) (\s@DeletePreset' {} a -> s {id = a} :: DeletePreset)++instance Core.AWSRequest DeletePreset where+  type AWSResponse DeletePreset = DeletePresetResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeletePresetResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeletePreset where+  hashWithSalt _salt DeletePreset' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData DeletePreset where+  rnf DeletePreset' {..} = Prelude.rnf id++instance Data.ToHeaders DeletePreset where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeletePreset where+  toPath DeletePreset' {..} =+    Prelude.mconcat+      ["/2012-09-25/presets/", Data.toBS id]++instance Data.ToQuery DeletePreset where+  toQuery = Prelude.const Prelude.mempty++-- | The @DeletePresetResponse@ structure.+--+-- /See:/ 'newDeletePresetResponse' smart constructor.+data DeletePresetResponse = DeletePresetResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeletePresetResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deletePresetResponse_httpStatus' - The response's http status code.+newDeletePresetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeletePresetResponse+newDeletePresetResponse pHttpStatus_ =+  DeletePresetResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deletePresetResponse_httpStatus :: Lens.Lens' DeletePresetResponse Prelude.Int+deletePresetResponse_httpStatus = Lens.lens (\DeletePresetResponse' {httpStatus} -> httpStatus) (\s@DeletePresetResponse' {} a -> s {httpStatus = a} :: DeletePresetResponse)++instance Prelude.NFData DeletePresetResponse where+  rnf DeletePresetResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,441 @@+{-# 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.ElasticTranscoder.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.ElasticTranscoder.Lens+  ( -- * Operations++    -- ** CancelJob+    cancelJob_id,+    cancelJobResponse_httpStatus,++    -- ** CreateJob+    createJob_input,+    createJob_inputs,+    createJob_output,+    createJob_outputKeyPrefix,+    createJob_outputs,+    createJob_playlists,+    createJob_userMetadata,+    createJob_pipelineId,+    createJobResponse_job,+    createJobResponse_httpStatus,++    -- ** CreatePipeline+    createPipeline_awsKmsKeyArn,+    createPipeline_contentConfig,+    createPipeline_notifications,+    createPipeline_outputBucket,+    createPipeline_thumbnailConfig,+    createPipeline_name,+    createPipeline_inputBucket,+    createPipeline_role,+    createPipelineResponse_pipeline,+    createPipelineResponse_warnings,+    createPipelineResponse_httpStatus,++    -- ** CreatePreset+    createPreset_audio,+    createPreset_description,+    createPreset_thumbnails,+    createPreset_video,+    createPreset_name,+    createPreset_container,+    createPresetResponse_preset,+    createPresetResponse_warning,+    createPresetResponse_httpStatus,++    -- ** DeletePipeline+    deletePipeline_id,+    deletePipelineResponse_httpStatus,++    -- ** DeletePreset+    deletePreset_id,+    deletePresetResponse_httpStatus,++    -- ** ListJobsByPipeline+    listJobsByPipeline_ascending,+    listJobsByPipeline_pageToken,+    listJobsByPipeline_pipelineId,+    listJobsByPipelineResponse_jobs,+    listJobsByPipelineResponse_nextPageToken,+    listJobsByPipelineResponse_httpStatus,++    -- ** ListJobsByStatus+    listJobsByStatus_ascending,+    listJobsByStatus_pageToken,+    listJobsByStatus_status,+    listJobsByStatusResponse_jobs,+    listJobsByStatusResponse_nextPageToken,+    listJobsByStatusResponse_httpStatus,++    -- ** ListPipelines+    listPipelines_ascending,+    listPipelines_pageToken,+    listPipelinesResponse_nextPageToken,+    listPipelinesResponse_pipelines,+    listPipelinesResponse_httpStatus,++    -- ** ListPresets+    listPresets_ascending,+    listPresets_pageToken,+    listPresetsResponse_nextPageToken,+    listPresetsResponse_presets,+    listPresetsResponse_httpStatus,++    -- ** ReadJob+    readJob_id,+    readJobResponse_httpStatus,+    readJobResponse_job,++    -- ** ReadPipeline+    readPipeline_id,+    readPipelineResponse_pipeline,+    readPipelineResponse_warnings,+    readPipelineResponse_httpStatus,++    -- ** ReadPreset+    readPreset_id,+    readPresetResponse_preset,+    readPresetResponse_httpStatus,++    -- ** UpdatePipeline+    updatePipeline_awsKmsKeyArn,+    updatePipeline_contentConfig,+    updatePipeline_inputBucket,+    updatePipeline_name,+    updatePipeline_notifications,+    updatePipeline_role,+    updatePipeline_thumbnailConfig,+    updatePipeline_id,+    updatePipelineResponse_pipeline,+    updatePipelineResponse_warnings,+    updatePipelineResponse_httpStatus,++    -- ** UpdatePipelineNotifications+    updatePipelineNotifications_id,+    updatePipelineNotifications_notifications,+    updatePipelineNotificationsResponse_pipeline,+    updatePipelineNotificationsResponse_httpStatus,++    -- ** UpdatePipelineStatus+    updatePipelineStatus_id,+    updatePipelineStatus_status,+    updatePipelineStatusResponse_pipeline,+    updatePipelineStatusResponse_httpStatus,++    -- * Types++    -- ** Artwork+    artwork_albumArtFormat,+    artwork_encryption,+    artwork_inputKey,+    artwork_maxHeight,+    artwork_maxWidth,+    artwork_paddingPolicy,+    artwork_sizingPolicy,++    -- ** AudioCodecOptions+    audioCodecOptions_bitDepth,+    audioCodecOptions_bitOrder,+    audioCodecOptions_profile,+    audioCodecOptions_signed,++    -- ** AudioParameters+    audioParameters_audioPackingMode,+    audioParameters_bitRate,+    audioParameters_channels,+    audioParameters_codec,+    audioParameters_codecOptions,+    audioParameters_sampleRate,++    -- ** CaptionFormat+    captionFormat_encryption,+    captionFormat_format,+    captionFormat_pattern,++    -- ** CaptionSource+    captionSource_encryption,+    captionSource_key,+    captionSource_label,+    captionSource_language,+    captionSource_timeOffset,++    -- ** Captions+    captions_captionFormats,+    captions_captionSources,+    captions_mergePolicy,++    -- ** Clip+    clip_timeSpan,++    -- ** CreateJobOutput+    createJobOutput_albumArt,+    createJobOutput_captions,+    createJobOutput_composition,+    createJobOutput_encryption,+    createJobOutput_key,+    createJobOutput_presetId,+    createJobOutput_rotate,+    createJobOutput_segmentDuration,+    createJobOutput_thumbnailEncryption,+    createJobOutput_thumbnailPattern,+    createJobOutput_watermarks,++    -- ** CreateJobPlaylist+    createJobPlaylist_format,+    createJobPlaylist_hlsContentProtection,+    createJobPlaylist_name,+    createJobPlaylist_outputKeys,+    createJobPlaylist_playReadyDrm,++    -- ** DetectedProperties+    detectedProperties_durationMillis,+    detectedProperties_fileSize,+    detectedProperties_frameRate,+    detectedProperties_height,+    detectedProperties_width,++    -- ** Encryption+    encryption_initializationVector,+    encryption_key,+    encryption_keyMd5,+    encryption_mode,++    -- ** HlsContentProtection+    hlsContentProtection_initializationVector,+    hlsContentProtection_key,+    hlsContentProtection_keyMd5,+    hlsContentProtection_keyStoragePolicy,+    hlsContentProtection_licenseAcquisitionUrl,+    hlsContentProtection_method,++    -- ** InputCaptions+    inputCaptions_captionSources,+    inputCaptions_mergePolicy,++    -- ** Job+    job_arn,+    job_id,+    job_input,+    job_inputs,+    job_output,+    job_outputKeyPrefix,+    job_outputs,+    job_pipelineId,+    job_playlists,+    job_status,+    job_timing,+    job_userMetadata,++    -- ** JobAlbumArt+    jobAlbumArt_artwork,+    jobAlbumArt_mergePolicy,++    -- ** JobInput+    jobInput_aspectRatio,+    jobInput_container,+    jobInput_detectedProperties,+    jobInput_encryption,+    jobInput_frameRate,+    jobInput_inputCaptions,+    jobInput_interlaced,+    jobInput_key,+    jobInput_resolution,+    jobInput_timeSpan,++    -- ** JobOutput+    jobOutput_albumArt,+    jobOutput_appliedColorSpaceConversion,+    jobOutput_captions,+    jobOutput_composition,+    jobOutput_duration,+    jobOutput_durationMillis,+    jobOutput_encryption,+    jobOutput_fileSize,+    jobOutput_frameRate,+    jobOutput_height,+    jobOutput_id,+    jobOutput_key,+    jobOutput_presetId,+    jobOutput_rotate,+    jobOutput_segmentDuration,+    jobOutput_status,+    jobOutput_statusDetail,+    jobOutput_thumbnailEncryption,+    jobOutput_thumbnailPattern,+    jobOutput_watermarks,+    jobOutput_width,++    -- ** JobWatermark+    jobWatermark_encryption,+    jobWatermark_inputKey,+    jobWatermark_presetWatermarkId,++    -- ** Notifications+    notifications_completed,+    notifications_error,+    notifications_progressing,+    notifications_warning,++    -- ** Permission+    permission_access,+    permission_grantee,+    permission_granteeType,++    -- ** Pipeline+    pipeline_arn,+    pipeline_awsKmsKeyArn,+    pipeline_contentConfig,+    pipeline_id,+    pipeline_inputBucket,+    pipeline_name,+    pipeline_notifications,+    pipeline_outputBucket,+    pipeline_role,+    pipeline_status,+    pipeline_thumbnailConfig,++    -- ** PipelineOutputConfig+    pipelineOutputConfig_bucket,+    pipelineOutputConfig_permissions,+    pipelineOutputConfig_storageClass,++    -- ** PlayReadyDrm+    playReadyDrm_format,+    playReadyDrm_initializationVector,+    playReadyDrm_key,+    playReadyDrm_keyId,+    playReadyDrm_keyMd5,+    playReadyDrm_licenseAcquisitionUrl,++    -- ** Playlist+    playlist_format,+    playlist_hlsContentProtection,+    playlist_name,+    playlist_outputKeys,+    playlist_playReadyDrm,+    playlist_status,+    playlist_statusDetail,++    -- ** Preset+    preset_arn,+    preset_audio,+    preset_container,+    preset_description,+    preset_id,+    preset_name,+    preset_thumbnails,+    preset_type,+    preset_video,++    -- ** PresetWatermark+    presetWatermark_horizontalAlign,+    presetWatermark_horizontalOffset,+    presetWatermark_id,+    presetWatermark_maxHeight,+    presetWatermark_maxWidth,+    presetWatermark_opacity,+    presetWatermark_sizingPolicy,+    presetWatermark_target,+    presetWatermark_verticalAlign,+    presetWatermark_verticalOffset,++    -- ** Thumbnails+    thumbnails_aspectRatio,+    thumbnails_format,+    thumbnails_interval,+    thumbnails_maxHeight,+    thumbnails_maxWidth,+    thumbnails_paddingPolicy,+    thumbnails_resolution,+    thumbnails_sizingPolicy,++    -- ** TimeSpan+    timeSpan_duration,+    timeSpan_startTime,++    -- ** Timing+    timing_finishTimeMillis,+    timing_startTimeMillis,+    timing_submitTimeMillis,++    -- ** VideoParameters+    videoParameters_aspectRatio,+    videoParameters_bitRate,+    videoParameters_codec,+    videoParameters_codecOptions,+    videoParameters_displayAspectRatio,+    videoParameters_fixedGOP,+    videoParameters_frameRate,+    videoParameters_keyframesMaxDist,+    videoParameters_maxFrameRate,+    videoParameters_maxHeight,+    videoParameters_maxWidth,+    videoParameters_paddingPolicy,+    videoParameters_resolution,+    videoParameters_sizingPolicy,+    videoParameters_watermarks,++    -- ** Warning+    warning_code,+    warning_message,+  )+where++import Amazonka.ElasticTranscoder.CancelJob+import Amazonka.ElasticTranscoder.CreateJob+import Amazonka.ElasticTranscoder.CreatePipeline+import Amazonka.ElasticTranscoder.CreatePreset+import Amazonka.ElasticTranscoder.DeletePipeline+import Amazonka.ElasticTranscoder.DeletePreset+import Amazonka.ElasticTranscoder.ListJobsByPipeline+import Amazonka.ElasticTranscoder.ListJobsByStatus+import Amazonka.ElasticTranscoder.ListPipelines+import Amazonka.ElasticTranscoder.ListPresets+import Amazonka.ElasticTranscoder.ReadJob+import Amazonka.ElasticTranscoder.ReadPipeline+import Amazonka.ElasticTranscoder.ReadPreset+import Amazonka.ElasticTranscoder.Types.Artwork+import Amazonka.ElasticTranscoder.Types.AudioCodecOptions+import Amazonka.ElasticTranscoder.Types.AudioParameters+import Amazonka.ElasticTranscoder.Types.CaptionFormat+import Amazonka.ElasticTranscoder.Types.CaptionSource+import Amazonka.ElasticTranscoder.Types.Captions+import Amazonka.ElasticTranscoder.Types.Clip+import Amazonka.ElasticTranscoder.Types.CreateJobOutput+import Amazonka.ElasticTranscoder.Types.CreateJobPlaylist+import Amazonka.ElasticTranscoder.Types.DetectedProperties+import Amazonka.ElasticTranscoder.Types.Encryption+import Amazonka.ElasticTranscoder.Types.HlsContentProtection+import Amazonka.ElasticTranscoder.Types.InputCaptions+import Amazonka.ElasticTranscoder.Types.Job+import Amazonka.ElasticTranscoder.Types.JobAlbumArt+import Amazonka.ElasticTranscoder.Types.JobInput+import Amazonka.ElasticTranscoder.Types.JobOutput+import Amazonka.ElasticTranscoder.Types.JobWatermark+import Amazonka.ElasticTranscoder.Types.Notifications+import Amazonka.ElasticTranscoder.Types.Permission+import Amazonka.ElasticTranscoder.Types.Pipeline+import Amazonka.ElasticTranscoder.Types.PipelineOutputConfig+import Amazonka.ElasticTranscoder.Types.PlayReadyDrm+import Amazonka.ElasticTranscoder.Types.Playlist+import Amazonka.ElasticTranscoder.Types.Preset+import Amazonka.ElasticTranscoder.Types.PresetWatermark+import Amazonka.ElasticTranscoder.Types.Thumbnails+import Amazonka.ElasticTranscoder.Types.TimeSpan+import Amazonka.ElasticTranscoder.Types.Timing+import Amazonka.ElasticTranscoder.Types.VideoParameters+import Amazonka.ElasticTranscoder.Types.Warning+import Amazonka.ElasticTranscoder.UpdatePipeline+import Amazonka.ElasticTranscoder.UpdatePipelineNotifications+import Amazonka.ElasticTranscoder.UpdatePipelineStatus

@@ -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.ElasticTranscoder.ListJobsByPipeline+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The ListJobsByPipeline operation gets a list of the jobs currently in a+-- pipeline.+--+-- Elastic Transcoder returns all of the jobs currently in the specified+-- pipeline. The response body contains one element for each job that+-- satisfies the search criteria.+--+-- This operation returns paginated results.+module Amazonka.ElasticTranscoder.ListJobsByPipeline+  ( -- * Creating a Request+    ListJobsByPipeline (..),+    newListJobsByPipeline,++    -- * Request Lenses+    listJobsByPipeline_ascending,+    listJobsByPipeline_pageToken,+    listJobsByPipeline_pipelineId,++    -- * Destructuring the Response+    ListJobsByPipelineResponse (..),+    newListJobsByPipelineResponse,++    -- * Response Lenses+    listJobsByPipelineResponse_jobs,+    listJobsByPipelineResponse_nextPageToken,+    listJobsByPipelineResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @ListJobsByPipelineRequest@ structure.+--+-- /See:/ 'newListJobsByPipeline' smart constructor.+data ListJobsByPipeline = ListJobsByPipeline'+  { -- | To list jobs in chronological order by the date and time that they were+    -- submitted, enter @true@. To list jobs in reverse chronological order,+    -- enter @false@.+    ascending :: Prelude.Maybe Prelude.Text,+    -- | When Elastic Transcoder returns more than one page of results, use+    -- @pageToken@ in subsequent @GET@ requests to get each successive page of+    -- results.+    pageToken :: Prelude.Maybe Prelude.Text,+    -- | The ID of the pipeline for which you want to get job information.+    pipelineId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListJobsByPipeline' 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:+--+-- 'ascending', 'listJobsByPipeline_ascending' - To list jobs in chronological order by the date and time that they were+-- submitted, enter @true@. To list jobs in reverse chronological order,+-- enter @false@.+--+-- 'pageToken', 'listJobsByPipeline_pageToken' - When Elastic Transcoder returns more than one page of results, use+-- @pageToken@ in subsequent @GET@ requests to get each successive page of+-- results.+--+-- 'pipelineId', 'listJobsByPipeline_pipelineId' - The ID of the pipeline for which you want to get job information.+newListJobsByPipeline ::+  -- | 'pipelineId'+  Prelude.Text ->+  ListJobsByPipeline+newListJobsByPipeline pPipelineId_ =+  ListJobsByPipeline'+    { ascending = Prelude.Nothing,+      pageToken = Prelude.Nothing,+      pipelineId = pPipelineId_+    }++-- | To list jobs in chronological order by the date and time that they were+-- submitted, enter @true@. To list jobs in reverse chronological order,+-- enter @false@.+listJobsByPipeline_ascending :: Lens.Lens' ListJobsByPipeline (Prelude.Maybe Prelude.Text)+listJobsByPipeline_ascending = Lens.lens (\ListJobsByPipeline' {ascending} -> ascending) (\s@ListJobsByPipeline' {} a -> s {ascending = a} :: ListJobsByPipeline)++-- | When Elastic Transcoder returns more than one page of results, use+-- @pageToken@ in subsequent @GET@ requests to get each successive page of+-- results.+listJobsByPipeline_pageToken :: Lens.Lens' ListJobsByPipeline (Prelude.Maybe Prelude.Text)+listJobsByPipeline_pageToken = Lens.lens (\ListJobsByPipeline' {pageToken} -> pageToken) (\s@ListJobsByPipeline' {} a -> s {pageToken = a} :: ListJobsByPipeline)++-- | The ID of the pipeline for which you want to get job information.+listJobsByPipeline_pipelineId :: Lens.Lens' ListJobsByPipeline Prelude.Text+listJobsByPipeline_pipelineId = Lens.lens (\ListJobsByPipeline' {pipelineId} -> pipelineId) (\s@ListJobsByPipeline' {} a -> s {pipelineId = a} :: ListJobsByPipeline)++instance Core.AWSPager ListJobsByPipeline where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listJobsByPipelineResponse_nextPageToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listJobsByPipelineResponse_jobs+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listJobsByPipeline_pageToken+          Lens..~ rs+          Lens.^? listJobsByPipelineResponse_nextPageToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListJobsByPipeline where+  type+    AWSResponse ListJobsByPipeline =+      ListJobsByPipelineResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListJobsByPipelineResponse'+            Prelude.<$> (x Data..?> "Jobs" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextPageToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListJobsByPipeline where+  hashWithSalt _salt ListJobsByPipeline' {..} =+    _salt+      `Prelude.hashWithSalt` ascending+      `Prelude.hashWithSalt` pageToken+      `Prelude.hashWithSalt` pipelineId++instance Prelude.NFData ListJobsByPipeline where+  rnf ListJobsByPipeline' {..} =+    Prelude.rnf ascending+      `Prelude.seq` Prelude.rnf pageToken+      `Prelude.seq` Prelude.rnf pipelineId++instance Data.ToHeaders ListJobsByPipeline where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListJobsByPipeline where+  toPath ListJobsByPipeline' {..} =+    Prelude.mconcat+      ["/2012-09-25/jobsByPipeline/", Data.toBS pipelineId]++instance Data.ToQuery ListJobsByPipeline where+  toQuery ListJobsByPipeline' {..} =+    Prelude.mconcat+      [ "Ascending" Data.=: ascending,+        "PageToken" Data.=: pageToken+      ]++-- | The @ListJobsByPipelineResponse@ structure.+--+-- /See:/ 'newListJobsByPipelineResponse' smart constructor.+data ListJobsByPipelineResponse = ListJobsByPipelineResponse'+  { -- | An array of @Job@ objects that are in the specified pipeline.+    jobs :: Prelude.Maybe [Job],+    -- | A value that you use to access the second and subsequent pages of+    -- results, if any. When the jobs in the specified pipeline fit on one page+    -- or when you\'ve reached the last page of results, the value of+    -- @NextPageToken@ is @null@.+    nextPageToken :: 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 'ListJobsByPipelineResponse' 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:+--+-- 'jobs', 'listJobsByPipelineResponse_jobs' - An array of @Job@ objects that are in the specified pipeline.+--+-- 'nextPageToken', 'listJobsByPipelineResponse_nextPageToken' - A value that you use to access the second and subsequent pages of+-- results, if any. When the jobs in the specified pipeline fit on one page+-- or when you\'ve reached the last page of results, the value of+-- @NextPageToken@ is @null@.+--+-- 'httpStatus', 'listJobsByPipelineResponse_httpStatus' - The response's http status code.+newListJobsByPipelineResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListJobsByPipelineResponse+newListJobsByPipelineResponse pHttpStatus_ =+  ListJobsByPipelineResponse'+    { jobs = Prelude.Nothing,+      nextPageToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An array of @Job@ objects that are in the specified pipeline.+listJobsByPipelineResponse_jobs :: Lens.Lens' ListJobsByPipelineResponse (Prelude.Maybe [Job])+listJobsByPipelineResponse_jobs = Lens.lens (\ListJobsByPipelineResponse' {jobs} -> jobs) (\s@ListJobsByPipelineResponse' {} a -> s {jobs = a} :: ListJobsByPipelineResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that you use to access the second and subsequent pages of+-- results, if any. When the jobs in the specified pipeline fit on one page+-- or when you\'ve reached the last page of results, the value of+-- @NextPageToken@ is @null@.+listJobsByPipelineResponse_nextPageToken :: Lens.Lens' ListJobsByPipelineResponse (Prelude.Maybe Prelude.Text)+listJobsByPipelineResponse_nextPageToken = Lens.lens (\ListJobsByPipelineResponse' {nextPageToken} -> nextPageToken) (\s@ListJobsByPipelineResponse' {} a -> s {nextPageToken = a} :: ListJobsByPipelineResponse)++-- | The response's http status code.+listJobsByPipelineResponse_httpStatus :: Lens.Lens' ListJobsByPipelineResponse Prelude.Int+listJobsByPipelineResponse_httpStatus = Lens.lens (\ListJobsByPipelineResponse' {httpStatus} -> httpStatus) (\s@ListJobsByPipelineResponse' {} a -> s {httpStatus = a} :: ListJobsByPipelineResponse)++instance Prelude.NFData ListJobsByPipelineResponse where+  rnf ListJobsByPipelineResponse' {..} =+    Prelude.rnf jobs+      `Prelude.seq` Prelude.rnf nextPageToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,251 @@+{-# 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.ElasticTranscoder.ListJobsByStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The ListJobsByStatus operation gets a list of jobs that have a specified+-- status. The response body contains one element for each job that+-- satisfies the search criteria.+--+-- This operation returns paginated results.+module Amazonka.ElasticTranscoder.ListJobsByStatus+  ( -- * Creating a Request+    ListJobsByStatus (..),+    newListJobsByStatus,++    -- * Request Lenses+    listJobsByStatus_ascending,+    listJobsByStatus_pageToken,+    listJobsByStatus_status,++    -- * Destructuring the Response+    ListJobsByStatusResponse (..),+    newListJobsByStatusResponse,++    -- * Response Lenses+    listJobsByStatusResponse_jobs,+    listJobsByStatusResponse_nextPageToken,+    listJobsByStatusResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @ListJobsByStatusRequest@ structure.+--+-- /See:/ 'newListJobsByStatus' smart constructor.+data ListJobsByStatus = ListJobsByStatus'+  { -- | To list jobs in chronological order by the date and time that they were+    -- submitted, enter @true@. To list jobs in reverse chronological order,+    -- enter @false@.+    ascending :: Prelude.Maybe Prelude.Text,+    -- | When Elastic Transcoder returns more than one page of results, use+    -- @pageToken@ in subsequent @GET@ requests to get each successive page of+    -- results.+    pageToken :: Prelude.Maybe Prelude.Text,+    -- | To get information about all of the jobs associated with the current AWS+    -- account that have a given status, specify the following status:+    -- @Submitted@, @Progressing@, @Complete@, @Canceled@, or @Error@.+    status :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListJobsByStatus' 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:+--+-- 'ascending', 'listJobsByStatus_ascending' - To list jobs in chronological order by the date and time that they were+-- submitted, enter @true@. To list jobs in reverse chronological order,+-- enter @false@.+--+-- 'pageToken', 'listJobsByStatus_pageToken' - When Elastic Transcoder returns more than one page of results, use+-- @pageToken@ in subsequent @GET@ requests to get each successive page of+-- results.+--+-- 'status', 'listJobsByStatus_status' - To get information about all of the jobs associated with the current AWS+-- account that have a given status, specify the following status:+-- @Submitted@, @Progressing@, @Complete@, @Canceled@, or @Error@.+newListJobsByStatus ::+  -- | 'status'+  Prelude.Text ->+  ListJobsByStatus+newListJobsByStatus pStatus_ =+  ListJobsByStatus'+    { ascending = Prelude.Nothing,+      pageToken = Prelude.Nothing,+      status = pStatus_+    }++-- | To list jobs in chronological order by the date and time that they were+-- submitted, enter @true@. To list jobs in reverse chronological order,+-- enter @false@.+listJobsByStatus_ascending :: Lens.Lens' ListJobsByStatus (Prelude.Maybe Prelude.Text)+listJobsByStatus_ascending = Lens.lens (\ListJobsByStatus' {ascending} -> ascending) (\s@ListJobsByStatus' {} a -> s {ascending = a} :: ListJobsByStatus)++-- | When Elastic Transcoder returns more than one page of results, use+-- @pageToken@ in subsequent @GET@ requests to get each successive page of+-- results.+listJobsByStatus_pageToken :: Lens.Lens' ListJobsByStatus (Prelude.Maybe Prelude.Text)+listJobsByStatus_pageToken = Lens.lens (\ListJobsByStatus' {pageToken} -> pageToken) (\s@ListJobsByStatus' {} a -> s {pageToken = a} :: ListJobsByStatus)++-- | To get information about all of the jobs associated with the current AWS+-- account that have a given status, specify the following status:+-- @Submitted@, @Progressing@, @Complete@, @Canceled@, or @Error@.+listJobsByStatus_status :: Lens.Lens' ListJobsByStatus Prelude.Text+listJobsByStatus_status = Lens.lens (\ListJobsByStatus' {status} -> status) (\s@ListJobsByStatus' {} a -> s {status = a} :: ListJobsByStatus)++instance Core.AWSPager ListJobsByStatus where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listJobsByStatusResponse_nextPageToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listJobsByStatusResponse_jobs+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listJobsByStatus_pageToken+          Lens..~ rs+          Lens.^? listJobsByStatusResponse_nextPageToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListJobsByStatus where+  type+    AWSResponse ListJobsByStatus =+      ListJobsByStatusResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListJobsByStatusResponse'+            Prelude.<$> (x Data..?> "Jobs" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextPageToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListJobsByStatus where+  hashWithSalt _salt ListJobsByStatus' {..} =+    _salt+      `Prelude.hashWithSalt` ascending+      `Prelude.hashWithSalt` pageToken+      `Prelude.hashWithSalt` status++instance Prelude.NFData ListJobsByStatus where+  rnf ListJobsByStatus' {..} =+    Prelude.rnf ascending+      `Prelude.seq` Prelude.rnf pageToken+      `Prelude.seq` Prelude.rnf status++instance Data.ToHeaders ListJobsByStatus where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListJobsByStatus where+  toPath ListJobsByStatus' {..} =+    Prelude.mconcat+      ["/2012-09-25/jobsByStatus/", Data.toBS status]++instance Data.ToQuery ListJobsByStatus where+  toQuery ListJobsByStatus' {..} =+    Prelude.mconcat+      [ "Ascending" Data.=: ascending,+        "PageToken" Data.=: pageToken+      ]++-- | The @ListJobsByStatusResponse@ structure.+--+-- /See:/ 'newListJobsByStatusResponse' smart constructor.+data ListJobsByStatusResponse = ListJobsByStatusResponse'+  { -- | An array of @Job@ objects that have the specified status.+    jobs :: Prelude.Maybe [Job],+    -- | A value that you use to access the second and subsequent pages of+    -- results, if any. When the jobs in the specified pipeline fit on one page+    -- or when you\'ve reached the last page of results, the value of+    -- @NextPageToken@ is @null@.+    nextPageToken :: 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 'ListJobsByStatusResponse' 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:+--+-- 'jobs', 'listJobsByStatusResponse_jobs' - An array of @Job@ objects that have the specified status.+--+-- 'nextPageToken', 'listJobsByStatusResponse_nextPageToken' - A value that you use to access the second and subsequent pages of+-- results, if any. When the jobs in the specified pipeline fit on one page+-- or when you\'ve reached the last page of results, the value of+-- @NextPageToken@ is @null@.+--+-- 'httpStatus', 'listJobsByStatusResponse_httpStatus' - The response's http status code.+newListJobsByStatusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListJobsByStatusResponse+newListJobsByStatusResponse pHttpStatus_ =+  ListJobsByStatusResponse'+    { jobs = Prelude.Nothing,+      nextPageToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An array of @Job@ objects that have the specified status.+listJobsByStatusResponse_jobs :: Lens.Lens' ListJobsByStatusResponse (Prelude.Maybe [Job])+listJobsByStatusResponse_jobs = Lens.lens (\ListJobsByStatusResponse' {jobs} -> jobs) (\s@ListJobsByStatusResponse' {} a -> s {jobs = a} :: ListJobsByStatusResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that you use to access the second and subsequent pages of+-- results, if any. When the jobs in the specified pipeline fit on one page+-- or when you\'ve reached the last page of results, the value of+-- @NextPageToken@ is @null@.+listJobsByStatusResponse_nextPageToken :: Lens.Lens' ListJobsByStatusResponse (Prelude.Maybe Prelude.Text)+listJobsByStatusResponse_nextPageToken = Lens.lens (\ListJobsByStatusResponse' {nextPageToken} -> nextPageToken) (\s@ListJobsByStatusResponse' {} a -> s {nextPageToken = a} :: ListJobsByStatusResponse)++-- | The response's http status code.+listJobsByStatusResponse_httpStatus :: Lens.Lens' ListJobsByStatusResponse Prelude.Int+listJobsByStatusResponse_httpStatus = Lens.lens (\ListJobsByStatusResponse' {httpStatus} -> httpStatus) (\s@ListJobsByStatusResponse' {} a -> s {httpStatus = a} :: ListJobsByStatusResponse)++instance Prelude.NFData ListJobsByStatusResponse where+  rnf ListJobsByStatusResponse' {..} =+    Prelude.rnf jobs+      `Prelude.seq` Prelude.rnf nextPageToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -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.ElasticTranscoder.ListPipelines+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The ListPipelines operation gets a list of the pipelines associated with+-- the current AWS account.+--+-- This operation returns paginated results.+module Amazonka.ElasticTranscoder.ListPipelines+  ( -- * Creating a Request+    ListPipelines (..),+    newListPipelines,++    -- * Request Lenses+    listPipelines_ascending,+    listPipelines_pageToken,++    -- * Destructuring the Response+    ListPipelinesResponse (..),+    newListPipelinesResponse,++    -- * Response Lenses+    listPipelinesResponse_nextPageToken,+    listPipelinesResponse_pipelines,+    listPipelinesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @ListPipelineRequest@ structure.+--+-- /See:/ 'newListPipelines' smart constructor.+data ListPipelines = ListPipelines'+  { -- | To list pipelines in chronological order by the date and time that they+    -- were created, enter @true@. To list pipelines in reverse chronological+    -- order, enter @false@.+    ascending :: Prelude.Maybe Prelude.Text,+    -- | When Elastic Transcoder returns more than one page of results, use+    -- @pageToken@ in subsequent @GET@ requests to get each successive page of+    -- results.+    pageToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPipelines' 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:+--+-- 'ascending', 'listPipelines_ascending' - To list pipelines in chronological order by the date and time that they+-- were created, enter @true@. To list pipelines in reverse chronological+-- order, enter @false@.+--+-- 'pageToken', 'listPipelines_pageToken' - When Elastic Transcoder returns more than one page of results, use+-- @pageToken@ in subsequent @GET@ requests to get each successive page of+-- results.+newListPipelines ::+  ListPipelines+newListPipelines =+  ListPipelines'+    { ascending = Prelude.Nothing,+      pageToken = Prelude.Nothing+    }++-- | To list pipelines in chronological order by the date and time that they+-- were created, enter @true@. To list pipelines in reverse chronological+-- order, enter @false@.+listPipelines_ascending :: Lens.Lens' ListPipelines (Prelude.Maybe Prelude.Text)+listPipelines_ascending = Lens.lens (\ListPipelines' {ascending} -> ascending) (\s@ListPipelines' {} a -> s {ascending = a} :: ListPipelines)++-- | When Elastic Transcoder returns more than one page of results, use+-- @pageToken@ in subsequent @GET@ requests to get each successive page of+-- results.+listPipelines_pageToken :: Lens.Lens' ListPipelines (Prelude.Maybe Prelude.Text)+listPipelines_pageToken = Lens.lens (\ListPipelines' {pageToken} -> pageToken) (\s@ListPipelines' {} a -> s {pageToken = a} :: ListPipelines)++instance Core.AWSPager ListPipelines where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listPipelinesResponse_nextPageToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listPipelinesResponse_pipelines+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listPipelines_pageToken+          Lens..~ rs+          Lens.^? listPipelinesResponse_nextPageToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListPipelines where+  type+    AWSResponse ListPipelines =+      ListPipelinesResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListPipelinesResponse'+            Prelude.<$> (x Data..?> "NextPageToken")+            Prelude.<*> (x Data..?> "Pipelines" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListPipelines where+  hashWithSalt _salt ListPipelines' {..} =+    _salt+      `Prelude.hashWithSalt` ascending+      `Prelude.hashWithSalt` pageToken++instance Prelude.NFData ListPipelines where+  rnf ListPipelines' {..} =+    Prelude.rnf ascending+      `Prelude.seq` Prelude.rnf pageToken++instance Data.ToHeaders ListPipelines where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListPipelines where+  toPath = Prelude.const "/2012-09-25/pipelines"++instance Data.ToQuery ListPipelines where+  toQuery ListPipelines' {..} =+    Prelude.mconcat+      [ "Ascending" Data.=: ascending,+        "PageToken" Data.=: pageToken+      ]++-- | A list of the pipelines associated with the current AWS account.+--+-- /See:/ 'newListPipelinesResponse' smart constructor.+data ListPipelinesResponse = ListPipelinesResponse'+  { -- | A value that you use to access the second and subsequent pages of+    -- results, if any. When the pipelines fit on one page or when you\'ve+    -- reached the last page of results, the value of @NextPageToken@ is+    -- @null@.+    nextPageToken :: Prelude.Maybe Prelude.Text,+    -- | An array of @Pipeline@ objects.+    pipelines :: Prelude.Maybe [Pipeline],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPipelinesResponse' 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:+--+-- 'nextPageToken', 'listPipelinesResponse_nextPageToken' - A value that you use to access the second and subsequent pages of+-- results, if any. When the pipelines fit on one page or when you\'ve+-- reached the last page of results, the value of @NextPageToken@ is+-- @null@.+--+-- 'pipelines', 'listPipelinesResponse_pipelines' - An array of @Pipeline@ objects.+--+-- 'httpStatus', 'listPipelinesResponse_httpStatus' - The response's http status code.+newListPipelinesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListPipelinesResponse+newListPipelinesResponse pHttpStatus_ =+  ListPipelinesResponse'+    { nextPageToken =+        Prelude.Nothing,+      pipelines = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A value that you use to access the second and subsequent pages of+-- results, if any. When the pipelines fit on one page or when you\'ve+-- reached the last page of results, the value of @NextPageToken@ is+-- @null@.+listPipelinesResponse_nextPageToken :: Lens.Lens' ListPipelinesResponse (Prelude.Maybe Prelude.Text)+listPipelinesResponse_nextPageToken = Lens.lens (\ListPipelinesResponse' {nextPageToken} -> nextPageToken) (\s@ListPipelinesResponse' {} a -> s {nextPageToken = a} :: ListPipelinesResponse)++-- | An array of @Pipeline@ objects.+listPipelinesResponse_pipelines :: Lens.Lens' ListPipelinesResponse (Prelude.Maybe [Pipeline])+listPipelinesResponse_pipelines = Lens.lens (\ListPipelinesResponse' {pipelines} -> pipelines) (\s@ListPipelinesResponse' {} a -> s {pipelines = a} :: ListPipelinesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listPipelinesResponse_httpStatus :: Lens.Lens' ListPipelinesResponse Prelude.Int+listPipelinesResponse_httpStatus = Lens.lens (\ListPipelinesResponse' {httpStatus} -> httpStatus) (\s@ListPipelinesResponse' {} a -> s {httpStatus = a} :: ListPipelinesResponse)++instance Prelude.NFData ListPipelinesResponse where+  rnf ListPipelinesResponse' {..} =+    Prelude.rnf nextPageToken+      `Prelude.seq` Prelude.rnf pipelines+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,228 @@+{-# 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.ElasticTranscoder.ListPresets+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The ListPresets operation gets a list of the default presets included+-- with Elastic Transcoder and the presets that you\'ve added in an AWS+-- region.+--+-- This operation returns paginated results.+module Amazonka.ElasticTranscoder.ListPresets+  ( -- * Creating a Request+    ListPresets (..),+    newListPresets,++    -- * Request Lenses+    listPresets_ascending,+    listPresets_pageToken,++    -- * Destructuring the Response+    ListPresetsResponse (..),+    newListPresetsResponse,++    -- * Response Lenses+    listPresetsResponse_nextPageToken,+    listPresetsResponse_presets,+    listPresetsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @ListPresetsRequest@ structure.+--+-- /See:/ 'newListPresets' smart constructor.+data ListPresets = ListPresets'+  { -- | To list presets in chronological order by the date and time that they+    -- were created, enter @true@. To list presets in reverse chronological+    -- order, enter @false@.+    ascending :: Prelude.Maybe Prelude.Text,+    -- | When Elastic Transcoder returns more than one page of results, use+    -- @pageToken@ in subsequent @GET@ requests to get each successive page of+    -- results.+    pageToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPresets' 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:+--+-- 'ascending', 'listPresets_ascending' - To list presets in chronological order by the date and time that they+-- were created, enter @true@. To list presets in reverse chronological+-- order, enter @false@.+--+-- 'pageToken', 'listPresets_pageToken' - When Elastic Transcoder returns more than one page of results, use+-- @pageToken@ in subsequent @GET@ requests to get each successive page of+-- results.+newListPresets ::+  ListPresets+newListPresets =+  ListPresets'+    { ascending = Prelude.Nothing,+      pageToken = Prelude.Nothing+    }++-- | To list presets in chronological order by the date and time that they+-- were created, enter @true@. To list presets in reverse chronological+-- order, enter @false@.+listPresets_ascending :: Lens.Lens' ListPresets (Prelude.Maybe Prelude.Text)+listPresets_ascending = Lens.lens (\ListPresets' {ascending} -> ascending) (\s@ListPresets' {} a -> s {ascending = a} :: ListPresets)++-- | When Elastic Transcoder returns more than one page of results, use+-- @pageToken@ in subsequent @GET@ requests to get each successive page of+-- results.+listPresets_pageToken :: Lens.Lens' ListPresets (Prelude.Maybe Prelude.Text)+listPresets_pageToken = Lens.lens (\ListPresets' {pageToken} -> pageToken) (\s@ListPresets' {} a -> s {pageToken = a} :: ListPresets)++instance Core.AWSPager ListPresets where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listPresetsResponse_nextPageToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listPresetsResponse_presets+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listPresets_pageToken+          Lens..~ rs+          Lens.^? listPresetsResponse_nextPageToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListPresets where+  type AWSResponse ListPresets = ListPresetsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListPresetsResponse'+            Prelude.<$> (x Data..?> "NextPageToken")+            Prelude.<*> (x Data..?> "Presets" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListPresets where+  hashWithSalt _salt ListPresets' {..} =+    _salt+      `Prelude.hashWithSalt` ascending+      `Prelude.hashWithSalt` pageToken++instance Prelude.NFData ListPresets where+  rnf ListPresets' {..} =+    Prelude.rnf ascending+      `Prelude.seq` Prelude.rnf pageToken++instance Data.ToHeaders ListPresets where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListPresets where+  toPath = Prelude.const "/2012-09-25/presets"++instance Data.ToQuery ListPresets where+  toQuery ListPresets' {..} =+    Prelude.mconcat+      [ "Ascending" Data.=: ascending,+        "PageToken" Data.=: pageToken+      ]++-- | The @ListPresetsResponse@ structure.+--+-- /See:/ 'newListPresetsResponse' smart constructor.+data ListPresetsResponse = ListPresetsResponse'+  { -- | A value that you use to access the second and subsequent pages of+    -- results, if any. When the presets fit on one page or when you\'ve+    -- reached the last page of results, the value of @NextPageToken@ is+    -- @null@.+    nextPageToken :: Prelude.Maybe Prelude.Text,+    -- | An array of @Preset@ objects.+    presets :: Prelude.Maybe [Preset],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPresetsResponse' 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:+--+-- 'nextPageToken', 'listPresetsResponse_nextPageToken' - A value that you use to access the second and subsequent pages of+-- results, if any. When the presets fit on one page or when you\'ve+-- reached the last page of results, the value of @NextPageToken@ is+-- @null@.+--+-- 'presets', 'listPresetsResponse_presets' - An array of @Preset@ objects.+--+-- 'httpStatus', 'listPresetsResponse_httpStatus' - The response's http status code.+newListPresetsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListPresetsResponse+newListPresetsResponse pHttpStatus_ =+  ListPresetsResponse'+    { nextPageToken =+        Prelude.Nothing,+      presets = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A value that you use to access the second and subsequent pages of+-- results, if any. When the presets fit on one page or when you\'ve+-- reached the last page of results, the value of @NextPageToken@ is+-- @null@.+listPresetsResponse_nextPageToken :: Lens.Lens' ListPresetsResponse (Prelude.Maybe Prelude.Text)+listPresetsResponse_nextPageToken = Lens.lens (\ListPresetsResponse' {nextPageToken} -> nextPageToken) (\s@ListPresetsResponse' {} a -> s {nextPageToken = a} :: ListPresetsResponse)++-- | An array of @Preset@ objects.+listPresetsResponse_presets :: Lens.Lens' ListPresetsResponse (Prelude.Maybe [Preset])+listPresetsResponse_presets = Lens.lens (\ListPresetsResponse' {presets} -> presets) (\s@ListPresetsResponse' {} a -> s {presets = a} :: ListPresetsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listPresetsResponse_httpStatus :: Lens.Lens' ListPresetsResponse Prelude.Int+listPresetsResponse_httpStatus = Lens.lens (\ListPresetsResponse' {httpStatus} -> httpStatus) (\s@ListPresetsResponse' {} a -> s {httpStatus = a} :: ListPresetsResponse)++instance Prelude.NFData ListPresetsResponse where+  rnf ListPresetsResponse' {..} =+    Prelude.rnf nextPageToken+      `Prelude.seq` Prelude.rnf presets+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,155 @@+{-# 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.ElasticTranscoder.ReadJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The ReadJob operation returns detailed information about a job.+module Amazonka.ElasticTranscoder.ReadJob+  ( -- * Creating a Request+    ReadJob (..),+    newReadJob,++    -- * Request Lenses+    readJob_id,++    -- * Destructuring the Response+    ReadJobResponse (..),+    newReadJobResponse,++    -- * Response Lenses+    readJobResponse_httpStatus,+    readJobResponse_job,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @ReadJobRequest@ structure.+--+-- /See:/ 'newReadJob' smart constructor.+data ReadJob = ReadJob'+  { -- | The identifier of the job for which you want to get detailed+    -- information.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReadJob' 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:+--+-- 'id', 'readJob_id' - The identifier of the job for which you want to get detailed+-- information.+newReadJob ::+  -- | 'id'+  Prelude.Text ->+  ReadJob+newReadJob pId_ = ReadJob' {id = pId_}++-- | The identifier of the job for which you want to get detailed+-- information.+readJob_id :: Lens.Lens' ReadJob Prelude.Text+readJob_id = Lens.lens (\ReadJob' {id} -> id) (\s@ReadJob' {} a -> s {id = a} :: ReadJob)++instance Core.AWSRequest ReadJob where+  type AWSResponse ReadJob = ReadJobResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ReadJobResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "Job")+      )++instance Prelude.Hashable ReadJob where+  hashWithSalt _salt ReadJob' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData ReadJob where+  rnf ReadJob' {..} = Prelude.rnf id++instance Data.ToHeaders ReadJob where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ReadJob where+  toPath ReadJob' {..} =+    Prelude.mconcat ["/2012-09-25/jobs/", Data.toBS id]++instance Data.ToQuery ReadJob where+  toQuery = Prelude.const Prelude.mempty++-- | The @ReadJobResponse@ structure.+--+-- /See:/ 'newReadJobResponse' smart constructor.+data ReadJobResponse = ReadJobResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A section of the response body that provides information about the job.+    job :: Job+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReadJobResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'readJobResponse_httpStatus' - The response's http status code.+--+-- 'job', 'readJobResponse_job' - A section of the response body that provides information about the job.+newReadJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'job'+  Job ->+  ReadJobResponse+newReadJobResponse pHttpStatus_ pJob_ =+  ReadJobResponse'+    { httpStatus = pHttpStatus_,+      job = pJob_+    }++-- | The response's http status code.+readJobResponse_httpStatus :: Lens.Lens' ReadJobResponse Prelude.Int+readJobResponse_httpStatus = Lens.lens (\ReadJobResponse' {httpStatus} -> httpStatus) (\s@ReadJobResponse' {} a -> s {httpStatus = a} :: ReadJobResponse)++-- | A section of the response body that provides information about the job.+readJobResponse_job :: Lens.Lens' ReadJobResponse Job+readJobResponse_job = Lens.lens (\ReadJobResponse' {job} -> job) (\s@ReadJobResponse' {} a -> s {job = a} :: ReadJobResponse)++instance Prelude.NFData ReadJobResponse where+  rnf ReadJobResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf job

@@ -0,0 +1,181 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ElasticTranscoder.ReadPipeline+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The ReadPipeline operation gets detailed information about a pipeline.+module Amazonka.ElasticTranscoder.ReadPipeline+  ( -- * Creating a Request+    ReadPipeline (..),+    newReadPipeline,++    -- * Request Lenses+    readPipeline_id,++    -- * Destructuring the Response+    ReadPipelineResponse (..),+    newReadPipelineResponse,++    -- * Response Lenses+    readPipelineResponse_pipeline,+    readPipelineResponse_warnings,+    readPipelineResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ElasticTranscoder.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The @ReadPipelineRequest@ structure.+--+-- /See:/ 'newReadPipeline' smart constructor.+data ReadPipeline = ReadPipeline'+  { -- | The identifier of the pipeline to read.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReadPipeline' 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:+--+-- 'id', 'readPipeline_id' - The identifier of the pipeline to read.+newReadPipeline ::+  -- | 'id'+  Prelude.Text ->+  ReadPipeline+newReadPipeline pId_ = ReadPipeline' {id = pId_}++-- | The identifier of the pipeline to read.+readPipeline_id :: Lens.Lens' ReadPipeline Prelude.Text+readPipeline_id = Lens.lens (\ReadPipeline' {id} -> id) (\s@ReadPipeline' {} a -> s {id = a} :: ReadPipeline)++instance Core.AWSRequest ReadPipeline where+  type AWSResponse ReadPipeline = ReadPipelineResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ReadPipelineResponse'+            Prelude.<$> (x Data..?> "Pipeline")+            Prelude.<*> (x Data..?> "Warnings" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ReadPipeline where+  hashWithSalt _salt ReadPipeline' {..} =+    _salt `Prelude.hashWithSalt` id++instance Prelude.NFData ReadPipeline where+  rnf ReadPipeline' {..} = Prelude.rnf id++instance Data.ToHeaders ReadPipeline where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ReadPipeline where+  toPath ReadPipeline' {..} =+    Prelude.mconcat+      ["/2012-09-25/pipelines/", Data.toBS id]++instance Data.ToQuery ReadPipeline where+  toQuery = Prelude.const Prelude.mempty++-- | The @ReadPipelineResponse@ structure.+--+-- /See:/ 'newReadPipelineResponse' smart constructor.+data ReadPipelineResponse = ReadPipelineResponse'+  { -- | A section of the response body that provides information about the+    -- pipeline.+    pipeline :: Prelude.Maybe Pipeline,+    -- | Elastic Transcoder returns a warning if the resources used by your+    -- pipeline are not in the same region as the pipeline.+    --+    -- Using resources in the same region, such as your Amazon S3 buckets,+    -- Amazon SNS notification topics, and AWS KMS key, reduces processing time+    -- and prevents cross-regional charges.+    warnings :: Prelude.Maybe [Warning],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReadPipelineResponse' 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:+--+-- 'pipeline', 'readPipelineResponse_pipeline' - A section of the response body that provides information about the+-- pipeline.+--+-- 'warnings', 'readPipelineResponse_warnings' - Elastic Transcoder returns a warning if the resources used by your+-- pipeline are not in the same region as the pipeline.+--+-- Using resources in the same region, such as your Amazon S3 buckets,+-- Amazon SNS notification topics, and AWS KMS key, reduces processing time+-- and prevents cross-regional charges.+--+-- 'httpStatus', 'readPipelineResponse_httpStatus' - The response's http status code.+newReadPipelineResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ReadPipelineResponse+newReadPipelineResponse pHttpStatus_ =+  ReadPipelineResponse'+    { pipeline = Prelude.Nothing,+      warnings = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A section of the response body that provides information about the+-- pipeline.+readPipelineResponse_pipeline :: Lens.Lens' ReadPipelineResponse (Prelude.Maybe Pipeline)+readPipelineResponse_pipeline = Lens.lens (\ReadPipelineResponse' {pipeline} -> pipeline) (\s@ReadPipelineResponse' {} a -> s {pipeline = a} :: ReadPipelineResponse)++-- | Elastic Transcoder returns a warning if the resources used by your+-- pipeline are not in the same region as the pipeline.+--+-- Using resources in the same region, such as your Amazon S3 buckets,+-- Amazon SNS notification topics, and AWS KMS key, reduces processing time+-- and prevents cross-regional charges.+readPipelineResponse_warnings :: Lens.Lens' ReadPipelineResponse (Prelude.Maybe [Warning])+readPipelineResponse_warnings = Lens.lens (\ReadPipelineResponse' {warnings} -> warnings) (\s@ReadPipelineResponse' {} a -> s {warnings = a} :: ReadPipelineResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+readPipelineResponse_httpStatus :: Lens.Lens' ReadPipelineResponse Prelude.Int+readPipelineResponse_httpStatus = Lens.lens (\ReadPipelineResponse' {httpStatus} -> httpStatus) (\s@ReadPipelineResponse' {} a -> s {httpStatus = a} :: ReadPipelineResponse)++instance Prelude.NFData ReadPipelineResponse where+  rnf ReadPipelineResponse' {..} =+    Prelude.rnf pipeline+      `Prelude.seq` Prelude.rnf warnings+      `Prelude.seq` Prelude.rnf httpStatus