stratosphere-ec2-1.0.0: gen/Stratosphere/EC2/SecurityGroupEgress.hs

module Stratosphere.EC2.SecurityGroupEgress (
        SecurityGroupEgress(..), mkSecurityGroupEgress
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SecurityGroupEgress
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html>
    SecurityGroupEgress {haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-cidrip>
                         cidrIp :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-cidripv6>
                         cidrIpv6 :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-description>
                         description :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-destinationprefixlistid>
                         destinationPrefixListId :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-destinationsecuritygroupid>
                         destinationSecurityGroupId :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-fromport>
                         fromPort :: (Prelude.Maybe (Value Prelude.Integer)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-groupid>
                         groupId :: (Value Prelude.Text),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-ipprotocol>
                         ipProtocol :: (Value Prelude.Text),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-securitygroupegress.html#cfn-ec2-securitygroupegress-toport>
                         toPort :: (Prelude.Maybe (Value Prelude.Integer))}
  deriving stock (Prelude.Eq, Prelude.Show)
mkSecurityGroupEgress ::
  Value Prelude.Text -> Value Prelude.Text -> SecurityGroupEgress
mkSecurityGroupEgress groupId ipProtocol
  = SecurityGroupEgress
      {haddock_workaround_ = (), groupId = groupId,
       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 SecurityGroupEgress where
  toResourceProperties SecurityGroupEgress {..}
    = ResourceProperties
        {awsType = "AWS::EC2::SecurityGroupEgress",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["GroupId" JSON..= groupId, "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 SecurityGroupEgress where
  toJSON SecurityGroupEgress {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["GroupId" JSON..= groupId, "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" SecurityGroupEgress where
  type PropertyType "CidrIp" SecurityGroupEgress = Value Prelude.Text
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress {cidrIp = Prelude.pure newValue, ..}
instance Property "CidrIpv6" SecurityGroupEgress where
  type PropertyType "CidrIpv6" SecurityGroupEgress = Value Prelude.Text
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress {cidrIpv6 = Prelude.pure newValue, ..}
instance Property "Description" SecurityGroupEgress where
  type PropertyType "Description" SecurityGroupEgress = Value Prelude.Text
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress {description = Prelude.pure newValue, ..}
instance Property "DestinationPrefixListId" SecurityGroupEgress where
  type PropertyType "DestinationPrefixListId" SecurityGroupEgress = Value Prelude.Text
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress
        {destinationPrefixListId = Prelude.pure newValue, ..}
instance Property "DestinationSecurityGroupId" SecurityGroupEgress where
  type PropertyType "DestinationSecurityGroupId" SecurityGroupEgress = Value Prelude.Text
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress
        {destinationSecurityGroupId = Prelude.pure newValue, ..}
instance Property "FromPort" SecurityGroupEgress where
  type PropertyType "FromPort" SecurityGroupEgress = Value Prelude.Integer
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress {fromPort = Prelude.pure newValue, ..}
instance Property "GroupId" SecurityGroupEgress where
  type PropertyType "GroupId" SecurityGroupEgress = Value Prelude.Text
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress {groupId = newValue, ..}
instance Property "IpProtocol" SecurityGroupEgress where
  type PropertyType "IpProtocol" SecurityGroupEgress = Value Prelude.Text
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress {ipProtocol = newValue, ..}
instance Property "ToPort" SecurityGroupEgress where
  type PropertyType "ToPort" SecurityGroupEgress = Value Prelude.Integer
  set newValue SecurityGroupEgress {..}
    = SecurityGroupEgress {toPort = Prelude.pure newValue, ..}