VPCEndpointServicePermissions.hs

module Stratosphere.EC2.VPCEndpointServicePermissions (
        VPCEndpointServicePermissions(..), mkVPCEndpointServicePermissions
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data VPCEndpointServicePermissions
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html>
    VPCEndpointServicePermissions {haddock_workaround_ :: (),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html#cfn-ec2-vpcendpointservicepermissions-allowedprincipals>
                                   allowedPrincipals :: (Prelude.Maybe (ValueList Prelude.Text)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html#cfn-ec2-vpcendpointservicepermissions-serviceid>
                                   serviceId :: (Value Prelude.Text)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkVPCEndpointServicePermissions ::
  Value Prelude.Text -> VPCEndpointServicePermissions
mkVPCEndpointServicePermissions serviceId
  = VPCEndpointServicePermissions
      {haddock_workaround_ = (), serviceId = serviceId,
       allowedPrincipals = Prelude.Nothing}
instance ToResourceProperties VPCEndpointServicePermissions where
  toResourceProperties VPCEndpointServicePermissions {..}
    = ResourceProperties
        {awsType = "AWS::EC2::VPCEndpointServicePermissions",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["ServiceId" JSON..= serviceId]
                           (Prelude.catMaybes
                              [(JSON..=) "AllowedPrincipals" Prelude.<$> allowedPrincipals]))}
instance JSON.ToJSON VPCEndpointServicePermissions where
  toJSON VPCEndpointServicePermissions {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["ServiceId" JSON..= serviceId]
              (Prelude.catMaybes
                 [(JSON..=) "AllowedPrincipals" Prelude.<$> allowedPrincipals])))
instance Property "AllowedPrincipals" VPCEndpointServicePermissions where
  type PropertyType "AllowedPrincipals" VPCEndpointServicePermissions = ValueList Prelude.Text
  set newValue VPCEndpointServicePermissions {..}
    = VPCEndpointServicePermissions
        {allowedPrincipals = Prelude.pure newValue, ..}
instance Property "ServiceId" VPCEndpointServicePermissions where
  type PropertyType "ServiceId" VPCEndpointServicePermissions = Value Prelude.Text
  set newValue VPCEndpointServicePermissions {..}
    = VPCEndpointServicePermissions {serviceId = newValue, ..}