module Stratosphere.ElasticLoadBalancing.LoadBalancer.ConnectionSettingsProperty (
        ConnectionSettingsProperty(..), mkConnectionSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ConnectionSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-connectionsettings.html>
    ConnectionSettingsProperty {ConnectionSettingsProperty -> ()
haddock_workaround_ :: (),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-connectionsettings.html#cfn-elb-connectionsettings-idletimeout>
                                ConnectionSettingsProperty -> Value Integer
idleTimeout :: (Value Prelude.Integer)}
  deriving stock (ConnectionSettingsProperty -> ConnectionSettingsProperty -> Bool
(ConnectionSettingsProperty -> ConnectionSettingsProperty -> Bool)
-> (ConnectionSettingsProperty
    -> ConnectionSettingsProperty -> Bool)
-> Eq ConnectionSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ConnectionSettingsProperty -> ConnectionSettingsProperty -> Bool
== :: ConnectionSettingsProperty -> ConnectionSettingsProperty -> Bool
$c/= :: ConnectionSettingsProperty -> ConnectionSettingsProperty -> Bool
/= :: ConnectionSettingsProperty -> ConnectionSettingsProperty -> Bool
Prelude.Eq, Int -> ConnectionSettingsProperty -> ShowS
[ConnectionSettingsProperty] -> ShowS
ConnectionSettingsProperty -> String
(Int -> ConnectionSettingsProperty -> ShowS)
-> (ConnectionSettingsProperty -> String)
-> ([ConnectionSettingsProperty] -> ShowS)
-> Show ConnectionSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ConnectionSettingsProperty -> ShowS
showsPrec :: Int -> ConnectionSettingsProperty -> ShowS
$cshow :: ConnectionSettingsProperty -> String
show :: ConnectionSettingsProperty -> String
$cshowList :: [ConnectionSettingsProperty] -> ShowS
showList :: [ConnectionSettingsProperty] -> ShowS
Prelude.Show)
mkConnectionSettingsProperty ::
  Value Prelude.Integer -> ConnectionSettingsProperty
mkConnectionSettingsProperty :: Value Integer -> ConnectionSettingsProperty
mkConnectionSettingsProperty Value Integer
idleTimeout
  = ConnectionSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), idleTimeout :: Value Integer
idleTimeout = Value Integer
idleTimeout}
instance ToResourceProperties ConnectionSettingsProperty where
  toResourceProperties :: ConnectionSettingsProperty -> ResourceProperties
toResourceProperties ConnectionSettingsProperty {()
Value Integer
haddock_workaround_ :: ConnectionSettingsProperty -> ()
idleTimeout :: ConnectionSettingsProperty -> Value Integer
haddock_workaround_ :: ()
idleTimeout :: Value Integer
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ElasticLoadBalancing::LoadBalancer.ConnectionSettings",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"IdleTimeout" 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
idleTimeout]}
instance JSON.ToJSON ConnectionSettingsProperty where
  toJSON :: ConnectionSettingsProperty -> Value
toJSON ConnectionSettingsProperty {()
Value Integer
haddock_workaround_ :: ConnectionSettingsProperty -> ()
idleTimeout :: ConnectionSettingsProperty -> Value Integer
haddock_workaround_ :: ()
idleTimeout :: Value Integer
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"IdleTimeout" 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
idleTimeout]
instance Property "IdleTimeout" ConnectionSettingsProperty where
  type PropertyType "IdleTimeout" ConnectionSettingsProperty = Value Prelude.Integer
  set :: PropertyType "IdleTimeout" ConnectionSettingsProperty
-> ConnectionSettingsProperty -> ConnectionSettingsProperty
set PropertyType "IdleTimeout" ConnectionSettingsProperty
newValue ConnectionSettingsProperty {()
Value Integer
haddock_workaround_ :: ConnectionSettingsProperty -> ()
idleTimeout :: ConnectionSettingsProperty -> Value Integer
haddock_workaround_ :: ()
idleTimeout :: Value Integer
..}
    = ConnectionSettingsProperty {idleTimeout :: Value Integer
idleTimeout = PropertyType "IdleTimeout" ConnectionSettingsProperty
Value Integer
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}