module Stratosphere.Cognito.UserPool.VerificationMessageTemplateProperty (
        VerificationMessageTemplateProperty(..),
        mkVerificationMessageTemplateProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data VerificationMessageTemplateProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html>
    VerificationMessageTemplateProperty {VerificationMessageTemplateProperty -> ()
haddock_workaround_ :: (),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-defaultemailoption>
                                         VerificationMessageTemplateProperty -> Maybe (Value Text)
defaultEmailOption :: (Prelude.Maybe (Value Prelude.Text)),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-emailmessage>
                                         VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: (Prelude.Maybe (Value Prelude.Text)),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-emailmessagebylink>
                                         VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: (Prelude.Maybe (Value Prelude.Text)),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-emailsubject>
                                         VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: (Prelude.Maybe (Value Prelude.Text)),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-emailsubjectbylink>
                                         VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: (Prelude.Maybe (Value Prelude.Text)),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-smsmessage>
                                         VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty -> Bool
(VerificationMessageTemplateProperty
 -> VerificationMessageTemplateProperty -> Bool)
-> (VerificationMessageTemplateProperty
    -> VerificationMessageTemplateProperty -> Bool)
-> Eq VerificationMessageTemplateProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty -> Bool
== :: VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty -> Bool
$c/= :: VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty -> Bool
/= :: VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty -> Bool
Prelude.Eq, Int -> VerificationMessageTemplateProperty -> ShowS
[VerificationMessageTemplateProperty] -> ShowS
VerificationMessageTemplateProperty -> String
(Int -> VerificationMessageTemplateProperty -> ShowS)
-> (VerificationMessageTemplateProperty -> String)
-> ([VerificationMessageTemplateProperty] -> ShowS)
-> Show VerificationMessageTemplateProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> VerificationMessageTemplateProperty -> ShowS
showsPrec :: Int -> VerificationMessageTemplateProperty -> ShowS
$cshow :: VerificationMessageTemplateProperty -> String
show :: VerificationMessageTemplateProperty -> String
$cshowList :: [VerificationMessageTemplateProperty] -> ShowS
showList :: [VerificationMessageTemplateProperty] -> ShowS
Prelude.Show)
mkVerificationMessageTemplateProperty ::
  VerificationMessageTemplateProperty
mkVerificationMessageTemplateProperty :: VerificationMessageTemplateProperty
mkVerificationMessageTemplateProperty
  = VerificationMessageTemplateProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), defaultEmailOption :: Maybe (Value Text)
defaultEmailOption = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       emailMessage :: Maybe (Value Text)
emailMessage = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       emailMessageByLink :: Maybe (Value Text)
emailMessageByLink = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       emailSubject :: Maybe (Value Text)
emailSubject = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       emailSubjectByLink :: Maybe (Value Text)
emailSubjectByLink = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, smsMessage :: Maybe (Value Text)
smsMessage = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties VerificationMessageTemplateProperty where
  toResourceProperties :: VerificationMessageTemplateProperty -> ResourceProperties
toResourceProperties VerificationMessageTemplateProperty {Maybe (Value Text)
()
haddock_workaround_ :: VerificationMessageTemplateProperty -> ()
defaultEmailOption :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Cognito::UserPool.VerificationMessageTemplate",
         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 -> 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
"DefaultEmailOption" (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)
defaultEmailOption,
                            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
"EmailMessage" (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)
emailMessage,
                            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
"EmailMessageByLink" (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)
emailMessageByLink,
                            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
"EmailSubject" (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)
emailSubject,
                            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
"EmailSubjectByLink" (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)
emailSubjectByLink,
                            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
"SmsMessage" (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)
smsMessage])}
instance JSON.ToJSON VerificationMessageTemplateProperty where
  toJSON :: VerificationMessageTemplateProperty -> Value
toJSON VerificationMessageTemplateProperty {Maybe (Value Text)
()
haddock_workaround_ :: VerificationMessageTemplateProperty -> ()
defaultEmailOption :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: 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 -> 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
"DefaultEmailOption" (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)
defaultEmailOption,
               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
"EmailMessage" (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)
emailMessage,
               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
"EmailMessageByLink" (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)
emailMessageByLink,
               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
"EmailSubject" (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)
emailSubject,
               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
"EmailSubjectByLink" (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)
emailSubjectByLink,
               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
"SmsMessage" (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)
smsMessage]))
instance Property "DefaultEmailOption" VerificationMessageTemplateProperty where
  type PropertyType "DefaultEmailOption" VerificationMessageTemplateProperty = Value Prelude.Text
  set :: PropertyType
  "DefaultEmailOption" VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
