MountTarget.hs

module Stratosphere.EFS.MountTarget (
        MountTarget(..), mkMountTarget
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data MountTarget
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html>
    MountTarget {haddock_workaround_ :: (),
                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-filesystemid>
                 fileSystemId :: (Value Prelude.Text),
                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-ipaddress>
                 ipAddress :: (Prelude.Maybe (Value Prelude.Text)),
                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-ipaddresstype>
                 ipAddressType :: (Prelude.Maybe (Value Prelude.Text)),
                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-ipv6address>
                 ipv6Address :: (Prelude.Maybe (Value Prelude.Text)),
                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-securitygroups>
                 securityGroups :: (ValueList Prelude.Text),
                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-subnetid>
                 subnetId :: (Value Prelude.Text)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkMountTarget ::
  Value Prelude.Text
  -> ValueList Prelude.Text -> Value Prelude.Text -> MountTarget
mkMountTarget fileSystemId securityGroups subnetId
  = MountTarget
      {haddock_workaround_ = (), fileSystemId = fileSystemId,
       securityGroups = securityGroups, subnetId = subnetId,
       ipAddress = Prelude.Nothing, ipAddressType = Prelude.Nothing,
       ipv6Address = Prelude.Nothing}
instance ToResourceProperties MountTarget where
  toResourceProperties MountTarget {..}
    = ResourceProperties
        {awsType = "AWS::EFS::MountTarget", supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["FileSystemId" JSON..= fileSystemId,
                            "SecurityGroups" JSON..= securityGroups,
                            "SubnetId" JSON..= subnetId]
                           (Prelude.catMaybes
                              [(JSON..=) "IpAddress" Prelude.<$> ipAddress,
                               (JSON..=) "IpAddressType" Prelude.<$> ipAddressType,
                               (JSON..=) "Ipv6Address" Prelude.<$> ipv6Address]))}
instance JSON.ToJSON MountTarget where
  toJSON MountTarget {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["FileSystemId" JSON..= fileSystemId,
               "SecurityGroups" JSON..= securityGroups,
               "SubnetId" JSON..= subnetId]
              (Prelude.catMaybes
                 [(JSON..=) "IpAddress" Prelude.<$> ipAddress,
                  (JSON..=) "IpAddressType" Prelude.<$> ipAddressType,
                  (JSON..=) "Ipv6Address" Prelude.<$> ipv6Address])))
instance Property "FileSystemId" MountTarget where
  type PropertyType "FileSystemId" MountTarget = Value Prelude.Text
  set newValue MountTarget {..}
    = MountTarget {fileSystemId = newValue, ..}
instance Property "IpAddress" MountTarget where
  type PropertyType "IpAddress" MountTarget = Value Prelude.Text
  set newValue MountTarget {..}
    = MountTarget {ipAddress = Prelude.pure newValue, ..}
instance Property "IpAddressType" MountTarget where
  type PropertyType "IpAddressType" MountTarget = Value Prelude.Text
  set newValue MountTarget {..}
    = MountTarget {ipAddressType = Prelude.pure newValue, ..}
instance Property "Ipv6Address" MountTarget where
  type PropertyType "Ipv6Address" MountTarget = Value Prelude.Text
  set newValue MountTarget {..}
    = MountTarget {ipv6Address = Prelude.pure newValue, ..}
instance Property "SecurityGroups" MountTarget where
  type PropertyType "SecurityGroups" MountTarget = ValueList Prelude.Text
  set newValue MountTarget {..}
    = MountTarget {securityGroups = newValue, ..}
instance Property "SubnetId" MountTarget where
  type PropertyType "SubnetId" MountTarget = Value Prelude.Text
  set newValue MountTarget {..}
    = MountTarget {subnetId = newValue, ..}