module Stratosphere.SageMaker.Model.ModelDataSourceProperty (
module Exports, ModelDataSourceProperty(..),
mkModelDataSourceProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SageMaker.Model.S3DataSourceProperty as Exports
import Stratosphere.ResourceProperties
data ModelDataSourceProperty
=
ModelDataSourceProperty {ModelDataSourceProperty -> ()
haddock_workaround_ :: (),
ModelDataSourceProperty -> S3DataSourceProperty
s3DataSource :: S3DataSourceProperty}
deriving stock (ModelDataSourceProperty -> ModelDataSourceProperty -> Bool
(ModelDataSourceProperty -> ModelDataSourceProperty -> Bool)
-> (ModelDataSourceProperty -> ModelDataSourceProperty -> Bool)
-> Eq ModelDataSourceProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ModelDataSourceProperty -> ModelDataSourceProperty -> Bool
== :: ModelDataSourceProperty -> ModelDataSourceProperty -> Bool
$c/= :: ModelDataSourceProperty -> ModelDataSourceProperty -> Bool
/= :: ModelDataSourceProperty -> ModelDataSourceProperty -> Bool
Prelude.Eq, Int -> ModelDataSourceProperty -> ShowS
[ModelDataSourceProperty] -> ShowS
ModelDataSourceProperty -> String
(Int -> ModelDataSourceProperty -> ShowS)
-> (ModelDataSourceProperty -> String)
-> ([ModelDataSourceProperty] -> ShowS)
-> Show ModelDataSourceProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ModelDataSourceProperty -> ShowS
showsPrec :: Int -> ModelDataSourceProperty -> ShowS
$cshow :: ModelDataSourceProperty -> String
show :: ModelDataSourceProperty -> String
$cshowList :: [ModelDataSourceProperty] -> ShowS
showList :: [ModelDataSourceProperty] -> ShowS
Prelude.Show)
mkModelDataSourceProperty ::
S3DataSourceProperty -> ModelDataSourceProperty
mkModelDataSourceProperty :: S3DataSourceProperty -> ModelDataSourceProperty
mkModelDataSourceProperty S3DataSourceProperty
s3DataSource
= ModelDataSourceProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), s3DataSource :: S3DataSourceProperty
s3DataSource = S3DataSourceProperty
s3DataSource}
instance ToResourceProperties ModelDataSourceProperty where
toResourceProperties :: ModelDataSourceProperty -> ResourceProperties
toResourceProperties ModelDataSourceProperty {()
S3DataSourceProperty
haddock_workaround_ :: ModelDataSourceProperty -> ()
s3DataSource :: ModelDataSourceProperty -> S3DataSourceProperty
haddock_workaround_ :: ()
s3DataSource :: S3DataSourceProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::SageMaker::Model.ModelDataSource",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"S3DataSource" Key -> S3DataSourceProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= S3DataSourceProperty
s3DataSource]}
instance JSON.ToJSON ModelDataSourceProperty where
toJSON :: ModelDataSourceProperty -> Value
toJSON ModelDataSourceProperty {()
S3DataSourceProperty
haddock_workaround_ :: ModelDataSourceProperty -> ()
s3DataSource :: ModelDataSourceProperty -> S3DataSourceProperty
haddock_workaround_ :: ()
s3DataSource :: S3DataSourceProperty
..}
= [(Key, Value)] -> Value
JSON.object [Key
"S3DataSource" Key -> S3DataSourceProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= S3DataSourceProperty
s3DataSource]
instance Property "S3DataSource" ModelDataSourceProperty where
type PropertyType "S3DataSource" ModelDataSourceProperty = S3DataSourceProperty
set :: PropertyType "S3DataSource" ModelDataSourceProperty
-> ModelDataSourceProperty -> ModelDataSourceProperty
set PropertyType "S3DataSource" ModelDataSourceProperty
newValue ModelDataSourceProperty {()
S3DataSourceProperty
haddock_workaround_ :: ModelDataSourceProperty -> ()
s3DataSource :: ModelDataSourceProperty -> S3DataSourceProperty
haddock_workaround_ :: ()
s3DataSource :: S3DataSourceProperty
..}
= ModelDataSourceProperty {s3DataSource :: S3DataSourceProperty
s3DataSource = PropertyType "S3DataSource" ModelDataSourceProperty
S3DataSourceProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}