Regenerating amazonka-emr

codedmart · Mar 18, 2016 · d46c087 · d46c087
1 parent e20c11f
commit d46c087
Show file tree

Hide file tree

Showing 9 changed files with 407 additions and 43 deletions.
diff --git a/amazonka-emr/gen/Network/AWS/EMR.hs b/amazonka-emr/gen/Network/AWS/EMR.hs
@@ -207,6 +207,30 @@ module Network.AWS.EMR
     , cClassification
     , cProperties
 
+    -- ** EBSBlockDevice
+    , EBSBlockDevice
+    , ebsBlockDevice
+    , ebdDevice
+    , ebdVolumeSpecification
+
+    -- ** EBSBlockDeviceConfig
+    , EBSBlockDeviceConfig
+    , ebsBlockDeviceConfig
+    , ebdcVolumesPerInstance
+    , ebdcVolumeSpecification
+
+    -- ** EBSConfiguration
+    , EBSConfiguration
+    , ebsConfiguration
+    , ecEBSOptimized
+    , ecEBSBlockDeviceConfigs
+
+    -- ** EBSVolume
+    , EBSVolume
+    , ebsVolume
+    , evDevice
+    , evVolumeId
+
     -- ** EC2InstanceAttributes
     , EC2InstanceAttributes
     , ec2InstanceAttributes
@@ -217,6 +241,7 @@ module Network.AWS.EMR
     , eiaIAMInstanceProfile
     , eiaEmrManagedMasterSecurityGroup
     , eiaEC2SubnetId
+    , eiaServiceAccessSecurityGroup
     , eiaEC2AvailabilityZone
 
     -- ** HadoopJARStepConfig
@@ -240,9 +265,11 @@ module Network.AWS.EMR
     , instance'
     , iStatus
     , iPublicDNSName
+    , iEBSVolumes
     , iEC2InstanceId
     , iPrivateIPAddress
     , iId
+    , iInstanceGroupId
     , iPrivateDNSName
     , iPublicIPAddress
 
@@ -255,14 +282,17 @@ module Network.AWS.EMR
     , igRunningInstanceCount
     , igConfigurations
     , igInstanceGroupType
+    , igEBSBlockDevices
     , igInstanceType
+    , igEBSOptimized
     , igMarket
     , igName
     , igId
 
     -- ** InstanceGroupConfig
     , InstanceGroupConfig
     , instanceGroupConfig
+    , igcEBSConfiguration
     , igcBidPrice
     , igcConfigurations
     , igcMarket
@@ -333,6 +363,7 @@ module Network.AWS.EMR
     , jficMasterInstanceType
     , jficInstanceGroups
     , jficKeepJobFlowAliveWhenNoSteps
+    , jficServiceAccessSecurityGroup
     , jficTerminationProtected
     , jficPlacement
 
@@ -409,6 +440,13 @@ module Network.AWS.EMR
     , tag
     , tagValue
     , tagKey
+
+    -- ** VolumeSpecification
+    , VolumeSpecification
+    , volumeSpecification
+    , vsIOPS
+    , vsVolumeType
+    , vsSizeInGB
     ) where
 
 import           Network.AWS.EMR.AddInstanceGroups

diff --git a/amazonka-emr/gen/Network/AWS/EMR/AddJobFlowSteps.hs b/amazonka-emr/gen/Network/AWS/EMR/AddJobFlowSteps.hs
@@ -69,7 +69,7 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | The input argument to the AddJobFlowSteps operation.
+-- | The input argument to the < AddJobFlowSteps> operation.
 --
 -- /See:/ 'addJobFlowSteps' smart constructor.
 data AddJobFlowSteps = AddJobFlowSteps'
@@ -94,11 +94,11 @@ addJobFlowSteps pJobFlowId_ =
     }
 
 -- | A string that uniquely identifies the job flow. This identifier is
--- returned by RunJobFlow and can also be obtained from ListClusters.
+-- returned by < RunJobFlow> and can also be obtained from < ListClusters>.
 ajfsJobFlowId :: Lens' AddJobFlowSteps Text
 ajfsJobFlowId = lens _ajfsJobFlowId (\ s a -> s{_ajfsJobFlowId = a});
 
--- | A list of StepConfig to be executed by the job flow.
+-- | A list of < StepConfig> to be executed by the job flow.
 ajfsSteps :: Lens' AddJobFlowSteps [StepConfig]
 ajfsSteps = lens _ajfsSteps (\ s a -> s{_ajfsSteps = a}) . _Coerce;
 
@@ -133,7 +133,7 @@ instance ToPath AddJobFlowSteps where
 instance ToQuery AddJobFlowSteps where
         toQuery = const mempty
 
--- | The output for the AddJobFlowSteps operation.
+-- | The output for the < AddJobFlowSteps> operation.
 --
 -- /See:/ 'addJobFlowStepsResponse' smart constructor.
 data AddJobFlowStepsResponse = AddJobFlowStepsResponse'

