module Stratosphere.SES.MailManagerRuleSet.RuleConditionProperty (
        module Exports, RuleConditionProperty(..), mkRuleConditionProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SES.MailManagerRuleSet.RuleBooleanExpressionProperty as Exports
import {-# SOURCE #-} Stratosphere.SES.MailManagerRuleSet.RuleDmarcExpressionProperty as Exports
import {-# SOURCE #-} Stratosphere.SES.MailManagerRuleSet.RuleIpExpressionProperty as Exports
import {-# SOURCE #-} Stratosphere.SES.MailManagerRuleSet.RuleNumberExpressionProperty as Exports
import {-# SOURCE #-} Stratosphere.SES.MailManagerRuleSet.RuleStringExpressionProperty as Exports
import {-# SOURCE #-} Stratosphere.SES.MailManagerRuleSet.RuleVerdictExpressionProperty as Exports
import Stratosphere.ResourceProperties
data RuleConditionProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-mailmanagerruleset-rulecondition.html>
    RuleConditionProperty {RuleConditionProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-mailmanagerruleset-rulecondition.html#cfn-ses-mailmanagerruleset-rulecondition-booleanexpression>
                           RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
booleanExpression :: (Prelude.Maybe RuleBooleanExpressionProperty),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-mailmanagerruleset-rulecondition.html#cfn-ses-mailmanagerruleset-rulecondition-dmarcexpression>
                           RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
dmarcExpression :: (Prelude.Maybe RuleDmarcExpressionProperty),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-mailmanagerruleset-rulecondition.html#cfn-ses-mailmanagerruleset-rulecondition-ipexpression>
                           RuleConditionProperty -> Maybe RuleIpExpressionProperty
ipExpression :: (Prelude.Maybe RuleIpExpressionProperty),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-mailmanagerruleset-rulecondition.html#cfn-ses-mailmanagerruleset-rulecondition-numberexpression>
                           RuleConditionProperty -> Maybe RuleNumberExpressionProperty
numberExpression :: (Prelude.Maybe RuleNumberExpressionProperty),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-mailmanagerruleset-rulecondition.html#cfn-ses-mailmanagerruleset-rulecondition-stringexpression>
                           RuleConditionProperty -> Maybe RuleStringExpressionProperty
stringExpression :: (Prelude.Maybe RuleStringExpressionProperty),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-mailmanagerruleset-rulecondition.html#cfn-ses-mailmanagerruleset-rulecondition-verdictexpression>
                           RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
verdictExpression :: (Prelude.Maybe RuleVerdictExpressionProperty)}
  deriving stock (RuleConditionProperty -> RuleConditionProperty -> Bool
(RuleConditionProperty -> RuleConditionProperty -> Bool)
-> (RuleConditionProperty -> RuleConditionProperty -> Bool)
-> Eq RuleConditionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RuleConditionProperty -> RuleConditionProperty -> Bool
== :: RuleConditionProperty -> RuleConditionProperty -> Bool
$c/= :: RuleConditionProperty -> RuleConditionProperty -> Bool
/= :: RuleConditionProperty -> RuleConditionProperty -> Bool
Prelude.Eq, Int -> RuleConditionProperty -> ShowS
[RuleConditionProperty] -> ShowS
RuleConditionProperty -> String
(Int -> RuleConditionProperty -> ShowS)
-> (RuleConditionProperty -> String)
-> ([RuleConditionProperty] -> ShowS)
-> Show RuleConditionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RuleConditionProperty -> ShowS
showsPrec :: Int -> RuleConditionProperty -> ShowS
$cshow :: RuleConditionProperty -> String
show :: RuleConditionProperty -> String
$cshowList :: [RuleConditionProperty] -> ShowS
showList :: [RuleConditionProperty] -> ShowS
Prelude.Show)
mkRuleConditionProperty :: RuleConditionProperty
mkRuleConditionProperty :: RuleConditionProperty
mkRuleConditionProperty
  = RuleConditionProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), booleanExpression :: Maybe RuleBooleanExpressionProperty
booleanExpression = Maybe RuleBooleanExpressionProperty
forall a. Maybe a
Prelude.Nothing,
       dmarcExpression :: Maybe RuleDmarcExpressionProperty
dmarcExpression = Maybe RuleDmarcExpressionProperty
forall a. Maybe a
Prelude.Nothing, ipExpression :: Maybe RuleIpExpressionProperty
ipExpression = Maybe RuleIpExpressionProperty
forall a. Maybe a
Prelude.Nothing,
       numberExpression :: Maybe RuleNumberExpressionProperty
numberExpression = Maybe RuleNumberExpressionProperty
forall a. Maybe a
Prelude.Nothing,
       stringExpression :: Maybe RuleStringExpressionProperty
stringExpression = Maybe RuleStringExpressionProperty
forall a. Maybe a
Prelude.Nothing,
       verdictExpression :: Maybe RuleVerdictExpressionProperty
verdictExpression = Maybe RuleVerdictExpressionProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties RuleConditionProperty where
  toResourceProperties :: RuleConditionProperty -> ResourceProperties
toResourceProperties RuleConditionProperty {Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: RuleConditionProperty -> ()
booleanExpression :: RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
dmarcExpression :: RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
ipExpression :: RuleConditionProperty -> Maybe RuleIpExpressionProperty
numberExpression :: RuleConditionProperty -> Maybe RuleNumberExpressionProperty
stringExpression :: RuleConditionProperty -> Maybe RuleStringExpressionProperty
verdictExpression :: RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SES::MailManagerRuleSet.RuleCondition",
         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 -> RuleBooleanExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BooleanExpression" (RuleBooleanExpressionProperty -> (Key, Value))
-> Maybe RuleBooleanExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleBooleanExpressionProperty
booleanExpression,
                            Key -> RuleDmarcExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DmarcExpression" (RuleDmarcExpressionProperty -> (Key, Value))
-> Maybe RuleDmarcExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleDmarcExpressionProperty
dmarcExpression,
                            Key -> RuleIpExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IpExpression" (RuleIpExpressionProperty -> (Key, Value))
-> Maybe RuleIpExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleIpExpressionProperty
ipExpression,
                            Key -> RuleNumberExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NumberExpression" (RuleNumberExpressionProperty -> (Key, Value))
-> Maybe RuleNumberExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleNumberExpressionProperty
numberExpression,
                            Key -> RuleStringExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"StringExpression" (RuleStringExpressionProperty -> (Key, Value))
-> Maybe RuleStringExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleStringExpressionProperty
stringExpression,
                            Key -> RuleVerdictExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VerdictExpression" (RuleVerdictExpressionProperty -> (Key, Value))
-> Maybe RuleVerdictExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleVerdictExpressionProperty
verdictExpression])}
instance JSON.ToJSON RuleConditionProperty where
  toJSON :: RuleConditionProperty -> Value
toJSON RuleConditionProperty {Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: RuleConditionProperty -> ()
booleanExpression :: RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
dmarcExpression :: RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
ipExpression :: RuleConditionProperty -> Maybe RuleIpExpressionProperty
numberExpression :: RuleConditionProperty -> Maybe RuleNumberExpressionProperty
stringExpression :: RuleConditionProperty -> Maybe RuleStringExpressionProperty
verdictExpression :: RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
    = [(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 -> RuleBooleanExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BooleanExpression" (RuleBooleanExpressionProperty -> (Key, Value))
-> Maybe RuleBooleanExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleBooleanExpressionProperty
booleanExpression,
               Key -> RuleDmarcExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DmarcExpression" (RuleDmarcExpressionProperty -> (Key, Value))
-> Maybe RuleDmarcExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleDmarcExpressionProperty
dmarcExpression,
               Key -> RuleIpExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IpExpression" (RuleIpExpressionProperty -> (Key, Value))
-> Maybe RuleIpExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleIpExpressionProperty
ipExpression,
               Key -> RuleNumberExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NumberExpression" (RuleNumberExpressionProperty -> (Key, Value))
-> Maybe RuleNumberExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleNumberExpressionProperty
numberExpression,
               Key -> RuleStringExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"StringExpression" (RuleStringExpressionProperty -> (Key, Value))
-> Maybe RuleStringExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleStringExpressionProperty
stringExpression,
               Key -> RuleVerdictExpressionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VerdictExpression" (RuleVerdictExpressionProperty -> (Key, Value))
-> Maybe RuleVerdictExpressionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RuleVerdictExpressionProperty
verdictExpression]))
instance Property "BooleanExpression" RuleConditionProperty where
  type PropertyType "BooleanExpression" RuleConditionProperty = RuleBooleanExpressionProperty
  set :: PropertyType "BooleanExpression" RuleConditionProperty
-> RuleConditionProperty -> RuleConditionProperty
set PropertyType "BooleanExpression" RuleConditionProperty
newValue RuleConditionProperty {Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: RuleConditionProperty -> ()
booleanExpression :: RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
dmarcExpression :: RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
ipExpression :: RuleConditionProperty -> Maybe RuleIpExpressionProperty
numberExpression :: RuleConditionProperty -> Maybe RuleNumberExpressionProperty
stringExpression :: RuleConditionProperty -> Maybe RuleStringExpressionProperty
verdictExpression :: RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
    = RuleConditionProperty
        {booleanExpression :: Maybe RuleBooleanExpressionProperty
booleanExpression = RuleBooleanExpressionProperty
-> Maybe RuleBooleanExpressionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BooleanExpression" RuleConditionProperty
RuleBooleanExpressionProperty
newValue, Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: ()
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
instance Property "DmarcExpression" RuleConditionProperty where
  type PropertyType "DmarcExpression" RuleConditionProperty = RuleDmarcExpressionProperty
  set :: PropertyType "DmarcExpression" RuleConditionProperty
-> RuleConditionProperty -> RuleConditionProperty
set PropertyType "DmarcExpression" RuleConditionProperty
newValue RuleConditionProperty {Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: RuleConditionProperty -> ()
booleanExpression :: RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
dmarcExpression :: RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
ipExpression :: RuleConditionProperty -> Maybe RuleIpExpressionProperty
numberExpression :: RuleConditionProperty -> Maybe RuleNumberExpressionProperty
stringExpression :: RuleConditionProperty -> Maybe RuleStringExpressionProperty
verdictExpression :: RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
    = RuleConditionProperty
        {dmarcExpression :: Maybe RuleDmarcExpressionProperty
dmarcExpression = RuleDmarcExpressionProperty -> Maybe RuleDmarcExpressionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DmarcExpression" RuleConditionProperty
RuleDmarcExpressionProperty
newValue, Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
instance Property "IpExpression" RuleConditionProperty where
  type PropertyType "IpExpression" RuleConditionProperty = RuleIpExpressionProperty
  set :: PropertyType "IpExpression" RuleConditionProperty
-> RuleConditionProperty -> RuleConditionProperty
set PropertyType "IpExpression" RuleConditionProperty
newValue RuleConditionProperty {Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: RuleConditionProperty -> ()
booleanExpression :: RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
dmarcExpression :: RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
ipExpression :: RuleConditionProperty -> Maybe RuleIpExpressionProperty
numberExpression :: RuleConditionProperty -> Maybe RuleNumberExpressionProperty
stringExpression :: RuleConditionProperty -> Maybe RuleStringExpressionProperty
verdictExpression :: RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
    = RuleConditionProperty {ipExpression :: Maybe RuleIpExpressionProperty
ipExpression = RuleIpExpressionProperty -> Maybe RuleIpExpressionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "IpExpression" RuleConditionProperty
RuleIpExpressionProperty
newValue, Maybe RuleDmarcExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
instance Property "NumberExpression" RuleConditionProperty where
  type PropertyType "NumberExpression" RuleConditionProperty = RuleNumberExpressionProperty
  set :: PropertyType "NumberExpression" RuleConditionProperty
-> RuleConditionProperty -> RuleConditionProperty
set PropertyType "NumberExpression" RuleConditionProperty
newValue RuleConditionProperty {Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: RuleConditionProperty -> ()
booleanExpression :: RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
dmarcExpression :: RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
ipExpression :: RuleConditionProperty -> Maybe RuleIpExpressionProperty
numberExpression :: RuleConditionProperty -> Maybe RuleNumberExpressionProperty
stringExpression :: RuleConditionProperty -> Maybe RuleStringExpressionProperty
verdictExpression :: RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
    = RuleConditionProperty
        {numberExpression :: Maybe RuleNumberExpressionProperty
numberExpression = RuleNumberExpressionProperty -> Maybe RuleNumberExpressionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "NumberExpression" RuleConditionProperty
RuleNumberExpressionProperty
newValue, Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
instance Property "StringExpression" RuleConditionProperty where
  type PropertyType "StringExpression" RuleConditionProperty = RuleStringExpressionProperty
  set :: PropertyType "StringExpression" RuleConditionProperty
-> RuleConditionProperty -> RuleConditionProperty
set PropertyType "StringExpression" RuleConditionProperty
newValue RuleConditionProperty {Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: RuleConditionProperty -> ()
booleanExpression :: RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
dmarcExpression :: RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
ipExpression :: RuleConditionProperty -> Maybe RuleIpExpressionProperty
numberExpression :: RuleConditionProperty -> Maybe RuleNumberExpressionProperty
stringExpression :: RuleConditionProperty -> Maybe RuleStringExpressionProperty
verdictExpression :: RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
    = RuleConditionProperty
        {stringExpression :: Maybe RuleStringExpressionProperty
stringExpression = RuleStringExpressionProperty -> Maybe RuleStringExpressionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "StringExpression" RuleConditionProperty
RuleStringExpressionProperty
newValue, Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
instance Property "VerdictExpression" RuleConditionProperty where
  type PropertyType "VerdictExpression" RuleConditionProperty = RuleVerdictExpressionProperty
  set :: PropertyType "VerdictExpression" RuleConditionProperty
-> RuleConditionProperty -> RuleConditionProperty
set PropertyType "VerdictExpression" RuleConditionProperty
newValue RuleConditionProperty {Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
Maybe RuleVerdictExpressionProperty
()
haddock_workaround_ :: RuleConditionProperty -> ()
booleanExpression :: RuleConditionProperty -> Maybe RuleBooleanExpressionProperty
dmarcExpression :: RuleConditionProperty -> Maybe RuleDmarcExpressionProperty
ipExpression :: RuleConditionProperty -> Maybe RuleIpExpressionProperty
numberExpression :: RuleConditionProperty -> Maybe RuleNumberExpressionProperty
stringExpression :: RuleConditionProperty -> Maybe RuleStringExpressionProperty
verdictExpression :: RuleConditionProperty -> Maybe RuleVerdictExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
verdictExpression :: Maybe RuleVerdictExpressionProperty
..}
    = RuleConditionProperty
        {verdictExpression :: Maybe RuleVerdictExpressionProperty
verdictExpression = RuleVerdictExpressionProperty
-> Maybe RuleVerdictExpressionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VerdictExpression" RuleConditionProperty
RuleVerdictExpressionProperty
newValue, Maybe RuleDmarcExpressionProperty
Maybe RuleIpExpressionProperty
Maybe RuleBooleanExpressionProperty
Maybe RuleNumberExpressionProperty
Maybe RuleStringExpressionProperty
()
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
haddock_workaround_ :: ()
booleanExpression :: Maybe RuleBooleanExpressionProperty
dmarcExpression :: Maybe RuleDmarcExpressionProperty
ipExpression :: Maybe RuleIpExpressionProperty
numberExpression :: Maybe RuleNumberExpressionProperty
stringExpression :: Maybe RuleStringExpressionProperty
..}