module Stratosphere.Bedrock.FlowVersion.InlineCodeFlowNodeConfigurationProperty ( InlineCodeFlowNodeConfigurationProperty(..), mkInlineCodeFlowNodeConfigurationProperty ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import Stratosphere.ResourceProperties import Stratosphere.Value data InlineCodeFlowNodeConfigurationProperty = -- | See: InlineCodeFlowNodeConfigurationProperty {haddock_workaround_ :: (), -- | See: code :: (Value Prelude.Text), -- | See: language :: (Value Prelude.Text)} deriving stock (Prelude.Eq, Prelude.Show) mkInlineCodeFlowNodeConfigurationProperty :: Value Prelude.Text -> Value Prelude.Text -> InlineCodeFlowNodeConfigurationProperty mkInlineCodeFlowNodeConfigurationProperty code language = InlineCodeFlowNodeConfigurationProperty {haddock_workaround_ = (), code = code, language = language} instance ToResourceProperties InlineCodeFlowNodeConfigurationProperty where toResourceProperties InlineCodeFlowNodeConfigurationProperty {..} = ResourceProperties {awsType = "AWS::Bedrock::FlowVersion.InlineCodeFlowNodeConfiguration", supportsTags = Prelude.False, properties = ["Code" JSON..= code, "Language" JSON..= language]} instance JSON.ToJSON InlineCodeFlowNodeConfigurationProperty where toJSON InlineCodeFlowNodeConfigurationProperty {..} = JSON.object ["Code" JSON..= code, "Language" JSON..= language] instance Property "Code" InlineCodeFlowNodeConfigurationProperty where type PropertyType "Code" InlineCodeFlowNodeConfigurationProperty = Value Prelude.Text set newValue InlineCodeFlowNodeConfigurationProperty {..} = InlineCodeFlowNodeConfigurationProperty {code = newValue, ..} instance Property "Language" InlineCodeFlowNodeConfigurationProperty where type PropertyType "Language" InlineCodeFlowNodeConfigurationProperty = Value Prelude.Text set newValue InlineCodeFlowNodeConfigurationProperty {..} = InlineCodeFlowNodeConfigurationProperty {language = newValue, ..}