InputConversionProperty.hs

module Stratosphere.B2BI.Transformer.InputConversionProperty (
        module Exports, InputConversionProperty(..),
        mkInputConversionProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.B2BI.Transformer.AdvancedOptionsProperty as Exports
import {-# SOURCE #-} Stratosphere.B2BI.Transformer.FormatOptionsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data InputConversionProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-transformer-inputconversion.html>
    InputConversionProperty {haddock_workaround_ :: (),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-transformer-inputconversion.html#cfn-b2bi-transformer-inputconversion-advancedoptions>
                             advancedOptions :: (Prelude.Maybe AdvancedOptionsProperty),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-transformer-inputconversion.html#cfn-b2bi-transformer-inputconversion-formatoptions>
                             formatOptions :: (Prelude.Maybe FormatOptionsProperty),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-transformer-inputconversion.html#cfn-b2bi-transformer-inputconversion-fromformat>
                             fromFormat :: (Value Prelude.Text)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkInputConversionProperty ::
  Value Prelude.Text -> InputConversionProperty
mkInputConversionProperty fromFormat
  = InputConversionProperty
      {haddock_workaround_ = (), fromFormat = fromFormat,
       advancedOptions = Prelude.Nothing, formatOptions = Prelude.Nothing}
instance ToResourceProperties InputConversionProperty where
  toResourceProperties InputConversionProperty {..}
    = ResourceProperties
        {awsType = "AWS::B2BI::Transformer.InputConversion",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["FromFormat" JSON..= fromFormat]
                           (Prelude.catMaybes
                              [(JSON..=) "AdvancedOptions" Prelude.<$> advancedOptions,
                               (JSON..=) "FormatOptions" Prelude.<$> formatOptions]))}
instance JSON.ToJSON InputConversionProperty where
  toJSON InputConversionProperty {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["FromFormat" JSON..= fromFormat]
              (Prelude.catMaybes
                 [(JSON..=) "AdvancedOptions" Prelude.<$> advancedOptions,
                  (JSON..=) "FormatOptions" Prelude.<$> formatOptions])))
instance Property "AdvancedOptions" InputConversionProperty where
  type PropertyType "AdvancedOptions" InputConversionProperty = AdvancedOptionsProperty
  set newValue InputConversionProperty {..}
    = InputConversionProperty
        {advancedOptions = Prelude.pure newValue, ..}
instance Property "FormatOptions" InputConversionProperty where
  type PropertyType "FormatOptions" InputConversionProperty = FormatOptionsProperty
  set newValue InputConversionProperty {..}
    = InputConversionProperty
        {formatOptions = Prelude.pure newValue, ..}
instance Property "FromFormat" InputConversionProperty where
  type PropertyType "FromFormat" InputConversionProperty = Value Prelude.Text
  set newValue InputConversionProperty {..}
    = InputConversionProperty {fromFormat = newValue, ..}