module Stratosphere.Deadline.QueueEnvironment (
        QueueEnvironment(..), mkQueueEnvironment
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data QueueEnvironment
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-deadline-queueenvironment.html>
    QueueEnvironment {QueueEnvironment -> ()
haddock_workaround_ :: (),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-deadline-queueenvironment.html#cfn-deadline-queueenvironment-farmid>
                      QueueEnvironment -> Value Text
farmId :: (Value Prelude.Text),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-deadline-queueenvironment.html#cfn-deadline-queueenvironment-priority>
                      QueueEnvironment -> Value Integer
priority :: (Value Prelude.Integer),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-deadline-queueenvironment.html#cfn-deadline-queueenvironment-queueid>
                      QueueEnvironment -> Value Text
queueId :: (Value Prelude.Text),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-deadline-queueenvironment.html#cfn-deadline-queueenvironment-template>
                      QueueEnvironment -> Value Text
template :: (Value Prelude.Text),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-deadline-queueenvironment.html#cfn-deadline-queueenvironment-templatetype>
                      QueueEnvironment -> Value Text
templateType :: (Value Prelude.Text)}
  deriving stock (QueueEnvironment -> QueueEnvironment -> Bool
(QueueEnvironment -> QueueEnvironment -> Bool)
-> (QueueEnvironment -> QueueEnvironment -> Bool)
-> Eq QueueEnvironment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: QueueEnvironment -> QueueEnvironment -> Bool
== :: QueueEnvironment -> QueueEnvironment -> Bool
$c/= :: QueueEnvironment -> QueueEnvironment -> Bool
/= :: QueueEnvironment -> QueueEnvironment -> Bool
Prelude.Eq, Int -> QueueEnvironment -> ShowS
[QueueEnvironment] -> ShowS
QueueEnvironment -> String
(Int -> QueueEnvironment -> ShowS)
-> (QueueEnvironment -> String)
-> ([QueueEnvironment] -> ShowS)
-> Show QueueEnvironment
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> QueueEnvironment -> ShowS
showsPrec :: Int -> QueueEnvironment -> ShowS
$cshow :: QueueEnvironment -> String
show :: QueueEnvironment -> String
$cshowList :: [QueueEnvironment] -> ShowS
showList :: [QueueEnvironment] -> ShowS
Prelude.Show)
mkQueueEnvironment ::
  Value Prelude.Text
  -> Value Prelude.Integer
     -> Value Prelude.Text
        -> Value Prelude.Text -> Value Prelude.Text -> QueueEnvironment
mkQueueEnvironment :: Value Text
-> Value Integer
-> Value Text
-> Value Text
-> Value Text
-> QueueEnvironment
mkQueueEnvironment Value Text
farmId Value Integer
priority Value Text
queueId Value Text
template Value Text
templateType
  = QueueEnvironment
      {haddock_workaround_ :: ()
haddock_workaround_ = (), farmId :: Value Text
farmId = Value Text
farmId, priority :: Value Integer
priority = Value Integer
priority,
       queueId :: Value Text
queueId = Value Text
queueId, template :: Value Text
template = Value Text
template,
       templateType :: Value Text
templateType = Value Text
templateType}
instance ToResourceProperties QueueEnvironment where
  toResourceProperties :: QueueEnvironment -> ResourceProperties
toResourceProperties QueueEnvironment {()
Value Integer
Value Text
haddock_workaround_ :: QueueEnvironment -> ()
farmId :: QueueEnvironment -> Value Text
priority :: QueueEnvironment -> Value Integer
queueId :: QueueEnvironment -> Value Text
template :: QueueEnvironment -> Value Text
templateType :: QueueEnvironment -> Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Deadline::QueueEnvironment",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"FarmId" 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..= Value Text
farmId, 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,
                       Key
"QueueId" 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..= Value Text
queueId, Key
"Template" 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..= Value Text
template,
                       Key
"TemplateType" 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..= Value Text
templateType]}
instance JSON.ToJSON QueueEnvironment where
  toJSON :: QueueEnvironment -> Value
toJSON QueueEnvironment {()
Value Integer
Value Text
haddock_workaround_ :: QueueEnvironment -> ()
farmId :: QueueEnvironment -> Value Text
priority :: QueueEnvironment -> Value Integer
queueId :: QueueEnvironment -> Value Text
template :: QueueEnvironment -> Value Text
templateType :: QueueEnvironment -> Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"FarmId" 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..= Value Text
farmId, 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,
         Key
"QueueId" 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..= Value Text
queueId, Key
"Template" 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..= Value Text
template,
         Key
"TemplateType" 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..= Value Text
templateType]
instance Property "FarmId" QueueEnvironment where
  type PropertyType "FarmId" QueueEnvironment = Value Prelude.Text
  set :: PropertyType "FarmId" QueueEnvironment
