module Stratosphere.Pinpoint.Campaign.WriteTreatmentResourceProperty (
        module Exports, WriteTreatmentResourceProperty(..),
        mkWriteTreatmentResourceProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Pinpoint.Campaign.CustomDeliveryConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.Pinpoint.Campaign.MessageConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.Pinpoint.Campaign.ScheduleProperty as Exports
import {-# SOURCE #-} Stratosphere.Pinpoint.Campaign.TemplateConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data WriteTreatmentResourceProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html>
    WriteTreatmentResourceProperty {WriteTreatmentResourceProperty -> ()
haddock_workaround_ :: (),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-customdeliveryconfiguration>
                                    WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
customDeliveryConfiguration :: (Prelude.Maybe CustomDeliveryConfigurationProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-messageconfiguration>
                                    WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
messageConfiguration :: (Prelude.Maybe MessageConfigurationProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-schedule>
                                    WriteTreatmentResourceProperty -> Maybe ScheduleProperty
schedule :: (Prelude.Maybe ScheduleProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-sizepercent>
                                    WriteTreatmentResourceProperty -> Maybe (Value Integer)
sizePercent :: (Prelude.Maybe (Value Prelude.Integer)),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-templateconfiguration>
                                    WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
templateConfiguration :: (Prelude.Maybe TemplateConfigurationProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-treatmentdescription>
                                    WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentDescription :: (Prelude.Maybe (Value Prelude.Text)),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-treatmentname>
                                    WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> Bool
(WriteTreatmentResourceProperty
 -> WriteTreatmentResourceProperty -> Bool)
-> (WriteTreatmentResourceProperty
    -> WriteTreatmentResourceProperty -> Bool)
-> Eq WriteTreatmentResourceProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> Bool
== :: WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> Bool
$c/= :: WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> Bool
/= :: WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> Bool
Prelude.Eq, Int -> WriteTreatmentResourceProperty -> ShowS
[WriteTreatmentResourceProperty] -> ShowS
WriteTreatmentResourceProperty -> String
(Int -> WriteTreatmentResourceProperty -> ShowS)
-> (WriteTreatmentResourceProperty -> String)
-> ([WriteTreatmentResourceProperty] -> ShowS)
-> Show WriteTreatmentResourceProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WriteTreatmentResourceProperty -> ShowS
showsPrec :: Int -> WriteTreatmentResourceProperty -> ShowS
$cshow :: WriteTreatmentResourceProperty -> String
show :: WriteTreatmentResourceProperty -> String
$cshowList :: [WriteTreatmentResourceProperty] -> ShowS
showList :: [WriteTreatmentResourceProperty] -> ShowS
Prelude.Show)
mkWriteTreatmentResourceProperty :: WriteTreatmentResourceProperty
mkWriteTreatmentResourceProperty :: WriteTreatmentResourceProperty
mkWriteTreatmentResourceProperty
  = WriteTreatmentResourceProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
customDeliveryConfiguration = Maybe CustomDeliveryConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       messageConfiguration :: Maybe MessageConfigurationProperty
messageConfiguration = Maybe MessageConfigurationProperty
forall a. Maybe a
Prelude.Nothing, schedule :: Maybe ScheduleProperty
schedule = Maybe ScheduleProperty
forall a. Maybe a
Prelude.Nothing,
       sizePercent :: Maybe (Value Integer)
sizePercent = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       templateConfiguration :: Maybe TemplateConfigurationProperty
templateConfiguration = Maybe TemplateConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       treatmentDescription :: Maybe (Value Text)
treatmentDescription = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       treatmentName :: Maybe (Value Text)
treatmentName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties WriteTreatmentResourceProperty where
  toResourceProperties :: WriteTreatmentResourceProperty -> ResourceProperties
toResourceProperties WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Pinpoint::Campaign.WriteTreatmentResource",
         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 -> CustomDeliveryConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CustomDeliveryConfiguration"
                              (CustomDeliveryConfigurationProperty -> (Key, Value))
-> Maybe CustomDeliveryConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CustomDeliveryConfigurationProperty
customDeliveryConfiguration,
                            Key -> MessageConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MessageConfiguration" (MessageConfigurationProperty -> (Key, Value))
-> Maybe MessageConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MessageConfigurationProperty
messageConfiguration,
                            Key -> ScheduleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Schedule" (ScheduleProperty -> (Key, Value))
-> Maybe ScheduleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ScheduleProperty
schedule,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SizePercent" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
sizePercent,
                            Key -> TemplateConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TemplateConfiguration"
                              (TemplateConfigurationProperty -> (Key, Value))
-> Maybe TemplateConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TemplateConfigurationProperty
templateConfiguration,
                            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
"TreatmentDescription" (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)
treatmentDescription,
                            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
"TreatmentName" (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)
treatmentName])}
instance JSON.ToJSON WriteTreatmentResourceProperty where
  toJSON :: WriteTreatmentResourceProperty -> Value
toJSON WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = [(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 -> CustomDeliveryConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CustomDeliveryConfiguration"
                 (CustomDeliveryConfigurationProperty -> (Key, Value))
-> Maybe CustomDeliveryConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CustomDeliveryConfigurationProperty
customDeliveryConfiguration,
               Key -> MessageConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MessageConfiguration" (MessageConfigurationProperty -> (Key, Value))
-> Maybe MessageConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MessageConfigurationProperty
messageConfiguration,
               Key -> ScheduleProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Schedule" (ScheduleProperty -> (Key, Value))
-> Maybe ScheduleProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ScheduleProperty
schedule,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SizePercent" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
sizePercent,
               Key -> TemplateConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TemplateConfiguration"
                 (TemplateConfigurationProperty -> (Key, Value))
-> Maybe TemplateConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TemplateConfigurationProperty
templateConfiguration,
               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
"TreatmentDescription" (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)
treatmentDescription,
               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
"TreatmentName" (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)
treatmentName]))
instance Property "CustomDeliveryConfiguration" WriteTreatmentResourceProperty where
  type PropertyType "CustomDeliveryConfiguration" WriteTreatmentResourceProperty = CustomDeliveryConfigurationProperty
  set :: PropertyType
  "CustomDeliveryConfiguration" WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> WriteTreatmentResourceProperty
set PropertyType
  "CustomDeliveryConfiguration" WriteTreatmentResourceProperty
newValue WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = WriteTreatmentResourceProperty
        {customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
customDeliveryConfiguration = CustomDeliveryConfigurationProperty
-> Maybe CustomDeliveryConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "CustomDeliveryConfiguration" WriteTreatmentResourceProperty
CustomDeliveryConfigurationProperty
newValue, Maybe (Value Integer)
Maybe (Value Text)
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: ()
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
haddock_workaround_ :: ()
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
instance Property "MessageConfiguration" WriteTreatmentResourceProperty where
  type PropertyType "MessageConfiguration" WriteTreatmentResourceProperty = MessageConfigurationProperty
  set :: PropertyType "MessageConfiguration" WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> WriteTreatmentResourceProperty
set PropertyType "MessageConfiguration" WriteTreatmentResourceProperty
newValue WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = WriteTreatmentResourceProperty
        {messageConfiguration :: Maybe MessageConfigurationProperty
messageConfiguration = MessageConfigurationProperty -> Maybe MessageConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MessageConfiguration" WriteTreatmentResourceProperty
MessageConfigurationProperty
newValue, Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
instance Property "Schedule" WriteTreatmentResourceProperty where
  type PropertyType "Schedule" WriteTreatmentResourceProperty = ScheduleProperty
  set :: PropertyType "Schedule" WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> WriteTreatmentResourceProperty
set PropertyType "Schedule" WriteTreatmentResourceProperty
newValue WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = WriteTreatmentResourceProperty
        {schedule :: Maybe ScheduleProperty
schedule = ScheduleProperty -> Maybe ScheduleProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Schedule" WriteTreatmentResourceProperty
ScheduleProperty
newValue, Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
instance Property "SizePercent" WriteTreatmentResourceProperty where
  type PropertyType "SizePercent" WriteTreatmentResourceProperty = Value Prelude.Integer
  set :: PropertyType "SizePercent" WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> WriteTreatmentResourceProperty
set PropertyType "SizePercent" WriteTreatmentResourceProperty
newValue WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = WriteTreatmentResourceProperty
        {sizePercent :: Maybe (Value Integer)
sizePercent = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SizePercent" WriteTreatmentResourceProperty
Value Integer
newValue, Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
instance Property "TemplateConfiguration" WriteTreatmentResourceProperty where
  type PropertyType "TemplateConfiguration" WriteTreatmentResourceProperty = TemplateConfigurationProperty
  set :: PropertyType "TemplateConfiguration" WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> WriteTreatmentResourceProperty
set PropertyType "TemplateConfiguration" WriteTreatmentResourceProperty
newValue WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = WriteTreatmentResourceProperty
        {templateConfiguration :: Maybe TemplateConfigurationProperty
templateConfiguration = TemplateConfigurationProperty
-> Maybe TemplateConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TemplateConfiguration" WriteTreatmentResourceProperty
TemplateConfigurationProperty
newValue, Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
()
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
instance Property "TreatmentDescription" WriteTreatmentResourceProperty where
  type PropertyType "TreatmentDescription" WriteTreatmentResourceProperty = Value Prelude.Text
  set :: PropertyType "TreatmentDescription" WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> WriteTreatmentResourceProperty
set PropertyType "TreatmentDescription" WriteTreatmentResourceProperty
newValue WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = WriteTreatmentResourceProperty
        {treatmentDescription :: Maybe (Value Text)
treatmentDescription = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TreatmentDescription" WriteTreatmentResourceProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentName :: Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentName :: Maybe (Value Text)
..}
instance Property "TreatmentName" WriteTreatmentResourceProperty where
  type PropertyType "TreatmentName" WriteTreatmentResourceProperty = Value Prelude.Text
  set :: PropertyType "TreatmentName" WriteTreatmentResourceProperty
-> WriteTreatmentResourceProperty -> WriteTreatmentResourceProperty
set PropertyType "TreatmentName" WriteTreatmentResourceProperty
newValue WriteTreatmentResourceProperty {Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: WriteTreatmentResourceProperty -> ()
customDeliveryConfiguration :: WriteTreatmentResourceProperty
-> Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: WriteTreatmentResourceProperty
-> Maybe MessageConfigurationProperty
schedule :: WriteTreatmentResourceProperty -> Maybe ScheduleProperty
sizePercent :: WriteTreatmentResourceProperty -> Maybe (Value Integer)
templateConfiguration :: WriteTreatmentResourceProperty
-> Maybe TemplateConfigurationProperty
treatmentDescription :: WriteTreatmentResourceProperty -> Maybe (Value Text)
treatmentName :: WriteTreatmentResourceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
treatmentName :: Maybe (Value Text)
..}
    = WriteTreatmentResourceProperty
        {treatmentName :: Maybe (Value Text)
treatmentName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TreatmentName" WriteTreatmentResourceProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomDeliveryConfigurationProperty
Maybe MessageConfigurationProperty
Maybe ScheduleProperty
Maybe TemplateConfigurationProperty
()
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
haddock_workaround_ :: ()
customDeliveryConfiguration :: Maybe CustomDeliveryConfigurationProperty
messageConfiguration :: Maybe MessageConfigurationProperty
schedule :: Maybe ScheduleProperty
sizePercent :: Maybe (Value Integer)
templateConfiguration :: Maybe TemplateConfigurationProperty
treatmentDescription :: Maybe (Value Text)
..}