amazonka-elastictranscoder 1.2.0.2 → 1.3.0

raw patch · 23 files changed

+716/−716 lines, 23 filesdep ~amazonka-coredep ~amazonka-elastictranscoderdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-elastictranscoder.cabal +5/−5
• gen/Network/AWS/ElasticTranscoder.hs +39/−39
• gen/Network/AWS/ElasticTranscoder/CancelJob.hs +8/−8
• gen/Network/AWS/ElasticTranscoder/CreateJob.hs +24/−24
• gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs +43/−43
• gen/Network/AWS/ElasticTranscoder/CreatePreset.hs +20/−21
• gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs +8/−8
• gen/Network/AWS/ElasticTranscoder/DeletePreset.hs +8/−8
• gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs +10/−10
• gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs +10/−10
• gen/Network/AWS/ElasticTranscoder/ListPipelines.hs +10/−10
• gen/Network/AWS/ElasticTranscoder/ListPresets.hs +10/−10
• gen/Network/AWS/ElasticTranscoder/ReadJob.hs +9/−9
• gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs +10/−10
• gen/Network/AWS/ElasticTranscoder/ReadPreset.hs +9/−9
• gen/Network/AWS/ElasticTranscoder/TestRole.hs +10/−10
• gen/Network/AWS/ElasticTranscoder/Types.hs +40/−40
• gen/Network/AWS/ElasticTranscoder/Types/Product.hs +367/−366
• gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs +21/−21
• gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs +9/−9
• gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs +9/−9
• test/Test/AWS/Gen/ElasticTranscoder.hs +36/−36

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-elastictranscoder-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Elastic Transcoder SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -68,7 +68,7 @@         , Network.AWS.ElasticTranscoder.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-elastictranscoder-test@@ -88,9 +88,9 @@         , Test.AWS.ElasticTranscoder.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-elastictranscoder == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-elastictranscoder == 1.3.0.*         , base         , bytestring         , lens

@@ -24,12 +24,12 @@     -- * Errors     -- $errors -    -- ** ValidationException-    , _ValidationException-     -- ** IncompatibleVersionException     , _IncompatibleVersionException +    -- ** ValidationException+    , _ValidationException+     -- ** AccessDeniedException     , _AccessDeniedException @@ -39,12 +39,12 @@     -- ** ResourceNotFoundException     , _ResourceNotFoundException -    -- ** ResourceInUseException-    , _ResourceInUseException-     -- ** LimitExceededException     , _LimitExceededException +    -- ** ResourceInUseException+    , _ResourceInUseException+     -- * Waiters     -- $waiters @@ -57,12 +57,12 @@     -- ** DeletePreset     , module Network.AWS.ElasticTranscoder.DeletePreset -    -- ** ListJobsByPipeline (Paginated)-    , module Network.AWS.ElasticTranscoder.ListJobsByPipeline-     -- ** UpdatePipelineStatus     , module Network.AWS.ElasticTranscoder.UpdatePipelineStatus +    -- ** ListJobsByPipeline (Paginated)+    , module Network.AWS.ElasticTranscoder.ListJobsByPipeline+     -- ** TestRole     , module Network.AWS.ElasticTranscoder.TestRole @@ -87,12 +87,12 @@     -- ** ReadPreset     , module Network.AWS.ElasticTranscoder.ReadPreset -    -- ** UpdatePipelineNotifications-    , module Network.AWS.ElasticTranscoder.UpdatePipelineNotifications-     -- ** ReadJob     , module Network.AWS.ElasticTranscoder.ReadJob +    -- ** UpdatePipelineNotifications+    , module Network.AWS.ElasticTranscoder.UpdatePipelineNotifications+     -- ** ReadPipeline     , module Network.AWS.ElasticTranscoder.ReadPipeline @@ -111,8 +111,8 @@     , Artwork     , artwork     , aSizingPolicy-    , aMaxHeight     , aAlbumArtFormat+    , aMaxHeight     , aInputKey     , aPaddingPolicy     , aEncryption@@ -121,8 +121,8 @@     -- ** AudioCodecOptions     , AudioCodecOptions     , audioCodecOptions-    , acoBitDepth     , acoSigned+    , acoBitDepth     , acoProfile     , acoBitOrder @@ -147,8 +147,8 @@     , CaptionSource     , captionSource     , csTimeOffset-    , csKey     , csEncryption+    , csKey     , csLanguage     , csLabel @@ -173,8 +173,8 @@     , cjoComposition     , cjoAlbumArt     , cjoWatermarks-    , cjoKey     , cjoEncryption+    , cjoKey     , cjoSegmentDuration     , cjoThumbnailEncryption     , cjoRotate@@ -183,8 +183,8 @@     , CreateJobPlaylist     , createJobPlaylist     , cjpPlayReadyDrm-    , cjpOutputKeys     , cjpFormat+    , cjpOutputKeys     , cjpName     , cjpHlsContentProtection @@ -200,8 +200,8 @@     -- ** Encryption     , Encryption     , encryption-    , eKeyMD5     , eMode+    , eKeyMD5     , eKey     , eInitializationVector @@ -212,8 +212,8 @@     , hcpKeyStoragePolicy     , hcpKey     , hcpMethod-    , hcpLicenseAcquisitionURL     , hcpInitializationVector+    , hcpLicenseAcquisitionURL      -- ** Job'     , Job'@@ -222,13 +222,13 @@     , jPipelineId     , jARN     , jInput-    , jOutputs     , jUserMetadata+    , jOutputs     , jOutput     , jId     , jPlaylists-    , jTiming     , jOutputKeyPrefix+    , jTiming      -- ** JobAlbumArt     , JobAlbumArt@@ -242,9 +242,9 @@     , jiFrameRate     , jiResolution     , jiAspectRatio+    , jiEncryption     , jiKey     , jiDetectedProperties-    , jiEncryption     , jiContainer     , jiInterlaced @@ -252,8 +252,8 @@     , JobOutput     , jobOutput     , joAppliedColorSpaceConversion-    , joStatus     , joThumbnailPattern+    , joStatus     , joHeight     , joFrameRate     , joCaptions@@ -263,11 +263,11 @@     , joFileSize     , joWatermarks     , joWidth-    , joKey     , joEncryption+    , joKey+    , joStatusDetail     , joId     , joSegmentDuration-    , joStatusDetail     , joDurationMillis     , joThumbnailEncryption     , joDuration@@ -285,8 +285,8 @@     , notifications     , nError     , nWarning-    , nCompleted     , nProgressing+    , nCompleted      -- ** Permission     , Permission@@ -307,8 +307,8 @@     , pipName     , pipAWSKMSKeyARN     , pipId-    , pipThumbnailConfig     , pipNotifications+    , pipThumbnailConfig      -- ** PipelineOutputConfig     , PipelineOutputConfig@@ -321,43 +321,43 @@     , PlayReadyDrm     , playReadyDrm     , prdKeyId-    , prdKeyMD5     , prdFormat+    , prdKeyMD5     , prdKey-    , prdLicenseAcquisitionURL     , prdInitializationVector+    , prdLicenseAcquisitionURL      -- ** Playlist     , Playlist     , playlist-    , pPlayReadyDrm     , pStatus-    , pOutputKeys+    , pPlayReadyDrm     , pFormat+    , pOutputKeys     , pName-    , pHlsContentProtection     , pStatusDetail+    , pHlsContentProtection      -- ** Preset     , Preset     , preset     , preARN     , preVideo-    , preName     , preThumbnails+    , preName     , preContainer     , preId     , preType-    , preAudio     , preDescription+    , preAudio      -- ** PresetWatermark     , PresetWatermark     , presetWatermark     , pwVerticalAlign     , pwSizingPolicy-    , pwMaxHeight     , pwHorizontalOffset+    , pwMaxHeight     , pwOpacity     , pwVerticalOffset     , pwMaxWidth@@ -372,8 +372,8 @@     , tFormat     , tMaxHeight     , tResolution-    , tPaddingPolicy     , tAspectRatio+    , tPaddingPolicy     , tInterval     , tMaxWidth @@ -398,12 +398,12 @@     , vpSizingPolicy     , vpMaxFrameRate     , vpMaxHeight-    , vpDisplayAspectRatio     , vpWatermarks-    , vpCodec+    , vpDisplayAspectRatio     , vpResolution-    , vpPaddingPolicy+    , vpCodec     , vpAspectRatio+    , vpPaddingPolicy     , vpMaxWidth     , vpBitRate     , vpFixedGOP

