{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.EMR.RunJobFlow
(
RunJobFlow (..),
newRunJobFlow,
runJobFlow_additionalInfo,
runJobFlow_amiVersion,
runJobFlow_applications,
runJobFlow_autoScalingRole,
runJobFlow_autoTerminationPolicy,
runJobFlow_bootstrapActions,
runJobFlow_configurations,
runJobFlow_customAmiId,
runJobFlow_ebsRootVolumeSize,
runJobFlow_jobFlowRole,
runJobFlow_kerberosAttributes,
runJobFlow_logEncryptionKmsKeyId,
runJobFlow_logUri,
runJobFlow_managedScalingPolicy,
runJobFlow_newSupportedProducts,
runJobFlow_oSReleaseLabel,
runJobFlow_placementGroupConfigs,
runJobFlow_releaseLabel,
runJobFlow_repoUpgradeOnBoot,
runJobFlow_scaleDownBehavior,
runJobFlow_securityConfiguration,
runJobFlow_serviceRole,
runJobFlow_stepConcurrencyLevel,
runJobFlow_steps,
runJobFlow_supportedProducts,
runJobFlow_tags,
runJobFlow_visibleToAllUsers,
runJobFlow_name,
runJobFlow_instances,
RunJobFlowResponse (..),
newRunJobFlowResponse,
runJobFlowResponse_clusterArn,
runJobFlowResponse_jobFlowId,
runJobFlowResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EMR.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data RunJobFlow = RunJobFlow'
{
RunJobFlow -> Maybe Text
additionalInfo :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe Text
amiVersion :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe [Application]
applications :: Prelude.Maybe [Application],
RunJobFlow -> Maybe Text
autoScalingRole :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe AutoTerminationPolicy
autoTerminationPolicy :: Prelude.Maybe AutoTerminationPolicy,
RunJobFlow -> Maybe [BootstrapActionConfig]
bootstrapActions :: Prelude.Maybe [BootstrapActionConfig],
RunJobFlow -> Maybe [Configuration]
configurations :: Prelude.Maybe [Configuration],
RunJobFlow -> Maybe Text
customAmiId :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe Int
ebsRootVolumeSize :: Prelude.Maybe Prelude.Int,
RunJobFlow -> Maybe Text
jobFlowRole :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe KerberosAttributes
kerberosAttributes :: Prelude.Maybe KerberosAttributes,
RunJobFlow -> Maybe Text
logEncryptionKmsKeyId :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe Text
logUri :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe ManagedScalingPolicy
managedScalingPolicy :: Prelude.Maybe ManagedScalingPolicy,
RunJobFlow -> Maybe [SupportedProductConfig]
newSupportedProducts' :: Prelude.Maybe [SupportedProductConfig],
RunJobFlow -> Maybe Text
oSReleaseLabel :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe [PlacementGroupConfig]
placementGroupConfigs :: Prelude.Maybe [PlacementGroupConfig],
RunJobFlow -> Maybe Text
releaseLabel :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot :: Prelude.Maybe RepoUpgradeOnBoot,
RunJobFlow -> Maybe ScaleDownBehavior
scaleDownBehavior :: Prelude.Maybe ScaleDownBehavior,
RunJobFlow -> Maybe Text
securityConfiguration :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe Text
serviceRole :: Prelude.Maybe Prelude.Text,
RunJobFlow -> Maybe Int
stepConcurrencyLevel :: Prelude.Maybe Prelude.Int,
RunJobFlow -> Maybe [StepConfig]
steps :: Prelude.Maybe [StepConfig],
RunJobFlow -> Maybe [Text]
supportedProducts :: Prelude.Maybe [Prelude.Text],
RunJobFlow -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
RunJobFlow -> Maybe Bool
visibleToAllUsers :: Prelude.Maybe Prelude.Bool,
RunJobFlow -> Text
name :: Prelude.Text,
RunJobFlow -> JobFlowInstancesConfig
instances :: JobFlowInstancesConfig
}
deriving (RunJobFlow -> RunJobFlow -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunJobFlow -> RunJobFlow -> Bool
$c/= :: RunJobFlow -> RunJobFlow -> Bool
== :: RunJobFlow -> RunJobFlow -> Bool
$c== :: RunJobFlow -> RunJobFlow -> Bool
Prelude.Eq, ReadPrec [RunJobFlow]
ReadPrec RunJobFlow
Int -> ReadS RunJobFlow
ReadS [RunJobFlow]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RunJobFlow]
$creadListPrec :: ReadPrec [RunJobFlow]
readPrec :: ReadPrec RunJobFlow
$creadPrec :: ReadPrec RunJobFlow
readList :: ReadS [RunJobFlow]
$creadList :: ReadS [RunJobFlow]
readsPrec :: Int -> ReadS RunJobFlow
$creadsPrec :: Int -> ReadS RunJobFlow
Prelude.Read, Int -> RunJobFlow -> ShowS
[RunJobFlow] -> ShowS
RunJobFlow -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RunJobFlow] -> ShowS
$cshowList :: [RunJobFlow] -> ShowS
show :: RunJobFlow -> String
$cshow :: RunJobFlow -> String
showsPrec :: Int -> RunJobFlow -> ShowS
$cshowsPrec :: Int -> RunJobFlow -> ShowS
Prelude.Show, forall x. Rep RunJobFlow x -> RunJobFlow
forall x. RunJobFlow -> Rep RunJobFlow x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RunJobFlow x -> RunJobFlow
$cfrom :: forall x. RunJobFlow -> Rep RunJobFlow x
Prelude.Generic)
newRunJobFlow ::
Prelude.Text ->
JobFlowInstancesConfig ->
RunJobFlow
newRunJobFlow :: Text -> JobFlowInstancesConfig -> RunJobFlow
newRunJobFlow Text
pName_ JobFlowInstancesConfig
pInstances_ =
RunJobFlow'
{ $sel:additionalInfo:RunJobFlow' :: Maybe Text
additionalInfo = forall a. Maybe a
Prelude.Nothing,
$sel:amiVersion:RunJobFlow' :: Maybe Text
amiVersion = forall a. Maybe a
Prelude.Nothing,
$sel:applications:RunJobFlow' :: Maybe [Application]
applications = forall a. Maybe a
Prelude.Nothing,
$sel:autoScalingRole:RunJobFlow' :: Maybe Text
autoScalingRole = forall a. Maybe a
Prelude.Nothing,
$sel:autoTerminationPolicy:RunJobFlow' :: Maybe AutoTerminationPolicy
autoTerminationPolicy = forall a. Maybe a
Prelude.Nothing,
$sel:bootstrapActions:RunJobFlow' :: Maybe [BootstrapActionConfig]
bootstrapActions = forall a. Maybe a
Prelude.Nothing,
$sel:configurations:RunJobFlow' :: Maybe [Configuration]
configurations = forall a. Maybe a
Prelude.Nothing,
$sel:customAmiId:RunJobFlow' :: Maybe Text
customAmiId = forall a. Maybe a
Prelude.Nothing,
$sel:ebsRootVolumeSize:RunJobFlow' :: Maybe Int
ebsRootVolumeSize = forall a. Maybe a
Prelude.Nothing,
$sel:jobFlowRole:RunJobFlow' :: Maybe Text
jobFlowRole = forall a. Maybe a
Prelude.Nothing,
$sel:kerberosAttributes:RunJobFlow' :: Maybe KerberosAttributes
kerberosAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:logEncryptionKmsKeyId:RunJobFlow' :: Maybe Text
logEncryptionKmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:logUri:RunJobFlow' :: Maybe Text
logUri = forall a. Maybe a
Prelude.Nothing,
$sel:managedScalingPolicy:RunJobFlow' :: Maybe ManagedScalingPolicy
managedScalingPolicy = forall a. Maybe a
Prelude.Nothing,
$sel:newSupportedProducts':RunJobFlow' :: Maybe [SupportedProductConfig]
newSupportedProducts' = forall a. Maybe a
Prelude.Nothing,
$sel:oSReleaseLabel:RunJobFlow' :: Maybe Text
oSReleaseLabel = forall a. Maybe a
Prelude.Nothing,
$sel:placementGroupConfigs:RunJobFlow' :: Maybe [PlacementGroupConfig]
placementGroupConfigs = forall a. Maybe a
Prelude.Nothing,
$sel:releaseLabel:RunJobFlow' :: Maybe Text
releaseLabel = forall a. Maybe a
Prelude.Nothing,
$sel:repoUpgradeOnBoot:RunJobFlow' :: Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot = forall a. Maybe a
Prelude.Nothing,
$sel:scaleDownBehavior:RunJobFlow' :: Maybe ScaleDownBehavior
scaleDownBehavior = forall a. Maybe a
Prelude.Nothing,
$sel:securityConfiguration:RunJobFlow' :: Maybe Text
securityConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:serviceRole:RunJobFlow' :: Maybe Text
serviceRole = forall a. Maybe a
Prelude.Nothing,
$sel:stepConcurrencyLevel:RunJobFlow' :: Maybe Int
stepConcurrencyLevel = forall a. Maybe a
Prelude.Nothing,
$sel:steps:RunJobFlow' :: Maybe [StepConfig]
steps = forall a. Maybe a
Prelude.Nothing,
$sel:supportedProducts:RunJobFlow' :: Maybe [Text]
supportedProducts = forall a. Maybe a
Prelude.Nothing,
$sel:tags:RunJobFlow' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:visibleToAllUsers:RunJobFlow' :: Maybe Bool
visibleToAllUsers = forall a. Maybe a
Prelude.Nothing,
$sel:name:RunJobFlow' :: Text
name = Text
pName_,
$sel:instances:RunJobFlow' :: JobFlowInstancesConfig
instances = JobFlowInstancesConfig
pInstances_
}
runJobFlow_additionalInfo :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_additionalInfo :: Lens' RunJobFlow (Maybe Text)
runJobFlow_additionalInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
additionalInfo :: Maybe Text
$sel:additionalInfo:RunJobFlow' :: RunJobFlow -> Maybe Text
additionalInfo} -> Maybe Text
additionalInfo) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:additionalInfo:RunJobFlow' :: Maybe Text
additionalInfo = Maybe Text
a} :: RunJobFlow)
runJobFlow_amiVersion :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_amiVersion :: Lens' RunJobFlow (Maybe Text)
runJobFlow_amiVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
amiVersion :: Maybe Text
$sel:amiVersion:RunJobFlow' :: RunJobFlow -> Maybe Text
amiVersion} -> Maybe Text
amiVersion) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:amiVersion:RunJobFlow' :: Maybe Text
amiVersion = Maybe Text
a} :: RunJobFlow)
runJobFlow_applications :: Lens.Lens' RunJobFlow (Prelude.Maybe [Application])
runJobFlow_applications :: Lens' RunJobFlow (Maybe [Application])
runJobFlow_applications = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe [Application]
applications :: Maybe [Application]
$sel:applications:RunJobFlow' :: RunJobFlow -> Maybe [Application]
applications} -> Maybe [Application]
applications) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe [Application]
a -> RunJobFlow
s {$sel:applications:RunJobFlow' :: Maybe [Application]
applications = Maybe [Application]
a} :: RunJobFlow) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
runJobFlow_autoScalingRole :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_autoScalingRole :: Lens' RunJobFlow (Maybe Text)
runJobFlow_autoScalingRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
autoScalingRole :: Maybe Text
$sel:autoScalingRole:RunJobFlow' :: RunJobFlow -> Maybe Text
autoScalingRole} -> Maybe Text
autoScalingRole) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:autoScalingRole:RunJobFlow' :: Maybe Text
autoScalingRole = Maybe Text
a} :: RunJobFlow)
runJobFlow_autoTerminationPolicy :: Lens.Lens' RunJobFlow (Prelude.Maybe AutoTerminationPolicy)
runJobFlow_autoTerminationPolicy :: Lens' RunJobFlow (Maybe AutoTerminationPolicy)
runJobFlow_autoTerminationPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe AutoTerminationPolicy
autoTerminationPolicy :: Maybe AutoTerminationPolicy
$sel:autoTerminationPolicy:RunJobFlow' :: RunJobFlow -> Maybe AutoTerminationPolicy
autoTerminationPolicy} -> Maybe AutoTerminationPolicy
autoTerminationPolicy) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe AutoTerminationPolicy
a -> RunJobFlow
s {$sel:autoTerminationPolicy:RunJobFlow' :: Maybe AutoTerminationPolicy
autoTerminationPolicy = Maybe AutoTerminationPolicy
a} :: RunJobFlow)
runJobFlow_bootstrapActions :: Lens.Lens' RunJobFlow (Prelude.Maybe [BootstrapActionConfig])
runJobFlow_bootstrapActions :: Lens' RunJobFlow (Maybe [BootstrapActionConfig])
runJobFlow_bootstrapActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe [BootstrapActionConfig]
bootstrapActions :: Maybe [BootstrapActionConfig]
$sel:bootstrapActions:RunJobFlow' :: RunJobFlow -> Maybe [BootstrapActionConfig]
bootstrapActions} -> Maybe [BootstrapActionConfig]
bootstrapActions) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe [BootstrapActionConfig]
a -> RunJobFlow
s {$sel:bootstrapActions:RunJobFlow' :: Maybe [BootstrapActionConfig]
bootstrapActions = Maybe [BootstrapActionConfig]
a} :: RunJobFlow) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
runJobFlow_configurations :: Lens.Lens' RunJobFlow (Prelude.Maybe [Configuration])
runJobFlow_configurations :: Lens' RunJobFlow (Maybe [Configuration])
runJobFlow_configurations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe [Configuration]
configurations :: Maybe [Configuration]
$sel:configurations:RunJobFlow' :: RunJobFlow -> Maybe [Configuration]
configurations} -> Maybe [Configuration]
configurations) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe [Configuration]
a -> RunJobFlow
s {$sel:configurations:RunJobFlow' :: Maybe [Configuration]
configurations = Maybe [Configuration]
a} :: RunJobFlow) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
runJobFlow_customAmiId :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_customAmiId :: Lens' RunJobFlow (Maybe Text)
runJobFlow_customAmiId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
customAmiId :: Maybe Text
$sel:customAmiId:RunJobFlow' :: RunJobFlow -> Maybe Text
customAmiId} -> Maybe Text
customAmiId) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:customAmiId:RunJobFlow' :: Maybe Text
customAmiId = Maybe Text
a} :: RunJobFlow)
runJobFlow_ebsRootVolumeSize :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Int)
runJobFlow_ebsRootVolumeSize :: Lens' RunJobFlow (Maybe Int)
runJobFlow_ebsRootVolumeSize = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Int
ebsRootVolumeSize :: Maybe Int
$sel:ebsRootVolumeSize:RunJobFlow' :: RunJobFlow -> Maybe Int
ebsRootVolumeSize} -> Maybe Int
ebsRootVolumeSize) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Int
a -> RunJobFlow
s {$sel:ebsRootVolumeSize:RunJobFlow' :: Maybe Int
ebsRootVolumeSize = Maybe Int
a} :: RunJobFlow)
runJobFlow_jobFlowRole :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_jobFlowRole :: Lens' RunJobFlow (Maybe Text)
runJobFlow_jobFlowRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
jobFlowRole :: Maybe Text
$sel:jobFlowRole:RunJobFlow' :: RunJobFlow -> Maybe Text
jobFlowRole} -> Maybe Text
jobFlowRole) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:jobFlowRole:RunJobFlow' :: Maybe Text
jobFlowRole = Maybe Text
a} :: RunJobFlow)
runJobFlow_kerberosAttributes :: Lens.Lens' RunJobFlow (Prelude.Maybe KerberosAttributes)
runJobFlow_kerberosAttributes :: Lens' RunJobFlow (Maybe KerberosAttributes)
runJobFlow_kerberosAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe KerberosAttributes
kerberosAttributes :: Maybe KerberosAttributes
$sel:kerberosAttributes:RunJobFlow' :: RunJobFlow -> Maybe KerberosAttributes
kerberosAttributes} -> Maybe KerberosAttributes
kerberosAttributes) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe KerberosAttributes
a -> RunJobFlow
s {$sel:kerberosAttributes:RunJobFlow' :: Maybe KerberosAttributes
kerberosAttributes = Maybe KerberosAttributes
a} :: RunJobFlow)
runJobFlow_logEncryptionKmsKeyId :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_logEncryptionKmsKeyId :: Lens' RunJobFlow (Maybe Text)
runJobFlow_logEncryptionKmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
logEncryptionKmsKeyId :: Maybe Text
$sel:logEncryptionKmsKeyId:RunJobFlow' :: RunJobFlow -> Maybe Text
logEncryptionKmsKeyId} -> Maybe Text
logEncryptionKmsKeyId) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:logEncryptionKmsKeyId:RunJobFlow' :: Maybe Text
logEncryptionKmsKeyId = Maybe Text
a} :: RunJobFlow)
runJobFlow_logUri :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_logUri :: Lens' RunJobFlow (Maybe Text)
runJobFlow_logUri = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
logUri :: Maybe Text
$sel:logUri:RunJobFlow' :: RunJobFlow -> Maybe Text
logUri} -> Maybe Text
logUri) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:logUri:RunJobFlow' :: Maybe Text
logUri = Maybe Text
a} :: RunJobFlow)
runJobFlow_managedScalingPolicy :: Lens.Lens' RunJobFlow (Prelude.Maybe ManagedScalingPolicy)
runJobFlow_managedScalingPolicy :: Lens' RunJobFlow (Maybe ManagedScalingPolicy)
runJobFlow_managedScalingPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe ManagedScalingPolicy
managedScalingPolicy :: Maybe ManagedScalingPolicy
$sel:managedScalingPolicy:RunJobFlow' :: RunJobFlow -> Maybe ManagedScalingPolicy
managedScalingPolicy} -> Maybe ManagedScalingPolicy
managedScalingPolicy) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe ManagedScalingPolicy
a -> RunJobFlow
s {$sel:managedScalingPolicy:RunJobFlow' :: Maybe ManagedScalingPolicy
managedScalingPolicy = Maybe ManagedScalingPolicy
a} :: RunJobFlow)
runJobFlow_newSupportedProducts :: Lens.Lens' RunJobFlow (Prelude.Maybe [SupportedProductConfig])
runJobFlow_newSupportedProducts :: Lens' RunJobFlow (Maybe [SupportedProductConfig])
runJobFlow_newSupportedProducts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe [SupportedProductConfig]
newSupportedProducts' :: Maybe [SupportedProductConfig]
$sel:newSupportedProducts':RunJobFlow' :: RunJobFlow -> Maybe [SupportedProductConfig]
newSupportedProducts'} -> Maybe [SupportedProductConfig]
newSupportedProducts') (\s :: RunJobFlow
s@RunJobFlow' {} Maybe [SupportedProductConfig]
a -> RunJobFlow
s {$sel:newSupportedProducts':RunJobFlow' :: Maybe [SupportedProductConfig]
newSupportedProducts' = Maybe [SupportedProductConfig]
a} :: RunJobFlow) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
runJobFlow_oSReleaseLabel :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_oSReleaseLabel :: Lens' RunJobFlow (Maybe Text)
runJobFlow_oSReleaseLabel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
oSReleaseLabel :: Maybe Text
$sel:oSReleaseLabel:RunJobFlow' :: RunJobFlow -> Maybe Text
oSReleaseLabel} -> Maybe Text
oSReleaseLabel) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:oSReleaseLabel:RunJobFlow' :: Maybe Text
oSReleaseLabel = Maybe Text
a} :: RunJobFlow)
runJobFlow_placementGroupConfigs :: Lens.Lens' RunJobFlow (Prelude.Maybe [PlacementGroupConfig])
runJobFlow_placementGroupConfigs :: Lens' RunJobFlow (Maybe [PlacementGroupConfig])
runJobFlow_placementGroupConfigs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe [PlacementGroupConfig]
placementGroupConfigs :: Maybe [PlacementGroupConfig]
$sel:placementGroupConfigs:RunJobFlow' :: RunJobFlow -> Maybe [PlacementGroupConfig]
placementGroupConfigs} -> Maybe [PlacementGroupConfig]
placementGroupConfigs) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe [PlacementGroupConfig]
a -> RunJobFlow
s {$sel:placementGroupConfigs:RunJobFlow' :: Maybe [PlacementGroupConfig]
placementGroupConfigs = Maybe [PlacementGroupConfig]
a} :: RunJobFlow) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
runJobFlow_releaseLabel :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_releaseLabel :: Lens' RunJobFlow (Maybe Text)
runJobFlow_releaseLabel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
releaseLabel :: Maybe Text
$sel:releaseLabel:RunJobFlow' :: RunJobFlow -> Maybe Text
releaseLabel} -> Maybe Text
releaseLabel) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:releaseLabel:RunJobFlow' :: Maybe Text
releaseLabel = Maybe Text
a} :: RunJobFlow)
runJobFlow_repoUpgradeOnBoot :: Lens.Lens' RunJobFlow (Prelude.Maybe RepoUpgradeOnBoot)
runJobFlow_repoUpgradeOnBoot :: Lens' RunJobFlow (Maybe RepoUpgradeOnBoot)
runJobFlow_repoUpgradeOnBoot = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot :: Maybe RepoUpgradeOnBoot
$sel:repoUpgradeOnBoot:RunJobFlow' :: RunJobFlow -> Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot} -> Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe RepoUpgradeOnBoot
a -> RunJobFlow
s {$sel:repoUpgradeOnBoot:RunJobFlow' :: Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot = Maybe RepoUpgradeOnBoot
a} :: RunJobFlow)
runJobFlow_scaleDownBehavior :: Lens.Lens' RunJobFlow (Prelude.Maybe ScaleDownBehavior)
runJobFlow_scaleDownBehavior :: Lens' RunJobFlow (Maybe ScaleDownBehavior)
runJobFlow_scaleDownBehavior = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe ScaleDownBehavior
scaleDownBehavior :: Maybe ScaleDownBehavior
$sel:scaleDownBehavior:RunJobFlow' :: RunJobFlow -> Maybe ScaleDownBehavior
scaleDownBehavior} -> Maybe ScaleDownBehavior
scaleDownBehavior) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe ScaleDownBehavior
a -> RunJobFlow
s {$sel:scaleDownBehavior:RunJobFlow' :: Maybe ScaleDownBehavior
scaleDownBehavior = Maybe ScaleDownBehavior
a} :: RunJobFlow)
runJobFlow_securityConfiguration :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_securityConfiguration :: Lens' RunJobFlow (Maybe Text)
runJobFlow_securityConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
securityConfiguration :: Maybe Text
$sel:securityConfiguration:RunJobFlow' :: RunJobFlow -> Maybe Text
securityConfiguration} -> Maybe Text
securityConfiguration) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:securityConfiguration:RunJobFlow' :: Maybe Text
securityConfiguration = Maybe Text
a} :: RunJobFlow)
runJobFlow_serviceRole :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Text)
runJobFlow_serviceRole :: Lens' RunJobFlow (Maybe Text)
runJobFlow_serviceRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Text
serviceRole :: Maybe Text
$sel:serviceRole:RunJobFlow' :: RunJobFlow -> Maybe Text
serviceRole} -> Maybe Text
serviceRole) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Text
a -> RunJobFlow
s {$sel:serviceRole:RunJobFlow' :: Maybe Text
serviceRole = Maybe Text
a} :: RunJobFlow)
runJobFlow_stepConcurrencyLevel :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Int)
runJobFlow_stepConcurrencyLevel :: Lens' RunJobFlow (Maybe Int)
runJobFlow_stepConcurrencyLevel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Int
stepConcurrencyLevel :: Maybe Int
$sel:stepConcurrencyLevel:RunJobFlow' :: RunJobFlow -> Maybe Int
stepConcurrencyLevel} -> Maybe Int
stepConcurrencyLevel) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Int
a -> RunJobFlow
s {$sel:stepConcurrencyLevel:RunJobFlow' :: Maybe Int
stepConcurrencyLevel = Maybe Int
a} :: RunJobFlow)
runJobFlow_steps :: Lens.Lens' RunJobFlow (Prelude.Maybe [StepConfig])
runJobFlow_steps :: Lens' RunJobFlow (Maybe [StepConfig])
runJobFlow_steps = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe [StepConfig]
steps :: Maybe [StepConfig]
$sel:steps:RunJobFlow' :: RunJobFlow -> Maybe [StepConfig]
steps} -> Maybe [StepConfig]
steps) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe [StepConfig]
a -> RunJobFlow
s {$sel:steps:RunJobFlow' :: Maybe [StepConfig]
steps = Maybe [StepConfig]
a} :: RunJobFlow) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
runJobFlow_supportedProducts :: Lens.Lens' RunJobFlow (Prelude.Maybe [Prelude.Text])
runJobFlow_supportedProducts :: Lens' RunJobFlow (Maybe [Text])
runJobFlow_supportedProducts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe [Text]
supportedProducts :: Maybe [Text]
$sel:supportedProducts:RunJobFlow' :: RunJobFlow -> Maybe [Text]
supportedProducts} -> Maybe [Text]
supportedProducts) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe [Text]
a -> RunJobFlow
s {$sel:supportedProducts:RunJobFlow' :: Maybe [Text]
supportedProducts = Maybe [Text]
a} :: RunJobFlow) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
runJobFlow_tags :: Lens.Lens' RunJobFlow (Prelude.Maybe [Tag])
runJobFlow_tags :: Lens' RunJobFlow (Maybe [Tag])
runJobFlow_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:RunJobFlow' :: RunJobFlow -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe [Tag]
a -> RunJobFlow
s {$sel:tags:RunJobFlow' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: RunJobFlow) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
runJobFlow_visibleToAllUsers :: Lens.Lens' RunJobFlow (Prelude.Maybe Prelude.Bool)
runJobFlow_visibleToAllUsers :: Lens' RunJobFlow (Maybe Bool)
runJobFlow_visibleToAllUsers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Maybe Bool
visibleToAllUsers :: Maybe Bool
$sel:visibleToAllUsers:RunJobFlow' :: RunJobFlow -> Maybe Bool
visibleToAllUsers} -> Maybe Bool
visibleToAllUsers) (\s :: RunJobFlow
s@RunJobFlow' {} Maybe Bool
a -> RunJobFlow
s {$sel:visibleToAllUsers:RunJobFlow' :: Maybe Bool
visibleToAllUsers = Maybe Bool
a} :: RunJobFlow)
runJobFlow_name :: Lens.Lens' RunJobFlow Prelude.Text
runJobFlow_name :: Lens' RunJobFlow Text
runJobFlow_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {Text
name :: Text
$sel:name:RunJobFlow' :: RunJobFlow -> Text
name} -> Text
name) (\s :: RunJobFlow
s@RunJobFlow' {} Text
a -> RunJobFlow
s {$sel:name:RunJobFlow' :: Text
name = Text
a} :: RunJobFlow)
runJobFlow_instances :: Lens.Lens' RunJobFlow JobFlowInstancesConfig
runJobFlow_instances :: Lens' RunJobFlow JobFlowInstancesConfig
runJobFlow_instances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlow' {JobFlowInstancesConfig
instances :: JobFlowInstancesConfig
$sel:instances:RunJobFlow' :: RunJobFlow -> JobFlowInstancesConfig
instances} -> JobFlowInstancesConfig
instances) (\s :: RunJobFlow
s@RunJobFlow' {} JobFlowInstancesConfig
a -> RunJobFlow
s {$sel:instances:RunJobFlow' :: JobFlowInstancesConfig
instances = JobFlowInstancesConfig
a} :: RunJobFlow)
instance Core.AWSRequest RunJobFlow where
type AWSResponse RunJobFlow = RunJobFlowResponse
request :: (Service -> Service) -> RunJobFlow -> Request RunJobFlow
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy RunJobFlow
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse RunJobFlow)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text -> Maybe Text -> Int -> RunJobFlowResponse
RunJobFlowResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ClusterArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"JobFlowId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable RunJobFlow where
hashWithSalt :: Int -> RunJobFlow -> Int
hashWithSalt Int
_salt RunJobFlow' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Application]
Maybe [Configuration]
Maybe [PlacementGroupConfig]
Maybe [BootstrapActionConfig]
Maybe [StepConfig]
Maybe [SupportedProductConfig]
Maybe [Tag]
Maybe Text
Maybe AutoTerminationPolicy
Maybe KerberosAttributes
Maybe ManagedScalingPolicy
Maybe RepoUpgradeOnBoot
Maybe ScaleDownBehavior
Text
JobFlowInstancesConfig
instances :: JobFlowInstancesConfig
name :: Text
visibleToAllUsers :: Maybe Bool
tags :: Maybe [Tag]
supportedProducts :: Maybe [Text]
steps :: Maybe [StepConfig]
stepConcurrencyLevel :: Maybe Int
serviceRole :: Maybe Text
securityConfiguration :: Maybe Text
scaleDownBehavior :: Maybe ScaleDownBehavior
repoUpgradeOnBoot :: Maybe RepoUpgradeOnBoot
releaseLabel :: Maybe Text
placementGroupConfigs :: Maybe [PlacementGroupConfig]
oSReleaseLabel :: Maybe Text
newSupportedProducts' :: Maybe [SupportedProductConfig]
managedScalingPolicy :: Maybe ManagedScalingPolicy
logUri :: Maybe Text
logEncryptionKmsKeyId :: Maybe Text
kerberosAttributes :: Maybe KerberosAttributes
jobFlowRole :: Maybe Text
ebsRootVolumeSize :: Maybe Int
customAmiId :: Maybe Text
configurations :: Maybe [Configuration]
bootstrapActions :: Maybe [BootstrapActionConfig]
autoTerminationPolicy :: Maybe AutoTerminationPolicy
autoScalingRole :: Maybe Text
applications :: Maybe [Application]
amiVersion :: Maybe Text
additionalInfo :: Maybe Text
$sel:instances:RunJobFlow' :: RunJobFlow -> JobFlowInstancesConfig
$sel:name:RunJobFlow' :: RunJobFlow -> Text
$sel:visibleToAllUsers:RunJobFlow' :: RunJobFlow -> Maybe Bool
$sel:tags:RunJobFlow' :: RunJobFlow -> Maybe [Tag]
$sel:supportedProducts:RunJobFlow' :: RunJobFlow -> Maybe [Text]
$sel:steps:RunJobFlow' :: RunJobFlow -> Maybe [StepConfig]
$sel:stepConcurrencyLevel:RunJobFlow' :: RunJobFlow -> Maybe Int
$sel:serviceRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:securityConfiguration:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:scaleDownBehavior:RunJobFlow' :: RunJobFlow -> Maybe ScaleDownBehavior
$sel:repoUpgradeOnBoot:RunJobFlow' :: RunJobFlow -> Maybe RepoUpgradeOnBoot
$sel:releaseLabel:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:placementGroupConfigs:RunJobFlow' :: RunJobFlow -> Maybe [PlacementGroupConfig]
$sel:oSReleaseLabel:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:newSupportedProducts':RunJobFlow' :: RunJobFlow -> Maybe [SupportedProductConfig]
$sel:managedScalingPolicy:RunJobFlow' :: RunJobFlow -> Maybe ManagedScalingPolicy
$sel:logUri:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:logEncryptionKmsKeyId:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:kerberosAttributes:RunJobFlow' :: RunJobFlow -> Maybe KerberosAttributes
$sel:jobFlowRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:ebsRootVolumeSize:RunJobFlow' :: RunJobFlow -> Maybe Int
$sel:customAmiId:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:configurations:RunJobFlow' :: RunJobFlow -> Maybe [Configuration]
$sel:bootstrapActions:RunJobFlow' :: RunJobFlow -> Maybe [BootstrapActionConfig]
$sel:autoTerminationPolicy:RunJobFlow' :: RunJobFlow -> Maybe AutoTerminationPolicy
$sel:autoScalingRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:applications:RunJobFlow' :: RunJobFlow -> Maybe [Application]
$sel:amiVersion:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:additionalInfo:RunJobFlow' :: RunJobFlow -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
additionalInfo
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
amiVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Application]
applications
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
autoScalingRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AutoTerminationPolicy
autoTerminationPolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [BootstrapActionConfig]
bootstrapActions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Configuration]
configurations
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
customAmiId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
ebsRootVolumeSize
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
jobFlowRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe KerberosAttributes
kerberosAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
logEncryptionKmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
logUri
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ManagedScalingPolicy
managedScalingPolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [SupportedProductConfig]
newSupportedProducts'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
oSReleaseLabel
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [PlacementGroupConfig]
placementGroupConfigs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
releaseLabel
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ScaleDownBehavior
scaleDownBehavior
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
securityConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serviceRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
stepConcurrencyLevel
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [StepConfig]
steps
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
supportedProducts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
visibleToAllUsers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` JobFlowInstancesConfig
instances
instance Prelude.NFData RunJobFlow where
rnf :: RunJobFlow -> ()
rnf RunJobFlow' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Application]
Maybe [Configuration]
Maybe [PlacementGroupConfig]
Maybe [BootstrapActionConfig]
Maybe [StepConfig]
Maybe [SupportedProductConfig]
Maybe [Tag]
Maybe Text
Maybe AutoTerminationPolicy
Maybe KerberosAttributes
Maybe ManagedScalingPolicy
Maybe RepoUpgradeOnBoot
Maybe ScaleDownBehavior
Text
JobFlowInstancesConfig
instances :: JobFlowInstancesConfig
name :: Text
visibleToAllUsers :: Maybe Bool
tags :: Maybe [Tag]
supportedProducts :: Maybe [Text]
steps :: Maybe [StepConfig]
stepConcurrencyLevel :: Maybe Int
serviceRole :: Maybe Text
securityConfiguration :: Maybe Text
scaleDownBehavior :: Maybe ScaleDownBehavior
repoUpgradeOnBoot :: Maybe RepoUpgradeOnBoot
releaseLabel :: Maybe Text
placementGroupConfigs :: Maybe [PlacementGroupConfig]
oSReleaseLabel :: Maybe Text
newSupportedProducts' :: Maybe [SupportedProductConfig]
managedScalingPolicy :: Maybe ManagedScalingPolicy
logUri :: Maybe Text
logEncryptionKmsKeyId :: Maybe Text
kerberosAttributes :: Maybe KerberosAttributes
jobFlowRole :: Maybe Text
ebsRootVolumeSize :: Maybe Int
customAmiId :: Maybe Text
configurations :: Maybe [Configuration]
bootstrapActions :: Maybe [BootstrapActionConfig]
autoTerminationPolicy :: Maybe AutoTerminationPolicy
autoScalingRole :: Maybe Text
applications :: Maybe [Application]
amiVersion :: Maybe Text
additionalInfo :: Maybe Text
$sel:instances:RunJobFlow' :: RunJobFlow -> JobFlowInstancesConfig
$sel:name:RunJobFlow' :: RunJobFlow -> Text
$sel:visibleToAllUsers:RunJobFlow' :: RunJobFlow -> Maybe Bool
$sel:tags:RunJobFlow' :: RunJobFlow -> Maybe [Tag]
$sel:supportedProducts:RunJobFlow' :: RunJobFlow -> Maybe [Text]
$sel:steps:RunJobFlow' :: RunJobFlow -> Maybe [StepConfig]
$sel:stepConcurrencyLevel:RunJobFlow' :: RunJobFlow -> Maybe Int
$sel:serviceRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:securityConfiguration:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:scaleDownBehavior:RunJobFlow' :: RunJobFlow -> Maybe ScaleDownBehavior
$sel:repoUpgradeOnBoot:RunJobFlow' :: RunJobFlow -> Maybe RepoUpgradeOnBoot
$sel:releaseLabel:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:placementGroupConfigs:RunJobFlow' :: RunJobFlow -> Maybe [PlacementGroupConfig]
$sel:oSReleaseLabel:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:newSupportedProducts':RunJobFlow' :: RunJobFlow -> Maybe [SupportedProductConfig]
$sel:managedScalingPolicy:RunJobFlow' :: RunJobFlow -> Maybe ManagedScalingPolicy
$sel:logUri:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:logEncryptionKmsKeyId:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:kerberosAttributes:RunJobFlow' :: RunJobFlow -> Maybe KerberosAttributes
$sel:jobFlowRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:ebsRootVolumeSize:RunJobFlow' :: RunJobFlow -> Maybe Int
$sel:customAmiId:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:configurations:RunJobFlow' :: RunJobFlow -> Maybe [Configuration]
$sel:bootstrapActions:RunJobFlow' :: RunJobFlow -> Maybe [BootstrapActionConfig]
$sel:autoTerminationPolicy:RunJobFlow' :: RunJobFlow -> Maybe AutoTerminationPolicy
$sel:autoScalingRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:applications:RunJobFlow' :: RunJobFlow -> Maybe [Application]
$sel:amiVersion:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:additionalInfo:RunJobFlow' :: RunJobFlow -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
additionalInfo
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
amiVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Application]
applications
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
autoScalingRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AutoTerminationPolicy
autoTerminationPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [BootstrapActionConfig]
bootstrapActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Configuration]
configurations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customAmiId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
ebsRootVolumeSize
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobFlowRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe KerberosAttributes
kerberosAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
logEncryptionKmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
logUri
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ManagedScalingPolicy
managedScalingPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [SupportedProductConfig]
newSupportedProducts'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
oSReleaseLabel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PlacementGroupConfig]
placementGroupConfigs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
releaseLabel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ScaleDownBehavior
scaleDownBehavior
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
securityConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
serviceRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Int
stepConcurrencyLevel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [StepConfig]
steps
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [Text]
supportedProducts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Bool
visibleToAllUsers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
JobFlowInstancesConfig
instances
instance Data.ToHeaders RunJobFlow where
toHeaders :: RunJobFlow -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"ElasticMapReduce.RunJobFlow" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON RunJobFlow where
toJSON :: RunJobFlow -> Value
toJSON RunJobFlow' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Application]
Maybe [Configuration]
Maybe [PlacementGroupConfig]
Maybe [BootstrapActionConfig]
Maybe [StepConfig]
Maybe [SupportedProductConfig]
Maybe [Tag]
Maybe Text
Maybe AutoTerminationPolicy
Maybe KerberosAttributes
Maybe ManagedScalingPolicy
Maybe RepoUpgradeOnBoot
Maybe ScaleDownBehavior
Text
JobFlowInstancesConfig
instances :: JobFlowInstancesConfig
name :: Text
visibleToAllUsers :: Maybe Bool
tags :: Maybe [Tag]
supportedProducts :: Maybe [Text]
steps :: Maybe [StepConfig]
stepConcurrencyLevel :: Maybe Int
serviceRole :: Maybe Text
securityConfiguration :: Maybe Text
scaleDownBehavior :: Maybe ScaleDownBehavior
repoUpgradeOnBoot :: Maybe RepoUpgradeOnBoot
releaseLabel :: Maybe Text
placementGroupConfigs :: Maybe [PlacementGroupConfig]
oSReleaseLabel :: Maybe Text
newSupportedProducts' :: Maybe [SupportedProductConfig]
managedScalingPolicy :: Maybe ManagedScalingPolicy
logUri :: Maybe Text
logEncryptionKmsKeyId :: Maybe Text
kerberosAttributes :: Maybe KerberosAttributes
jobFlowRole :: Maybe Text
ebsRootVolumeSize :: Maybe Int
customAmiId :: Maybe Text
configurations :: Maybe [Configuration]
bootstrapActions :: Maybe [BootstrapActionConfig]
autoTerminationPolicy :: Maybe AutoTerminationPolicy
autoScalingRole :: Maybe Text
applications :: Maybe [Application]
amiVersion :: Maybe Text
additionalInfo :: Maybe Text
$sel:instances:RunJobFlow' :: RunJobFlow -> JobFlowInstancesConfig
$sel:name:RunJobFlow' :: RunJobFlow -> Text
$sel:visibleToAllUsers:RunJobFlow' :: RunJobFlow -> Maybe Bool
$sel:tags:RunJobFlow' :: RunJobFlow -> Maybe [Tag]
$sel:supportedProducts:RunJobFlow' :: RunJobFlow -> Maybe [Text]
$sel:steps:RunJobFlow' :: RunJobFlow -> Maybe [StepConfig]
$sel:stepConcurrencyLevel:RunJobFlow' :: RunJobFlow -> Maybe Int
$sel:serviceRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:securityConfiguration:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:scaleDownBehavior:RunJobFlow' :: RunJobFlow -> Maybe ScaleDownBehavior
$sel:repoUpgradeOnBoot:RunJobFlow' :: RunJobFlow -> Maybe RepoUpgradeOnBoot
$sel:releaseLabel:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:placementGroupConfigs:RunJobFlow' :: RunJobFlow -> Maybe [PlacementGroupConfig]
$sel:oSReleaseLabel:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:newSupportedProducts':RunJobFlow' :: RunJobFlow -> Maybe [SupportedProductConfig]
$sel:managedScalingPolicy:RunJobFlow' :: RunJobFlow -> Maybe ManagedScalingPolicy
$sel:logUri:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:logEncryptionKmsKeyId:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:kerberosAttributes:RunJobFlow' :: RunJobFlow -> Maybe KerberosAttributes
$sel:jobFlowRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:ebsRootVolumeSize:RunJobFlow' :: RunJobFlow -> Maybe Int
$sel:customAmiId:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:configurations:RunJobFlow' :: RunJobFlow -> Maybe [Configuration]
$sel:bootstrapActions:RunJobFlow' :: RunJobFlow -> Maybe [BootstrapActionConfig]
$sel:autoTerminationPolicy:RunJobFlow' :: RunJobFlow -> Maybe AutoTerminationPolicy
$sel:autoScalingRole:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:applications:RunJobFlow' :: RunJobFlow -> Maybe [Application]
$sel:amiVersion:RunJobFlow' :: RunJobFlow -> Maybe Text
$sel:additionalInfo:RunJobFlow' :: RunJobFlow -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AdditionalInfo" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
additionalInfo,
(Key
"AmiVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
amiVersion,
(Key
"Applications" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Application]
applications,
(Key
"AutoScalingRole" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
autoScalingRole,
(Key
"AutoTerminationPolicy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AutoTerminationPolicy
autoTerminationPolicy,
(Key
"BootstrapActions" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [BootstrapActionConfig]
bootstrapActions,
(Key
"Configurations" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Configuration]
configurations,
(Key
"CustomAmiId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
customAmiId,
(Key
"EbsRootVolumeSize" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
ebsRootVolumeSize,
(Key
"JobFlowRole" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
jobFlowRole,
(Key
"KerberosAttributes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe KerberosAttributes
kerberosAttributes,
(Key
"LogEncryptionKmsKeyId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
logEncryptionKmsKeyId,
(Key
"LogUri" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
logUri,
(Key
"ManagedScalingPolicy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ManagedScalingPolicy
managedScalingPolicy,
(Key
"NewSupportedProducts" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [SupportedProductConfig]
newSupportedProducts',
(Key
"OSReleaseLabel" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
oSReleaseLabel,
(Key
"PlacementGroupConfigs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PlacementGroupConfig]
placementGroupConfigs,
(Key
"ReleaseLabel" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
releaseLabel,
(Key
"RepoUpgradeOnBoot" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RepoUpgradeOnBoot
repoUpgradeOnBoot,
(Key
"ScaleDownBehavior" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ScaleDownBehavior
scaleDownBehavior,
(Key
"SecurityConfiguration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
securityConfiguration,
(Key
"ServiceRole" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
serviceRole,
(Key
"StepConcurrencyLevel" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
stepConcurrencyLevel,
(Key
"Steps" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [StepConfig]
steps,
(Key
"SupportedProducts" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
supportedProducts,
(Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
(Key
"VisibleToAllUsers" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
visibleToAllUsers,
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just (Key
"Instances" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= JobFlowInstancesConfig
instances)
]
)
instance Data.ToPath RunJobFlow where
toPath :: RunJobFlow -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RunJobFlow where
toQuery :: RunJobFlow -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RunJobFlowResponse = RunJobFlowResponse'
{
RunJobFlowResponse -> Maybe Text
clusterArn :: Prelude.Maybe Prelude.Text,
RunJobFlowResponse -> Maybe Text
jobFlowId :: Prelude.Maybe Prelude.Text,
RunJobFlowResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RunJobFlowResponse -> RunJobFlowResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunJobFlowResponse -> RunJobFlowResponse -> Bool
$c/= :: RunJobFlowResponse -> RunJobFlowResponse -> Bool
== :: RunJobFlowResponse -> RunJobFlowResponse -> Bool
$c== :: RunJobFlowResponse -> RunJobFlowResponse -> Bool
Prelude.Eq, ReadPrec [RunJobFlowResponse]
ReadPrec RunJobFlowResponse
Int -> ReadS RunJobFlowResponse
ReadS [RunJobFlowResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RunJobFlowResponse]
$creadListPrec :: ReadPrec [RunJobFlowResponse]
readPrec :: ReadPrec RunJobFlowResponse
$creadPrec :: ReadPrec RunJobFlowResponse
readList :: ReadS [RunJobFlowResponse]
$creadList :: ReadS [RunJobFlowResponse]
readsPrec :: Int -> ReadS RunJobFlowResponse
$creadsPrec :: Int -> ReadS RunJobFlowResponse
Prelude.Read, Int -> RunJobFlowResponse -> ShowS
[RunJobFlowResponse] -> ShowS
RunJobFlowResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RunJobFlowResponse] -> ShowS
$cshowList :: [RunJobFlowResponse] -> ShowS
show :: RunJobFlowResponse -> String
$cshow :: RunJobFlowResponse -> String
showsPrec :: Int -> RunJobFlowResponse -> ShowS
$cshowsPrec :: Int -> RunJobFlowResponse -> ShowS
Prelude.Show, forall x. Rep RunJobFlowResponse x -> RunJobFlowResponse
forall x. RunJobFlowResponse -> Rep RunJobFlowResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RunJobFlowResponse x -> RunJobFlowResponse
$cfrom :: forall x. RunJobFlowResponse -> Rep RunJobFlowResponse x
Prelude.Generic)
newRunJobFlowResponse ::
Prelude.Int ->
RunJobFlowResponse
newRunJobFlowResponse :: Int -> RunJobFlowResponse
newRunJobFlowResponse Int
pHttpStatus_ =
RunJobFlowResponse'
{ $sel:clusterArn:RunJobFlowResponse' :: Maybe Text
clusterArn = forall a. Maybe a
Prelude.Nothing,
$sel:jobFlowId:RunJobFlowResponse' :: Maybe Text
jobFlowId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:RunJobFlowResponse' :: Int
httpStatus = Int
pHttpStatus_
}
runJobFlowResponse_clusterArn :: Lens.Lens' RunJobFlowResponse (Prelude.Maybe Prelude.Text)
runJobFlowResponse_clusterArn :: Lens' RunJobFlowResponse (Maybe Text)
runJobFlowResponse_clusterArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlowResponse' {Maybe Text
clusterArn :: Maybe Text
$sel:clusterArn:RunJobFlowResponse' :: RunJobFlowResponse -> Maybe Text
clusterArn} -> Maybe Text
clusterArn) (\s :: RunJobFlowResponse
s@RunJobFlowResponse' {} Maybe Text
a -> RunJobFlowResponse
s {$sel:clusterArn:RunJobFlowResponse' :: Maybe Text
clusterArn = Maybe Text
a} :: RunJobFlowResponse)
runJobFlowResponse_jobFlowId :: Lens.Lens' RunJobFlowResponse (Prelude.Maybe Prelude.Text)
runJobFlowResponse_jobFlowId :: Lens' RunJobFlowResponse (Maybe Text)
runJobFlowResponse_jobFlowId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlowResponse' {Maybe Text
jobFlowId :: Maybe Text
$sel:jobFlowId:RunJobFlowResponse' :: RunJobFlowResponse -> Maybe Text
jobFlowId} -> Maybe Text
jobFlowId) (\s :: RunJobFlowResponse
s@RunJobFlowResponse' {} Maybe Text
a -> RunJobFlowResponse
s {$sel:jobFlowId:RunJobFlowResponse' :: Maybe Text
jobFlowId = Maybe Text
a} :: RunJobFlowResponse)
runJobFlowResponse_httpStatus :: Lens.Lens' RunJobFlowResponse Prelude.Int
runJobFlowResponse_httpStatus :: Lens' RunJobFlowResponse Int
runJobFlowResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RunJobFlowResponse' {Int
httpStatus :: Int
$sel:httpStatus:RunJobFlowResponse' :: RunJobFlowResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RunJobFlowResponse
s@RunJobFlowResponse' {} Int
a -> RunJobFlowResponse
s {$sel:httpStatus:RunJobFlowResponse' :: Int
httpStatus = Int
a} :: RunJobFlowResponse)
instance Prelude.NFData RunJobFlowResponse where
rnf :: RunJobFlowResponse -> ()
rnf RunJobFlowResponse' {Int
Maybe Text
httpStatus :: Int
jobFlowId :: Maybe Text
clusterArn :: Maybe Text
$sel:httpStatus:RunJobFlowResponse' :: RunJobFlowResponse -> Int
$sel:jobFlowId:RunJobFlowResponse' :: RunJobFlowResponse -> Maybe Text
$sel:clusterArn:RunJobFlowResponse' :: RunJobFlowResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clusterArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobFlowId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus