module Stratosphere.AppMesh.VirtualGateway.VirtualGatewayListenerProperty (
        module Exports, VirtualGatewayListenerProperty(..),
        mkVirtualGatewayListenerProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppMesh.VirtualGateway.VirtualGatewayConnectionPoolProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.VirtualGateway.VirtualGatewayHealthCheckPolicyProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.VirtualGateway.VirtualGatewayListenerTlsProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.VirtualGateway.VirtualGatewayPortMappingProperty as Exports
import Stratosphere.ResourceProperties
data VirtualGatewayListenerProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html>
    VirtualGatewayListenerProperty {VirtualGatewayListenerProperty -> ()
haddock_workaround_ :: (),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html#cfn-appmesh-virtualgateway-virtualgatewaylistener-connectionpool>
                                    VirtualGatewayListenerProperty
-> Maybe VirtualGatewayConnectionPoolProperty
connectionPool :: (Prelude.Maybe VirtualGatewayConnectionPoolProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html#cfn-appmesh-virtualgateway-virtualgatewaylistener-healthcheck>
                                    VirtualGatewayListenerProperty
-> Maybe VirtualGatewayHealthCheckPolicyProperty
healthCheck :: (Prelude.Maybe VirtualGatewayHealthCheckPolicyProperty),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html#cfn-appmesh-virtualgateway-virtualgatewaylistener-portmapping>
                                    VirtualGatewayListenerProperty -> VirtualGatewayPortMappingProperty
portMapping :: VirtualGatewayPortMappingProperty,
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html#cfn-appmesh-virtualgateway-virtualgatewaylistener-tls>
                                    VirtualGatewayListenerProperty
-> Maybe VirtualGatewayListenerTlsProperty
tLS :: (Prelude.Maybe VirtualGatewayListenerTlsProperty)}
  deriving stock (VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> Bool
(VirtualGatewayListenerProperty
 -> VirtualGatewayListenerProperty -> Bool)
-> (VirtualGatewayListenerProperty
    -> VirtualGatewayListenerProperty -> Bool)
-> Eq VirtualGatewayListenerProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> Bool
== :: VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> Bool
$c/= :: VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> Bool
/= :: VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> Bool
Prelude.Eq, Int -> VirtualGatewayListenerProperty -> ShowS
[VirtualGatewayListenerProperty] -> ShowS
VirtualGatewayListenerProperty -> String
(Int -> VirtualGatewayListenerProperty -> ShowS)
-> (VirtualGatewayListenerProperty -> String)
-> ([VirtualGatewayListenerProperty] -> ShowS)
-> Show VirtualGatewayListenerProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> VirtualGatewayListenerProperty -> ShowS
showsPrec :: Int -> VirtualGatewayListenerProperty -> ShowS
$cshow :: VirtualGatewayListenerProperty -> String
show :: VirtualGatewayListenerProperty -> String
$cshowList :: [VirtualGatewayListenerProperty] -> ShowS
showList :: [VirtualGatewayListenerProperty] -> ShowS
Prelude.Show)
mkVirtualGatewayListenerProperty ::
  VirtualGatewayPortMappingProperty -> VirtualGatewayListenerProperty
mkVirtualGatewayListenerProperty :: VirtualGatewayPortMappingProperty -> VirtualGatewayListenerProperty
mkVirtualGatewayListenerProperty VirtualGatewayPortMappingProperty
portMapping
  = VirtualGatewayListenerProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), portMapping :: VirtualGatewayPortMappingProperty
portMapping = VirtualGatewayPortMappingProperty
portMapping,
       connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
connectionPool = Maybe VirtualGatewayConnectionPoolProperty
forall a. Maybe a
Prelude.Nothing, healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
healthCheck = Maybe VirtualGatewayHealthCheckPolicyProperty
forall a. Maybe a
Prelude.Nothing,
       tLS :: Maybe VirtualGatewayListenerTlsProperty
tLS = Maybe VirtualGatewayListenerTlsProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties VirtualGatewayListenerProperty where
  toResourceProperties :: VirtualGatewayListenerProperty -> ResourceProperties
toResourceProperties VirtualGatewayListenerProperty {Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayConnectionPoolProperty
Maybe VirtualGatewayListenerTlsProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: VirtualGatewayListenerProperty -> ()
connectionPool :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayListenerProperty -> VirtualGatewayPortMappingProperty
tLS :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppMesh::VirtualGateway.VirtualGatewayListener",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"PortMapping" Key -> VirtualGatewayPortMappingProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= VirtualGatewayPortMappingProperty
portMapping]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> VirtualGatewayConnectionPoolProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ConnectionPool" (VirtualGatewayConnectionPoolProperty -> (Key, Value))
-> Maybe VirtualGatewayConnectionPoolProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VirtualGatewayConnectionPoolProperty
connectionPool,
                               Key -> VirtualGatewayHealthCheckPolicyProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HealthCheck" (VirtualGatewayHealthCheckPolicyProperty -> (Key, Value))
-> Maybe VirtualGatewayHealthCheckPolicyProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VirtualGatewayHealthCheckPolicyProperty
healthCheck,
                               Key -> VirtualGatewayListenerTlsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TLS" (VirtualGatewayListenerTlsProperty -> (Key, Value))
-> Maybe VirtualGatewayListenerTlsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VirtualGatewayListenerTlsProperty
tLS]))}
instance JSON.ToJSON VirtualGatewayListenerProperty where
  toJSON :: VirtualGatewayListenerProperty -> Value
