module Stratosphere.IoTFleetWise.Vehicle.PeriodicStateTemplateUpdateStrategyProperty (
module Exports, PeriodicStateTemplateUpdateStrategyProperty(..),
mkPeriodicStateTemplateUpdateStrategyProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.IoTFleetWise.Vehicle.TimePeriodProperty as Exports
import Stratosphere.ResourceProperties
data PeriodicStateTemplateUpdateStrategyProperty
=
PeriodicStateTemplateUpdateStrategyProperty {PeriodicStateTemplateUpdateStrategyProperty -> ()
haddock_workaround_ :: (),
PeriodicStateTemplateUpdateStrategyProperty -> TimePeriodProperty
stateTemplateUpdateRate :: TimePeriodProperty}
deriving stock (PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty -> Bool
(PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty -> Bool)
-> (PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty -> Bool)
-> Eq PeriodicStateTemplateUpdateStrategyProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty -> Bool
== :: PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty -> Bool
$c/= :: PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty -> Bool
/= :: PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty -> Bool
Prelude.Eq, Int -> PeriodicStateTemplateUpdateStrategyProperty -> ShowS
[PeriodicStateTemplateUpdateStrategyProperty] -> ShowS
PeriodicStateTemplateUpdateStrategyProperty -> String
(Int -> PeriodicStateTemplateUpdateStrategyProperty -> ShowS)
-> (PeriodicStateTemplateUpdateStrategyProperty -> String)
-> ([PeriodicStateTemplateUpdateStrategyProperty] -> ShowS)
-> Show PeriodicStateTemplateUpdateStrategyProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PeriodicStateTemplateUpdateStrategyProperty -> ShowS
showsPrec :: Int -> PeriodicStateTemplateUpdateStrategyProperty -> ShowS
$cshow :: PeriodicStateTemplateUpdateStrategyProperty -> String
show :: PeriodicStateTemplateUpdateStrategyProperty -> String
$cshowList :: [PeriodicStateTemplateUpdateStrategyProperty] -> ShowS
showList :: [PeriodicStateTemplateUpdateStrategyProperty] -> ShowS
Prelude.Show)
mkPeriodicStateTemplateUpdateStrategyProperty ::
TimePeriodProperty -> PeriodicStateTemplateUpdateStrategyProperty
mkPeriodicStateTemplateUpdateStrategyProperty :: TimePeriodProperty -> PeriodicStateTemplateUpdateStrategyProperty
mkPeriodicStateTemplateUpdateStrategyProperty
TimePeriodProperty
stateTemplateUpdateRate
= PeriodicStateTemplateUpdateStrategyProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
stateTemplateUpdateRate :: TimePeriodProperty
stateTemplateUpdateRate = TimePeriodProperty
stateTemplateUpdateRate}
instance ToResourceProperties PeriodicStateTemplateUpdateStrategyProperty where
toResourceProperties :: PeriodicStateTemplateUpdateStrategyProperty -> ResourceProperties
toResourceProperties
PeriodicStateTemplateUpdateStrategyProperty {()
TimePeriodProperty
haddock_workaround_ :: PeriodicStateTemplateUpdateStrategyProperty -> ()
stateTemplateUpdateRate :: PeriodicStateTemplateUpdateStrategyProperty -> TimePeriodProperty
haddock_workaround_ :: ()
stateTemplateUpdateRate :: TimePeriodProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::IoTFleetWise::Vehicle.PeriodicStateTemplateUpdateStrategy",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"StateTemplateUpdateRate"
Key -> TimePeriodProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= TimePeriodProperty
stateTemplateUpdateRate]}
instance JSON.ToJSON PeriodicStateTemplateUpdateStrategyProperty where
toJSON :: PeriodicStateTemplateUpdateStrategyProperty -> Value
toJSON PeriodicStateTemplateUpdateStrategyProperty {()
TimePeriodProperty
haddock_workaround_ :: PeriodicStateTemplateUpdateStrategyProperty -> ()
stateTemplateUpdateRate :: PeriodicStateTemplateUpdateStrategyProperty -> TimePeriodProperty
haddock_workaround_ :: ()
stateTemplateUpdateRate :: TimePeriodProperty
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"StateTemplateUpdateRate" Key -> TimePeriodProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= TimePeriodProperty
stateTemplateUpdateRate]
instance Property "StateTemplateUpdateRate" PeriodicStateTemplateUpdateStrategyProperty where
type PropertyType "StateTemplateUpdateRate" PeriodicStateTemplateUpdateStrategyProperty = TimePeriodProperty
set :: PropertyType
"StateTemplateUpdateRate"
PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty
-> PeriodicStateTemplateUpdateStrategyProperty
set PropertyType
"StateTemplateUpdateRate"
PeriodicStateTemplateUpdateStrategyProperty
newValue PeriodicStateTemplateUpdateStrategyProperty {()
TimePeriodProperty
haddock_workaround_ :: PeriodicStateTemplateUpdateStrategyProperty -> ()
stateTemplateUpdateRate :: PeriodicStateTemplateUpdateStrategyProperty -> TimePeriodProperty
haddock_workaround_ :: ()
stateTemplateUpdateRate :: TimePeriodProperty
..}
= PeriodicStateTemplateUpdateStrategyProperty
{stateTemplateUpdateRate :: TimePeriodProperty
stateTemplateUpdateRate = PropertyType
"StateTemplateUpdateRate"
PeriodicStateTemplateUpdateStrategyProperty
TimePeriodProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}