module Stratosphere.SageMaker.ModelBiasJobDefinition.StoppingConditionProperty (
StoppingConditionProperty(..), mkStoppingConditionProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data StoppingConditionProperty
=
StoppingConditionProperty {StoppingConditionProperty -> ()
haddock_workaround_ :: (),
StoppingConditionProperty -> Value Integer
maxRuntimeInSeconds :: (Value Prelude.Integer)}
deriving stock (StoppingConditionProperty -> StoppingConditionProperty -> Bool
(StoppingConditionProperty -> StoppingConditionProperty -> Bool)
-> (StoppingConditionProperty -> StoppingConditionProperty -> Bool)
-> Eq StoppingConditionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StoppingConditionProperty -> StoppingConditionProperty -> Bool
== :: StoppingConditionProperty -> StoppingConditionProperty -> Bool
$c/= :: StoppingConditionProperty -> StoppingConditionProperty -> Bool
/= :: StoppingConditionProperty -> StoppingConditionProperty -> Bool
Prelude.Eq, Int -> StoppingConditionProperty -> ShowS
[StoppingConditionProperty] -> ShowS
StoppingConditionProperty -> String
(Int -> StoppingConditionProperty -> ShowS)
-> (StoppingConditionProperty -> String)
-> ([StoppingConditionProperty] -> ShowS)
-> Show StoppingConditionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StoppingConditionProperty -> ShowS
showsPrec :: Int -> StoppingConditionProperty -> ShowS
$cshow :: StoppingConditionProperty -> String
show :: StoppingConditionProperty -> String
$cshowList :: [StoppingConditionProperty] -> ShowS
showList :: [StoppingConditionProperty] -> ShowS
Prelude.Show)
mkStoppingConditionProperty ::
Value Prelude.Integer -> StoppingConditionProperty
mkStoppingConditionProperty :: Value Integer -> StoppingConditionProperty
mkStoppingConditionProperty Value Integer
maxRuntimeInSeconds
= StoppingConditionProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
maxRuntimeInSeconds :: Value Integer
maxRuntimeInSeconds = Value Integer
maxRuntimeInSeconds}
instance ToResourceProperties StoppingConditionProperty where
toResourceProperties :: StoppingConditionProperty -> ResourceProperties
toResourceProperties StoppingConditionProperty {()
Value Integer
haddock_workaround_ :: StoppingConditionProperty -> ()
maxRuntimeInSeconds :: StoppingConditionProperty -> Value Integer
haddock_workaround_ :: ()
maxRuntimeInSeconds :: Value Integer
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::SageMaker::ModelBiasJobDefinition.StoppingCondition",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"MaxRuntimeInSeconds" 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
maxRuntimeInSeconds]}
instance JSON.ToJSON StoppingConditionProperty where
toJSON :: StoppingConditionProperty -> Value
toJSON StoppingConditionProperty {()
Value Integer
haddock_workaround_ :: StoppingConditionProperty -> ()
maxRuntimeInSeconds :: StoppingConditionProperty -> Value Integer
haddock_workaround_ :: ()
maxRuntimeInSeconds :: Value Integer
..}
= [(Key, Value)] -> Value
JSON.object [Key
"MaxRuntimeInSeconds" 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
maxRuntimeInSeconds]
instance Property "MaxRuntimeInSeconds" StoppingConditionProperty where
type PropertyType "MaxRuntimeInSeconds" StoppingConditionProperty = Value Prelude.Integer
set :: PropertyType "MaxRuntimeInSeconds" StoppingConditionProperty
-> StoppingConditionProperty -> StoppingConditionProperty
set PropertyType "MaxRuntimeInSeconds" StoppingConditionProperty
newValue StoppingConditionProperty {()
Value Integer
haddock_workaround_ :: StoppingConditionProperty -> ()
maxRuntimeInSeconds :: StoppingConditionProperty -> Value Integer
haddock_workaround_ :: ()
maxRuntimeInSeconds :: Value Integer
..}
= StoppingConditionProperty {maxRuntimeInSeconds :: Value Integer
maxRuntimeInSeconds = PropertyType "MaxRuntimeInSeconds" StoppingConditionProperty
Value Integer
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}