toJSON VirtualGatewayListenerProperty {Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayConnectionPoolProperty
Maybe VirtualGatewayListenerTlsProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: VirtualGatewayListenerProperty -> ()
connectionPool :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayListenerProperty -> VirtualGatewayPortMappingProperty
tLS :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"PortMapping" Key -> VirtualGatewayPortMappingProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= VirtualGatewayPortMappingProperty
portMapping]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> VirtualGatewayConnectionPoolProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ConnectionPool" (VirtualGatewayConnectionPoolProperty -> (Key, Value))
-> Maybe VirtualGatewayConnectionPoolProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VirtualGatewayConnectionPoolProperty
connectionPool,
                  Key -> VirtualGatewayHealthCheckPolicyProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HealthCheck" (VirtualGatewayHealthCheckPolicyProperty -> (Key, Value))
-> Maybe VirtualGatewayHealthCheckPolicyProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VirtualGatewayHealthCheckPolicyProperty
healthCheck,
                  Key -> VirtualGatewayListenerTlsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TLS" (VirtualGatewayListenerTlsProperty -> (Key, Value))
-> Maybe VirtualGatewayListenerTlsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VirtualGatewayListenerTlsProperty
tLS])))
instance Property "ConnectionPool" VirtualGatewayListenerProperty where
  type PropertyType "ConnectionPool" VirtualGatewayListenerProperty = VirtualGatewayConnectionPoolProperty
  set :: PropertyType "ConnectionPool" VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> VirtualGatewayListenerProperty
set PropertyType "ConnectionPool" VirtualGatewayListenerProperty
newValue VirtualGatewayListenerProperty {Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayConnectionPoolProperty
Maybe VirtualGatewayListenerTlsProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: VirtualGatewayListenerProperty -> ()
connectionPool :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayListenerProperty -> VirtualGatewayPortMappingProperty
tLS :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
    = VirtualGatewayListenerProperty
        {connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
connectionPool = VirtualGatewayConnectionPoolProperty
-> Maybe VirtualGatewayConnectionPoolProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ConnectionPool" VirtualGatewayListenerProperty
VirtualGatewayConnectionPoolProperty
newValue, Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayListenerTlsProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: ()
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
instance Property "HealthCheck" VirtualGatewayListenerProperty where
  type PropertyType "HealthCheck" VirtualGatewayListenerProperty = VirtualGatewayHealthCheckPolicyProperty
  set :: PropertyType "HealthCheck" VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> VirtualGatewayListenerProperty
set PropertyType "HealthCheck" VirtualGatewayListenerProperty
newValue VirtualGatewayListenerProperty {Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayConnectionPoolProperty
Maybe VirtualGatewayListenerTlsProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: VirtualGatewayListenerProperty -> ()
connectionPool :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayListenerProperty -> VirtualGatewayPortMappingProperty
tLS :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
    = VirtualGatewayListenerProperty
        {healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
healthCheck = VirtualGatewayHealthCheckPolicyProperty
-> Maybe VirtualGatewayHealthCheckPolicyProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HealthCheck" VirtualGatewayListenerProperty
VirtualGatewayHealthCheckPolicyProperty
newValue, Maybe VirtualGatewayConnectionPoolProperty
Maybe VirtualGatewayListenerTlsProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
instance Property "PortMapping" VirtualGatewayListenerProperty where
  type PropertyType "PortMapping" VirtualGatewayListenerProperty = VirtualGatewayPortMappingProperty
  set :: PropertyType "PortMapping" VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> VirtualGatewayListenerProperty
set PropertyType "PortMapping" VirtualGatewayListenerProperty
newValue VirtualGatewayListenerProperty {Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayConnectionPoolProperty
Maybe VirtualGatewayListenerTlsProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: VirtualGatewayListenerProperty -> ()
connectionPool :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayListenerProperty -> VirtualGatewayPortMappingProperty
tLS :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
    = VirtualGatewayListenerProperty {portMapping :: VirtualGatewayPortMappingProperty
portMapping = PropertyType "PortMapping" VirtualGatewayListenerProperty
VirtualGatewayPortMappingProperty
newValue, Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayConnectionPoolProperty
Maybe VirtualGatewayListenerTlsProperty
()
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
instance Property "TLS" VirtualGatewayListenerProperty where
  type PropertyType "TLS" VirtualGatewayListenerProperty = VirtualGatewayListenerTlsProperty
  set :: PropertyType "TLS" VirtualGatewayListenerProperty
-> VirtualGatewayListenerProperty -> VirtualGatewayListenerProperty
set PropertyType "TLS" VirtualGatewayListenerProperty
newValue VirtualGatewayListenerProperty {Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayConnectionPoolProperty
Maybe VirtualGatewayListenerTlsProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: VirtualGatewayListenerProperty -> ()
connectionPool :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayListenerProperty -> VirtualGatewayPortMappingProperty
tLS :: VirtualGatewayListenerProperty
-> Maybe VirtualGatewayListenerTlsProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
tLS :: Maybe VirtualGatewayListenerTlsProperty
..}
    = VirtualGatewayListenerProperty {tLS :: Maybe VirtualGatewayListenerTlsProperty
tLS = VirtualGatewayListenerTlsProperty
-> Maybe VirtualGatewayListenerTlsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TLS" VirtualGatewayListenerProperty
VirtualGatewayListenerTlsProperty
newValue, Maybe VirtualGatewayHealthCheckPolicyProperty
Maybe VirtualGatewayConnectionPoolProperty
()
VirtualGatewayPortMappingProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
haddock_workaround_ :: ()
connectionPool :: Maybe VirtualGatewayConnectionPoolProperty
healthCheck :: Maybe VirtualGatewayHealthCheckPolicyProperty
portMapping :: VirtualGatewayPortMappingProperty
..}