module Stratosphere.QuickSight.Analysis.LineChartLineStyleSettingsProperty (
        LineChartLineStyleSettingsProperty(..),
        mkLineChartLineStyleSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data LineChartLineStyleSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-analysis-linechartlinestylesettings.html>
    LineChartLineStyleSettingsProperty {LineChartLineStyleSettingsProperty -> ()
haddock_workaround_ :: (),
                                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-analysis-linechartlinestylesettings.html#cfn-quicksight-analysis-linechartlinestylesettings-lineinterpolation>
                                        LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineInterpolation :: (Prelude.Maybe (Value Prelude.Text)),
                                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-analysis-linechartlinestylesettings.html#cfn-quicksight-analysis-linechartlinestylesettings-linestyle>
                                        LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineStyle :: (Prelude.Maybe (Value Prelude.Text)),
                                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-analysis-linechartlinestylesettings.html#cfn-quicksight-analysis-linechartlinestylesettings-linevisibility>
                                        LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineVisibility :: (Prelude.Maybe (Value Prelude.Text)),
                                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-analysis-linechartlinestylesettings.html#cfn-quicksight-analysis-linechartlinestylesettings-linewidth>
                                        LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineWidth :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty -> Bool
(LineChartLineStyleSettingsProperty
 -> LineChartLineStyleSettingsProperty -> Bool)
-> (LineChartLineStyleSettingsProperty
    -> LineChartLineStyleSettingsProperty -> Bool)
-> Eq LineChartLineStyleSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty -> Bool
== :: LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty -> Bool
$c/= :: LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty -> Bool
/= :: LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty -> Bool
Prelude.Eq, Int -> LineChartLineStyleSettingsProperty -> ShowS
[LineChartLineStyleSettingsProperty] -> ShowS
LineChartLineStyleSettingsProperty -> String
(Int -> LineChartLineStyleSettingsProperty -> ShowS)
-> (LineChartLineStyleSettingsProperty -> String)
-> ([LineChartLineStyleSettingsProperty] -> ShowS)
-> Show LineChartLineStyleSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LineChartLineStyleSettingsProperty -> ShowS
showsPrec :: Int -> LineChartLineStyleSettingsProperty -> ShowS
$cshow :: LineChartLineStyleSettingsProperty -> String
show :: LineChartLineStyleSettingsProperty -> String
$cshowList :: [LineChartLineStyleSettingsProperty] -> ShowS
showList :: [LineChartLineStyleSettingsProperty] -> ShowS
Prelude.Show)
mkLineChartLineStyleSettingsProperty ::
  LineChartLineStyleSettingsProperty
mkLineChartLineStyleSettingsProperty :: LineChartLineStyleSettingsProperty
mkLineChartLineStyleSettingsProperty
  = LineChartLineStyleSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), lineInterpolation :: Maybe (Value Text)
lineInterpolation = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       lineStyle :: Maybe (Value Text)
lineStyle = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, lineVisibility :: Maybe (Value Text)
lineVisibility = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       lineWidth :: Maybe (Value Text)
lineWidth = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties LineChartLineStyleSettingsProperty where
  toResourceProperties :: LineChartLineStyleSettingsProperty -> ResourceProperties
toResourceProperties LineChartLineStyleSettingsProperty {Maybe (Value Text)
()
haddock_workaround_ :: LineChartLineStyleSettingsProperty -> ()
lineInterpolation :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineStyle :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineVisibility :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineWidth :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::QuickSight::Analysis.LineChartLineStyleSettings",
         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
"LineInterpolation" (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)
lineInterpolation,
                            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
"LineStyle" (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)
lineStyle,
                            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
"LineVisibility" (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)
lineVisibility,
                            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
"LineWidth" (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)
lineWidth])}
instance JSON.ToJSON LineChartLineStyleSettingsProperty where
  toJSON :: LineChartLineStyleSettingsProperty -> Value
toJSON LineChartLineStyleSettingsProperty {Maybe (Value Text)
()
haddock_workaround_ :: LineChartLineStyleSettingsProperty -> ()
lineInterpolation :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineStyle :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineVisibility :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineWidth :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: 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 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
"LineInterpolation" (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)
lineInterpolation,
               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
"LineStyle" (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)
lineStyle,
               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
"LineVisibility" (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)
lineVisibility,
               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
"LineWidth" (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)
lineWidth]))
instance Property "LineInterpolation" LineChartLineStyleSettingsProperty where
  type PropertyType "LineInterpolation" LineChartLineStyleSettingsProperty = Value Prelude.Text
  set :: PropertyType "LineInterpolation" LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty
set PropertyType "LineInterpolation" LineChartLineStyleSettingsProperty
newValue LineChartLineStyleSettingsProperty {Maybe (Value Text)
()
haddock_workaround_ :: LineChartLineStyleSettingsProperty -> ()
lineInterpolation :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineStyle :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineVisibility :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineWidth :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
..}
    = LineChartLineStyleSettingsProperty
        {lineInterpolation :: Maybe (Value Text)
lineInterpolation = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LineInterpolation" LineChartLineStyleSettingsProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
haddock_workaround_ :: ()
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
..}
instance Property "LineStyle" LineChartLineStyleSettingsProperty where
  type PropertyType "LineStyle" LineChartLineStyleSettingsProperty = Value Prelude.Text
  set :: PropertyType "LineStyle" LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty
set PropertyType "LineStyle" LineChartLineStyleSettingsProperty
newValue LineChartLineStyleSettingsProperty {Maybe (Value Text)
()
haddock_workaround_ :: LineChartLineStyleSettingsProperty -> ()
lineInterpolation :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineStyle :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineVisibility :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineWidth :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
..}
    = LineChartLineStyleSettingsProperty
        {lineStyle :: Maybe (Value Text)
lineStyle = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LineStyle" LineChartLineStyleSettingsProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
..}
instance Property "LineVisibility" LineChartLineStyleSettingsProperty where
  type PropertyType "LineVisibility" LineChartLineStyleSettingsProperty = Value Prelude.Text
  set :: PropertyType "LineVisibility" LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty
set PropertyType "LineVisibility" LineChartLineStyleSettingsProperty
newValue LineChartLineStyleSettingsProperty {Maybe (Value Text)
()
haddock_workaround_ :: LineChartLineStyleSettingsProperty -> ()
lineInterpolation :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineStyle :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineVisibility :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineWidth :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
..}
    = LineChartLineStyleSettingsProperty
        {lineVisibility :: Maybe (Value Text)
lineVisibility = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LineVisibility" LineChartLineStyleSettingsProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
..}
instance Property "LineWidth" LineChartLineStyleSettingsProperty where
  type PropertyType "LineWidth" LineChartLineStyleSettingsProperty = Value Prelude.Text
  set :: PropertyType "LineWidth" LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty
-> LineChartLineStyleSettingsProperty
set PropertyType "LineWidth" LineChartLineStyleSettingsProperty
newValue LineChartLineStyleSettingsProperty {Maybe (Value Text)
()
haddock_workaround_ :: LineChartLineStyleSettingsProperty -> ()
lineInterpolation :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineStyle :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineVisibility :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
lineWidth :: LineChartLineStyleSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
lineWidth :: Maybe (Value Text)
..}
    = LineChartLineStyleSettingsProperty
        {lineWidth :: Maybe (Value Text)
lineWidth = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LineWidth" LineChartLineStyleSettingsProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
haddock_workaround_ :: ()
lineInterpolation :: Maybe (Value Text)
lineStyle :: Maybe (Value Text)
lineVisibility :: Maybe (Value Text)
..}