module Stratosphere.Lex.Bot.SlotValueSelectionSettingProperty (
        module Exports, SlotValueSelectionSettingProperty(..),
        mkSlotValueSelectionSettingProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Lex.Bot.AdvancedRecognitionSettingProperty as Exports
import {-# SOURCE #-} Stratosphere.Lex.Bot.SlotValueRegexFilterProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SlotValueSelectionSettingProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-slotvalueselectionsetting.html>
    SlotValueSelectionSettingProperty {SlotValueSelectionSettingProperty -> ()
haddock_workaround_ :: (),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-slotvalueselectionsetting.html#cfn-lex-bot-slotvalueselectionsetting-advancedrecognitionsetting>
                                       SlotValueSelectionSettingProperty
-> Maybe AdvancedRecognitionSettingProperty
advancedRecognitionSetting :: (Prelude.Maybe AdvancedRecognitionSettingProperty),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-slotvalueselectionsetting.html#cfn-lex-bot-slotvalueselectionsetting-regexfilter>
                                       SlotValueSelectionSettingProperty
-> Maybe SlotValueRegexFilterProperty
regexFilter :: (Prelude.Maybe SlotValueRegexFilterProperty),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-slotvalueselectionsetting.html#cfn-lex-bot-slotvalueselectionsetting-resolutionstrategy>
                                       SlotValueSelectionSettingProperty -> Value Text
resolutionStrategy :: (Value Prelude.Text)}
  deriving stock (SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty -> Bool
(SlotValueSelectionSettingProperty
 -> SlotValueSelectionSettingProperty -> Bool)
-> (SlotValueSelectionSettingProperty
    -> SlotValueSelectionSettingProperty -> Bool)
-> Eq SlotValueSelectionSettingProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty -> Bool
== :: SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty -> Bool
$c/= :: SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty -> Bool
/= :: SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty -> Bool
Prelude.Eq, Int -> SlotValueSelectionSettingProperty -> ShowS
[SlotValueSelectionSettingProperty] -> ShowS
SlotValueSelectionSettingProperty -> String
(Int -> SlotValueSelectionSettingProperty -> ShowS)
-> (SlotValueSelectionSettingProperty -> String)
-> ([SlotValueSelectionSettingProperty] -> ShowS)
-> Show SlotValueSelectionSettingProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SlotValueSelectionSettingProperty -> ShowS
showsPrec :: Int -> SlotValueSelectionSettingProperty -> ShowS
$cshow :: SlotValueSelectionSettingProperty -> String
show :: SlotValueSelectionSettingProperty -> String
$cshowList :: [SlotValueSelectionSettingProperty] -> ShowS
showList :: [SlotValueSelectionSettingProperty] -> ShowS
Prelude.Show)
mkSlotValueSelectionSettingProperty ::
  Value Prelude.Text -> SlotValueSelectionSettingProperty
mkSlotValueSelectionSettingProperty :: Value Text -> SlotValueSelectionSettingProperty
mkSlotValueSelectionSettingProperty Value Text
resolutionStrategy
  = SlotValueSelectionSettingProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), resolutionStrategy :: Value Text
resolutionStrategy = Value Text
resolutionStrategy,
       advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
advancedRecognitionSetting = Maybe AdvancedRecognitionSettingProperty
forall a. Maybe a
Prelude.Nothing,
       regexFilter :: Maybe SlotValueRegexFilterProperty
regexFilter = Maybe SlotValueRegexFilterProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties SlotValueSelectionSettingProperty where
  toResourceProperties :: SlotValueSelectionSettingProperty -> ResourceProperties
toResourceProperties SlotValueSelectionSettingProperty {Maybe AdvancedRecognitionSettingProperty
Maybe SlotValueRegexFilterProperty
()
Value Text
haddock_workaround_ :: SlotValueSelectionSettingProperty -> ()
advancedRecognitionSetting :: SlotValueSelectionSettingProperty
-> Maybe AdvancedRecognitionSettingProperty
regexFilter :: SlotValueSelectionSettingProperty
-> Maybe SlotValueRegexFilterProperty
resolutionStrategy :: SlotValueSelectionSettingProperty -> Value Text
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
regexFilter :: Maybe SlotValueRegexFilterProperty
resolutionStrategy :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Lex::Bot.SlotValueSelectionSetting",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"ResolutionStrategy" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
resolutionStrategy]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> AdvancedRecognitionSettingProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AdvancedRecognitionSetting"
                                 (AdvancedRecognitionSettingProperty -> (Key, Value))
-> Maybe AdvancedRecognitionSettingProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AdvancedRecognitionSettingProperty
advancedRecognitionSetting,
                               Key -> SlotValueRegexFilterProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RegexFilter" (SlotValueRegexFilterProperty -> (Key, Value))
-> Maybe SlotValueRegexFilterProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SlotValueRegexFilterProperty
regexFilter]))}
instance JSON.ToJSON SlotValueSelectionSettingProperty where
  toJSON :: SlotValueSelectionSettingProperty -> Value
toJSON SlotValueSelectionSettingProperty {Maybe AdvancedRecognitionSettingProperty
Maybe SlotValueRegexFilterProperty
()
Value Text
haddock_workaround_ :: SlotValueSelectionSettingProperty -> ()
advancedRecognitionSetting :: SlotValueSelectionSettingProperty
-> Maybe AdvancedRecognitionSettingProperty
regexFilter :: SlotValueSelectionSettingProperty
-> Maybe SlotValueRegexFilterProperty
resolutionStrategy :: SlotValueSelectionSettingProperty -> Value Text
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
regexFilter :: Maybe SlotValueRegexFilterProperty
resolutionStrategy :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"ResolutionStrategy" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
resolutionStrategy]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> AdvancedRecognitionSettingProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AdvancedRecognitionSetting"
                    (AdvancedRecognitionSettingProperty -> (Key, Value))
-> Maybe AdvancedRecognitionSettingProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AdvancedRecognitionSettingProperty
advancedRecognitionSetting,
                  Key -> SlotValueRegexFilterProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RegexFilter" (SlotValueRegexFilterProperty -> (Key, Value))
-> Maybe SlotValueRegexFilterProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SlotValueRegexFilterProperty
regexFilter])))
instance Property "AdvancedRecognitionSetting" SlotValueSelectionSettingProperty where
  type PropertyType "AdvancedRecognitionSetting" SlotValueSelectionSettingProperty = AdvancedRecognitionSettingProperty
  set :: PropertyType
  "AdvancedRecognitionSetting" SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty
set PropertyType
  "AdvancedRecognitionSetting" SlotValueSelectionSettingProperty
newValue SlotValueSelectionSettingProperty {Maybe AdvancedRecognitionSettingProperty
Maybe SlotValueRegexFilterProperty
()
Value Text
haddock_workaround_ :: SlotValueSelectionSettingProperty -> ()
advancedRecognitionSetting :: SlotValueSelectionSettingProperty
-> Maybe AdvancedRecognitionSettingProperty
regexFilter :: SlotValueSelectionSettingProperty
-> Maybe SlotValueRegexFilterProperty
resolutionStrategy :: SlotValueSelectionSettingProperty -> Value Text
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
regexFilter :: Maybe SlotValueRegexFilterProperty
resolutionStrategy :: Value Text
..}
    = SlotValueSelectionSettingProperty
        {advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
advancedRecognitionSetting = AdvancedRecognitionSettingProperty
-> Maybe AdvancedRecognitionSettingProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "AdvancedRecognitionSetting" SlotValueSelectionSettingProperty
AdvancedRecognitionSettingProperty
newValue, Maybe SlotValueRegexFilterProperty
()
Value Text
haddock_workaround_ :: ()
regexFilter :: Maybe SlotValueRegexFilterProperty
resolutionStrategy :: Value Text
haddock_workaround_ :: ()
regexFilter :: Maybe SlotValueRegexFilterProperty
resolutionStrategy :: Value Text
..}
instance Property "RegexFilter" SlotValueSelectionSettingProperty where
  type PropertyType "RegexFilter" SlotValueSelectionSettingProperty = SlotValueRegexFilterProperty
  set :: PropertyType "RegexFilter" SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty
set PropertyType "RegexFilter" SlotValueSelectionSettingProperty
newValue SlotValueSelectionSettingProperty {Maybe AdvancedRecognitionSettingProperty
Maybe SlotValueRegexFilterProperty
()
Value Text
haddock_workaround_ :: SlotValueSelectionSettingProperty -> ()
advancedRecognitionSetting :: SlotValueSelectionSettingProperty
-> Maybe AdvancedRecognitionSettingProperty
regexFilter :: SlotValueSelectionSettingProperty
-> Maybe SlotValueRegexFilterProperty
resolutionStrategy :: SlotValueSelectionSettingProperty -> Value Text
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
regexFilter :: Maybe SlotValueRegexFilterProperty
resolutionStrategy :: Value Text
..}
    = SlotValueSelectionSettingProperty
        {regexFilter :: Maybe SlotValueRegexFilterProperty
regexFilter = SlotValueRegexFilterProperty -> Maybe SlotValueRegexFilterProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RegexFilter" SlotValueSelectionSettingProperty
SlotValueRegexFilterProperty
newValue, Maybe AdvancedRecognitionSettingProperty
()
Value Text
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
resolutionStrategy :: Value Text
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
resolutionStrategy :: Value Text
..}
instance Property "ResolutionStrategy" SlotValueSelectionSettingProperty where
  type PropertyType "ResolutionStrategy" SlotValueSelectionSettingProperty = Value Prelude.Text
  set :: PropertyType "ResolutionStrategy" SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty
-> SlotValueSelectionSettingProperty
set PropertyType "ResolutionStrategy" SlotValueSelectionSettingProperty
newValue SlotValueSelectionSettingProperty {Maybe AdvancedRecognitionSettingProperty
Maybe SlotValueRegexFilterProperty
()
Value Text
haddock_workaround_ :: SlotValueSelectionSettingProperty -> ()
advancedRecognitionSetting :: SlotValueSelectionSettingProperty
-> Maybe AdvancedRecognitionSettingProperty
regexFilter :: SlotValueSelectionSettingProperty
-> Maybe SlotValueRegexFilterProperty
resolutionStrategy :: SlotValueSelectionSettingProperty -> Value Text
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
regexFilter :: Maybe SlotValueRegexFilterProperty
resolutionStrategy :: Value Text
..}
    = SlotValueSelectionSettingProperty
        {resolutionStrategy :: Value Text
resolutionStrategy = PropertyType "ResolutionStrategy" SlotValueSelectionSettingProperty
Value Text
newValue, Maybe AdvancedRecognitionSettingProperty
Maybe SlotValueRegexFilterProperty
()
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
regexFilter :: Maybe SlotValueRegexFilterProperty
haddock_workaround_ :: ()
advancedRecognitionSetting :: Maybe AdvancedRecognitionSettingProperty
regexFilter :: Maybe SlotValueRegexFilterProperty
..}