module Stratosphere.Lex.Bot.SpecificationsProperty (
        module Exports, SpecificationsProperty(..),
        mkSpecificationsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Lex.Bot.SubSlotValueElicitationSettingProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SpecificationsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-specifications.html>
    SpecificationsProperty {SpecificationsProperty -> ()
haddock_workaround_ :: (),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-specifications.html#cfn-lex-bot-specifications-slottypeid>
                            SpecificationsProperty -> Value Text
slotTypeId :: (Value Prelude.Text),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-specifications.html#cfn-lex-bot-specifications-valueelicitationsetting>
                            SpecificationsProperty -> SubSlotValueElicitationSettingProperty
valueElicitationSetting :: SubSlotValueElicitationSettingProperty}
  deriving stock (SpecificationsProperty -> SpecificationsProperty -> Bool
(SpecificationsProperty -> SpecificationsProperty -> Bool)
-> (SpecificationsProperty -> SpecificationsProperty -> Bool)
-> Eq SpecificationsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SpecificationsProperty -> SpecificationsProperty -> Bool
== :: SpecificationsProperty -> SpecificationsProperty -> Bool
$c/= :: SpecificationsProperty -> SpecificationsProperty -> Bool
/= :: SpecificationsProperty -> SpecificationsProperty -> Bool
Prelude.Eq, Int -> SpecificationsProperty -> ShowS
[SpecificationsProperty] -> ShowS
SpecificationsProperty -> String
(Int -> SpecificationsProperty -> ShowS)
-> (SpecificationsProperty -> String)
-> ([SpecificationsProperty] -> ShowS)
-> Show SpecificationsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SpecificationsProperty -> ShowS
showsPrec :: Int -> SpecificationsProperty -> ShowS
$cshow :: SpecificationsProperty -> String
show :: SpecificationsProperty -> String
$cshowList :: [SpecificationsProperty] -> ShowS
showList :: [SpecificationsProperty] -> ShowS
Prelude.Show)
mkSpecificationsProperty ::
  Value Prelude.Text
  -> SubSlotValueElicitationSettingProperty -> SpecificationsProperty
mkSpecificationsProperty :: Value Text
-> SubSlotValueElicitationSettingProperty -> SpecificationsProperty
mkSpecificationsProperty Value Text
slotTypeId SubSlotValueElicitationSettingProperty
valueElicitationSetting
  = SpecificationsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), slotTypeId :: Value Text
slotTypeId = Value Text
slotTypeId,
       valueElicitationSetting :: SubSlotValueElicitationSettingProperty
valueElicitationSetting = SubSlotValueElicitationSettingProperty
valueElicitationSetting}
instance ToResourceProperties SpecificationsProperty where
  toResourceProperties :: SpecificationsProperty -> ResourceProperties
toResourceProperties SpecificationsProperty {()
Value Text
SubSlotValueElicitationSettingProperty
haddock_workaround_ :: SpecificationsProperty -> ()
slotTypeId :: SpecificationsProperty -> Value Text
valueElicitationSetting :: SpecificationsProperty -> SubSlotValueElicitationSettingProperty
haddock_workaround_ :: ()
slotTypeId :: Value Text
valueElicitationSetting :: SubSlotValueElicitationSettingProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Lex::Bot.Specifications",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"SlotTypeId" 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
slotTypeId,
                       Key
"ValueElicitationSetting" Key -> SubSlotValueElicitationSettingProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= SubSlotValueElicitationSettingProperty
valueElicitationSetting]}
instance JSON.ToJSON SpecificationsProperty where
  toJSON :: SpecificationsProperty -> Value
toJSON SpecificationsProperty {()
Value Text
SubSlotValueElicitationSettingProperty
haddock_workaround_ :: SpecificationsProperty -> ()
slotTypeId :: SpecificationsProperty -> Value Text
valueElicitationSetting :: SpecificationsProperty -> SubSlotValueElicitationSettingProperty
haddock_workaround_ :: ()
slotTypeId :: Value Text
valueElicitationSetting :: SubSlotValueElicitationSettingProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"SlotTypeId" 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
slotTypeId,
         Key
"ValueElicitationSetting" Key -> SubSlotValueElicitationSettingProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= SubSlotValueElicitationSettingProperty
valueElicitationSetting]
instance Property "SlotTypeId" SpecificationsProperty where
  type PropertyType "SlotTypeId" SpecificationsProperty = Value Prelude.Text
  set :: PropertyType "SlotTypeId" SpecificationsProperty
-> SpecificationsProperty -> SpecificationsProperty
set PropertyType "SlotTypeId" SpecificationsProperty
newValue SpecificationsProperty {()
Value Text
SubSlotValueElicitationSettingProperty
haddock_workaround_ :: SpecificationsProperty -> ()
slotTypeId :: SpecificationsProperty -> Value Text
valueElicitationSetting :: SpecificationsProperty -> SubSlotValueElicitationSettingProperty
haddock_workaround_ :: ()
slotTypeId :: Value Text
valueElicitationSetting :: SubSlotValueElicitationSettingProperty
..}
    = SpecificationsProperty {slotTypeId :: Value Text
slotTypeId = PropertyType "SlotTypeId" SpecificationsProperty
Value Text
newValue, ()
SubSlotValueElicitationSettingProperty
haddock_workaround_ :: ()
valueElicitationSetting :: SubSlotValueElicitationSettingProperty
haddock_workaround_ :: ()
valueElicitationSetting :: SubSlotValueElicitationSettingProperty
..}
instance Property "ValueElicitationSetting" SpecificationsProperty where
  type PropertyType "ValueElicitationSetting" SpecificationsProperty = SubSlotValueElicitationSettingProperty
  set :: PropertyType "ValueElicitationSetting" SpecificationsProperty
-> SpecificationsProperty -> SpecificationsProperty
set PropertyType "ValueElicitationSetting" SpecificationsProperty
newValue SpecificationsProperty {()
Value Text
SubSlotValueElicitationSettingProperty
haddock_workaround_ :: SpecificationsProperty -> ()
slotTypeId :: SpecificationsProperty -> Value Text
valueElicitationSetting :: SpecificationsProperty -> SubSlotValueElicitationSettingProperty
haddock_workaround_ :: ()
slotTypeId :: Value Text
valueElicitationSetting :: SubSlotValueElicitationSettingProperty
..}
    = SpecificationsProperty {valueElicitationSetting :: SubSlotValueElicitationSettingProperty
valueElicitationSetting = PropertyType "ValueElicitationSetting" SpecificationsProperty
SubSlotValueElicitationSettingProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
slotTypeId :: Value Text
haddock_workaround_ :: ()
slotTypeId :: Value Text
..}