module Stratosphere.EC2.IpPoolRouteTableAssociation ( IpPoolRouteTableAssociation(..), mkIpPoolRouteTableAssociation ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import Stratosphere.ResourceProperties import Stratosphere.Value data IpPoolRouteTableAssociation = -- | See: IpPoolRouteTableAssociation {haddock_workaround_ :: (), -- | See: publicIpv4Pool :: (Value Prelude.Text), -- | See: routeTableId :: (Value Prelude.Text)} deriving stock (Prelude.Eq, Prelude.Show) mkIpPoolRouteTableAssociation :: Value Prelude.Text -> Value Prelude.Text -> IpPoolRouteTableAssociation mkIpPoolRouteTableAssociation publicIpv4Pool routeTableId = IpPoolRouteTableAssociation {haddock_workaround_ = (), publicIpv4Pool = publicIpv4Pool, routeTableId = routeTableId} instance ToResourceProperties IpPoolRouteTableAssociation where toResourceProperties IpPoolRouteTableAssociation {..} = ResourceProperties {awsType = "AWS::EC2::IpPoolRouteTableAssociation", supportsTags = Prelude.False, properties = ["PublicIpv4Pool" JSON..= publicIpv4Pool, "RouteTableId" JSON..= routeTableId]} instance JSON.ToJSON IpPoolRouteTableAssociation where toJSON IpPoolRouteTableAssociation {..} = JSON.object ["PublicIpv4Pool" JSON..= publicIpv4Pool, "RouteTableId" JSON..= routeTableId] instance Property "PublicIpv4Pool" IpPoolRouteTableAssociation where type PropertyType "PublicIpv4Pool" IpPoolRouteTableAssociation = Value Prelude.Text set newValue IpPoolRouteTableAssociation {..} = IpPoolRouteTableAssociation {publicIpv4Pool = newValue, ..} instance Property "RouteTableId" IpPoolRouteTableAssociation where type PropertyType "RouteTableId" IpPoolRouteTableAssociation = Value Prelude.Text set newValue IpPoolRouteTableAssociation {..} = IpPoolRouteTableAssociation {routeTableId = newValue, ..}