module Stratosphere.IoTSiteWise.ComputationModel.ComputationModelDataBindingValueProperty (
module Exports, ComputationModelDataBindingValueProperty(..),
mkComputationModelDataBindingValueProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.IoTSiteWise.ComputationModel.AssetModelPropertyBindingValueProperty as Exports
import {-# SOURCE #-} Stratosphere.IoTSiteWise.ComputationModel.AssetPropertyBindingValueProperty as Exports
import Stratosphere.ResourceProperties
data ComputationModelDataBindingValueProperty
=
ComputationModelDataBindingValueProperty {ComputationModelDataBindingValueProperty -> ()
haddock_workaround_ :: (),
ComputationModelDataBindingValueProperty
-> Maybe AssetModelPropertyBindingValueProperty
assetModelProperty :: (Prelude.Maybe AssetModelPropertyBindingValueProperty),
ComputationModelDataBindingValueProperty
-> Maybe AssetPropertyBindingValueProperty
assetProperty :: (Prelude.Maybe AssetPropertyBindingValueProperty),
ComputationModelDataBindingValueProperty
-> Maybe [ComputationModelDataBindingValueProperty]
list :: (Prelude.Maybe [ComputationModelDataBindingValueProperty])}
deriving stock (ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty -> Bool
(ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty -> Bool)
-> (ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty -> Bool)
-> Eq ComputationModelDataBindingValueProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty -> Bool
== :: ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty -> Bool
$c/= :: ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty -> Bool
/= :: ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty -> Bool
Prelude.Eq, Int -> ComputationModelDataBindingValueProperty -> ShowS
[ComputationModelDataBindingValueProperty] -> ShowS
ComputationModelDataBindingValueProperty -> String
(Int -> ComputationModelDataBindingValueProperty -> ShowS)
-> (ComputationModelDataBindingValueProperty -> String)
-> ([ComputationModelDataBindingValueProperty] -> ShowS)
-> Show ComputationModelDataBindingValueProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ComputationModelDataBindingValueProperty -> ShowS
showsPrec :: Int -> ComputationModelDataBindingValueProperty -> ShowS
$cshow :: ComputationModelDataBindingValueProperty -> String
show :: ComputationModelDataBindingValueProperty -> String
$cshowList :: [ComputationModelDataBindingValueProperty] -> ShowS
showList :: [ComputationModelDataBindingValueProperty] -> ShowS
Prelude.Show)
mkComputationModelDataBindingValueProperty ::
ComputationModelDataBindingValueProperty
mkComputationModelDataBindingValueProperty :: ComputationModelDataBindingValueProperty
mkComputationModelDataBindingValueProperty
= ComputationModelDataBindingValueProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetModelProperty = Maybe AssetModelPropertyBindingValueProperty
forall a. Maybe a
Prelude.Nothing,
assetProperty :: Maybe AssetPropertyBindingValueProperty
assetProperty = Maybe AssetPropertyBindingValueProperty
forall a. Maybe a
Prelude.Nothing, list :: Maybe [ComputationModelDataBindingValueProperty]
list = Maybe [ComputationModelDataBindingValueProperty]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ComputationModelDataBindingValueProperty where
toResourceProperties :: ComputationModelDataBindingValueProperty -> ResourceProperties
toResourceProperties ComputationModelDataBindingValueProperty {Maybe [ComputationModelDataBindingValueProperty]
Maybe AssetModelPropertyBindingValueProperty
Maybe AssetPropertyBindingValueProperty
()
haddock_workaround_ :: ComputationModelDataBindingValueProperty -> ()
assetModelProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetModelPropertyBindingValueProperty
assetProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetPropertyBindingValueProperty
list :: ComputationModelDataBindingValueProperty
-> Maybe [ComputationModelDataBindingValueProperty]
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetProperty :: Maybe AssetPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::IoTSiteWise::ComputationModel.ComputationModelDataBindingValue",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> AssetModelPropertyBindingValueProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AssetModelProperty" (AssetModelPropertyBindingValueProperty -> (Key, Value))
-> Maybe AssetModelPropertyBindingValueProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AssetModelPropertyBindingValueProperty
assetModelProperty,
Key -> AssetPropertyBindingValueProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AssetProperty" (AssetPropertyBindingValueProperty -> (Key, Value))
-> Maybe AssetPropertyBindingValueProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AssetPropertyBindingValueProperty
assetProperty,
Key -> [ComputationModelDataBindingValueProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"List" ([ComputationModelDataBindingValueProperty] -> (Key, Value))
-> Maybe [ComputationModelDataBindingValueProperty]
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ComputationModelDataBindingValueProperty]
list])}
instance JSON.ToJSON ComputationModelDataBindingValueProperty where
toJSON :: ComputationModelDataBindingValueProperty -> Value
toJSON ComputationModelDataBindingValueProperty {Maybe [ComputationModelDataBindingValueProperty]
Maybe AssetModelPropertyBindingValueProperty
Maybe AssetPropertyBindingValueProperty
()
haddock_workaround_ :: ComputationModelDataBindingValueProperty -> ()
assetModelProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetModelPropertyBindingValueProperty
assetProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetPropertyBindingValueProperty
list :: ComputationModelDataBindingValueProperty
-> Maybe [ComputationModelDataBindingValueProperty]
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetProperty :: Maybe AssetPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> AssetModelPropertyBindingValueProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AssetModelProperty" (AssetModelPropertyBindingValueProperty -> (Key, Value))
-> Maybe AssetModelPropertyBindingValueProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AssetModelPropertyBindingValueProperty
assetModelProperty,
Key -> AssetPropertyBindingValueProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AssetProperty" (AssetPropertyBindingValueProperty -> (Key, Value))
-> Maybe AssetPropertyBindingValueProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AssetPropertyBindingValueProperty
assetProperty,
Key -> [ComputationModelDataBindingValueProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"List" ([ComputationModelDataBindingValueProperty] -> (Key, Value))
-> Maybe [ComputationModelDataBindingValueProperty]
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ComputationModelDataBindingValueProperty]
list]))
instance Property "AssetModelProperty" ComputationModelDataBindingValueProperty where
type PropertyType "AssetModelProperty" ComputationModelDataBindingValueProperty = AssetModelPropertyBindingValueProperty
set :: PropertyType
"AssetModelProperty" ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty
set PropertyType
"AssetModelProperty" ComputationModelDataBindingValueProperty
newValue ComputationModelDataBindingValueProperty {Maybe [ComputationModelDataBindingValueProperty]
Maybe AssetModelPropertyBindingValueProperty
Maybe AssetPropertyBindingValueProperty
()
haddock_workaround_ :: ComputationModelDataBindingValueProperty -> ()
assetModelProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetModelPropertyBindingValueProperty
assetProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetPropertyBindingValueProperty
list :: ComputationModelDataBindingValueProperty
-> Maybe [ComputationModelDataBindingValueProperty]
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetProperty :: Maybe AssetPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
..}
= ComputationModelDataBindingValueProperty
{assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetModelProperty = AssetModelPropertyBindingValueProperty
-> Maybe AssetModelPropertyBindingValueProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"AssetModelProperty" ComputationModelDataBindingValueProperty
AssetModelPropertyBindingValueProperty
newValue, Maybe [ComputationModelDataBindingValueProperty]
Maybe AssetPropertyBindingValueProperty
()
haddock_workaround_ :: ()
assetProperty :: Maybe AssetPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
haddock_workaround_ :: ()
assetProperty :: Maybe AssetPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
..}
instance Property "AssetProperty" ComputationModelDataBindingValueProperty where
type PropertyType "AssetProperty" ComputationModelDataBindingValueProperty = AssetPropertyBindingValueProperty
set :: PropertyType
"AssetProperty" ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty
set PropertyType
"AssetProperty" ComputationModelDataBindingValueProperty
newValue ComputationModelDataBindingValueProperty {Maybe [ComputationModelDataBindingValueProperty]
Maybe AssetModelPropertyBindingValueProperty
Maybe AssetPropertyBindingValueProperty
()
haddock_workaround_ :: ComputationModelDataBindingValueProperty -> ()
assetModelProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetModelPropertyBindingValueProperty
assetProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetPropertyBindingValueProperty
list :: ComputationModelDataBindingValueProperty
-> Maybe [ComputationModelDataBindingValueProperty]
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetProperty :: Maybe AssetPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
..}
= ComputationModelDataBindingValueProperty
{assetProperty :: Maybe AssetPropertyBindingValueProperty
assetProperty = AssetPropertyBindingValueProperty
-> Maybe AssetPropertyBindingValueProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"AssetProperty" ComputationModelDataBindingValueProperty
AssetPropertyBindingValueProperty
newValue, Maybe [ComputationModelDataBindingValueProperty]
Maybe AssetModelPropertyBindingValueProperty
()
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
..}
instance Property "List" ComputationModelDataBindingValueProperty where
type PropertyType "List" ComputationModelDataBindingValueProperty = [ComputationModelDataBindingValueProperty]
set :: PropertyType "List" ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty
-> ComputationModelDataBindingValueProperty
set PropertyType "List" ComputationModelDataBindingValueProperty
newValue ComputationModelDataBindingValueProperty {Maybe [ComputationModelDataBindingValueProperty]
Maybe AssetModelPropertyBindingValueProperty
Maybe AssetPropertyBindingValueProperty
()
haddock_workaround_ :: ComputationModelDataBindingValueProperty -> ()
assetModelProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetModelPropertyBindingValueProperty
assetProperty :: ComputationModelDataBindingValueProperty
-> Maybe AssetPropertyBindingValueProperty
list :: ComputationModelDataBindingValueProperty
-> Maybe [ComputationModelDataBindingValueProperty]
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetProperty :: Maybe AssetPropertyBindingValueProperty
list :: Maybe [ComputationModelDataBindingValueProperty]
..}
= ComputationModelDataBindingValueProperty
{list :: Maybe [ComputationModelDataBindingValueProperty]
list = [ComputationModelDataBindingValueProperty]
-> Maybe [ComputationModelDataBindingValueProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [ComputationModelDataBindingValueProperty]
PropertyType "List" ComputationModelDataBindingValueProperty
newValue, Maybe AssetModelPropertyBindingValueProperty
Maybe AssetPropertyBindingValueProperty
()
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetProperty :: Maybe AssetPropertyBindingValueProperty
haddock_workaround_ :: ()
assetModelProperty :: Maybe AssetModelPropertyBindingValueProperty
assetProperty :: Maybe AssetPropertyBindingValueProperty
..}