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