module Stratosphere.Lex.Bot.NluImprovementSpecificationProperty (
        NluImprovementSpecificationProperty(..),
        mkNluImprovementSpecificationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data NluImprovementSpecificationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-nluimprovementspecification.html>
    NluImprovementSpecificationProperty {NluImprovementSpecificationProperty -> ()
haddock_workaround_ :: (),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-nluimprovementspecification.html#cfn-lex-bot-nluimprovementspecification-enabled>
                                         NluImprovementSpecificationProperty -> Value Bool
enabled :: (Value Prelude.Bool)}
  deriving stock (NluImprovementSpecificationProperty
-> NluImprovementSpecificationProperty -> Bool
(NluImprovementSpecificationProperty
 -> NluImprovementSpecificationProperty -> Bool)
-> (NluImprovementSpecificationProperty
    -> NluImprovementSpecificationProperty -> Bool)
-> Eq NluImprovementSpecificationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NluImprovementSpecificationProperty
-> NluImprovementSpecificationProperty -> Bool
== :: NluImprovementSpecificationProperty
-> NluImprovementSpecificationProperty -> Bool
$c/= :: NluImprovementSpecificationProperty
-> NluImprovementSpecificationProperty -> Bool
/= :: NluImprovementSpecificationProperty
-> NluImprovementSpecificationProperty -> Bool
Prelude.Eq, Int -> NluImprovementSpecificationProperty -> ShowS
[NluImprovementSpecificationProperty] -> ShowS
NluImprovementSpecificationProperty -> String
(Int -> NluImprovementSpecificationProperty -> ShowS)
-> (NluImprovementSpecificationProperty -> String)
-> ([NluImprovementSpecificationProperty] -> ShowS)
-> Show NluImprovementSpecificationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NluImprovementSpecificationProperty -> ShowS
showsPrec :: Int -> NluImprovementSpecificationProperty -> ShowS
$cshow :: NluImprovementSpecificationProperty -> String
show :: NluImprovementSpecificationProperty -> String
$cshowList :: [NluImprovementSpecificationProperty] -> ShowS
showList :: [NluImprovementSpecificationProperty] -> ShowS
Prelude.Show)
mkNluImprovementSpecificationProperty ::
  Value Prelude.Bool -> NluImprovementSpecificationProperty
mkNluImprovementSpecificationProperty :: Value Bool -> NluImprovementSpecificationProperty
mkNluImprovementSpecificationProperty Value Bool
enabled
  = NluImprovementSpecificationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), enabled :: Value Bool
enabled = Value Bool
enabled}
instance ToResourceProperties NluImprovementSpecificationProperty where
  toResourceProperties :: NluImprovementSpecificationProperty -> ResourceProperties
toResourceProperties NluImprovementSpecificationProperty {()
Value Bool
haddock_workaround_ :: NluImprovementSpecificationProperty -> ()
enabled :: NluImprovementSpecificationProperty -> Value Bool
haddock_workaround_ :: ()
enabled :: Value Bool
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Lex::Bot.NluImprovementSpecification",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Enabled" Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Bool
enabled]}
instance JSON.ToJSON NluImprovementSpecificationProperty where
  toJSON :: NluImprovementSpecificationProperty -> Value
toJSON NluImprovementSpecificationProperty {()
Value Bool
haddock_workaround_ :: NluImprovementSpecificationProperty -> ()
enabled :: NluImprovementSpecificationProperty -> Value Bool
haddock_workaround_ :: ()
enabled :: Value Bool
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Enabled" Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Bool
enabled]
instance Property "Enabled" NluImprovementSpecificationProperty where
  type PropertyType "Enabled" NluImprovementSpecificationProperty = Value Prelude.Bool
  set :: PropertyType "Enabled" NluImprovementSpecificationProperty
-> NluImprovementSpecificationProperty
-> NluImprovementSpecificationProperty
set PropertyType "Enabled" NluImprovementSpecificationProperty
newValue NluImprovementSpecificationProperty {()
Value Bool
haddock_workaround_ :: NluImprovementSpecificationProperty -> ()
enabled :: NluImprovementSpecificationProperty -> Value Bool
haddock_workaround_ :: ()
enabled :: Value Bool
..}
    = NluImprovementSpecificationProperty {enabled :: Value Bool
enabled = PropertyType "Enabled" NluImprovementSpecificationProperty
Value Bool
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}