module Stratosphere.QuickSight.Template.ParameterControlProperty (
        module Exports, ParameterControlProperty(..),
        mkParameterControlProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Template.ParameterDateTimePickerControlProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Template.ParameterDropDownControlProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Template.ParameterListControlProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Template.ParameterSliderControlProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Template.ParameterTextAreaControlProperty as Exports
import {-# SOURCE #-} Stratosphere.QuickSight.Template.ParameterTextFieldControlProperty as Exports
import Stratosphere.ResourceProperties
data ParameterControlProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-template-parametercontrol.html>
    ParameterControlProperty {ParameterControlProperty -> ()
haddock_workaround_ :: (),
                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-template-parametercontrol.html#cfn-quicksight-template-parametercontrol-datetimepicker>
                              ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dateTimePicker :: (Prelude.Maybe ParameterDateTimePickerControlProperty),
                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-template-parametercontrol.html#cfn-quicksight-template-parametercontrol-dropdown>
                              ParameterControlProperty -> Maybe ParameterDropDownControlProperty
dropdown :: (Prelude.Maybe ParameterDropDownControlProperty),
                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-template-parametercontrol.html#cfn-quicksight-template-parametercontrol-list>
                              ParameterControlProperty -> Maybe ParameterListControlProperty
list :: (Prelude.Maybe ParameterListControlProperty),
                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-template-parametercontrol.html#cfn-quicksight-template-parametercontrol-slider>
                              ParameterControlProperty -> Maybe ParameterSliderControlProperty
slider :: (Prelude.Maybe ParameterSliderControlProperty),
                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-template-parametercontrol.html#cfn-quicksight-template-parametercontrol-textarea>
                              ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textArea :: (Prelude.Maybe ParameterTextAreaControlProperty),
                              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-template-parametercontrol.html#cfn-quicksight-template-parametercontrol-textfield>
                              ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
textField :: (Prelude.Maybe ParameterTextFieldControlProperty)}
  deriving stock (ParameterControlProperty -> ParameterControlProperty -> Bool
(ParameterControlProperty -> ParameterControlProperty -> Bool)
-> (ParameterControlProperty -> ParameterControlProperty -> Bool)
-> Eq ParameterControlProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ParameterControlProperty -> ParameterControlProperty -> Bool
== :: ParameterControlProperty -> ParameterControlProperty -> Bool
$c/= :: ParameterControlProperty -> ParameterControlProperty -> Bool
/= :: ParameterControlProperty -> ParameterControlProperty -> Bool
Prelude.Eq, Int -> ParameterControlProperty -> ShowS
[ParameterControlProperty] -> ShowS
ParameterControlProperty -> String
(Int -> ParameterControlProperty -> ShowS)
-> (ParameterControlProperty -> String)
-> ([ParameterControlProperty] -> ShowS)
-> Show ParameterControlProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ParameterControlProperty -> ShowS
showsPrec :: Int -> ParameterControlProperty -> ShowS
$cshow :: ParameterControlProperty -> String
show :: ParameterControlProperty -> String
$cshowList :: [ParameterControlProperty] -> ShowS
showList :: [ParameterControlProperty] -> ShowS
Prelude.Show)
mkParameterControlProperty :: ParameterControlProperty
mkParameterControlProperty :: ParameterControlProperty
mkParameterControlProperty
  = ParameterControlProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dateTimePicker = Maybe ParameterDateTimePickerControlProperty
forall a. Maybe a
Prelude.Nothing,
       dropdown :: Maybe ParameterDropDownControlProperty
dropdown = Maybe ParameterDropDownControlProperty
forall a. Maybe a
Prelude.Nothing, list :: Maybe ParameterListControlProperty
list = Maybe ParameterListControlProperty
forall a. Maybe a
Prelude.Nothing,
       slider :: Maybe ParameterSliderControlProperty
slider = Maybe ParameterSliderControlProperty
forall a. Maybe a
Prelude.Nothing, textArea :: Maybe ParameterTextAreaControlProperty
textArea = Maybe ParameterTextAreaControlProperty
forall a. Maybe a
Prelude.Nothing,
       textField :: Maybe ParameterTextFieldControlProperty
textField = Maybe ParameterTextFieldControlProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ParameterControlProperty where
  toResourceProperties :: ParameterControlProperty -> ResourceProperties
toResourceProperties ParameterControlProperty {Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ParameterControlProperty -> ()
dateTimePicker :: ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dropdown :: ParameterControlProperty -> Maybe ParameterDropDownControlProperty
list :: ParameterControlProperty -> Maybe ParameterListControlProperty
slider :: ParameterControlProperty -> Maybe ParameterSliderControlProperty
textArea :: ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textField :: ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::QuickSight::Template.ParameterControl",
         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 -> ParameterDateTimePickerControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DateTimePicker" (ParameterDateTimePickerControlProperty -> (Key, Value))
-> Maybe ParameterDateTimePickerControlProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterDateTimePickerControlProperty
dateTimePicker,
                            Key -> ParameterDropDownControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Dropdown" (ParameterDropDownControlProperty -> (Key, Value))
-> Maybe ParameterDropDownControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterDropDownControlProperty
dropdown,
                            Key -> ParameterListControlProperty -> (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" (ParameterListControlProperty -> (Key, Value))
-> Maybe ParameterListControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterListControlProperty
list,
                            Key -> ParameterSliderControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Slider" (ParameterSliderControlProperty -> (Key, Value))
-> Maybe ParameterSliderControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterSliderControlProperty
slider,
                            Key -> ParameterTextAreaControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TextArea" (ParameterTextAreaControlProperty -> (Key, Value))
-> Maybe ParameterTextAreaControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterTextAreaControlProperty
textArea,
                            Key -> ParameterTextFieldControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TextField" (ParameterTextFieldControlProperty -> (Key, Value))
-> Maybe ParameterTextFieldControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterTextFieldControlProperty
textField])}
instance JSON.ToJSON ParameterControlProperty where
  toJSON :: ParameterControlProperty -> Value
toJSON ParameterControlProperty {Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ParameterControlProperty -> ()
dateTimePicker :: ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dropdown :: ParameterControlProperty -> Maybe ParameterDropDownControlProperty
list :: ParameterControlProperty -> Maybe ParameterListControlProperty
slider :: ParameterControlProperty -> Maybe ParameterSliderControlProperty
textArea :: ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textField :: ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
    = [(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 -> ParameterDateTimePickerControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DateTimePicker" (ParameterDateTimePickerControlProperty -> (Key, Value))
-> Maybe ParameterDateTimePickerControlProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterDateTimePickerControlProperty
dateTimePicker,
               Key -> ParameterDropDownControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Dropdown" (ParameterDropDownControlProperty -> (Key, Value))
-> Maybe ParameterDropDownControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterDropDownControlProperty
dropdown,
               Key -> ParameterListControlProperty -> (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" (ParameterListControlProperty -> (Key, Value))
-> Maybe ParameterListControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterListControlProperty
list,
               Key -> ParameterSliderControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Slider" (ParameterSliderControlProperty -> (Key, Value))
-> Maybe ParameterSliderControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterSliderControlProperty
slider,
               Key -> ParameterTextAreaControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TextArea" (ParameterTextAreaControlProperty -> (Key, Value))
-> Maybe ParameterTextAreaControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterTextAreaControlProperty
textArea,
               Key -> ParameterTextFieldControlProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TextField" (ParameterTextFieldControlProperty -> (Key, Value))
-> Maybe ParameterTextFieldControlProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParameterTextFieldControlProperty
textField]))
instance Property "DateTimePicker" ParameterControlProperty where
  type PropertyType "DateTimePicker" ParameterControlProperty = ParameterDateTimePickerControlProperty
  set :: PropertyType "DateTimePicker" ParameterControlProperty
-> ParameterControlProperty -> ParameterControlProperty
set PropertyType "DateTimePicker" ParameterControlProperty
newValue ParameterControlProperty {Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ParameterControlProperty -> ()
dateTimePicker :: ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dropdown :: ParameterControlProperty -> Maybe ParameterDropDownControlProperty
list :: ParameterControlProperty -> Maybe ParameterListControlProperty
slider :: ParameterControlProperty -> Maybe ParameterSliderControlProperty
textArea :: ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textField :: ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
    = ParameterControlProperty
        {dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dateTimePicker = ParameterDateTimePickerControlProperty
-> Maybe ParameterDateTimePickerControlProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DateTimePicker" ParameterControlProperty
ParameterDateTimePickerControlProperty
newValue, Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ()
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
instance Property "Dropdown" ParameterControlProperty where
  type PropertyType "Dropdown" ParameterControlProperty = ParameterDropDownControlProperty
  set :: PropertyType "Dropdown" ParameterControlProperty
-> ParameterControlProperty -> ParameterControlProperty
set PropertyType "Dropdown" ParameterControlProperty
newValue ParameterControlProperty {Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ParameterControlProperty -> ()
dateTimePicker :: ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dropdown :: ParameterControlProperty -> Maybe ParameterDropDownControlProperty
list :: ParameterControlProperty -> Maybe ParameterListControlProperty
slider :: ParameterControlProperty -> Maybe ParameterSliderControlProperty
textArea :: ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textField :: ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
    = ParameterControlProperty {dropdown :: Maybe ParameterDropDownControlProperty
dropdown = ParameterDropDownControlProperty
-> Maybe ParameterDropDownControlProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Dropdown" ParameterControlProperty
ParameterDropDownControlProperty
newValue, Maybe ParameterListControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
instance Property "List" ParameterControlProperty where
  type PropertyType "List" ParameterControlProperty = ParameterListControlProperty
  set :: PropertyType "List" ParameterControlProperty
-> ParameterControlProperty -> ParameterControlProperty
set PropertyType "List" ParameterControlProperty
newValue ParameterControlProperty {Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ParameterControlProperty -> ()
dateTimePicker :: ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dropdown :: ParameterControlProperty -> Maybe ParameterDropDownControlProperty
list :: ParameterControlProperty -> Maybe ParameterListControlProperty
slider :: ParameterControlProperty -> Maybe ParameterSliderControlProperty
textArea :: ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textField :: ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
    = ParameterControlProperty {list :: Maybe ParameterListControlProperty
list = ParameterListControlProperty -> Maybe ParameterListControlProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "List" ParameterControlProperty
ParameterListControlProperty
newValue, Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
instance Property "Slider" ParameterControlProperty where
  type PropertyType "Slider" ParameterControlProperty = ParameterSliderControlProperty
  set :: PropertyType "Slider" ParameterControlProperty
-> ParameterControlProperty -> ParameterControlProperty
set PropertyType "Slider" ParameterControlProperty
newValue ParameterControlProperty {Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ParameterControlProperty -> ()
dateTimePicker :: ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dropdown :: ParameterControlProperty -> Maybe ParameterDropDownControlProperty
list :: ParameterControlProperty -> Maybe ParameterListControlProperty
slider :: ParameterControlProperty -> Maybe ParameterSliderControlProperty
textArea :: ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textField :: ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
    = ParameterControlProperty {slider :: Maybe ParameterSliderControlProperty
slider = ParameterSliderControlProperty
-> Maybe ParameterSliderControlProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Slider" ParameterControlProperty
ParameterSliderControlProperty
newValue, Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
instance Property "TextArea" ParameterControlProperty where
  type PropertyType "TextArea" ParameterControlProperty = ParameterTextAreaControlProperty
  set :: PropertyType "TextArea" ParameterControlProperty
-> ParameterControlProperty -> ParameterControlProperty
set PropertyType "TextArea" ParameterControlProperty
newValue ParameterControlProperty {Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ParameterControlProperty -> ()
dateTimePicker :: ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dropdown :: ParameterControlProperty -> Maybe ParameterDropDownControlProperty
list :: ParameterControlProperty -> Maybe ParameterListControlProperty
slider :: ParameterControlProperty -> Maybe ParameterSliderControlProperty
textArea :: ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textField :: ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
    = ParameterControlProperty {textArea :: Maybe ParameterTextAreaControlProperty
textArea = ParameterTextAreaControlProperty
-> Maybe ParameterTextAreaControlProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TextArea" ParameterControlProperty
ParameterTextAreaControlProperty
newValue, Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textField :: Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
instance Property "TextField" ParameterControlProperty where
  type PropertyType "TextField" ParameterControlProperty = ParameterTextFieldControlProperty
  set :: PropertyType "TextField" ParameterControlProperty
-> ParameterControlProperty -> ParameterControlProperty
set PropertyType "TextField" ParameterControlProperty
newValue ParameterControlProperty {Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
Maybe ParameterTextFieldControlProperty
()
haddock_workaround_ :: ParameterControlProperty -> ()
dateTimePicker :: ParameterControlProperty
-> Maybe ParameterDateTimePickerControlProperty
dropdown :: ParameterControlProperty -> Maybe ParameterDropDownControlProperty
list :: ParameterControlProperty -> Maybe ParameterListControlProperty
slider :: ParameterControlProperty -> Maybe ParameterSliderControlProperty
textArea :: ParameterControlProperty -> Maybe ParameterTextAreaControlProperty
textField :: ParameterControlProperty -> Maybe ParameterTextFieldControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
textField :: Maybe ParameterTextFieldControlProperty
..}
    = ParameterControlProperty {textField :: Maybe ParameterTextFieldControlProperty
textField = ParameterTextFieldControlProperty
-> Maybe ParameterTextFieldControlProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TextField" ParameterControlProperty
ParameterTextFieldControlProperty
newValue, Maybe ParameterListControlProperty
Maybe ParameterDropDownControlProperty
Maybe ParameterDateTimePickerControlProperty
Maybe ParameterSliderControlProperty
Maybe ParameterTextAreaControlProperty
()
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
haddock_workaround_ :: ()
dateTimePicker :: Maybe ParameterDateTimePickerControlProperty
dropdown :: Maybe ParameterDropDownControlProperty
list :: Maybe ParameterListControlProperty
slider :: Maybe ParameterSliderControlProperty
textArea :: Maybe ParameterTextAreaControlProperty
..}