stratosphere-ec2-1.0.0: gen/Stratosphere/EC2/SecurityGroup/EgressProperty.hs

module Stratosphere.EC2.SecurityGroup.EgressProperty (
        EgressProperty(..), mkEgressProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data EgressProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html>
    EgressProperty {haddock_workaround_ :: (),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html#cfn-ec2-securitygroup-egress-cidrip>
                    cidrIp :: (Prelude.Maybe (Value Prelude.Text)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html#cfn-ec2-securitygroup-egress-cidripv6>
                    cidrIpv6 :: (Prelude.Maybe (Value Prelude.Text)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html#cfn-ec2-securitygroup-egress-description>
                    description :: (Prelude.Maybe (Value Prelude.Text)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html#cfn-ec2-securitygroup-egress-destinationprefixlistid>
                    destinationPrefixListId :: (Prelude.Maybe (Value Prelude.Text)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html#cfn-ec2-securitygroup-egress-destinationsecuritygroupid>
                    destinationSecurityGroupId :: (Prelude.Maybe (Value Prelude.Text)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html#cfn-ec2-securitygroup-egress-fromport>
                    fromPort :: (Prelude.Maybe (Value Prelude.Integer)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html#cfn-ec2-securitygroup-egress-ipprotocol>
                    ipProtocol :: (Value Prelude.Text),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-securitygroup-egress.html#cfn-ec2-securitygroup-egress-toport>
                    toPort :: (Prelude.Maybe (Value Prelude.Integer))}
  deriving stock (Prelude.Eq, Prelude.Show)
mkEgressProperty :: Value Prelude.Text -> EgressProperty
mkEgressProperty ipProtocol
  = EgressProperty
      {haddock_workaround_ = (), ipProtocol = ipProtocol,
       cidrIp = Prelude.Nothing, cidrIpv6 = Prelude.Nothing,
       description = Prelude.Nothing,
       destinationPrefixListId = Prelude.Nothing,
       destinationSecurityGroupId = Prelude.Nothing,
       fromPort = Prelude.Nothing, toPort = Prelude.Nothing}
instance ToResourceProperties EgressProperty where
  toResourceProperties EgressProperty {..}
    = ResourceProperties
        {awsType = "AWS::EC2::SecurityGroup.Egress",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["IpProtocol" JSON..= ipProtocol]
                           (Prelude.catMaybes
                              [(JSON..=) "CidrIp" Prelude.<$> cidrIp,
                               (JSON..=) "CidrIpv6" Prelude.<$> cidrIpv6,
                               (JSON..=) "Description" Prelude.<$> description,
                               (JSON..=) "DestinationPrefixListId"
                                 Prelude.<$> destinationPrefixListId,
                               (JSON..=) "DestinationSecurityGroupId"
                                 Prelude.<$> destinationSecurityGroupId,
                               (JSON..=) "FromPort" Prelude.<$> fromPort,
                               (JSON..=) "ToPort" Prelude.<$> toPort]))}
instance JSON.ToJSON EgressProperty where
  toJSON EgressProperty {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["IpProtocol" JSON..= ipProtocol]
              (Prelude.catMaybes
                 [(JSON..=) "CidrIp" Prelude.<$> cidrIp,
                  (JSON..=) "CidrIpv6" Prelude.<$> cidrIpv6,
                  (JSON..=) "Description" Prelude.<$> description,
                  (JSON..=) "DestinationPrefixListId"
                    Prelude.<$> destinationPrefixListId,
                  (JSON..=) "DestinationSecurityGroupId"
                    Prelude.<$> destinationSecurityGroupId,
                  (JSON..=) "FromPort" Prelude.<$> fromPort,
                  (JSON..=) "ToPort" Prelude.<$> toPort])))
instance Property "CidrIp" EgressProperty where
  type PropertyType "CidrIp" EgressProperty = Value Prelude.Text
  set newValue EgressProperty {..}
    = EgressProperty {cidrIp = Prelude.pure newValue, ..}
instance Property "CidrIpv6" EgressProperty where
  type PropertyType "CidrIpv6" EgressProperty = Value Prelude.Text
  set newValue EgressProperty {..}
    = EgressProperty {cidrIpv6 = Prelude.pure newValue, ..}
instance Property "Description" EgressProperty where
  type PropertyType "Description" EgressProperty = Value Prelude.Text
  set newValue EgressProperty {..}
    = EgressProperty {description = Prelude.pure newValue, ..}
instance Property "DestinationPrefixListId" EgressProperty where
  type PropertyType "DestinationPrefixListId" EgressProperty = Value Prelude.Text
  set newValue EgressProperty {..}
    = EgressProperty
        {destinationPrefixListId = Prelude.pure newValue, ..}
instance Property "DestinationSecurityGroupId" EgressProperty where
  type PropertyType "DestinationSecurityGroupId" EgressProperty = Value Prelude.Text
  set newValue EgressProperty {..}
    = EgressProperty
        {destinationSecurityGroupId = Prelude.pure newValue, ..}
instance Property "FromPort" EgressProperty where
  type PropertyType "FromPort" EgressProperty = Value Prelude.Integer
  set newValue EgressProperty {..}
    = EgressProperty {fromPort = Prelude.pure newValue, ..}
instance Property "IpProtocol" EgressProperty where
  type PropertyType "IpProtocol" EgressProperty = Value Prelude.Text
  set newValue EgressProperty {..}
    = EgressProperty {ipProtocol = newValue, ..}
instance Property "ToPort" EgressProperty where
  type PropertyType "ToPort" EgressProperty = Value Prelude.Integer
  set newValue EgressProperty {..}
    = EgressProperty {toPort = Prelude.pure newValue, ..}