module Stratosphere.IoTSiteWise.AssetModel.PropertyPathDefinitionProperty (
PropertyPathDefinitionProperty(..),
mkPropertyPathDefinitionProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data PropertyPathDefinitionProperty
=
PropertyPathDefinitionProperty {PropertyPathDefinitionProperty -> ()
haddock_workaround_ :: (),
PropertyPathDefinitionProperty -> Value Text
name :: (Value Prelude.Text)}
deriving stock (PropertyPathDefinitionProperty
-> PropertyPathDefinitionProperty -> Bool
(PropertyPathDefinitionProperty
-> PropertyPathDefinitionProperty -> Bool)
-> (PropertyPathDefinitionProperty
-> PropertyPathDefinitionProperty -> Bool)
-> Eq PropertyPathDefinitionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PropertyPathDefinitionProperty
-> PropertyPathDefinitionProperty -> Bool
== :: PropertyPathDefinitionProperty
-> PropertyPathDefinitionProperty -> Bool
$c/= :: PropertyPathDefinitionProperty
-> PropertyPathDefinitionProperty -> Bool
/= :: PropertyPathDefinitionProperty
-> PropertyPathDefinitionProperty -> Bool
Prelude.Eq, Int -> PropertyPathDefinitionProperty -> ShowS
[PropertyPathDefinitionProperty] -> ShowS
PropertyPathDefinitionProperty -> String
(Int -> PropertyPathDefinitionProperty -> ShowS)
-> (PropertyPathDefinitionProperty -> String)
-> ([PropertyPathDefinitionProperty] -> ShowS)
-> Show PropertyPathDefinitionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PropertyPathDefinitionProperty -> ShowS
showsPrec :: Int -> PropertyPathDefinitionProperty -> ShowS
$cshow :: PropertyPathDefinitionProperty -> String
show :: PropertyPathDefinitionProperty -> String
$cshowList :: [PropertyPathDefinitionProperty] -> ShowS
showList :: [PropertyPathDefinitionProperty] -> ShowS
Prelude.Show)
mkPropertyPathDefinitionProperty ::
Value Prelude.Text -> PropertyPathDefinitionProperty
mkPropertyPathDefinitionProperty :: Value Text -> PropertyPathDefinitionProperty
mkPropertyPathDefinitionProperty Value Text
name
= PropertyPathDefinitionProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), name :: Value Text
name = Value Text
name}
instance ToResourceProperties PropertyPathDefinitionProperty where
toResourceProperties :: PropertyPathDefinitionProperty -> ResourceProperties
toResourceProperties PropertyPathDefinitionProperty {()
Value Text
haddock_workaround_ :: PropertyPathDefinitionProperty -> ()
name :: PropertyPathDefinitionProperty -> Value Text
haddock_workaround_ :: ()
name :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::IoTSiteWise::AssetModel.PropertyPathDefinition",
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]}
instance JSON.ToJSON PropertyPathDefinitionProperty where
toJSON :: PropertyPathDefinitionProperty -> Value
toJSON PropertyPathDefinitionProperty {()
Value Text
haddock_workaround_ :: PropertyPathDefinitionProperty -> ()
name :: PropertyPathDefinitionProperty -> Value Text
haddock_workaround_ :: ()
name :: 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]
instance Property "Name" PropertyPathDefinitionProperty where
type PropertyType "Name" PropertyPathDefinitionProperty = Value Prelude.Text
set :: PropertyType "Name" PropertyPathDefinitionProperty
-> PropertyPathDefinitionProperty -> PropertyPathDefinitionProperty
set PropertyType "Name" PropertyPathDefinitionProperty
newValue PropertyPathDefinitionProperty {()
Value Text
haddock_workaround_ :: PropertyPathDefinitionProperty -> ()
name :: PropertyPathDefinitionProperty -> Value Text
haddock_workaround_ :: ()
name :: Value Text
..}
= PropertyPathDefinitionProperty {name :: Value Text
name = PropertyType "Name" PropertyPathDefinitionProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}