module Stratosphere.QuickSight.DataSet.LookbackWindowProperty (
        LookbackWindowProperty(..), mkLookbackWindowProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data LookbackWindowProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-dataset-lookbackwindow.html>
    LookbackWindowProperty {LookbackWindowProperty -> ()
haddock_workaround_ :: (),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-dataset-lookbackwindow.html#cfn-quicksight-dataset-lookbackwindow-columnname>
                            LookbackWindowProperty -> Value Text
columnName :: (Value Prelude.Text),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-dataset-lookbackwindow.html#cfn-quicksight-dataset-lookbackwindow-size>
                            LookbackWindowProperty -> Value Double
size :: (Value Prelude.Double),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-quicksight-dataset-lookbackwindow.html#cfn-quicksight-dataset-lookbackwindow-sizeunit>
                            LookbackWindowProperty -> Value Text
sizeUnit :: (Value Prelude.Text)}
  deriving stock (LookbackWindowProperty -> LookbackWindowProperty -> Bool
(LookbackWindowProperty -> LookbackWindowProperty -> Bool)
-> (LookbackWindowProperty -> LookbackWindowProperty -> Bool)
-> Eq LookbackWindowProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LookbackWindowProperty -> LookbackWindowProperty -> Bool
== :: LookbackWindowProperty -> LookbackWindowProperty -> Bool
$c/= :: LookbackWindowProperty -> LookbackWindowProperty -> Bool
/= :: LookbackWindowProperty -> LookbackWindowProperty -> Bool
Prelude.Eq, Int -> LookbackWindowProperty -> ShowS
[LookbackWindowProperty] -> ShowS
LookbackWindowProperty -> String
(Int -> LookbackWindowProperty -> ShowS)
-> (LookbackWindowProperty -> String)
-> ([LookbackWindowProperty] -> ShowS)
-> Show LookbackWindowProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LookbackWindowProperty -> ShowS
showsPrec :: Int -> LookbackWindowProperty -> ShowS
$cshow :: LookbackWindowProperty -> String
show :: LookbackWindowProperty -> String
$cshowList :: [LookbackWindowProperty] -> ShowS
showList :: [LookbackWindowProperty] -> ShowS
Prelude.Show)
mkLookbackWindowProperty ::
  Value Prelude.Text
  -> Value Prelude.Double
     -> Value Prelude.Text -> LookbackWindowProperty
mkLookbackWindowProperty :: Value Text -> Value Double -> Value Text -> LookbackWindowProperty
mkLookbackWindowProperty Value Text
columnName Value Double
size Value Text
sizeUnit
  = LookbackWindowProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), columnName :: Value Text
columnName = Value Text
columnName, size :: Value Double
size = Value Double
size,
       sizeUnit :: Value Text
sizeUnit = Value Text
sizeUnit}
instance ToResourceProperties LookbackWindowProperty where
  toResourceProperties :: LookbackWindowProperty -> ResourceProperties
toResourceProperties LookbackWindowProperty {()
Value Double
Value Text
haddock_workaround_ :: LookbackWindowProperty -> ()
columnName :: LookbackWindowProperty -> Value Text
size :: LookbackWindowProperty -> Value Double
sizeUnit :: LookbackWindowProperty -> Value Text
haddock_workaround_ :: ()
columnName :: Value Text
size :: Value Double
sizeUnit :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::QuickSight::DataSet.LookbackWindow",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"ColumnName" 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..= Value Text
columnName, Key
"Size" 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..= Value Double
size,
                       Key
"SizeUnit" 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..= Value Text
sizeUnit]}
instance JSON.ToJSON LookbackWindowProperty where
  toJSON :: LookbackWindowProperty -> Value
toJSON LookbackWindowProperty {()
Value Double
Value Text
haddock_workaround_ :: LookbackWindowProperty -> ()
columnName :: LookbackWindowProperty -> Value Text
size :: LookbackWindowProperty -> Value Double
sizeUnit :: LookbackWindowProperty -> Value Text
haddock_workaround_ :: ()
columnName :: Value Text
size :: Value Double
sizeUnit :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"ColumnName" 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..= Value Text
columnName, Key
"Size" 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..= Value Double
size,
         Key
"SizeUnit" 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..= Value Text
sizeUnit]
instance Property "ColumnName" LookbackWindowProperty where
  type PropertyType "ColumnName" LookbackWindowProperty = Value Prelude.Text
  set :: PropertyType "ColumnName" LookbackWindowProperty
-> LookbackWindowProperty -> LookbackWindowProperty
set PropertyType "ColumnName" LookbackWindowProperty
newValue LookbackWindowProperty {()
Value Double
Value Text
haddock_workaround_ :: LookbackWindowProperty -> ()
columnName :: LookbackWindowProperty -> Value Text
size :: LookbackWindowProperty -> Value Double
sizeUnit :: LookbackWindowProperty -> Value Text
haddock_workaround_ :: ()
columnName :: Value Text
size :: Value Double
sizeUnit :: Value Text
..}
    = LookbackWindowProperty {columnName :: Value Text
columnName = PropertyType "ColumnName" LookbackWindowProperty
Value Text
newValue, ()
Value Double
Value Text
haddock_workaround_ :: ()
size :: Value Double
sizeUnit :: Value Text
haddock_workaround_ :: ()
size :: Value Double
sizeUnit :: Value Text
..}
instance Property "Size" LookbackWindowProperty where
  type PropertyType "Size" LookbackWindowProperty = Value Prelude.Double
  set :: PropertyType "Size" LookbackWindowProperty
-> LookbackWindowProperty -> LookbackWindowProperty
set PropertyType "Size" LookbackWindowProperty
newValue LookbackWindowProperty {()
Value Double
Value Text
haddock_workaround_ :: LookbackWindowProperty -> ()
columnName :: LookbackWindowProperty -> Value Text
size :: LookbackWindowProperty -> Value Double
sizeUnit :: LookbackWindowProperty -> Value Text
haddock_workaround_ :: ()
columnName :: Value Text
size :: Value Double
sizeUnit :: Value Text
..}
    = LookbackWindowProperty {size :: Value Double
size = PropertyType "Size" LookbackWindowProperty
Value Double
newValue, ()
Value Text
haddock_workaround_ :: ()
columnName :: Value Text
sizeUnit :: Value Text
haddock_workaround_ :: ()
columnName :: Value Text
sizeUnit :: Value Text
..}
instance Property "SizeUnit" LookbackWindowProperty where
  type PropertyType "SizeUnit" LookbackWindowProperty = Value Prelude.Text
  set :: PropertyType "SizeUnit" LookbackWindowProperty
-> LookbackWindowProperty -> LookbackWindowProperty
set PropertyType "SizeUnit" LookbackWindowProperty
newValue LookbackWindowProperty {()
Value Double
Value Text
haddock_workaround_ :: LookbackWindowProperty -> ()
columnName :: LookbackWindowProperty -> Value Text
size :: LookbackWindowProperty -> Value Double
sizeUnit :: LookbackWindowProperty -> Value Text
haddock_workaround_ :: ()
columnName :: Value Text
size :: Value Double
sizeUnit :: Value Text
..}
    = LookbackWindowProperty {sizeUnit :: Value Text
sizeUnit = PropertyType "SizeUnit" LookbackWindowProperty
Value Text
newValue, ()
Value Double
Value Text
haddock_workaround_ :: ()
columnName :: Value Text
size :: Value Double
haddock_workaround_ :: ()
columnName :: Value Text
size :: Value Double
..}