module Stratosphere.Events.Rule (
        module Exports, Rule(..), mkRule
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Events.Rule.TargetProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Rule
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html>
    Rule {Rule -> ()
haddock_workaround_ :: (),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-description>
          Rule -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-eventbusname>
          Rule -> Maybe (Value Text)
eventBusName :: (Prelude.Maybe (Value Prelude.Text)),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-eventpattern>
          Rule -> Maybe Object
eventPattern :: (Prelude.Maybe JSON.Object),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-name>
          Rule -> Maybe (Value Text)
name :: (Prelude.Maybe (Value Prelude.Text)),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-rolearn>
          Rule -> Maybe (Value Text)
roleArn :: (Prelude.Maybe (Value Prelude.Text)),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-scheduleexpression>
          Rule -> Maybe (Value Text)
scheduleExpression :: (Prelude.Maybe (Value Prelude.Text)),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-state>
          Rule -> Maybe (Value Text)
state :: (Prelude.Maybe (Value Prelude.Text)),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-tags>
          Rule -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag]),
          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-targets>
          Rule -> Maybe [TargetProperty]
targets :: (Prelude.Maybe [TargetProperty])}
  deriving stock (Rule -> Rule -> Bool
(Rule -> Rule -> Bool) -> (Rule -> Rule -> Bool) -> Eq Rule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Rule -> Rule -> Bool
== :: Rule -> Rule -> Bool
$c/= :: Rule -> Rule -> Bool
/= :: Rule -> Rule -> Bool
Prelude.Eq, Int -> Rule -> ShowS
[Rule] -> ShowS
Rule -> String
(Int -> Rule -> ShowS)
-> (Rule -> String) -> ([Rule] -> ShowS) -> Show Rule
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Rule -> ShowS
showsPrec :: Int -> Rule -> ShowS
$cshow :: Rule -> String
show :: Rule -> String
$cshowList :: [Rule] -> ShowS
showList :: [Rule] -> ShowS
Prelude.Show)
mkRule :: Rule
mkRule :: Rule
mkRule
  = Rule
      {haddock_workaround_ :: ()
haddock_workaround_ = (), description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       eventBusName :: Maybe (Value Text)
eventBusName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, eventPattern :: Maybe Object
eventPattern = Maybe Object
forall a. Maybe a
Prelude.Nothing,
       name :: Maybe (Value Text)
name = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, roleArn :: Maybe (Value Text)
roleArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       scheduleExpression :: Maybe (Value Text)
scheduleExpression = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, state :: Maybe (Value Text)
state = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing, targets :: Maybe [TargetProperty]
targets = Maybe [TargetProperty]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Rule where
  toResourceProperties :: Rule -> ResourceProperties
toResourceProperties Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Events::Rule", supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         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
"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
"EventBusName" (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)
eventBusName,
                            Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EventPattern" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
eventPattern,
                            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
"RoleArn" (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)
roleArn,
                            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
"ScheduleExpression" (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)
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..=) 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,
                            Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
                            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..=) Key
"Targets" ([TargetProperty] -> (Key, Value))
-> Maybe [TargetProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TargetProperty]
targets])}
instance JSON.ToJSON Rule where
  toJSON :: Rule -> Value
toJSON Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
    = [(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
"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
"EventBusName" (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)
eventBusName,
               Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EventPattern" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
eventPattern,
               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
"RoleArn" (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)
roleArn,
               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
"ScheduleExpression" (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)
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..=) 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,
               Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
               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..=) Key
"Targets" ([TargetProperty] -> (Key, Value))
-> Maybe [TargetProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TargetProperty]
targets]))
instance Property "Description" Rule where
  type PropertyType "Description" Rule = Value Prelude.Text
  set :: PropertyType "Description" Rule -> Rule -> Rule
set PropertyType "Description" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
    = Rule {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" Rule
Value Text
newValue, Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
haddock_workaround_ :: ()
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
instance Property "EventBusName" Rule where
  type PropertyType "EventBusName" Rule = Value Prelude.Text
  set :: PropertyType "EventBusName" Rule -> Rule -> Rule
set PropertyType "EventBusName" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
    = Rule {eventBusName :: Maybe (Value Text)
eventBusName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EventBusName" Rule
Value Text
newValue, Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
instance Property "EventPattern" Rule where
  type PropertyType "EventPattern" Rule = JSON.Object
  set :: PropertyType "EventPattern" Rule -> Rule -> Rule
set PropertyType "EventPattern" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
    = Rule {eventPattern :: Maybe Object
eventPattern = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType "EventPattern" Rule
newValue, Maybe [Tag]
Maybe [TargetProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
instance Property "Name" Rule where
  type PropertyType "Name" Rule = Value Prelude.Text
  set :: PropertyType "Name" Rule -> Rule -> Rule
set PropertyType "Name" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..} = Rule {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" Rule
Value Text
newValue, Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
instance Property "RoleArn" Rule where
  type PropertyType "RoleArn" Rule = Value Prelude.Text
  set :: PropertyType "RoleArn" Rule -> Rule -> Rule
set PropertyType "RoleArn" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..} = Rule {roleArn :: Maybe (Value Text)
roleArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RoleArn" Rule
Value Text
newValue, Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
instance Property "ScheduleExpression" Rule where
  type PropertyType "ScheduleExpression" Rule = Value Prelude.Text
  set :: PropertyType "ScheduleExpression" Rule -> Rule -> Rule
set PropertyType "ScheduleExpression" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
    = Rule {scheduleExpression :: Maybe (Value Text)
scheduleExpression = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ScheduleExpression" Rule
Value Text
newValue, Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
instance Property "State" Rule where
  type PropertyType "State" Rule = Value Prelude.Text
  set :: PropertyType "State" Rule -> Rule -> Rule
set PropertyType "State" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..} = Rule {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" Rule
Value Text
newValue, Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..}
instance Property "Tags" Rule where
  type PropertyType "Tags" Rule = [Tag]
  set :: PropertyType "Tags" Rule -> Rule -> Rule
set PropertyType "Tags" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..} = Rule {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" Rule
newValue, Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
targets :: Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
targets :: Maybe [TargetProperty]
..}
instance Property "Targets" Rule where
  type PropertyType "Targets" Rule = [TargetProperty]
  set :: PropertyType "Targets" Rule -> Rule -> Rule
set PropertyType "Targets" Rule
newValue Rule {Maybe [Tag]
Maybe [TargetProperty]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: Rule -> ()
description :: Rule -> Maybe (Value Text)
eventBusName :: Rule -> Maybe (Value Text)
eventPattern :: Rule -> Maybe Object
name :: Rule -> Maybe (Value Text)
roleArn :: Rule -> Maybe (Value Text)
scheduleExpression :: Rule -> Maybe (Value Text)
state :: Rule -> Maybe (Value Text)
tags :: Rule -> Maybe [Tag]
targets :: Rule -> Maybe [TargetProperty]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
targets :: Maybe [TargetProperty]
..} = Rule {targets :: Maybe [TargetProperty]
targets = [TargetProperty] -> Maybe [TargetProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [TargetProperty]
PropertyType "Targets" Rule
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eventBusName :: Maybe (Value Text)
eventPattern :: Maybe Object
name :: Maybe (Value Text)
roleArn :: Maybe (Value Text)
scheduleExpression :: Maybe (Value Text)
state :: Maybe (Value Text)
tags :: Maybe [Tag]
..}