@@ -37,7 +37,7 @@     , cancelJobResponse     , CancelJobResponse     -- * Response Lenses-    , canrsStatus+    , canrsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -96,22 +96,22 @@ -- -- /See:/ 'cancelJobResponse' smart constructor. newtype CancelJobResponse = CancelJobResponse'-    { _canrsStatus :: Int+    { _canrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CancelJobResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'canrsStatus'+-- * 'canrsResponseStatus' cancelJobResponse-    :: Int -- ^ 'canrsStatus'+    :: Int -- ^ 'canrsResponseStatus'     -> CancelJobResponse-cancelJobResponse pStatus_ =+cancelJobResponse pResponseStatus_ =     CancelJobResponse'-    { _canrsStatus = pStatus_+    { _canrsResponseStatus = pResponseStatus_     }  -- | The response status code.-canrsStatus :: Lens' CancelJobResponse Int-canrsStatus = lens _canrsStatus (\ s a -> s{_canrsStatus = a});+canrsResponseStatus :: Lens' CancelJobResponse Int+canrsResponseStatus = lens _canrsResponseStatus (\ s a -> s{_canrsResponseStatus = a});

@@ -34,8 +34,8 @@       createJob     , CreateJob     -- * Request Lenses-    , cjOutputs     , cjUserMetadata+    , cjOutputs     , cjOutput     , cjPlaylists     , cjOutputKeyPrefix@@ -47,7 +47,7 @@     , CreateJobResponse     -- * Response Lenses     , cjrsJob-    , cjrsStatus+    , cjrsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -60,8 +60,8 @@ -- -- /See:/ 'createJob' smart constructor. data CreateJob = CreateJob'-    { _cjOutputs         :: !(Maybe [CreateJobOutput])-    , _cjUserMetadata    :: !(Maybe (Map Text Text))+    { _cjUserMetadata    :: !(Maybe (Map Text Text))+    , _cjOutputs         :: !(Maybe [CreateJobOutput])     , _cjOutput          :: !(Maybe CreateJobOutput)     , _cjPlaylists       :: !(Maybe [CreateJobPlaylist])     , _cjOutputKeyPrefix :: !(Maybe Text)@@ -73,10 +73,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cjOutputs'--- -- * 'cjUserMetadata' --+-- * 'cjOutputs'+-- -- * 'cjOutput' -- -- * 'cjPlaylists'@@ -92,8 +92,8 @@     -> CreateJob createJob pPipelineId_ pInput_ =     CreateJob'-    { _cjOutputs = Nothing-    , _cjUserMetadata = Nothing+    { _cjUserMetadata = Nothing+    , _cjOutputs = Nothing     , _cjOutput = Nothing     , _cjPlaylists = Nothing     , _cjOutputKeyPrefix = Nothing@@ -101,12 +101,6 @@     , _cjInput = pInput_     } --- | 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}) . _Default . _Coerce;- -- | User-defined metadata that you want to associate with an Elastic -- Transcoder job. You specify metadata in 'key\/value' pairs, and you can -- add up to 10 'key\/value' pairs per job. Elastic Transcoder does not@@ -115,6 +109,12 @@ cjUserMetadata :: Lens' CreateJob (HashMap Text Text) cjUserMetadata = lens _cjUserMetadata (\ s a -> s{_cjUserMetadata = a}) . _Default . _Map; +-- | 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}) . _Default . _Coerce;+ -- | Undocumented member. cjOutput :: Lens' CreateJob (Maybe CreateJobOutput) cjOutput = lens _cjOutput (\ s a -> s{_cjOutput = a});@@ -162,8 +162,8 @@         toJSON CreateJob'{..}           = object               (catMaybes-                 [("Outputs" .=) <$> _cjOutputs,-                  ("UserMetadata" .=) <$> _cjUserMetadata,+                 [("UserMetadata" .=) <$> _cjUserMetadata,+                  ("Outputs" .=) <$> _cjOutputs,                   ("Output" .=) <$> _cjOutput,                   ("Playlists" .=) <$> _cjPlaylists,                   ("OutputKeyPrefix" .=) <$> _cjOutputKeyPrefix,@@ -180,8 +180,8 @@ -- -- /See:/ 'createJobResponse' smart constructor. data CreateJobResponse = CreateJobResponse'-    { _cjrsJob    :: !(Maybe Job')-    , _cjrsStatus :: !Int+    { _cjrsJob            :: !(Maybe Job')+    , _cjrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateJobResponse' with the minimum fields required to make a request.@@ -190,14 +190,14 @@ -- -- * 'cjrsJob' ----- * 'cjrsStatus'+-- * 'cjrsResponseStatus' createJobResponse-    :: Int -- ^ 'cjrsStatus'+    :: Int -- ^ 'cjrsResponseStatus'     -> CreateJobResponse-createJobResponse pStatus_ =+createJobResponse pResponseStatus_ =     CreateJobResponse'     { _cjrsJob = Nothing-    , _cjrsStatus = pStatus_+    , _cjrsResponseStatus = pResponseStatus_     }  -- | A section of the response body that provides information about the job@@ -206,5 +206,5 @@ cjrsJob = lens _cjrsJob (\ s a -> s{_cjrsJob = a});  -- | The response status code.-cjrsStatus :: Lens' CreateJobResponse Int-cjrsStatus = lens _cjrsStatus (\ s a -> s{_cjrsStatus = a});+cjrsResponseStatus :: Lens' CreateJobResponse Int+cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a});

@@ -31,8 +31,8 @@     , cContentConfig     , cOutputBucket     , cAWSKMSKeyARN-    , cThumbnailConfig     , cNotifications+    , cThumbnailConfig     , cName     , cInputBucket     , cRole@@ -43,7 +43,7 @@     -- * Response Lenses     , crsWarnings     , crsPipeline-    , crsStatus+    , crsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -59,8 +59,8 @@     { _cContentConfig   :: !(Maybe PipelineOutputConfig)     , _cOutputBucket    :: !(Maybe Text)     , _cAWSKMSKeyARN    :: !(Maybe Text)-    , _cThumbnailConfig :: !(Maybe PipelineOutputConfig)     , _cNotifications   :: !(Maybe Notifications)+    , _cThumbnailConfig :: !(Maybe PipelineOutputConfig)     , _cName            :: !Text     , _cInputBucket     :: !Text     , _cRole            :: !Text@@ -76,10 +76,10 @@ -- -- * 'cAWSKMSKeyARN' ----- * 'cThumbnailConfig'--- -- * 'cNotifications' --+-- * 'cThumbnailConfig'+-- -- * 'cName' -- -- * 'cInputBucket'@@ -95,8 +95,8 @@     { _cContentConfig = Nothing     , _cOutputBucket = Nothing     , _cAWSKMSKeyARN = Nothing-    , _cThumbnailConfig = Nothing     , _cNotifications = Nothing+    , _cThumbnailConfig = Nothing     , _cName = pName_     , _cInputBucket = pInputBucket_     , _cRole = pRole_@@ -200,6 +200,33 @@ cAWSKMSKeyARN :: Lens' CreatePipeline (Maybe Text) cAWSKMSKeyARN = lens _cAWSKMSKeyARN (\ s a -> s{_cAWSKMSKeyARN = 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.+cNotifications :: Lens' CreatePipeline (Maybe Notifications)+cNotifications = lens _cNotifications (\ s a -> s{_cNotifications = 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@@ -254,33 +281,6 @@ cThumbnailConfig :: Lens' CreatePipeline (Maybe PipelineOutputConfig) cThumbnailConfig = lens _cThumbnailConfig (\ s a -> s{_cThumbnailConfig = 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.-cNotifications :: Lens' CreatePipeline (Maybe Notifications)-cNotifications = lens _cNotifications (\ s a -> s{_cNotifications = a});- -- | The name of the pipeline. We recommend that the name be unique within -- the AWS account, but uniqueness is not enforced. --@@ -318,8 +318,8 @@                  [("ContentConfig" .=) <$> _cContentConfig,                   ("OutputBucket" .=) <$> _cOutputBucket,                   ("AwsKmsKeyArn" .=) <$> _cAWSKMSKeyARN,-                  ("ThumbnailConfig" .=) <$> _cThumbnailConfig,                   ("Notifications" .=) <$> _cNotifications,+                  ("ThumbnailConfig" .=) <$> _cThumbnailConfig,                   Just ("Name" .= _cName),                   Just ("InputBucket" .= _cInputBucket),                   Just ("Role" .= _cRole)])@@ -335,9 +335,9 @@ -- -- /See:/ 'createPipelineResponse' smart constructor. data CreatePipelineResponse = CreatePipelineResponse'-    { _crsWarnings :: !(Maybe [Warning])-    , _crsPipeline :: !(Maybe Pipeline)-    , _crsStatus   :: !Int+    { _crsWarnings       :: !(Maybe [Warning])+    , _crsPipeline       :: !(Maybe Pipeline)+    , _crsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreatePipelineResponse' with the minimum fields required to make a request.@@ -348,15 +348,15 @@ -- -- * 'crsPipeline' ----- * 'crsStatus'+-- * 'crsResponseStatus' createPipelineResponse-    :: Int -- ^ 'crsStatus'+    :: Int -- ^ 'crsResponseStatus'     -> CreatePipelineResponse-createPipelineResponse pStatus_ =+createPipelineResponse pResponseStatus_ =     CreatePipelineResponse'     { _crsWarnings = Nothing     , _crsPipeline = Nothing-    , _crsStatus = pStatus_+    , _crsResponseStatus = pResponseStatus_     }  -- | Elastic Transcoder returns a warning if the resources used by your@@ -374,5 +374,5 @@ crsPipeline = lens _crsPipeline (\ s a -> s{_crsPipeline = a});  -- | The response status code.-crsStatus :: Lens' CreatePipelineResponse Int-crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});+crsResponseStatus :: Lens' CreatePipelineResponse Int+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});

@@ -46,8 +46,8 @@     -- * Request Lenses     , cpVideo     , cpThumbnails-    , cpAudio     , cpDescription+    , cpAudio     , cpName     , cpContainer @@ -57,7 +57,7 @@     -- * Response Lenses     , cprsWarning     , cprsPreset-    , cprsStatus+    , cprsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -72,8 +72,8 @@ data CreatePreset = CreatePreset'     { _cpVideo       :: !(Maybe VideoParameters)     , _cpThumbnails  :: !(Maybe Thumbnails)-    , _cpAudio       :: !(Maybe AudioParameters)     , _cpDescription :: !(Maybe Text)+    , _cpAudio       :: !(Maybe AudioParameters)     , _cpName        :: !Text     , _cpContainer   :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -86,10 +86,10 @@ -- -- * 'cpThumbnails' ----- * 'cpAudio'--- -- * 'cpDescription' --+-- * 'cpAudio'+-- -- * 'cpName' -- -- * 'cpContainer'@@ -101,8 +101,8 @@     CreatePreset'     { _cpVideo = Nothing     , _cpThumbnails = Nothing-    , _cpAudio = Nothing     , _cpDescription = Nothing+    , _cpAudio = Nothing     , _cpName = pName_     , _cpContainer = pContainer_     }@@ -116,14 +116,14 @@ cpThumbnails :: Lens' CreatePreset (Maybe Thumbnails) cpThumbnails = lens _cpThumbnails (\ s a -> s{_cpThumbnails = a}); --- | A section of the request body that specifies the audio parameters.-cpAudio :: Lens' CreatePreset (Maybe AudioParameters)-cpAudio = lens _cpAudio (\ s a -> s{_cpAudio = a});- -- | A description of the preset. cpDescription :: Lens' CreatePreset (Maybe Text) cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a}); +-- | 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 name of the preset. We recommend that the name be unique within the -- AWS account, but uniqueness is not enforced. cpName :: Lens' CreatePreset Text@@ -154,9 +154,8 @@               (catMaybes                  [("Video" .=) <$> _cpVideo,                   ("Thumbnails" .=) <$> _cpThumbnails,-                  ("Audio" .=) <$> _cpAudio,                   ("Description" .=) <$> _cpDescription,-                  Just ("Name" .= _cpName),+                  ("Audio" .=) <$> _cpAudio, Just ("Name" .= _cpName),                   Just ("Container" .= _cpContainer)])  instance ToPath CreatePreset where@@ -169,9 +168,9 @@ -- -- /See:/ 'createPresetResponse' smart constructor. data CreatePresetResponse = CreatePresetResponse'-    { _cprsWarning :: !(Maybe Text)-    , _cprsPreset  :: !(Maybe Preset)-    , _cprsStatus  :: !Int+    { _cprsWarning        :: !(Maybe Text)+    , _cprsPreset         :: !(Maybe Preset)+    , _cprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreatePresetResponse' with the minimum fields required to make a request.@@ -182,15 +181,15 @@ -- -- * 'cprsPreset' ----- * 'cprsStatus'+-- * 'cprsResponseStatus' createPresetResponse-    :: Int -- ^ 'cprsStatus'+    :: Int -- ^ 'cprsResponseStatus'     -> CreatePresetResponse-createPresetResponse pStatus_ =+createPresetResponse pResponseStatus_ =     CreatePresetResponse'     { _cprsWarning = Nothing     , _cprsPreset = Nothing-    , _cprsStatus = pStatus_+    , _cprsResponseStatus = pResponseStatus_     }  -- | If the preset settings don\'t comply with the standards for the video@@ -207,5 +206,5 @@ cprsPreset = lens _cprsPreset (\ s a -> s{_cprsPreset = a});  -- | The response status code.-cprsStatus :: Lens' CreatePresetResponse Int-cprsStatus = lens _cprsStatus (\ s a -> s{_cprsStatus = a});+cprsResponseStatus :: Lens' CreatePresetResponse Int+cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});

@@ -37,7 +37,7 @@     , deletePipelineResponse     , DeletePipelineResponse     -- * Response Lenses-    , drsStatus+    , drsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -92,22 +92,22 @@ -- -- /See:/ 'deletePipelineResponse' smart constructor. newtype DeletePipelineResponse = DeletePipelineResponse'-    { _drsStatus :: Int+    { _drsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeletePipelineResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsStatus'+-- * 'drsResponseStatus' deletePipelineResponse-    :: Int -- ^ 'drsStatus'+    :: Int -- ^ 'drsResponseStatus'     -> DeletePipelineResponse-deletePipelineResponse pStatus_ =+deletePipelineResponse pResponseStatus_ =     DeletePipelineResponse'-    { _drsStatus = pStatus_+    { _drsResponseStatus = pResponseStatus_     }  -- | The response status code.-drsStatus :: Lens' DeletePipelineResponse Int-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+drsResponseStatus :: Lens' DeletePipelineResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -37,7 +37,7 @@     , deletePresetResponse     , DeletePresetResponse     -- * Response Lenses-    , dprsStatus+    , dprsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -93,22 +93,22 @@ -- -- /See:/ 'deletePresetResponse' smart constructor. newtype DeletePresetResponse = DeletePresetResponse'-    { _dprsStatus :: Int+    { _dprsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeletePresetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dprsStatus'+-- * 'dprsResponseStatus' deletePresetResponse-    :: Int -- ^ 'dprsStatus'+    :: Int -- ^ 'dprsResponseStatus'     -> DeletePresetResponse-deletePresetResponse pStatus_ =+deletePresetResponse pResponseStatus_ =     DeletePresetResponse'-    { _dprsStatus = pStatus_+    { _dprsResponseStatus = pResponseStatus_     }  -- | The response status code.-dprsStatus :: Lens' DeletePresetResponse Int-dprsStatus = lens _dprsStatus (\ s a -> s{_dprsStatus = a});+dprsResponseStatus :: Lens' DeletePresetResponse Int+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});

@@ -44,7 +44,7 @@     -- * Response Lenses     , ljbprsNextPageToken     , ljbprsJobs-    , ljbprsStatus+    , ljbprsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -135,9 +135,9 @@ -- -- /See:/ 'listJobsByPipelineResponse' smart constructor. data ListJobsByPipelineResponse = ListJobsByPipelineResponse'-    { _ljbprsNextPageToken :: !(Maybe Text)-    , _ljbprsJobs          :: !(Maybe [Job'])-    , _ljbprsStatus        :: !Int+    { _ljbprsNextPageToken  :: !(Maybe Text)+    , _ljbprsJobs           :: !(Maybe [Job'])+    , _ljbprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListJobsByPipelineResponse' with the minimum fields required to make a request.@@ -148,15 +148,15 @@ -- -- * 'ljbprsJobs' ----- * 'ljbprsStatus'+-- * 'ljbprsResponseStatus' listJobsByPipelineResponse-    :: Int -- ^ 'ljbprsStatus'+    :: Int -- ^ 'ljbprsResponseStatus'     -> ListJobsByPipelineResponse-listJobsByPipelineResponse pStatus_ =+listJobsByPipelineResponse pResponseStatus_ =     ListJobsByPipelineResponse'     { _ljbprsNextPageToken = Nothing     , _ljbprsJobs = Nothing-    , _ljbprsStatus = pStatus_+    , _ljbprsResponseStatus = pResponseStatus_     }  -- | A value that you use to access the second and subsequent pages of@@ -171,5 +171,5 @@ ljbprsJobs = lens _ljbprsJobs (\ s a -> s{_ljbprsJobs = a}) . _Default . _Coerce;  -- | The response status code.-ljbprsStatus :: Lens' ListJobsByPipelineResponse Int-ljbprsStatus = lens _ljbprsStatus (\ s a -> s{_ljbprsStatus = a});+ljbprsResponseStatus :: Lens' ListJobsByPipelineResponse Int+ljbprsResponseStatus = lens _ljbprsResponseStatus (\ s a -> s{_ljbprsResponseStatus = a});

@@ -41,7 +41,7 @@     -- * Response Lenses     , ljbsrsNextPageToken     , ljbsrsJobs-    , ljbsrsStatus+    , ljbsrsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -133,9 +133,9 @@ -- -- /See:/ 'listJobsByStatusResponse' smart constructor. data ListJobsByStatusResponse = ListJobsByStatusResponse'-    { _ljbsrsNextPageToken :: !(Maybe Text)-    , _ljbsrsJobs          :: !(Maybe [Job'])-    , _ljbsrsStatus        :: !Int+    { _ljbsrsNextPageToken  :: !(Maybe Text)+    , _ljbsrsJobs           :: !(Maybe [Job'])+    , _ljbsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListJobsByStatusResponse' with the minimum fields required to make a request.@@ -146,15 +146,15 @@ -- -- * 'ljbsrsJobs' ----- * 'ljbsrsStatus'+-- * 'ljbsrsResponseStatus' listJobsByStatusResponse-    :: Int -- ^ 'ljbsrsStatus'+    :: Int -- ^ 'ljbsrsResponseStatus'     -> ListJobsByStatusResponse-listJobsByStatusResponse pStatus_ =+listJobsByStatusResponse pResponseStatus_ =     ListJobsByStatusResponse'     { _ljbsrsNextPageToken = Nothing     , _ljbsrsJobs = Nothing-    , _ljbsrsStatus = pStatus_+    , _ljbsrsResponseStatus = pResponseStatus_     }  -- | A value that you use to access the second and subsequent pages of@@ -169,5 +169,5 @@ ljbsrsJobs = lens _ljbsrsJobs (\ s a -> s{_ljbsrsJobs = a}) . _Default . _Coerce;  -- | The response status code.-ljbsrsStatus :: Lens' ListJobsByStatusResponse Int-ljbsrsStatus = lens _ljbsrsStatus (\ s a -> s{_ljbsrsStatus = a});+ljbsrsResponseStatus :: Lens' ListJobsByStatusResponse Int+ljbsrsResponseStatus = lens _ljbsrsResponseStatus (\ s a -> s{_ljbsrsResponseStatus = a});

@@ -39,7 +39,7 @@     -- * Response Lenses     , lprsNextPageToken     , lprsPipelines-    , lprsStatus+    , lprsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -118,9 +118,9 @@ -- -- /See:/ 'listPipelinesResponse' smart constructor. data ListPipelinesResponse = ListPipelinesResponse'-    { _lprsNextPageToken :: !(Maybe Text)-    , _lprsPipelines     :: !(Maybe [Pipeline])-    , _lprsStatus        :: !Int+    { _lprsNextPageToken  :: !(Maybe Text)+    , _lprsPipelines      :: !(Maybe [Pipeline])+    , _lprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListPipelinesResponse' with the minimum fields required to make a request.@@ -131,15 +131,15 @@ -- -- * 'lprsPipelines' ----- * 'lprsStatus'+-- * 'lprsResponseStatus' listPipelinesResponse-    :: Int -- ^ 'lprsStatus'+    :: Int -- ^ 'lprsResponseStatus'     -> ListPipelinesResponse-listPipelinesResponse pStatus_ =+listPipelinesResponse pResponseStatus_ =     ListPipelinesResponse'     { _lprsNextPageToken = Nothing     , _lprsPipelines = Nothing-    , _lprsStatus = pStatus_+    , _lprsResponseStatus = pResponseStatus_     }  -- | A value that you use to access the second and subsequent pages of@@ -154,5 +154,5 @@ lprsPipelines = lens _lprsPipelines (\ s a -> s{_lprsPipelines = a}) . _Default . _Coerce;  -- | The response status code.-lprsStatus :: Lens' ListPipelinesResponse Int-lprsStatus = lens _lprsStatus (\ s a -> s{_lprsStatus = a});+lprsResponseStatus :: Lens' ListPipelinesResponse Int+lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});

@@ -40,7 +40,7 @@     -- * Response Lenses     , lrsNextPageToken     , lrsPresets-    , lrsStatus+    , lrsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -119,9 +119,9 @@ -- -- /See:/ 'listPresetsResponse' smart constructor. data ListPresetsResponse = ListPresetsResponse'-    { _lrsNextPageToken :: !(Maybe Text)-    , _lrsPresets       :: !(Maybe [Preset])-    , _lrsStatus        :: !Int+    { _lrsNextPageToken  :: !(Maybe Text)+    , _lrsPresets        :: !(Maybe [Preset])+    , _lrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListPresetsResponse' with the minimum fields required to make a request.@@ -132,15 +132,15 @@ -- -- * 'lrsPresets' ----- * 'lrsStatus'+-- * 'lrsResponseStatus' listPresetsResponse-    :: Int -- ^ 'lrsStatus'+    :: Int -- ^ 'lrsResponseStatus'     -> ListPresetsResponse-listPresetsResponse pStatus_ =+listPresetsResponse pResponseStatus_ =     ListPresetsResponse'     { _lrsNextPageToken = Nothing     , _lrsPresets = Nothing-    , _lrsStatus = pStatus_+    , _lrsResponseStatus = pResponseStatus_     }  -- | A value that you use to access the second and subsequent pages of@@ -155,5 +155,5 @@ lrsPresets = lens _lrsPresets (\ s a -> s{_lrsPresets = a}) . _Default . _Coerce;  -- | The response status code.-lrsStatus :: Lens' ListPresetsResponse Int-lrsStatus = lens _lrsStatus (\ s a -> s{_lrsStatus = a});+lrsResponseStatus :: Lens' ListPresetsResponse Int+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});

@@ -33,7 +33,7 @@     , readJobResponse     , ReadJobResponse     -- * Response Lenses-    , rjrsStatus+    , rjrsResponseStatus     , rjrsJob     ) where @@ -91,30 +91,30 @@ -- -- /See:/ 'readJobResponse' smart constructor. data ReadJobResponse = ReadJobResponse'-    { _rjrsStatus :: !Int-    , _rjrsJob    :: !Job'+    { _rjrsResponseStatus :: !Int+    , _rjrsJob            :: !Job'     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ReadJobResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rjrsStatus'+-- * 'rjrsResponseStatus' -- -- * 'rjrsJob' readJobResponse-    :: Int -- ^ 'rjrsStatus'+    :: Int -- ^ 'rjrsResponseStatus'     -> Job' -- ^ 'rjrsJob'     -> ReadJobResponse-readJobResponse pStatus_ pJob_ =+readJobResponse pResponseStatus_ pJob_ =     ReadJobResponse'-    { _rjrsStatus = pStatus_+    { _rjrsResponseStatus = pResponseStatus_     , _rjrsJob = pJob_     }  -- | The response status code.-rjrsStatus :: Lens' ReadJobResponse Int-rjrsStatus = lens _rjrsStatus (\ s a -> s{_rjrsStatus = a});+rjrsResponseStatus :: Lens' ReadJobResponse Int+rjrsResponseStatus = lens _rjrsResponseStatus (\ s a -> s{_rjrsResponseStatus = a});  -- | A section of the response body that provides information about the job. rjrsJob :: Lens' ReadJobResponse Job'

@@ -35,7 +35,7 @@     -- * Response Lenses     , rrsWarnings     , rrsPipeline-    , rrsStatus+    , rrsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -92,9 +92,9 @@ -- -- /See:/ 'readPipelineResponse' smart constructor. data ReadPipelineResponse = ReadPipelineResponse'-    { _rrsWarnings :: !(Maybe [Warning])-    , _rrsPipeline :: !(Maybe Pipeline)-    , _rrsStatus   :: !Int+    { _rrsWarnings       :: !(Maybe [Warning])+    , _rrsPipeline       :: !(Maybe Pipeline)+    , _rrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ReadPipelineResponse' with the minimum fields required to make a request.@@ -105,15 +105,15 @@ -- -- * 'rrsPipeline' ----- * 'rrsStatus'+-- * 'rrsResponseStatus' readPipelineResponse-    :: Int -- ^ 'rrsStatus'+    :: Int -- ^ 'rrsResponseStatus'     -> ReadPipelineResponse-readPipelineResponse pStatus_ =+readPipelineResponse pResponseStatus_ =     ReadPipelineResponse'     { _rrsWarnings = Nothing     , _rrsPipeline = Nothing-    , _rrsStatus = pStatus_+    , _rrsResponseStatus = pResponseStatus_     }  -- | Elastic Transcoder returns a warning if the resources used by your@@ -131,5 +131,5 @@ rrsPipeline = lens _rrsPipeline (\ s a -> s{_rrsPipeline = a});  -- | The response status code.-rrsStatus :: Lens' ReadPipelineResponse Int-rrsStatus = lens _rrsStatus (\ s a -> s{_rrsStatus = a});+rrsResponseStatus :: Lens' ReadPipelineResponse Int+rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a});

@@ -34,7 +34,7 @@     , ReadPresetResponse     -- * Response Lenses     , rprsPreset-    , rprsStatus+    , rprsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -91,8 +91,8 @@ -- -- /See:/ 'readPresetResponse' smart constructor. data ReadPresetResponse = ReadPresetResponse'-    { _rprsPreset :: !(Maybe Preset)-    , _rprsStatus :: !Int+    { _rprsPreset         :: !(Maybe Preset)+    , _rprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ReadPresetResponse' with the minimum fields required to make a request.@@ -101,14 +101,14 @@ -- -- * 'rprsPreset' ----- * 'rprsStatus'+-- * 'rprsResponseStatus' readPresetResponse-    :: Int -- ^ 'rprsStatus'+    :: Int -- ^ 'rprsResponseStatus'     -> ReadPresetResponse-readPresetResponse pStatus_ =+readPresetResponse pResponseStatus_ =     ReadPresetResponse'     { _rprsPreset = Nothing-    , _rprsStatus = pStatus_+    , _rprsResponseStatus = pResponseStatus_     }  -- | A section of the response body that provides information about the@@ -117,5 +117,5 @@ rprsPreset = lens _rprsPreset (\ s a -> s{_rprsPreset = a});  -- | The response status code.-rprsStatus :: Lens' ReadPresetResponse Int-rprsStatus = lens _rprsStatus (\ s a -> s{_rprsStatus = a});+rprsResponseStatus :: Lens' ReadPresetResponse Int+rprsResponseStatus = lens _rprsResponseStatus (\ s a -> s{_rprsResponseStatus = a});

@@ -45,7 +45,7 @@     -- * Response Lenses     , trrsSuccess     , trrsMessages-    , trrsStatus+    , trrsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -140,9 +140,9 @@ -- -- /See:/ 'testRoleResponse' smart constructor. data TestRoleResponse = TestRoleResponse'-    { _trrsSuccess  :: !(Maybe Text)-    , _trrsMessages :: !(Maybe [Text])-    , _trrsStatus   :: !Int+    { _trrsSuccess        :: !(Maybe Text)+    , _trrsMessages       :: !(Maybe [Text])+    , _trrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'TestRoleResponse' with the minimum fields required to make a request.@@ -153,15 +153,15 @@ -- -- * 'trrsMessages' ----- * 'trrsStatus'+-- * 'trrsResponseStatus' testRoleResponse-    :: Int -- ^ 'trrsStatus'+    :: Int -- ^ 'trrsResponseStatus'     -> TestRoleResponse-testRoleResponse pStatus_ =+testRoleResponse pResponseStatus_ =     TestRoleResponse'     { _trrsSuccess = Nothing     , _trrsMessages = Nothing-    , _trrsStatus = pStatus_+    , _trrsResponseStatus = pResponseStatus_     }  -- | If the operation is successful, this value is 'true'; otherwise, the@@ -175,5 +175,5 @@ trrsMessages = lens _trrsMessages (\ s a -> s{_trrsMessages = a}) . _Default . _Coerce;  -- | The response status code.-trrsStatus :: Lens' TestRoleResponse Int-trrsStatus = lens _trrsStatus (\ s a -> s{_trrsStatus = a});+trrsResponseStatus :: Lens' TestRoleResponse Int+trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a});

@@ -16,20 +16,20 @@       elasticTranscoder      -- * Errors-    , _ValidationException     , _IncompatibleVersionException+    , _ValidationException     , _AccessDeniedException     , _InternalServiceException     , _ResourceNotFoundException-    , _ResourceInUseException     , _LimitExceededException+    , _ResourceInUseException      -- * Artwork     , Artwork     , artwork     , aSizingPolicy-    , aMaxHeight     , aAlbumArtFormat+    , aMaxHeight     , aInputKey     , aPaddingPolicy     , aEncryption@@ -38,8 +38,8 @@     -- * AudioCodecOptions     , AudioCodecOptions     , audioCodecOptions-    , acoBitDepth     , acoSigned+    , acoBitDepth     , acoProfile     , acoBitOrder @@ -64,8 +64,8 @@     , CaptionSource     , captionSource     , csTimeOffset-    , csKey     , csEncryption+    , csKey     , csLanguage     , csLabel @@ -90,8 +90,8 @@     , cjoComposition     , cjoAlbumArt     , cjoWatermarks-    , cjoKey     , cjoEncryption+    , cjoKey     , cjoSegmentDuration     , cjoThumbnailEncryption     , cjoRotate@@ -100,8 +100,8 @@     , CreateJobPlaylist     , createJobPlaylist     , cjpPlayReadyDrm-    , cjpOutputKeys     , cjpFormat+    , cjpOutputKeys     , cjpName     , cjpHlsContentProtection @@ -117,8 +117,8 @@     -- * Encryption     , Encryption     , encryption-    , eKeyMD5     , eMode+    , eKeyMD5     , eKey     , eInitializationVector @@ -129,8 +129,8 @@     , hcpKeyStoragePolicy     , hcpKey     , hcpMethod-    , hcpLicenseAcquisitionURL     , hcpInitializationVector+    , hcpLicenseAcquisitionURL      -- * Job'     , Job'@@ -139,13 +139,13 @@     , jPipelineId     , jARN     , jInput-    , jOutputs     , jUserMetadata+    , jOutputs     , jOutput     , jId     , jPlaylists-    , jTiming     , jOutputKeyPrefix+    , jTiming      -- * JobAlbumArt     , JobAlbumArt@@ -159,9 +159,9 @@     , jiFrameRate     , jiResolution     , jiAspectRatio+    , jiEncryption     , jiKey     , jiDetectedProperties-    , jiEncryption     , jiContainer     , jiInterlaced @@ -169,8 +169,8 @@     , JobOutput     , jobOutput     , joAppliedColorSpaceConversion-    , joStatus     , joThumbnailPattern+    , joStatus     , joHeight     , joFrameRate     , joCaptions@@ -180,11 +180,11 @@     , joFileSize     , joWatermarks     , joWidth-    , joKey     , joEncryption+    , joKey+    , joStatusDetail     , joId     , joSegmentDuration-    , joStatusDetail     , joDurationMillis     , joThumbnailEncryption     , joDuration@@ -202,8 +202,8 @@     , notifications     , nError     , nWarning-    , nCompleted     , nProgressing+    , nCompleted      -- * Permission     , Permission@@ -224,8 +224,8 @@     , pipName     , pipAWSKMSKeyARN     , pipId-    , pipThumbnailConfig     , pipNotifications+    , pipThumbnailConfig      -- * PipelineOutputConfig     , PipelineOutputConfig@@ -238,43 +238,43 @@     , PlayReadyDrm     , playReadyDrm     , prdKeyId-    , prdKeyMD5     , prdFormat+    , prdKeyMD5     , prdKey-    , prdLicenseAcquisitionURL     , prdInitializationVector+    , prdLicenseAcquisitionURL      -- * Playlist     , Playlist     , playlist-    , pPlayReadyDrm     , pStatus-    , pOutputKeys+    , pPlayReadyDrm     , pFormat+    , pOutputKeys     , pName-    , pHlsContentProtection     , pStatusDetail+    , pHlsContentProtection      -- * Preset     , Preset     , preset     , preARN     , preVideo-    , preName     , preThumbnails+    , preName     , preContainer     , preId     , preType-    , preAudio     , preDescription+    , preAudio      -- * PresetWatermark     , PresetWatermark     , presetWatermark     , pwVerticalAlign     , pwSizingPolicy-    , pwMaxHeight     , pwHorizontalOffset+    , pwMaxHeight     , pwOpacity     , pwVerticalOffset     , pwMaxWidth@@ -289,8 +289,8 @@     , tFormat     , tMaxHeight     , tResolution-    , tPaddingPolicy     , tAspectRatio+    , tPaddingPolicy     , tInterval     , tMaxWidth @@ -315,12 +315,12 @@     , vpSizingPolicy     , vpMaxFrameRate     , vpMaxHeight-    , vpDisplayAspectRatio     , vpWatermarks-    , vpCodec+    , vpDisplayAspectRatio     , vpResolution-    , vpPaddingPolicy+    , vpCodec     , vpAspectRatio+    , vpPaddingPolicy     , vpMaxWidth     , vpBitRate     , vpFixedGOP@@ -369,16 +369,16 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing --- | One or more required parameter values were not provided in the request.-_ValidationException :: AsError a => Getting (First ServiceError) a ServiceError-_ValidationException =-    _ServiceError . hasStatus 400 . hasCode "ValidationException"- -- | Prism for IncompatibleVersionException' errors. _IncompatibleVersionException :: AsError a => Getting (First ServiceError) a ServiceError _IncompatibleVersionException =     _ServiceError . hasStatus 400 . hasCode "IncompatibleVersionException" +-- | One or more required parameter values were not provided in the request.+_ValidationException :: AsError a => Getting (First ServiceError) a ServiceError+_ValidationException =+    _ServiceError . hasStatus 400 . hasCode "ValidationException"+ -- | General authentication failure. The request was not signed correctly. _AccessDeniedException :: AsError a => Getting (First ServiceError) a ServiceError _AccessDeniedException =@@ -396,14 +396,14 @@ _ResourceNotFoundException =     _ServiceError . hasStatus 404 . hasCode "ResourceNotFoundException" --- | The resource you are attempting to change is in use. For example, you--- are attempting to delete a pipeline that is currently in use.-_ResourceInUseException :: AsError a => Getting (First ServiceError) a ServiceError-_ResourceInUseException =-    _ServiceError . hasStatus 409 . hasCode "ResourceInUseException"- -- | Too many operations for a given AWS account. For example, the number of -- pipelines exceeds the maximum allowed. _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException =     _ServiceError . hasStatus 429 . hasCode "LimitExceededException"++-- | The resource you are attempting to change is in use. For example, you+-- are attempting to delete a pipeline that is currently in use.+_ResourceInUseException :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceInUseException =+    _ServiceError . hasStatus 409 . hasCode "ResourceInUseException"

@@ -34,8 +34,8 @@ -- /See:/ 'artwork' smart constructor. data Artwork = Artwork'     { _aSizingPolicy   :: !(Maybe Text)-    , _aMaxHeight      :: !(Maybe Text)     , _aAlbumArtFormat :: !(Maybe Text)+    , _aMaxHeight      :: !(Maybe Text)     , _aInputKey       :: !(Maybe Text)     , _aPaddingPolicy  :: !(Maybe Text)     , _aEncryption     :: !(Maybe Encryption)@@ -48,10 +48,10 @@ -- -- * 'aSizingPolicy' ----- * 'aMaxHeight'--- -- * 'aAlbumArtFormat' --+-- * 'aMaxHeight'+-- -- * 'aInputKey' -- -- * 'aPaddingPolicy'@@ -64,8 +64,8 @@ artwork =     Artwork'     { _aSizingPolicy = Nothing-    , _aMaxHeight = Nothing     , _aAlbumArtFormat = Nothing+    , _aMaxHeight = Nothing     , _aInputKey = Nothing     , _aPaddingPolicy = Nothing     , _aEncryption = Nothing@@ -102,16 +102,16 @@ aSizingPolicy :: Lens' Artwork (Maybe Text) aSizingPolicy = lens _aSizingPolicy (\ s a -> s{_aSizingPolicy = a}); +-- | 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 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 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@@ -146,8 +146,8 @@           = withObject "Artwork"               (\ x ->                  Artwork' <$>-                   (x .:? "SizingPolicy") <*> (x .:? "MaxHeight") <*>-                     (x .:? "AlbumArtFormat")+                   (x .:? "SizingPolicy") <*> (x .:? "AlbumArtFormat")+                     <*> (x .:? "MaxHeight")                      <*> (x .:? "InputKey")                      <*> (x .:? "PaddingPolicy")                      <*> (x .:? "Encryption")@@ -158,8 +158,8 @@           = object               (catMaybes                  [("SizingPolicy" .=) <$> _aSizingPolicy,-                  ("MaxHeight" .=) <$> _aMaxHeight,                   ("AlbumArtFormat" .=) <$> _aAlbumArtFormat,+                  ("MaxHeight" .=) <$> _aMaxHeight,                   ("InputKey" .=) <$> _aInputKey,                   ("PaddingPolicy" .=) <$> _aPaddingPolicy,                   ("Encryption" .=) <$> _aEncryption,@@ -169,8 +169,8 @@ -- -- /See:/ 'audioCodecOptions' smart constructor. data AudioCodecOptions = AudioCodecOptions'-    { _acoBitDepth :: !(Maybe Text)-    , _acoSigned   :: !(Maybe Text)+    { _acoSigned   :: !(Maybe Text)+    , _acoBitDepth :: !(Maybe Text)     , _acoProfile  :: !(Maybe Text)     , _acoBitOrder :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -179,10 +179,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'acoBitDepth'--- -- * 'acoSigned' --+-- * 'acoBitDepth'+-- -- * 'acoProfile' -- -- * 'acoBitOrder'@@ -190,12 +190,22 @@     :: AudioCodecOptions audioCodecOptions =     AudioCodecOptions'-    { _acoBitDepth = Nothing-    , _acoSigned = Nothing+    { _acoSigned = Nothing+    , _acoBitDepth = Nothing     , _acoProfile = Nothing     , _acoBitOrder = Nothing     } +-- | You can only choose whether an audio sample is signed when you specify+-- 'pcm' for the value of Audio:Codec.+--+-- Whether audio samples are represented with negative and positive numbers+-- (signed) or only positive numbers (unsigned).+--+-- The supported value is 'Signed'.+acoSigned :: Lens' AudioCodecOptions (Maybe Text)+acoSigned = lens _acoSigned (\ s a -> s{_acoSigned = a});+ -- | You can only choose an audio bit depth when you specify 'flac' or 'pcm' -- for the value of Audio:Codec. --@@ -209,16 +219,6 @@ acoBitDepth :: Lens' AudioCodecOptions (Maybe Text) acoBitDepth = lens _acoBitDepth (\ s a -> s{_acoBitDepth = a}); --- | You can only choose whether an audio sample is signed when you specify--- 'pcm' for the value of Audio:Codec.------ Whether audio samples are represented with negative and positive numbers--- (signed) or only positive numbers (unsigned).------ The supported value is 'Signed'.-acoSigned :: Lens' AudioCodecOptions (Maybe Text)-acoSigned = lens _acoSigned (\ s a -> s{_acoSigned = a});- -- | You can only choose an audio profile when you specify AAC for the value -- of Audio:Codec. --@@ -257,7 +257,7 @@           = withObject "AudioCodecOptions"               (\ x ->                  AudioCodecOptions' <$>-                   (x .:? "BitDepth") <*> (x .:? "Signed") <*>+                   (x .:? "Signed") <*> (x .:? "BitDepth") <*>                      (x .:? "Profile")                      <*> (x .:? "BitOrder")) @@ -265,8 +265,8 @@         toJSON AudioCodecOptions'{..}           = object               (catMaybes-                 [("BitDepth" .=) <$> _acoBitDepth,-                  ("Signed" .=) <$> _acoSigned,+                 [("Signed" .=) <$> _acoSigned,+                  ("BitDepth" .=) <$> _acoBitDepth,                   ("Profile" .=) <$> _acoProfile,                   ("BitOrder" .=) <$> _acoBitOrder]) @@ -585,8 +585,8 @@ -- /See:/ 'captionSource' smart constructor. data CaptionSource = CaptionSource'     { _csTimeOffset :: !(Maybe Text)-    , _csKey        :: !(Maybe Text)     , _csEncryption :: !(Maybe Encryption)+    , _csKey        :: !(Maybe Text)     , _csLanguage   :: !(Maybe Text)     , _csLabel      :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -597,10 +597,10 @@ -- -- * 'csTimeOffset' ----- * 'csKey'--- -- * 'csEncryption' --+-- * 'csKey'+-- -- * 'csLanguage' -- -- * 'csLabel'@@ -609,8 +609,8 @@ captionSource =     CaptionSource'     { _csTimeOffset = Nothing-    , _csKey = Nothing     , _csEncryption = Nothing+    , _csKey = Nothing     , _csLanguage = Nothing     , _csLabel = Nothing     }@@ -623,16 +623,16 @@ csTimeOffset :: Lens' CaptionSource (Maybe Text) csTimeOffset = lens _csTimeOffset (\ s a -> s{_csTimeOffset = a}); --- | 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 encryption settings, if any, that you want Elastic Transcoder to -- apply to your caption sources. csEncryption :: Lens' CaptionSource (Maybe Encryption) csEncryption = lens _csEncryption (\ s a -> s{_csEncryption = a}); +-- | 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});+ -- | A string that specifies the language of the caption. Specify this as one -- of: --@@ -656,8 +656,8 @@           = withObject "CaptionSource"               (\ x ->                  CaptionSource' <$>-                   (x .:? "TimeOffset") <*> (x .:? "Key") <*>-                     (x .:? "Encryption")+                   (x .:? "TimeOffset") <*> (x .:? "Encryption") <*>+                     (x .:? "Key")                      <*> (x .:? "Language")                      <*> (x .:? "Label")) @@ -666,8 +666,8 @@           = object               (catMaybes                  [("TimeOffset" .=) <$> _csTimeOffset,-                  ("Key" .=) <$> _csKey,                   ("Encryption" .=) <$> _csEncryption,+                  ("Key" .=) <$> _csKey,                   ("Language" .=) <$> _csLanguage,                   ("Label" .=) <$> _csLabel]) @@ -791,8 +791,8 @@     , _cjoComposition         :: !(Maybe [Clip])     , _cjoAlbumArt            :: !(Maybe JobAlbumArt)     , _cjoWatermarks          :: !(Maybe [JobWatermark])-    , _cjoKey                 :: !(Maybe Text)     , _cjoEncryption          :: !(Maybe Encryption)+    , _cjoKey                 :: !(Maybe Text)     , _cjoSegmentDuration     :: !(Maybe Text)     , _cjoThumbnailEncryption :: !(Maybe Encryption)     , _cjoRotate              :: !(Maybe Text)@@ -814,10 +814,10 @@ -- -- * 'cjoWatermarks' ----- * 'cjoKey'--- -- * 'cjoEncryption' --+-- * 'cjoKey'+-- -- * 'cjoSegmentDuration' -- -- * 'cjoThumbnailEncryption'@@ -833,8 +833,8 @@     , _cjoComposition = Nothing     , _cjoAlbumArt = Nothing     , _cjoWatermarks = Nothing-    , _cjoKey = Nothing     , _cjoEncryption = Nothing+    , _cjoKey = Nothing     , _cjoSegmentDuration = Nothing     , _cjoThumbnailEncryption = Nothing     , _cjoRotate = Nothing@@ -959,13 +959,6 @@ cjoWatermarks :: Lens' CreateJobOutput [JobWatermark] cjoWatermarks = lens _cjoWatermarks (\ s a -> s{_cjoWatermarks = a}) . _Default . _Coerce; --- | 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});- -- | You can specify encryption settings for any output files that you want -- to use for a transcoding job. This includes the output file and any -- watermarks, thumbnails, album art, or captions that you want to use. You@@ -973,6 +966,13 @@ cjoEncryption :: Lens' CreateJobOutput (Maybe Encryption) cjoEncryption = lens _cjoEncryption (\ s a -> s{_cjoEncryption = 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. 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});+ -- | (Outputs in Fragmented MP4 or MPEG-TS format only. -- -- If you specify a preset in 'PresetId' for which the value of 'Container'@@ -1018,8 +1018,8 @@                   ("Composition" .=) <$> _cjoComposition,                   ("AlbumArt" .=) <$> _cjoAlbumArt,                   ("Watermarks" .=) <$> _cjoWatermarks,-                  ("Key" .=) <$> _cjoKey,                   ("Encryption" .=) <$> _cjoEncryption,+                  ("Key" .=) <$> _cjoKey,                   ("SegmentDuration" .=) <$> _cjoSegmentDuration,                   ("ThumbnailEncryption" .=) <$>                     _cjoThumbnailEncryption,@@ -1030,8 +1030,8 @@ -- /See:/ 'createJobPlaylist' smart constructor. data CreateJobPlaylist = CreateJobPlaylist'     { _cjpPlayReadyDrm         :: !(Maybe PlayReadyDrm)-    , _cjpOutputKeys           :: !(Maybe [Text])     , _cjpFormat               :: !(Maybe Text)+    , _cjpOutputKeys           :: !(Maybe [Text])     , _cjpName                 :: !(Maybe Text)     , _cjpHlsContentProtection :: !(Maybe HlsContentProtection)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -1042,10 +1042,10 @@ -- -- * 'cjpPlayReadyDrm' ----- * 'cjpOutputKeys'--- -- * 'cjpFormat' --+-- * 'cjpOutputKeys'+-- -- * 'cjpName' -- -- * 'cjpHlsContentProtection'@@ -1054,8 +1054,8 @@ createJobPlaylist =     CreateJobPlaylist'     { _cjpPlayReadyDrm = Nothing-    , _cjpOutputKeys = Nothing     , _cjpFormat = Nothing+    , _cjpOutputKeys = Nothing     , _cjpName = Nothing     , _cjpHlsContentProtection = Nothing     }@@ -1065,6 +1065,11 @@ cjpPlayReadyDrm :: Lens' CreateJobPlaylist (Maybe PlayReadyDrm) cjpPlayReadyDrm = lens _cjpPlayReadyDrm (\ s a -> s{_cjpPlayReadyDrm = a}); +-- | 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});+ -- | For each output in this job that you want to include in a master -- playlist, the value of the 'Outputs:Key' object. --@@ -1108,11 +1113,6 @@ cjpOutputKeys :: Lens' CreateJobPlaylist [Text] cjpOutputKeys = lens _cjpOutputKeys (\ s a -> s{_cjpOutputKeys = a}) . _Default . _Coerce; --- | 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@@ -1136,8 +1136,8 @@           = object               (catMaybes                  [("PlayReadyDrm" .=) <$> _cjpPlayReadyDrm,-                  ("OutputKeys" .=) <$> _cjpOutputKeys,                   ("Format" .=) <$> _cjpFormat,+                  ("OutputKeys" .=) <$> _cjpOutputKeys,                   ("Name" .=) <$> _cjpName,                   ("HlsContentProtection" .=) <$>                     _cjpHlsContentProtection])@@ -1226,8 +1226,8 @@ -- -- /See:/ 'encryption' smart constructor. data Encryption = Encryption'-    { _eKeyMD5               :: !(Maybe Text)-    , _eMode                 :: !(Maybe Text)+    { _eMode                 :: !(Maybe Text)+    , _eKeyMD5               :: !(Maybe Text)     , _eKey                  :: !(Maybe Text)     , _eInitializationVector :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -1236,10 +1236,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'eKeyMD5'--- -- * 'eMode' --+-- * 'eKeyMD5'+-- -- * 'eKey' -- -- * 'eInitializationVector'@@ -1247,20 +1247,12 @@     :: Encryption encryption =     Encryption'-    { _eKeyMD5 = Nothing-    , _eMode = Nothing+    { _eMode = Nothing+    , _eKeyMD5 = Nothing     , _eKey = Nothing     , _eInitializationVector = Nothing     } --- | The MD5 digest of the key that you used to encrypt your input file, or--- that you want Elastic Transcoder to use to encrypt your output file.--- Elastic Transcoder uses the key digest as a checksum to make sure your--- key was not corrupted in transit. The key MD5 must be base64-encoded,--- and it must be exactly 16 bytes long before being base64-encoded.-eKeyMD5 :: Lens' Encryption (Maybe Text)-eKeyMD5 = lens _eKeyMD5 (\ s a -> s{_eKeyMD5 = a});- -- | The specific server-side encryption mode that you want Elastic -- Transcoder to use when decrypting your input files or encrypting your -- output files. Elastic Transcoder supports the following options:@@ -1300,6 +1292,14 @@ eMode :: Lens' Encryption (Maybe Text) eMode = lens _eMode (\ s a -> s{_eMode = a}); +-- | The MD5 digest of the key that you used to encrypt your input file, or+-- that you want Elastic Transcoder to use to encrypt your output file.+-- Elastic Transcoder uses the key digest as a checksum to make sure your+-- key was not corrupted in transit. The key MD5 must be base64-encoded,+-- and it must be exactly 16 bytes long before being base64-encoded.+eKeyMD5 :: Lens' Encryption (Maybe Text)+eKeyMD5 = lens _eKeyMD5 (\ s a -> s{_eKeyMD5 = a});+ -- | The data encryption key that you want Elastic Transcoder to use to -- encrypt your output file, or that was used to encrypt your input file. -- The key must be base64-encoded and it must be one of the following bit@@ -1325,14 +1325,14 @@           = withObject "Encryption"               (\ x ->                  Encryption' <$>-                   (x .:? "KeyMd5") <*> (x .:? "Mode") <*> (x .:? "Key")+                   (x .:? "Mode") <*> (x .:? "KeyMd5") <*> (x .:? "Key")                      <*> (x .:? "InitializationVector"))  instance ToJSON Encryption where         toJSON Encryption'{..}           = object               (catMaybes-                 [("KeyMd5" .=) <$> _eKeyMD5, ("Mode" .=) <$> _eMode,+                 [("Mode" .=) <$> _eMode, ("KeyMd5" .=) <$> _eKeyMD5,                   ("Key" .=) <$> _eKey,                   ("InitializationVector" .=) <$>                     _eInitializationVector])@@ -1346,8 +1346,8 @@     , _hcpKeyStoragePolicy      :: !(Maybe Text)     , _hcpKey                   :: !(Maybe Text)     , _hcpMethod                :: !(Maybe Text)-    , _hcpLicenseAcquisitionURL :: !(Maybe Text)     , _hcpInitializationVector  :: !(Maybe Text)+    , _hcpLicenseAcquisitionURL :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'HlsContentProtection' with the minimum fields required to make a request.@@ -1362,9 +1362,9 @@ -- -- * 'hcpMethod' ----- * 'hcpLicenseAcquisitionURL'--- -- * 'hcpInitializationVector'+--+-- * 'hcpLicenseAcquisitionURL' hlsContentProtection     :: HlsContentProtection hlsContentProtection =@@ -1373,8 +1373,8 @@     , _hcpKeyStoragePolicy = Nothing     , _hcpKey = Nothing     , _hcpMethod = Nothing-    , _hcpLicenseAcquisitionURL = Nothing     , _hcpInitializationVector = Nothing+    , _hcpLicenseAcquisitionURL = Nothing     }  -- | If Elastic Transcoder is generating your key for you, you must leave@@ -1414,12 +1414,6 @@ hcpMethod :: Lens' HlsContentProtection (Maybe Text) hcpMethod = lens _hcpMethod (\ s a -> s{_hcpMethod = a}); --- | The location of the license key required to decrypt your HLS playlist.--- The URL must be an absolute path, and is referenced in the URI attribute--- of the EXT-X-KEY metadata tag in the playlist file.-hcpLicenseAcquisitionURL :: Lens' HlsContentProtection (Maybe Text)-hcpLicenseAcquisitionURL = lens _hcpLicenseAcquisitionURL (\ s a -> s{_hcpLicenseAcquisitionURL = a});- -- | If Elastic Transcoder is generating your key for you, you must leave -- this field blank. --@@ -1431,6 +1425,12 @@ hcpInitializationVector :: Lens' HlsContentProtection (Maybe Text) hcpInitializationVector = lens _hcpInitializationVector (\ s a -> s{_hcpInitializationVector = a}); +-- | The location of the license key required to decrypt your HLS playlist.+-- The URL must be an absolute path, and is referenced in the URI attribute+-- of the EXT-X-KEY metadata tag in the playlist file.+hcpLicenseAcquisitionURL :: Lens' HlsContentProtection (Maybe Text)+hcpLicenseAcquisitionURL = lens _hcpLicenseAcquisitionURL (\ s a -> s{_hcpLicenseAcquisitionURL = a});+ instance FromJSON HlsContentProtection where         parseJSON           = withObject "HlsContentProtection"@@ -1439,8 +1439,8 @@                    (x .:? "KeyMd5") <*> (x .:? "KeyStoragePolicy") <*>                      (x .:? "Key")                      <*> (x .:? "Method")-                     <*> (x .:? "LicenseAcquisitionUrl")-                     <*> (x .:? "InitializationVector"))+                     <*> (x .:? "InitializationVector")+                     <*> (x .:? "LicenseAcquisitionUrl"))  instance ToJSON HlsContentProtection where         toJSON HlsContentProtection'{..}@@ -1449,10 +1449,10 @@                  [("KeyMd5" .=) <$> _hcpKeyMD5,                   ("KeyStoragePolicy" .=) <$> _hcpKeyStoragePolicy,                   ("Key" .=) <$> _hcpKey, ("Method" .=) <$> _hcpMethod,-                  ("LicenseAcquisitionUrl" .=) <$>-                    _hcpLicenseAcquisitionURL,                   ("InitializationVector" .=) <$>-                    _hcpInitializationVector])+                    _hcpInitializationVector,+                  ("LicenseAcquisitionUrl" .=) <$>+                    _hcpLicenseAcquisitionURL])  -- | A section of the response body that provides information about the job -- that is created.@@ -1463,13 +1463,13 @@     , _jPipelineId      :: !(Maybe Text)     , _jARN             :: !(Maybe Text)     , _jInput           :: !(Maybe JobInput)-    , _jOutputs         :: !(Maybe [JobOutput])     , _jUserMetadata    :: !(Maybe (Map Text Text))+    , _jOutputs         :: !(Maybe [JobOutput])     , _jOutput          :: !(Maybe JobOutput)     , _jId              :: !(Maybe Text)     , _jPlaylists       :: !(Maybe [Playlist])-    , _jTiming          :: !(Maybe Timing)     , _jOutputKeyPrefix :: !(Maybe Text)+    , _jTiming          :: !(Maybe Timing)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'Job'' with the minimum fields required to make a request.@@ -1484,19 +1484,19 @@ -- -- * 'jInput' ----- * 'jOutputs'--- -- * 'jUserMetadata' --+-- * 'jOutputs'+-- -- * 'jOutput' -- -- * 'jId' -- -- * 'jPlaylists' ----- * 'jTiming'--- -- * 'jOutputKeyPrefix'+--+-- * 'jTiming' job'     :: Job' job' =@@ -1505,13 +1505,13 @@     , _jPipelineId = Nothing     , _jARN = Nothing     , _jInput = Nothing-    , _jOutputs = Nothing     , _jUserMetadata = Nothing+    , _jOutputs = Nothing     , _jOutput = Nothing     , _jId = Nothing     , _jPlaylists = Nothing-    , _jTiming = Nothing     , _jOutputKeyPrefix = Nothing+    , _jTiming = Nothing     }  -- | The status of the job: 'Submitted', 'Progressing', 'Complete',@@ -1536,18 +1536,6 @@ jInput :: Lens' Job' (Maybe JobInput) jInput = lens _jInput (\ s a -> s{_jInput = 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}) . _Default . _Coerce;- -- | User-defined metadata that you want to associate with an Elastic -- Transcoder job. You specify metadata in 'key\/value' pairs, and you can -- add up to 10 'key\/value' pairs per job. Elastic Transcoder does not@@ -1568,6 +1556,18 @@ jUserMetadata :: Lens' Job' (HashMap Text Text) jUserMetadata = lens _jUserMetadata (\ s a -> s{_jUserMetadata = a}) . _Default . _Map; +-- | 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}) . _Default . _Coerce;+ -- | 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@@ -1596,10 +1596,6 @@ jPlaylists :: Lens' Job' [Playlist] jPlaylists = lens _jPlaylists (\ s a -> s{_jPlaylists = a}) . _Default . _Coerce; --- | Details about the timing of a job.-jTiming :: Lens' Job' (Maybe Timing)-jTiming = lens _jTiming (\ s a -> s{_jTiming = 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@@ -1607,6 +1603,10 @@ jOutputKeyPrefix :: Lens' Job' (Maybe Text) jOutputKeyPrefix = lens _jOutputKeyPrefix (\ s a -> s{_jOutputKeyPrefix = a}); +-- | Details about the timing of a job.+jTiming :: Lens' Job' (Maybe Timing)+jTiming = lens _jTiming (\ s a -> s{_jTiming = a});+ instance FromJSON Job' where         parseJSON           = withObject "Job'"@@ -1615,13 +1615,13 @@                    (x .:? "Status") <*> (x .:? "PipelineId") <*>                      (x .:? "Arn")                      <*> (x .:? "Input")-                     <*> (x .:? "Outputs" .!= mempty)                      <*> (x .:? "UserMetadata" .!= mempty)+                     <*> (x .:? "Outputs" .!= mempty)                      <*> (x .:? "Output")                      <*> (x .:? "Id")                      <*> (x .:? "Playlists" .!= mempty)-                     <*> (x .:? "Timing")-                     <*> (x .:? "OutputKeyPrefix"))+                     <*> (x .:? "OutputKeyPrefix")+                     <*> (x .:? "Timing"))  -- | The .jpg or .png file associated with an audio file. --@@ -1690,9 +1690,9 @@     { _jiFrameRate          :: !(Maybe Text)     , _jiResolution         :: !(Maybe Text)     , _jiAspectRatio        :: !(Maybe Text)+    , _jiEncryption         :: !(Maybe Encryption)     , _jiKey                :: !(Maybe Text)     , _jiDetectedProperties :: !(Maybe DetectedProperties)-    , _jiEncryption         :: !(Maybe Encryption)     , _jiContainer          :: !(Maybe Text)     , _jiInterlaced         :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -1707,12 +1707,12 @@ -- -- * 'jiAspectRatio' --+-- * 'jiEncryption'+-- -- * 'jiKey' -- -- * 'jiDetectedProperties' ----- * 'jiEncryption'--- -- * 'jiContainer' -- -- * 'jiInterlaced'@@ -1723,9 +1723,9 @@     { _jiFrameRate = Nothing     , _jiResolution = Nothing     , _jiAspectRatio = Nothing+    , _jiEncryption = Nothing     , _jiKey = Nothing     , _jiDetectedProperties = Nothing-    , _jiEncryption = Nothing     , _jiContainer = Nothing     , _jiInterlaced = Nothing     }@@ -1759,6 +1759,12 @@ jiAspectRatio :: Lens' JobInput (Maybe Text) jiAspectRatio = lens _jiAspectRatio (\ s a -> s{_jiAspectRatio = a}); +-- | The encryption settings, if any, that are used for decrypting your input+-- files. If your input file is encrypted, you must specify the mode that+-- Elastic Transcoder will use to decrypt your file.+jiEncryption :: Lens' JobInput (Maybe Encryption)+jiEncryption = lens _jiEncryption (\ s a -> s{_jiEncryption = 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@@ -1774,12 +1780,6 @@ jiDetectedProperties :: Lens' JobInput (Maybe DetectedProperties) jiDetectedProperties = lens _jiDetectedProperties (\ s a -> s{_jiDetectedProperties = a}); --- | The encryption settings, if any, that are used for decrypting your input--- files. If your input file is encrypted, you must specify the mode that--- Elastic Transcoder will use to decrypt your file.-jiEncryption :: Lens' JobInput (Maybe Encryption)-jiEncryption = lens _jiEncryption (\ s a -> s{_jiEncryption = 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,@@ -1809,9 +1809,9 @@                  JobInput' <$>                    (x .:? "FrameRate") <*> (x .:? "Resolution") <*>                      (x .:? "AspectRatio")+                     <*> (x .:? "Encryption")                      <*> (x .:? "Key")                      <*> (x .:? "DetectedProperties")-                     <*> (x .:? "Encryption")                      <*> (x .:? "Container")                      <*> (x .:? "Interlaced")) @@ -1822,9 +1822,9 @@                  [("FrameRate" .=) <$> _jiFrameRate,                   ("Resolution" .=) <$> _jiResolution,                   ("AspectRatio" .=) <$> _jiAspectRatio,+                  ("Encryption" .=) <$> _jiEncryption,                   ("Key" .=) <$> _jiKey,                   ("DetectedProperties" .=) <$> _jiDetectedProperties,-                  ("Encryption" .=) <$> _jiEncryption,                   ("Container" .=) <$> _jiContainer,                   ("Interlaced" .=) <$> _jiInterlaced]) @@ -1837,8 +1837,8 @@ -- /See:/ 'jobOutput' smart constructor. data JobOutput = JobOutput'     { _joAppliedColorSpaceConversion :: !(Maybe Text)-    , _joStatus                      :: !(Maybe Text)     , _joThumbnailPattern            :: !(Maybe Text)+    , _joStatus                      :: !(Maybe Text)     , _joHeight                      :: !(Maybe Int)     , _joFrameRate                   :: !(Maybe Text)     , _joCaptions                    :: !(Maybe Captions)@@ -1848,11 +1848,11 @@     , _joFileSize                    :: !(Maybe Integer)     , _joWatermarks                  :: !(Maybe [JobWatermark])     , _joWidth                       :: !(Maybe Int)-    , _joKey                         :: !(Maybe Text)     , _joEncryption                  :: !(Maybe Encryption)+    , _joKey                         :: !(Maybe Text)+    , _joStatusDetail                :: !(Maybe Text)     , _joId                          :: !(Maybe Text)     , _joSegmentDuration             :: !(Maybe Text)-    , _joStatusDetail                :: !(Maybe Text)     , _joDurationMillis              :: !(Maybe Integer)     , _joThumbnailEncryption         :: !(Maybe Encryption)     , _joDuration                    :: !(Maybe Integer)@@ -1865,10 +1865,10 @@ -- -- * 'joAppliedColorSpaceConversion' ----- * 'joStatus'--- -- * 'joThumbnailPattern' --+-- * 'joStatus'+-- -- * 'joHeight' -- -- * 'joFrameRate'@@ -1887,16 +1887,16 @@ -- -- * 'joWidth' --+-- * 'joEncryption'+-- -- * 'joKey' ----- * 'joEncryption'+-- * 'joStatusDetail' -- -- * 'joId' -- -- * 'joSegmentDuration' ----- * 'joStatusDetail'--- -- * 'joDurationMillis' -- -- * 'joThumbnailEncryption'@@ -1909,8 +1909,8 @@ jobOutput =     JobOutput'     { _joAppliedColorSpaceConversion = Nothing-    , _joStatus = Nothing     , _joThumbnailPattern = Nothing+    , _joStatus = Nothing     , _joHeight = Nothing     , _joFrameRate = Nothing     , _joCaptions = Nothing@@ -1920,11 +1920,11 @@     , _joFileSize = Nothing     , _joWatermarks = Nothing     , _joWidth = Nothing-    , _joKey = Nothing     , _joEncryption = Nothing+    , _joKey = Nothing+    , _joStatusDetail = Nothing     , _joId = Nothing     , _joSegmentDuration = Nothing-    , _joStatusDetail = Nothing     , _joDurationMillis = Nothing     , _joThumbnailEncryption = Nothing     , _joDuration = Nothing@@ -1938,29 +1938,6 @@ joAppliedColorSpaceConversion :: Lens' JobOutput (Maybe Text) joAppliedColorSpaceConversion = lens _joAppliedColorSpaceConversion (\ s a -> s{_joAppliedColorSpaceConversion = 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});- -- | Whether you want Elastic Transcoder to create thumbnails for your videos -- and, if so, how you want Elastic Transcoder to name the files. --@@ -1998,6 +1975,29 @@ joThumbnailPattern :: Lens' JobOutput (Maybe Text) joThumbnailPattern = lens _joThumbnailPattern (\ s a -> s{_joThumbnailPattern = 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});+ -- | Height of the output file, in pixels. joHeight :: Lens' JobOutput (Maybe Int) joHeight = lens _joHeight (\ s a -> s{_joHeight = a});@@ -2104,12 +2104,6 @@ joWidth :: Lens' JobOutput (Maybe Int) joWidth = lens _joWidth (\ s a -> s{_joWidth = 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 encryption settings, if any, that you want Elastic Transcoder to -- apply to your output files. If you choose to use encryption, you must -- specify a mode to use. If you choose not to use encryption, Elastic@@ -2117,6 +2111,16 @@ joEncryption :: Lens' JobOutput (Maybe Encryption) joEncryption = lens _joEncryption (\ s a -> s{_joEncryption = 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});++-- | Information that further explains 'Status'.+joStatusDetail :: Lens' JobOutput (Maybe Text)+joStatusDetail = lens _joStatusDetail (\ s a -> s{_joStatusDetail = 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.@@ -2145,10 +2149,6 @@ joSegmentDuration :: Lens' JobOutput (Maybe Text) joSegmentDuration = lens _joSegmentDuration (\ s a -> s{_joSegmentDuration = a}); --- | Information that further explains 'Status'.-joStatusDetail :: Lens' JobOutput (Maybe Text)-joStatusDetail = lens _joStatusDetail (\ s a -> s{_joStatusDetail = a});- -- | Duration of the output file, in milliseconds. joDurationMillis :: Lens' JobOutput (Maybe Integer) joDurationMillis = lens _joDurationMillis (\ s a -> s{_joDurationMillis = a});@@ -2179,8 +2179,8 @@               (\ x ->                  JobOutput' <$>                    (x .:? "AppliedColorSpaceConversion") <*>-                     (x .:? "Status")-                     <*> (x .:? "ThumbnailPattern")+                     (x .:? "ThumbnailPattern")+                     <*> (x .:? "Status")                      <*> (x .:? "Height")                      <*> (x .:? "FrameRate")                      <*> (x .:? "Captions")@@ -2190,11 +2190,11 @@                      <*> (x .:? "FileSize")                      <*> (x .:? "Watermarks" .!= mempty)                      <*> (x .:? "Width")-                     <*> (x .:? "Key")                      <*> (x .:? "Encryption")+                     <*> (x .:? "Key")+                     <*> (x .:? "StatusDetail")                      <*> (x .:? "Id")                      <*> (x .:? "SegmentDuration")-                     <*> (x .:? "StatusDetail")                      <*> (x .:? "DurationMillis")                      <*> (x .:? "ThumbnailEncryption")                      <*> (x .:? "Duration")@@ -2278,8 +2278,8 @@ data Notifications = Notifications'     { _nError       :: !(Maybe Text)     , _nWarning     :: !(Maybe Text)-    , _nCompleted   :: !(Maybe Text)     , _nProgressing :: !(Maybe Text)+    , _nCompleted   :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'Notifications' with the minimum fields required to make a request.@@ -2290,17 +2290,17 @@ -- -- * 'nWarning' ----- * 'nCompleted'--- -- * 'nProgressing'+--+-- * 'nCompleted' notifications     :: Notifications notifications =     Notifications'     { _nError = Nothing     , _nWarning = Nothing-    , _nCompleted = Nothing     , _nProgressing = Nothing+    , _nCompleted = Nothing     }  -- | The Amazon SNS topic that you want to notify when Elastic Transcoder@@ -2313,24 +2313,24 @@ nWarning :: Lens' Notifications (Maybe Text) nWarning = lens _nWarning (\ s a -> s{_nWarning = a}); --- | 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 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 has+-- finished processing the job.+nCompleted :: Lens' Notifications (Maybe Text)+nCompleted = lens _nCompleted (\ s a -> s{_nCompleted = a});+ instance FromJSON Notifications where         parseJSON           = withObject "Notifications"               (\ x ->                  Notifications' <$>                    (x .:? "Error") <*> (x .:? "Warning") <*>-                     (x .:? "Completed")-                     <*> (x .:? "Progressing"))+                     (x .:? "Progressing")+                     <*> (x .:? "Completed"))  instance ToJSON Notifications where         toJSON Notifications'{..}@@ -2338,8 +2338,8 @@               (catMaybes                  [("Error" .=) <$> _nError,                   ("Warning" .=) <$> _nWarning,-                  ("Completed" .=) <$> _nCompleted,-                  ("Progressing" .=) <$> _nProgressing])+                  ("Progressing" .=) <$> _nProgressing,+                  ("Completed" .=) <$> _nCompleted])  -- | The 'Permission' structure. --@@ -2431,8 +2431,8 @@     , _pipName            :: !(Maybe Text)     , _pipAWSKMSKeyARN    :: !(Maybe Text)     , _pipId              :: !(Maybe Text)-    , _pipThumbnailConfig :: !(Maybe PipelineOutputConfig)     , _pipNotifications   :: !(Maybe Notifications)+    , _pipThumbnailConfig :: !(Maybe PipelineOutputConfig)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'Pipeline' with the minimum fields required to make a request.@@ -2457,9 +2457,9 @@ -- -- * 'pipId' ----- * 'pipThumbnailConfig'--- -- * 'pipNotifications'+--+-- * 'pipThumbnailConfig' pipeline     :: Pipeline pipeline =@@ -2473,8 +2473,8 @@     , _pipName = Nothing     , _pipAWSKMSKeyARN = Nothing     , _pipId = Nothing-    , _pipThumbnailConfig = Nothing     , _pipNotifications = Nothing+    , _pipThumbnailConfig = Nothing     }  -- | The current status of the pipeline:@@ -2568,6 +2568,24 @@ pipId :: Lens' Pipeline (Maybe Text) pipId = lens _pipId (\ s a -> s{_pipId = 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.+pipNotifications :: Lens' Pipeline (Maybe Notifications)+pipNotifications = lens _pipNotifications (\ s a -> s{_pipNotifications = 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'.@@ -2609,24 +2627,6 @@ pipThumbnailConfig :: Lens' Pipeline (Maybe PipelineOutputConfig) pipThumbnailConfig = lens _pipThumbnailConfig (\ s a -> s{_pipThumbnailConfig = 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.-pipNotifications :: Lens' Pipeline (Maybe Notifications)-pipNotifications = lens _pipNotifications (\ s a -> s{_pipNotifications = a});- instance FromJSON Pipeline where         parseJSON           = withObject "Pipeline"@@ -2640,8 +2640,8 @@                      <*> (x .:? "Name")                      <*> (x .:? "AwsKmsKeyArn")                      <*> (x .:? "Id")-                     <*> (x .:? "ThumbnailConfig")-                     <*> (x .:? "Notifications"))+                     <*> (x .:? "Notifications")+                     <*> (x .:? "ThumbnailConfig"))  -- | The 'PipelineOutputConfig' structure. --@@ -2740,11 +2740,11 @@ -- /See:/ 'playReadyDrm' smart constructor. data PlayReadyDrm = PlayReadyDrm'     { _prdKeyId                 :: !(Maybe Text)-    , _prdKeyMD5                :: !(Maybe Text)     , _prdFormat                :: !(Maybe Text)+    , _prdKeyMD5                :: !(Maybe Text)     , _prdKey                   :: !(Maybe Text)-    , _prdLicenseAcquisitionURL :: !(Maybe Text)     , _prdInitializationVector  :: !(Maybe Text)+    , _prdLicenseAcquisitionURL :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PlayReadyDrm' with the minimum fields required to make a request.@@ -2753,25 +2753,25 @@ -- -- * 'prdKeyId' ----- * 'prdKeyMD5'--- -- * 'prdFormat' ----- * 'prdKey'+-- * 'prdKeyMD5' ----- * 'prdLicenseAcquisitionURL'+-- * 'prdKey' -- -- * 'prdInitializationVector'+--+-- * 'prdLicenseAcquisitionURL' playReadyDrm     :: PlayReadyDrm playReadyDrm =     PlayReadyDrm'     { _prdKeyId = Nothing-    , _prdKeyMD5 = Nothing     , _prdFormat = Nothing+    , _prdKeyMD5 = Nothing     , _prdKey = Nothing-    , _prdLicenseAcquisitionURL = Nothing     , _prdInitializationVector = Nothing+    , _prdLicenseAcquisitionURL = Nothing     }  -- | The ID for your DRM key, so that your DRM license provider knows which@@ -2784,6 +2784,11 @@ prdKeyId :: Lens' PlayReadyDrm (Maybe Text) prdKeyId = lens _prdKeyId (\ s a -> s{_prdKeyId = a}); +-- | The type of DRM, if any, that you want Elastic Transcoder to apply to+-- the output files associated with this playlist.+prdFormat :: Lens' PlayReadyDrm (Maybe Text)+prdFormat = lens _prdFormat (\ s a -> s{_prdFormat = a});+ -- | The MD5 digest of the key used for DRM on your file, and that you want -- Elastic Transcoder to use as a checksum to make sure your key was not -- corrupted in transit. The key MD5 must be base64-encoded, and it must be@@ -2791,11 +2796,6 @@ prdKeyMD5 :: Lens' PlayReadyDrm (Maybe Text) prdKeyMD5 = lens _prdKeyMD5 (\ s a -> s{_prdKeyMD5 = a}); --- | The type of DRM, if any, that you want Elastic Transcoder to apply to--- the output files associated with this playlist.-prdFormat :: Lens' PlayReadyDrm (Maybe Text)-prdFormat = lens _prdFormat (\ s a -> s{_prdFormat = a});- -- | The DRM key for your file, provided by your DRM license provider. The -- key must be base64-encoded, and it must be one of the following bit -- lengths before being base64-encoded:@@ -2806,6 +2806,15 @@ prdKey :: Lens' PlayReadyDrm (Maybe Text) prdKey = lens _prdKey (\ s a -> s{_prdKey = a}); +-- | The series of random bits created by a random bit generator, unique for+-- every encryption operation, that you want Elastic Transcoder to use to+-- encrypt your files. The initialization vector must be base64-encoded,+-- and it must be exactly 8 bytes long before being base64-encoded. If no+-- initialization vector is provided, Elastic Transcoder generates one for+-- you.+prdInitializationVector :: Lens' PlayReadyDrm (Maybe Text)+prdInitializationVector = lens _prdInitializationVector (\ s a -> s{_prdInitializationVector = a});+ -- | The location of the license key required to play DRM content. The URL -- must be an absolute path, and is referenced by the PlayReady header. The -- PlayReady header is referenced in the protection header of the client@@ -2816,37 +2825,28 @@ prdLicenseAcquisitionURL :: Lens' PlayReadyDrm (Maybe Text) prdLicenseAcquisitionURL = lens _prdLicenseAcquisitionURL (\ s a -> s{_prdLicenseAcquisitionURL = a}); --- | The series of random bits created by a random bit generator, unique for--- every encryption operation, that you want Elastic Transcoder to use to--- encrypt your files. The initialization vector must be base64-encoded,--- and it must be exactly 8 bytes long before being base64-encoded. If no--- initialization vector is provided, Elastic Transcoder generates one for--- you.-prdInitializationVector :: Lens' PlayReadyDrm (Maybe Text)-prdInitializationVector = lens _prdInitializationVector (\ s a -> s{_prdInitializationVector = a});- instance FromJSON PlayReadyDrm where         parseJSON           = withObject "PlayReadyDrm"               (\ x ->                  PlayReadyDrm' <$>-                   (x .:? "KeyId") <*> (x .:? "KeyMd5") <*>-                     (x .:? "Format")+                   (x .:? "KeyId") <*> (x .:? "Format") <*>+                     (x .:? "KeyMd5")                      <*> (x .:? "Key")-                     <*> (x .:? "LicenseAcquisitionUrl")-                     <*> (x .:? "InitializationVector"))+                     <*> (x .:? "InitializationVector")+                     <*> (x .:? "LicenseAcquisitionUrl"))  instance ToJSON PlayReadyDrm where         toJSON PlayReadyDrm'{..}           = object               (catMaybes                  [("KeyId" .=) <$> _prdKeyId,-                  ("KeyMd5" .=) <$> _prdKeyMD5,-                  ("Format" .=) <$> _prdFormat, ("Key" .=) <$> _prdKey,-                  ("LicenseAcquisitionUrl" .=) <$>-                    _prdLicenseAcquisitionURL,+                  ("Format" .=) <$> _prdFormat,+                  ("KeyMd5" .=) <$> _prdKeyMD5, ("Key" .=) <$> _prdKey,                   ("InitializationVector" .=) <$>-                    _prdInitializationVector])+                    _prdInitializationVector,+                  ("LicenseAcquisitionUrl" .=) <$>+                    _prdLicenseAcquisitionURL])  -- | Use Only for Fragmented MP4 or MPEG-TS Outputs. If you specify a preset -- for which the value of Container is 'fmp4' (Fragmented MP4) or 'ts'@@ -2857,53 +2857,58 @@ -- -- /See:/ 'playlist' smart constructor. data Playlist = Playlist'-    { _pPlayReadyDrm         :: !(Maybe PlayReadyDrm)-    , _pStatus               :: !(Maybe Text)-    , _pOutputKeys           :: !(Maybe [Text])+    { _pStatus               :: !(Maybe Text)+    , _pPlayReadyDrm         :: !(Maybe PlayReadyDrm)     , _pFormat               :: !(Maybe Text)+    , _pOutputKeys           :: !(Maybe [Text])     , _pName                 :: !(Maybe Text)-    , _pHlsContentProtection :: !(Maybe HlsContentProtection)     , _pStatusDetail         :: !(Maybe Text)+    , _pHlsContentProtection :: !(Maybe HlsContentProtection)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'Playlist' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pPlayReadyDrm'--- -- * 'pStatus' ----- * 'pOutputKeys'+-- * 'pPlayReadyDrm' -- -- * 'pFormat' ----- * 'pName'+-- * 'pOutputKeys' ----- * 'pHlsContentProtection'+-- * 'pName' -- -- * 'pStatusDetail'+--+-- * 'pHlsContentProtection' playlist     :: Playlist playlist =     Playlist'-    { _pPlayReadyDrm = Nothing-    , _pStatus = Nothing-    , _pOutputKeys = Nothing+    { _pStatus = Nothing+    , _pPlayReadyDrm = Nothing     , _pFormat = Nothing+    , _pOutputKeys = Nothing     , _pName = Nothing-    , _pHlsContentProtection = Nothing     , _pStatusDetail = Nothing+    , _pHlsContentProtection = Nothing     } +-- | The status of the job with which the playlist is associated.+pStatus :: Lens' Playlist (Maybe Text)+pStatus = lens _pStatus (\ s a -> s{_pStatus = a});+ -- | The DRM settings, if any, that you want Elastic Transcoder to apply to -- the output files associated with this playlist. pPlayReadyDrm :: Lens' Playlist (Maybe PlayReadyDrm) pPlayReadyDrm = lens _pPlayReadyDrm (\ s a -> s{_pPlayReadyDrm = a}); --- | The status of the job with which the playlist is associated.-pStatus :: Lens' Playlist (Maybe Text)-pStatus = lens _pStatus (\ s a -> s{_pStatus = a});+-- | The format of the output playlist. Valid formats include 'HLSv3',+-- 'HLSv4', and 'Smooth'.+pFormat :: Lens' Playlist (Maybe Text)+pFormat = lens _pFormat (\ s a -> s{_pFormat = a});  -- | For each output in this job that you want to include in a master -- playlist, the value of the Outputs:Key object.@@ -2948,11 +2953,6 @@ pOutputKeys :: Lens' Playlist [Text] pOutputKeys = lens _pOutputKeys (\ s a -> s{_pOutputKeys = a}) . _Default . _Coerce; --- | The format of the output playlist. Valid formats include 'HLSv3',--- 'HLSv4', and 'Smooth'.-pFormat :: Lens' Playlist (Maybe Text)-pFormat = lens _pFormat (\ s a -> s{_pFormat = 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@@ -2966,26 +2966,26 @@ pName :: Lens' Playlist (Maybe Text) pName = lens _pName (\ s a -> s{_pName = a}); +-- | Information that further explains the status.+pStatusDetail :: Lens' Playlist (Maybe Text)+pStatusDetail = lens _pStatusDetail (\ s a -> s{_pStatusDetail = a});+ -- | The HLS content protection settings, if any, that you want Elastic -- Transcoder to apply to the output files associated with this playlist. pHlsContentProtection :: Lens' Playlist (Maybe HlsContentProtection) pHlsContentProtection = lens _pHlsContentProtection (\ s a -> s{_pHlsContentProtection = a}); --- | Information that further explains the status.-pStatusDetail :: Lens' Playlist (Maybe Text)-pStatusDetail = lens _pStatusDetail (\ s a -> s{_pStatusDetail = a});- instance FromJSON Playlist where         parseJSON           = withObject "Playlist"               (\ x ->                  Playlist' <$>-                   (x .:? "PlayReadyDrm") <*> (x .:? "Status") <*>-                     (x .:? "OutputKeys" .!= mempty)-                     <*> (x .:? "Format")+                   (x .:? "Status") <*> (x .:? "PlayReadyDrm") <*>+                     (x .:? "Format")+                     <*> (x .:? "OutputKeys" .!= mempty)                      <*> (x .:? "Name")-                     <*> (x .:? "HlsContentProtection")-                     <*> (x .:? "StatusDetail"))+                     <*> (x .:? "StatusDetail")+                     <*> (x .:? "HlsContentProtection"))  -- | Presets are templates that contain most of the settings for transcoding -- media files from one format to another. Elastic Transcoder includes some@@ -2998,13 +2998,13 @@ data Preset = Preset'     { _preARN         :: !(Maybe Text)     , _preVideo       :: !(Maybe VideoParameters)-    , _preName        :: !(Maybe Text)     , _preThumbnails  :: !(Maybe Thumbnails)+    , _preName        :: !(Maybe Text)     , _preContainer   :: !(Maybe Text)     , _preId          :: !(Maybe Text)     , _preType        :: !(Maybe Text)-    , _preAudio       :: !(Maybe AudioParameters)     , _preDescription :: !(Maybe Text)+    , _preAudio       :: !(Maybe AudioParameters)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'Preset' with the minimum fields required to make a request.@@ -3015,32 +3015,32 @@ -- -- * 'preVideo' ----- * 'preName'--- -- * 'preThumbnails' --+-- * 'preName'+-- -- * 'preContainer' -- -- * 'preId' -- -- * 'preType' ----- * 'preAudio'--- -- * 'preDescription'+--+-- * 'preAudio' preset     :: Preset preset =     Preset'     { _preARN = Nothing     , _preVideo = Nothing-    , _preName = Nothing     , _preThumbnails = Nothing+    , _preName = Nothing     , _preContainer = Nothing     , _preId = Nothing     , _preType = Nothing-    , _preAudio = Nothing     , _preDescription = Nothing+    , _preAudio = Nothing     }  -- | The Amazon Resource Name (ARN) for the preset.@@ -3052,15 +3052,15 @@ preVideo :: Lens' Preset (Maybe VideoParameters) preVideo = lens _preVideo (\ s a -> s{_preVideo = a}); --- | The name of the preset.-preName :: Lens' Preset (Maybe Text)-preName = lens _preName (\ s a -> s{_preName = a});- -- | A section of the response body that provides information about the -- thumbnail preset values, if any. preThumbnails :: Lens' Preset (Maybe Thumbnails) preThumbnails = lens _preThumbnails (\ s a -> s{_preThumbnails = a}); +-- | The name of the preset.+preName :: Lens' Preset (Maybe Text)+preName = lens _preName (\ s a -> s{_preName = a});+ -- | The container type for the output file. Valid values include 'flac', -- 'flv', 'fmp4', 'gif', 'mp3', 'mp4', 'mpg', 'mxf', 'oga', 'ogg', 'ts', -- and 'webm'.@@ -3077,27 +3077,28 @@ preType :: Lens' Preset (Maybe Text) preType = lens _preType (\ s a -> s{_preType = a}); +-- | A description of the preset.+preDescription :: Lens' Preset (Maybe Text)+preDescription = lens _preDescription (\ s a -> s{_preDescription = a});+ -- | A section of the response body that provides information about the audio -- preset values. preAudio :: Lens' Preset (Maybe AudioParameters) preAudio = lens _preAudio (\ s a -> s{_preAudio = a}); --- | A description of the preset.-preDescription :: Lens' Preset (Maybe Text)-preDescription = lens _preDescription (\ s a -> s{_preDescription = a});- instance FromJSON Preset where         parseJSON           = withObject "Preset"               (\ x ->                  Preset' <$>-                   (x .:? "Arn") <*> (x .:? "Video") <*> (x .:? "Name")-                     <*> (x .:? "Thumbnails")+                   (x .:? "Arn") <*> (x .:? "Video") <*>+                     (x .:? "Thumbnails")+                     <*> (x .:? "Name")                      <*> (x .:? "Container")                      <*> (x .:? "Id")                      <*> (x .:? "Type")-                     <*> (x .:? "Audio")-                     <*> (x .:? "Description"))+                     <*> (x .:? "Description")+                     <*> (x .:? "Audio"))  -- | Settings for the size, location, and opacity of graphics that you want -- Elastic Transcoder to overlay over videos that are transcoded using this@@ -3119,8 +3120,8 @@ data PresetWatermark = PresetWatermark'     { _pwVerticalAlign    :: !(Maybe Text)     , _pwSizingPolicy     :: !(Maybe Text)-    , _pwMaxHeight        :: !(Maybe Text)     , _pwHorizontalOffset :: !(Maybe Text)+    , _pwMaxHeight        :: !(Maybe Text)     , _pwOpacity          :: !(Maybe Text)     , _pwVerticalOffset   :: !(Maybe Text)     , _pwMaxWidth         :: !(Maybe Text)@@ -3137,10 +3138,10 @@ -- -- * 'pwSizingPolicy' ----- * 'pwMaxHeight'--- -- * 'pwHorizontalOffset' --+-- * 'pwMaxHeight'+-- -- * 'pwOpacity' -- -- * 'pwVerticalOffset'@@ -3158,8 +3159,8 @@     PresetWatermark'     { _pwVerticalAlign = Nothing     , _pwSizingPolicy = Nothing-    , _pwMaxHeight = Nothing     , _pwHorizontalOffset = Nothing+    , _pwMaxHeight = Nothing     , _pwOpacity = Nothing     , _pwVerticalOffset = Nothing     , _pwMaxWidth = Nothing@@ -3197,20 +3198,6 @@ pwSizingPolicy :: Lens' PresetWatermark (Maybe Text) pwSizingPolicy = lens _pwSizingPolicy (\ s a -> s{_pwSizingPolicy = 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 amount by which you want the horizontal position of the watermark to -- be offset from the position specified by HorizontalAlign: --@@ -3235,6 +3222,20 @@ pwHorizontalOffset :: Lens' PresetWatermark (Maybe Text) pwHorizontalOffset = lens _pwHorizontalOffset (\ s a -> s{_pwHorizontalOffset = 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});+ -- | 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@@ -3325,8 +3326,8 @@               (\ x ->                  PresetWatermark' <$>                    (x .:? "VerticalAlign") <*> (x .:? "SizingPolicy")-                     <*> (x .:? "MaxHeight")                      <*> (x .:? "HorizontalOffset")+                     <*> (x .:? "MaxHeight")                      <*> (x .:? "Opacity")                      <*> (x .:? "VerticalOffset")                      <*> (x .:? "MaxWidth")@@ -3340,8 +3341,8 @@               (catMaybes                  [("VerticalAlign" .=) <$> _pwVerticalAlign,                   ("SizingPolicy" .=) <$> _pwSizingPolicy,-                  ("MaxHeight" .=) <$> _pwMaxHeight,                   ("HorizontalOffset" .=) <$> _pwHorizontalOffset,+                  ("MaxHeight" .=) <$> _pwMaxHeight,                   ("Opacity" .=) <$> _pwOpacity,                   ("VerticalOffset" .=) <$> _pwVerticalOffset,                   ("MaxWidth" .=) <$> _pwMaxWidth, ("Id" .=) <$> _pwId,@@ -3356,8 +3357,8 @@     , _tFormat        :: !(Maybe Text)     , _tMaxHeight     :: !(Maybe Text)     , _tResolution    :: !(Maybe Text)-    , _tPaddingPolicy :: !(Maybe Text)     , _tAspectRatio   :: !(Maybe Text)+    , _tPaddingPolicy :: !(Maybe Text)     , _tInterval      :: !(Maybe Text)     , _tMaxWidth      :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -3374,10 +3375,10 @@ -- -- * 'tResolution' ----- * 'tPaddingPolicy'--- -- * 'tAspectRatio' --+-- * 'tPaddingPolicy'+-- -- * 'tInterval' -- -- * 'tMaxWidth'@@ -3389,8 +3390,8 @@     , _tFormat = Nothing     , _tMaxHeight = Nothing     , _tResolution = Nothing-    , _tPaddingPolicy = Nothing     , _tAspectRatio = Nothing+    , _tPaddingPolicy = Nothing     , _tInterval = Nothing     , _tMaxWidth = Nothing     }@@ -3452,13 +3453,6 @@ tResolution :: Lens' Thumbnails (Maybe Text) tResolution = lens _tResolution (\ s a -> s{_tResolution = 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@@ -3474,6 +3468,13 @@ tAspectRatio :: Lens' Thumbnails (Maybe Text) tAspectRatio = lens _tAspectRatio (\ s a -> s{_tAspectRatio = 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});+ -- | The approximate number of seconds between thumbnails. Specify an integer -- value. tInterval :: Lens' Thumbnails (Maybe Text)@@ -3493,8 +3494,8 @@                    (x .:? "SizingPolicy") <*> (x .:? "Format") <*>                      (x .:? "MaxHeight")                      <*> (x .:? "Resolution")-                     <*> (x .:? "PaddingPolicy")                      <*> (x .:? "AspectRatio")+                     <*> (x .:? "PaddingPolicy")                      <*> (x .:? "Interval")                      <*> (x .:? "MaxWidth")) @@ -3506,8 +3507,8 @@                   ("Format" .=) <$> _tFormat,                   ("MaxHeight" .=) <$> _tMaxHeight,                   ("Resolution" .=) <$> _tResolution,-                  ("PaddingPolicy" .=) <$> _tPaddingPolicy,                   ("AspectRatio" .=) <$> _tAspectRatio,+                  ("PaddingPolicy" .=) <$> _tPaddingPolicy,                   ("Interval" .=) <$> _tInterval,                   ("MaxWidth" .=) <$> _tMaxWidth]) @@ -3624,12 +3625,12 @@     , _vpSizingPolicy       :: !(Maybe Text)     , _vpMaxFrameRate       :: !(Maybe Text)     , _vpMaxHeight          :: !(Maybe Text)-    , _vpDisplayAspectRatio :: !(Maybe Text)     , _vpWatermarks         :: !(Maybe [PresetWatermark])-    , _vpCodec              :: !(Maybe Text)+    , _vpDisplayAspectRatio :: !(Maybe Text)     , _vpResolution         :: !(Maybe Text)-    , _vpPaddingPolicy      :: !(Maybe Text)+    , _vpCodec              :: !(Maybe Text)     , _vpAspectRatio        :: !(Maybe Text)+    , _vpPaddingPolicy      :: !(Maybe Text)     , _vpMaxWidth           :: !(Maybe Text)     , _vpBitRate            :: !(Maybe Text)     , _vpFixedGOP           :: !(Maybe Text)@@ -3650,18 +3651,18 @@ -- -- * 'vpMaxHeight' ----- * 'vpDisplayAspectRatio'--- -- * 'vpWatermarks' ----- * 'vpCodec'+-- * 'vpDisplayAspectRatio' -- -- * 'vpResolution' ----- * 'vpPaddingPolicy'+-- * 'vpCodec' -- -- * 'vpAspectRatio' --+-- * 'vpPaddingPolicy'+-- -- * 'vpMaxWidth' -- -- * 'vpBitRate'@@ -3678,12 +3679,12 @@     , _vpSizingPolicy = Nothing     , _vpMaxFrameRate = Nothing     , _vpMaxHeight = Nothing-    , _vpDisplayAspectRatio = Nothing     , _vpWatermarks = Nothing-    , _vpCodec = Nothing+    , _vpDisplayAspectRatio = Nothing     , _vpResolution = Nothing-    , _vpPaddingPolicy = Nothing+    , _vpCodec = Nothing     , _vpAspectRatio = Nothing+    , _vpPaddingPolicy = Nothing     , _vpMaxWidth = Nothing     , _vpBitRate = Nothing     , _vpFixedGOP = Nothing@@ -3799,11 +3800,6 @@ vpMaxHeight :: Lens' VideoParameters (Maybe Text) vpMaxHeight = lens _vpMaxHeight (\ s a -> s{_vpMaxHeight = a}); --- | 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});- -- | 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@@ -3822,12 +3818,10 @@ vpWatermarks :: Lens' VideoParameters [PresetWatermark] vpWatermarks = lens _vpWatermarks (\ s a -> s{_vpWatermarks = a}) . _Default . _Coerce; --- | The video codec for the output file. Valid values include 'gif',--- 'H.264', 'mpeg2', and 'vp8'. You can only specify 'vp8' when the--- container type is 'webm', 'gif' when the container type is 'gif', and--- 'mpeg2' when the container type is 'mpg'.-vpCodec :: Lens' VideoParameters (Maybe Text)-vpCodec = lens _vpCodec (\ s a -> s{_vpCodec = a});+-- | 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});  -- | To better control resolution and aspect ratio of output videos, we -- recommend that you use the values 'MaxWidth', 'MaxHeight',@@ -3877,12 +3871,12 @@ vpResolution :: Lens' VideoParameters (Maybe Text) vpResolution = lens _vpResolution (\ s a -> s{_vpResolution = 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});+-- | The video codec for the output file. Valid values include 'gif',+-- 'H.264', 'mpeg2', and 'vp8'. You can only specify 'vp8' when the+-- container type is 'webm', 'gif' when the container type is 'gif', and+-- 'mpeg2' when the container type is 'mpg'.+vpCodec :: Lens' VideoParameters (Maybe Text)+vpCodec = lens _vpCodec (\ s a -> s{_vpCodec = a});  -- | To better control resolution and aspect ratio of output videos, we -- recommend that you use the values 'MaxWidth', 'MaxHeight',@@ -3905,6 +3899,13 @@ vpAspectRatio :: Lens' VideoParameters (Maybe Text) vpAspectRatio = lens _vpAspectRatio (\ s a -> s{_vpAspectRatio = 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});+ -- | 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.@@ -4094,12 +4095,12 @@                      <*> (x .:? "SizingPolicy")                      <*> (x .:? "MaxFrameRate")                      <*> (x .:? "MaxHeight")-                     <*> (x .:? "DisplayAspectRatio")                      <*> (x .:? "Watermarks" .!= mempty)-                     <*> (x .:? "Codec")+                     <*> (x .:? "DisplayAspectRatio")                      <*> (x .:? "Resolution")-                     <*> (x .:? "PaddingPolicy")+                     <*> (x .:? "Codec")                      <*> (x .:? "AspectRatio")+                     <*> (x .:? "PaddingPolicy")                      <*> (x .:? "MaxWidth")                      <*> (x .:? "BitRate")                      <*> (x .:? "FixedGOP")@@ -4114,12 +4115,12 @@                   ("SizingPolicy" .=) <$> _vpSizingPolicy,                   ("MaxFrameRate" .=) <$> _vpMaxFrameRate,                   ("MaxHeight" .=) <$> _vpMaxHeight,-                  ("DisplayAspectRatio" .=) <$> _vpDisplayAspectRatio,                   ("Watermarks" .=) <$> _vpWatermarks,-                  ("Codec" .=) <$> _vpCodec,+                  ("DisplayAspectRatio" .=) <$> _vpDisplayAspectRatio,                   ("Resolution" .=) <$> _vpResolution,-                  ("PaddingPolicy" .=) <$> _vpPaddingPolicy,+                  ("Codec" .=) <$> _vpCodec,                   ("AspectRatio" .=) <$> _vpAspectRatio,+                  ("PaddingPolicy" .=) <$> _vpPaddingPolicy,                   ("MaxWidth" .=) <$> _vpMaxWidth,                   ("BitRate" .=) <$> _vpBitRate,                   ("FixedGOP" .=) <$> _vpFixedGOP,

@@ -36,8 +36,8 @@     , upRole     , upName     , upAWSKMSKeyARN-    , upThumbnailConfig     , upNotifications+    , upThumbnailConfig     , upId      -- * Destructuring the Response@@ -46,7 +46,7 @@     -- * Response Lenses     , uprsWarnings     , uprsPipeline-    , uprsStatus+    , uprsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -64,8 +64,8 @@     , _upRole            :: !(Maybe Text)     , _upName            :: !(Maybe Text)     , _upAWSKMSKeyARN    :: !(Maybe Text)-    , _upThumbnailConfig :: !(Maybe PipelineOutputConfig)     , _upNotifications   :: !(Maybe Notifications)+    , _upThumbnailConfig :: !(Maybe PipelineOutputConfig)     , _upId              :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -83,10 +83,10 @@ -- -- * 'upAWSKMSKeyARN' ----- * 'upThumbnailConfig'--- -- * 'upNotifications' --+-- * 'upThumbnailConfig'+-- -- * 'upId' updatePipeline     :: Text -- ^ 'upId'@@ -98,8 +98,8 @@     , _upRole = Nothing     , _upName = Nothing     , _upAWSKMSKeyARN = Nothing-    , _upThumbnailConfig = Nothing     , _upNotifications = Nothing+    , _upThumbnailConfig = Nothing     , _upId = pId_     } @@ -192,6 +192,10 @@ upAWSKMSKeyARN :: Lens' UpdatePipeline (Maybe Text) upAWSKMSKeyARN = lens _upAWSKMSKeyARN (\ s a -> s{_upAWSKMSKeyARN = a}); +-- | Undocumented member.+upNotifications :: Lens' UpdatePipeline (Maybe Notifications)+upNotifications = lens _upNotifications (\ s a -> s{_upNotifications = 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@@ -246,10 +250,6 @@ upThumbnailConfig :: Lens' UpdatePipeline (Maybe PipelineOutputConfig) upThumbnailConfig = lens _upThumbnailConfig (\ s a -> s{_upThumbnailConfig = a}); --- | Undocumented member.-upNotifications :: Lens' UpdatePipeline (Maybe Notifications)-upNotifications = lens _upNotifications (\ s a -> s{_upNotifications = a});- -- | The ID of the pipeline that you want to update. upId :: Lens' UpdatePipeline Text upId = lens _upId (\ s a -> s{_upId = a});@@ -275,8 +275,8 @@                   ("ContentConfig" .=) <$> _upContentConfig,                   ("Role" .=) <$> _upRole, ("Name" .=) <$> _upName,                   ("AwsKmsKeyArn" .=) <$> _upAWSKMSKeyARN,-                  ("ThumbnailConfig" .=) <$> _upThumbnailConfig,-                  ("Notifications" .=) <$> _upNotifications])+                  ("Notifications" .=) <$> _upNotifications,+                  ("ThumbnailConfig" .=) <$> _upThumbnailConfig])  instance ToPath UpdatePipeline where         toPath UpdatePipeline'{..}@@ -290,9 +290,9 @@ -- -- /See:/ 'updatePipelineResponse' smart constructor. data UpdatePipelineResponse = UpdatePipelineResponse'-    { _uprsWarnings :: !(Maybe [Warning])-    , _uprsPipeline :: !(Maybe Pipeline)-    , _uprsStatus   :: !Int+    { _uprsWarnings       :: !(Maybe [Warning])+    , _uprsPipeline       :: !(Maybe Pipeline)+    , _uprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdatePipelineResponse' with the minimum fields required to make a request.@@ -303,15 +303,15 @@ -- -- * 'uprsPipeline' ----- * 'uprsStatus'+-- * 'uprsResponseStatus' updatePipelineResponse-    :: Int -- ^ 'uprsStatus'+    :: Int -- ^ 'uprsResponseStatus'     -> UpdatePipelineResponse-updatePipelineResponse pStatus_ =+updatePipelineResponse pResponseStatus_ =     UpdatePipelineResponse'     { _uprsWarnings = Nothing     , _uprsPipeline = Nothing-    , _uprsStatus = pStatus_+    , _uprsResponseStatus = pResponseStatus_     }  -- | Elastic Transcoder returns a warning if the resources used by your@@ -328,5 +328,5 @@ uprsPipeline = lens _uprsPipeline (\ s a -> s{_uprsPipeline = a});  -- | The response status code.-uprsStatus :: Lens' UpdatePipelineResponse Int-uprsStatus = lens _uprsStatus (\ s a -> s{_uprsStatus = a});+uprsResponseStatus :: Lens' UpdatePipelineResponse Int+uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a});

@@ -39,7 +39,7 @@     , UpdatePipelineNotificationsResponse     -- * Response Lenses     , upnrsPipeline-    , upnrsStatus+    , upnrsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -133,8 +133,8 @@ -- -- /See:/ 'updatePipelineNotificationsResponse' smart constructor. data UpdatePipelineNotificationsResponse = UpdatePipelineNotificationsResponse'-    { _upnrsPipeline :: !(Maybe Pipeline)-    , _upnrsStatus   :: !Int+    { _upnrsPipeline       :: !(Maybe Pipeline)+    , _upnrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdatePipelineNotificationsResponse' with the minimum fields required to make a request.@@ -143,14 +143,14 @@ -- -- * 'upnrsPipeline' ----- * 'upnrsStatus'+-- * 'upnrsResponseStatus' updatePipelineNotificationsResponse-    :: Int -- ^ 'upnrsStatus'+    :: Int -- ^ 'upnrsResponseStatus'     -> UpdatePipelineNotificationsResponse-updatePipelineNotificationsResponse pStatus_ =+updatePipelineNotificationsResponse pResponseStatus_ =     UpdatePipelineNotificationsResponse'     { _upnrsPipeline = Nothing-    , _upnrsStatus = pStatus_+    , _upnrsResponseStatus = pResponseStatus_     }  -- | A section of the response body that provides information about the@@ -159,5 +159,5 @@ upnrsPipeline = lens _upnrsPipeline (\ s a -> s{_upnrsPipeline = a});  -- | The response status code.-upnrsStatus :: Lens' UpdatePipelineNotificationsResponse Int-upnrsStatus = lens _upnrsStatus (\ s a -> s{_upnrsStatus = a});+upnrsResponseStatus :: Lens' UpdatePipelineNotificationsResponse Int+upnrsResponseStatus = lens _upnrsResponseStatus (\ s a -> s{_upnrsResponseStatus = a});

@@ -42,7 +42,7 @@     , UpdatePipelineStatusResponse     -- * Response Lenses     , upsrsPipeline-    , upsrsStatus+    , upsrsResponseStatus     ) where  import           Network.AWS.ElasticTranscoder.Types@@ -117,8 +117,8 @@ -- -- /See:/ 'updatePipelineStatusResponse' smart constructor. data UpdatePipelineStatusResponse = UpdatePipelineStatusResponse'-    { _upsrsPipeline :: !(Maybe Pipeline)-    , _upsrsStatus   :: !Int+    { _upsrsPipeline       :: !(Maybe Pipeline)+    , _upsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdatePipelineStatusResponse' with the minimum fields required to make a request.@@ -127,14 +127,14 @@ -- -- * 'upsrsPipeline' ----- * 'upsrsStatus'+-- * 'upsrsResponseStatus' updatePipelineStatusResponse-    :: Int -- ^ 'upsrsStatus'+    :: Int -- ^ 'upsrsResponseStatus'     -> UpdatePipelineStatusResponse-updatePipelineStatusResponse pStatus_ =+updatePipelineStatusResponse pResponseStatus_ =     UpdatePipelineStatusResponse'     { _upsrsPipeline = Nothing-    , _upsrsStatus = pStatus_+    , _upsrsResponseStatus = pResponseStatus_     }  -- | A section of the response body that provides information about the@@ -143,5 +143,5 @@ upsrsPipeline = lens _upsrsPipeline (\ s a -> s{_upsrsPipeline = a});  -- | The response status code.-upsrsStatus :: Lens' UpdatePipelineStatusResponse Int-upsrsStatus = lens _upsrsStatus (\ s a -> s{_upsrsStatus = a});+upsrsResponseStatus :: Lens' UpdatePipelineStatusResponse Int+upsrsResponseStatus = lens _upsrsResponseStatus (\ s a -> s{_upsrsResponseStatus = a});

@@ -31,12 +31,12 @@ --         [ testDeletePreset $ --             deletePreset -----         , testListJobsByPipeline $---             listJobsByPipeline--- --         , testUpdatePipelineStatus $ --             updatePipelineStatus --+--         , testListJobsByPipeline $+--             listJobsByPipeline+-- --         , testTestRole $ --             testRole --@@ -61,12 +61,12 @@ --         , testReadPreset $ --             readPreset -----         , testUpdatePipelineNotifications $---             updatePipelineNotifications--- --         , testReadJob $ --             readJob --+--         , testUpdatePipelineNotifications $+--             updatePipelineNotifications+-- --         , testReadPipeline $ --             readPipeline --@@ -85,12 +85,12 @@ --         [ testDeletePresetResponse $ --             deletePresetResponse -----         , testListJobsByPipelineResponse $---             listJobsByPipelineResponse--- --         , testUpdatePipelineStatusResponse $ --             updatePipelineStatusResponse --+--         , testListJobsByPipelineResponse $+--             listJobsByPipelineResponse+-- --         , testTestRoleResponse $ --             testRoleResponse --@@ -115,12 +115,12 @@ --         , testReadPresetResponse $ --             readPresetResponse -----         , testUpdatePipelineNotificationsResponse $---             updatePipelineNotificationsResponse--- --         , testReadJobResponse $ --             readJobResponse --+--         , testUpdatePipelineNotificationsResponse $+--             updatePipelineNotificationsResponse+-- --         , testReadPipelineResponse $ --             readPipelineResponse --@@ -143,16 +143,16 @@     "DeletePreset"     "fixture/DeletePreset.yaml" -testListJobsByPipeline :: ListJobsByPipeline -> TestTree-testListJobsByPipeline = req-    "ListJobsByPipeline"-    "fixture/ListJobsByPipeline.yaml"- testUpdatePipelineStatus :: UpdatePipelineStatus -> TestTree testUpdatePipelineStatus = req     "UpdatePipelineStatus"     "fixture/UpdatePipelineStatus.yaml" +testListJobsByPipeline :: ListJobsByPipeline -> TestTree+testListJobsByPipeline = req+    "ListJobsByPipeline"+    "fixture/ListJobsByPipeline.yaml"+ testTestRole :: TestRole -> TestTree testTestRole = req     "TestRole"@@ -193,16 +193,16 @@     "ReadPreset"     "fixture/ReadPreset.yaml" -testUpdatePipelineNotifications :: UpdatePipelineNotifications -> TestTree-testUpdatePipelineNotifications = req-    "UpdatePipelineNotifications"-    "fixture/UpdatePipelineNotifications.yaml"- testReadJob :: ReadJob -> TestTree testReadJob = req     "ReadJob"     "fixture/ReadJob.yaml" +testUpdatePipelineNotifications :: UpdatePipelineNotifications -> TestTree+testUpdatePipelineNotifications = req+    "UpdatePipelineNotifications"+    "fixture/UpdatePipelineNotifications.yaml"+ testReadPipeline :: ReadPipeline -> TestTree testReadPipeline = req     "ReadPipeline"@@ -232,13 +232,6 @@     elasticTranscoder     (Proxy :: Proxy DeletePreset) -testListJobsByPipelineResponse :: ListJobsByPipelineResponse -> TestTree-testListJobsByPipelineResponse = res-    "ListJobsByPipelineResponse"-    "fixture/ListJobsByPipelineResponse.proto"-    elasticTranscoder-    (Proxy :: Proxy ListJobsByPipeline)- testUpdatePipelineStatusResponse :: UpdatePipelineStatusResponse -> TestTree testUpdatePipelineStatusResponse = res     "UpdatePipelineStatusResponse"@@ -246,6 +239,13 @@     elasticTranscoder     (Proxy :: Proxy UpdatePipelineStatus) +testListJobsByPipelineResponse :: ListJobsByPipelineResponse -> TestTree+testListJobsByPipelineResponse = res+    "ListJobsByPipelineResponse"+    "fixture/ListJobsByPipelineResponse.proto"+    elasticTranscoder+    (Proxy :: Proxy ListJobsByPipeline)+ testTestRoleResponse :: TestRoleResponse -> TestTree testTestRoleResponse = res     "TestRoleResponse"@@ -302,19 +302,19 @@     elasticTranscoder     (Proxy :: Proxy ReadPreset) -testUpdatePipelineNotificationsResponse :: UpdatePipelineNotificationsResponse -> TestTree-testUpdatePipelineNotificationsResponse = res-    "UpdatePipelineNotificationsResponse"-    "fixture/UpdatePipelineNotificationsResponse.proto"-    elasticTranscoder-    (Proxy :: Proxy UpdatePipelineNotifications)- testReadJobResponse :: ReadJobResponse -> TestTree testReadJobResponse = res     "ReadJobResponse"     "fixture/ReadJobResponse.proto"     elasticTranscoder     (Proxy :: Proxy ReadJob)++testUpdatePipelineNotificationsResponse :: UpdatePipelineNotificationsResponse -> TestTree+testUpdatePipelineNotificationsResponse = res+    "UpdatePipelineNotificationsResponse"+    "fixture/UpdatePipelineNotificationsResponse.proto"+    elasticTranscoder+    (Proxy :: Proxy UpdatePipelineNotifications)  testReadPipelineResponse :: ReadPipelineResponse -> TestTree testReadPipelineResponse = res