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