diff --git a/amazonka-emr/gen/Network/AWS/EMR/DescribeCluster.hs b/amazonka-emr/gen/Network/AWS/EMR/DescribeCluster.hs
@@ -20,7 +20,7 @@
 --
 -- Provides cluster-level details including status, hardware and software
 -- configuration, VPC settings, and so on. For information about the
--- cluster steps, see ListSteps.
+-- cluster steps, see < ListSteps>.
 --
 -- /See:/ <http://docs.aws.amazon.com/ElasticMapReduce/latest/API/API_DescribeCluster.html AWS API Reference> for DescribeCluster.
 module Network.AWS.EMR.DescribeCluster

diff --git a/amazonka-emr/gen/Network/AWS/EMR/RunJobFlow.hs b/amazonka-emr/gen/Network/AWS/EMR/RunJobFlow.hs
@@ -22,11 +22,11 @@
 -- run the steps specified. Once the job flow completes, the cluster is
 -- stopped and the HDFS partition is lost. To prevent loss of data,
 -- configure the last step of the job flow to store results in Amazon S3.
--- If the JobFlowInstancesConfig 'KeepJobFlowAliveWhenNoSteps' parameter is
--- set to 'TRUE', the job flow will transition to the WAITING state rather
--- than shutting down once the steps have completed.
+-- If the < JobFlowInstancesConfig> 'KeepJobFlowAliveWhenNoSteps' parameter
+-- is set to 'TRUE', the job flow will transition to the WAITING state
+-- rather than shutting down once the steps have completed.
 --
--- For additional protection, you can set the JobFlowInstancesConfig
+-- For additional protection, you can set the < JobFlowInstancesConfig>
 -- 'TerminationProtected' parameter to 'TRUE' to lock the job flow and
 -- prevent it from being terminated by API call, user intervention, or in
 -- the event of a job flow error.
@@ -84,7 +84,7 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | Input to the RunJobFlow operation.
+-- | Input to the < RunJobFlow> operation.
 --
 -- /See:/ 'runJobFlow' smart constructor.
 data RunJobFlow = RunJobFlow'
@@ -175,8 +175,8 @@ runJobFlow pName_ pInstances_ =
 --
 -- If the AMI supports multiple versions of Hadoop (for example, AMI 1.0
 -- supports both Hadoop 0.18 and 0.20) you can use the
--- JobFlowInstancesConfig 'HadoopVersion' parameter to modify the version
--- of Hadoop from the defaults shown above.
+-- < JobFlowInstancesConfig> 'HadoopVersion' parameter to modify the
+-- version of Hadoop from the defaults shown above.
 --
 -- For details about the AMI versions currently supported by Amazon Elastic
 -- MapReduce, go to
@@ -200,9 +200,10 @@ rjfConfigurations = lens _rjfConfigurations (\ s a -> s{_rjfConfigurations = a})
 rjfSteps :: Lens' RunJobFlow [StepConfig]
 rjfSteps = lens _rjfSteps (\ s a -> s{_rjfSteps = a}) . _Default . _Coerce;
 
--- | An IAM role for the job flow. The EC2 instances of the job flow assume
--- this role. The default role is 'EMRJobflowDefault'. In order to use the
--- default role, you must have already created it using the CLI.
+-- | Also called instance profile and EC2 role. An IAM role for an EMR
+-- cluster. The EC2 instances of the cluster assume this role. The default
+-- role is 'EMR_EC2_DefaultRole'. In order to use the default role, you
+-- must have already created it using the CLI or console.
 rjfJobFlowRole :: Lens' RunJobFlow (Maybe Text)
 rjfJobFlowRole = lens _rjfJobFlowRole (\ s a -> s{_rjfJobFlowRole = a});
 
@@ -341,7 +342,7 @@ instance ToPath RunJobFlow where
 instance ToQuery RunJobFlow where
         toQuery = const mempty
 
--- | The result of the RunJobFlow operation.
+-- | The result of the < RunJobFlow> operation.
 --
 -- /See:/ 'runJobFlowResponse' smart constructor.
 data RunJobFlowResponse = RunJobFlowResponse'

diff --git a/amazonka-emr/gen/Network/AWS/EMR/SetTerminationProtection.hs b/amazonka-emr/gen/Network/AWS/EMR/SetTerminationProtection.hs
@@ -61,7 +61,7 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | The input argument to the TerminationProtection operation.
+-- | The input argument to the < TerminationProtection> operation.
 --
 -- /See:/ 'setTerminationProtection' smart constructor.
 data SetTerminationProtection = SetTerminationProtection'
@@ -86,8 +86,8 @@ setTerminationProtection pTerminationProtected_ =
     }
 
 -- | A list of strings that uniquely identify the job flows to protect. This
--- identifier is returned by RunJobFlow and can also be obtained from
--- DescribeJobFlows .
+-- identifier is returned by < RunJobFlow> and can also be obtained from
+-- < DescribeJobFlows> .
 stpJobFlowIds :: Lens' SetTerminationProtection [Text]
 stpJobFlowIds = lens _stpJobFlowIds (\ s a -> s{_stpJobFlowIds = a}) . _Coerce;
 

