module Stratosphere.IoTTwinMaker.Entity.CompositeComponentProperty (
        module Exports, CompositeComponentProperty(..),
        mkCompositeComponentProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.IoTTwinMaker.Entity.PropertyProperty as Exports
import {-# SOURCE #-} Stratosphere.IoTTwinMaker.Entity.PropertyGroupProperty as Exports
import {-# SOURCE #-} Stratosphere.IoTTwinMaker.Entity.StatusProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data CompositeComponentProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iottwinmaker-entity-compositecomponent.html>
    CompositeComponentProperty {CompositeComponentProperty -> ()
haddock_workaround_ :: (),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iottwinmaker-entity-compositecomponent.html#cfn-iottwinmaker-entity-compositecomponent-componentname>
                                CompositeComponentProperty -> Maybe (Value Text)
componentName :: (Prelude.Maybe (Value Prelude.Text)),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iottwinmaker-entity-compositecomponent.html#cfn-iottwinmaker-entity-compositecomponent-componentpath>
                                CompositeComponentProperty -> Maybe (Value Text)
componentPath :: (Prelude.Maybe (Value Prelude.Text)),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iottwinmaker-entity-compositecomponent.html#cfn-iottwinmaker-entity-compositecomponent-componenttypeid>
                                CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: (Prelude.Maybe (Value Prelude.Text)),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iottwinmaker-entity-compositecomponent.html#cfn-iottwinmaker-entity-compositecomponent-description>
                                CompositeComponentProperty -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iottwinmaker-entity-compositecomponent.html#cfn-iottwinmaker-entity-compositecomponent-properties>
                                CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
properties :: (Prelude.Maybe (Prelude.Map Prelude.Text PropertyProperty)),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iottwinmaker-entity-compositecomponent.html#cfn-iottwinmaker-entity-compositecomponent-propertygroups>
                                CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
propertyGroups :: (Prelude.Maybe (Prelude.Map Prelude.Text PropertyGroupProperty)),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iottwinmaker-entity-compositecomponent.html#cfn-iottwinmaker-entity-compositecomponent-status>
                                CompositeComponentProperty -> Maybe StatusProperty
status :: (Prelude.Maybe StatusProperty)}
  deriving stock (CompositeComponentProperty -> CompositeComponentProperty -> Bool
(CompositeComponentProperty -> CompositeComponentProperty -> Bool)
-> (CompositeComponentProperty
    -> CompositeComponentProperty -> Bool)
-> Eq CompositeComponentProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompositeComponentProperty -> CompositeComponentProperty -> Bool
== :: CompositeComponentProperty -> CompositeComponentProperty -> Bool
$c/= :: CompositeComponentProperty -> CompositeComponentProperty -> Bool
/= :: CompositeComponentProperty -> CompositeComponentProperty -> Bool
Prelude.Eq, Int -> CompositeComponentProperty -> ShowS
[CompositeComponentProperty] -> ShowS
CompositeComponentProperty -> String
(Int -> CompositeComponentProperty -> ShowS)
-> (CompositeComponentProperty -> String)
-> ([CompositeComponentProperty] -> ShowS)
-> Show CompositeComponentProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CompositeComponentProperty -> ShowS
showsPrec :: Int -> CompositeComponentProperty -> ShowS
$cshow :: CompositeComponentProperty -> String
show :: CompositeComponentProperty -> String
$cshowList :: [CompositeComponentProperty] -> ShowS
showList :: [CompositeComponentProperty] -> ShowS
Prelude.Show)
mkCompositeComponentProperty :: CompositeComponentProperty
mkCompositeComponentProperty :: CompositeComponentProperty
mkCompositeComponentProperty
  = CompositeComponentProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), componentName :: Maybe (Value Text)
componentName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       componentPath :: Maybe (Value Text)
componentPath = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, componentTypeId :: Maybe (Value Text)
componentTypeId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, properties :: Maybe (Map Text PropertyProperty)
properties = Maybe (Map Text PropertyProperty)
forall a. Maybe a
Prelude.Nothing,
       propertyGroups :: Maybe (Map Text PropertyGroupProperty)
propertyGroups = Maybe (Map Text PropertyGroupProperty)
forall a. Maybe a
Prelude.Nothing, status :: Maybe StatusProperty
status = Maybe StatusProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties CompositeComponentProperty where
  toResourceProperties :: CompositeComponentProperty -> ResourceProperties
toResourceProperties CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::IoTTwinMaker::Entity.CompositeComponent",
         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 -> 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..=) Key
"ComponentName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
componentName,
                            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..=) Key
"ComponentPath" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
componentPath,
                            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..=) Key
"ComponentTypeId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
componentTypeId,
                            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..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
                            Key -> Map Text PropertyProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Properties" (Map Text PropertyProperty -> (Key, Value))
-> Maybe (Map Text PropertyProperty) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text PropertyProperty)
properties,
                            Key -> Map Text PropertyGroupProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PropertyGroups" (Map Text PropertyGroupProperty -> (Key, Value))
-> Maybe (Map Text PropertyGroupProperty) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text PropertyGroupProperty)
propertyGroups,
                            Key -> StatusProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Status" (StatusProperty -> (Key, Value))
-> Maybe StatusProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe StatusProperty
status])}
instance JSON.ToJSON CompositeComponentProperty where
  toJSON :: CompositeComponentProperty -> Value
toJSON CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = [(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 -> 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..=) Key
"ComponentName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
componentName,
               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..=) Key
"ComponentPath" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
componentPath,
               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..=) Key
"ComponentTypeId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
componentTypeId,
               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..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
               Key -> Map Text PropertyProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Properties" (Map Text PropertyProperty -> (Key, Value))
