stratosphere-appmesh-1.0.0: gen/Stratosphere/AppMesh/VirtualNode/VirtualNodeConnectionPoolProperty.hs

module Stratosphere.AppMesh.VirtualNode.VirtualNodeConnectionPoolProperty (
        module Exports, VirtualNodeConnectionPoolProperty(..),
        mkVirtualNodeConnectionPoolProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppMesh.VirtualNode.VirtualNodeGrpcConnectionPoolProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.VirtualNode.VirtualNodeHttp2ConnectionPoolProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.VirtualNode.VirtualNodeHttpConnectionPoolProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.VirtualNode.VirtualNodeTcpConnectionPoolProperty as Exports
import Stratosphere.ResourceProperties
data VirtualNodeConnectionPoolProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodeconnectionpool.html>
    VirtualNodeConnectionPoolProperty {haddock_workaround_ :: (),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodeconnectionpool.html#cfn-appmesh-virtualnode-virtualnodeconnectionpool-grpc>
                                       gRPC :: (Prelude.Maybe VirtualNodeGrpcConnectionPoolProperty),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodeconnectionpool.html#cfn-appmesh-virtualnode-virtualnodeconnectionpool-http>
                                       hTTP :: (Prelude.Maybe VirtualNodeHttpConnectionPoolProperty),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodeconnectionpool.html#cfn-appmesh-virtualnode-virtualnodeconnectionpool-http2>
                                       hTTP2 :: (Prelude.Maybe VirtualNodeHttp2ConnectionPoolProperty),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodeconnectionpool.html#cfn-appmesh-virtualnode-virtualnodeconnectionpool-tcp>
                                       tCP :: (Prelude.Maybe VirtualNodeTcpConnectionPoolProperty)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkVirtualNodeConnectionPoolProperty ::
  VirtualNodeConnectionPoolProperty
mkVirtualNodeConnectionPoolProperty
  = VirtualNodeConnectionPoolProperty
      {haddock_workaround_ = (), gRPC = Prelude.Nothing,
       hTTP = Prelude.Nothing, hTTP2 = Prelude.Nothing,
       tCP = Prelude.Nothing}
instance ToResourceProperties VirtualNodeConnectionPoolProperty where
  toResourceProperties VirtualNodeConnectionPoolProperty {..}
    = ResourceProperties
        {awsType = "AWS::AppMesh::VirtualNode.VirtualNodeConnectionPool",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        (Prelude.catMaybes
                           [(JSON..=) "GRPC" Prelude.<$> gRPC,
                            (JSON..=) "HTTP" Prelude.<$> hTTP,
                            (JSON..=) "HTTP2" Prelude.<$> hTTP2,
                            (JSON..=) "TCP" Prelude.<$> tCP])}
instance JSON.ToJSON VirtualNodeConnectionPoolProperty where
  toJSON VirtualNodeConnectionPoolProperty {..}
    = JSON.object
        (Prelude.fromList
           (Prelude.catMaybes
              [(JSON..=) "GRPC" Prelude.<$> gRPC,
               (JSON..=) "HTTP" Prelude.<$> hTTP,
               (JSON..=) "HTTP2" Prelude.<$> hTTP2,
               (JSON..=) "TCP" Prelude.<$> tCP]))
instance Property "GRPC" VirtualNodeConnectionPoolProperty where
  type PropertyType "GRPC" VirtualNodeConnectionPoolProperty = VirtualNodeGrpcConnectionPoolProperty
  set newValue VirtualNodeConnectionPoolProperty {..}
    = VirtualNodeConnectionPoolProperty
        {gRPC = Prelude.pure newValue, ..}
instance Property "HTTP" VirtualNodeConnectionPoolProperty where
  type PropertyType "HTTP" VirtualNodeConnectionPoolProperty = VirtualNodeHttpConnectionPoolProperty
  set newValue VirtualNodeConnectionPoolProperty {..}
    = VirtualNodeConnectionPoolProperty
        {hTTP = Prelude.pure newValue, ..}
instance Property "HTTP2" VirtualNodeConnectionPoolProperty where
  type PropertyType "HTTP2" VirtualNodeConnectionPoolProperty = VirtualNodeHttp2ConnectionPoolProperty
  set newValue VirtualNodeConnectionPoolProperty {..}
    = VirtualNodeConnectionPoolProperty
        {hTTP2 = Prelude.pure newValue, ..}
instance Property "TCP" VirtualNodeConnectionPoolProperty where
  type PropertyType "TCP" VirtualNodeConnectionPoolProperty = VirtualNodeTcpConnectionPoolProperty
  set newValue VirtualNodeConnectionPoolProperty {..}
    = VirtualNodeConnectionPoolProperty
        {tCP = Prelude.pure newValue, ..}