module Stratosphere.Comprehend.Flywheel.EntityTypesListItemProperty (
        EntityTypesListItemProperty(..), mkEntityTypesListItemProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data EntityTypesListItemProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-comprehend-flywheel-entitytypeslistitem.html>
    EntityTypesListItemProperty {EntityTypesListItemProperty -> ()
haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-comprehend-flywheel-entitytypeslistitem.html#cfn-comprehend-flywheel-entitytypeslistitem-type>
                                 EntityTypesListItemProperty -> Value Text
type' :: (Value Prelude.Text)}
  deriving stock (EntityTypesListItemProperty -> EntityTypesListItemProperty -> Bool
(EntityTypesListItemProperty
 -> EntityTypesListItemProperty -> Bool)
-> (EntityTypesListItemProperty
    -> EntityTypesListItemProperty -> Bool)
-> Eq EntityTypesListItemProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EntityTypesListItemProperty -> EntityTypesListItemProperty -> Bool
== :: EntityTypesListItemProperty -> EntityTypesListItemProperty -> Bool
$c/= :: EntityTypesListItemProperty -> EntityTypesListItemProperty -> Bool
/= :: EntityTypesListItemProperty -> EntityTypesListItemProperty -> Bool
Prelude.Eq, Int -> EntityTypesListItemProperty -> ShowS
[EntityTypesListItemProperty] -> ShowS
EntityTypesListItemProperty -> String
(Int -> EntityTypesListItemProperty -> ShowS)
-> (EntityTypesListItemProperty -> String)
-> ([EntityTypesListItemProperty] -> ShowS)
-> Show EntityTypesListItemProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> EntityTypesListItemProperty -> ShowS
showsPrec :: Int -> EntityTypesListItemProperty -> ShowS
$cshow :: EntityTypesListItemProperty -> String
show :: EntityTypesListItemProperty -> String
$cshowList :: [EntityTypesListItemProperty] -> ShowS
showList :: [EntityTypesListItemProperty] -> ShowS
Prelude.Show)
mkEntityTypesListItemProperty ::
  Value Prelude.Text -> EntityTypesListItemProperty
mkEntityTypesListItemProperty :: Value Text -> EntityTypesListItemProperty
mkEntityTypesListItemProperty Value Text
type'
  = EntityTypesListItemProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), type' :: Value Text
type' = Value Text
type'}
instance ToResourceProperties EntityTypesListItemProperty where
  toResourceProperties :: EntityTypesListItemProperty -> ResourceProperties
toResourceProperties EntityTypesListItemProperty {()
Value Text
haddock_workaround_ :: EntityTypesListItemProperty -> ()
type' :: EntityTypesListItemProperty -> Value Text
haddock_workaround_ :: ()
type' :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Comprehend::Flywheel.EntityTypesListItem",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False, properties :: Object
properties = [Key
"Type" 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
type']}
instance JSON.ToJSON EntityTypesListItemProperty where
  toJSON :: EntityTypesListItemProperty -> Value
toJSON EntityTypesListItemProperty {()
Value Text
haddock_workaround_ :: EntityTypesListItemProperty -> ()
type' :: EntityTypesListItemProperty -> Value Text
haddock_workaround_ :: ()
type' :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Type" 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
type']
instance Property "Type" EntityTypesListItemProperty where
  type PropertyType "Type" EntityTypesListItemProperty = Value Prelude.Text
  set :: PropertyType "Type" EntityTypesListItemProperty
-> EntityTypesListItemProperty -> EntityTypesListItemProperty
set PropertyType "Type" EntityTypesListItemProperty
newValue EntityTypesListItemProperty {()
Value Text
haddock_workaround_ :: EntityTypesListItemProperty -> ()
type' :: EntityTypesListItemProperty -> Value Text
haddock_workaround_ :: ()
type' :: Value Text
..}
    = EntityTypesListItemProperty {type' :: Value Text
type' = PropertyType "Type" EntityTypesListItemProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}