AppBlock.hs

module Stratosphere.AppStream.AppBlock (
        module Exports, AppBlock(..), mkAppBlock
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppStream.AppBlock.S3LocationProperty as Exports
import {-# SOURCE #-} Stratosphere.AppStream.AppBlock.ScriptDetailsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data AppBlock
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html>
    AppBlock {haddock_workaround_ :: (),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html#cfn-appstream-appblock-description>
              description :: (Prelude.Maybe (Value Prelude.Text)),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html#cfn-appstream-appblock-displayname>
              displayName :: (Prelude.Maybe (Value Prelude.Text)),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html#cfn-appstream-appblock-name>
              name :: (Value Prelude.Text),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html#cfn-appstream-appblock-packagingtype>
              packagingType :: (Prelude.Maybe (Value Prelude.Text)),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html#cfn-appstream-appblock-postsetupscriptdetails>
              postSetupScriptDetails :: (Prelude.Maybe ScriptDetailsProperty),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html#cfn-appstream-appblock-setupscriptdetails>
              setupScriptDetails :: (Prelude.Maybe ScriptDetailsProperty),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html#cfn-appstream-appblock-sources3location>
              sourceS3Location :: S3LocationProperty,
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-appblock.html#cfn-appstream-appblock-tags>
              tags :: (Prelude.Maybe [Tag])}
  deriving stock (Prelude.Eq, Prelude.Show)
mkAppBlock :: Value Prelude.Text -> S3LocationProperty -> AppBlock
mkAppBlock name sourceS3Location
  = AppBlock
      {haddock_workaround_ = (), name = name,
       sourceS3Location = sourceS3Location, description = Prelude.Nothing,
       displayName = Prelude.Nothing, packagingType = Prelude.Nothing,
       postSetupScriptDetails = Prelude.Nothing,
       setupScriptDetails = Prelude.Nothing, tags = Prelude.Nothing}
instance ToResourceProperties AppBlock where
  toResourceProperties AppBlock {..}
    = ResourceProperties
        {awsType = "AWS::AppStream::AppBlock", supportsTags = Prelude.True,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["Name" JSON..= name, "SourceS3Location" JSON..= sourceS3Location]
                           (Prelude.catMaybes
                              [(JSON..=) "Description" Prelude.<$> description,
                               (JSON..=) "DisplayName" Prelude.<$> displayName,
                               (JSON..=) "PackagingType" Prelude.<$> packagingType,
                               (JSON..=) "PostSetupScriptDetails"
                                 Prelude.<$> postSetupScriptDetails,
                               (JSON..=) "SetupScriptDetails" Prelude.<$> setupScriptDetails,
                               (JSON..=) "Tags" Prelude.<$> tags]))}
instance JSON.ToJSON AppBlock where
  toJSON AppBlock {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["Name" JSON..= name, "SourceS3Location" JSON..= sourceS3Location]
              (Prelude.catMaybes
                 [(JSON..=) "Description" Prelude.<$> description,
                  (JSON..=) "DisplayName" Prelude.<$> displayName,
                  (JSON..=) "PackagingType" Prelude.<$> packagingType,
                  (JSON..=) "PostSetupScriptDetails"
                    Prelude.<$> postSetupScriptDetails,
                  (JSON..=) "SetupScriptDetails" Prelude.<$> setupScriptDetails,
                  (JSON..=) "Tags" Prelude.<$> tags])))
instance Property "Description" AppBlock where
  type PropertyType "Description" AppBlock = Value Prelude.Text
  set newValue AppBlock {..}
    = AppBlock {description = Prelude.pure newValue, ..}
instance Property "DisplayName" AppBlock where
  type PropertyType "DisplayName" AppBlock = Value Prelude.Text
  set newValue AppBlock {..}
    = AppBlock {displayName = Prelude.pure newValue, ..}
instance Property "Name" AppBlock where
  type PropertyType "Name" AppBlock = Value Prelude.Text
  set newValue AppBlock {..} = AppBlock {name = newValue, ..}
instance Property "PackagingType" AppBlock where
  type PropertyType "PackagingType" AppBlock = Value Prelude.Text
  set newValue AppBlock {..}
    = AppBlock {packagingType = Prelude.pure newValue, ..}
instance Property "PostSetupScriptDetails" AppBlock where
  type PropertyType "PostSetupScriptDetails" AppBlock = ScriptDetailsProperty
  set newValue AppBlock {..}
    = AppBlock {postSetupScriptDetails = Prelude.pure newValue, ..}
instance Property "SetupScriptDetails" AppBlock where
  type PropertyType "SetupScriptDetails" AppBlock = ScriptDetailsProperty
  set newValue AppBlock {..}
    = AppBlock {setupScriptDetails = Prelude.pure newValue, ..}
instance Property "SourceS3Location" AppBlock where
  type PropertyType "SourceS3Location" AppBlock = S3LocationProperty
  set newValue AppBlock {..}
    = AppBlock {sourceS3Location = newValue, ..}
instance Property "Tags" AppBlock where
  type PropertyType "Tags" AppBlock = [Tag]
  set newValue AppBlock {..}
    = AppBlock {tags = Prelude.pure newValue, ..}