stratosphere-datasync-1.0.0: gen/Stratosphere/DataSync/Task/ManifestConfigProperty.hs

module Stratosphere.DataSync.Task.ManifestConfigProperty (
        module Exports, ManifestConfigProperty(..),
        mkManifestConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.DataSync.Task.SourceProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ManifestConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datasync-task-manifestconfig.html>
    ManifestConfigProperty {haddock_workaround_ :: (),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datasync-task-manifestconfig.html#cfn-datasync-task-manifestconfig-action>
                            action :: (Prelude.Maybe (Value Prelude.Text)),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datasync-task-manifestconfig.html#cfn-datasync-task-manifestconfig-format>
                            format :: (Prelude.Maybe (Value Prelude.Text)),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datasync-task-manifestconfig.html#cfn-datasync-task-manifestconfig-source>
                            source :: SourceProperty}
  deriving stock (Prelude.Eq, Prelude.Show)
mkManifestConfigProperty ::
  SourceProperty -> ManifestConfigProperty
mkManifestConfigProperty source
  = ManifestConfigProperty
      {haddock_workaround_ = (), source = source,
       action = Prelude.Nothing, format = Prelude.Nothing}
instance ToResourceProperties ManifestConfigProperty where
  toResourceProperties ManifestConfigProperty {..}
    = ResourceProperties
        {awsType = "AWS::DataSync::Task.ManifestConfig",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["Source" JSON..= source]
                           (Prelude.catMaybes
                              [(JSON..=) "Action" Prelude.<$> action,
                               (JSON..=) "Format" Prelude.<$> format]))}
instance JSON.ToJSON ManifestConfigProperty where
  toJSON ManifestConfigProperty {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["Source" JSON..= source]
              (Prelude.catMaybes
                 [(JSON..=) "Action" Prelude.<$> action,
                  (JSON..=) "Format" Prelude.<$> format])))
instance Property "Action" ManifestConfigProperty where
  type PropertyType "Action" ManifestConfigProperty = Value Prelude.Text
  set newValue ManifestConfigProperty {..}
    = ManifestConfigProperty {action = Prelude.pure newValue, ..}
instance Property "Format" ManifestConfigProperty where
  type PropertyType "Format" ManifestConfigProperty = Value Prelude.Text
  set newValue ManifestConfigProperty {..}
    = ManifestConfigProperty {format = Prelude.pure newValue, ..}
instance Property "Source" ManifestConfigProperty where
  type PropertyType "Source" ManifestConfigProperty = SourceProperty
  set newValue ManifestConfigProperty {..}
    = ManifestConfigProperty {source = newValue, ..}