stratosphere-emrserverless-1.0.0: gen/Stratosphere/EMRServerless/Application/MaximumAllowedResourcesProperty.hs

module Stratosphere.EMRServerless.Application.MaximumAllowedResourcesProperty (
        MaximumAllowedResourcesProperty(..),
        mkMaximumAllowedResourcesProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data MaximumAllowedResourcesProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emrserverless-application-maximumallowedresources.html>
    MaximumAllowedResourcesProperty {haddock_workaround_ :: (),
                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emrserverless-application-maximumallowedresources.html#cfn-emrserverless-application-maximumallowedresources-cpu>
                                     cpu :: (Value Prelude.Text),
                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emrserverless-application-maximumallowedresources.html#cfn-emrserverless-application-maximumallowedresources-disk>
                                     disk :: (Prelude.Maybe (Value Prelude.Text)),
                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emrserverless-application-maximumallowedresources.html#cfn-emrserverless-application-maximumallowedresources-memory>
                                     memory :: (Value Prelude.Text)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkMaximumAllowedResourcesProperty ::
  Value Prelude.Text
  -> Value Prelude.Text -> MaximumAllowedResourcesProperty
mkMaximumAllowedResourcesProperty cpu memory
  = MaximumAllowedResourcesProperty
      {haddock_workaround_ = (), cpu = cpu, memory = memory,
       disk = Prelude.Nothing}
instance ToResourceProperties MaximumAllowedResourcesProperty where
  toResourceProperties MaximumAllowedResourcesProperty {..}
    = ResourceProperties
        {awsType = "AWS::EMRServerless::Application.MaximumAllowedResources",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["Cpu" JSON..= cpu, "Memory" JSON..= memory]
                           (Prelude.catMaybes [(JSON..=) "Disk" Prelude.<$> disk]))}
instance JSON.ToJSON MaximumAllowedResourcesProperty where
  toJSON MaximumAllowedResourcesProperty {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["Cpu" JSON..= cpu, "Memory" JSON..= memory]
              (Prelude.catMaybes [(JSON..=) "Disk" Prelude.<$> disk])))
instance Property "Cpu" MaximumAllowedResourcesProperty where
  type PropertyType "Cpu" MaximumAllowedResourcesProperty = Value Prelude.Text
  set newValue MaximumAllowedResourcesProperty {..}
    = MaximumAllowedResourcesProperty {cpu = newValue, ..}
instance Property "Disk" MaximumAllowedResourcesProperty where
  type PropertyType "Disk" MaximumAllowedResourcesProperty = Value Prelude.Text
  set newValue MaximumAllowedResourcesProperty {..}
    = MaximumAllowedResourcesProperty
        {disk = Prelude.pure newValue, ..}
instance Property "Memory" MaximumAllowedResourcesProperty where
  type PropertyType "Memory" MaximumAllowedResourcesProperty = Value Prelude.Text
  set newValue MaximumAllowedResourcesProperty {..}
    = MaximumAllowedResourcesProperty {memory = newValue, ..}