module Stratosphere.Personalize.Solution.HpoResourceConfigProperty (
        HpoResourceConfigProperty(..), mkHpoResourceConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data HpoResourceConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-personalize-solution-hporesourceconfig.html>
    HpoResourceConfigProperty {HpoResourceConfigProperty -> ()
haddock_workaround_ :: (),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-personalize-solution-hporesourceconfig.html#cfn-personalize-solution-hporesourceconfig-maxnumberoftrainingjobs>
                               HpoResourceConfigProperty -> Maybe (Value Text)
maxNumberOfTrainingJobs :: (Prelude.Maybe (Value Prelude.Text)),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-personalize-solution-hporesourceconfig.html#cfn-personalize-solution-hporesourceconfig-maxparalleltrainingjobs>
                               HpoResourceConfigProperty -> Maybe (Value Text)
maxParallelTrainingJobs :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (HpoResourceConfigProperty -> HpoResourceConfigProperty -> Bool
(HpoResourceConfigProperty -> HpoResourceConfigProperty -> Bool)
-> (HpoResourceConfigProperty -> HpoResourceConfigProperty -> Bool)
-> Eq HpoResourceConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HpoResourceConfigProperty -> HpoResourceConfigProperty -> Bool
== :: HpoResourceConfigProperty -> HpoResourceConfigProperty -> Bool
$c/= :: HpoResourceConfigProperty -> HpoResourceConfigProperty -> Bool
/= :: HpoResourceConfigProperty -> HpoResourceConfigProperty -> Bool
Prelude.Eq, Int -> HpoResourceConfigProperty -> ShowS
[HpoResourceConfigProperty] -> ShowS
HpoResourceConfigProperty -> String
(Int -> HpoResourceConfigProperty -> ShowS)
-> (HpoResourceConfigProperty -> String)
-> ([HpoResourceConfigProperty] -> ShowS)
-> Show HpoResourceConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HpoResourceConfigProperty -> ShowS
showsPrec :: Int -> HpoResourceConfigProperty -> ShowS
$cshow :: HpoResourceConfigProperty -> String
show :: HpoResourceConfigProperty -> String
$cshowList :: [HpoResourceConfigProperty] -> ShowS
showList :: [HpoResourceConfigProperty] -> ShowS
Prelude.Show)
mkHpoResourceConfigProperty :: HpoResourceConfigProperty
mkHpoResourceConfigProperty :: HpoResourceConfigProperty
mkHpoResourceConfigProperty
  = HpoResourceConfigProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       maxNumberOfTrainingJobs :: Maybe (Value Text)
maxNumberOfTrainingJobs = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       maxParallelTrainingJobs :: Maybe (Value Text)
maxParallelTrainingJobs = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties HpoResourceConfigProperty where
  toResourceProperties :: HpoResourceConfigProperty -> ResourceProperties
toResourceProperties HpoResourceConfigProperty {Maybe (Value Text)
()
haddock_workaround_ :: HpoResourceConfigProperty -> ()
maxNumberOfTrainingJobs :: HpoResourceConfigProperty -> Maybe (Value Text)
maxParallelTrainingJobs :: HpoResourceConfigProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
maxNumberOfTrainingJobs :: Maybe (Value Text)
maxParallelTrainingJobs :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Personalize::Solution.HpoResourceConfig",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [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
"MaxNumberOfTrainingJobs"
                              (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)
maxNumberOfTrainingJobs,
                            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
"MaxParallelTrainingJobs"
                              (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)
maxParallelTrainingJobs])}
instance JSON.ToJSON HpoResourceConfigProperty where
  toJSON :: HpoResourceConfigProperty -> Value
toJSON HpoResourceConfigProperty {Maybe (Value Text)
()
haddock_workaround_ :: HpoResourceConfigProperty -> ()
maxNumberOfTrainingJobs :: HpoResourceConfigProperty -> Maybe (Value Text)
maxParallelTrainingJobs :: HpoResourceConfigProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
maxNumberOfTrainingJobs :: Maybe (Value Text)
maxParallelTrainingJobs :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [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
"MaxNumberOfTrainingJobs"
                 (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)
maxNumberOfTrainingJobs,
               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
"MaxParallelTrainingJobs"
                 (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)
maxParallelTrainingJobs]))
instance Property "MaxNumberOfTrainingJobs" HpoResourceConfigProperty where
  type PropertyType "MaxNumberOfTrainingJobs" HpoResourceConfigProperty = Value Prelude.Text
  set :: PropertyType "MaxNumberOfTrainingJobs" HpoResourceConfigProperty
-> HpoResourceConfigProperty -> HpoResourceConfigProperty
set PropertyType "MaxNumberOfTrainingJobs" HpoResourceConfigProperty
newValue HpoResourceConfigProperty {Maybe (Value Text)
()
haddock_workaround_ :: HpoResourceConfigProperty -> ()
maxNumberOfTrainingJobs :: HpoResourceConfigProperty -> Maybe (Value Text)
maxParallelTrainingJobs :: HpoResourceConfigProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
maxNumberOfTrainingJobs :: Maybe (Value Text)
maxParallelTrainingJobs :: Maybe (Value Text)
..}
    = HpoResourceConfigProperty
        {maxNumberOfTrainingJobs :: Maybe (Value Text)
maxNumberOfTrainingJobs = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MaxNumberOfTrainingJobs" HpoResourceConfigProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
maxParallelTrainingJobs :: Maybe (Value Text)
haddock_workaround_ :: ()
maxParallelTrainingJobs :: Maybe (Value Text)
..}
instance Property "MaxParallelTrainingJobs" HpoResourceConfigProperty where
  type PropertyType "MaxParallelTrainingJobs" HpoResourceConfigProperty = Value Prelude.Text
  set :: PropertyType "MaxParallelTrainingJobs" HpoResourceConfigProperty
-> HpoResourceConfigProperty -> HpoResourceConfigProperty
set PropertyType "MaxParallelTrainingJobs" HpoResourceConfigProperty
newValue HpoResourceConfigProperty {Maybe (Value Text)
()
haddock_workaround_ :: HpoResourceConfigProperty -> ()
maxNumberOfTrainingJobs :: HpoResourceConfigProperty -> Maybe (Value Text)
maxParallelTrainingJobs :: HpoResourceConfigProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
maxNumberOfTrainingJobs :: Maybe (Value Text)
maxParallelTrainingJobs :: Maybe (Value Text)
..}
    = HpoResourceConfigProperty
        {maxParallelTrainingJobs :: Maybe (Value Text)
maxParallelTrainingJobs = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MaxParallelTrainingJobs" HpoResourceConfigProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
maxNumberOfTrainingJobs :: Maybe (Value Text)
haddock_workaround_ :: ()
maxNumberOfTrainingJobs :: Maybe (Value Text)
..}