module Stratosphere.ElasticLoadBalancing.LoadBalancer.ListenersProperty (
        ListenersProperty(..), mkListenersProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ListenersProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html>
    ListenersProperty {ListenersProperty -> ()
haddock_workaround_ :: (),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-instanceport>
                       ListenersProperty -> Value Text
instancePort :: (Value Prelude.Text),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-instanceprotocol>
                       ListenersProperty -> Maybe (Value Text)
instanceProtocol :: (Prelude.Maybe (Value Prelude.Text)),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-loadbalancerport>
                       ListenersProperty -> Value Text
loadBalancerPort :: (Value Prelude.Text),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-policynames>
                       ListenersProperty -> Maybe (ValueList Text)
policyNames :: (Prelude.Maybe (ValueList Prelude.Text)),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-protocol>
                       ListenersProperty -> Value Text
protocol :: (Value Prelude.Text),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-sslcertificateid>
                       ListenersProperty -> Maybe (Value Text)
sSLCertificateId :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (ListenersProperty -> ListenersProperty -> Bool
(ListenersProperty -> ListenersProperty -> Bool)
-> (ListenersProperty -> ListenersProperty -> Bool)
-> Eq ListenersProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListenersProperty -> ListenersProperty -> Bool
== :: ListenersProperty -> ListenersProperty -> Bool
$c/= :: ListenersProperty -> ListenersProperty -> Bool
/= :: ListenersProperty -> ListenersProperty -> Bool
Prelude.Eq, Int -> ListenersProperty -> ShowS
[ListenersProperty] -> ShowS
ListenersProperty -> String
(Int -> ListenersProperty -> ShowS)
-> (ListenersProperty -> String)
-> ([ListenersProperty] -> ShowS)
-> Show ListenersProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ListenersProperty -> ShowS
showsPrec :: Int -> ListenersProperty -> ShowS
$cshow :: ListenersProperty -> String
show :: ListenersProperty -> String
$cshowList :: [ListenersProperty] -> ShowS
showList :: [ListenersProperty] -> ShowS
Prelude.Show)
mkListenersProperty ::
  Value Prelude.Text
  -> Value Prelude.Text -> Value Prelude.Text -> ListenersProperty
mkListenersProperty :: Value Text -> Value Text -> Value Text -> ListenersProperty
mkListenersProperty Value Text
instancePort Value Text
loadBalancerPort Value Text
protocol
  = ListenersProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), instancePort :: Value Text
instancePort = Value Text
instancePort,
       loadBalancerPort :: Value Text
loadBalancerPort = Value Text
loadBalancerPort, protocol :: Value Text
protocol = Value Text
protocol,
       instanceProtocol :: Maybe (Value Text)
instanceProtocol = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, policyNames :: Maybe (ValueList Text)
policyNames = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
       sSLCertificateId :: Maybe (Value Text)
sSLCertificateId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ListenersProperty where
  toResourceProperties :: ListenersProperty -> ResourceProperties
toResourceProperties ListenersProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ListenersProperty -> ()
instancePort :: ListenersProperty -> Value Text
instanceProtocol :: ListenersProperty -> Maybe (Value Text)
loadBalancerPort :: ListenersProperty -> Value Text
policyNames :: ListenersProperty -> Maybe (ValueList Text)
protocol :: ListenersProperty -> Value Text
sSLCertificateId :: ListenersProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ElasticLoadBalancing::LoadBalancer.Listeners",
         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
"InstancePort" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
instancePort,
                            Key
"LoadBalancerPort" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
loadBalancerPort,
                            Key
"Protocol" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
protocol]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InstanceProtocol" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
instanceProtocol,
                               Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PolicyNames" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
policyNames,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SSLCertificateId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
sSLCertificateId]))}
instance JSON.ToJSON ListenersProperty where
  toJSON :: ListenersProperty -> Value
toJSON ListenersProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ListenersProperty -> ()
instancePort :: ListenersProperty -> Value Text
instanceProtocol :: ListenersProperty -> Maybe (Value Text)
loadBalancerPort :: ListenersProperty -> Value Text
policyNames :: ListenersProperty -> Maybe (ValueList Text)
protocol :: ListenersProperty -> Value Text
sSLCertificateId :: ListenersProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
    = [(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
"InstancePort" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
instancePort,
               Key
"LoadBalancerPort" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
loadBalancerPort,
               Key
"Protocol" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
protocol]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InstanceProtocol" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
instanceProtocol,
                  Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PolicyNames" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
policyNames,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SSLCertificateId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
sSLCertificateId])))
instance Property "InstancePort" ListenersProperty where
  type PropertyType "InstancePort" ListenersProperty = Value Prelude.Text
  set :: PropertyType "InstancePort" ListenersProperty
