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