amazonka-elastictranscoder 0.1.0 → 0.1.1

raw patch · 3 files changed

+40/−3 lines, 3 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-elastictranscoder.cabal +3/−3
• gen/Network/AWS/ElasticTranscoder/CreateJob.hs +12/−0
• gen/Network/AWS/ElasticTranscoder/Types.hs +25/−0

@@ -1,5 +1,5 @@ name:                  amazonka-elastictranscoder-version:               0.1.0+version:               0.1.1 synopsis:              Amazon Elastic Transcoder SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -7,7 +7,7 @@ author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com> copyright:             Copyright (c) 2013-2014 Brendan Hay-category:              Network, AWS, Cloud+category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10@@ -60,5 +60,5 @@     other-modules:      build-depends:-          amazonka-core == 0.1.0.*+          amazonka-core == 0.1.1.*         , base          >= 4.7     && < 5

@@ -44,6 +44,7 @@     , cjOutputs     , cjPipelineId     , cjPlaylists+    , cjUserMetadata      -- * Response     , CreateJobResponse@@ -65,6 +66,7 @@     , _cjOutputs         :: List "Outputs" CreateJobOutput     , _cjPipelineId      :: Text     , _cjPlaylists       :: List "Playlists" CreateJobPlaylist+    , _cjUserMetadata    :: Map Text Text     } deriving (Eq, Show)  -- | 'CreateJob' constructor.@@ -83,6 +85,8 @@ -- -- * 'cjPlaylists' @::@ ['CreateJobPlaylist'] --+-- * 'cjUserMetadata' @::@ 'HashMap' 'Text' 'Text'+-- createJob :: Text -- ^ 'cjPipelineId'           -> JobInput -- ^ 'cjInput'           -> CreateJob@@ -93,6 +97,7 @@     , _cjOutputs         = mempty     , _cjOutputKeyPrefix = Nothing     , _cjPlaylists       = mempty+    , _cjUserMetadata    = mempty     }  -- | A section of the request body that provides information about the file that@@ -130,6 +135,12 @@ cjPlaylists :: Lens' CreateJob [CreateJobPlaylist] cjPlaylists = lens _cjPlaylists (\s a -> s { _cjPlaylists = a }) . _List +-- | User-defined metadata that you want to associate with an Elastic Transcoder+-- job. You specify metadata in 'key/value' pairs, and you can add up to 10 'key/value' pairs per job. Elastic Transcoder does not guarantee that 'key/value' pairs+-- will be returned in the same order in which you specify them.+cjUserMetadata :: Lens' CreateJob (HashMap Text Text)+cjUserMetadata = lens _cjUserMetadata (\s a -> s { _cjUserMetadata = a }) . _Map+ newtype CreateJobResponse = CreateJobResponse     { _cjrJob :: Maybe Job'     } deriving (Eq, Show)@@ -166,6 +177,7 @@         , "Outputs"         .= _cjOutputs         , "OutputKeyPrefix" .= _cjOutputKeyPrefix         , "Playlists"       .= _cjPlaylists+        , "UserMetadata"    .= _cjUserMetadata         ]  instance AWSRequest CreateJob where

@@ -89,6 +89,7 @@     , jPipelineId     , jPlaylists     , jStatus+    , jUserMetadata      -- * CaptionSource     , CaptionSource@@ -924,6 +925,7 @@     , _jPipelineId      :: Text     , _jPlaylists       :: List "Playlists" Playlist     , _jStatus          :: Text+    , _jUserMetadata    :: Map Text Text     } deriving (Eq, Show)  -- | 'Job'' constructor.@@ -948,6 +950,8 @@ -- -- * 'jStatus' @::@ 'Text' --+-- * 'jUserMetadata' @::@ 'HashMap' 'Text' 'Text'+-- job :: Text -- ^ 'jId'     -> Text -- ^ 'jPipelineId'     -> JobInput -- ^ 'jInput'@@ -964,6 +968,7 @@     , _jOutput          = Nothing     , _jOutputs         = mempty     , _jPlaylists       = mempty+    , _jUserMetadata    = mempty     }  -- | The Amazon Resource Name (ARN) for the job.@@ -1025,6 +1030,24 @@ jStatus :: Lens' Job' Text jStatus = lens _jStatus (\s a -> s { _jStatus = a }) +-- | User-defined metadata that you want to associate with an Elastic Transcoder+-- job. You specify metadata in 'key/value' pairs, and you can add up to 10 'key/value' pairs per job. Elastic Transcoder does not guarantee that 'key/value' pairs+-- will be returned in the same order in which you specify them.+--+-- Metadata 'keys' and 'values' must use characters from the following list:+--+-- '0-9'+--+-- 'A-Z' and 'a-z'+--+-- 'Space'+--+-- The following symbols: '_.:/=+-%@'+--+--+jUserMetadata :: Lens' Job' (HashMap Text Text)+jUserMetadata = lens _jUserMetadata (\s a -> s { _jUserMetadata = a }) . _Map+ instance FromJSON Job' where     parseJSON = withObject "Job'" $ \o -> Job'         <$> o .:? "Arn"@@ -1036,6 +1059,7 @@         <*> o .:  "PipelineId"         <*> o .:? "Playlists" .!= mempty         <*> o .:  "Status"+        <*> o .:? "UserMetadata" .!= mempty  instance ToJSON Job' where     toJSON Job'{..} = object@@ -1048,6 +1072,7 @@         , "OutputKeyPrefix" .= _jOutputKeyPrefix         , "Playlists"       .= _jPlaylists         , "Status"          .= _jStatus+        , "UserMetadata"    .= _jUserMetadata         ]  data CaptionSource = CaptionSource