-> ListenersProperty -> ListenersProperty
set PropertyType "InstancePort" ListenersProperty
newValue ListenersProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ListenersProperty -> ()
instancePort :: ListenersProperty -> Value Text
instanceProtocol :: ListenersProperty -> Maybe (Value Text)
loadBalancerPort :: ListenersProperty -> Value Text
policyNames :: ListenersProperty -> Maybe (ValueList Text)
protocol :: ListenersProperty -> Value Text
sSLCertificateId :: ListenersProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
    = ListenersProperty {instancePort :: Value Text
instancePort = PropertyType "InstancePort" ListenersProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
haddock_workaround_ :: ()
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
instance Property "InstanceProtocol" ListenersProperty where
  type PropertyType "InstanceProtocol" ListenersProperty = Value Prelude.Text
  set :: PropertyType "InstanceProtocol" ListenersProperty
-> ListenersProperty -> ListenersProperty
set PropertyType "InstanceProtocol" ListenersProperty
newValue ListenersProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ListenersProperty -> ()
instancePort :: ListenersProperty -> Value Text
instanceProtocol :: ListenersProperty -> Maybe (Value Text)
loadBalancerPort :: ListenersProperty -> Value Text
policyNames :: ListenersProperty -> Maybe (ValueList Text)
protocol :: ListenersProperty -> Value Text
sSLCertificateId :: ListenersProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
    = ListenersProperty {instanceProtocol :: Maybe (Value Text)
instanceProtocol = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "InstanceProtocol" ListenersProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
instancePort :: Value Text
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
instance Property "LoadBalancerPort" ListenersProperty where
  type PropertyType "LoadBalancerPort" ListenersProperty = Value Prelude.Text
  set :: PropertyType "LoadBalancerPort" ListenersProperty
-> ListenersProperty -> ListenersProperty
set PropertyType "LoadBalancerPort" ListenersProperty
newValue ListenersProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ListenersProperty -> ()
instancePort :: ListenersProperty -> Value Text
instanceProtocol :: ListenersProperty -> Maybe (Value Text)
loadBalancerPort :: ListenersProperty -> Value Text
policyNames :: ListenersProperty -> Maybe (ValueList Text)
protocol :: ListenersProperty -> Value Text
sSLCertificateId :: ListenersProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
    = ListenersProperty {loadBalancerPort :: Value Text
loadBalancerPort = PropertyType "LoadBalancerPort" ListenersProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
instance Property "PolicyNames" ListenersProperty where
  type PropertyType "PolicyNames" ListenersProperty = ValueList Prelude.Text
  set :: PropertyType "PolicyNames" ListenersProperty
-> ListenersProperty -> ListenersProperty
set PropertyType "PolicyNames" ListenersProperty
newValue ListenersProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ListenersProperty -> ()
instancePort :: ListenersProperty -> Value Text
instanceProtocol :: ListenersProperty -> Maybe (Value Text)
loadBalancerPort :: ListenersProperty -> Value Text
policyNames :: ListenersProperty -> Maybe (ValueList Text)
protocol :: ListenersProperty -> Value Text
sSLCertificateId :: ListenersProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
    = ListenersProperty {policyNames :: Maybe (ValueList Text)
policyNames = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PolicyNames" ListenersProperty
ValueList Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
instance Property "Protocol" ListenersProperty where
  type PropertyType "Protocol" ListenersProperty = Value Prelude.Text
  set :: PropertyType "Protocol" ListenersProperty
-> ListenersProperty -> ListenersProperty
set PropertyType "Protocol" ListenersProperty
newValue ListenersProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ListenersProperty -> ()
instancePort :: ListenersProperty -> Value Text
instanceProtocol :: ListenersProperty -> Maybe (Value Text)
loadBalancerPort :: ListenersProperty -> Value Text
policyNames :: ListenersProperty -> Maybe (ValueList Text)
protocol :: ListenersProperty -> Value Text
sSLCertificateId :: ListenersProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
    = ListenersProperty {protocol :: Value Text
protocol = PropertyType "Protocol" ListenersProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
sSLCertificateId :: Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
sSLCertificateId :: Maybe (Value Text)
..}
instance Property "SSLCertificateId" ListenersProperty where
  type PropertyType "SSLCertificateId" ListenersProperty = Value Prelude.Text
  set :: PropertyType "SSLCertificateId" ListenersProperty
-> ListenersProperty -> ListenersProperty
set PropertyType "SSLCertificateId" ListenersProperty
newValue ListenersProperty {Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ListenersProperty -> ()
instancePort :: ListenersProperty -> Value Text
instanceProtocol :: ListenersProperty -> Maybe (Value Text)
loadBalancerPort :: ListenersProperty -> Value Text
policyNames :: ListenersProperty -> Maybe (ValueList Text)
protocol :: ListenersProperty -> Value Text
sSLCertificateId :: ListenersProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
sSLCertificateId :: Maybe (Value Text)
..}
    = ListenersProperty {sSLCertificateId :: Maybe (Value Text)
sSLCertificateId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SSLCertificateId" ListenersProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
haddock_workaround_ :: ()
instancePort :: Value Text
instanceProtocol :: Maybe (Value Text)
loadBalancerPort :: Value Text
policyNames :: Maybe (ValueList Text)
protocol :: Value Text
..}