-> QueueEnvironment -> QueueEnvironment
set PropertyType "FarmId" QueueEnvironment
newValue QueueEnvironment {()
Value Integer
Value Text
haddock_workaround_ :: QueueEnvironment -> ()
farmId :: QueueEnvironment -> Value Text
priority :: QueueEnvironment -> Value Integer
queueId :: QueueEnvironment -> Value Text
template :: QueueEnvironment -> Value Text
templateType :: QueueEnvironment -> Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
    = QueueEnvironment {farmId :: Value Text
farmId = PropertyType "FarmId" QueueEnvironment
Value Text
newValue, ()
Value Integer
Value Text
haddock_workaround_ :: ()
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
haddock_workaround_ :: ()
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
instance Property "Priority" QueueEnvironment where
  type PropertyType "Priority" QueueEnvironment = Value Prelude.Integer
  set :: PropertyType "Priority" QueueEnvironment
-> QueueEnvironment -> QueueEnvironment
set PropertyType "Priority" QueueEnvironment
newValue QueueEnvironment {()
Value Integer
Value Text
haddock_workaround_ :: QueueEnvironment -> ()
farmId :: QueueEnvironment -> Value Text
priority :: QueueEnvironment -> Value Integer
queueId :: QueueEnvironment -> Value Text
template :: QueueEnvironment -> Value Text
templateType :: QueueEnvironment -> Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
    = QueueEnvironment {priority :: Value Integer
priority = PropertyType "Priority" QueueEnvironment
Value Integer
newValue, ()
Value Text
haddock_workaround_ :: ()
farmId :: Value Text
queueId :: Value Text
template :: Value Text
templateType :: Value Text
haddock_workaround_ :: ()
farmId :: Value Text
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
instance Property "QueueId" QueueEnvironment where
  type PropertyType "QueueId" QueueEnvironment = Value Prelude.Text
  set :: PropertyType "QueueId" QueueEnvironment
-> QueueEnvironment -> QueueEnvironment
set PropertyType "QueueId" QueueEnvironment
newValue QueueEnvironment {()
Value Integer
Value Text
haddock_workaround_ :: QueueEnvironment -> ()
farmId :: QueueEnvironment -> Value Text
priority :: QueueEnvironment -> Value Integer
queueId :: QueueEnvironment -> Value Text
template :: QueueEnvironment -> Value Text
templateType :: QueueEnvironment -> Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
    = QueueEnvironment {queueId :: Value Text
queueId = PropertyType "QueueId" QueueEnvironment
Value Text
newValue, ()
Value Integer
Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
template :: Value Text
templateType :: Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
template :: Value Text
templateType :: Value Text
..}
instance Property "Template" QueueEnvironment where
  type PropertyType "Template" QueueEnvironment = Value Prelude.Text
  set :: PropertyType "Template" QueueEnvironment
-> QueueEnvironment -> QueueEnvironment
set PropertyType "Template" QueueEnvironment
newValue QueueEnvironment {()
Value Integer
Value Text
haddock_workaround_ :: QueueEnvironment -> ()
farmId :: QueueEnvironment -> Value Text
priority :: QueueEnvironment -> Value Integer
queueId :: QueueEnvironment -> Value Text
template :: QueueEnvironment -> Value Text
templateType :: QueueEnvironment -> Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
    = QueueEnvironment {template :: Value Text
template = PropertyType "Template" QueueEnvironment
Value Text
newValue, ()
Value Integer
Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
templateType :: Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
templateType :: Value Text
..}
instance Property "TemplateType" QueueEnvironment where
  type PropertyType "TemplateType" QueueEnvironment = Value Prelude.Text
  set :: PropertyType "TemplateType" QueueEnvironment
-> QueueEnvironment -> QueueEnvironment
set PropertyType "TemplateType" QueueEnvironment
newValue QueueEnvironment {()
Value Integer
Value Text
haddock_workaround_ :: QueueEnvironment -> ()
farmId :: QueueEnvironment -> Value Text
priority :: QueueEnvironment -> Value Integer
queueId :: QueueEnvironment -> Value Text
template :: QueueEnvironment -> Value Text
templateType :: QueueEnvironment -> Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
templateType :: Value Text
..}
    = QueueEnvironment {templateType :: Value Text
templateType = PropertyType "TemplateType" QueueEnvironment
Value Text
newValue, ()
Value Integer
Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
haddock_workaround_ :: ()
farmId :: Value Text
priority :: Value Integer
queueId :: Value Text
template :: Value Text
..}