module Stratosphere.Batch.JobQueue (
module Exports, JobQueue(..), mkJobQueue
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Batch.JobQueue.ComputeEnvironmentOrderProperty as Exports
import {-# SOURCE #-} Stratosphere.Batch.JobQueue.JobStateTimeLimitActionProperty as Exports
import {-# SOURCE #-} Stratosphere.Batch.JobQueue.ServiceEnvironmentOrderProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data JobQueue
=
JobQueue {JobQueue -> ()
haddock_workaround_ :: (),
JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
computeEnvironmentOrder :: (Prelude.Maybe [ComputeEnvironmentOrderProperty]),
JobQueue -> Maybe (Value Text)
jobQueueName :: (Prelude.Maybe (Value Prelude.Text)),
JobQueue -> Maybe (Value Text)
jobQueueType :: (Prelude.Maybe (Value Prelude.Text)),
JobQueue -> Maybe [JobStateTimeLimitActionProperty]
jobStateTimeLimitActions :: (Prelude.Maybe [JobStateTimeLimitActionProperty]),
JobQueue -> Value Integer
priority :: (Value Prelude.Integer),
JobQueue -> Maybe (Value Text)
schedulingPolicyArn :: (Prelude.Maybe (Value Prelude.Text)),
JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
serviceEnvironmentOrder :: (Prelude.Maybe [ServiceEnvironmentOrderProperty]),
JobQueue -> Maybe (Value Text)
state :: (Prelude.Maybe (Value Prelude.Text)),
JobQueue -> Maybe (Map Text (Value Text))
tags :: (Prelude.Maybe (Prelude.Map Prelude.Text (Value Prelude.Text)))}
deriving stock (JobQueue -> JobQueue -> Bool
(JobQueue -> JobQueue -> Bool)
-> (JobQueue -> JobQueue -> Bool) -> Eq JobQueue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: JobQueue -> JobQueue -> Bool
== :: JobQueue -> JobQueue -> Bool
$c/= :: JobQueue -> JobQueue -> Bool
/= :: JobQueue -> JobQueue -> Bool
Prelude.Eq, Int -> JobQueue -> ShowS
[JobQueue] -> ShowS
JobQueue -> String
(Int -> JobQueue -> ShowS)
-> (JobQueue -> String) -> ([JobQueue] -> ShowS) -> Show JobQueue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> JobQueue -> ShowS
showsPrec :: Int -> JobQueue -> ShowS
$cshow :: JobQueue -> String
show :: JobQueue -> String
$cshowList :: [JobQueue] -> ShowS
showList :: [JobQueue] -> ShowS
Prelude.Show)
mkJobQueue :: Value Prelude.Integer -> JobQueue
mkJobQueue :: Value Integer -> JobQueue
mkJobQueue Value Integer
priority
= JobQueue
{haddock_workaround_ :: ()
haddock_workaround_ = (), priority :: Value Integer
priority = Value Integer
priority,
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
computeEnvironmentOrder = Maybe [ComputeEnvironmentOrderProperty]
forall a. Maybe a
Prelude.Nothing,
jobQueueName :: Maybe (Value Text)
jobQueueName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, jobQueueType :: Maybe (Value Text)
jobQueueType = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
jobStateTimeLimitActions = Maybe [JobStateTimeLimitActionProperty]
forall a. Maybe a
Prelude.Nothing,
schedulingPolicyArn :: Maybe (Value Text)
schedulingPolicyArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
serviceEnvironmentOrder = Maybe [ServiceEnvironmentOrderProperty]
forall a. Maybe a
Prelude.Nothing, state :: Maybe (Value Text)
state = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
tags :: Maybe (Map Text (Value Text))
tags = Maybe (Map Text (Value Text))
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties JobQueue where
toResourceProperties :: JobQueue -> ResourceProperties
toResourceProperties JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Batch::JobQueue", supportsTags :: Bool
supportsTags = Bool
Prelude.True,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"Priority" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
priority]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> [ComputeEnvironmentOrderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ComputeEnvironmentOrder"
([ComputeEnvironmentOrderProperty] -> (Key, Value))
-> Maybe [ComputeEnvironmentOrderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ComputeEnvironmentOrderProperty]
computeEnvironmentOrder,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JobQueueName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
jobQueueName,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JobQueueType" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
jobQueueType,
Key -> [JobStateTimeLimitActionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JobStateTimeLimitActions"
([JobStateTimeLimitActionProperty] -> (Key, Value))
-> Maybe [JobStateTimeLimitActionProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [JobStateTimeLimitActionProperty]
jobStateTimeLimitActions,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SchedulingPolicyArn" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
schedulingPolicyArn,
Key -> [ServiceEnvironmentOrderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ServiceEnvironmentOrder"
([ServiceEnvironmentOrderProperty] -> (Key, Value))
-> Maybe [ServiceEnvironmentOrderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ServiceEnvironmentOrderProperty]
serviceEnvironmentOrder,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"State" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
state,
Key -> Map Text (Value Text) -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
tags]))}
instance JSON.ToJSON JobQueue where
toJSON :: JobQueue -> Value
toJSON JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"Priority" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
priority]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> [ComputeEnvironmentOrderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ComputeEnvironmentOrder"
([ComputeEnvironmentOrderProperty] -> (Key, Value))
-> Maybe [ComputeEnvironmentOrderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ComputeEnvironmentOrderProperty]
computeEnvironmentOrder,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JobQueueName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
jobQueueName,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JobQueueType" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
jobQueueType,
Key -> [JobStateTimeLimitActionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"JobStateTimeLimitActions"
([JobStateTimeLimitActionProperty] -> (Key, Value))
-> Maybe [JobStateTimeLimitActionProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [JobStateTimeLimitActionProperty]
jobStateTimeLimitActions,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SchedulingPolicyArn" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
schedulingPolicyArn,
Key -> [ServiceEnvironmentOrderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ServiceEnvironmentOrder"
([ServiceEnvironmentOrderProperty] -> (Key, Value))
-> Maybe [ServiceEnvironmentOrderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ServiceEnvironmentOrderProperty]
serviceEnvironmentOrder,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"State" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
state,
Key -> Map Text (Value Text) -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
tags])))
instance Property "ComputeEnvironmentOrder" JobQueue where
type PropertyType "ComputeEnvironmentOrder" JobQueue = [ComputeEnvironmentOrderProperty]
set :: PropertyType "ComputeEnvironmentOrder" JobQueue
-> JobQueue -> JobQueue
set PropertyType "ComputeEnvironmentOrder" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= JobQueue {computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
computeEnvironmentOrder = [ComputeEnvironmentOrderProperty]
-> Maybe [ComputeEnvironmentOrderProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [ComputeEnvironmentOrderProperty]
PropertyType "ComputeEnvironmentOrder" JobQueue
newValue, Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
instance Property "JobQueueName" JobQueue where
type PropertyType "JobQueueName" JobQueue = Value Prelude.Text
set :: PropertyType "JobQueueName" JobQueue -> JobQueue -> JobQueue
set PropertyType "JobQueueName" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= JobQueue {jobQueueName :: Maybe (Value Text)
jobQueueName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "JobQueueName" JobQueue
Value Text
newValue, Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
instance Property "JobQueueType" JobQueue where
type PropertyType "JobQueueType" JobQueue = Value Prelude.Text
set :: PropertyType "JobQueueType" JobQueue -> JobQueue -> JobQueue
set PropertyType "JobQueueType" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= JobQueue {jobQueueType :: Maybe (Value Text)
jobQueueType = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "JobQueueType" JobQueue
Value Text
newValue, Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
instance Property "JobStateTimeLimitActions" JobQueue where
type PropertyType "JobStateTimeLimitActions" JobQueue = [JobStateTimeLimitActionProperty]
set :: PropertyType "JobStateTimeLimitActions" JobQueue
-> JobQueue -> JobQueue
set PropertyType "JobStateTimeLimitActions" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= JobQueue {jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
jobStateTimeLimitActions = [JobStateTimeLimitActionProperty]
-> Maybe [JobStateTimeLimitActionProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [JobStateTimeLimitActionProperty]
PropertyType "JobStateTimeLimitActions" JobQueue
newValue, Maybe [ComputeEnvironmentOrderProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
instance Property "Priority" JobQueue where
type PropertyType "Priority" JobQueue = Value Prelude.Integer
set :: PropertyType "Priority" JobQueue -> JobQueue -> JobQueue
set PropertyType "Priority" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..} = JobQueue {priority :: Value Integer
priority = PropertyType "Priority" JobQueue
Value Integer
newValue, Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
instance Property "SchedulingPolicyArn" JobQueue where
type PropertyType "SchedulingPolicyArn" JobQueue = Value Prelude.Text
set :: PropertyType "SchedulingPolicyArn" JobQueue -> JobQueue -> JobQueue
set PropertyType "SchedulingPolicyArn" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= JobQueue {schedulingPolicyArn :: Maybe (Value Text)
schedulingPolicyArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SchedulingPolicyArn" JobQueue
Value Text
newValue, Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
instance Property "ServiceEnvironmentOrder" JobQueue where
type PropertyType "ServiceEnvironmentOrder" JobQueue = [ServiceEnvironmentOrderProperty]
set :: PropertyType "ServiceEnvironmentOrder" JobQueue
-> JobQueue -> JobQueue
set PropertyType "ServiceEnvironmentOrder" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= JobQueue {serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
serviceEnvironmentOrder = [ServiceEnvironmentOrderProperty]
-> Maybe [ServiceEnvironmentOrderProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [ServiceEnvironmentOrderProperty]
PropertyType "ServiceEnvironmentOrder" JobQueue
newValue, Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
instance Property "State" JobQueue where
type PropertyType "State" JobQueue = Value Prelude.Text
set :: PropertyType "State" JobQueue -> JobQueue -> JobQueue
set PropertyType "State" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= JobQueue {state :: Maybe (Value Text)
state = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "State" JobQueue
Value Text
newValue, Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
tags :: Maybe (Map Text (Value Text))
..}
instance Property "Tags" JobQueue where
type PropertyType "Tags" JobQueue = Prelude.Map Prelude.Text (Value Prelude.Text)
set :: PropertyType "Tags" JobQueue -> JobQueue -> JobQueue
set PropertyType "Tags" JobQueue
newValue JobQueue {Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: JobQueue -> ()
computeEnvironmentOrder :: JobQueue -> Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: JobQueue -> Maybe (Value Text)
jobQueueType :: JobQueue -> Maybe (Value Text)
jobStateTimeLimitActions :: JobQueue -> Maybe [JobStateTimeLimitActionProperty]
priority :: JobQueue -> Value Integer
schedulingPolicyArn :: JobQueue -> Maybe (Value Text)
serviceEnvironmentOrder :: JobQueue -> Maybe [ServiceEnvironmentOrderProperty]
state :: JobQueue -> Maybe (Value Text)
tags :: JobQueue -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
= JobQueue {tags :: Maybe (Map Text (Value Text))
tags = Map Text (Value Text) -> Maybe (Map Text (Value Text))
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Map Text (Value Text)
PropertyType "Tags" JobQueue
newValue, Maybe [ComputeEnvironmentOrderProperty]
Maybe [JobStateTimeLimitActionProperty]
Maybe [ServiceEnvironmentOrderProperty]
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
haddock_workaround_ :: ()
computeEnvironmentOrder :: Maybe [ComputeEnvironmentOrderProperty]
jobQueueName :: Maybe (Value Text)
jobQueueType :: Maybe (Value Text)
jobStateTimeLimitActions :: Maybe [JobStateTimeLimitActionProperty]
priority :: Value Integer
schedulingPolicyArn :: Maybe (Value Text)
serviceEnvironmentOrder :: Maybe [ServiceEnvironmentOrderProperty]
state :: Maybe (Value Text)
..}