stratosphere-ecs-1.0.0: gen/Stratosphere/ECS/ClusterCapacityProviderAssociations.hs

module Stratosphere.ECS.ClusterCapacityProviderAssociations (
        module Exports, ClusterCapacityProviderAssociations(..),
        mkClusterCapacityProviderAssociations
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.ECS.ClusterCapacityProviderAssociations.CapacityProviderStrategyProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ClusterCapacityProviderAssociations
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-clustercapacityproviderassociations.html>
    ClusterCapacityProviderAssociations {haddock_workaround_ :: (),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-clustercapacityproviderassociations.html#cfn-ecs-clustercapacityproviderassociations-capacityproviders>
                                         capacityProviders :: (Prelude.Maybe (ValueList Prelude.Text)),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-clustercapacityproviderassociations.html#cfn-ecs-clustercapacityproviderassociations-cluster>
                                         cluster :: (Value Prelude.Text),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-clustercapacityproviderassociations.html#cfn-ecs-clustercapacityproviderassociations-defaultcapacityproviderstrategy>
                                         defaultCapacityProviderStrategy :: [CapacityProviderStrategyProperty]}
  deriving stock (Prelude.Eq, Prelude.Show)
mkClusterCapacityProviderAssociations ::
  Value Prelude.Text
  -> [CapacityProviderStrategyProperty]
     -> ClusterCapacityProviderAssociations
mkClusterCapacityProviderAssociations
  cluster
  defaultCapacityProviderStrategy
  = ClusterCapacityProviderAssociations
      {haddock_workaround_ = (), cluster = cluster,
       defaultCapacityProviderStrategy = defaultCapacityProviderStrategy,
       capacityProviders = Prelude.Nothing}
instance ToResourceProperties ClusterCapacityProviderAssociations where
  toResourceProperties ClusterCapacityProviderAssociations {..}
    = ResourceProperties
        {awsType = "AWS::ECS::ClusterCapacityProviderAssociations",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["Cluster" JSON..= cluster,
                            "DefaultCapacityProviderStrategy"
                              JSON..= defaultCapacityProviderStrategy]
                           (Prelude.catMaybes
                              [(JSON..=) "CapacityProviders" Prelude.<$> capacityProviders]))}
instance JSON.ToJSON ClusterCapacityProviderAssociations where
  toJSON ClusterCapacityProviderAssociations {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["Cluster" JSON..= cluster,
               "DefaultCapacityProviderStrategy"
                 JSON..= defaultCapacityProviderStrategy]
              (Prelude.catMaybes
                 [(JSON..=) "CapacityProviders" Prelude.<$> capacityProviders])))
instance Property "CapacityProviders" ClusterCapacityProviderAssociations where
  type PropertyType "CapacityProviders" ClusterCapacityProviderAssociations = ValueList Prelude.Text
  set newValue ClusterCapacityProviderAssociations {..}
    = ClusterCapacityProviderAssociations
        {capacityProviders = Prelude.pure newValue, ..}
instance Property "Cluster" ClusterCapacityProviderAssociations where
  type PropertyType "Cluster" ClusterCapacityProviderAssociations = Value Prelude.Text
  set newValue ClusterCapacityProviderAssociations {..}
    = ClusterCapacityProviderAssociations {cluster = newValue, ..}
instance Property "DefaultCapacityProviderStrategy" ClusterCapacityProviderAssociations where
  type PropertyType "DefaultCapacityProviderStrategy" ClusterCapacityProviderAssociations = [CapacityProviderStrategyProperty]
  set newValue ClusterCapacityProviderAssociations {..}
    = ClusterCapacityProviderAssociations
        {defaultCapacityProviderStrategy = newValue, ..}