module Stratosphere.QuickSight.Dashboard.GeospatialHeatmapConfigurationProperty (
        module Exports, GeospatialHeatmapConfigurationProperty(..),
        mkGeospatialHeatmapConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.QuickSight.Dashboard.GeospatialHeatmapColorScaleProperty as Exports
import Stratosphere.ResourceProperties
data GeospatialHeatmapConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-dashboard-geospatialheatmapconfiguration.html>
    GeospatialHeatmapConfigurationProperty {GeospatialHeatmapConfigurationProperty -> ()
haddock_workaround_ :: (),
                                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-dashboard-geospatialheatmapconfiguration.html#cfn-quicksight-dashboard-geospatialheatmapconfiguration-heatmapcolor>
                                            GeospatialHeatmapConfigurationProperty
-> Maybe GeospatialHeatmapColorScaleProperty
heatmapColor :: (Prelude.Maybe GeospatialHeatmapColorScaleProperty)}
  deriving stock (GeospatialHeatmapConfigurationProperty
-> GeospatialHeatmapConfigurationProperty -> Bool
(GeospatialHeatmapConfigurationProperty
 -> GeospatialHeatmapConfigurationProperty -> Bool)
-> (GeospatialHeatmapConfigurationProperty
    -> GeospatialHeatmapConfigurationProperty -> Bool)
-> Eq GeospatialHeatmapConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GeospatialHeatmapConfigurationProperty
-> GeospatialHeatmapConfigurationProperty -> Bool
== :: GeospatialHeatmapConfigurationProperty
-> GeospatialHeatmapConfigurationProperty -> Bool
$c/= :: GeospatialHeatmapConfigurationProperty
-> GeospatialHeatmapConfigurationProperty -> Bool
/= :: GeospatialHeatmapConfigurationProperty
-> GeospatialHeatmapConfigurationProperty -> Bool
Prelude.Eq, Int -> GeospatialHeatmapConfigurationProperty -> ShowS
[GeospatialHeatmapConfigurationProperty] -> ShowS
GeospatialHeatmapConfigurationProperty -> String
(Int -> GeospatialHeatmapConfigurationProperty -> ShowS)
-> (GeospatialHeatmapConfigurationProperty -> String)
-> ([GeospatialHeatmapConfigurationProperty] -> ShowS)
-> Show GeospatialHeatmapConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GeospatialHeatmapConfigurationProperty -> ShowS
showsPrec :: Int -> GeospatialHeatmapConfigurationProperty -> ShowS
$cshow :: GeospatialHeatmapConfigurationProperty -> String
show :: GeospatialHeatmapConfigurationProperty -> String
$cshowList :: [GeospatialHeatmapConfigurationProperty] -> ShowS
showList :: [GeospatialHeatmapConfigurationProperty] -> ShowS
Prelude.Show)
mkGeospatialHeatmapConfigurationProperty ::
  GeospatialHeatmapConfigurationProperty
mkGeospatialHeatmapConfigurationProperty :: GeospatialHeatmapConfigurationProperty
mkGeospatialHeatmapConfigurationProperty
  = GeospatialHeatmapConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), heatmapColor :: Maybe GeospatialHeatmapColorScaleProperty
heatmapColor = Maybe GeospatialHeatmapColorScaleProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties GeospatialHeatmapConfigurationProperty where
  toResourceProperties :: GeospatialHeatmapConfigurationProperty -> ResourceProperties
toResourceProperties GeospatialHeatmapConfigurationProperty {Maybe GeospatialHeatmapColorScaleProperty
()
haddock_workaround_ :: GeospatialHeatmapConfigurationProperty -> ()
heatmapColor :: GeospatialHeatmapConfigurationProperty
-> Maybe GeospatialHeatmapColorScaleProperty
haddock_workaround_ :: ()
heatmapColor :: Maybe GeospatialHeatmapColorScaleProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::QuickSight::Dashboard.GeospatialHeatmapConfiguration",
         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 -> GeospatialHeatmapColorScaleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HeatmapColor" (GeospatialHeatmapColorScaleProperty -> (Key, Value))
-> Maybe GeospatialHeatmapColorScaleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GeospatialHeatmapColorScaleProperty
heatmapColor])}
instance JSON.ToJSON GeospatialHeatmapConfigurationProperty where
  toJSON :: GeospatialHeatmapConfigurationProperty -> Value
toJSON GeospatialHeatmapConfigurationProperty {Maybe GeospatialHeatmapColorScaleProperty
()
haddock_workaround_ :: GeospatialHeatmapConfigurationProperty -> ()
heatmapColor :: GeospatialHeatmapConfigurationProperty
-> Maybe GeospatialHeatmapColorScaleProperty
haddock_workaround_ :: ()
heatmapColor :: Maybe GeospatialHeatmapColorScaleProperty
..}
    = [(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 -> GeospatialHeatmapColorScaleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HeatmapColor" (GeospatialHeatmapColorScaleProperty -> (Key, Value))
-> Maybe GeospatialHeatmapColorScaleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GeospatialHeatmapColorScaleProperty
heatmapColor]))
instance Property "HeatmapColor" GeospatialHeatmapConfigurationProperty where
  type PropertyType "HeatmapColor" GeospatialHeatmapConfigurationProperty = GeospatialHeatmapColorScaleProperty
  set :: PropertyType "HeatmapColor" GeospatialHeatmapConfigurationProperty
-> GeospatialHeatmapConfigurationProperty
-> GeospatialHeatmapConfigurationProperty
set PropertyType "HeatmapColor" GeospatialHeatmapConfigurationProperty
newValue GeospatialHeatmapConfigurationProperty {Maybe GeospatialHeatmapColorScaleProperty
()
haddock_workaround_ :: GeospatialHeatmapConfigurationProperty -> ()
heatmapColor :: GeospatialHeatmapConfigurationProperty
-> Maybe GeospatialHeatmapColorScaleProperty
haddock_workaround_ :: ()
heatmapColor :: Maybe GeospatialHeatmapColorScaleProperty
..}
    = GeospatialHeatmapConfigurationProperty
        {heatmapColor :: Maybe GeospatialHeatmapColorScaleProperty
heatmapColor = GeospatialHeatmapColorScaleProperty
-> Maybe GeospatialHeatmapColorScaleProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HeatmapColor" GeospatialHeatmapConfigurationProperty
GeospatialHeatmapColorScaleProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}