module Stratosphere.Wisdom.KnowledgeBase.ParsingPromptProperty (
        ParsingPromptProperty(..), mkParsingPromptProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ParsingPromptProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wisdom-knowledgebase-parsingprompt.html>
    ParsingPromptProperty {ParsingPromptProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wisdom-knowledgebase-parsingprompt.html#cfn-wisdom-knowledgebase-parsingprompt-parsingprompttext>
                           ParsingPromptProperty -> Value Text
parsingPromptText :: (Value Prelude.Text)}
  deriving stock (ParsingPromptProperty -> ParsingPromptProperty -> Bool
(ParsingPromptProperty -> ParsingPromptProperty -> Bool)
-> (ParsingPromptProperty -> ParsingPromptProperty -> Bool)
-> Eq ParsingPromptProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ParsingPromptProperty -> ParsingPromptProperty -> Bool
== :: ParsingPromptProperty -> ParsingPromptProperty -> Bool
$c/= :: ParsingPromptProperty -> ParsingPromptProperty -> Bool
/= :: ParsingPromptProperty -> ParsingPromptProperty -> Bool
Prelude.Eq, Int -> ParsingPromptProperty -> ShowS
[ParsingPromptProperty] -> ShowS
ParsingPromptProperty -> String
(Int -> ParsingPromptProperty -> ShowS)
-> (ParsingPromptProperty -> String)
-> ([ParsingPromptProperty] -> ShowS)
-> Show ParsingPromptProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ParsingPromptProperty -> ShowS
showsPrec :: Int -> ParsingPromptProperty -> ShowS
$cshow :: ParsingPromptProperty -> String
show :: ParsingPromptProperty -> String
$cshowList :: [ParsingPromptProperty] -> ShowS
showList :: [ParsingPromptProperty] -> ShowS
Prelude.Show)
mkParsingPromptProperty ::
  Value Prelude.Text -> ParsingPromptProperty
mkParsingPromptProperty :: Value Text -> ParsingPromptProperty
mkParsingPromptProperty Value Text
parsingPromptText
  = ParsingPromptProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), parsingPromptText :: Value Text
parsingPromptText = Value Text
parsingPromptText}
instance ToResourceProperties ParsingPromptProperty where
  toResourceProperties :: ParsingPromptProperty -> ResourceProperties
toResourceProperties ParsingPromptProperty {()
Value Text
haddock_workaround_ :: ParsingPromptProperty -> ()
parsingPromptText :: ParsingPromptProperty -> Value Text
haddock_workaround_ :: ()
parsingPromptText :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Wisdom::KnowledgeBase.ParsingPrompt",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"ParsingPromptText" 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
parsingPromptText]}
instance JSON.ToJSON ParsingPromptProperty where
  toJSON :: ParsingPromptProperty -> Value
toJSON ParsingPromptProperty {()
Value Text
haddock_workaround_ :: ParsingPromptProperty -> ()
parsingPromptText :: ParsingPromptProperty -> Value Text
haddock_workaround_ :: ()
parsingPromptText :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"ParsingPromptText" 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
parsingPromptText]
instance Property "ParsingPromptText" ParsingPromptProperty where
  type PropertyType "ParsingPromptText" ParsingPromptProperty = Value Prelude.Text
  set :: PropertyType "ParsingPromptText" ParsingPromptProperty
-> ParsingPromptProperty -> ParsingPromptProperty
set PropertyType "ParsingPromptText" ParsingPromptProperty
newValue ParsingPromptProperty {()
Value Text
haddock_workaround_ :: ParsingPromptProperty -> ()
parsingPromptText :: ParsingPromptProperty -> Value Text
haddock_workaround_ :: ()
parsingPromptText :: Value Text
..}
    = ParsingPromptProperty {parsingPromptText :: Value Text
parsingPromptText = PropertyType "ParsingPromptText" ParsingPromptProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}