module Stratosphere.IoT.Command.CommandParameterValueProperty (
        CommandParameterValueProperty(..), mkCommandParameterValueProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data CommandParameterValueProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-command-commandparametervalue.html>
    CommandParameterValueProperty {CommandParameterValueProperty -> ()
haddock_workaround_ :: (),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-command-commandparametervalue.html#cfn-iot-command-commandparametervalue-b>
                                   CommandParameterValueProperty -> Maybe (Value Bool)
b :: (Prelude.Maybe (Value Prelude.Bool)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-command-commandparametervalue.html#cfn-iot-command-commandparametervalue-bin>
                                   CommandParameterValueProperty -> Maybe (Value Text)
bIN :: (Prelude.Maybe (Value Prelude.Text)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-command-commandparametervalue.html#cfn-iot-command-commandparametervalue-d>
                                   CommandParameterValueProperty -> Maybe (Value Double)
d :: (Prelude.Maybe (Value Prelude.Double)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-command-commandparametervalue.html#cfn-iot-command-commandparametervalue-i>
                                   CommandParameterValueProperty -> Maybe (Value Integer)
i :: (Prelude.Maybe (Value Prelude.Integer)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-command-commandparametervalue.html#cfn-iot-command-commandparametervalue-l>
                                   CommandParameterValueProperty -> Maybe (Value Text)
l :: (Prelude.Maybe (Value Prelude.Text)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-command-commandparametervalue.html#cfn-iot-command-commandparametervalue-s>
                                   CommandParameterValueProperty -> Maybe (Value Text)
s :: (Prelude.Maybe (Value Prelude.Text)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-command-commandparametervalue.html#cfn-iot-command-commandparametervalue-ul>
                                   CommandParameterValueProperty -> Maybe (Value Text)
uL :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (CommandParameterValueProperty
-> CommandParameterValueProperty -> Bool
(CommandParameterValueProperty
 -> CommandParameterValueProperty -> Bool)
-> (CommandParameterValueProperty
    -> CommandParameterValueProperty -> Bool)
-> Eq CommandParameterValueProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CommandParameterValueProperty
-> CommandParameterValueProperty -> Bool
== :: CommandParameterValueProperty
-> CommandParameterValueProperty -> Bool
$c/= :: CommandParameterValueProperty
-> CommandParameterValueProperty -> Bool
/= :: CommandParameterValueProperty
-> CommandParameterValueProperty -> Bool
Prelude.Eq, Int -> CommandParameterValueProperty -> ShowS
[CommandParameterValueProperty] -> ShowS
CommandParameterValueProperty -> String
(Int -> CommandParameterValueProperty -> ShowS)
-> (CommandParameterValueProperty -> String)
-> ([CommandParameterValueProperty] -> ShowS)
-> Show CommandParameterValueProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CommandParameterValueProperty -> ShowS
showsPrec :: Int -> CommandParameterValueProperty -> ShowS
$cshow :: CommandParameterValueProperty -> String
show :: CommandParameterValueProperty -> String
$cshowList :: [CommandParameterValueProperty] -> ShowS
showList :: [CommandParameterValueProperty] -> ShowS
Prelude.Show)
mkCommandParameterValueProperty :: CommandParameterValueProperty
mkCommandParameterValueProperty :: CommandParameterValueProperty
mkCommandParameterValueProperty
  = CommandParameterValueProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), b :: Maybe (Value Bool)
b = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
       bIN :: Maybe (Value Text)
bIN = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, d :: Maybe (Value Double)
d = Maybe (Value Double)
forall a. Maybe a
Prelude.Nothing, i :: Maybe (Value Integer)
i = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       l :: Maybe (Value Text)
l = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, s :: Maybe (Value Text)
s = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, uL :: Maybe (Value Text)
uL = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties CommandParameterValueProperty where
  toResourceProperties :: CommandParameterValueProperty -> ResourceProperties
toResourceProperties CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::IoT::Command.CommandParameterValue",
         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 Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"B" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
b, 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
"BIN" (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)
bIN,
                            Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"D" (Value Double -> (Key, Value))
-> Maybe (Value Double) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Double)
d, Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"I" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
i,
                            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
"L" (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)
l, 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
"S" (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)
s,
                            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
"UL" (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)
uL])}
instance JSON.ToJSON CommandParameterValueProperty where
  toJSON :: CommandParameterValueProperty -> Value
toJSON CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = [(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 Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"B" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
b, 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
"BIN" (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)
bIN,
               Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"D" (Value Double -> (Key, Value))
-> Maybe (Value Double) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Double)
d, Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"I" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
i,
               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
"L" (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)
l, 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
"S" (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)
s,
               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
"UL" (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)
uL]))
instance Property "B" CommandParameterValueProperty where
  type PropertyType "B" CommandParameterValueProperty = Value Prelude.Bool
  set :: PropertyType "B" CommandParameterValueProperty
-> CommandParameterValueProperty -> CommandParameterValueProperty
set PropertyType "B" CommandParameterValueProperty
newValue CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = CommandParameterValueProperty {b :: Maybe (Value Bool)
b = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "B" CommandParameterValueProperty
Value Bool
newValue, Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
haddock_workaround_ :: ()
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
instance Property "BIN" CommandParameterValueProperty where
  type PropertyType "BIN" CommandParameterValueProperty = Value Prelude.Text
  set :: PropertyType "BIN" CommandParameterValueProperty
-> CommandParameterValueProperty -> CommandParameterValueProperty
set PropertyType "BIN" CommandParameterValueProperty
newValue CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = CommandParameterValueProperty {bIN :: Maybe (Value Text)
bIN = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BIN" CommandParameterValueProperty
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
instance Property "D" CommandParameterValueProperty where
  type PropertyType "D" CommandParameterValueProperty = Value Prelude.Double
  set :: PropertyType "D" CommandParameterValueProperty
-> CommandParameterValueProperty -> CommandParameterValueProperty
set PropertyType "D" CommandParameterValueProperty
newValue CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = CommandParameterValueProperty {d :: Maybe (Value Double)
d = Value Double -> Maybe (Value Double)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "D" CommandParameterValueProperty
Value Double
newValue, Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
instance Property "I" CommandParameterValueProperty where
  type PropertyType "I" CommandParameterValueProperty = Value Prelude.Integer
  set :: PropertyType "I" CommandParameterValueProperty
-> CommandParameterValueProperty -> CommandParameterValueProperty
set PropertyType "I" CommandParameterValueProperty
newValue CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = CommandParameterValueProperty {i :: Maybe (Value Integer)
i = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "I" CommandParameterValueProperty
Value Integer
newValue, Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Text)
()
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
instance Property "L" CommandParameterValueProperty where
  type PropertyType "L" CommandParameterValueProperty = Value Prelude.Text
  set :: PropertyType "L" CommandParameterValueProperty
-> CommandParameterValueProperty -> CommandParameterValueProperty
set PropertyType "L" CommandParameterValueProperty
newValue CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = CommandParameterValueProperty {l :: Maybe (Value Text)
l = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "L" CommandParameterValueProperty
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
instance Property "S" CommandParameterValueProperty where
  type PropertyType "S" CommandParameterValueProperty = Value Prelude.Text
  set :: PropertyType "S" CommandParameterValueProperty
-> CommandParameterValueProperty -> CommandParameterValueProperty
set PropertyType "S" CommandParameterValueProperty
newValue CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = CommandParameterValueProperty {s :: Maybe (Value Text)
s = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "S" CommandParameterValueProperty
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
uL :: Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
instance Property "UL" CommandParameterValueProperty where
  type PropertyType "UL" CommandParameterValueProperty = Value Prelude.Text
  set :: PropertyType "UL" CommandParameterValueProperty
-> CommandParameterValueProperty -> CommandParameterValueProperty
set PropertyType "UL" CommandParameterValueProperty
newValue CommandParameterValueProperty {Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: CommandParameterValueProperty -> ()
b :: CommandParameterValueProperty -> Maybe (Value Bool)
bIN :: CommandParameterValueProperty -> Maybe (Value Text)
d :: CommandParameterValueProperty -> Maybe (Value Double)
i :: CommandParameterValueProperty -> Maybe (Value Integer)
l :: CommandParameterValueProperty -> Maybe (Value Text)
s :: CommandParameterValueProperty -> Maybe (Value Text)
uL :: CommandParameterValueProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
uL :: Maybe (Value Text)
..}
    = CommandParameterValueProperty {uL :: Maybe (Value Text)
uL = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "UL" CommandParameterValueProperty
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Double)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
haddock_workaround_ :: ()
b :: Maybe (Value Bool)
bIN :: Maybe (Value Text)
d :: Maybe (Value Double)
i :: Maybe (Value Integer)
l :: Maybe (Value Text)
s :: Maybe (Value Text)
..}