LoadBalancerOptionsProperty.hs

module Stratosphere.EC2.VerifiedAccessEndpoint.LoadBalancerOptionsProperty (
        module Exports, LoadBalancerOptionsProperty(..),
        mkLoadBalancerOptionsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.EC2.VerifiedAccessEndpoint.PortRangeProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data LoadBalancerOptionsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-verifiedaccessendpoint-loadbalanceroptions.html>
    LoadBalancerOptionsProperty {haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-verifiedaccessendpoint-loadbalanceroptions.html#cfn-ec2-verifiedaccessendpoint-loadbalanceroptions-loadbalancerarn>
                                 loadBalancerArn :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-verifiedaccessendpoint-loadbalanceroptions.html#cfn-ec2-verifiedaccessendpoint-loadbalanceroptions-port>
                                 port :: (Prelude.Maybe (Value Prelude.Integer)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-verifiedaccessendpoint-loadbalanceroptions.html#cfn-ec2-verifiedaccessendpoint-loadbalanceroptions-portranges>
                                 portRanges :: (Prelude.Maybe [PortRangeProperty]),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-verifiedaccessendpoint-loadbalanceroptions.html#cfn-ec2-verifiedaccessendpoint-loadbalanceroptions-protocol>
                                 protocol :: (Prelude.Maybe (Value Prelude.Text)),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-verifiedaccessendpoint-loadbalanceroptions.html#cfn-ec2-verifiedaccessendpoint-loadbalanceroptions-subnetids>
                                 subnetIds :: (Prelude.Maybe (ValueList Prelude.Text))}
  deriving stock (Prelude.Eq, Prelude.Show)
mkLoadBalancerOptionsProperty :: LoadBalancerOptionsProperty
mkLoadBalancerOptionsProperty
  = LoadBalancerOptionsProperty
      {haddock_workaround_ = (), loadBalancerArn = Prelude.Nothing,
       port = Prelude.Nothing, portRanges = Prelude.Nothing,
       protocol = Prelude.Nothing, subnetIds = Prelude.Nothing}
instance ToResourceProperties LoadBalancerOptionsProperty where
  toResourceProperties LoadBalancerOptionsProperty {..}
    = ResourceProperties
        {awsType = "AWS::EC2::VerifiedAccessEndpoint.LoadBalancerOptions",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        (Prelude.catMaybes
                           [(JSON..=) "LoadBalancerArn" Prelude.<$> loadBalancerArn,
                            (JSON..=) "Port" Prelude.<$> port,
                            (JSON..=) "PortRanges" Prelude.<$> portRanges,
                            (JSON..=) "Protocol" Prelude.<$> protocol,
                            (JSON..=) "SubnetIds" Prelude.<$> subnetIds])}
instance JSON.ToJSON LoadBalancerOptionsProperty where
  toJSON LoadBalancerOptionsProperty {..}
    = JSON.object
        (Prelude.fromList
           (Prelude.catMaybes
              [(JSON..=) "LoadBalancerArn" Prelude.<$> loadBalancerArn,
               (JSON..=) "Port" Prelude.<$> port,
               (JSON..=) "PortRanges" Prelude.<$> portRanges,
               (JSON..=) "Protocol" Prelude.<$> protocol,
               (JSON..=) "SubnetIds" Prelude.<$> subnetIds]))
instance Property "LoadBalancerArn" LoadBalancerOptionsProperty where
  type PropertyType "LoadBalancerArn" LoadBalancerOptionsProperty = Value Prelude.Text
  set newValue LoadBalancerOptionsProperty {..}
    = LoadBalancerOptionsProperty
        {loadBalancerArn = Prelude.pure newValue, ..}
instance Property "Port" LoadBalancerOptionsProperty where
  type PropertyType "Port" LoadBalancerOptionsProperty = Value Prelude.Integer
  set newValue LoadBalancerOptionsProperty {..}
    = LoadBalancerOptionsProperty {port = Prelude.pure newValue, ..}
instance Property "PortRanges" LoadBalancerOptionsProperty where
  type PropertyType "PortRanges" LoadBalancerOptionsProperty = [PortRangeProperty]
  set newValue LoadBalancerOptionsProperty {..}
    = LoadBalancerOptionsProperty
        {portRanges = Prelude.pure newValue, ..}
instance Property "Protocol" LoadBalancerOptionsProperty where
  type PropertyType "Protocol" LoadBalancerOptionsProperty = Value Prelude.Text
  set newValue LoadBalancerOptionsProperty {..}
    = LoadBalancerOptionsProperty
        {protocol = Prelude.pure newValue, ..}
instance Property "SubnetIds" LoadBalancerOptionsProperty where
  type PropertyType "SubnetIds" LoadBalancerOptionsProperty = ValueList Prelude.Text
  set newValue LoadBalancerOptionsProperty {..}
    = LoadBalancerOptionsProperty
        {subnetIds = Prelude.pure newValue, ..}