packages feed

amazonka-elastictranscoder (empty) → 0.0.0

raw patch · 23 files changed

+5966/−0 lines, 23 filesdep +amazonka-coredep +basesetup-changed

Dependencies added: amazonka-core, base

Files

+ LICENSE view
@@ -0,0 +1,373 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+    means each individual or legal entity that creates, contributes to+    the creation of, or owns Covered Software.++1.2. "Contributor Version"+    means the combination of the Contributions of others (if any) used+    by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+    means Covered Software of a particular Contributor.++1.4. "Covered Software"+    means Source Code Form to which the initial Contributor has attached+    the notice in Exhibit A, the Executable Form of such Source Code+    Form, and Modifications of such Source Code Form, in each case+    including portions thereof.++1.5. "Incompatible With Secondary Licenses"+    means++    (a) that the initial Contributor has attached the notice described+        in Exhibit B to the Covered Software; or++    (b) that the Covered Software was made available under the terms of+        version 1.1 or earlier of the License, but not also under the+        terms of a Secondary License.++1.6. "Executable Form"+    means any form of the work other than Source Code Form.++1.7. "Larger Work"+    means a work that combines Covered Software with other material, in+    a separate file or files, that is not Covered Software.++1.8. "License"+    means this document.++1.9. "Licensable"+    means having the right to grant, to the maximum extent possible,+    whether at the time of the initial grant or subsequently, any and+    all of the rights conveyed by this License.++1.10. "Modifications"+    means any of the following:++    (a) any file in Source Code Form that results from an addition to,+        deletion from, or modification of the contents of Covered+        Software; or++    (b) any new file in Source Code Form that contains any Covered+        Software.++1.11. "Patent Claims" of a Contributor+    means any patent claim(s), including without limitation, method,+    process, and apparatus claims, in any patent Licensable by such+    Contributor that would be infringed, but for the grant of the+    License, by the making, using, selling, offering for sale, having+    made, import, or transfer of either its Contributions or its+    Contributor Version.++1.12. "Secondary License"+    means either the GNU General Public License, Version 2.0, the GNU+    Lesser General Public License, Version 2.1, the GNU Affero General+    Public License, Version 3.0, or any later versions of those+    licenses.++1.13. "Source Code Form"+    means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+    means an individual or a legal entity exercising rights under this+    License. For legal entities, "You" includes any entity that+    controls, is controlled by, or is under common control with You. For+    purposes of this definition, "control" means (a) the power, direct+    or indirect, to cause the direction or management of such entity,+    whether by contract or otherwise, or (b) ownership of more than+    fifty percent (50%) of the outstanding shares or beneficial+    ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+    Licensable by such Contributor to use, reproduce, make available,+    modify, display, perform, distribute, and otherwise exploit its+    Contributions, either on an unmodified basis, with Modifications, or+    as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+    for sale, have made, import, and otherwise transfer either its+    Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+    or++(b) for infringements caused by: (i) Your and any other third party's+    modifications of Covered Software, or (ii) the combination of its+    Contributions with other software (except as part of its Contributor+    Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+    its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+    Form, as described in Section 3.1, and You must inform recipients of+    the Executable Form how they can obtain a copy of such Source Code+    Form by reasonable means in a timely manner, at a charge no more+    than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+    License, or sublicense it under different terms, provided that the+    license for the Executable Form does not attempt to limit or alter+    the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+*                                                                      *+*  6. Disclaimer of Warranty                                           *+*  -------------------------                                           *+*                                                                      *+*  Covered Software is provided under this License on an "as is"       *+*  basis, without warranty of any kind, either expressed, implied, or  *+*  statutory, including, without limitation, warranties that the       *+*  Covered Software is free of defects, merchantable, fit for a        *+*  particular purpose or non-infringing. The entire risk as to the     *+*  quality and performance of the Covered Software is with You.        *+*  Should any Covered Software prove defective in any respect, You     *+*  (not any Contributor) assume the cost of any necessary servicing,   *+*  repair, or correction. This disclaimer of warranty constitutes an   *+*  essential part of this License. No use of any Covered Software is   *+*  authorized under this License except under this disclaimer.         *+*                                                                      *+************************************************************************++************************************************************************+*                                                                      *+*  7. Limitation of Liability                                          *+*  --------------------------                                          *+*                                                                      *+*  Under no circumstances and under no legal theory, whether tort      *+*  (including negligence), contract, or otherwise, shall any           *+*  Contributor, or anyone who distributes Covered Software as          *+*  permitted above, be liable to You for any direct, indirect,         *+*  special, incidental, or consequential damages of any character      *+*  including, without limitation, damages for lost profits, loss of    *+*  goodwill, work stoppage, computer failure or malfunction, or any    *+*  and all other commercial damages or losses, even if such party      *+*  shall have been informed of the possibility of such damages. This   *+*  limitation of liability shall not apply to liability for death or   *+*  personal injury resulting from such party's negligence to the       *+*  extent applicable law prohibits such limitation. Some               *+*  jurisdictions do not allow the exclusion or limitation of           *+*  incidental or consequential damages, so this exclusion and          *+*  limitation may not apply to You.                                    *+*                                                                      *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++  This Source Code Form is subject to the terms of the Mozilla Public+  License, v. 2.0. If a copy of the MPL was not distributed with this+  file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.++Exhibit B - "Incompatible With Secondary Licenses" Notice+---------------------------------------------------------++  This Source Code Form is "Incompatible With Secondary Licenses", as+  defined by the Mozilla Public License, v. 2.0.
+ README.md view
@@ -0,0 +1,26 @@+# Amazon Elastic Transcoder SDK++> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!++* [description](#description)+* [Contribute](#contribute)+* [Licence](#licence)++## Description++Amazon Elastic Transcoder lets you convert media files that you have stored in Amazon Simple Storage Service (Amazon S3) into media files in the formats required by consumer playback devices. For example, you can convert large, high-quality digital media files into formats that users can play back on mobile devices, tablets, web browsers, and connected televisions.++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-elastictranscoder)+and [AWS API Reference](http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/api-reference.html).+++## Contribute++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+++## Licence++`amazonka-elastictranscoder` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ amazonka-elastictranscoder.cabal view
@@ -0,0 +1,63 @@+name:                  amazonka-elastictranscoder+version:               0.0.0+synopsis:              Amazon Elastic Transcoder SDK.+homepage:              https://github.com/brendanhay/amazonka+license:               OtherLicense+license-file:          LICENSE+author:                Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay@gmail.com>+copyright:             Copyright (c) 2013-2014 Brendan Hay+category:              Network, AWS, Cloud+build-type:            Simple+extra-source-files:    README.md+cabal-version:         >= 1.10++description:+    Amazon Elastic Transcoder lets you convert media files that you have+    stored in Amazon Simple Storage Service (Amazon S3) into media files in+    the formats required by consumer playback devices. For example, you can+    convert large, high-quality digital media files into formats that users+    can play back on mobile devices, tablets, web browsers, and connected+    televisions.+    .+    /See:/ <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/api-reference.html AWS API Reference>+    .+    /Warning:/ This is an experimental preview release which is still under+    heavy development and not intended for public consumption, caveat emptor!++source-repository head+    type:     git+    location: git://github.com/brendanhay/amazonka.git++library+    default-language:  Haskell2010+    hs-source-dirs:    src gen++    ghc-options:       -Wall++    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.TestRole+        , Network.AWS.ElasticTranscoder.Types+        , Network.AWS.ElasticTranscoder.UpdatePipeline+        , Network.AWS.ElasticTranscoder.UpdatePipelineNotifications+        , Network.AWS.ElasticTranscoder.UpdatePipelineStatus++    other-modules:++    build-depends:+          amazonka-core+        , base          >= 4.7 && < 5
+ gen/Network/AWS/ElasticTranscoder.hs view
@@ -0,0 +1,54 @@+-- Module      : Network.AWS.ElasticTranscoder+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Amazon Elastic Transcoder lets you convert media files that you have stored+-- in Amazon Simple Storage Service (Amazon S3) into media files in the+-- formats required by consumer playback devices. For example, you can convert+-- large, high-quality digital media files into formats that users can play+-- back on mobile devices, tablets, web browsers, and connected televisions.+module Network.AWS.ElasticTranscoder+    ( module Network.AWS.ElasticTranscoder.CancelJob+    , module Network.AWS.ElasticTranscoder.CreateJob+    , module Network.AWS.ElasticTranscoder.CreatePipeline+    , module Network.AWS.ElasticTranscoder.CreatePreset+    , module Network.AWS.ElasticTranscoder.DeletePipeline+    , module Network.AWS.ElasticTranscoder.DeletePreset+    , module Network.AWS.ElasticTranscoder.ListJobsByPipeline+    , module Network.AWS.ElasticTranscoder.ListJobsByStatus+    , module Network.AWS.ElasticTranscoder.ListPipelines+    , module Network.AWS.ElasticTranscoder.ListPresets+    , module Network.AWS.ElasticTranscoder.ReadJob+    , module Network.AWS.ElasticTranscoder.ReadPipeline+    , module Network.AWS.ElasticTranscoder.ReadPreset+    , module Network.AWS.ElasticTranscoder.TestRole+    , module Network.AWS.ElasticTranscoder.Types+    , module Network.AWS.ElasticTranscoder.UpdatePipeline+    , module Network.AWS.ElasticTranscoder.UpdatePipelineNotifications+    , module Network.AWS.ElasticTranscoder.UpdatePipelineStatus+    ) where++import Network.AWS.ElasticTranscoder.CancelJob+import Network.AWS.ElasticTranscoder.CreateJob+import Network.AWS.ElasticTranscoder.CreatePipeline+import Network.AWS.ElasticTranscoder.CreatePreset+import Network.AWS.ElasticTranscoder.DeletePipeline+import Network.AWS.ElasticTranscoder.DeletePreset+import Network.AWS.ElasticTranscoder.ListJobsByPipeline+import Network.AWS.ElasticTranscoder.ListJobsByStatus+import Network.AWS.ElasticTranscoder.ListPipelines+import Network.AWS.ElasticTranscoder.ListPresets+import Network.AWS.ElasticTranscoder.ReadJob+import Network.AWS.ElasticTranscoder.ReadPipeline+import Network.AWS.ElasticTranscoder.ReadPreset+import Network.AWS.ElasticTranscoder.TestRole+import Network.AWS.ElasticTranscoder.Types+import Network.AWS.ElasticTranscoder.UpdatePipeline+import Network.AWS.ElasticTranscoder.UpdatePipelineNotifications+import Network.AWS.ElasticTranscoder.UpdatePipelineStatus
+ gen/Network/AWS/ElasticTranscoder/CancelJob.hs view
@@ -0,0 +1,94 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.CancelJob+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The CancelJob operation cancels an unfinished job.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/CancelJob.html>+module Network.AWS.ElasticTranscoder.CancelJob+    (+    -- * Request+      CancelJob+    -- ** Request constructor+    , cancelJob+    -- ** Request lenses+    , cjId++    -- * Response+    , CancelJobResponse+    -- ** Response constructor+    , cancelJobResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++newtype CancelJob = CancelJob+    { _cjId :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'CancelJob' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cjId' @::@ 'Text'+--+cancelJob :: Text -- ^ 'cjId'+          -> CancelJob+cancelJob p1 = CancelJob+    { _cjId = p1+    }++-- | 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.+cjId :: Lens' CancelJob Text+cjId = lens _cjId (\s a -> s { _cjId = a })++data CancelJobResponse = CancelJobResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'CancelJobResponse' constructor.+cancelJobResponse :: CancelJobResponse+cancelJobResponse = CancelJobResponse++instance ToPath CancelJob where+    toPath CancelJob{..} = mconcat+        [ "/2012-09-25/jobs/"+        , toText _cjId+        ]++instance ToQuery CancelJob where+    toQuery = const mempty++instance ToHeaders CancelJob++instance ToJSON CancelJob where+    toJSON = const (toJSON Empty)++instance AWSRequest CancelJob where+    type Sv CancelJob = ElasticTranscoder+    type Rs CancelJob = CancelJobResponse++    request  = delete+    response = nullResponse CancelJobResponse
+ gen/Network/AWS/ElasticTranscoder/CreateJob.hs view
@@ -0,0 +1,178 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.CreateJob+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | 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).+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/CreateJob.html>+module Network.AWS.ElasticTranscoder.CreateJob+    (+    -- * Request+      CreateJob+    -- ** Request constructor+    , createJob+    -- ** Request lenses+    , cjInput+    , cjOutput+    , cjOutputKeyPrefix+    , cjOutputs+    , cjPipelineId+    , cjPlaylists++    -- * Response+    , CreateJobResponse+    -- ** Response constructor+    , createJobResponse+    -- ** Response lenses+    , cjrJob+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data CreateJob = CreateJob+    { _cjInput           :: JobInput+    , _cjOutput          :: Maybe CreateJobOutput+    , _cjOutputKeyPrefix :: Maybe Text+    , _cjOutputs         :: List "Outputs" CreateJobOutput+    , _cjPipelineId      :: Text+    , _cjPlaylists       :: List "Playlists" CreateJobPlaylist+    } deriving (Eq, Show)++-- | 'CreateJob' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cjInput' @::@ 'JobInput'+--+-- * 'cjOutput' @::@ 'Maybe' 'CreateJobOutput'+--+-- * 'cjOutputKeyPrefix' @::@ 'Maybe' 'Text'+--+-- * 'cjOutputs' @::@ ['CreateJobOutput']+--+-- * 'cjPipelineId' @::@ 'Text'+--+-- * 'cjPlaylists' @::@ ['CreateJobPlaylist']+--+createJob :: Text -- ^ 'cjPipelineId'+          -> JobInput -- ^ 'cjInput'+          -> CreateJob+createJob p1 p2 = CreateJob+    { _cjPipelineId      = p1+    , _cjInput           = p2+    , _cjOutput          = Nothing+    , _cjOutputs         = mempty+    , _cjOutputKeyPrefix = Nothing+    , _cjPlaylists       = mempty+    }++-- | A section of the request body that provides information about the file+-- that is being transcoded.+cjInput :: Lens' CreateJob JobInput+cjInput = lens _cjInput (\s a -> s { _cjInput = a })++cjOutput :: Lens' CreateJob (Maybe CreateJobOutput)+cjOutput = lens _cjOutput (\s a -> s { _cjOutput = a })++-- | 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.+cjOutputKeyPrefix :: Lens' CreateJob (Maybe Text)+cjOutputKeyPrefix =+    lens _cjOutputKeyPrefix (\s a -> s { _cjOutputKeyPrefix = a })++-- | 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.+cjOutputs :: Lens' CreateJob [CreateJobOutput]+cjOutputs = lens _cjOutputs (\s a -> s { _cjOutputs = a }) . _List++-- | 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.+cjPipelineId :: Lens' CreateJob Text+cjPipelineId = lens _cjPipelineId (\s a -> s { _cjPipelineId = a })++-- | 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.+cjPlaylists :: Lens' CreateJob [CreateJobPlaylist]+cjPlaylists = lens _cjPlaylists (\s a -> s { _cjPlaylists = a }) . _List++newtype CreateJobResponse = CreateJobResponse+    { _cjrJob :: Maybe Job'+    } deriving (Eq, Show)++-- | 'CreateJobResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cjrJob' @::@ 'Maybe' 'Job''+--+createJobResponse :: CreateJobResponse+createJobResponse = CreateJobResponse+    { _cjrJob = Nothing+    }++-- | A section of the response body that provides information about the job+-- that is created.+cjrJob :: Lens' CreateJobResponse (Maybe Job')+cjrJob = lens _cjrJob (\s a -> s { _cjrJob = a })++instance ToPath CreateJob where+    toPath = const "/2012-09-25/jobs"++instance ToQuery CreateJob where+    toQuery = const mempty++instance ToHeaders CreateJob++instance ToJSON CreateJob where+    toJSON CreateJob{..} = object+        [ "PipelineId"      .= _cjPipelineId+        , "Input"           .= _cjInput+        , "Output"          .= _cjOutput+        , "Outputs"         .= _cjOutputs+        , "OutputKeyPrefix" .= _cjOutputKeyPrefix+        , "Playlists"       .= _cjPlaylists+        ]++instance AWSRequest CreateJob where+    type Sv CreateJob = ElasticTranscoder+    type Rs CreateJob = CreateJobResponse++    request  = post+    response = jsonResponse++instance FromJSON CreateJobResponse where+    parseJSON = withObject "CreateJobResponse" $ \o -> CreateJobResponse+        <$> o .:? "Job"
+ gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs view
@@ -0,0 +1,287 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.CreatePipeline+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The CreatePipeline operation creates a pipeline with settings that you+-- specify.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/CreatePipeline.html>+module Network.AWS.ElasticTranscoder.CreatePipeline+    (+    -- * Request+      CreatePipeline+    -- ** Request constructor+    , createPipeline+    -- ** Request lenses+    , cp1ContentConfig+    , cp1InputBucket+    , cp1Name+    , cp1Notifications+    , cp1OutputBucket+    , cp1Role+    , cp1ThumbnailConfig++    -- * Response+    , CreatePipelineResponse+    -- ** Response constructor+    , createPipelineResponse+    -- ** Response lenses+    , cprPipeline+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data CreatePipeline = CreatePipeline+    { _cp1ContentConfig   :: Maybe PipelineOutputConfig+    , _cp1InputBucket     :: Text+    , _cp1Name            :: Text+    , _cp1Notifications   :: Maybe Notifications+    , _cp1OutputBucket    :: Maybe Text+    , _cp1Role            :: Text+    , _cp1ThumbnailConfig :: Maybe PipelineOutputConfig+    } deriving (Eq, Show)++-- | 'CreatePipeline' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cp1ContentConfig' @::@ 'Maybe' 'PipelineOutputConfig'+--+-- * 'cp1InputBucket' @::@ 'Text'+--+-- * 'cp1Name' @::@ 'Text'+--+-- * 'cp1Notifications' @::@ 'Maybe' 'Notifications'+--+-- * 'cp1OutputBucket' @::@ 'Maybe' 'Text'+--+-- * 'cp1Role' @::@ 'Text'+--+-- * 'cp1ThumbnailConfig' @::@ 'Maybe' 'PipelineOutputConfig'+--+createPipeline :: Text -- ^ 'cp1Name'+               -> Text -- ^ 'cp1InputBucket'+               -> Text -- ^ 'cp1Role'+               -> CreatePipeline+createPipeline p1 p2 p3 = CreatePipeline+    { _cp1Name            = p1+    , _cp1InputBucket     = p2+    , _cp1Role            = p3+    , _cp1OutputBucket    = Nothing+    , _cp1Notifications   = Nothing+    , _cp1ContentConfig   = Nothing+    , _cp1ThumbnailConfig = Nothing+    }++-- | 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.+cp1ContentConfig :: Lens' CreatePipeline (Maybe PipelineOutputConfig)+cp1ContentConfig = lens _cp1ContentConfig (\s a -> s { _cp1ContentConfig = a })++-- | The Amazon S3 bucket in which you saved the media files that you want to+-- transcode.+cp1InputBucket :: Lens' CreatePipeline Text+cp1InputBucket = lens _cp1InputBucket (\s a -> s { _cp1InputBucket = a })++-- | 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.+cp1Name :: Lens' CreatePipeline Text+cp1Name = lens _cp1Name (\s a -> s { _cp1Name = a })++-- | 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. Completed: 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.+cp1Notifications :: Lens' CreatePipeline (Maybe Notifications)+cp1Notifications = lens _cp1Notifications (\s a -> s { _cp1Notifications = a })++-- | 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.+cp1OutputBucket :: Lens' CreatePipeline (Maybe Text)+cp1OutputBucket = lens _cp1OutputBucket (\s a -> s { _cp1OutputBucket = a })++-- | The IAM Amazon Resource Name (ARN) for the role that you want Elastic+-- Transcoder to use to create the pipeline.+cp1Role :: Lens' CreatePipeline Text+cp1Role = lens _cp1Role (\s a -> s { _cp1Role = a })++-- | 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.+cp1ThumbnailConfig :: Lens' CreatePipeline (Maybe PipelineOutputConfig)+cp1ThumbnailConfig =+    lens _cp1ThumbnailConfig (\s a -> s { _cp1ThumbnailConfig = a })++newtype CreatePipelineResponse = CreatePipelineResponse+    { _cprPipeline :: Maybe Pipeline+    } deriving (Eq, Show)++-- | 'CreatePipelineResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cprPipeline' @::@ 'Maybe' 'Pipeline'+--+createPipelineResponse :: CreatePipelineResponse+createPipelineResponse = CreatePipelineResponse+    { _cprPipeline = Nothing+    }++-- | A section of the response body that provides information about the+-- pipeline that is created.+cprPipeline :: Lens' CreatePipelineResponse (Maybe Pipeline)+cprPipeline = lens _cprPipeline (\s a -> s { _cprPipeline = a })++instance ToPath CreatePipeline where+    toPath = const "/2012-09-25/pipelines"++instance ToQuery CreatePipeline where+    toQuery = const mempty++instance ToHeaders CreatePipeline++instance ToJSON CreatePipeline where+    toJSON CreatePipeline{..} = object+        [ "Name"            .= _cp1Name+        , "InputBucket"     .= _cp1InputBucket+        , "OutputBucket"    .= _cp1OutputBucket+        , "Role"            .= _cp1Role+        , "Notifications"   .= _cp1Notifications+        , "ContentConfig"   .= _cp1ContentConfig+        , "ThumbnailConfig" .= _cp1ThumbnailConfig+        ]++instance AWSRequest CreatePipeline where+    type Sv CreatePipeline = ElasticTranscoder+    type Rs CreatePipeline = CreatePipelineResponse++    request  = post+    response = jsonResponse++instance FromJSON CreatePipelineResponse where+    parseJSON = withObject "CreatePipelineResponse" $ \o -> CreatePipelineResponse+        <$> o .:? "Pipeline"
+ gen/Network/AWS/ElasticTranscoder/CreatePreset.hs view
@@ -0,0 +1,191 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.CreatePreset+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | 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.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/CreatePreset.html>+module Network.AWS.ElasticTranscoder.CreatePreset+    (+    -- * Request+      CreatePreset+    -- ** Request constructor+    , createPreset+    -- ** Request lenses+    , cpAudio+    , cpContainer+    , cpDescription+    , cpName+    , cpThumbnails+    , cpVideo++    -- * Response+    , CreatePresetResponse+    -- ** Response constructor+    , createPresetResponse+    -- ** Response lenses+    , cprPreset+    , cprWarning+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data CreatePreset = CreatePreset+    { _cpAudio       :: Maybe AudioParameters+    , _cpContainer   :: Text+    , _cpDescription :: Maybe Text+    , _cpName        :: Text+    , _cpThumbnails  :: Maybe Thumbnails+    , _cpVideo       :: Maybe VideoParameters+    } deriving (Eq, Show)++-- | 'CreatePreset' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cpAudio' @::@ 'Maybe' 'AudioParameters'+--+-- * 'cpContainer' @::@ 'Text'+--+-- * 'cpDescription' @::@ 'Maybe' 'Text'+--+-- * 'cpName' @::@ 'Text'+--+-- * 'cpThumbnails' @::@ 'Maybe' 'Thumbnails'+--+-- * 'cpVideo' @::@ 'Maybe' 'VideoParameters'+--+createPreset :: Text -- ^ 'cpName'+             -> Text -- ^ 'cpContainer'+             -> CreatePreset+createPreset p1 p2 = CreatePreset+    { _cpName        = p1+    , _cpContainer   = p2+    , _cpDescription = Nothing+    , _cpVideo       = Nothing+    , _cpAudio       = Nothing+    , _cpThumbnails  = Nothing+    }++-- | A section of the request body that specifies the audio parameters.+cpAudio :: Lens' CreatePreset (Maybe AudioParameters)+cpAudio = lens _cpAudio (\s a -> s { _cpAudio = a })++-- | The container type for the output file. Valid values include fmp4, mp3,+-- mp4, ogg, ts, and webm.+cpContainer :: Lens' CreatePreset Text+cpContainer = lens _cpContainer (\s a -> s { _cpContainer = a })++-- | A description of the preset.+cpDescription :: Lens' CreatePreset (Maybe Text)+cpDescription = lens _cpDescription (\s a -> s { _cpDescription = a })++-- | The name of the preset. We recommend that the name be unique within the+-- AWS account, but uniqueness is not enforced.+cpName :: Lens' CreatePreset Text+cpName = lens _cpName (\s a -> s { _cpName = a })++-- | A section of the request body that specifies the thumbnail parameters, if+-- any.+cpThumbnails :: Lens' CreatePreset (Maybe Thumbnails)+cpThumbnails = lens _cpThumbnails (\s a -> s { _cpThumbnails = a })++-- | A section of the request body that specifies the video parameters.+cpVideo :: Lens' CreatePreset (Maybe VideoParameters)+cpVideo = lens _cpVideo (\s a -> s { _cpVideo = a })++data CreatePresetResponse = CreatePresetResponse+    { _cprPreset  :: Maybe Preset+    , _cprWarning :: Maybe Text+    } deriving (Eq, Show)++-- | 'CreatePresetResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cprPreset' @::@ 'Maybe' 'Preset'+--+-- * 'cprWarning' @::@ 'Maybe' 'Text'+--+createPresetResponse :: CreatePresetResponse+createPresetResponse = CreatePresetResponse+    { _cprPreset  = Nothing+    , _cprWarning = Nothing+    }++-- | A section of the response body that provides information about the preset+-- that is created.+cprPreset :: Lens' CreatePresetResponse (Maybe Preset)+cprPreset = lens _cprPreset (\s a -> s { _cprPreset = a })++-- | 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.+cprWarning :: Lens' CreatePresetResponse (Maybe Text)+cprWarning = lens _cprWarning (\s a -> s { _cprWarning = a })++instance ToPath CreatePreset where+    toPath = const "/2012-09-25/presets"++instance ToQuery CreatePreset where+    toQuery = const mempty++instance ToHeaders CreatePreset++instance ToJSON CreatePreset where+    toJSON CreatePreset{..} = object+        [ "Name"        .= _cpName+        , "Description" .= _cpDescription+        , "Container"   .= _cpContainer+        , "Video"       .= _cpVideo+        , "Audio"       .= _cpAudio+        , "Thumbnails"  .= _cpThumbnails+        ]++instance AWSRequest CreatePreset where+    type Sv CreatePreset = ElasticTranscoder+    type Rs CreatePreset = CreatePresetResponse++    request  = post+    response = jsonResponse++instance FromJSON CreatePresetResponse where+    parseJSON = withObject "CreatePresetResponse" $ \o -> CreatePresetResponse+        <$> o .:? "Preset"+        <*> o .:? "Warning"
+ gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.DeletePipeline+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | 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.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/DeletePipeline.html>+module Network.AWS.ElasticTranscoder.DeletePipeline+    (+    -- * Request+      DeletePipeline+    -- ** Request constructor+    , deletePipeline+    -- ** Request lenses+    , dp1Id++    -- * Response+    , DeletePipelineResponse+    -- ** Response constructor+    , deletePipelineResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++newtype DeletePipeline = DeletePipeline+    { _dp1Id :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'DeletePipeline' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dp1Id' @::@ 'Text'+--+deletePipeline :: Text -- ^ 'dp1Id'+               -> DeletePipeline+deletePipeline p1 = DeletePipeline+    { _dp1Id = p1+    }++-- | The identifier of the pipeline that you want to delete.+dp1Id :: Lens' DeletePipeline Text+dp1Id = lens _dp1Id (\s a -> s { _dp1Id = a })++data DeletePipelineResponse = DeletePipelineResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeletePipelineResponse' constructor.+deletePipelineResponse :: DeletePipelineResponse+deletePipelineResponse = DeletePipelineResponse++instance ToPath DeletePipeline where+    toPath DeletePipeline{..} = mconcat+        [ "/2012-09-25/pipelines/"+        , toText _dp1Id+        ]++instance ToQuery DeletePipeline where+    toQuery = const mempty++instance ToHeaders DeletePipeline++instance ToJSON DeletePipeline where+    toJSON = const (toJSON Empty)++instance AWSRequest DeletePipeline where+    type Sv DeletePipeline = ElasticTranscoder+    type Rs DeletePipeline = DeletePipelineResponse++    request  = delete+    response = nullResponse DeletePipelineResponse
+ gen/Network/AWS/ElasticTranscoder/DeletePreset.hs view
@@ -0,0 +1,94 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.DeletePreset+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The DeletePreset operation removes a preset that you've added in an AWS+-- region.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/DeletePreset.html>+module Network.AWS.ElasticTranscoder.DeletePreset+    (+    -- * Request+      DeletePreset+    -- ** Request constructor+    , deletePreset+    -- ** Request lenses+    , dpId++    -- * Response+    , DeletePresetResponse+    -- ** Response constructor+    , deletePresetResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++newtype DeletePreset = DeletePreset+    { _dpId :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'DeletePreset' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dpId' @::@ 'Text'+--+deletePreset :: Text -- ^ 'dpId'+             -> DeletePreset+deletePreset p1 = DeletePreset+    { _dpId = p1+    }++-- | The identifier of the preset for which you want to get detailed+-- information.+dpId :: Lens' DeletePreset Text+dpId = lens _dpId (\s a -> s { _dpId = a })++data DeletePresetResponse = DeletePresetResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeletePresetResponse' constructor.+deletePresetResponse :: DeletePresetResponse+deletePresetResponse = DeletePresetResponse++instance ToPath DeletePreset where+    toPath DeletePreset{..} = mconcat+        [ "/2012-09-25/presets/"+        , toText _dpId+        ]++instance ToQuery DeletePreset where+    toQuery = const mempty++instance ToHeaders DeletePreset++instance ToJSON DeletePreset where+    toJSON = const (toJSON Empty)++instance AWSRequest DeletePreset where+    type Sv DeletePreset = ElasticTranscoder+    type Rs DeletePreset = DeletePresetResponse++    request  = delete+    response = nullResponse DeletePresetResponse
+ gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs view
@@ -0,0 +1,158 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.ListJobsByPipeline+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | 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.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/ListJobsByPipeline.html>+module Network.AWS.ElasticTranscoder.ListJobsByPipeline+    (+    -- * Request+      ListJobsByPipeline+    -- ** Request constructor+    , listJobsByPipeline+    -- ** Request lenses+    , ljbpAscending+    , ljbpPageToken+    , ljbpPipelineId++    -- * Response+    , ListJobsByPipelineResponse+    -- ** Response constructor+    , listJobsByPipelineResponse+    -- ** Response lenses+    , ljbprJobs+    , ljbprNextPageToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data ListJobsByPipeline = ListJobsByPipeline+    { _ljbpAscending  :: Maybe Text+    , _ljbpPageToken  :: Maybe Text+    , _ljbpPipelineId :: Text+    } deriving (Eq, Ord, Show)++-- | 'ListJobsByPipeline' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ljbpAscending' @::@ 'Maybe' 'Text'+--+-- * 'ljbpPageToken' @::@ 'Maybe' 'Text'+--+-- * 'ljbpPipelineId' @::@ 'Text'+--+listJobsByPipeline :: Text -- ^ 'ljbpPipelineId'+                   -> ListJobsByPipeline+listJobsByPipeline p1 = ListJobsByPipeline+    { _ljbpPipelineId = p1+    , _ljbpAscending  = Nothing+    , _ljbpPageToken  = Nothing+    }++-- | 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.+ljbpAscending :: Lens' ListJobsByPipeline (Maybe Text)+ljbpAscending = lens _ljbpAscending (\s a -> s { _ljbpAscending = a })++-- | When Elastic Transcoder returns more than one page of results, use+-- pageToken in subsequent GET requests to get each successive page of+-- results.+ljbpPageToken :: Lens' ListJobsByPipeline (Maybe Text)+ljbpPageToken = lens _ljbpPageToken (\s a -> s { _ljbpPageToken = a })++-- | The ID of the pipeline for which you want to get job information.+ljbpPipelineId :: Lens' ListJobsByPipeline Text+ljbpPipelineId = lens _ljbpPipelineId (\s a -> s { _ljbpPipelineId = a })++data ListJobsByPipelineResponse = ListJobsByPipelineResponse+    { _ljbprJobs          :: List "Jobs" Job'+    , _ljbprNextPageToken :: Maybe Text+    } deriving (Eq, Show)++-- | 'ListJobsByPipelineResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ljbprJobs' @::@ ['Job'']+--+-- * 'ljbprNextPageToken' @::@ 'Maybe' 'Text'+--+listJobsByPipelineResponse :: ListJobsByPipelineResponse+listJobsByPipelineResponse = ListJobsByPipelineResponse+    { _ljbprJobs          = mempty+    , _ljbprNextPageToken = Nothing+    }++-- | An array of Job objects that are in the specified pipeline.+ljbprJobs :: Lens' ListJobsByPipelineResponse [Job']+ljbprJobs = lens _ljbprJobs (\s a -> s { _ljbprJobs = a }) . _List++-- | 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.+ljbprNextPageToken :: Lens' ListJobsByPipelineResponse (Maybe Text)+ljbprNextPageToken =+    lens _ljbprNextPageToken (\s a -> s { _ljbprNextPageToken = a })++instance ToPath ListJobsByPipeline where+    toPath ListJobsByPipeline{..} = mconcat+        [ "/2012-09-25/jobsByPipeline/"+        , toText _ljbpPipelineId+        ]++instance ToQuery ListJobsByPipeline where+    toQuery ListJobsByPipeline{..} = mconcat+        [ "Ascending" =? _ljbpAscending+        , "PageToken" =? _ljbpPageToken+        ]++instance ToHeaders ListJobsByPipeline++instance ToJSON ListJobsByPipeline where+    toJSON = const (toJSON Empty)++instance AWSRequest ListJobsByPipeline where+    type Sv ListJobsByPipeline = ElasticTranscoder+    type Rs ListJobsByPipeline = ListJobsByPipelineResponse++    request  = get+    response = jsonResponse++instance FromJSON ListJobsByPipelineResponse where+    parseJSON = withObject "ListJobsByPipelineResponse" $ \o -> ListJobsByPipelineResponse+        <$> o .:  "Jobs"+        <*> o .:? "NextPageToken"++instance AWSPager ListJobsByPipeline where+    page rq rs+        | stop (rq ^. ljbpPageToken) = Nothing+        | otherwise = (\x -> rq & ljbpPageToken ?~ x)+            <$> (rs ^. ljbprNextPageToken)
+ gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs view
@@ -0,0 +1,159 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.ListJobsByStatus+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | 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.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/ListJobsByStatus.html>+module Network.AWS.ElasticTranscoder.ListJobsByStatus+    (+    -- * Request+      ListJobsByStatus+    -- ** Request constructor+    , listJobsByStatus+    -- ** Request lenses+    , ljbsAscending+    , ljbsPageToken+    , ljbsStatus++    -- * Response+    , ListJobsByStatusResponse+    -- ** Response constructor+    , listJobsByStatusResponse+    -- ** Response lenses+    , ljbsrJobs+    , ljbsrNextPageToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data ListJobsByStatus = ListJobsByStatus+    { _ljbsAscending :: Maybe Text+    , _ljbsPageToken :: Maybe Text+    , _ljbsStatus    :: Text+    } deriving (Eq, Ord, Show)++-- | 'ListJobsByStatus' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ljbsAscending' @::@ 'Maybe' 'Text'+--+-- * 'ljbsPageToken' @::@ 'Maybe' 'Text'+--+-- * 'ljbsStatus' @::@ 'Text'+--+listJobsByStatus :: Text -- ^ 'ljbsStatus'+                 -> ListJobsByStatus+listJobsByStatus p1 = ListJobsByStatus+    { _ljbsStatus    = p1+    , _ljbsAscending = Nothing+    , _ljbsPageToken = Nothing+    }++-- | 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.+ljbsAscending :: Lens' ListJobsByStatus (Maybe Text)+ljbsAscending = lens _ljbsAscending (\s a -> s { _ljbsAscending = a })++-- | When Elastic Transcoder returns more than one page of results, use+-- pageToken in subsequent GET requests to get each successive page of+-- results.+ljbsPageToken :: Lens' ListJobsByStatus (Maybe Text)+ljbsPageToken = lens _ljbsPageToken (\s a -> s { _ljbsPageToken = a })++-- | 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.+ljbsStatus :: Lens' ListJobsByStatus Text+ljbsStatus = lens _ljbsStatus (\s a -> s { _ljbsStatus = a })++data ListJobsByStatusResponse = ListJobsByStatusResponse+    { _ljbsrJobs          :: List "Jobs" Job'+    , _ljbsrNextPageToken :: Maybe Text+    } deriving (Eq, Show)++-- | 'ListJobsByStatusResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ljbsrJobs' @::@ ['Job'']+--+-- * 'ljbsrNextPageToken' @::@ 'Maybe' 'Text'+--+listJobsByStatusResponse :: ListJobsByStatusResponse+listJobsByStatusResponse = ListJobsByStatusResponse+    { _ljbsrJobs          = mempty+    , _ljbsrNextPageToken = Nothing+    }++-- | An array of Job objects that have the specified status.+ljbsrJobs :: Lens' ListJobsByStatusResponse [Job']+ljbsrJobs = lens _ljbsrJobs (\s a -> s { _ljbsrJobs = a }) . _List++-- | 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.+ljbsrNextPageToken :: Lens' ListJobsByStatusResponse (Maybe Text)+ljbsrNextPageToken =+    lens _ljbsrNextPageToken (\s a -> s { _ljbsrNextPageToken = a })++instance ToPath ListJobsByStatus where+    toPath ListJobsByStatus{..} = mconcat+        [ "/2012-09-25/jobsByStatus/"+        , toText _ljbsStatus+        ]++instance ToQuery ListJobsByStatus where+    toQuery ListJobsByStatus{..} = mconcat+        [ "Ascending" =? _ljbsAscending+        , "PageToken" =? _ljbsPageToken+        ]++instance ToHeaders ListJobsByStatus++instance ToJSON ListJobsByStatus where+    toJSON = const (toJSON Empty)++instance AWSRequest ListJobsByStatus where+    type Sv ListJobsByStatus = ElasticTranscoder+    type Rs ListJobsByStatus = ListJobsByStatusResponse++    request  = get+    response = jsonResponse++instance FromJSON ListJobsByStatusResponse where+    parseJSON = withObject "ListJobsByStatusResponse" $ \o -> ListJobsByStatusResponse+        <$> o .:  "Jobs"+        <*> o .:? "NextPageToken"++instance AWSPager ListJobsByStatus where+    page rq rs+        | stop (rq ^. ljbsPageToken) = Nothing+        | otherwise = (\x -> rq & ljbsPageToken ?~ x)+            <$> (rs ^. ljbsrNextPageToken)
+ gen/Network/AWS/ElasticTranscoder/ListPipelines.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.ListPipelines+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The ListPipelines operation gets a list of the pipelines associated with+-- the current AWS account.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/ListPipelines.html>+module Network.AWS.ElasticTranscoder.ListPipelines+    (+    -- * Request+      ListPipelines+    -- ** Request constructor+    , listPipelines+    -- ** Request lenses+    , lpAscending+    , lpPageToken++    -- * Response+    , ListPipelinesResponse+    -- ** Response constructor+    , listPipelinesResponse+    -- ** Response lenses+    , lprNextPageToken+    , lprPipelines+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data ListPipelines = ListPipelines+    { _lpAscending :: Maybe Text+    , _lpPageToken :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListPipelines' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'lpAscending' @::@ 'Maybe' 'Text'+--+-- * 'lpPageToken' @::@ 'Maybe' 'Text'+--+listPipelines :: ListPipelines+listPipelines = ListPipelines+    { _lpAscending = Nothing+    , _lpPageToken = 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.+lpAscending :: Lens' ListPipelines (Maybe Text)+lpAscending = lens _lpAscending (\s a -> s { _lpAscending = a })++-- | When Elastic Transcoder returns more than one page of results, use+-- pageToken in subsequent GET requests to get each successive page of+-- results.+lpPageToken :: Lens' ListPipelines (Maybe Text)+lpPageToken = lens _lpPageToken (\s a -> s { _lpPageToken = a })++data ListPipelinesResponse = ListPipelinesResponse+    { _lprNextPageToken :: Maybe Text+    , _lprPipelines     :: List "Pipelines" Pipeline+    } deriving (Eq, Show)++-- | 'ListPipelinesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'lprNextPageToken' @::@ 'Maybe' 'Text'+--+-- * 'lprPipelines' @::@ ['Pipeline']+--+listPipelinesResponse :: ListPipelinesResponse+listPipelinesResponse = ListPipelinesResponse+    { _lprPipelines     = mempty+    , _lprNextPageToken = Nothing+    }++-- | 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.+lprNextPageToken :: Lens' ListPipelinesResponse (Maybe Text)+lprNextPageToken = lens _lprNextPageToken (\s a -> s { _lprNextPageToken = a })++-- | An array of Pipeline objects.+lprPipelines :: Lens' ListPipelinesResponse [Pipeline]+lprPipelines = lens _lprPipelines (\s a -> s { _lprPipelines = a }) . _List++instance ToPath ListPipelines where+    toPath = const "/2012-09-25/pipelines"++instance ToQuery ListPipelines where+    toQuery ListPipelines{..} = mconcat+        [ "Ascending" =? _lpAscending+        , "PageToken" =? _lpPageToken+        ]++instance ToHeaders ListPipelines++instance ToJSON ListPipelines where+    toJSON = const (toJSON Empty)++instance AWSRequest ListPipelines where+    type Sv ListPipelines = ElasticTranscoder+    type Rs ListPipelines = ListPipelinesResponse++    request  = get+    response = jsonResponse++instance FromJSON ListPipelinesResponse where+    parseJSON = withObject "ListPipelinesResponse" $ \o -> ListPipelinesResponse+        <$> o .:? "NextPageToken"+        <*> o .:  "Pipelines"++instance AWSPager ListPipelines where+    page rq rs+        | stop (rq ^. lpPageToken) = Nothing+        | otherwise = (\x -> rq & lpPageToken ?~ x)+            <$> (rs ^. lprNextPageToken)
+ gen/Network/AWS/ElasticTranscoder/ListPresets.hs view
@@ -0,0 +1,142 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.ListPresets+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | 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.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/ListPresets.html>+module Network.AWS.ElasticTranscoder.ListPresets+    (+    -- * Request+      ListPresets+    -- ** Request constructor+    , listPresets+    -- ** Request lenses+    , lp1Ascending+    , lp1PageToken++    -- * Response+    , ListPresetsResponse+    -- ** Response constructor+    , listPresetsResponse+    -- ** Response lenses+    , lpr1NextPageToken+    , lpr1Presets+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data ListPresets = ListPresets+    { _lp1Ascending :: Maybe Text+    , _lp1PageToken :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListPresets' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'lp1Ascending' @::@ 'Maybe' 'Text'+--+-- * 'lp1PageToken' @::@ 'Maybe' 'Text'+--+listPresets :: ListPresets+listPresets = ListPresets+    { _lp1Ascending = Nothing+    , _lp1PageToken = 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.+lp1Ascending :: Lens' ListPresets (Maybe Text)+lp1Ascending = lens _lp1Ascending (\s a -> s { _lp1Ascending = a })++-- | When Elastic Transcoder returns more than one page of results, use+-- pageToken in subsequent GET requests to get each successive page of+-- results.+lp1PageToken :: Lens' ListPresets (Maybe Text)+lp1PageToken = lens _lp1PageToken (\s a -> s { _lp1PageToken = a })++data ListPresetsResponse = ListPresetsResponse+    { _lpr1NextPageToken :: Maybe Text+    , _lpr1Presets       :: List "Presets" Preset+    } deriving (Eq, Show)++-- | 'ListPresetsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'lpr1NextPageToken' @::@ 'Maybe' 'Text'+--+-- * 'lpr1Presets' @::@ ['Preset']+--+listPresetsResponse :: ListPresetsResponse+listPresetsResponse = ListPresetsResponse+    { _lpr1Presets       = mempty+    , _lpr1NextPageToken = Nothing+    }++-- | 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.+lpr1NextPageToken :: Lens' ListPresetsResponse (Maybe Text)+lpr1NextPageToken =+    lens _lpr1NextPageToken (\s a -> s { _lpr1NextPageToken = a })++-- | An array of Preset objects.+lpr1Presets :: Lens' ListPresetsResponse [Preset]+lpr1Presets = lens _lpr1Presets (\s a -> s { _lpr1Presets = a }) . _List++instance ToPath ListPresets where+    toPath = const "/2012-09-25/presets"++instance ToQuery ListPresets where+    toQuery ListPresets{..} = mconcat+        [ "Ascending" =? _lp1Ascending+        , "PageToken" =? _lp1PageToken+        ]++instance ToHeaders ListPresets++instance ToJSON ListPresets where+    toJSON = const (toJSON Empty)++instance AWSRequest ListPresets where+    type Sv ListPresets = ElasticTranscoder+    type Rs ListPresets = ListPresetsResponse++    request  = get+    response = jsonResponse++instance FromJSON ListPresetsResponse where+    parseJSON = withObject "ListPresetsResponse" $ \o -> ListPresetsResponse+        <$> o .:? "NextPageToken"+        <*> o .:  "Presets"++instance AWSPager ListPresets where+    page rq rs+        | stop (rq ^. lp1PageToken) = Nothing+        | otherwise = (\x -> rq & lp1PageToken ?~ x)+            <$> (rs ^. lpr1NextPageToken)
+ gen/Network/AWS/ElasticTranscoder/ReadJob.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.ReadJob+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The ReadJob operation returns detailed information about a job.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/ReadJob.html>+module Network.AWS.ElasticTranscoder.ReadJob+    (+    -- * Request+      ReadJob+    -- ** Request constructor+    , readJob+    -- ** Request lenses+    , rjId++    -- * Response+    , ReadJobResponse+    -- ** Response constructor+    , readJobResponse+    -- ** Response lenses+    , rjrJob+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++newtype ReadJob = ReadJob+    { _rjId :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'ReadJob' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rjId' @::@ 'Text'+--+readJob :: Text -- ^ 'rjId'+        -> ReadJob+readJob p1 = ReadJob+    { _rjId = p1+    }++-- | The identifier of the job for which you want to get detailed information.+rjId :: Lens' ReadJob Text+rjId = lens _rjId (\s a -> s { _rjId = a })++newtype ReadJobResponse = ReadJobResponse+    { _rjrJob :: Maybe Job'+    } deriving (Eq, Show)++-- | 'ReadJobResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rjrJob' @::@ 'Maybe' 'Job''+--+readJobResponse :: ReadJobResponse+readJobResponse = ReadJobResponse+    { _rjrJob = Nothing+    }++-- | A section of the response body that provides information about the job.+rjrJob :: Lens' ReadJobResponse (Maybe Job')+rjrJob = lens _rjrJob (\s a -> s { _rjrJob = a })++instance ToPath ReadJob where+    toPath ReadJob{..} = mconcat+        [ "/2012-09-25/jobs/"+        , toText _rjId+        ]++instance ToQuery ReadJob where+    toQuery = const mempty++instance ToHeaders ReadJob++instance ToJSON ReadJob where+    toJSON = const (toJSON Empty)++instance AWSRequest ReadJob where+    type Sv ReadJob = ElasticTranscoder+    type Rs ReadJob = ReadJobResponse++    request  = get+    response = jsonResponse++instance FromJSON ReadJobResponse where+    parseJSON = withObject "ReadJobResponse" $ \o -> ReadJobResponse+        <$> o .:? "Job"
+ gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.ReadPipeline+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The ReadPipeline operation gets detailed information about a pipeline.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/ReadPipeline.html>+module Network.AWS.ElasticTranscoder.ReadPipeline+    (+    -- * Request+      ReadPipeline+    -- ** Request constructor+    , readPipeline+    -- ** Request lenses+    , rp1Id++    -- * Response+    , ReadPipelineResponse+    -- ** Response constructor+    , readPipelineResponse+    -- ** Response lenses+    , rprPipeline+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++newtype ReadPipeline = ReadPipeline+    { _rp1Id :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'ReadPipeline' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rp1Id' @::@ 'Text'+--+readPipeline :: Text -- ^ 'rp1Id'+             -> ReadPipeline+readPipeline p1 = ReadPipeline+    { _rp1Id = p1+    }++-- | The identifier of the pipeline to read.+rp1Id :: Lens' ReadPipeline Text+rp1Id = lens _rp1Id (\s a -> s { _rp1Id = a })++newtype ReadPipelineResponse = ReadPipelineResponse+    { _rprPipeline :: Maybe Pipeline+    } deriving (Eq, Show)++-- | 'ReadPipelineResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rprPipeline' @::@ 'Maybe' 'Pipeline'+--+readPipelineResponse :: ReadPipelineResponse+readPipelineResponse = ReadPipelineResponse+    { _rprPipeline = Nothing+    }++-- | A section of the response body that provides information about the+-- pipeline.+rprPipeline :: Lens' ReadPipelineResponse (Maybe Pipeline)+rprPipeline = lens _rprPipeline (\s a -> s { _rprPipeline = a })++instance ToPath ReadPipeline where+    toPath ReadPipeline{..} = mconcat+        [ "/2012-09-25/pipelines/"+        , toText _rp1Id+        ]++instance ToQuery ReadPipeline where+    toQuery = const mempty++instance ToHeaders ReadPipeline++instance ToJSON ReadPipeline where+    toJSON = const (toJSON Empty)++instance AWSRequest ReadPipeline where+    type Sv ReadPipeline = ElasticTranscoder+    type Rs ReadPipeline = ReadPipelineResponse++    request  = get+    response = jsonResponse++instance FromJSON ReadPipelineResponse where+    parseJSON = withObject "ReadPipelineResponse" $ \o -> ReadPipelineResponse+        <$> o .:? "Pipeline"
+ gen/Network/AWS/ElasticTranscoder/ReadPreset.hs view
@@ -0,0 +1,112 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.ReadPreset+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The ReadPreset operation gets detailed information about a preset.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/ReadPreset.html>+module Network.AWS.ElasticTranscoder.ReadPreset+    (+    -- * Request+      ReadPreset+    -- ** Request constructor+    , readPreset+    -- ** Request lenses+    , rpId++    -- * Response+    , ReadPresetResponse+    -- ** Response constructor+    , readPresetResponse+    -- ** Response lenses+    , rprPreset+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++newtype ReadPreset = ReadPreset+    { _rpId :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'ReadPreset' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rpId' @::@ 'Text'+--+readPreset :: Text -- ^ 'rpId'+           -> ReadPreset+readPreset p1 = ReadPreset+    { _rpId = p1+    }++-- | The identifier of the preset for which you want to get detailed+-- information.+rpId :: Lens' ReadPreset Text+rpId = lens _rpId (\s a -> s { _rpId = a })++newtype ReadPresetResponse = ReadPresetResponse+    { _rprPreset :: Maybe Preset+    } deriving (Eq, Show)++-- | 'ReadPresetResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rprPreset' @::@ 'Maybe' 'Preset'+--+readPresetResponse :: ReadPresetResponse+readPresetResponse = ReadPresetResponse+    { _rprPreset = Nothing+    }++-- | A section of the response body that provides information about the+-- preset.+rprPreset :: Lens' ReadPresetResponse (Maybe Preset)+rprPreset = lens _rprPreset (\s a -> s { _rprPreset = a })++instance ToPath ReadPreset where+    toPath ReadPreset{..} = mconcat+        [ "/2012-09-25/presets/"+        , toText _rpId+        ]++instance ToQuery ReadPreset where+    toQuery = const mempty++instance ToHeaders ReadPreset++instance ToJSON ReadPreset where+    toJSON = const (toJSON Empty)++instance AWSRequest ReadPreset where+    type Sv ReadPreset = ElasticTranscoder+    type Rs ReadPreset = ReadPresetResponse++    request  = get+    response = jsonResponse++instance FromJSON ReadPresetResponse where+    parseJSON = withObject "ReadPresetResponse" $ \o -> ReadPresetResponse+        <$> o .:? "Preset"
+ gen/Network/AWS/ElasticTranscoder/TestRole.hs view
@@ -0,0 +1,162 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.TestRole+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The TestRole operation tests the IAM role used to create the pipeline. The+-- TestRole action lets you determine whether the IAM role you are using has+-- sufficient permissions to let Elastic Transcoder perform tasks associated+-- with the transcoding process. The action attempts to assume the specified+-- IAM role, checks read access to the input and output buckets, and tries to+-- send a test notification to Amazon SNS topics that you specify.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/TestRole.html>+module Network.AWS.ElasticTranscoder.TestRole+    (+    -- * Request+      TestRole+    -- ** Request constructor+    , testRole+    -- ** Request lenses+    , trInputBucket+    , trOutputBucket+    , trRole+    , trTopics++    -- * Response+    , TestRoleResponse+    -- ** Response constructor+    , testRoleResponse+    -- ** Response lenses+    , trrMessages+    , trrSuccess+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data TestRole = TestRole+    { _trInputBucket  :: Text+    , _trOutputBucket :: Text+    , _trRole         :: Text+    , _trTopics       :: List "Topics" Text+    } deriving (Eq, Ord, Show)++-- | 'TestRole' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'trInputBucket' @::@ 'Text'+--+-- * 'trOutputBucket' @::@ 'Text'+--+-- * 'trRole' @::@ 'Text'+--+-- * 'trTopics' @::@ ['Text']+--+testRole :: Text -- ^ 'trRole'+         -> Text -- ^ 'trInputBucket'+         -> Text -- ^ 'trOutputBucket'+         -> TestRole+testRole p1 p2 p3 = TestRole+    { _trRole         = p1+    , _trInputBucket  = p2+    , _trOutputBucket = p3+    , _trTopics       = mempty+    }++-- | The Amazon S3 bucket that contains media files to be transcoded. The+-- action attempts to read from this bucket.+trInputBucket :: Lens' TestRole Text+trInputBucket = lens _trInputBucket (\s a -> s { _trInputBucket = a })++-- | The Amazon S3 bucket that Elastic Transcoder will write transcoded media+-- files to. The action attempts to read from this bucket.+trOutputBucket :: Lens' TestRole Text+trOutputBucket = lens _trOutputBucket (\s a -> s { _trOutputBucket = a })++-- | The IAM Amazon Resource Name (ARN) for the role that you want Elastic+-- Transcoder to test.+trRole :: Lens' TestRole Text+trRole = lens _trRole (\s a -> s { _trRole = a })++-- | The ARNs of one or more Amazon Simple Notification Service (Amazon SNS)+-- topics that you want the action to send a test notification to.+trTopics :: Lens' TestRole [Text]+trTopics = lens _trTopics (\s a -> s { _trTopics = a }) . _List++data TestRoleResponse = TestRoleResponse+    { _trrMessages :: List "Messages" Text+    , _trrSuccess  :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'TestRoleResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'trrMessages' @::@ ['Text']+--+-- * 'trrSuccess' @::@ 'Maybe' 'Text'+--+testRoleResponse :: TestRoleResponse+testRoleResponse = TestRoleResponse+    { _trrSuccess  = Nothing+    , _trrMessages = mempty+    }++-- | If the Success element contains false, this value is an array of one or+-- more error messages that were generated during the test process.+trrMessages :: Lens' TestRoleResponse [Text]+trrMessages = lens _trrMessages (\s a -> s { _trrMessages = a }) . _List++-- | If the operation is successful, this value is true; otherwise, the value+-- is false.+trrSuccess :: Lens' TestRoleResponse (Maybe Text)+trrSuccess = lens _trrSuccess (\s a -> s { _trrSuccess = a })++instance ToPath TestRole where+    toPath = const "/2012-09-25/roleTests"++instance ToQuery TestRole where+    toQuery = const mempty++instance ToHeaders TestRole++instance ToJSON TestRole where+    toJSON TestRole{..} = object+        [ "Role"         .= _trRole+        , "InputBucket"  .= _trInputBucket+        , "OutputBucket" .= _trOutputBucket+        , "Topics"       .= _trTopics+        ]++instance AWSRequest TestRole where+    type Sv TestRole = ElasticTranscoder+    type Rs TestRole = TestRoleResponse++    request  = post+    response = jsonResponse++instance FromJSON TestRoleResponse where+    parseJSON = withObject "TestRoleResponse" $ \o -> TestRoleResponse+        <$> o .:  "Messages"+        <*> o .:? "Success"
+ gen/Network/AWS/ElasticTranscoder/Types.hs view
@@ -0,0 +1,2885 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.Types+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++module Network.AWS.ElasticTranscoder.Types+    (+    -- * Service+      ElasticTranscoder+    -- ** Error+    , RESTError++    -- * PipelineOutputConfig+    , PipelineOutputConfig+    , pipelineOutputConfig+    , pocBucket+    , pocPermissions+    , pocStorageClass++    -- * CreateJobPlaylist+    , CreateJobPlaylist+    , createJobPlaylist+    , cjpFormat+    , cjpName+    , cjpOutputKeys++    -- * Captions+    , Captions+    , captions+    , cCaptionFormats+    , cCaptionSources+    , cMergePolicy++    -- * AudioCodecOptions+    , AudioCodecOptions+    , audioCodecOptions+    , acoProfile++    -- * JobOutput+    , JobOutput+    , jobOutput+    , joAlbumArt+    , joCaptions+    , joComposition+    , joDuration+    , joHeight+    , joId+    , joKey+    , joPresetId+    , joRotate+    , joSegmentDuration+    , joStatus+    , joStatusDetail+    , joThumbnailPattern+    , joWatermarks+    , joWidth++    -- * Job'+    , Job'+    , job+    , jArn+    , jId+    , jInput+    , jOutput+    , jOutputKeyPrefix+    , jOutputs+    , jPipelineId+    , jPlaylists+    , jStatus++    -- * CaptionSource+    , CaptionSource+    , captionSource+    , csKey+    , csLabel+    , csLanguage+    , csTimeOffset++    -- * Artwork+    , Artwork+    , artwork+    , aAlbumArtFormat+    , aInputKey+    , aMaxHeight+    , aMaxWidth+    , aPaddingPolicy+    , aSizingPolicy++    -- * TimeSpan+    , TimeSpan+    , timeSpan+    , tsDuration+    , tsStartTime++    -- * CreateJobOutput+    , CreateJobOutput+    , createJobOutput+    , cjoAlbumArt+    , cjoCaptions+    , cjoComposition+    , cjoKey+    , cjoPresetId+    , cjoRotate+    , cjoSegmentDuration+    , cjoThumbnailPattern+    , cjoWatermarks++    -- * AudioParameters+    , AudioParameters+    , audioParameters+    , apBitRate+    , apChannels+    , apCodec+    , apCodecOptions+    , apSampleRate++    -- * Thumbnails+    , Thumbnails+    , thumbnails+    , tAspectRatio+    , tFormat+    , tInterval+    , tMaxHeight+    , tMaxWidth+    , tPaddingPolicy+    , tResolution+    , tSizingPolicy++    -- * JobAlbumArt+    , JobAlbumArt+    , jobAlbumArt+    , jaaArtwork+    , jaaMergePolicy++    -- * JobWatermark+    , JobWatermark+    , jobWatermark+    , jwInputKey+    , jwPresetWatermarkId++    -- * Pipeline+    , Pipeline+    , pipeline+    , pArn+    , pContentConfig+    , pId+    , pInputBucket+    , pName+    , pNotifications+    , pOutputBucket+    , pRole+    , pStatus+    , pThumbnailConfig++    -- * Preset+    , Preset+    , preset+    , p1Arn+    , p1Audio+    , p1Container+    , p1Description+    , p1Id+    , p1Name+    , p1Thumbnails+    , p1Type+    , p1Video++    -- * CaptionFormat+    , CaptionFormat+    , captionFormat+    , cfFormat+    , cfPattern++    -- * PresetWatermark+    , PresetWatermark+    , presetWatermark+    , pwHorizontalAlign+    , pwHorizontalOffset+    , pwId+    , pwMaxHeight+    , pwMaxWidth+    , pwOpacity+    , pwSizingPolicy+    , pwTarget+    , pwVerticalAlign+    , pwVerticalOffset++    -- * Permission+    , Permission+    , permission+    , pAccess+    , pGrantee+    , pGranteeType++    -- * VideoParameters+    , VideoParameters+    , videoParameters+    , vpAspectRatio+    , vpBitRate+    , vpCodec+    , vpCodecOptions+    , vpDisplayAspectRatio+    , vpFixedGOP+    , vpFrameRate+    , vpKeyframesMaxDist+    , vpMaxFrameRate+    , vpMaxHeight+    , vpMaxWidth+    , vpPaddingPolicy+    , vpResolution+    , vpSizingPolicy+    , vpWatermarks++    -- * Playlist+    , Playlist+    , playlist+    , p2Format+    , p2Name+    , p2OutputKeys+    , p2Status+    , p2StatusDetail++    -- * Notifications+    , Notifications+    , notifications+    , nCompleted+    , nError+    , nProgressing+    , nWarning++    -- * Clip+    , Clip+    , clip+    , cTimeSpan++    -- * JobInput+    , JobInput+    , jobInput+    , jiAspectRatio+    , jiContainer+    , jiFrameRate+    , jiInterlaced+    , jiKey+    , jiResolution+    ) where++import Data.Char (isUpper)+import Network.AWS.Error+import Network.AWS.Prelude+import Network.AWS.Signing.V4+import qualified GHC.Exts++-- | Version @2012-09-25@ of the Amazon Elastic Transcoder service.+data ElasticTranscoder++instance AWSService ElasticTranscoder where+    type Sg ElasticTranscoder = V4+    type Er ElasticTranscoder = RESTError++    service = Service+        { _svcEndpoint     = regional+        , _svcAbbrev       = "ElasticTranscoder"+        , _svcPrefix       = "elastictranscoder"+        , _svcVersion      = "2012-09-25"+        , _svcTargetPrefix = Nothing+        , _svcJSONVersion  = Nothing+        }++    handle = restError statusSuccess++data PipelineOutputConfig = PipelineOutputConfig+    { _pocBucket       :: Maybe Text+    , _pocPermissions  :: List "Permissions" Permission+    , _pocStorageClass :: Maybe Text+    } deriving (Eq, Show)++-- | 'PipelineOutputConfig' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pocBucket' @::@ 'Maybe' 'Text'+--+-- * 'pocPermissions' @::@ ['Permission']+--+-- * 'pocStorageClass' @::@ 'Maybe' 'Text'+--+pipelineOutputConfig :: PipelineOutputConfig+pipelineOutputConfig = PipelineOutputConfig+    { _pocBucket       = Nothing+    , _pocStorageClass = Nothing+    , _pocPermissions  = mempty+    }++-- | The Amazon S3 bucket in which you want Elastic Transcoder to save the+-- transcoded files. 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. 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.+pocBucket :: Lens' PipelineOutputConfig (Maybe Text)+pocBucket = lens _pocBucket (\s a -> s { _pocBucket = a })++-- | Optional. The Permissions object specifies which users and/or predefined+-- Amazon S3 groups you want to have access to transcoded files and+-- playlists, 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.+-- If you include Permissions, Elastic Transcoder grants only the+-- permissions that you specify. It does not grant full permissions to the+-- owner of the role specified by Role. If you want that user to have full+-- control, you must explicitly grant full control to the user. If you omit+-- Permissions, Elastic Transcoder grants full control over the transcoded+-- files and playlists to the owner of the role specified by Role, and+-- grants no other permissions to any other user or group.+pocPermissions :: Lens' PipelineOutputConfig [Permission]+pocPermissions = lens _pocPermissions (\s a -> s { _pocPermissions = a }) . _List++-- | 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.+pocStorageClass :: Lens' PipelineOutputConfig (Maybe Text)+pocStorageClass = lens _pocStorageClass (\s a -> s { _pocStorageClass = a })++instance FromJSON PipelineOutputConfig where+    parseJSON = withObject "PipelineOutputConfig" $ \o -> PipelineOutputConfig+        <$> o .:? "Bucket"+        <*> o .:  "Permissions"+        <*> o .:? "StorageClass"++instance ToJSON PipelineOutputConfig where+    toJSON PipelineOutputConfig{..} = object+        [ "Bucket"       .= _pocBucket+        , "StorageClass" .= _pocStorageClass+        , "Permissions"  .= _pocPermissions+        ]++data CreateJobPlaylist = CreateJobPlaylist+    { _cjpFormat     :: Maybe Text+    , _cjpName       :: Maybe Text+    , _cjpOutputKeys :: List "OutputKeys" Text+    } deriving (Eq, Ord, Show)++-- | 'CreateJobPlaylist' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cjpFormat' @::@ 'Maybe' 'Text'+--+-- * 'cjpName' @::@ 'Maybe' 'Text'+--+-- * 'cjpOutputKeys' @::@ ['Text']+--+createJobPlaylist :: CreateJobPlaylist+createJobPlaylist = CreateJobPlaylist+    { _cjpName       = Nothing+    , _cjpFormat     = Nothing+    , _cjpOutputKeys = mempty+    }++-- | The format of the output playlist. Valid formats include HLSv3, HLSv4,+-- and Smooth.+cjpFormat :: Lens' CreateJobPlaylist (Maybe Text)+cjpFormat = lens _cjpFormat (\s a -> s { _cjpFormat = a })++-- | The name that you want Elastic Transcoder to assign to the master+-- playlist, for example, nyc-vacation.m3u8. If the name includes a /+-- character, the section of the name before the last / must be identical+-- for all Name objects. If you create more than one master playlist, the+-- values of all Name objects must be unique. Note: Elastic Transcoder+-- automatically appends the relevant file extension to the file name (.m3u8+-- for HLSv3 and HLSv4 playlists, and .ism and .ismc for Smooth playlists).+-- If you include a file extension in Name, the file name will have two+-- extensions.+cjpName :: Lens' CreateJobPlaylist (Maybe Text)+cjpName = lens _cjpName (\s a -> s { _cjpName = a })++-- | For each output in this job that you want to include in a master+-- playlist, the value of the Outputs:Key object. If your output is not HLS+-- or does not have a segment duration set, the name of the output file is a+-- concatenation of OutputKeyPrefix and Outputs:Key:+-- OutputKeyPrefixOutputs:Key If your output is HLSv3 and has a segment+-- duration set, or is not included in a playlist, Elastic Transcoder+-- creates an output playlist file with a file extension of .m3u8, and a+-- series of .ts files that include a five-digit sequential counter+-- beginning with 00000: OutputKeyPrefixOutputs:Key.m3u8+-- OutputKeyPrefixOutputs:Key00000.ts If your output is HLSv4, has a segment+-- duration set, and is included in an HLSv4 playlist, Elastic Transcoder+-- creates an output playlist file with a file extension of _v4.m3u8. If the+-- output is video, Elastic Transcoder also creates an output file with an+-- extension of _iframe.m3u8: OutputKeyPrefixOutputs:Key_v4.m3u8+-- OutputKeyPrefixOutputs:Key_iframe.m3u8 OutputKeyPrefixOutputs:Key.ts+-- Elastic Transcoder automatically appends the relevant file extension to+-- the file name. If you include a file extension in Output Key, the file+-- name will have two extensions. If you include more than one output in a+-- playlist, any segment duration settings, clip settings, or caption+-- settings must be the same for all outputs in the playlist. For Smooth+-- playlists, the Audio:Profile, Video:Profile, and Video:FrameRate to+-- Video:KeyframesMaxDist ratio must be the same for all outputs.+cjpOutputKeys :: Lens' CreateJobPlaylist [Text]+cjpOutputKeys = lens _cjpOutputKeys (\s a -> s { _cjpOutputKeys = a }) . _List++instance FromJSON CreateJobPlaylist where+    parseJSON = withObject "CreateJobPlaylist" $ \o -> CreateJobPlaylist+        <$> o .:? "Format"+        <*> o .:? "Name"+        <*> o .:  "OutputKeys"++instance ToJSON CreateJobPlaylist where+    toJSON CreateJobPlaylist{..} = object+        [ "Name"       .= _cjpName+        , "Format"     .= _cjpFormat+        , "OutputKeys" .= _cjpOutputKeys+        ]++data Captions = Captions+    { _cCaptionFormats :: List "CaptionFormats" CaptionFormat+    , _cCaptionSources :: List "CaptionSources" CaptionSource+    , _cMergePolicy    :: Maybe Text+    } deriving (Eq, Show)++-- | 'Captions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cCaptionFormats' @::@ ['CaptionFormat']+--+-- * 'cCaptionSources' @::@ ['CaptionSource']+--+-- * 'cMergePolicy' @::@ 'Maybe' 'Text'+--+captions :: Captions+captions = Captions+    { _cMergePolicy    = Nothing+    , _cCaptionSources = mempty+    , _cCaptionFormats = mempty+    }++-- | The array of file formats for the output captions. If you leave this+-- value blank, Elastic Transcoder returns an error.+cCaptionFormats :: Lens' Captions [CaptionFormat]+cCaptionFormats = lens _cCaptionFormats (\s a -> s { _cCaptionFormats = a }) . _List++-- | Source files for the input sidecar captions used during the transcoding+-- process. To omit all sidecar captions, leave CaptionSources blank.+cCaptionSources :: Lens' Captions [CaptionSource]+cCaptionSources = lens _cCaptionSources (\s a -> s { _cCaptionSources = a }) . _List++-- | A policy that determines how Elastic Transcoder handles the existence of+-- multiple captions. MergeOverride: Elastic Transcoder transcodes both+-- embedded and sidecar captions into outputs. If captions for a language+-- are embedded in the input file and also appear in a sidecar file, Elastic+-- Transcoder uses the sidecar captions and ignores the embedded captions+-- for that language. MergeRetain: Elastic Transcoder transcodes both+-- embedded and sidecar captions into outputs. If captions for a language+-- are embedded in the input file and also appear in a sidecar file, Elastic+-- Transcoder uses the embedded captions and ignores the sidecar captions+-- for that language. If CaptionSources is empty, Elastic Transcoder omits+-- all sidecar captions from the output files. Override: Elastic Transcoder+-- transcodes only the sidecar captions that you specify in CaptionSources.+-- MergePolicy cannot be null.+cMergePolicy :: Lens' Captions (Maybe Text)+cMergePolicy = lens _cMergePolicy (\s a -> s { _cMergePolicy = a })++instance FromJSON Captions where+    parseJSON = withObject "Captions" $ \o -> Captions+        <$> o .:  "CaptionFormats"+        <*> o .:  "CaptionSources"+        <*> o .:? "MergePolicy"++instance ToJSON Captions where+    toJSON Captions{..} = object+        [ "MergePolicy"    .= _cMergePolicy+        , "CaptionSources" .= _cCaptionSources+        , "CaptionFormats" .= _cCaptionFormats+        ]++newtype AudioCodecOptions = AudioCodecOptions+    { _acoProfile :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'AudioCodecOptions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'acoProfile' @::@ 'Maybe' 'Text'+--+audioCodecOptions :: AudioCodecOptions+audioCodecOptions = AudioCodecOptions+    { _acoProfile = Nothing+    }++-- | You can only choose an audio profile when you specify AAC for the value+-- of Audio:Codec. Specify the AAC profile for the output file. Elastic+-- Transcoder supports the following profiles: auto: If you specify auto,+-- Elastic Transcoder will select the profile based on the bit rate selected+-- for the output file. AAC-LC: The most common AAC profile. Use for+-- bitrates larger than 64 kbps. HE-AAC: Not supported on some older players+-- and devices. Use for bitrates between 40 and 80 kbps. HE-AACv2: Not+-- supported on some players and devices. Use for bitrates less than 48+-- kbps. All outputs in a Smooth playlist must have the same value for+-- Profile.+acoProfile :: Lens' AudioCodecOptions (Maybe Text)+acoProfile = lens _acoProfile (\s a -> s { _acoProfile = a })++instance FromJSON AudioCodecOptions where+    parseJSON = withObject "AudioCodecOptions" $ \o -> AudioCodecOptions+        <$> o .:? "Profile"++instance ToJSON AudioCodecOptions where+    toJSON AudioCodecOptions{..} = object+        [ "Profile" .= _acoProfile+        ]++data JobOutput = JobOutput+    { _joAlbumArt         :: Maybe JobAlbumArt+    , _joCaptions         :: Maybe Captions+    , _joComposition      :: List "Composition" Clip+    , _joDuration         :: Maybe Integer+    , _joHeight           :: Maybe Int+    , _joId               :: Maybe Text+    , _joKey              :: Maybe Text+    , _joPresetId         :: Maybe Text+    , _joRotate           :: Maybe Text+    , _joSegmentDuration  :: Maybe Text+    , _joStatus           :: Maybe Text+    , _joStatusDetail     :: Maybe Text+    , _joThumbnailPattern :: Maybe Text+    , _joWatermarks       :: List "Watermarks" JobWatermark+    , _joWidth            :: Maybe Int+    } deriving (Eq, Show)++-- | 'JobOutput' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'joAlbumArt' @::@ 'Maybe' 'JobAlbumArt'+--+-- * 'joCaptions' @::@ 'Maybe' 'Captions'+--+-- * 'joComposition' @::@ ['Clip']+--+-- * 'joDuration' @::@ 'Maybe' 'Integer'+--+-- * 'joHeight' @::@ 'Maybe' 'Int'+--+-- * 'joId' @::@ 'Maybe' 'Text'+--+-- * 'joKey' @::@ 'Maybe' 'Text'+--+-- * 'joPresetId' @::@ 'Maybe' 'Text'+--+-- * 'joRotate' @::@ 'Maybe' 'Text'+--+-- * 'joSegmentDuration' @::@ 'Maybe' 'Text'+--+-- * 'joStatus' @::@ 'Maybe' 'Text'+--+-- * 'joStatusDetail' @::@ 'Maybe' 'Text'+--+-- * 'joThumbnailPattern' @::@ 'Maybe' 'Text'+--+-- * 'joWatermarks' @::@ ['JobWatermark']+--+-- * 'joWidth' @::@ 'Maybe' 'Int'+--+jobOutput :: JobOutput+jobOutput = JobOutput+    { _joId               = Nothing+    , _joKey              = Nothing+    , _joThumbnailPattern = Nothing+    , _joRotate           = Nothing+    , _joPresetId         = Nothing+    , _joSegmentDuration  = Nothing+    , _joStatus           = Nothing+    , _joStatusDetail     = Nothing+    , _joDuration         = Nothing+    , _joWidth            = Nothing+    , _joHeight           = Nothing+    , _joWatermarks       = mempty+    , _joAlbumArt         = Nothing+    , _joComposition      = mempty+    , _joCaptions         = Nothing+    }++-- | The album art to be associated with the output file, if any.+joAlbumArt :: Lens' JobOutput (Maybe JobAlbumArt)+joAlbumArt = lens _joAlbumArt (\s a -> s { _joAlbumArt = a })++-- | You can configure Elastic Transcoder to transcode captions, or subtitles,+-- from one format to another. All captions must be in UTF-8. Elastic+-- Transcoder supports two types of captions: Embedded: Embedded captions+-- are included in the same file as the audio and video. Elastic Transcoder+-- supports only one embedded caption per language, to a maximum of 300+-- embedded captions per file. Valid input values include: CEA-608 (EIA-608,+-- first non-empty channel only), CEA-708 (EIA-708, first non-empty channel+-- only), and mov-text Valid outputs include: mov-text Elastic Transcoder+-- supports a maximum of one embedded format per output. Sidecar: Sidecar+-- captions are kept in a separate metadata file from the audio and video+-- data. Sidecar captions require a player that is capable of understanding+-- the relationship between the video file and the sidecar file. Elastic+-- Transcoder supports only one sidecar caption per language, to a maximum+-- of 20 sidecar captions per file. Valid input values include: dfxp (first+-- div element only), ebu-tt, scc, smpt, srt, ttml (first div element only),+-- and webvtt Valid outputs include: dfxp (first div element only), scc,+-- srt, and webvtt. If you want ttml or smpte-tt compatible captions,+-- specify dfxp as your output format. Elastic Transcoder does not support+-- OCR (Optical Character Recognition), does not accept pictures as a valid+-- input for captions, and is not available for audio-only transcoding.+-- Elastic Transcoder does not preserve text formatting (for example,+-- italics) during the transcoding process. To remove captions or leave the+-- captions empty, set Captions to null. To pass through existing captions+-- unchanged, set the MergePolicy to MergeRetain, and pass in a null+-- CaptionSources array. For more information on embedded files, see the+-- Subtitles Wikipedia page. For more information on sidecar files, see the+-- Extensible Metadata Platform and Sidecar file Wikipedia pages.+joCaptions :: Lens' JobOutput (Maybe Captions)+joCaptions = lens _joCaptions (\s a -> s { _joCaptions = a })++-- | You can create an output file that contains an excerpt from the input+-- file. This excerpt, called a clip, can come from the beginning, middle,+-- or end of the file. The Composition object contains settings for the+-- clips that make up an output file. For the current release, you can only+-- specify settings for a single clip per output file. The Composition+-- object cannot be null.+joComposition :: Lens' JobOutput [Clip]+joComposition = lens _joComposition (\s a -> s { _joComposition = a }) . _List++-- | Duration of the output file, in seconds.+joDuration :: Lens' JobOutput (Maybe Integer)+joDuration = lens _joDuration (\s a -> s { _joDuration = a })++-- | Height of the output file, in pixels.+joHeight :: Lens' JobOutput (Maybe Int)+joHeight = lens _joHeight (\s a -> s { _joHeight = a })++-- | A sequential counter, starting with 1, that identifies an output among+-- the outputs from the current job. In the Output syntax, this value is+-- always 1.+joId :: Lens' JobOutput (Maybe Text)+joId = lens _joId (\s a -> s { _joId = a })++-- | The name to assign to the transcoded file. Elastic Transcoder saves the+-- file in the Amazon S3 bucket specified by the OutputBucket object in the+-- pipeline that is specified by the pipeline ID.+joKey :: Lens' JobOutput (Maybe Text)+joKey = lens _joKey (\s a -> s { _joKey = a })++-- | The value of the Id object for the preset that you want to use for this+-- job. The preset determines the audio, video, and thumbnail settings that+-- Elastic Transcoder uses for transcoding. To use a preset that you+-- created, specify the preset ID that Elastic Transcoder returned in the+-- response when you created the preset. You can also use the Elastic+-- Transcoder system presets, which you can get with ListPresets.+joPresetId :: Lens' JobOutput (Maybe Text)+joPresetId = lens _joPresetId (\s a -> s { _joPresetId = a })++-- | The number of degrees clockwise by which you want Elastic Transcoder to+-- rotate the output relative to the input. Enter one of the following+-- values: auto, 0, 90, 180, 270 The value auto generally works only if the+-- file that you're transcoding contains rotation metadata.+joRotate :: Lens' JobOutput (Maybe Text)+joRotate = lens _joRotate (\s a -> s { _joRotate = a })++-- | (Outputs in Fragmented MP4 or MPEG-TS format only.If you specify a preset+-- in PresetId for which the value of Container is fmp4 (Fragmented MP4) or+-- ts (MPEG-TS), SegmentDuration is the target maximum duration of each+-- segment in seconds. For HLSv3 format playlists, each media segment is+-- stored in a separate .ts file. For HLSv4 and Smooth playlists, all media+-- segments for an output are stored in a single file. Each segment is+-- approximately the length of the SegmentDuration, though individual+-- segments might be shorter or longer. The range of valid values is 1 to 60+-- seconds. If the duration of the video is not evenly divisible by+-- SegmentDuration, the duration of the last segment is the remainder of+-- total length/SegmentDuration. Elastic Transcoder creates an+-- output-specific playlist for each output HLS output that you specify in+-- OutputKeys. To add an output to the master playlist for this job, include+-- it in the OutputKeys of the associated playlist.+joSegmentDuration :: Lens' JobOutput (Maybe Text)+joSegmentDuration =+    lens _joSegmentDuration (\s a -> s { _joSegmentDuration = a })++-- | The status of one output in a job. If you specified only one output for+-- the job, Outputs:Status is always the same as Job:Status. If you+-- specified more than one output: Job:Status and Outputs:Status for all of+-- the outputs is Submitted until Elastic Transcoder starts to process the+-- first output. When Elastic Transcoder starts to process the first output,+-- Outputs:Status for that output and Job:Status both change to Progressing.+-- For each output, the value of Outputs:Status remains Submitted until+-- Elastic Transcoder starts to process the output. Job:Status remains+-- Progressing until all of the outputs reach a terminal status, either+-- Complete or Error. When all of the outputs reach a terminal status,+-- Job:Status changes to Complete only if Outputs:Status for all of the+-- outputs is Complete. If Outputs:Status for one or more outputs is Error,+-- the terminal status for Job:Status is also Error. The value of Status is+-- one of the following: Submitted, Progressing, Complete, Canceled, or+-- Error.+joStatus :: Lens' JobOutput (Maybe Text)+joStatus = lens _joStatus (\s a -> s { _joStatus = a })++-- | Information that further explains Status.+joStatusDetail :: Lens' JobOutput (Maybe Text)+joStatusDetail = lens _joStatusDetail (\s a -> s { _joStatusDetail = a })++-- | Whether you want Elastic Transcoder to create thumbnails for your videos+-- and, if so, how you want Elastic Transcoder to name the files. If you+-- don't want Elastic Transcoder to create thumbnails, specify "". If you do+-- want Elastic Transcoder to create thumbnails, specify the information+-- that you want to include in the file name for each thumbnail. You can+-- specify the following values in any sequence: {count} (Required): If you+-- want to create thumbnails, you must include {count} in the+-- ThumbnailPattern object. Wherever you specify {count}, Elastic Transcoder+-- adds a five-digit sequence number (beginning with 00001) to thumbnail+-- file names. The number indicates where a given thumbnail appears in the+-- sequence of thumbnails for a transcoded file. If you specify a literal+-- value and/or {resolution} but you omit {count}, Elastic Transcoder+-- returns a validation error and does not create the job. Literal values+-- (Optional): You can specify literal values anywhere in the+-- ThumbnailPattern object. For example, you can include them as a file name+-- prefix or as a delimiter between {resolution} and {count}. {resolution}+-- (Optional): If you want Elastic Transcoder to include the resolution in+-- the file name, include {resolution} in the ThumbnailPattern object. When+-- creating thumbnails, Elastic Transcoder automatically saves the files in+-- the format (.jpg or .png) that appears in the preset that you specified+-- in the PresetID value of CreateJobOutput. Elastic Transcoder also appends+-- the applicable file name extension.+joThumbnailPattern :: Lens' JobOutput (Maybe Text)+joThumbnailPattern =+    lens _joThumbnailPattern (\s a -> s { _joThumbnailPattern = a })++-- | Information about the watermarks that you want Elastic Transcoder to add+-- to the video during transcoding. You can specify up to four watermarks+-- for each output. Settings for each watermark must be defined in the+-- preset that you specify in Preset for the current output. Watermarks are+-- added to the output video in the sequence in which you list them in the+-- job output&#x2014;the first watermark in the list is added to the output+-- video first, the second watermark in the list is added next, and so on.+-- As a result, if the settings in a preset cause Elastic Transcoder to+-- place all watermarks in the same location, the second watermark that you+-- add will cover the first one, the third one will cover the second, and+-- the fourth one will cover the third.+joWatermarks :: Lens' JobOutput [JobWatermark]+joWatermarks = lens _joWatermarks (\s a -> s { _joWatermarks = a }) . _List++-- | Specifies the width of the output file in pixels.+joWidth :: Lens' JobOutput (Maybe Int)+joWidth = lens _joWidth (\s a -> s { _joWidth = a })++instance FromJSON JobOutput where+    parseJSON = withObject "JobOutput" $ \o -> JobOutput+        <$> o .:? "AlbumArt"+        <*> o .:? "Captions"+        <*> o .:  "Composition"+        <*> o .:? "Duration"+        <*> o .:? "Height"+        <*> o .:? "Id"+        <*> o .:? "Key"+        <*> o .:? "PresetId"+        <*> o .:? "Rotate"+        <*> o .:? "SegmentDuration"+        <*> o .:? "Status"+        <*> o .:? "StatusDetail"+        <*> o .:? "ThumbnailPattern"+        <*> o .:  "Watermarks"+        <*> o .:? "Width"++instance ToJSON JobOutput where+    toJSON JobOutput{..} = object+        [ "Id"               .= _joId+        , "Key"              .= _joKey+        , "ThumbnailPattern" .= _joThumbnailPattern+        , "Rotate"           .= _joRotate+        , "PresetId"         .= _joPresetId+        , "SegmentDuration"  .= _joSegmentDuration+        , "Status"           .= _joStatus+        , "StatusDetail"     .= _joStatusDetail+        , "Duration"         .= _joDuration+        , "Width"            .= _joWidth+        , "Height"           .= _joHeight+        , "Watermarks"       .= _joWatermarks+        , "AlbumArt"         .= _joAlbumArt+        , "Composition"      .= _joComposition+        , "Captions"         .= _joCaptions+        ]++data Job' = Job'+    { _jArn             :: Maybe Text+    , _jId              :: Maybe Text+    , _jInput           :: Maybe JobInput+    , _jOutput          :: Maybe JobOutput+    , _jOutputKeyPrefix :: Maybe Text+    , _jOutputs         :: List "Outputs" JobOutput+    , _jPipelineId      :: Maybe Text+    , _jPlaylists       :: List "Playlists" Playlist+    , _jStatus          :: Maybe Text+    } deriving (Eq, Show)++-- | 'Job'' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'jArn' @::@ 'Maybe' 'Text'+--+-- * 'jId' @::@ 'Maybe' 'Text'+--+-- * 'jInput' @::@ 'Maybe' 'JobInput'+--+-- * 'jOutput' @::@ 'Maybe' 'JobOutput'+--+-- * 'jOutputKeyPrefix' @::@ 'Maybe' 'Text'+--+-- * 'jOutputs' @::@ ['JobOutput']+--+-- * 'jPipelineId' @::@ 'Maybe' 'Text'+--+-- * 'jPlaylists' @::@ ['Playlist']+--+-- * 'jStatus' @::@ 'Maybe' 'Text'+--+job :: Job'+job = Job'+    { _jId              = Nothing+    , _jArn             = Nothing+    , _jPipelineId      = Nothing+    , _jInput           = Nothing+    , _jOutput          = Nothing+    , _jOutputs         = mempty+    , _jOutputKeyPrefix = Nothing+    , _jPlaylists       = mempty+    , _jStatus          = Nothing+    }++-- | The Amazon Resource Name (ARN) for the job.+jArn :: Lens' Job' (Maybe Text)+jArn = lens _jArn (\s a -> s { _jArn = a })++-- | The identifier that Elastic Transcoder assigned to the job. You use this+-- value to get settings for the job or to delete the job.+jId :: Lens' Job' (Maybe Text)+jId = lens _jId (\s a -> s { _jId = a })++-- | A section of the request or response body that provides information about+-- the file that is being transcoded.+jInput :: Lens' Job' (Maybe JobInput)+jInput = lens _jInput (\s a -> s { _jInput = a })++-- | If you specified one output for a job, information about that output. If+-- you specified multiple outputs for a job, the Output object lists+-- information about the first output. This duplicates the information that+-- is listed for the first output in the Outputs object. Outputs recommended+-- instead. A section of the request or response body that provides+-- information about the transcoded (target) file.+jOutput :: Lens' Job' (Maybe JobOutput)+jOutput = lens _jOutput (\s a -> s { _jOutput = a })++-- | 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. We recommend that you add a / or some other+-- delimiter to the end of the OutputKeyPrefix.+jOutputKeyPrefix :: Lens' Job' (Maybe Text)+jOutputKeyPrefix = lens _jOutputKeyPrefix (\s a -> s { _jOutputKeyPrefix = a })++-- | Information about the output files. We recommend that you use the Outputs+-- syntax for all jobs, even when you want Elastic Transcoder to transcode a+-- file into only one format. Do not use both the Outputs and Output+-- syntaxes in the same request. You can create a maximum of 30 outputs per+-- job. If you specify more than one output for a job, Elastic Transcoder+-- creates the files for each output in the order in which you specify them+-- in the job.+jOutputs :: Lens' Job' [JobOutput]+jOutputs = lens _jOutputs (\s a -> s { _jOutputs = a }) . _List++-- | 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.+jPipelineId :: Lens' Job' (Maybe Text)+jPipelineId = lens _jPipelineId (\s a -> s { _jPipelineId = a })++-- | Outputs in Fragmented MP4 or MPEG-TS format only.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.+jPlaylists :: Lens' Job' [Playlist]+jPlaylists = lens _jPlaylists (\s a -> s { _jPlaylists = a }) . _List++-- | The status of the job: Submitted, Progressing, Complete, Canceled, or+-- Error.+jStatus :: Lens' Job' (Maybe Text)+jStatus = lens _jStatus (\s a -> s { _jStatus = a })++instance FromJSON Job' where+    parseJSON = withObject "Job'" $ \o -> Job'+        <$> o .:? "Arn"+        <*> o .:? "Id"+        <*> o .:? "Input"+        <*> o .:? "Output"+        <*> o .:? "OutputKeyPrefix"+        <*> o .:  "Outputs"+        <*> o .:? "PipelineId"+        <*> o .:  "Playlists"+        <*> o .:? "Status"++instance ToJSON Job' where+    toJSON Job'{..} = object+        [ "Id"              .= _jId+        , "Arn"             .= _jArn+        , "PipelineId"      .= _jPipelineId+        , "Input"           .= _jInput+        , "Output"          .= _jOutput+        , "Outputs"         .= _jOutputs+        , "OutputKeyPrefix" .= _jOutputKeyPrefix+        , "Playlists"       .= _jPlaylists+        , "Status"          .= _jStatus+        ]++data CaptionSource = CaptionSource+    { _csKey        :: Maybe Text+    , _csLabel      :: Maybe Text+    , _csLanguage   :: Maybe Text+    , _csTimeOffset :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CaptionSource' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csKey' @::@ 'Maybe' 'Text'+--+-- * 'csLabel' @::@ 'Maybe' 'Text'+--+-- * 'csLanguage' @::@ 'Maybe' 'Text'+--+-- * 'csTimeOffset' @::@ 'Maybe' 'Text'+--+captionSource :: CaptionSource+captionSource = CaptionSource+    { _csKey        = Nothing+    , _csLanguage   = Nothing+    , _csTimeOffset = Nothing+    , _csLabel      = Nothing+    }++-- | The name of the sidecar caption file that you want Elastic Transcoder to+-- include in the output file.+csKey :: Lens' CaptionSource (Maybe Text)+csKey = lens _csKey (\s a -> s { _csKey = a })++-- | The label of the caption shown in the player when choosing a language. We+-- recommend that you put the caption language name here, in the language of+-- the captions.+csLabel :: Lens' CaptionSource (Maybe Text)+csLabel = lens _csLabel (\s a -> s { _csLabel = a })++-- | A string that specifies the language of the caption. Specify this as one+-- of: 2-character ISO 639-1 code 3-character ISO 639-2 code For more+-- information on ISO language codes and language names, see the List of ISO+-- 639-1 codes.+csLanguage :: Lens' CaptionSource (Maybe Text)+csLanguage = lens _csLanguage (\s a -> s { _csLanguage = a })++-- | For clip generation or captions that do not start at the same time as the+-- associated video file, the TimeOffset tells Elastic Transcoder how much+-- of the video to encode before including captions. Specify the TimeOffset+-- in the form [+-]SS.sss or [+-]HH:mm:SS.ss.+csTimeOffset :: Lens' CaptionSource (Maybe Text)+csTimeOffset = lens _csTimeOffset (\s a -> s { _csTimeOffset = a })++instance FromJSON CaptionSource where+    parseJSON = withObject "CaptionSource" $ \o -> CaptionSource+        <$> o .:? "Key"+        <*> o .:? "Label"+        <*> o .:? "Language"+        <*> o .:? "TimeOffset"++instance ToJSON CaptionSource where+    toJSON CaptionSource{..} = object+        [ "Key"        .= _csKey+        , "Language"   .= _csLanguage+        , "TimeOffset" .= _csTimeOffset+        , "Label"      .= _csLabel+        ]++data Artwork = Artwork+    { _aAlbumArtFormat :: Maybe Text+    , _aInputKey       :: Maybe Text+    , _aMaxHeight      :: Maybe Text+    , _aMaxWidth       :: Maybe Text+    , _aPaddingPolicy  :: Maybe Text+    , _aSizingPolicy   :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Artwork' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aAlbumArtFormat' @::@ 'Maybe' 'Text'+--+-- * 'aInputKey' @::@ 'Maybe' 'Text'+--+-- * 'aMaxHeight' @::@ 'Maybe' 'Text'+--+-- * 'aMaxWidth' @::@ 'Maybe' 'Text'+--+-- * 'aPaddingPolicy' @::@ 'Maybe' 'Text'+--+-- * 'aSizingPolicy' @::@ 'Maybe' 'Text'+--+artwork :: Artwork+artwork = Artwork+    { _aInputKey       = Nothing+    , _aMaxWidth       = Nothing+    , _aMaxHeight      = Nothing+    , _aSizingPolicy   = Nothing+    , _aPaddingPolicy  = Nothing+    , _aAlbumArtFormat = Nothing+    }++-- | The format of album art, if any. Valid formats are .jpg and .png.+aAlbumArtFormat :: Lens' Artwork (Maybe Text)+aAlbumArtFormat = lens _aAlbumArtFormat (\s a -> s { _aAlbumArtFormat = a })++-- | The name of the file to be used as album art. To determine which Amazon+-- S3 bucket contains the specified file, Elastic Transcoder checks the+-- pipeline specified by PipelineId; the InputBucket object in that pipeline+-- identifies the bucket. If the file name includes a prefix, for example,+-- cooking/pie.jpg, include the prefix in the key. If the file isn't in the+-- specified bucket, Elastic Transcoder returns an error.+aInputKey :: Lens' Artwork (Maybe Text)+aInputKey = lens _aInputKey (\s a -> s { _aInputKey = a })++-- | The maximum height of the output album art in pixels. If you specify+-- auto, Elastic Transcoder uses 600 as the default value. If you specify a+-- numeric value, enter an even integer between 32 and 3072, inclusive.+aMaxHeight :: Lens' Artwork (Maybe Text)+aMaxHeight = lens _aMaxHeight (\s a -> s { _aMaxHeight = a })++-- | The maximum width of the output album art in pixels. If you specify auto,+-- Elastic Transcoder uses 600 as the default value. If you specify a+-- numeric value, enter an even integer between 32 and 4096, inclusive.+aMaxWidth :: Lens' Artwork (Maybe Text)+aMaxWidth = lens _aMaxWidth (\s a -> s { _aMaxWidth = a })++-- | When you set PaddingPolicy to Pad, Elastic Transcoder may add white bars+-- to the top and bottom and/or left and right sides of the output album art+-- to make the total size of the output art match the values that you+-- specified for MaxWidth and MaxHeight.+aPaddingPolicy :: Lens' Artwork (Maybe Text)+aPaddingPolicy = lens _aPaddingPolicy (\s a -> s { _aPaddingPolicy = a })++-- | Specify one of the following values to control scaling of the output+-- album art: Fit: Elastic Transcoder scales the output art so it matches+-- the value that you specified in either MaxWidth or MaxHeight without+-- exceeding the other value. Fill: Elastic Transcoder scales the output art+-- so it matches the value that you specified in either MaxWidth or+-- MaxHeight and matches or exceeds the other value. Elastic Transcoder+-- centers the output art and then crops it in the dimension (if any) that+-- exceeds the maximum value. Stretch: Elastic Transcoder stretches the+-- output art to match the values that you specified for MaxWidth and+-- MaxHeight. If the relative proportions of the input art and the output+-- art are different, the output art will be distorted. Keep: Elastic+-- Transcoder does not scale the output art. If either dimension of the+-- input art exceeds the values that you specified for MaxWidth and+-- MaxHeight, Elastic Transcoder crops the output art. ShrinkToFit: Elastic+-- Transcoder scales the output art down so that its dimensions match the+-- values that you specified for at least one of MaxWidth and MaxHeight+-- without exceeding either value. If you specify this option, Elastic+-- Transcoder does not scale the art up. ShrinkToFill Elastic Transcoder+-- scales the output art down so that its dimensions match the values that+-- you specified for at least one of MaxWidth and MaxHeight without dropping+-- below either value. If you specify this option, Elastic Transcoder does+-- not scale the art up.+aSizingPolicy :: Lens' Artwork (Maybe Text)+aSizingPolicy = lens _aSizingPolicy (\s a -> s { _aSizingPolicy = a })++instance FromJSON Artwork where+    parseJSON = withObject "Artwork" $ \o -> Artwork+        <$> o .:? "AlbumArtFormat"+        <*> o .:? "InputKey"+        <*> o .:? "MaxHeight"+        <*> o .:? "MaxWidth"+        <*> o .:? "PaddingPolicy"+        <*> o .:? "SizingPolicy"++instance ToJSON Artwork where+    toJSON Artwork{..} = object+        [ "InputKey"       .= _aInputKey+        , "MaxWidth"       .= _aMaxWidth+        , "MaxHeight"      .= _aMaxHeight+        , "SizingPolicy"   .= _aSizingPolicy+        , "PaddingPolicy"  .= _aPaddingPolicy+        , "AlbumArtFormat" .= _aAlbumArtFormat+        ]++data TimeSpan = TimeSpan+    { _tsDuration  :: Maybe Text+    , _tsStartTime :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'TimeSpan' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'tsDuration' @::@ 'Maybe' 'Text'+--+-- * 'tsStartTime' @::@ 'Maybe' 'Text'+--+timeSpan :: TimeSpan+timeSpan = TimeSpan+    { _tsStartTime = Nothing+    , _tsDuration  = Nothing+    }++-- | The duration of the clip. The format can be either HH:mm:ss.SSS (maximum+-- value: 23:59:59.999; SSS is thousandths of a second) or sssss.SSS+-- (maximum value: 86399.999). If you don't specify a value, Elastic+-- Transcoder creates an output file from StartTime to the end of the file.+-- If you specify a value longer than the duration of the input file,+-- Elastic Transcoder transcodes the file and returns a warning message.+tsDuration :: Lens' TimeSpan (Maybe Text)+tsDuration = lens _tsDuration (\s a -> s { _tsDuration = a })++-- | The place in the input file where you want a clip to start. The format+-- can be either HH:mm:ss.SSS (maximum value: 23:59:59.999; SSS is+-- thousandths of a second) or sssss.SSS (maximum value: 86399.999). If you+-- don't specify a value, Elastic Transcoder starts at the beginning of the+-- input file.+tsStartTime :: Lens' TimeSpan (Maybe Text)+tsStartTime = lens _tsStartTime (\s a -> s { _tsStartTime = a })++instance FromJSON TimeSpan where+    parseJSON = withObject "TimeSpan" $ \o -> TimeSpan+        <$> o .:? "Duration"+        <*> o .:? "StartTime"++instance ToJSON TimeSpan where+    toJSON TimeSpan{..} = object+        [ "StartTime" .= _tsStartTime+        , "Duration"  .= _tsDuration+        ]++data CreateJobOutput = CreateJobOutput+    { _cjoAlbumArt         :: Maybe JobAlbumArt+    , _cjoCaptions         :: Maybe Captions+    , _cjoComposition      :: List "Composition" Clip+    , _cjoKey              :: Maybe Text+    , _cjoPresetId         :: Maybe Text+    , _cjoRotate           :: Maybe Text+    , _cjoSegmentDuration  :: Maybe Text+    , _cjoThumbnailPattern :: Maybe Text+    , _cjoWatermarks       :: List "Watermarks" JobWatermark+    } deriving (Eq, Show)++-- | 'CreateJobOutput' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cjoAlbumArt' @::@ 'Maybe' 'JobAlbumArt'+--+-- * 'cjoCaptions' @::@ 'Maybe' 'Captions'+--+-- * 'cjoComposition' @::@ ['Clip']+--+-- * 'cjoKey' @::@ 'Maybe' 'Text'+--+-- * 'cjoPresetId' @::@ 'Maybe' 'Text'+--+-- * 'cjoRotate' @::@ 'Maybe' 'Text'+--+-- * 'cjoSegmentDuration' @::@ 'Maybe' 'Text'+--+-- * 'cjoThumbnailPattern' @::@ 'Maybe' 'Text'+--+-- * 'cjoWatermarks' @::@ ['JobWatermark']+--+createJobOutput :: CreateJobOutput+createJobOutput = CreateJobOutput+    { _cjoKey              = Nothing+    , _cjoThumbnailPattern = Nothing+    , _cjoRotate           = Nothing+    , _cjoPresetId         = Nothing+    , _cjoSegmentDuration  = Nothing+    , _cjoWatermarks       = mempty+    , _cjoAlbumArt         = Nothing+    , _cjoComposition      = mempty+    , _cjoCaptions         = Nothing+    }++-- | Information about the album art that you want Elastic Transcoder to add+-- to the file during transcoding. You can specify up to twenty album+-- artworks for each output. Settings for each artwork must be defined in+-- the job for the current output.+cjoAlbumArt :: Lens' CreateJobOutput (Maybe JobAlbumArt)+cjoAlbumArt = lens _cjoAlbumArt (\s a -> s { _cjoAlbumArt = a })++-- | You can configure Elastic Transcoder to transcode captions, or subtitles,+-- from one format to another. All captions must be in UTF-8. Elastic+-- Transcoder supports two types of captions: Embedded: Embedded captions+-- are included in the same file as the audio and video. Elastic Transcoder+-- supports only one embedded caption per language, to a maximum of 300+-- embedded captions per file. Valid input values include: CEA-608 (EIA-608,+-- first non-empty channel only), CEA-708 (EIA-708, first non-empty channel+-- only), and mov-text Valid outputs include: mov-text Elastic Transcoder+-- supports a maximum of one embedded format per output. Sidecar: Sidecar+-- captions are kept in a separate metadata file from the audio and video+-- data. Sidecar captions require a player that is capable of understanding+-- the relationship between the video file and the sidecar file. Elastic+-- Transcoder supports only one sidecar caption per language, to a maximum+-- of 20 sidecar captions per file. Valid input values include: dfxp (first+-- div element only), ebu-tt, scc, smpt, srt, ttml (first div element only),+-- and webvtt Valid outputs include: dfxp (first div element only), scc,+-- srt, and webvtt. If you want ttml or smpte-tt compatible captions,+-- specify dfxp as your output format. Elastic Transcoder does not support+-- OCR (Optical Character Recognition), does not accept pictures as a valid+-- input for captions, and is not available for audio-only transcoding.+-- Elastic Transcoder does not preserve text formatting (for example,+-- italics) during the transcoding process. To remove captions or leave the+-- captions empty, set Captions to null. To pass through existing captions+-- unchanged, set the MergePolicy to MergeRetain, and pass in a null+-- CaptionSources array. For more information on embedded files, see the+-- Subtitles Wikipedia page. For more information on sidecar files, see the+-- Extensible Metadata Platform and Sidecar file Wikipedia pages.+cjoCaptions :: Lens' CreateJobOutput (Maybe Captions)+cjoCaptions = lens _cjoCaptions (\s a -> s { _cjoCaptions = a })++-- | You can create an output file that contains an excerpt from the input+-- file. This excerpt, called a clip, can come from the beginning, middle,+-- or end of the file. The Composition object contains settings for the+-- clips that make up an output file. For the current release, you can only+-- specify settings for a single clip per output file. The Composition+-- object cannot be null.+cjoComposition :: Lens' CreateJobOutput [Clip]+cjoComposition = lens _cjoComposition (\s a -> s { _cjoComposition = a }) . _List++-- | The name to assign to the transcoded file. Elastic Transcoder saves the+-- file in the Amazon S3 bucket specified by the OutputBucket object in the+-- pipeline that is specified by the pipeline ID. If a file with the+-- specified name already exists in the output bucket, the job fails.+cjoKey :: Lens' CreateJobOutput (Maybe Text)+cjoKey = lens _cjoKey (\s a -> s { _cjoKey = a })++-- | The Id of the preset to use for this job. The preset determines the+-- audio, video, and thumbnail settings that Elastic Transcoder uses for+-- transcoding.+cjoPresetId :: Lens' CreateJobOutput (Maybe Text)+cjoPresetId = lens _cjoPresetId (\s a -> s { _cjoPresetId = a })++-- | The number of degrees clockwise by which you want Elastic Transcoder to+-- rotate the output relative to the input. Enter one of the following+-- values: auto, 0, 90, 180, 270. The value auto generally works only if the+-- file that you're transcoding contains rotation metadata.+cjoRotate :: Lens' CreateJobOutput (Maybe Text)+cjoRotate = lens _cjoRotate (\s a -> s { _cjoRotate = a })++-- | (Outputs in Fragmented MP4 or MPEG-TS format only.If you specify a preset+-- in PresetId for which the value of Container is fmp4 (Fragmented MP4) or+-- ts (MPEG-TS), SegmentDuration is the target maximum duration of each+-- segment in seconds. For HLSv3 format playlists, each media segment is+-- stored in a separate .ts file. For HLSv4 and Smooth playlists, all media+-- segments for an output are stored in a single file. Each segment is+-- approximately the length of the SegmentDuration, though individual+-- segments might be shorter or longer. The range of valid values is 1 to 60+-- seconds. If the duration of the video is not evenly divisible by+-- SegmentDuration, the duration of the last segment is the remainder of+-- total length/SegmentDuration. Elastic Transcoder creates an+-- output-specific playlist for each output HLS output that you specify in+-- OutputKeys. To add an output to the master playlist for this job, include+-- it in the OutputKeys of the associated playlist.+cjoSegmentDuration :: Lens' CreateJobOutput (Maybe Text)+cjoSegmentDuration =+    lens _cjoSegmentDuration (\s a -> s { _cjoSegmentDuration = a })++-- | Whether you want Elastic Transcoder to create thumbnails for your videos+-- and, if so, how you want Elastic Transcoder to name the files. If you+-- don't want Elastic Transcoder to create thumbnails, specify "". If you do+-- want Elastic Transcoder to create thumbnails, specify the information+-- that you want to include in the file name for each thumbnail. You can+-- specify the following values in any sequence: {count} (Required): If you+-- want to create thumbnails, you must include {count} in the+-- ThumbnailPattern object. Wherever you specify {count}, Elastic Transcoder+-- adds a five-digit sequence number (beginning with 00001) to thumbnail+-- file names. The number indicates where a given thumbnail appears in the+-- sequence of thumbnails for a transcoded file. If you specify a literal+-- value and/or {resolution} but you omit {count}, Elastic Transcoder+-- returns a validation error and does not create the job. Literal values+-- (Optional): You can specify literal values anywhere in the+-- ThumbnailPattern object. For example, you can include them as a file name+-- prefix or as a delimiter between {resolution} and {count}. {resolution}+-- (Optional): If you want Elastic Transcoder to include the resolution in+-- the file name, include {resolution} in the ThumbnailPattern object. When+-- creating thumbnails, Elastic Transcoder automatically saves the files in+-- the format (.jpg or .png) that appears in the preset that you specified+-- in the PresetID value of CreateJobOutput. Elastic Transcoder also appends+-- the applicable file name extension.+cjoThumbnailPattern :: Lens' CreateJobOutput (Maybe Text)+cjoThumbnailPattern =+    lens _cjoThumbnailPattern (\s a -> s { _cjoThumbnailPattern = a })++-- | Information about the watermarks that you want Elastic Transcoder to add+-- to the video during transcoding. You can specify up to four watermarks+-- for each output. Settings for each watermark must be defined in the+-- preset for the current output.+cjoWatermarks :: Lens' CreateJobOutput [JobWatermark]+cjoWatermarks = lens _cjoWatermarks (\s a -> s { _cjoWatermarks = a }) . _List++instance FromJSON CreateJobOutput where+    parseJSON = withObject "CreateJobOutput" $ \o -> CreateJobOutput+        <$> o .:? "AlbumArt"+        <*> o .:? "Captions"+        <*> o .:  "Composition"+        <*> o .:? "Key"+        <*> o .:? "PresetId"+        <*> o .:? "Rotate"+        <*> o .:? "SegmentDuration"+        <*> o .:? "ThumbnailPattern"+        <*> o .:  "Watermarks"++instance ToJSON CreateJobOutput where+    toJSON CreateJobOutput{..} = object+        [ "Key"              .= _cjoKey+        , "ThumbnailPattern" .= _cjoThumbnailPattern+        , "Rotate"           .= _cjoRotate+        , "PresetId"         .= _cjoPresetId+        , "SegmentDuration"  .= _cjoSegmentDuration+        , "Watermarks"       .= _cjoWatermarks+        , "AlbumArt"         .= _cjoAlbumArt+        , "Composition"      .= _cjoComposition+        , "Captions"         .= _cjoCaptions+        ]++data AudioParameters = AudioParameters+    { _apBitRate      :: Maybe Text+    , _apChannels     :: Maybe Text+    , _apCodec        :: Maybe Text+    , _apCodecOptions :: Maybe AudioCodecOptions+    , _apSampleRate   :: Maybe Text+    } deriving (Eq, Show)++-- | 'AudioParameters' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'apBitRate' @::@ 'Maybe' 'Text'+--+-- * 'apChannels' @::@ 'Maybe' 'Text'+--+-- * 'apCodec' @::@ 'Maybe' 'Text'+--+-- * 'apCodecOptions' @::@ 'Maybe' 'AudioCodecOptions'+--+-- * 'apSampleRate' @::@ 'Maybe' 'Text'+--+audioParameters :: AudioParameters+audioParameters = AudioParameters+    { _apCodec        = Nothing+    , _apSampleRate   = Nothing+    , _apBitRate      = Nothing+    , _apChannels     = Nothing+    , _apCodecOptions = Nothing+    }++-- | The bit rate of the audio stream in the output file, in kilobits/second.+-- Enter an integer between 64 and 320, inclusive.+apBitRate :: Lens' AudioParameters (Maybe Text)+apBitRate = lens _apBitRate (\s a -> s { _apBitRate = a })++-- | The number of audio channels in the output file. Valid values include:+-- auto, 0, 1, 2 If you specify auto, Elastic Transcoder automatically+-- detects the number of channels in the input file.+apChannels :: Lens' AudioParameters (Maybe Text)+apChannels = lens _apChannels (\s a -> s { _apChannels = a })++-- | The audio codec for the output file. Valid values include aac, mp3, and+-- vorbis.+apCodec :: Lens' AudioParameters (Maybe Text)+apCodec = lens _apCodec (\s a -> s { _apCodec = a })++-- | If you specified AAC for Audio:Codec, this is the AAC compression profile+-- to use. Valid values include: auto, AAC-LC, HE-AAC, HE-AACv2 If you+-- specify auto, Elastic Transcoder chooses a profile based on the bit rate+-- of the output file.+apCodecOptions :: Lens' AudioParameters (Maybe AudioCodecOptions)+apCodecOptions = lens _apCodecOptions (\s a -> s { _apCodecOptions = a })++-- | The sample rate of the audio stream in the output file, in Hertz. Valid+-- values include: auto, 22050, 32000, 44100, 48000, 96000 If you specify+-- auto, Elastic Transcoder automatically detects the sample rate.+apSampleRate :: Lens' AudioParameters (Maybe Text)+apSampleRate = lens _apSampleRate (\s a -> s { _apSampleRate = a })++instance FromJSON AudioParameters where+    parseJSON = withObject "AudioParameters" $ \o -> AudioParameters+        <$> o .:? "BitRate"+        <*> o .:? "Channels"+        <*> o .:? "Codec"+        <*> o .:? "CodecOptions"+        <*> o .:? "SampleRate"++instance ToJSON AudioParameters where+    toJSON AudioParameters{..} = object+        [ "Codec"        .= _apCodec+        , "SampleRate"   .= _apSampleRate+        , "BitRate"      .= _apBitRate+        , "Channels"     .= _apChannels+        , "CodecOptions" .= _apCodecOptions+        ]++data Thumbnails = Thumbnails+    { _tAspectRatio   :: Maybe Text+    , _tFormat        :: Maybe Text+    , _tInterval      :: Maybe Text+    , _tMaxHeight     :: Maybe Text+    , _tMaxWidth      :: Maybe Text+    , _tPaddingPolicy :: Maybe Text+    , _tResolution    :: Maybe Text+    , _tSizingPolicy  :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Thumbnails' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'tAspectRatio' @::@ 'Maybe' 'Text'+--+-- * 'tFormat' @::@ 'Maybe' 'Text'+--+-- * 'tInterval' @::@ 'Maybe' 'Text'+--+-- * 'tMaxHeight' @::@ 'Maybe' 'Text'+--+-- * 'tMaxWidth' @::@ 'Maybe' 'Text'+--+-- * 'tPaddingPolicy' @::@ 'Maybe' 'Text'+--+-- * 'tResolution' @::@ 'Maybe' 'Text'+--+-- * 'tSizingPolicy' @::@ 'Maybe' 'Text'+--+thumbnails :: Thumbnails+thumbnails = Thumbnails+    { _tFormat        = Nothing+    , _tInterval      = Nothing+    , _tResolution    = Nothing+    , _tAspectRatio   = Nothing+    , _tMaxWidth      = Nothing+    , _tMaxHeight     = Nothing+    , _tSizingPolicy  = Nothing+    , _tPaddingPolicy = Nothing+    }++-- | To better control resolution and aspect ratio of thumbnails, we recommend+-- that you use the values MaxWidth, MaxHeight, SizingPolicy, and+-- PaddingPolicy instead of Resolution and AspectRatio. The two groups of+-- settings are mutually exclusive. Do not use them together. The aspect+-- ratio of thumbnails. Valid values include: auto, 1:1, 4:3, 3:2, 16:9 If+-- you specify auto, Elastic Transcoder tries to preserve the aspect ratio+-- of the video in the output file.+tAspectRatio :: Lens' Thumbnails (Maybe Text)+tAspectRatio = lens _tAspectRatio (\s a -> s { _tAspectRatio = a })++-- | The format of thumbnails, if any. Valid values are jpg and png. You+-- specify whether you want Elastic Transcoder to create thumbnails when you+-- create a job.+tFormat :: Lens' Thumbnails (Maybe Text)+tFormat = lens _tFormat (\s a -> s { _tFormat = a })++-- | The number of seconds between thumbnails. Specify an integer value.+tInterval :: Lens' Thumbnails (Maybe Text)+tInterval = lens _tInterval (\s a -> s { _tInterval = a })++-- | The maximum height of thumbnails in pixels. If you specify auto, Elastic+-- Transcoder uses 1080 (Full HD) as the default value. If you specify a+-- numeric value, enter an even integer between 32 and 3072.+tMaxHeight :: Lens' Thumbnails (Maybe Text)+tMaxHeight = lens _tMaxHeight (\s a -> s { _tMaxHeight = a })++-- | The maximum width of thumbnails in pixels. If you specify auto, Elastic+-- Transcoder uses 1920 (Full HD) as the default value. If you specify a+-- numeric value, enter an even integer between 32 and 4096.+tMaxWidth :: Lens' Thumbnails (Maybe Text)+tMaxWidth = lens _tMaxWidth (\s a -> s { _tMaxWidth = a })++-- | When you set PaddingPolicy to Pad, Elastic Transcoder may add black bars+-- to the top and bottom and/or left and right sides of thumbnails to make+-- the total size of the thumbnails match the values that you specified for+-- thumbnail MaxWidth and MaxHeight settings.+tPaddingPolicy :: Lens' Thumbnails (Maybe Text)+tPaddingPolicy = lens _tPaddingPolicy (\s a -> s { _tPaddingPolicy = a })++-- | To better control resolution and aspect ratio of thumbnails, we recommend+-- that you use the values MaxWidth, MaxHeight, SizingPolicy, and+-- PaddingPolicy instead of Resolution and AspectRatio. The two groups of+-- settings are mutually exclusive. Do not use them together. The width and+-- height of thumbnail files in pixels. Specify a value in the format width+-- x height where both values are even integers. The values cannot exceed+-- the width and height that you specified in the Video:Resolution object.+tResolution :: Lens' Thumbnails (Maybe Text)+tResolution = lens _tResolution (\s a -> s { _tResolution = a })++-- | Specify one of the following values to control scaling of thumbnails:+-- Fit: Elastic Transcoder scales thumbnails so they match the value that+-- you specified in thumbnail MaxWidth or MaxHeight settings without+-- exceeding the other value. Fill: Elastic Transcoder scales thumbnails so+-- they match the value that you specified in thumbnail MaxWidth or+-- MaxHeight settings and matches or exceeds the other value. Elastic+-- Transcoder centers the image in thumbnails and then crops in the+-- dimension (if any) that exceeds the maximum value. Stretch: Elastic+-- Transcoder stretches thumbnails to match the values that you specified+-- for thumbnail MaxWidth and MaxHeight settings. If the relative+-- proportions of the input video and thumbnails are different, the+-- thumbnails will be distorted. Keep: Elastic Transcoder does not scale+-- thumbnails. If either dimension of the input video exceeds the values+-- that you specified for thumbnail MaxWidth and MaxHeight settings, Elastic+-- Transcoder crops the thumbnails. ShrinkToFit: Elastic Transcoder scales+-- thumbnails down so that their dimensions match the values that you+-- specified for at least one of thumbnail MaxWidth and MaxHeight without+-- exceeding either value. If you specify this option, Elastic Transcoder+-- does not scale thumbnails up. ShrinkToFill: Elastic Transcoder scales+-- thumbnails down so that their dimensions match the values that you+-- specified for at least one of MaxWidth and MaxHeight without dropping+-- below either value. If you specify this option, Elastic Transcoder does+-- not scale thumbnails up.+tSizingPolicy :: Lens' Thumbnails (Maybe Text)+tSizingPolicy = lens _tSizingPolicy (\s a -> s { _tSizingPolicy = a })++instance FromJSON Thumbnails where+    parseJSON = withObject "Thumbnails" $ \o -> Thumbnails+        <$> o .:? "AspectRatio"+        <*> o .:? "Format"+        <*> o .:? "Interval"+        <*> o .:? "MaxHeight"+        <*> o .:? "MaxWidth"+        <*> o .:? "PaddingPolicy"+        <*> o .:? "Resolution"+        <*> o .:? "SizingPolicy"++instance ToJSON Thumbnails where+    toJSON Thumbnails{..} = object+        [ "Format"        .= _tFormat+        , "Interval"      .= _tInterval+        , "Resolution"    .= _tResolution+        , "AspectRatio"   .= _tAspectRatio+        , "MaxWidth"      .= _tMaxWidth+        , "MaxHeight"     .= _tMaxHeight+        , "SizingPolicy"  .= _tSizingPolicy+        , "PaddingPolicy" .= _tPaddingPolicy+        ]++data JobAlbumArt = JobAlbumArt+    { _jaaArtwork     :: List "Artwork" Artwork+    , _jaaMergePolicy :: Maybe Text+    } deriving (Eq, Show)++-- | 'JobAlbumArt' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'jaaArtwork' @::@ ['Artwork']+--+-- * 'jaaMergePolicy' @::@ 'Maybe' 'Text'+--+jobAlbumArt :: JobAlbumArt+jobAlbumArt = JobAlbumArt+    { _jaaMergePolicy = Nothing+    , _jaaArtwork     = mempty+    }++-- | The file to be used as album art. There can be multiple artworks+-- associated with an audio file, to a maximum of 20. Valid formats are .jpg+-- and .png.+jaaArtwork :: Lens' JobAlbumArt [Artwork]+jaaArtwork = lens _jaaArtwork (\s a -> s { _jaaArtwork = a }) . _List++-- | A policy that determines how Elastic Transcoder will handle the existence+-- of multiple album artwork files. Replace: The specified album art will+-- replace any existing album art. Prepend: The specified album art will be+-- placed in front of any existing album art. Append: The specified album+-- art will be placed after any existing album art. Fallback: If the+-- original input file contains artwork, Elastic Transcoder will use that+-- artwork for the output. If the original input does not contain artwork,+-- Elastic Transcoder will use the specified album art file.+jaaMergePolicy :: Lens' JobAlbumArt (Maybe Text)+jaaMergePolicy = lens _jaaMergePolicy (\s a -> s { _jaaMergePolicy = a })++instance FromJSON JobAlbumArt where+    parseJSON = withObject "JobAlbumArt" $ \o -> JobAlbumArt+        <$> o .:  "Artwork"+        <*> o .:? "MergePolicy"++instance ToJSON JobAlbumArt where+    toJSON JobAlbumArt{..} = object+        [ "MergePolicy" .= _jaaMergePolicy+        , "Artwork"     .= _jaaArtwork+        ]++data JobWatermark = JobWatermark+    { _jwInputKey          :: Maybe Text+    , _jwPresetWatermarkId :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'JobWatermark' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'jwInputKey' @::@ 'Maybe' 'Text'+--+-- * 'jwPresetWatermarkId' @::@ 'Maybe' 'Text'+--+jobWatermark :: JobWatermark+jobWatermark = JobWatermark+    { _jwPresetWatermarkId = Nothing+    , _jwInputKey          = Nothing+    }++-- | The name of the .png or .jpg file that you want to use for the watermark.+-- To determine which Amazon S3 bucket contains the specified file, Elastic+-- Transcoder checks the pipeline specified by Pipeline; the Input Bucket+-- object in that pipeline identifies the bucket. If the file name includes+-- a prefix, for example, logos/128x64.png, include the prefix in the key.+-- If the file isn't in the specified bucket, Elastic Transcoder returns an+-- error.+jwInputKey :: Lens' JobWatermark (Maybe Text)+jwInputKey = lens _jwInputKey (\s a -> s { _jwInputKey = a })++-- | The ID of the watermark settings that Elastic Transcoder uses to add+-- watermarks to the video during transcoding. The settings are in the+-- preset specified by Preset for the current output. In that preset, the+-- value of Watermarks Id tells Elastic Transcoder which settings to use.+jwPresetWatermarkId :: Lens' JobWatermark (Maybe Text)+jwPresetWatermarkId =+    lens _jwPresetWatermarkId (\s a -> s { _jwPresetWatermarkId = a })++instance FromJSON JobWatermark where+    parseJSON = withObject "JobWatermark" $ \o -> JobWatermark+        <$> o .:? "InputKey"+        <*> o .:? "PresetWatermarkId"++instance ToJSON JobWatermark where+    toJSON JobWatermark{..} = object+        [ "PresetWatermarkId" .= _jwPresetWatermarkId+        , "InputKey"          .= _jwInputKey+        ]++data Pipeline = Pipeline+    { _pArn             :: Maybe Text+    , _pContentConfig   :: Maybe PipelineOutputConfig+    , _pId              :: Maybe Text+    , _pInputBucket     :: Maybe Text+    , _pName            :: Maybe Text+    , _pNotifications   :: Maybe Notifications+    , _pOutputBucket    :: Maybe Text+    , _pRole            :: Maybe Text+    , _pStatus          :: Maybe Text+    , _pThumbnailConfig :: Maybe PipelineOutputConfig+    } deriving (Eq, Show)++-- | 'Pipeline' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pArn' @::@ 'Maybe' 'Text'+--+-- * 'pContentConfig' @::@ 'Maybe' 'PipelineOutputConfig'+--+-- * 'pId' @::@ 'Maybe' 'Text'+--+-- * 'pInputBucket' @::@ 'Maybe' 'Text'+--+-- * 'pName' @::@ 'Maybe' 'Text'+--+-- * 'pNotifications' @::@ 'Maybe' 'Notifications'+--+-- * 'pOutputBucket' @::@ 'Maybe' 'Text'+--+-- * 'pRole' @::@ 'Maybe' 'Text'+--+-- * 'pStatus' @::@ 'Maybe' 'Text'+--+-- * 'pThumbnailConfig' @::@ 'Maybe' 'PipelineOutputConfig'+--+pipeline :: Pipeline+pipeline = Pipeline+    { _pId              = Nothing+    , _pArn             = Nothing+    , _pName            = Nothing+    , _pStatus          = Nothing+    , _pInputBucket     = Nothing+    , _pOutputBucket    = Nothing+    , _pRole            = Nothing+    , _pNotifications   = Nothing+    , _pContentConfig   = Nothing+    , _pThumbnailConfig = Nothing+    }++-- | The Amazon Resource Name (ARN) for the pipeline.+pArn :: Lens' Pipeline (Maybe Text)+pArn = lens _pArn (\s a -> s { _pArn = a })++-- | Information about the Amazon S3 bucket in which you want Elastic+-- Transcoder to save transcoded files and playlists. Either you specify+-- both ContentConfig and ThumbnailConfig, or you specify OutputBucket.+-- Bucket: The Amazon S3 bucket in which you want Elastic Transcoder to save+-- transcoded files and playlists. Permissions: A list of the users and/or+-- predefined Amazon S3 groups you want to have access to transcoded files+-- and playlists, and the type of access that you want them to have.+-- GranteeType: The type of value that appears in the Grantee object:+-- Canonical: Either the canonical user ID for an AWS account or an origin+-- access identity for an Amazon CloudFront distribution. Email: The+-- registered email address of an AWS account. Group: 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. Access: The permission that you want+-- to give to the AWS user that is listed in Grantee. 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.+pContentConfig :: Lens' Pipeline (Maybe PipelineOutputConfig)+pContentConfig = lens _pContentConfig (\s a -> s { _pContentConfig = a })++-- | The identifier for the pipeline. You use this value to identify the+-- pipeline in which you want to perform a variety of operations, such as+-- creating a job or a preset.+pId :: Lens' Pipeline (Maybe Text)+pId = lens _pId (\s a -> s { _pId = a })++-- | The Amazon S3 bucket from which Elastic Transcoder gets media files for+-- transcoding and the graphics files, if any, that you want to use for+-- watermarks.+pInputBucket :: Lens' Pipeline (Maybe Text)+pInputBucket = lens _pInputBucket (\s a -> s { _pInputBucket = a })++-- | 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.+pName :: Lens' Pipeline (Maybe Text)+pName = lens _pName (\s a -> s { _pName = a })++-- | 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+-- (optional): The Amazon Simple Notification Service (Amazon SNS) topic+-- that you want to notify when Elastic Transcoder has started to process+-- the job. Completed (optional): The Amazon SNS topic that you want to+-- notify when Elastic Transcoder has finished processing the job. Warning+-- (optional): The Amazon SNS topic that you want to notify when Elastic+-- Transcoder encounters a warning condition. Error (optional): The Amazon+-- SNS topic that you want to notify when Elastic Transcoder encounters an+-- error condition.+pNotifications :: Lens' Pipeline (Maybe Notifications)+pNotifications = lens _pNotifications (\s a -> s { _pNotifications = a })++-- | The Amazon S3 bucket in which you want Elastic Transcoder to save+-- transcoded files, thumbnails, and playlists. Either you specify this+-- value, or you specify both ContentConfig and ThumbnailConfig.+pOutputBucket :: Lens' Pipeline (Maybe Text)+pOutputBucket = lens _pOutputBucket (\s a -> s { _pOutputBucket = a })++-- | The IAM Amazon Resource Name (ARN) for the role that Elastic Transcoder+-- uses to transcode jobs for this pipeline.+pRole :: Lens' Pipeline (Maybe Text)+pRole = lens _pRole (\s a -> s { _pRole = a })++-- | The current status of the pipeline: Active: The pipeline is processing+-- jobs. Paused: The pipeline is not currently processing jobs.+pStatus :: Lens' Pipeline (Maybe Text)+pStatus = lens _pStatus (\s a -> s { _pStatus = a })++-- | Information about the Amazon S3 bucket in which you want Elastic+-- Transcoder to save thumbnail files. Either you specify both ContentConfig+-- and ThumbnailConfig, or you specify OutputBucket. Bucket: The Amazon S3+-- bucket in which you want Elastic Transcoder to save thumbnail files.+-- Permissions: A list of the users and/or predefined Amazon S3 groups you+-- want to have access to thumbnail files, and the type of access that you+-- want them to have. GranteeType: The type of value that appears in the+-- Grantee object: Canonical: 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 registered email address of an AWS account. Group: 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. Access: The permission that+-- you want to give to the AWS user that is listed in Grantee. Valid values+-- include: READ: The grantee can read the thumbnails and metadata for+-- thumbnails 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.+pThumbnailConfig :: Lens' Pipeline (Maybe PipelineOutputConfig)+pThumbnailConfig = lens _pThumbnailConfig (\s a -> s { _pThumbnailConfig = a })++instance FromJSON Pipeline where+    parseJSON = withObject "Pipeline" $ \o -> Pipeline+        <$> o .:? "Arn"+        <*> o .:? "ContentConfig"+        <*> o .:? "Id"+        <*> o .:? "InputBucket"+        <*> o .:? "Name"+        <*> o .:? "Notifications"+        <*> o .:? "OutputBucket"+        <*> o .:? "Role"+        <*> o .:? "Status"+        <*> o .:? "ThumbnailConfig"++instance ToJSON Pipeline where+    toJSON Pipeline{..} = object+        [ "Id"              .= _pId+        , "Arn"             .= _pArn+        , "Name"            .= _pName+        , "Status"          .= _pStatus+        , "InputBucket"     .= _pInputBucket+        , "OutputBucket"    .= _pOutputBucket+        , "Role"            .= _pRole+        , "Notifications"   .= _pNotifications+        , "ContentConfig"   .= _pContentConfig+        , "ThumbnailConfig" .= _pThumbnailConfig+        ]++data Preset = Preset+    { _p1Arn         :: Maybe Text+    , _p1Audio       :: Maybe AudioParameters+    , _p1Container   :: Maybe Text+    , _p1Description :: Maybe Text+    , _p1Id          :: Maybe Text+    , _p1Name        :: Maybe Text+    , _p1Thumbnails  :: Maybe Thumbnails+    , _p1Type        :: Maybe Text+    , _p1Video       :: Maybe VideoParameters+    } deriving (Eq, Show)++-- | 'Preset' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'p1Arn' @::@ 'Maybe' 'Text'+--+-- * 'p1Audio' @::@ 'Maybe' 'AudioParameters'+--+-- * 'p1Container' @::@ 'Maybe' 'Text'+--+-- * 'p1Description' @::@ 'Maybe' 'Text'+--+-- * 'p1Id' @::@ 'Maybe' 'Text'+--+-- * 'p1Name' @::@ 'Maybe' 'Text'+--+-- * 'p1Thumbnails' @::@ 'Maybe' 'Thumbnails'+--+-- * 'p1Type' @::@ 'Maybe' 'Text'+--+-- * 'p1Video' @::@ 'Maybe' 'VideoParameters'+--+preset :: Preset+preset = Preset+    { _p1Id          = Nothing+    , _p1Arn         = Nothing+    , _p1Name        = Nothing+    , _p1Description = Nothing+    , _p1Container   = Nothing+    , _p1Audio       = Nothing+    , _p1Video       = Nothing+    , _p1Thumbnails  = Nothing+    , _p1Type        = Nothing+    }++-- | The Amazon Resource Name (ARN) for the preset.+p1Arn :: Lens' Preset (Maybe Text)+p1Arn = lens _p1Arn (\s a -> s { _p1Arn = a })++-- | A section of the response body that provides information about the audio+-- preset values.+p1Audio :: Lens' Preset (Maybe AudioParameters)+p1Audio = lens _p1Audio (\s a -> s { _p1Audio = a })++-- | The container type for the output file. Valid values include fmp4, mp3,+-- mp4, ogg, ts, and webm.+p1Container :: Lens' Preset (Maybe Text)+p1Container = lens _p1Container (\s a -> s { _p1Container = a })++-- | A description of the preset.+p1Description :: Lens' Preset (Maybe Text)+p1Description = lens _p1Description (\s a -> s { _p1Description = a })++-- | Identifier for the new preset. You use this value to get settings for the+-- preset or to delete it.+p1Id :: Lens' Preset (Maybe Text)+p1Id = lens _p1Id (\s a -> s { _p1Id = a })++-- | The name of the preset.+p1Name :: Lens' Preset (Maybe Text)+p1Name = lens _p1Name (\s a -> s { _p1Name = a })++-- | A section of the response body that provides information about the+-- thumbnail preset values, if any.+p1Thumbnails :: Lens' Preset (Maybe Thumbnails)+p1Thumbnails = lens _p1Thumbnails (\s a -> s { _p1Thumbnails = a })++-- | Whether the preset is a default preset provided by Elastic Transcoder+-- (System) or a preset that you have defined (Custom).+p1Type :: Lens' Preset (Maybe Text)+p1Type = lens _p1Type (\s a -> s { _p1Type = a })++-- | A section of the response body that provides information about the video+-- preset values.+p1Video :: Lens' Preset (Maybe VideoParameters)+p1Video = lens _p1Video (\s a -> s { _p1Video = a })++instance FromJSON Preset where+    parseJSON = withObject "Preset" $ \o -> Preset+        <$> o .:? "Arn"+        <*> o .:? "Audio"+        <*> o .:? "Container"+        <*> o .:? "Description"+        <*> o .:? "Id"+        <*> o .:? "Name"+        <*> o .:? "Thumbnails"+        <*> o .:? "Type"+        <*> o .:? "Video"++instance ToJSON Preset where+    toJSON Preset{..} = object+        [ "Id"          .= _p1Id+        , "Arn"         .= _p1Arn+        , "Name"        .= _p1Name+        , "Description" .= _p1Description+        , "Container"   .= _p1Container+        , "Audio"       .= _p1Audio+        , "Video"       .= _p1Video+        , "Thumbnails"  .= _p1Thumbnails+        , "Type"        .= _p1Type+        ]++data CaptionFormat = CaptionFormat+    { _cfFormat  :: Maybe Text+    , _cfPattern :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CaptionFormat' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cfFormat' @::@ 'Maybe' 'Text'+--+-- * 'cfPattern' @::@ 'Maybe' 'Text'+--+captionFormat :: CaptionFormat+captionFormat = CaptionFormat+    { _cfFormat  = Nothing+    , _cfPattern = Nothing+    }++-- | The format you specify determines whether Elastic Transcoder generates an+-- embedded or sidecar caption for this output. Valid Embedded Caption+-- Formats: For MP3: None For MP4: mov-text For MPEG-TS: None For ogg: None+-- For webm: None Valid Sidecar Caption Formats: Elastic Transcoder supports+-- dfxp (first div element only), scc, srt, and webvtt. If you want ttml or+-- smpte-tt compatible captions, specify dfxp as your output format. For+-- FMP4: dfxp Non-FMP4 outputs: All sidecar types fmp4 captions have an+-- extension of .ismt.+cfFormat :: Lens' CaptionFormat (Maybe Text)+cfFormat = lens _cfFormat (\s a -> s { _cfFormat = a })++-- | The prefix for caption filenames, in the form description-{language},+-- where: description is a description of the video. {language} is a literal+-- value that Elastic Transcoder replaces with the two- or three-letter code+-- for the language of the caption in the output file names. If you don't+-- include {language} in the file name pattern, Elastic Transcoder+-- automatically appends "{language}" to the value that you specify for the+-- description. In addition, Elastic Transcoder automatically appends the+-- count to the end of the segment files. For example, suppose you're+-- transcoding into srt format. When you enter "Sydney-{language}-sunrise",+-- and the language of the captions is English (en), the name of the first+-- caption file will be Sydney-en-sunrise00000.srt.+cfPattern :: Lens' CaptionFormat (Maybe Text)+cfPattern = lens _cfPattern (\s a -> s { _cfPattern = a })++instance FromJSON CaptionFormat where+    parseJSON = withObject "CaptionFormat" $ \o -> CaptionFormat+        <$> o .:? "Format"+        <*> o .:? "Pattern"++instance ToJSON CaptionFormat where+    toJSON CaptionFormat{..} = object+        [ "Format"  .= _cfFormat+        , "Pattern" .= _cfPattern+        ]++data PresetWatermark = PresetWatermark+    { _pwHorizontalAlign  :: Maybe Text+    , _pwHorizontalOffset :: Maybe Text+    , _pwId               :: Maybe Text+    , _pwMaxHeight        :: Maybe Text+    , _pwMaxWidth         :: Maybe Text+    , _pwOpacity          :: Maybe Text+    , _pwSizingPolicy     :: Maybe Text+    , _pwTarget           :: Maybe Text+    , _pwVerticalAlign    :: Maybe Text+    , _pwVerticalOffset   :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'PresetWatermark' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pwHorizontalAlign' @::@ 'Maybe' 'Text'+--+-- * 'pwHorizontalOffset' @::@ 'Maybe' 'Text'+--+-- * 'pwId' @::@ 'Maybe' 'Text'+--+-- * 'pwMaxHeight' @::@ 'Maybe' 'Text'+--+-- * 'pwMaxWidth' @::@ 'Maybe' 'Text'+--+-- * 'pwOpacity' @::@ 'Maybe' 'Text'+--+-- * 'pwSizingPolicy' @::@ 'Maybe' 'Text'+--+-- * 'pwTarget' @::@ 'Maybe' 'Text'+--+-- * 'pwVerticalAlign' @::@ 'Maybe' 'Text'+--+-- * 'pwVerticalOffset' @::@ 'Maybe' 'Text'+--+presetWatermark :: PresetWatermark+presetWatermark = PresetWatermark+    { _pwId               = Nothing+    , _pwMaxWidth         = Nothing+    , _pwMaxHeight        = Nothing+    , _pwSizingPolicy     = Nothing+    , _pwHorizontalAlign  = Nothing+    , _pwHorizontalOffset = Nothing+    , _pwVerticalAlign    = Nothing+    , _pwVerticalOffset   = Nothing+    , _pwOpacity          = Nothing+    , _pwTarget           = Nothing+    }++-- | The horizontal position of the watermark unless you specify a non-zero+-- value for HorizontalOffset: Left: The left edge of the watermark is+-- aligned with the left border of the video. Right: The right edge of the+-- watermark is aligned with the right border of the video. Center: The+-- watermark is centered between the left and right borders.+pwHorizontalAlign :: Lens' PresetWatermark (Maybe Text)+pwHorizontalAlign =+    lens _pwHorizontalAlign (\s a -> s { _pwHorizontalAlign = a })++-- | The amount by which you want the horizontal position of the watermark to+-- be offset from the position specified by HorizontalAlign: number of+-- pixels (px): The minimum value is 0 pixels, and the maximum value is the+-- value of MaxWidth. integer percentage (%): The range of valid values is 0+-- to 100. For example, if you specify Left for HorizontalAlign and 5px for+-- HorizontalOffset, the left side of the watermark appears 5 pixels from+-- the left border of the output video. HorizontalOffset is only valid when+-- the value of HorizontalAlign is Left or Right. If you specify an offset+-- that causes the watermark to extend beyond the left or right border and+-- Elastic Transcoder has not added black bars, the watermark is cropped. If+-- Elastic Transcoder has added black bars, the watermark extends into the+-- black bars. If the watermark extends beyond the black bars, it is+-- cropped. Use the value of Target to specify whether you want to include+-- the black bars that are added by Elastic Transcoder, if any, in the+-- offset calculation.+pwHorizontalOffset :: Lens' PresetWatermark (Maybe Text)+pwHorizontalOffset =+    lens _pwHorizontalOffset (\s a -> s { _pwHorizontalOffset = a })++-- | A unique identifier for the settings for one watermark. The value of Id+-- can be up to 40 characters long.+pwId :: Lens' PresetWatermark (Maybe Text)+pwId = lens _pwId (\s a -> s { _pwId = a })++-- | The maximum height of the watermark in one of the following formats:+-- number of pixels (px): The minimum value is 16 pixels, and the maximum+-- value is the value of MaxHeight. integer percentage (%): The range of+-- valid values is 0 to 100. Use the value of Target to specify whether you+-- want Elastic Transcoder to include the black bars that are added by+-- Elastic Transcoder, if any, in the calculation. If you specify the value+-- in pixels, it must be less than or equal to the value of MaxHeight.+pwMaxHeight :: Lens' PresetWatermark (Maybe Text)+pwMaxHeight = lens _pwMaxHeight (\s a -> s { _pwMaxHeight = a })++-- | The maximum width of the watermark in one of the following formats:+-- number of pixels (px): The minimum value is 16 pixels, and the maximum+-- value is the value of MaxWidth. integer percentage (%): The range of+-- valid values is 0 to 100. Use the value of Target to specify whether you+-- want Elastic Transcoder to include the black bars that are added by+-- Elastic Transcoder, if any, in the calculation. If you specify the value+-- in pixels, it must be less than or equal to the value of MaxWidth.+pwMaxWidth :: Lens' PresetWatermark (Maybe Text)+pwMaxWidth = lens _pwMaxWidth (\s a -> s { _pwMaxWidth = a })++-- | A percentage that indicates how much you want a watermark to obscure the+-- video in the location where it appears. Valid values are 0 (the watermark+-- is invisible) to 100 (the watermark completely obscures the video in the+-- specified location). The datatype of Opacity is float. Elastic Transcoder+-- supports transparent .png graphics. If you use a transparent .png, the+-- transparent portion of the video appears as if you had specified a value+-- of 0 for Opacity. The .jpg file format doesn't support transparency.+pwOpacity :: Lens' PresetWatermark (Maybe Text)+pwOpacity = lens _pwOpacity (\s a -> s { _pwOpacity = a })++-- | A value that controls scaling of the watermark: Fit: Elastic Transcoder+-- scales the watermark so it matches the value that you specified in either+-- MaxWidth or MaxHeight without exceeding the other value. Stretch: Elastic+-- Transcoder stretches the watermark to match the values that you specified+-- for MaxWidth and MaxHeight. If the relative proportions of the watermark+-- and the values of MaxWidth and MaxHeight are different, the watermark+-- will be distorted. ShrinkToFit: Elastic Transcoder scales the watermark+-- down so that its dimensions match the values that you specified for at+-- least one of MaxWidth and MaxHeight without exceeding either value. If+-- you specify this option, Elastic Transcoder does not scale the watermark+-- up.+pwSizingPolicy :: Lens' PresetWatermark (Maybe Text)+pwSizingPolicy = lens _pwSizingPolicy (\s a -> s { _pwSizingPolicy = a })++-- | A value that determines how Elastic Transcoder interprets values that you+-- specified for HorizontalOffset, VerticalOffset, MaxWidth, and MaxHeight:+-- Content: HorizontalOffset and VerticalOffset values are calculated based+-- on the borders of the video excluding black bars added by Elastic+-- Transcoder, if any. In addition, MaxWidth and MaxHeight, if specified as+-- a percentage, are calculated based on the borders of the video excluding+-- black bars added by Elastic Transcoder, if any. Frame: HorizontalOffset+-- and VerticalOffset values are calculated based on the borders of the+-- video including black bars added by Elastic Transcoder, if any. In+-- addition, MaxWidth and MaxHeight, if specified as a percentage, are+-- calculated based on the borders of the video including black bars added+-- by Elastic Transcoder, if any.+pwTarget :: Lens' PresetWatermark (Maybe Text)+pwTarget = lens _pwTarget (\s a -> s { _pwTarget = a })++-- | The vertical position of the watermark unless you specify a non-zero+-- value for VerticalOffset: Top: The top edge of the watermark is aligned+-- with the top border of the video. Bottom: The bottom edge of the+-- watermark is aligned with the bottom border of the video. Center: The+-- watermark is centered between the top and bottom borders.+pwVerticalAlign :: Lens' PresetWatermark (Maybe Text)+pwVerticalAlign = lens _pwVerticalAlign (\s a -> s { _pwVerticalAlign = a })++-- | VerticalOffset The amount by which you want the vertical position of the+-- watermark to be offset from the position specified by VerticalAlign:+-- number of pixels (px): The minimum value is 0 pixels, and the maximum+-- value is the value of MaxHeight. integer percentage (%): The range of+-- valid values is 0 to 100. For example, if you specify Top for+-- VerticalAlign and 5px for VerticalOffset, the top of the watermark+-- appears 5 pixels from the top border of the output video. VerticalOffset+-- is only valid when the value of VerticalAlign is Top or Bottom. If you+-- specify an offset that causes the watermark to extend beyond the top or+-- bottom border and Elastic Transcoder has not added black bars, the+-- watermark is cropped. If Elastic Transcoder has added black bars, the+-- watermark extends into the black bars. If the watermark extends beyond+-- the black bars, it is cropped. Use the value of Target to specify whether+-- you want Elastic Transcoder to include the black bars that are added by+-- Elastic Transcoder, if any, in the offset calculation.+pwVerticalOffset :: Lens' PresetWatermark (Maybe Text)+pwVerticalOffset = lens _pwVerticalOffset (\s a -> s { _pwVerticalOffset = a })++instance FromJSON PresetWatermark where+    parseJSON = withObject "PresetWatermark" $ \o -> PresetWatermark+        <$> o .:? "HorizontalAlign"+        <*> o .:? "HorizontalOffset"+        <*> o .:? "Id"+        <*> o .:? "MaxHeight"+        <*> o .:? "MaxWidth"+        <*> o .:? "Opacity"+        <*> o .:? "SizingPolicy"+        <*> o .:? "Target"+        <*> o .:? "VerticalAlign"+        <*> o .:? "VerticalOffset"++instance ToJSON PresetWatermark where+    toJSON PresetWatermark{..} = object+        [ "Id"               .= _pwId+        , "MaxWidth"         .= _pwMaxWidth+        , "MaxHeight"        .= _pwMaxHeight+        , "SizingPolicy"     .= _pwSizingPolicy+        , "HorizontalAlign"  .= _pwHorizontalAlign+        , "HorizontalOffset" .= _pwHorizontalOffset+        , "VerticalAlign"    .= _pwVerticalAlign+        , "VerticalOffset"   .= _pwVerticalOffset+        , "Opacity"          .= _pwOpacity+        , "Target"           .= _pwTarget+        ]++data Permission = Permission+    { _pAccess      :: List "Access" Text+    , _pGrantee     :: Maybe Text+    , _pGranteeType :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Permission' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pAccess' @::@ ['Text']+--+-- * 'pGrantee' @::@ 'Maybe' 'Text'+--+-- * 'pGranteeType' @::@ 'Maybe' 'Text'+--+permission :: Permission+permission = Permission+    { _pGranteeType = Nothing+    , _pGrantee     = Nothing+    , _pAccess      = mempty+    }++-- | The permission that you want to give to the AWS user that is listed in+-- Grantee. Valid values include: READ: The grantee can read the thumbnails+-- and metadata for thumbnails 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.+pAccess :: Lens' Permission [Text]+pAccess = lens _pAccess (\s a -> s { _pAccess = a }) . _List++-- | 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.+pGrantee :: Lens' Permission (Maybe Text)+pGrantee = lens _pGrantee (\s a -> s { _pGrantee = a })++-- | The type of value that appears in the Grantee object: Canonical: 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 registered email address of an AWS+-- account. Group: One of the following predefined Amazon S3 groups:+-- AllUsers, AuthenticatedUsers, or LogDelivery.+pGranteeType :: Lens' Permission (Maybe Text)+pGranteeType = lens _pGranteeType (\s a -> s { _pGranteeType = a })++instance FromJSON Permission where+    parseJSON = withObject "Permission" $ \o -> Permission+        <$> o .:  "Access"+        <*> o .:? "Grantee"+        <*> o .:? "GranteeType"++instance ToJSON Permission where+    toJSON Permission{..} = object+        [ "GranteeType" .= _pGranteeType+        , "Grantee"     .= _pGrantee+        , "Access"      .= _pAccess+        ]++data VideoParameters = VideoParameters+    { _vpAspectRatio        :: Maybe Text+    , _vpBitRate            :: Maybe Text+    , _vpCodec              :: Maybe Text+    , _vpCodecOptions       :: Map Text Text+    , _vpDisplayAspectRatio :: Maybe Text+    , _vpFixedGOP           :: Maybe Text+    , _vpFrameRate          :: Maybe Text+    , _vpKeyframesMaxDist   :: Maybe Text+    , _vpMaxFrameRate       :: Maybe Text+    , _vpMaxHeight          :: Maybe Text+    , _vpMaxWidth           :: Maybe Text+    , _vpPaddingPolicy      :: Maybe Text+    , _vpResolution         :: Maybe Text+    , _vpSizingPolicy       :: Maybe Text+    , _vpWatermarks         :: List "Watermarks" PresetWatermark+    } deriving (Eq, Show)++-- | 'VideoParameters' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vpAspectRatio' @::@ 'Maybe' 'Text'+--+-- * 'vpBitRate' @::@ 'Maybe' 'Text'+--+-- * 'vpCodec' @::@ 'Maybe' 'Text'+--+-- * 'vpCodecOptions' @::@ 'HashMap' 'Text' 'Text'+--+-- * 'vpDisplayAspectRatio' @::@ 'Maybe' 'Text'+--+-- * 'vpFixedGOP' @::@ 'Maybe' 'Text'+--+-- * 'vpFrameRate' @::@ 'Maybe' 'Text'+--+-- * 'vpKeyframesMaxDist' @::@ 'Maybe' 'Text'+--+-- * 'vpMaxFrameRate' @::@ 'Maybe' 'Text'+--+-- * 'vpMaxHeight' @::@ 'Maybe' 'Text'+--+-- * 'vpMaxWidth' @::@ 'Maybe' 'Text'+--+-- * 'vpPaddingPolicy' @::@ 'Maybe' 'Text'+--+-- * 'vpResolution' @::@ 'Maybe' 'Text'+--+-- * 'vpSizingPolicy' @::@ 'Maybe' 'Text'+--+-- * 'vpWatermarks' @::@ ['PresetWatermark']+--+videoParameters :: VideoParameters+videoParameters = VideoParameters+    { _vpCodec              = Nothing+    , _vpCodecOptions       = mempty+    , _vpKeyframesMaxDist   = Nothing+    , _vpFixedGOP           = Nothing+    , _vpBitRate            = Nothing+    , _vpFrameRate          = Nothing+    , _vpMaxFrameRate       = Nothing+    , _vpResolution         = Nothing+    , _vpAspectRatio        = Nothing+    , _vpMaxWidth           = Nothing+    , _vpMaxHeight          = Nothing+    , _vpDisplayAspectRatio = Nothing+    , _vpSizingPolicy       = Nothing+    , _vpPaddingPolicy      = Nothing+    , _vpWatermarks         = mempty+    }++-- | To better control resolution and aspect ratio of output videos, we+-- recommend that you use the values MaxWidth, MaxHeight, SizingPolicy,+-- PaddingPolicy, and DisplayAspectRatio instead of Resolution and+-- AspectRatio. The two groups of settings are mutually exclusive. Do not+-- use them together. The display aspect ratio of the video in the output+-- file. Valid values include: auto, 1:1, 4:3, 3:2, 16:9 If you specify+-- auto, Elastic Transcoder tries to preserve the aspect ratio of the input+-- file. If you specify an aspect ratio for the output file that differs+-- from aspect ratio of the input file, Elastic Transcoder adds pillarboxing+-- (black bars on the sides) or letterboxing (black bars on the top and+-- bottom) to maintain the aspect ratio of the active region of the video.+vpAspectRatio :: Lens' VideoParameters (Maybe Text)+vpAspectRatio = lens _vpAspectRatio (\s a -> s { _vpAspectRatio = a })++-- | The bit rate of the video stream in the output file, in kilobits/second.+-- Valid values depend on the values of Level and Profile. If you specify+-- auto, Elastic Transcoder uses the detected bit rate of the input source.+-- If you specify a value other than auto, we recommend that you specify a+-- value less than or equal to the maximum H.264-compliant value listed for+-- your level and profile: Level - Maximum video bit rate in kilobits/second+-- (baseline and main Profile) : maximum video bit rate in kilobits/second+-- (high Profile) 1 - 64 : 80 1b - 128 : 160 1.1 - 192 : 240 1.2 - 384 : 480+-- 1.3 - 768 : 960 2 - 2000 : 2500 3 - 10000 : 12500 3.1 - 14000 : 17500 3.2+-- - 20000 : 25000 4 - 20000 : 25000 4.1 - 50000 : 62500.+vpBitRate :: Lens' VideoParameters (Maybe Text)+vpBitRate = lens _vpBitRate (\s a -> s { _vpBitRate = a })++-- | The video codec for the output file. Valid values include H.264 and vp8.+-- You can only specify vp8 when the container type is webm.+vpCodec :: Lens' VideoParameters (Maybe Text)+vpCodec = lens _vpCodec (\s a -> s { _vpCodec = a })++-- | Profile The H.264 profile that you want to use for the output file.+-- Elastic Transcoder supports the following profiles: baseline: The profile+-- most commonly used for videoconferencing and for mobile applications.+-- main: The profile used for standard-definition digital TV broadcasts.+-- high: The profile used for high-definition digital TV broadcasts and for+-- Blu-ray discs. Level (H.264 Only) The H.264 level that you want to use+-- for the output file. Elastic Transcoder supports the following levels: 1,+-- 1b, 1.1, 1.2, 1.3, 2, 2.1, 2.2, 3, 3.1, 3.2, 4, 4.1 MaxReferenceFrames+-- (H.264 Only) Applicable only when the value of Video:Codec is H.264. The+-- maximum number of previously decoded frames to use as a reference for+-- decoding future frames. Valid values are integers 0 through 16, but we+-- recommend that you not use a value greater than the following:+-- Min(Floor(Maximum decoded picture buffer in macroblocks * 256 / (Width in+-- pixels * Height in pixels)), 16) where Width in pixels and Height in+-- pixels represent either MaxWidth and MaxHeight, or Resolution. Maximum+-- decoded picture buffer in macroblocks depends on the value of the Level+-- object. See the list below. (A macroblock is a block of pixels measuring+-- 16x16.) 1 - 396 1b - 396 1.1 - 900 1.2 - 2376 1.3 - 2376 2 - 2376 2.1 -+-- 4752 2.2 - 8100 3 - 8100 3.1 - 18000 3.2 - 20480 4 - 32768 4.1 - 32768+-- MaxBitRate The maximum number of bits per second in a video buffer; the+-- size of the buffer is specified by BufferSize. Specify a value between 16+-- and 62,500. You can reduce the bandwidth required to stream a video by+-- reducing the maximum bit rate, but this also reduces the quality of the+-- video. BufferSize The maximum number of bits in any x seconds of the+-- output video. This window is commonly 10 seconds, the standard segment+-- duration when you're using FMP4 or MPEG-TS for the container type of the+-- output video. Specify an integer greater than 0. If you specify+-- MaxBitRate and omit BufferSize, Elastic Transcoder sets BufferSize to 10+-- times the value of MaxBitRate.+vpCodecOptions :: Lens' VideoParameters (HashMap Text Text)+vpCodecOptions = lens _vpCodecOptions (\s a -> s { _vpCodecOptions = a }) . _Map++-- | The value that Elastic Transcoder adds to the metadata in the output+-- file.+vpDisplayAspectRatio :: Lens' VideoParameters (Maybe Text)+vpDisplayAspectRatio =+    lens _vpDisplayAspectRatio (\s a -> s { _vpDisplayAspectRatio = a })++-- | Whether to use a fixed value for FixedGOP. Valid values are true and+-- false: true: Elastic Transcoder uses the value of KeyframesMaxDist for+-- the distance between key frames (the number of frames in a group of+-- pictures, or GOP). false: The distance between key frames can vary.+-- FixedGOP must be set to true for fmp4 containers.+vpFixedGOP :: Lens' VideoParameters (Maybe Text)+vpFixedGOP = lens _vpFixedGOP (\s a -> s { _vpFixedGOP = a })++-- | The frames per second for the video stream in the output file. Valid+-- values include: auto, 10, 15, 23.97, 24, 25, 29.97, 30, 60 If you specify+-- auto, Elastic Transcoder uses the detected frame rate of the input+-- source. If you specify a frame rate, we recommend that you perform the+-- following calculation: Frame rate = maximum recommended decoding speed in+-- luma samples/second / (width in pixels * height in pixels) where: width+-- in pixels and height in pixels represent the Resolution of the output+-- video. maximum recommended decoding speed in Luma samples/second is less+-- than or equal to the maximum value listed in the following table, based+-- on the value that you specified for Level. The maximum recommended+-- decoding speed in Luma samples/second for each level is described in the+-- following list (Level - Decoding speed): 1 - 380160 1b - 380160 1.1 -+-- 76800 1.2 - 1536000 1.3 - 3041280 2 - 3041280 2.1 - 5068800 2.2 - 5184000+-- 3 - 10368000 3.1 - 27648000 3.2 - 55296000 4 - 62914560 4.1 - 62914560.+vpFrameRate :: Lens' VideoParameters (Maybe Text)+vpFrameRate = lens _vpFrameRate (\s a -> s { _vpFrameRate = a })++-- | The maximum number of frames between key frames. Key frames are fully+-- encoded frames; the frames between key frames are encoded based, in part,+-- on the content of the key frames. The value is an integer formatted as a+-- string; valid values are between 1 (every frame is a key frame) and+-- 100000, inclusive. A higher value results in higher compression but may+-- also discernibly decrease video quality. For Smooth outputs, the+-- FrameRate must have a constant ratio to the KeyframesMaxDist. This allows+-- Smooth playlists to switch between different quality levels while the+-- file is being played. For example, an input file can have a FrameRate of+-- 30 with a KeyframesMaxDist of 90. The output file then needs to have a+-- ratio of 1:3. Valid outputs would have FrameRate of 30, 25, and 10, and+-- KeyframesMaxDist of 90, 75, and 30, respectively. Alternately, this can+-- be achieved by setting FrameRate to auto and having the same values for+-- MaxFrameRate and KeyframesMaxDist.+vpKeyframesMaxDist :: Lens' VideoParameters (Maybe Text)+vpKeyframesMaxDist =+    lens _vpKeyframesMaxDist (\s a -> s { _vpKeyframesMaxDist = a })++-- | If you specify auto for FrameRate, Elastic Transcoder uses the frame rate+-- of the input video for the frame rate of the output video. Specify the+-- maximum frame rate that you want Elastic Transcoder to use when the frame+-- rate of the input video is greater than the desired maximum frame rate of+-- the output video. Valid values include: 10, 15, 23.97, 24, 25, 29.97, 30,+-- 60.+vpMaxFrameRate :: Lens' VideoParameters (Maybe Text)+vpMaxFrameRate = lens _vpMaxFrameRate (\s a -> s { _vpMaxFrameRate = a })++-- | The maximum height of the output video in pixels. If you specify auto,+-- Elastic Transcoder uses 1080 (Full HD) as the default value. If you+-- specify a numeric value, enter an even integer between 96 and 3072.+vpMaxHeight :: Lens' VideoParameters (Maybe Text)+vpMaxHeight = lens _vpMaxHeight (\s a -> s { _vpMaxHeight = a })++-- | The maximum width of the output video in pixels. If you specify auto,+-- Elastic Transcoder uses 1920 (Full HD) as the default value. If you+-- specify a numeric value, enter an even integer between 128 and 4096.+vpMaxWidth :: Lens' VideoParameters (Maybe Text)+vpMaxWidth = lens _vpMaxWidth (\s a -> s { _vpMaxWidth = a })++-- | When you set PaddingPolicy to Pad, Elastic Transcoder may add black bars+-- to the top and bottom and/or left and right sides of the output video to+-- make the total size of the output video match the values that you+-- specified for MaxWidth and MaxHeight.+vpPaddingPolicy :: Lens' VideoParameters (Maybe Text)+vpPaddingPolicy = lens _vpPaddingPolicy (\s a -> s { _vpPaddingPolicy = a })++-- | To better control resolution and aspect ratio of output videos, we+-- recommend that you use the values MaxWidth, MaxHeight, SizingPolicy,+-- PaddingPolicy, and DisplayAspectRatio instead of Resolution and+-- AspectRatio. The two groups of settings are mutually exclusive. Do not+-- use them together. The width and height of the video in the output file,+-- in pixels. Valid values are auto and width x height: auto: Elastic+-- Transcoder attempts to preserve the width and height of the input file,+-- subject to the following rules. width x height: The width and height of+-- the output video in pixels. Note the following about specifying the width+-- and height: The width must be an even integer between 128 and 4096,+-- inclusive. The height must be an even integer between 96 and 3072,+-- inclusive. If you specify a resolution that is less than the resolution+-- of the input file, Elastic Transcoder rescales the output file to the+-- lower resolution. If you specify a resolution that is greater than the+-- resolution of the input file, Elastic Transcoder rescales the output to+-- the higher resolution. We recommend that you specify a resolution for+-- which the product of width and height is less than or equal to the+-- applicable value in the following list (List - Max width x height value):+-- 1 - 25344 1b - 25344 1.1 - 101376 1.2 - 101376 1.3 - 101376 2 - 101376+-- 2.1 - 202752 2.2 - 404720 3 - 404720 3.1 - 921600 3.2 - 1310720 4 -+-- 2097152 4.1 - 2097152.+vpResolution :: Lens' VideoParameters (Maybe Text)+vpResolution = lens _vpResolution (\s a -> s { _vpResolution = a })++-- | Specify one of the following values to control scaling of the output+-- video: Fit: Elastic Transcoder scales the output video so it matches the+-- value that you specified in either MaxWidth or MaxHeight without+-- exceeding the other value. Fill: Elastic Transcoder scales the output+-- video so it matches the value that you specified in either MaxWidth or+-- MaxHeight and matches or exceeds the other value. Elastic Transcoder+-- centers the output video and then crops it in the dimension (if any) that+-- exceeds the maximum value. Stretch: Elastic Transcoder stretches the+-- output video to match the values that you specified for MaxWidth and+-- MaxHeight. If the relative proportions of the input video and the output+-- video are different, the output video will be distorted. Keep: Elastic+-- Transcoder does not scale the output video. If either dimension of the+-- input video exceeds the values that you specified for MaxWidth and+-- MaxHeight, Elastic Transcoder crops the output video. ShrinkToFit:+-- Elastic Transcoder scales the output video down so that its dimensions+-- match the values that you specified for at least one of MaxWidth and+-- MaxHeight without exceeding either value. If you specify this option,+-- Elastic Transcoder does not scale the video up. ShrinkToFill: Elastic+-- Transcoder scales the output video down so that its dimensions match the+-- values that you specified for at least one of MaxWidth and MaxHeight+-- without dropping below either value. If you specify this option, Elastic+-- Transcoder does not scale the video up.+vpSizingPolicy :: Lens' VideoParameters (Maybe Text)+vpSizingPolicy = lens _vpSizingPolicy (\s a -> s { _vpSizingPolicy = a })++-- | Settings for the size, location, and opacity of graphics that you want+-- Elastic Transcoder to overlay over videos that are transcoded using this+-- preset. You can specify settings for up to four watermarks. Watermarks+-- appear in the specified size and location, and with the specified opacity+-- for the duration of the transcoded video. Watermarks can be in .png or+-- .jpg format. If you want to display a watermark that is not rectangular,+-- use the .png format, which supports transparency. When you create a job+-- that uses this preset, you specify the .png or .jpg graphics that you+-- want Elastic Transcoder to include in the transcoded videos. You can+-- specify fewer graphics in the job than you specify watermark settings in+-- the preset, which allows you to use the same preset for up to four+-- watermarks that have different dimensions.+vpWatermarks :: Lens' VideoParameters [PresetWatermark]+vpWatermarks = lens _vpWatermarks (\s a -> s { _vpWatermarks = a }) . _List++instance FromJSON VideoParameters where+    parseJSON = withObject "VideoParameters" $ \o -> VideoParameters+        <$> o .:? "AspectRatio"+        <*> o .:? "BitRate"+        <*> o .:? "Codec"+        <*> o .:  "CodecOptions"+        <*> o .:? "DisplayAspectRatio"+        <*> o .:? "FixedGOP"+        <*> o .:? "FrameRate"+        <*> o .:? "KeyframesMaxDist"+        <*> o .:? "MaxFrameRate"+        <*> o .:? "MaxHeight"+        <*> o .:? "MaxWidth"+        <*> o .:? "PaddingPolicy"+        <*> o .:? "Resolution"+        <*> o .:? "SizingPolicy"+        <*> o .:  "Watermarks"++instance ToJSON VideoParameters where+    toJSON VideoParameters{..} = object+        [ "Codec"              .= _vpCodec+        , "CodecOptions"       .= _vpCodecOptions+        , "KeyframesMaxDist"   .= _vpKeyframesMaxDist+        , "FixedGOP"           .= _vpFixedGOP+        , "BitRate"            .= _vpBitRate+        , "FrameRate"          .= _vpFrameRate+        , "MaxFrameRate"       .= _vpMaxFrameRate+        , "Resolution"         .= _vpResolution+        , "AspectRatio"        .= _vpAspectRatio+        , "MaxWidth"           .= _vpMaxWidth+        , "MaxHeight"          .= _vpMaxHeight+        , "DisplayAspectRatio" .= _vpDisplayAspectRatio+        , "SizingPolicy"       .= _vpSizingPolicy+        , "PaddingPolicy"      .= _vpPaddingPolicy+        , "Watermarks"         .= _vpWatermarks+        ]++data Playlist = Playlist+    { _p2Format       :: Maybe Text+    , _p2Name         :: Maybe Text+    , _p2OutputKeys   :: List "OutputKeys" Text+    , _p2Status       :: Maybe Text+    , _p2StatusDetail :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Playlist' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'p2Format' @::@ 'Maybe' 'Text'+--+-- * 'p2Name' @::@ 'Maybe' 'Text'+--+-- * 'p2OutputKeys' @::@ ['Text']+--+-- * 'p2Status' @::@ 'Maybe' 'Text'+--+-- * 'p2StatusDetail' @::@ 'Maybe' 'Text'+--+playlist :: Playlist+playlist = Playlist+    { _p2Name         = Nothing+    , _p2Format       = Nothing+    , _p2OutputKeys   = mempty+    , _p2Status       = Nothing+    , _p2StatusDetail = Nothing+    }++-- | The format of the output playlist. Valid formats include HLSv3, HLSv4,+-- and Smooth.+p2Format :: Lens' Playlist (Maybe Text)+p2Format = lens _p2Format (\s a -> s { _p2Format = a })++-- | The name that you want Elastic Transcoder to assign to the master+-- playlist, for example, nyc-vacation.m3u8. If the name includes a /+-- character, the section of the name before the last / must be identical+-- for all Name objects. If you create more than one master playlist, the+-- values of all Name objects must be unique. Note: Elastic Transcoder+-- automatically appends the relevant file extension to the file name (.m3u8+-- for HLSv3 and HLSv4 playlists, and .ism and .ismc for Smooth playlists).+-- If you include a file extension in Name, the file name will have two+-- extensions.+p2Name :: Lens' Playlist (Maybe Text)+p2Name = lens _p2Name (\s a -> s { _p2Name = a })++-- | For each output in this job that you want to include in a master+-- playlist, the value of the Outputs:Key object. If your output is not HLS+-- or does not have a segment duration set, the name of the output file is a+-- concatenation of OutputKeyPrefix and Outputs:Key:+-- OutputKeyPrefixOutputs:Key If your output is HLSv3 and has a segment+-- duration set, or is not included in a playlist, Elastic Transcoder+-- creates an output playlist file with a file extension of .m3u8, and a+-- series of .ts files that include a five-digit sequential counter+-- beginning with 00000: OutputKeyPrefixOutputs:Key.m3u8+-- OutputKeyPrefixOutputs:Key00000.ts If your output is HLSv4, has a segment+-- duration set, and is included in an HLSv4 playlist, Elastic Transcoder+-- creates an output playlist file with a file extension of _v4.m3u8. If the+-- output is video, Elastic Transcoder also creates an output file with an+-- extension of _iframe.m3u8: OutputKeyPrefixOutputs:Key_v4.m3u8+-- OutputKeyPrefixOutputs:Key_iframe.m3u8 OutputKeyPrefixOutputs:Key.ts+-- Elastic Transcoder automatically appends the relevant file extension to+-- the file name. If you include a file extension in Output Key, the file+-- name will have two extensions. If you include more than one output in a+-- playlist, any segment duration settings, clip settings, or caption+-- settings must be the same for all outputs in the playlist. For Smooth+-- playlists, the Audio:Profile, Video:Profile, and Video:FrameRate to+-- Video:KeyframesMaxDist ratio must be the same for all outputs.+p2OutputKeys :: Lens' Playlist [Text]+p2OutputKeys = lens _p2OutputKeys (\s a -> s { _p2OutputKeys = a }) . _List++-- | The status of the job with which the playlist is associated.+p2Status :: Lens' Playlist (Maybe Text)+p2Status = lens _p2Status (\s a -> s { _p2Status = a })++-- | Information that further explains the status.+p2StatusDetail :: Lens' Playlist (Maybe Text)+p2StatusDetail = lens _p2StatusDetail (\s a -> s { _p2StatusDetail = a })++instance FromJSON Playlist where+    parseJSON = withObject "Playlist" $ \o -> Playlist+        <$> o .:? "Format"+        <*> o .:? "Name"+        <*> o .:  "OutputKeys"+        <*> o .:? "Status"+        <*> o .:? "StatusDetail"++instance ToJSON Playlist where+    toJSON Playlist{..} = object+        [ "Name"         .= _p2Name+        , "Format"       .= _p2Format+        , "OutputKeys"   .= _p2OutputKeys+        , "Status"       .= _p2Status+        , "StatusDetail" .= _p2StatusDetail+        ]++data Notifications = Notifications+    { _nCompleted   :: Maybe Text+    , _nError       :: Maybe Text+    , _nProgressing :: Maybe Text+    , _nWarning     :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Notifications' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'nCompleted' @::@ 'Maybe' 'Text'+--+-- * 'nError' @::@ 'Maybe' 'Text'+--+-- * 'nProgressing' @::@ 'Maybe' 'Text'+--+-- * 'nWarning' @::@ 'Maybe' 'Text'+--+notifications :: Notifications+notifications = Notifications+    { _nProgressing = Nothing+    , _nCompleted   = Nothing+    , _nWarning     = Nothing+    , _nError       = Nothing+    }++-- | The Amazon SNS topic that you want to notify when Elastic Transcoder has+-- finished processing the job.+nCompleted :: Lens' Notifications (Maybe Text)+nCompleted = lens _nCompleted (\s a -> s { _nCompleted = a })++-- | The Amazon SNS topic that you want to notify when Elastic Transcoder+-- encounters an error condition.+nError :: Lens' Notifications (Maybe Text)+nError = lens _nError (\s a -> s { _nError = a })++-- | The Amazon Simple Notification Service (Amazon SNS) topic that you want+-- to notify when Elastic Transcoder has started to process the job.+nProgressing :: Lens' Notifications (Maybe Text)+nProgressing = lens _nProgressing (\s a -> s { _nProgressing = a })++-- | The Amazon SNS topic that you want to notify when Elastic Transcoder+-- encounters a warning condition.+nWarning :: Lens' Notifications (Maybe Text)+nWarning = lens _nWarning (\s a -> s { _nWarning = a })++instance FromJSON Notifications where+    parseJSON = withObject "Notifications" $ \o -> Notifications+        <$> o .:? "Completed"+        <*> o .:? "Error"+        <*> o .:? "Progressing"+        <*> o .:? "Warning"++instance ToJSON Notifications where+    toJSON Notifications{..} = object+        [ "Progressing" .= _nProgressing+        , "Completed"   .= _nCompleted+        , "Warning"     .= _nWarning+        , "Error"       .= _nError+        ]++newtype Clip = Clip+    { _cTimeSpan :: Maybe TimeSpan+    } deriving (Eq, Show)++-- | 'Clip' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cTimeSpan' @::@ 'Maybe' 'TimeSpan'+--+clip :: Clip+clip = Clip+    { _cTimeSpan = Nothing+    }++-- | Settings that determine when a clip begins and how long it lasts.+cTimeSpan :: Lens' Clip (Maybe TimeSpan)+cTimeSpan = lens _cTimeSpan (\s a -> s { _cTimeSpan = a })++instance FromJSON Clip where+    parseJSON = withObject "Clip" $ \o -> Clip+        <$> o .:? "TimeSpan"++instance ToJSON Clip where+    toJSON Clip{..} = object+        [ "TimeSpan" .= _cTimeSpan+        ]++data JobInput = JobInput+    { _jiAspectRatio :: Maybe Text+    , _jiContainer   :: Maybe Text+    , _jiFrameRate   :: Maybe Text+    , _jiInterlaced  :: Maybe Text+    , _jiKey         :: Maybe Text+    , _jiResolution  :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'JobInput' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'jiAspectRatio' @::@ 'Maybe' 'Text'+--+-- * 'jiContainer' @::@ 'Maybe' 'Text'+--+-- * 'jiFrameRate' @::@ 'Maybe' 'Text'+--+-- * 'jiInterlaced' @::@ 'Maybe' 'Text'+--+-- * 'jiKey' @::@ 'Maybe' 'Text'+--+-- * 'jiResolution' @::@ 'Maybe' 'Text'+--+jobInput :: JobInput+jobInput = JobInput+    { _jiKey         = Nothing+    , _jiFrameRate   = Nothing+    , _jiResolution  = Nothing+    , _jiAspectRatio = Nothing+    , _jiInterlaced  = Nothing+    , _jiContainer   = Nothing+    }++-- | The aspect ratio of the input file. If you want Elastic Transcoder to+-- automatically detect the aspect ratio of the input file, specify auto. If+-- you want to specify the aspect ratio for the output file, enter one of+-- the following values: 1:1, 4:3, 3:2, 16:9 If you specify a value other+-- than auto, Elastic Transcoder disables automatic detection of the aspect+-- ratio.+jiAspectRatio :: Lens' JobInput (Maybe Text)+jiAspectRatio = lens _jiAspectRatio (\s a -> s { _jiAspectRatio = a })++-- | The container type for the input file. If you want Elastic Transcoder to+-- automatically detect the container type of the input file, specify auto.+-- If you want to specify the container type for the input file, enter one+-- of the following values: 3gp, aac, asf, avi, divx, flv, m4a, mkv, mov,+-- mp3, mp4, mpeg, mpeg-ps, mpeg-ts, mxf, ogg, vob, wav, webm.+jiContainer :: Lens' JobInput (Maybe Text)+jiContainer = lens _jiContainer (\s a -> s { _jiContainer = a })++-- | The frame rate of the input file. If you want Elastic Transcoder to+-- automatically detect the frame rate of the input file, specify auto. If+-- you want to specify the frame rate for the input file, enter one of the+-- following values: 10, 15, 23.97, 24, 25, 29.97, 30, 60 If you specify a+-- value other than auto, Elastic Transcoder disables automatic detection of+-- the frame rate.+jiFrameRate :: Lens' JobInput (Maybe Text)+jiFrameRate = lens _jiFrameRate (\s a -> s { _jiFrameRate = a })++-- | Whether the input file is interlaced. If you want Elastic Transcoder to+-- automatically detect whether the input file is interlaced, specify auto.+-- If you want to specify whether the input file is interlaced, enter one of+-- the following values: true, false If you specify a value other than auto,+-- Elastic Transcoder disables automatic detection of interlacing.+jiInterlaced :: Lens' JobInput (Maybe Text)+jiInterlaced = lens _jiInterlaced (\s a -> s { _jiInterlaced = a })++-- | The name of the file to transcode. Elsewhere in the body of the JSON+-- block is the the ID of the pipeline to use for processing the job. The+-- InputBucket object in that pipeline tells Elastic Transcoder which Amazon+-- S3 bucket to get the file from. If the file name includes a prefix, such+-- as cooking/lasagna.mpg, include the prefix in the key. If the file isn't+-- in the specified bucket, Elastic Transcoder returns an error.+jiKey :: Lens' JobInput (Maybe Text)+jiKey = lens _jiKey (\s a -> s { _jiKey = a })++-- | This value must be auto, which causes Elastic Transcoder to automatically+-- detect the resolution of the input file.+jiResolution :: Lens' JobInput (Maybe Text)+jiResolution = lens _jiResolution (\s a -> s { _jiResolution = a })++instance FromJSON JobInput where+    parseJSON = withObject "JobInput" $ \o -> JobInput+        <$> o .:? "AspectRatio"+        <*> o .:? "Container"+        <*> o .:? "FrameRate"+        <*> o .:? "Interlaced"+        <*> o .:? "Key"+        <*> o .:? "Resolution"++instance ToJSON JobInput where+    toJSON JobInput{..} = object+        [ "Key"         .= _jiKey+        , "FrameRate"   .= _jiFrameRate+        , "Resolution"  .= _jiResolution+        , "AspectRatio" .= _jiAspectRatio+        , "Interlaced"  .= _jiInterlaced+        , "Container"   .= _jiContainer+        ]
+ gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs view
@@ -0,0 +1,255 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.UpdatePipeline+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Use the UpdatePipeline operation to update settings for a pipeline. When+-- you change pipeline settings, your changes take effect immediately. Jobs+-- that you have already submitted and that Elastic Transcoder has not started+-- to process are affected in addition to jobs that you submit after you+-- change settings.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/UpdatePipeline.html>+module Network.AWS.ElasticTranscoder.UpdatePipeline+    (+    -- * Request+      UpdatePipeline+    -- ** Request constructor+    , updatePipeline+    -- ** Request lenses+    , upContentConfig+    , upId+    , upInputBucket+    , upName+    , upNotifications+    , upRole+    , upThumbnailConfig++    -- * Response+    , UpdatePipelineResponse+    -- ** Response constructor+    , updatePipelineResponse+    -- ** Response lenses+    , uprPipeline+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data UpdatePipeline = UpdatePipeline+    { _upContentConfig   :: Maybe PipelineOutputConfig+    , _upId              :: Text+    , _upInputBucket     :: Maybe Text+    , _upName            :: Maybe Text+    , _upNotifications   :: Maybe Notifications+    , _upRole            :: Maybe Text+    , _upThumbnailConfig :: Maybe PipelineOutputConfig+    } deriving (Eq, Show)++-- | 'UpdatePipeline' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'upContentConfig' @::@ 'Maybe' 'PipelineOutputConfig'+--+-- * 'upId' @::@ 'Text'+--+-- * 'upInputBucket' @::@ 'Maybe' 'Text'+--+-- * 'upName' @::@ 'Maybe' 'Text'+--+-- * 'upNotifications' @::@ 'Maybe' 'Notifications'+--+-- * 'upRole' @::@ 'Maybe' 'Text'+--+-- * 'upThumbnailConfig' @::@ 'Maybe' 'PipelineOutputConfig'+--+updatePipeline :: Text -- ^ 'upId'+               -> UpdatePipeline+updatePipeline p1 = UpdatePipeline+    { _upId              = p1+    , _upName            = Nothing+    , _upInputBucket     = Nothing+    , _upRole            = Nothing+    , _upNotifications   = Nothing+    , _upContentConfig   = Nothing+    , _upThumbnailConfig = Nothing+    }++-- | 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.+upContentConfig :: Lens' UpdatePipeline (Maybe PipelineOutputConfig)+upContentConfig = lens _upContentConfig (\s a -> s { _upContentConfig = a })++-- | The ID of the pipeline that you want to update.+upId :: Lens' UpdatePipeline Text+upId = lens _upId (\s a -> s { _upId = a })++-- | The Amazon S3 bucket in which you saved the media files that you want to+-- transcode and the graphics that you want to use as watermarks.+upInputBucket :: Lens' UpdatePipeline (Maybe Text)+upInputBucket = lens _upInputBucket (\s a -> s { _upInputBucket = a })++-- | 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.+upName :: Lens' UpdatePipeline (Maybe Text)+upName = lens _upName (\s a -> s { _upName = a })++upNotifications :: Lens' UpdatePipeline (Maybe Notifications)+upNotifications = lens _upNotifications (\s a -> s { _upNotifications = a })++-- | The IAM Amazon Resource Name (ARN) for the role that you want Elastic+-- Transcoder to use to transcode jobs for this pipeline.+upRole :: Lens' UpdatePipeline (Maybe Text)+upRole = lens _upRole (\s a -> s { _upRole = a })++-- | 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.+upThumbnailConfig :: Lens' UpdatePipeline (Maybe PipelineOutputConfig)+upThumbnailConfig =+    lens _upThumbnailConfig (\s a -> s { _upThumbnailConfig = a })++newtype UpdatePipelineResponse = UpdatePipelineResponse+    { _uprPipeline :: Maybe Pipeline+    } deriving (Eq, Show)++-- | 'UpdatePipelineResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'uprPipeline' @::@ 'Maybe' 'Pipeline'+--+updatePipelineResponse :: UpdatePipelineResponse+updatePipelineResponse = UpdatePipelineResponse+    { _uprPipeline = Nothing+    }++uprPipeline :: Lens' UpdatePipelineResponse (Maybe Pipeline)+uprPipeline = lens _uprPipeline (\s a -> s { _uprPipeline = a })++instance ToPath UpdatePipeline where+    toPath UpdatePipeline{..} = mconcat+        [ "/2012-09-25/pipelines/"+        , toText _upId+        ]++instance ToQuery UpdatePipeline where+    toQuery = const mempty++instance ToHeaders UpdatePipeline++instance ToJSON UpdatePipeline where+    toJSON UpdatePipeline{..} = object+        [ "Name"            .= _upName+        , "InputBucket"     .= _upInputBucket+        , "Role"            .= _upRole+        , "Notifications"   .= _upNotifications+        , "ContentConfig"   .= _upContentConfig+        , "ThumbnailConfig" .= _upThumbnailConfig+        ]++instance AWSRequest UpdatePipeline where+    type Sv UpdatePipeline = ElasticTranscoder+    type Rs UpdatePipeline = UpdatePipelineResponse++    request  = put+    response = jsonResponse++instance FromJSON UpdatePipelineResponse where+    parseJSON = withObject "UpdatePipelineResponse" $ \o -> UpdatePipelineResponse+        <$> o .:? "Pipeline"
+ gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.UpdatePipelineNotifications+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | With the UpdatePipelineNotifications operation, you can update Amazon+-- Simple Notification Service (Amazon SNS) notifications for a pipeline. When+-- you update notifications for a pipeline, Elastic Transcoder returns the+-- values that you specified in the request.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/UpdatePipelineNotifications.html>+module Network.AWS.ElasticTranscoder.UpdatePipelineNotifications+    (+    -- * Request+      UpdatePipelineNotifications+    -- ** Request constructor+    , updatePipelineNotifications+    -- ** Request lenses+    , upnId+    , upnNotifications++    -- * Response+    , UpdatePipelineNotificationsResponse+    -- ** Response constructor+    , updatePipelineNotificationsResponse+    -- ** Response lenses+    , upnrPipeline+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data UpdatePipelineNotifications = UpdatePipelineNotifications+    { _upnId            :: Text+    , _upnNotifications :: Notifications+    } deriving (Eq, Show)++-- | 'UpdatePipelineNotifications' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'upnId' @::@ 'Text'+--+-- * 'upnNotifications' @::@ 'Notifications'+--+updatePipelineNotifications :: Text -- ^ 'upnId'+                            -> Notifications -- ^ 'upnNotifications'+                            -> UpdatePipelineNotifications+updatePipelineNotifications p1 p2 = UpdatePipelineNotifications+    { _upnId            = p1+    , _upnNotifications = p2+    }++-- | The identifier of the pipeline for which you want to change notification+-- settings.+upnId :: Lens' UpdatePipelineNotifications Text+upnId = lens _upnId (\s a -> s { _upnId = a })++-- | The topic ARN for 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 jobs that are added to this pipeline.+-- This is the ARN that Amazon SNS returned when you created the topic.+-- Completed: The topic ARN for the Amazon SNS topic that you want to notify+-- when Elastic Transcoder has finished processing a job. 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. 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. This is the ARN that Amazon SNS returned+-- when you created the topic.+upnNotifications :: Lens' UpdatePipelineNotifications Notifications+upnNotifications = lens _upnNotifications (\s a -> s { _upnNotifications = a })++newtype UpdatePipelineNotificationsResponse = UpdatePipelineNotificationsResponse+    { _upnrPipeline :: Maybe Pipeline+    } deriving (Eq, Show)++-- | 'UpdatePipelineNotificationsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'upnrPipeline' @::@ 'Maybe' 'Pipeline'+--+updatePipelineNotificationsResponse :: UpdatePipelineNotificationsResponse+updatePipelineNotificationsResponse = UpdatePipelineNotificationsResponse+    { _upnrPipeline = Nothing+    }++-- | A section of the response body that provides information about the+-- pipeline.+upnrPipeline :: Lens' UpdatePipelineNotificationsResponse (Maybe Pipeline)+upnrPipeline = lens _upnrPipeline (\s a -> s { _upnrPipeline = a })++instance ToPath UpdatePipelineNotifications where+    toPath UpdatePipelineNotifications{..} = mconcat+        [ "/2012-09-25/pipelines/"+        , toText _upnId+        , "/notifications"+        ]++instance ToQuery UpdatePipelineNotifications where+    toQuery = const mempty++instance ToHeaders UpdatePipelineNotifications++instance ToJSON UpdatePipelineNotifications where+    toJSON UpdatePipelineNotifications{..} = object+        [ "Notifications" .= _upnNotifications+        ]++instance AWSRequest UpdatePipelineNotifications where+    type Sv UpdatePipelineNotifications = ElasticTranscoder+    type Rs UpdatePipelineNotifications = UpdatePipelineNotificationsResponse++    request  = post+    response = jsonResponse++instance FromJSON UpdatePipelineNotificationsResponse where+    parseJSON = withObject "UpdatePipelineNotificationsResponse" $ \o -> UpdatePipelineNotificationsResponse+        <$> o .:? "Pipeline"
+ gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ElasticTranscoder.UpdatePipelineStatus+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | The UpdatePipelineStatus operation pauses or reactivates a pipeline, so+-- that the pipeline stops or restarts the processing of jobs. Changing the+-- pipeline status is useful if you want to cancel one or more jobs. You can't+-- cancel jobs after Elastic Transcoder has started processing them; if you+-- pause the pipeline to which you submitted the jobs, you have more time to+-- get the job IDs for the jobs that you want to cancel, and to send a+-- CancelJob request.+--+-- <http://docs.aws.amazon.com/elastictranscoder/latest/developerguide/UpdatePipelineStatus.html>+module Network.AWS.ElasticTranscoder.UpdatePipelineStatus+    (+    -- * Request+      UpdatePipelineStatus+    -- ** Request constructor+    , updatePipelineStatus+    -- ** Request lenses+    , upsId+    , upsStatus++    -- * Response+    , UpdatePipelineStatusResponse+    -- ** Response constructor+    , updatePipelineStatusResponse+    -- ** Response lenses+    , upsrPipeline+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.RestJSON+import Network.AWS.ElasticTranscoder.Types+import qualified GHC.Exts++data UpdatePipelineStatus = UpdatePipelineStatus+    { _upsId     :: Text+    , _upsStatus :: Text+    } deriving (Eq, Ord, Show)++-- | 'UpdatePipelineStatus' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'upsId' @::@ 'Text'+--+-- * 'upsStatus' @::@ 'Text'+--+updatePipelineStatus :: Text -- ^ 'upsId'+                     -> Text -- ^ 'upsStatus'+                     -> UpdatePipelineStatus+updatePipelineStatus p1 p2 = UpdatePipelineStatus+    { _upsId     = p1+    , _upsStatus = p2+    }++-- | The identifier of the pipeline to update.+upsId :: Lens' UpdatePipelineStatus Text+upsId = lens _upsId (\s a -> s { _upsId = a })++-- | The desired status of the pipeline: Active: The pipeline is processing+-- jobs. Paused: The pipeline is not currently processing jobs.+upsStatus :: Lens' UpdatePipelineStatus Text+upsStatus = lens _upsStatus (\s a -> s { _upsStatus = a })++newtype UpdatePipelineStatusResponse = UpdatePipelineStatusResponse+    { _upsrPipeline :: Maybe Pipeline+    } deriving (Eq, Show)++-- | 'UpdatePipelineStatusResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'upsrPipeline' @::@ 'Maybe' 'Pipeline'+--+updatePipelineStatusResponse :: UpdatePipelineStatusResponse+updatePipelineStatusResponse = UpdatePipelineStatusResponse+    { _upsrPipeline = Nothing+    }++-- | A section of the response body that provides information about the+-- pipeline.+upsrPipeline :: Lens' UpdatePipelineStatusResponse (Maybe Pipeline)+upsrPipeline = lens _upsrPipeline (\s a -> s { _upsrPipeline = a })++instance ToPath UpdatePipelineStatus where+    toPath UpdatePipelineStatus{..} = mconcat+        [ "/2012-09-25/pipelines/"+        , toText _upsId+        , "/status"+        ]++instance ToQuery UpdatePipelineStatus where+    toQuery = const mempty++instance ToHeaders UpdatePipelineStatus++instance ToJSON UpdatePipelineStatus where+    toJSON UpdatePipelineStatus{..} = object+        [ "Status" .= _upsStatus+        ]++instance AWSRequest UpdatePipelineStatus where+    type Sv UpdatePipelineStatus = ElasticTranscoder+    type Rs UpdatePipelineStatus = UpdatePipelineStatusResponse++    request  = post+    response = jsonResponse++instance FromJSON UpdatePipelineStatusResponse where+    parseJSON = withObject "UpdatePipelineStatusResponse" $ \o -> UpdatePipelineStatusResponse+        <$> o .:? "Pipeline"