diff --git a/amazonka-emr/gen/Network/AWS/EMR/SetVisibleToAllUsers.hs b/amazonka-emr/gen/Network/AWS/EMR/SetVisibleToAllUsers.hs
@@ -21,8 +21,8 @@
 -- Sets whether all AWS Identity and Access Management (IAM) users under
 -- your account can access the specified job flows. This action works on
 -- running job flows. You can also set the visibility of a job flow when
--- you launch it using the 'VisibleToAllUsers' parameter of RunJobFlow. The
--- SetVisibleToAllUsers action can be called only by an IAM user who
+-- you launch it using the 'VisibleToAllUsers' parameter of < RunJobFlow>.
+-- The SetVisibleToAllUsers action can be called only by an IAM user who
 -- created the job flow or the AWS account that owns the job flow.
 --
 -- /See:/ <http://docs.aws.amazon.com/ElasticMapReduce/latest/API/API_SetVisibleToAllUsers.html AWS API Reference> for SetVisibleToAllUsers.

diff --git a/amazonka-emr/gen/Network/AWS/EMR/TerminateJobFlows.hs b/amazonka-emr/gen/Network/AWS/EMR/TerminateJobFlows.hs
@@ -50,7 +50,7 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | Input to the TerminateJobFlows operation.
+-- | Input to the < TerminateJobFlows> operation.
 --
 -- /See:/ 'terminateJobFlows' smart constructor.
 newtype TerminateJobFlows = TerminateJobFlows'

diff --git a/amazonka-emr/gen/Network/AWS/EMR/Types.hs b/amazonka-emr/gen/Network/AWS/EMR/Types.hs
@@ -133,6 +133,30 @@ module Network.AWS.EMR.Types
     , cClassification
     , cProperties
 
+    -- * EBSBlockDevice
+    , EBSBlockDevice
+    , ebsBlockDevice
+    , ebdDevice
+    , ebdVolumeSpecification
+
+    -- * EBSBlockDeviceConfig
+    , EBSBlockDeviceConfig
+    , ebsBlockDeviceConfig
+    , ebdcVolumesPerInstance
+    , ebdcVolumeSpecification
+
+    -- * EBSConfiguration
+    , EBSConfiguration
+    , ebsConfiguration
+    , ecEBSOptimized
+    , ecEBSBlockDeviceConfigs
+
+    -- * EBSVolume
+    , EBSVolume
+    , ebsVolume
+    , evDevice
+    , evVolumeId
+
     -- * EC2InstanceAttributes
     , EC2InstanceAttributes
     , ec2InstanceAttributes
@@ -143,6 +167,7 @@ module Network.AWS.EMR.Types
     , eiaIAMInstanceProfile
     , eiaEmrManagedMasterSecurityGroup
     , eiaEC2SubnetId
+    , eiaServiceAccessSecurityGroup
     , eiaEC2AvailabilityZone
 
     -- * HadoopJARStepConfig
@@ -166,9 +191,11 @@ module Network.AWS.EMR.Types
     , instance'
     , iStatus
     , iPublicDNSName
+    , iEBSVolumes
     , iEC2InstanceId
     , iPrivateIPAddress
     , iId
+    , iInstanceGroupId
     , iPrivateDNSName
     , iPublicIPAddress
 
@@ -181,14 +208,17 @@ module Network.AWS.EMR.Types
     , igRunningInstanceCount
     , igConfigurations
     , igInstanceGroupType
+    , igEBSBlockDevices
     , igInstanceType
+    , igEBSOptimized
     , igMarket
     , igName
     , igId
 
     -- * InstanceGroupConfig
     , InstanceGroupConfig
     , instanceGroupConfig
+    , igcEBSConfiguration
     , igcBidPrice
     , igcConfigurations
     , igcMarket
@@ -259,6 +289,7 @@ module Network.AWS.EMR.Types
     , jficMasterInstanceType
     , jficInstanceGroups
     , jficKeepJobFlowAliveWhenNoSteps
+    , jficServiceAccessSecurityGroup
     , jficTerminationProtected
     , jficPlacement
 
@@ -335,6 +366,13 @@ module Network.AWS.EMR.Types
     , tag
     , tagValue
     , tagKey
+
+    -- * VolumeSpecification
+    , VolumeSpecification
+    , volumeSpecification
+    , vsIOPS
+    , vsVolumeType
+    , vsSizeInGB
     ) where
 
 import           Network.AWS.EMR.Types.Product
@@ -366,6 +404,7 @@ eMR =
         , _retryCheck = check
         }
     check e
+      | has (hasStatus 429) e = Just "too_many_requests"
       | has (hasCode "ThrottlingException" . hasStatus 400) e =
           Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
@@ -381,8 +420,7 @@ _InvalidRequestException = _ServiceError . hasCode "InvalidRequestException"
 -- | Indicates that an error occurred while processing the request and that
 -- the request was not completed.
 _InternalServerError :: AsError a => Getting (First ServiceError) a ServiceError
-_InternalServerError =
-    _ServiceError . hasStatus 500 . hasCode "InternalFailure"
+_InternalServerError = _ServiceError . hasCode "InternalServerError"
 
 -- | This exception occurs when there is an internal failure in the EMR
 -- service.