set PropertyType
  "DefaultEmailOption" VerificationMessageTemplateProperty
newValue VerificationMessageTemplateProperty {Maybe (Value Text)
()
haddock_workaround_ :: VerificationMessageTemplateProperty -> ()
defaultEmailOption :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
    = VerificationMessageTemplateProperty
        {defaultEmailOption :: Maybe (Value Text)
defaultEmailOption = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "DefaultEmailOption" VerificationMessageTemplateProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
haddock_workaround_ :: ()
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
instance Property "EmailMessage" VerificationMessageTemplateProperty where
  type PropertyType "EmailMessage" VerificationMessageTemplateProperty = Value Prelude.Text
  set :: PropertyType "EmailMessage" VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
set PropertyType "EmailMessage" VerificationMessageTemplateProperty
newValue VerificationMessageTemplateProperty {Maybe (Value Text)
()
haddock_workaround_ :: VerificationMessageTemplateProperty -> ()
defaultEmailOption :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
    = VerificationMessageTemplateProperty
        {emailMessage :: Maybe (Value Text)
emailMessage = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EmailMessage" VerificationMessageTemplateProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
instance Property "EmailMessageByLink" VerificationMessageTemplateProperty where
  type PropertyType "EmailMessageByLink" VerificationMessageTemplateProperty = Value Prelude.Text
  set :: PropertyType
  "EmailMessageByLink" VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
set PropertyType
  "EmailMessageByLink" VerificationMessageTemplateProperty
newValue VerificationMessageTemplateProperty {Maybe (Value Text)
()
haddock_workaround_ :: VerificationMessageTemplateProperty -> ()
defaultEmailOption :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
    = VerificationMessageTemplateProperty
        {emailMessageByLink :: Maybe (Value Text)
emailMessageByLink = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "EmailMessageByLink" VerificationMessageTemplateProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
instance Property "EmailSubject" VerificationMessageTemplateProperty where
  type PropertyType "EmailSubject" VerificationMessageTemplateProperty = Value Prelude.Text
  set :: PropertyType "EmailSubject" VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
set PropertyType "EmailSubject" VerificationMessageTemplateProperty
newValue VerificationMessageTemplateProperty {Maybe (Value Text)
()
haddock_workaround_ :: VerificationMessageTemplateProperty -> ()
defaultEmailOption :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
    = VerificationMessageTemplateProperty
        {emailSubject :: Maybe (Value Text)
emailSubject = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EmailSubject" VerificationMessageTemplateProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
instance Property "EmailSubjectByLink" VerificationMessageTemplateProperty where
  type PropertyType "EmailSubjectByLink" VerificationMessageTemplateProperty = Value Prelude.Text
  set :: PropertyType
  "EmailSubjectByLink" VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
set PropertyType
  "EmailSubjectByLink" VerificationMessageTemplateProperty
newValue VerificationMessageTemplateProperty {Maybe (Value Text)
()
haddock_workaround_ :: VerificationMessageTemplateProperty -> ()
defaultEmailOption :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
    = VerificationMessageTemplateProperty
        {emailSubjectByLink :: Maybe (Value Text)
emailSubjectByLink = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "EmailSubjectByLink" VerificationMessageTemplateProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
instance Property "SmsMessage" VerificationMessageTemplateProperty where
  type PropertyType "SmsMessage" VerificationMessageTemplateProperty = Value Prelude.Text
  set :: PropertyType "SmsMessage" VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
-> VerificationMessageTemplateProperty
set PropertyType "SmsMessage" VerificationMessageTemplateProperty
newValue VerificationMessageTemplateProperty {Maybe (Value Text)
()
haddock_workaround_ :: VerificationMessageTemplateProperty -> ()
defaultEmailOption :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailMessageByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubject :: VerificationMessageTemplateProperty -> Maybe (Value Text)
emailSubjectByLink :: VerificationMessageTemplateProperty -> Maybe (Value Text)
smsMessage :: VerificationMessageTemplateProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
smsMessage :: Maybe (Value Text)
..}
    = VerificationMessageTemplateProperty
        {smsMessage :: Maybe (Value Text)
smsMessage = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SmsMessage" VerificationMessageTemplateProperty
Value Text
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
haddock_workaround_ :: ()
defaultEmailOption :: Maybe (Value Text)
emailMessage :: Maybe (Value Text)
emailMessageByLink :: Maybe (Value Text)
emailSubject :: Maybe (Value Text)
emailSubjectByLink :: Maybe (Value Text)
..}