-> Maybe (Map Text PropertyProperty) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text PropertyProperty)
properties,
               Key -> Map Text PropertyGroupProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PropertyGroups" (Map Text PropertyGroupProperty -> (Key, Value))
-> Maybe (Map Text PropertyGroupProperty) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text PropertyGroupProperty)
propertyGroups,
               Key -> StatusProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Status" (StatusProperty -> (Key, Value))
-> Maybe StatusProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe StatusProperty
status]))
instance Property "ComponentName" CompositeComponentProperty where
  type PropertyType "ComponentName" CompositeComponentProperty = Value Prelude.Text
  set :: PropertyType "ComponentName" CompositeComponentProperty
-> CompositeComponentProperty -> CompositeComponentProperty
set PropertyType "ComponentName" CompositeComponentProperty
newValue CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = CompositeComponentProperty
        {componentName :: Maybe (Value Text)
componentName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ComponentName" CompositeComponentProperty
Value Text
newValue, Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: ()
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
haddock_workaround_ :: ()
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
instance Property "ComponentPath" CompositeComponentProperty where
  type PropertyType "ComponentPath" CompositeComponentProperty = Value Prelude.Text
  set :: PropertyType "ComponentPath" CompositeComponentProperty
-> CompositeComponentProperty -> CompositeComponentProperty
set PropertyType "ComponentPath" CompositeComponentProperty
newValue CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = CompositeComponentProperty
        {componentPath :: Maybe (Value Text)
componentPath = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ComponentPath" CompositeComponentProperty
Value Text
newValue, Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
instance Property "ComponentTypeId" CompositeComponentProperty where
  type PropertyType "ComponentTypeId" CompositeComponentProperty = Value Prelude.Text
  set :: PropertyType "ComponentTypeId" CompositeComponentProperty
-> CompositeComponentProperty -> CompositeComponentProperty
set PropertyType "ComponentTypeId" CompositeComponentProperty
newValue CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = CompositeComponentProperty
        {componentTypeId :: Maybe (Value Text)
componentTypeId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ComponentTypeId" CompositeComponentProperty
Value Text
newValue, Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
instance Property "Description" CompositeComponentProperty where
  type PropertyType "Description" CompositeComponentProperty = Value Prelude.Text
  set :: PropertyType "Description" CompositeComponentProperty
-> CompositeComponentProperty -> CompositeComponentProperty
set PropertyType "Description" CompositeComponentProperty
newValue CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = CompositeComponentProperty
        {description :: Maybe (Value Text)
description = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Description" CompositeComponentProperty
Value Text
newValue, Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
instance Property "Properties" CompositeComponentProperty where
  type PropertyType "Properties" CompositeComponentProperty = Prelude.Map Prelude.Text PropertyProperty
  set :: PropertyType "Properties" CompositeComponentProperty
-> CompositeComponentProperty -> CompositeComponentProperty
set PropertyType "Properties" CompositeComponentProperty
newValue CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = CompositeComponentProperty
        {properties :: Maybe (Map Text PropertyProperty)
properties = Map Text PropertyProperty -> Maybe (Map Text PropertyProperty)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Map Text PropertyProperty
PropertyType "Properties" CompositeComponentProperty
newValue, Maybe (Map Text PropertyGroupProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
instance Property "PropertyGroups" CompositeComponentProperty where
  type PropertyType "PropertyGroups" CompositeComponentProperty = Prelude.Map Prelude.Text PropertyGroupProperty
  set :: PropertyType "PropertyGroups" CompositeComponentProperty
-> CompositeComponentProperty -> CompositeComponentProperty
set PropertyType "PropertyGroups" CompositeComponentProperty
newValue CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = CompositeComponentProperty
        {propertyGroups :: Maybe (Map Text PropertyGroupProperty)
propertyGroups = Map Text PropertyGroupProperty
-> Maybe (Map Text PropertyGroupProperty)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Map Text PropertyGroupProperty
PropertyType "PropertyGroups" CompositeComponentProperty
newValue, Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
status :: Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
status :: Maybe StatusProperty
..}
instance Property "Status" CompositeComponentProperty where
  type PropertyType "Status" CompositeComponentProperty = StatusProperty
  set :: PropertyType "Status" CompositeComponentProperty
-> CompositeComponentProperty -> CompositeComponentProperty
set PropertyType "Status" CompositeComponentProperty
newValue CompositeComponentProperty {Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
Maybe StatusProperty
()
haddock_workaround_ :: CompositeComponentProperty -> ()
componentName :: CompositeComponentProperty -> Maybe (Value Text)
componentPath :: CompositeComponentProperty -> Maybe (Value Text)
componentTypeId :: CompositeComponentProperty -> Maybe (Value Text)
description :: CompositeComponentProperty -> Maybe (Value Text)
properties :: CompositeComponentProperty -> Maybe (Map Text PropertyProperty)
propertyGroups :: CompositeComponentProperty
-> Maybe (Map Text PropertyGroupProperty)
status :: CompositeComponentProperty -> Maybe StatusProperty
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
status :: Maybe StatusProperty
..}
    = CompositeComponentProperty {status :: Maybe StatusProperty
status = StatusProperty -> Maybe StatusProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Status" CompositeComponentProperty
StatusProperty
newValue, Maybe (Map Text PropertyGroupProperty)
Maybe (Map Text PropertyProperty)
Maybe (Value Text)
()
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
haddock_workaround_ :: ()
componentName :: Maybe (Value Text)
componentPath :: Maybe (Value Text)
componentTypeId :: Maybe (Value Text)
description :: Maybe (Value Text)
properties :: Maybe (Map Text PropertyProperty)
propertyGroups :: Maybe (Map Text PropertyGroupProperty)
..}