module Stratosphere.Transfer.WebApp.WebAppUnitsProperty (
        WebAppUnitsProperty(..), mkWebAppUnitsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data WebAppUnitsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-webapp-webappunits.html>
    WebAppUnitsProperty {WebAppUnitsProperty -> ()
haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-webapp-webappunits.html#cfn-transfer-webapp-webappunits-provisioned>
                         WebAppUnitsProperty -> Value Integer
provisioned :: (Value Prelude.Integer)}
  deriving stock (WebAppUnitsProperty -> WebAppUnitsProperty -> Bool
(WebAppUnitsProperty -> WebAppUnitsProperty -> Bool)
-> (WebAppUnitsProperty -> WebAppUnitsProperty -> Bool)
-> Eq WebAppUnitsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebAppUnitsProperty -> WebAppUnitsProperty -> Bool
== :: WebAppUnitsProperty -> WebAppUnitsProperty -> Bool
$c/= :: WebAppUnitsProperty -> WebAppUnitsProperty -> Bool
/= :: WebAppUnitsProperty -> WebAppUnitsProperty -> Bool
Prelude.Eq, Int -> WebAppUnitsProperty -> ShowS
[WebAppUnitsProperty] -> ShowS
WebAppUnitsProperty -> String
(Int -> WebAppUnitsProperty -> ShowS)
-> (WebAppUnitsProperty -> String)
-> ([WebAppUnitsProperty] -> ShowS)
-> Show WebAppUnitsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WebAppUnitsProperty -> ShowS
showsPrec :: Int -> WebAppUnitsProperty -> ShowS
$cshow :: WebAppUnitsProperty -> String
show :: WebAppUnitsProperty -> String
$cshowList :: [WebAppUnitsProperty] -> ShowS
showList :: [WebAppUnitsProperty] -> ShowS
Prelude.Show)
mkWebAppUnitsProperty ::
  Value Prelude.Integer -> WebAppUnitsProperty
mkWebAppUnitsProperty :: Value Integer -> WebAppUnitsProperty
mkWebAppUnitsProperty Value Integer
provisioned
  = WebAppUnitsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), provisioned :: Value Integer
provisioned = Value Integer
provisioned}
instance ToResourceProperties WebAppUnitsProperty where
  toResourceProperties :: WebAppUnitsProperty -> ResourceProperties
toResourceProperties WebAppUnitsProperty {()
Value Integer
haddock_workaround_ :: WebAppUnitsProperty -> ()
provisioned :: WebAppUnitsProperty -> Value Integer
haddock_workaround_ :: ()
provisioned :: Value Integer
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Transfer::WebApp.WebAppUnits",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Provisioned" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
provisioned]}
instance JSON.ToJSON WebAppUnitsProperty where
  toJSON :: WebAppUnitsProperty -> Value
toJSON WebAppUnitsProperty {()
Value Integer
haddock_workaround_ :: WebAppUnitsProperty -> ()
provisioned :: WebAppUnitsProperty -> Value Integer
haddock_workaround_ :: ()
provisioned :: Value Integer
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Provisioned" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
provisioned]
instance Property "Provisioned" WebAppUnitsProperty where
  type PropertyType "Provisioned" WebAppUnitsProperty = Value Prelude.Integer
  set :: PropertyType "Provisioned" WebAppUnitsProperty
-> WebAppUnitsProperty -> WebAppUnitsProperty
set PropertyType "Provisioned" WebAppUnitsProperty
newValue WebAppUnitsProperty {()
Value Integer
haddock_workaround_ :: WebAppUnitsProperty -> ()
provisioned :: WebAppUnitsProperty -> Value Integer
haddock_workaround_ :: ()
provisioned :: Value Integer
..}
    = WebAppUnitsProperty {provisioned :: Value Integer
provisioned = PropertyType "Provisioned" WebAppUnitsProperty
Value Integer
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}