module Stratosphere.SageMaker.ModelCard.TrainingHyperParameterProperty (
        TrainingHyperParameterProperty(..),
        mkTrainingHyperParameterProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data TrainingHyperParameterProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-modelcard-traininghyperparameter.html>
    TrainingHyperParameterProperty {TrainingHyperParameterProperty -> ()
haddock_workaround_ :: (),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-modelcard-traininghyperparameter.html#cfn-sagemaker-modelcard-traininghyperparameter-name>
                                    TrainingHyperParameterProperty -> Value Text
name :: (Value Prelude.Text),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-modelcard-traininghyperparameter.html#cfn-sagemaker-modelcard-traininghyperparameter-value>
                                    TrainingHyperParameterProperty -> Value Text
value :: (Value Prelude.Text)}
  deriving stock (TrainingHyperParameterProperty
-> TrainingHyperParameterProperty -> Bool
(TrainingHyperParameterProperty
 -> TrainingHyperParameterProperty -> Bool)
-> (TrainingHyperParameterProperty
    -> TrainingHyperParameterProperty -> Bool)
-> Eq TrainingHyperParameterProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TrainingHyperParameterProperty
-> TrainingHyperParameterProperty -> Bool
== :: TrainingHyperParameterProperty
-> TrainingHyperParameterProperty -> Bool
$c/= :: TrainingHyperParameterProperty
-> TrainingHyperParameterProperty -> Bool
/= :: TrainingHyperParameterProperty
-> TrainingHyperParameterProperty -> Bool
Prelude.Eq, Int -> TrainingHyperParameterProperty -> ShowS
[TrainingHyperParameterProperty] -> ShowS
TrainingHyperParameterProperty -> String
(Int -> TrainingHyperParameterProperty -> ShowS)
-> (TrainingHyperParameterProperty -> String)
-> ([TrainingHyperParameterProperty] -> ShowS)
-> Show TrainingHyperParameterProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TrainingHyperParameterProperty -> ShowS
showsPrec :: Int -> TrainingHyperParameterProperty -> ShowS
$cshow :: TrainingHyperParameterProperty -> String
show :: TrainingHyperParameterProperty -> String
$cshowList :: [TrainingHyperParameterProperty] -> ShowS
showList :: [TrainingHyperParameterProperty] -> ShowS
Prelude.Show)
mkTrainingHyperParameterProperty ::
  Value Prelude.Text
  -> Value Prelude.Text -> TrainingHyperParameterProperty
mkTrainingHyperParameterProperty :: Value Text -> Value Text -> TrainingHyperParameterProperty
mkTrainingHyperParameterProperty Value Text
name Value Text
value
  = TrainingHyperParameterProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), name :: Value Text
name = Value Text
name, value :: Value Text
value = Value Text
value}
instance ToResourceProperties TrainingHyperParameterProperty where
  toResourceProperties :: TrainingHyperParameterProperty -> ResourceProperties
toResourceProperties TrainingHyperParameterProperty {()
Value Text
haddock_workaround_ :: TrainingHyperParameterProperty -> ()
name :: TrainingHyperParameterProperty -> Value Text
value :: TrainingHyperParameterProperty -> Value Text
haddock_workaround_ :: ()
name :: Value Text
value :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SageMaker::ModelCard.TrainingHyperParameter",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Name" 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
name, Key
"Value" 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
value]}
instance JSON.ToJSON TrainingHyperParameterProperty where
  toJSON :: TrainingHyperParameterProperty -> Value
toJSON TrainingHyperParameterProperty {()
Value Text
haddock_workaround_ :: TrainingHyperParameterProperty -> ()
name :: TrainingHyperParameterProperty -> Value Text
value :: TrainingHyperParameterProperty -> Value Text
haddock_workaround_ :: ()
name :: Value Text
value :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Name" 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
name, Key
"Value" 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
value]
instance Property "Name" TrainingHyperParameterProperty where
  type PropertyType "Name" TrainingHyperParameterProperty = Value Prelude.Text
  set :: PropertyType "Name" TrainingHyperParameterProperty
-> TrainingHyperParameterProperty -> TrainingHyperParameterProperty
set PropertyType "Name" TrainingHyperParameterProperty
newValue TrainingHyperParameterProperty {()
Value Text
haddock_workaround_ :: TrainingHyperParameterProperty -> ()
name :: TrainingHyperParameterProperty -> Value Text
value :: TrainingHyperParameterProperty -> Value Text
haddock_workaround_ :: ()
name :: Value Text
value :: Value Text
..}
    = TrainingHyperParameterProperty {name :: Value Text
name = PropertyType "Name" TrainingHyperParameterProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
value :: Value Text
haddock_workaround_ :: ()
value :: Value Text
..}
instance Property "Value" TrainingHyperParameterProperty where
  type PropertyType "Value" TrainingHyperParameterProperty = Value Prelude.Text
  set :: PropertyType "Value" TrainingHyperParameterProperty
-> TrainingHyperParameterProperty -> TrainingHyperParameterProperty
set PropertyType "Value" TrainingHyperParameterProperty
newValue TrainingHyperParameterProperty {()
Value Text
haddock_workaround_ :: TrainingHyperParameterProperty -> ()
name :: TrainingHyperParameterProperty -> Value Text
value :: TrainingHyperParameterProperty -> Value Text
haddock_workaround_ :: ()
name :: Value Text
value :: Value Text
..}
    = TrainingHyperParameterProperty {value :: Value Text
value = PropertyType "Value" TrainingHyperParameterProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
name :: Value Text
haddock_workaround_ :: ()
name :: Value Text
..}