diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-elastictranscoder.cabal b/amazonka-elastictranscoder.cabal --- a/amazonka-elastictranscoder.cabal +++ b/amazonka-elastictranscoder.cabal @@ -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 diff --git a/gen/Network/AWS/ElasticTranscoder.hs b/gen/Network/AWS/ElasticTranscoder.hs --- a/gen/Network/AWS/ElasticTranscoder.hs +++ b/gen/Network/AWS/ElasticTranscoder.hs @@ -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 diff --git a/gen/Network/AWS/ElasticTranscoder/CancelJob.hs b/gen/Network/AWS/ElasticTranscoder/CancelJob.hs --- a/gen/Network/AWS/ElasticTranscoder/CancelJob.hs +++ b/gen/Network/AWS/ElasticTranscoder/CancelJob.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/CreateJob.hs b/gen/Network/AWS/ElasticTranscoder/CreateJob.hs --- a/gen/Network/AWS/ElasticTranscoder/CreateJob.hs +++ b/gen/Network/AWS/ElasticTranscoder/CreateJob.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs b/gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs --- a/gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs +++ b/gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/CreatePreset.hs b/gen/Network/AWS/ElasticTranscoder/CreatePreset.hs --- a/gen/Network/AWS/ElasticTranscoder/CreatePreset.hs +++ b/gen/Network/AWS/ElasticTranscoder/CreatePreset.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs b/gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs --- a/gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs +++ b/gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/DeletePreset.hs b/gen/Network/AWS/ElasticTranscoder/DeletePreset.hs --- a/gen/Network/AWS/ElasticTranscoder/DeletePreset.hs +++ b/gen/Network/AWS/ElasticTranscoder/DeletePreset.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs b/gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs --- a/gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs +++ b/gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs b/gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs --- a/gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs +++ b/gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/ListPipelines.hs b/gen/Network/AWS/ElasticTranscoder/ListPipelines.hs --- a/gen/Network/AWS/ElasticTranscoder/ListPipelines.hs +++ b/gen/Network/AWS/ElasticTranscoder/ListPipelines.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/ListPresets.hs b/gen/Network/AWS/ElasticTranscoder/ListPresets.hs --- a/gen/Network/AWS/ElasticTranscoder/ListPresets.hs +++ b/gen/Network/AWS/ElasticTranscoder/ListPresets.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/ReadJob.hs b/gen/Network/AWS/ElasticTranscoder/ReadJob.hs --- a/gen/Network/AWS/ElasticTranscoder/ReadJob.hs +++ b/gen/Network/AWS/ElasticTranscoder/ReadJob.hs @@ -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' diff --git a/gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs b/gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs --- a/gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs +++ b/gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/ReadPreset.hs b/gen/Network/AWS/ElasticTranscoder/ReadPreset.hs --- a/gen/Network/AWS/ElasticTranscoder/ReadPreset.hs +++ b/gen/Network/AWS/ElasticTranscoder/ReadPreset.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/TestRole.hs b/gen/Network/AWS/ElasticTranscoder/TestRole.hs --- a/gen/Network/AWS/ElasticTranscoder/TestRole.hs +++ b/gen/Network/AWS/ElasticTranscoder/TestRole.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/Types.hs b/gen/Network/AWS/ElasticTranscoder/Types.hs --- a/gen/Network/AWS/ElasticTranscoder/Types.hs +++ b/gen/Network/AWS/ElasticTranscoder/Types.hs @@ -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" diff --git a/gen/Network/AWS/ElasticTranscoder/Types/Product.hs b/gen/Network/AWS/ElasticTranscoder/Types/Product.hs --- a/gen/Network/AWS/ElasticTranscoder/Types/Product.hs +++ b/gen/Network/AWS/ElasticTranscoder/Types/Product.hs @@ -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, diff --git a/gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs b/gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs --- a/gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs +++ b/gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs b/gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs --- a/gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs +++ b/gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs @@ -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}); diff --git a/gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs b/gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs --- a/gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs +++ b/gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs @@ -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}); diff --git a/test/Test/AWS/Gen/ElasticTranscoder.hs b/test/Test/AWS/Gen/ElasticTranscoder.hs --- a/test/Test/AWS/Gen/ElasticTranscoder.hs +++ b/test/Test/AWS/Gen/ElasticTranscoder.hs @@ -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