module Stratosphere.Scheduler.Schedule (
module Exports, Schedule(..), mkSchedule
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Scheduler.Schedule.FlexibleTimeWindowProperty as Exports
import {-# SOURCE #-} Stratosphere.Scheduler.Schedule.TargetProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data Schedule
=
Schedule {Schedule -> ()
haddock_workaround_ :: (),
Schedule -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
Schedule -> Maybe (Value Text)
endDate :: (Prelude.Maybe (Value Prelude.Text)),
Schedule -> FlexibleTimeWindowProperty
flexibleTimeWindow :: FlexibleTimeWindowProperty,
Schedule -> Maybe (Value Text)
groupName :: (Prelude.Maybe (Value Prelude.Text)),
Schedule -> Maybe (Value Text)
kmsKeyArn :: (Prelude.Maybe (Value Prelude.Text)),
Schedule -> Maybe (Value Text)
name :: (Prelude.Maybe (Value Prelude.Text)),
Schedule -> Value Text
scheduleExpression :: (Value Prelude.Text),
Schedule -> Maybe (Value Text)
scheduleExpressionTimezone :: (Prelude.Maybe (Value Prelude.Text)),
Schedule -> Maybe (Value Text)
startDate :: (Prelude.Maybe (Value Prelude.Text)),
Schedule -> Maybe (Value Text)
state :: (Prelude.Maybe (Value Prelude.Text)),
Schedule -> TargetProperty
target :: TargetProperty}
deriving stock (Schedule -> Schedule -> Bool
(Schedule -> Schedule -> Bool)
-> (Schedule -> Schedule -> Bool) -> Eq Schedule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Schedule -> Schedule -> Bool
== :: Schedule -> Schedule -> Bool
$c/= :: Schedule -> Schedule -> Bool
/= :: Schedule -> Schedule -> Bool
Prelude.Eq, Int -> Schedule -> ShowS
[Schedule] -> ShowS
Schedule -> String
(Int -> Schedule -> ShowS)
-> (Schedule -> String) -> ([Schedule] -> ShowS) -> Show Schedule
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Schedule -> ShowS
showsPrec :: Int -> Schedule -> ShowS
$cshow :: Schedule -> String
show :: Schedule -> String
$cshowList :: [Schedule] -> ShowS
showList :: [Schedule] -> ShowS
Prelude.Show)
mkSchedule ::
FlexibleTimeWindowProperty
-> Value Prelude.Text -> TargetProperty -> Schedule
mkSchedule :: FlexibleTimeWindowProperty
-> Value Text -> TargetProperty -> Schedule
mkSchedule FlexibleTimeWindowProperty
flexibleTimeWindow Value Text
scheduleExpression TargetProperty
target
= Schedule
{haddock_workaround_ :: ()
haddock_workaround_ = (), flexibleTimeWindow :: FlexibleTimeWindowProperty
flexibleTimeWindow = FlexibleTimeWindowProperty
flexibleTimeWindow,
scheduleExpression :: Value Text
scheduleExpression = Value Text
scheduleExpression, target :: TargetProperty
target = TargetProperty
target,
description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, endDate :: Maybe (Value Text)
endDate = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
groupName :: Maybe (Value Text)
groupName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, kmsKeyArn :: Maybe (Value Text)
kmsKeyArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
name :: Maybe (Value Text)
name = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
scheduleExpressionTimezone :: Maybe (Value Text)
scheduleExpressionTimezone = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
startDate :: Maybe (Value Text)
startDate = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, state :: Maybe (Value Text)
state = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Schedule where
toResourceProperties :: Schedule -> ResourceProperties
toResourceProperties Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Scheduler::Schedule",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"FlexibleTimeWindow" Key -> FlexibleTimeWindowProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= FlexibleTimeWindowProperty
flexibleTimeWindow,
Key
"ScheduleExpression" 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
scheduleExpression,
Key
"Target" Key -> TargetProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= TargetProperty
target]
([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
"Description" (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)
description,
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
"EndDate" (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)
endDate,
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
"GroupName" (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)
groupName,
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
"KmsKeyArn" (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)
kmsKeyArn,
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
"Name" (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)
name,
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
"ScheduleExpressionTimezone"
(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)
scheduleExpressionTimezone,
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
"StartDate" (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)
startDate,
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
"State" (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)
state]))}
instance JSON.ToJSON Schedule where
toJSON :: Schedule -> Value
toJSON Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"FlexibleTimeWindow" Key -> FlexibleTimeWindowProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= FlexibleTimeWindowProperty
flexibleTimeWindow,
Key
"ScheduleExpression" 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
scheduleExpression,
Key
"Target" Key -> TargetProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= TargetProperty
target]
([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
"Description" (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)
description,
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
"EndDate" (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)
endDate,
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
"GroupName" (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)
groupName,
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
"KmsKeyArn" (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)
kmsKeyArn,
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
"Name" (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)
name,
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
"ScheduleExpressionTimezone"
(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)
scheduleExpressionTimezone,
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
"StartDate" (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)
startDate,
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
"State" (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)
state])))
instance Property "Description" Schedule where
type PropertyType "Description" Schedule = Value Prelude.Text
set :: PropertyType "Description" Schedule -> Schedule -> Schedule
set PropertyType "Description" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {description :: Maybe (Value Text)
description = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Description" Schedule
Value Text
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "EndDate" Schedule where
type PropertyType "EndDate" Schedule = Value Prelude.Text
set :: PropertyType "EndDate" Schedule -> Schedule -> Schedule
set PropertyType "EndDate" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {endDate :: Maybe (Value Text)
endDate = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EndDate" Schedule
Value Text
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "FlexibleTimeWindow" Schedule where
type PropertyType "FlexibleTimeWindow" Schedule = FlexibleTimeWindowProperty
set :: PropertyType "FlexibleTimeWindow" Schedule -> Schedule -> Schedule
set PropertyType "FlexibleTimeWindow" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {flexibleTimeWindow :: FlexibleTimeWindowProperty
flexibleTimeWindow = PropertyType "FlexibleTimeWindow" Schedule
FlexibleTimeWindowProperty
newValue, Maybe (Value Text)
()
Value Text
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "GroupName" Schedule where
type PropertyType "GroupName" Schedule = Value Prelude.Text
set :: PropertyType "GroupName" Schedule -> Schedule -> Schedule
set PropertyType "GroupName" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {groupName :: Maybe (Value Text)
groupName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "GroupName" Schedule
Value Text
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "KmsKeyArn" Schedule where
type PropertyType "KmsKeyArn" Schedule = Value Prelude.Text
set :: PropertyType "KmsKeyArn" Schedule -> Schedule -> Schedule
set PropertyType "KmsKeyArn" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {kmsKeyArn :: Maybe (Value Text)
kmsKeyArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KmsKeyArn" Schedule
Value Text
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "Name" Schedule where
type PropertyType "Name" Schedule = Value Prelude.Text
set :: PropertyType "Name" Schedule -> Schedule -> Schedule
set PropertyType "Name" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {name :: Maybe (Value Text)
name = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Name" Schedule
Value Text
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "ScheduleExpression" Schedule where
type PropertyType "ScheduleExpression" Schedule = Value Prelude.Text
set :: PropertyType "ScheduleExpression" Schedule -> Schedule -> Schedule
set PropertyType "ScheduleExpression" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {scheduleExpression :: Value Text
scheduleExpression = PropertyType "ScheduleExpression" Schedule
Value Text
newValue, Maybe (Value Text)
()
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "ScheduleExpressionTimezone" Schedule where
type PropertyType "ScheduleExpressionTimezone" Schedule = Value Prelude.Text
set :: PropertyType "ScheduleExpressionTimezone" Schedule
-> Schedule -> Schedule
set PropertyType "ScheduleExpressionTimezone" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {scheduleExpressionTimezone :: Maybe (Value Text)
scheduleExpressionTimezone = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ScheduleExpressionTimezone" Schedule
Value Text
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "StartDate" Schedule where
type PropertyType "StartDate" Schedule = Value Prelude.Text
set :: PropertyType "StartDate" Schedule -> Schedule -> Schedule
set PropertyType "StartDate" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {startDate :: Maybe (Value Text)
startDate = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "StartDate" Schedule
Value Text
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "State" Schedule where
type PropertyType "State" Schedule = Value Prelude.Text
set :: PropertyType "State" Schedule -> Schedule -> Schedule
set PropertyType "State" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..}
= Schedule {state :: Maybe (Value Text)
state = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "State" Schedule
Value Text
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
target :: TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
target :: TargetProperty
..}
instance Property "Target" Schedule where
type PropertyType "Target" Schedule = TargetProperty
set :: PropertyType "Target" Schedule -> Schedule -> Schedule
set PropertyType "Target" Schedule
newValue Schedule {Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
TargetProperty
haddock_workaround_ :: Schedule -> ()
description :: Schedule -> Maybe (Value Text)
endDate :: Schedule -> Maybe (Value Text)
flexibleTimeWindow :: Schedule -> FlexibleTimeWindowProperty
groupName :: Schedule -> Maybe (Value Text)
kmsKeyArn :: Schedule -> Maybe (Value Text)
name :: Schedule -> Maybe (Value Text)
scheduleExpression :: Schedule -> Value Text
scheduleExpressionTimezone :: Schedule -> Maybe (Value Text)
startDate :: Schedule -> Maybe (Value Text)
state :: Schedule -> Maybe (Value Text)
target :: Schedule -> TargetProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
target :: TargetProperty
..} = Schedule {target :: TargetProperty
target = PropertyType "Target" Schedule
TargetProperty
newValue, Maybe (Value Text)
()
Value Text
FlexibleTimeWindowProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
haddock_workaround_ :: ()
description :: Maybe (Value Text)
endDate :: Maybe (Value Text)
flexibleTimeWindow :: FlexibleTimeWindowProperty
groupName :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
name :: Maybe (Value Text)
scheduleExpression :: Value Text
scheduleExpressionTimezone :: Maybe (Value Text)
startDate :: Maybe (Value Text)
state :: Maybe (Value Text)
..}