Adding ElasticTranscoder overrides

dysinger · Dec 7, 2014 · aa28d3e · aa28d3e
1 parent b0ac199
commit aa28d3e
Show file tree

Hide file tree

Showing 7 changed files with 286 additions and 168 deletions.
diff --git a/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/ReadJob.hs b/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/ReadJob.hs
@@ -68,22 +68,23 @@ rjId :: Lens' ReadJob Text
 rjId = lens _rjId (\s a -> s { _rjId = a })
 
 newtype ReadJobResponse = ReadJobResponse
-    { _rjrJob :: Maybe Job'
+    { _rjrJob :: Job'
     } deriving (Eq, Show)
 
 -- | 'ReadJobResponse' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'rjrJob' @::@ 'Maybe' 'Job''
+-- * 'rjrJob' @::@ 'Job''
 --
-readJobResponse :: ReadJobResponse
-readJobResponse = ReadJobResponse
-    { _rjrJob = Nothing
+readJobResponse :: Job' -- ^ 'rjrJob'
+                -> ReadJobResponse
+readJobResponse p1 = ReadJobResponse
+    { _rjrJob = p1
     }
 
 -- | A section of the response body that provides information about the job.
-rjrJob :: Lens' ReadJobResponse (Maybe Job')
+rjrJob :: Lens' ReadJobResponse Job'
 rjrJob = lens _rjrJob (\s a -> s { _rjrJob = a })
 
 instance ToPath ReadJob where
@@ -109,4 +110,4 @@ instance AWSRequest ReadJob where
 
 instance FromJSON ReadJobResponse where
     parseJSON = withObject "ReadJobResponse" $ \o -> ReadJobResponse
-        <$> o .:? "Job"
+        <$> o .:  "Job"
diff --git a/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Types.hs b/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Types.hs
@@ -916,14 +916,14 @@ instance ToJSON JobOutput where
 
 data Job' = Job'
     { _jArn             :: Maybe Text
-    , _jId              :: Maybe Text
-    , _jInput           :: Maybe JobInput
+    , _jId              :: Text
+    , _jInput           :: JobInput
     , _jOutput          :: Maybe JobOutput
-    , _jOutputKeyPrefix :: Maybe Text
+    , _jOutputKeyPrefix :: Text
     , _jOutputs         :: List "Outputs" JobOutput
-    , _jPipelineId      :: Maybe Text
+    , _jPipelineId      :: Text
     , _jPlaylists       :: List "Playlists" Playlist
-    , _jStatus          :: Maybe Text
+    , _jStatus          :: Text
     } deriving (Eq, Show)
 
 -- | 'Job'' constructor.
@@ -932,33 +932,38 @@ data Job' = Job'
 --
 -- * 'jArn' @::@ 'Maybe' 'Text'
 --
--- * 'jId' @::@ 'Maybe' 'Text'
+-- * 'jId' @::@ 'Text'
 --
--- * 'jInput' @::@ 'Maybe' 'JobInput'
+-- * 'jInput' @::@ 'JobInput'
 --
 -- * 'jOutput' @::@ 'Maybe' 'JobOutput'
 --
--- * 'jOutputKeyPrefix' @::@ 'Maybe' 'Text'
+-- * 'jOutputKeyPrefix' @::@ 'Text'
 --
 -- * 'jOutputs' @::@ ['JobOutput']
 --
--- * 'jPipelineId' @::@ 'Maybe' 'Text'
+-- * 'jPipelineId' @::@ 'Text'
 --
 -- * 'jPlaylists' @::@ ['Playlist']
 --
--- * 'jStatus' @::@ 'Maybe' 'Text'
---
-job :: Job'
-job = Job'
-    { _jId              = Nothing
+-- * 'jStatus' @::@ 'Text'
+--
+job :: Text -- ^ 'jId'
+    -> Text -- ^ 'jPipelineId'
+    -> JobInput -- ^ 'jInput'
+    -> Text -- ^ 'jOutputKeyPrefix'
+    -> Text -- ^ 'jStatus'
+    -> Job'
+job p1 p2 p3 p4 p5 = Job'
+    { _jId              = p1
+    , _jPipelineId      = p2
+    , _jInput           = p3
+    , _jOutputKeyPrefix = p4
+    , _jStatus          = p5
     , _jArn             = Nothing
-    , _jPipelineId      = Nothing
-    , _jInput           = Nothing
     , _jOutput          = Nothing
     , _jOutputs         = mempty
-    , _jOutputKeyPrefix = Nothing
     , _jPlaylists       = mempty
-    , _jStatus          = Nothing
     }
 
 -- | The Amazon Resource Name (ARN) for the job.
@@ -967,12 +972,12 @@ jArn = lens _jArn (\s a -> s { _jArn = a })
 
 -- | The identifier that Elastic Transcoder assigned to the job. You use this
 -- value to get settings for the job or to delete the job.
-jId :: Lens' Job' (Maybe Text)
+jId :: Lens' Job' Text
 jId = lens _jId (\s a -> s { _jId = a })
 
 -- | A section of the request or response body that provides information about
 -- the file that is being transcoded.
-jInput :: Lens' Job' (Maybe JobInput)
+jInput :: Lens' Job' JobInput
 jInput = lens _jInput (\s a -> s { _jInput = a })
 
 -- | If you specified one output for a job, information about that output. If you
@@ -989,7 +994,7 @@ jOutput = lens _jOutput (\s a -> s { _jOutput = a })
 -- of all files that this job creates, including output files, thumbnails, and
 -- playlists. We recommend that you add a / or some other delimiter to the end
 -- of the 'OutputKeyPrefix'.
-jOutputKeyPrefix :: Lens' Job' (Maybe Text)
+jOutputKeyPrefix :: Lens' Job' Text
 jOutputKeyPrefix = lens _jOutputKeyPrefix (\s a -> s { _jOutputKeyPrefix = a })
 
 -- | Information about the output files. We recommend that you use the 'Outputs'
@@ -1006,7 +1011,7 @@ jOutputs = lens _jOutputs (\s a -> s { _jOutputs = a }) . _List
 -- transcoding. The pipeline determines several settings, including the Amazon
 -- S3 bucket from which Elastic Transcoder gets the files to transcode and the
 -- bucket into which Elastic Transcoder puts the transcoded files.
-jPipelineId :: Lens' Job' (Maybe Text)
+jPipelineId :: Lens' Job' Text
 jPipelineId = lens _jPipelineId (\s a -> s { _jPipelineId = a })
 
 -- | Outputs in Fragmented MP4 or MPEG-TS format only.If you specify a preset in 'PresetId' for which the value of 'Container' is fmp4 (Fragmented MP4) or ts (MPEG-TS), 'Playlists' contains information about the master playlists that you want Elastic
@@ -1017,20 +1022,20 @@ jPlaylists :: Lens' Job' [Playlist]
 jPlaylists = lens _jPlaylists (\s a -> s { _jPlaylists = a }) . _List
 
 -- | The status of the job: 'Submitted', 'Progressing', 'Complete', 'Canceled', or 'Error'.
-jStatus :: Lens' Job' (Maybe Text)
+jStatus :: Lens' Job' Text
 jStatus = lens _jStatus (\s a -> s { _jStatus = a })
 
 instance FromJSON Job' where
     parseJSON = withObject "Job'" $ \o -> Job'
         <$> o .:? "Arn"
-        <*> o .:? "Id"
-        <*> o .:? "Input"
+        <*> o .:  "Id"
+        <*> o .:  "Input"
         <*> o .:? "Output"
-        <*> o .:? "OutputKeyPrefix"
+        <*> o .:  "OutputKeyPrefix"
         <*> o .:? "Outputs" .!= mempty
-        <*> o .:? "PipelineId"
+        <*> o .:  "PipelineId"
         <*> o .:? "Playlists" .!= mempty
-        <*> o .:? "Status"
+        <*> o .:  "Status"
 
 instance ToJSON Job' where
     toJSON Job'{..} = object

diff --git a/gen/input/cloudfront/2014-05-31.waiters.json b/gen/input/cloudfront/2014-05-31.waiters.json
@@ -0,0 +1,47 @@
+{
+  "version": 2,
+  "waiters": {
+    "DistributionDeployed": {
+      "delay": 60,
+      "operation": "GetDistribution",
+      "maxAttempts": 25,
+      "description": "Wait until a distribution is deployed.",
+      "acceptors": [
+        {
+          "expected": "Deployed",
+          "matcher": "path",
+          "state": "success",
+          "argument": "Status"
+        }
+      ]
+    },
+    "InvalidationCompleted": {
+      "delay": 20,
+      "operation": "GetInvalidation",
+      "maxAttempts": 30,
+      "description": "Wait until an invalidation has completed.",
+      "acceptors": [
+        {
+          "expected": "Completed",
+          "matcher": "path",
+          "state": "success",
+          "argument": "Status"
+        }
+      ]
+    },
+    "StreamingDistributionDeployed": {
+      "delay": 60,
+      "operation": "GetStreamingDistribution",
+      "maxAttempts": 25,
+      "description": "Wait until a streaming distribution is deployed.",
+      "acceptors": [
+        {
+          "expected": "Deployed",
+          "matcher": "path",
+          "state": "success",
+          "argument": "Status"
+        }
+      ]
+    }
+  }
+}
diff --git a/gen/input/cloudfront/2014-10-21.waiters.json b/gen/input/cloudfront/2014-10-21.waiters.json
@@ -0,0 +1,47 @@
+{
+  "version": 2,
+  "waiters": {
+    "DistributionDeployed": {
+      "delay": 60,
+      "operation": "GetDistribution",
+      "maxAttempts": 25,
+      "description": "Wait until a distribution is deployed.",
+      "acceptors": [
+        {
+          "expected": "Deployed",
+          "matcher": "path",
+          "state": "success",
+          "argument": "Status"
+        }
+      ]
+    },
+    "InvalidationCompleted": {
+      "delay": 20,
+      "operation": "GetInvalidation",
+      "maxAttempts": 30,
+      "description": "Wait until an invalidation has completed.",
+      "acceptors": [
+        {
+          "expected": "Completed",
+          "matcher": "path",
+          "state": "success",
+          "argument": "Status"
+        }
+      ]
+    },
+    "StreamingDistributionDeployed": {
+      "delay": 60,
+      "operation": "GetStreamingDistribution",
+      "maxAttempts": 25,
+      "description": "Wait until a streaming distribution is deployed.",
+      "acceptors": [
+        {
+          "expected": "Deployed",
+          "matcher": "path",
+          "state": "success",
+          "argument": "Status"
+        }
+      ]
+    }
+  }
+}