module Stratosphere.AppMesh.GatewayRoute.HttpGatewayRouteMatchProperty (
        module Exports, HttpGatewayRouteMatchProperty(..),
        mkHttpGatewayRouteMatchProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppMesh.GatewayRoute.GatewayRouteHostnameMatchProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.GatewayRoute.HttpGatewayRouteHeaderProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.GatewayRoute.HttpPathMatchProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.GatewayRoute.QueryParameterProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data HttpGatewayRouteMatchProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html>
    HttpGatewayRouteMatchProperty {HttpGatewayRouteMatchProperty -> ()
haddock_workaround_ :: (),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html#cfn-appmesh-gatewayroute-httpgatewayroutematch-headers>
                                   HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
headers :: (Prelude.Maybe [HttpGatewayRouteHeaderProperty]),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html#cfn-appmesh-gatewayroute-httpgatewayroutematch-hostname>
                                   HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
hostname :: (Prelude.Maybe GatewayRouteHostnameMatchProperty),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html#cfn-appmesh-gatewayroute-httpgatewayroutematch-method>
                                   HttpGatewayRouteMatchProperty -> Maybe (Value Text)
method :: (Prelude.Maybe (Value Prelude.Text)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html#cfn-appmesh-gatewayroute-httpgatewayroutematch-path>
                                   HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
path :: (Prelude.Maybe HttpPathMatchProperty),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html#cfn-appmesh-gatewayroute-httpgatewayroutematch-port>
                                   HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
port :: (Prelude.Maybe (Value Prelude.Integer)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html#cfn-appmesh-gatewayroute-httpgatewayroutematch-prefix>
                                   HttpGatewayRouteMatchProperty -> Maybe (Value Text)
prefix :: (Prelude.Maybe (Value Prelude.Text)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html#cfn-appmesh-gatewayroute-httpgatewayroutematch-queryparameters>
                                   HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
queryParameters :: (Prelude.Maybe [QueryParameterProperty])}
  deriving stock (HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> Bool
(HttpGatewayRouteMatchProperty
 -> HttpGatewayRouteMatchProperty -> Bool)
-> (HttpGatewayRouteMatchProperty
    -> HttpGatewayRouteMatchProperty -> Bool)
-> Eq HttpGatewayRouteMatchProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> Bool
== :: HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> Bool
$c/= :: HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> Bool
/= :: HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> Bool
Prelude.Eq, Int -> HttpGatewayRouteMatchProperty -> ShowS
[HttpGatewayRouteMatchProperty] -> ShowS
HttpGatewayRouteMatchProperty -> String
(Int -> HttpGatewayRouteMatchProperty -> ShowS)
-> (HttpGatewayRouteMatchProperty -> String)
-> ([HttpGatewayRouteMatchProperty] -> ShowS)
-> Show HttpGatewayRouteMatchProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HttpGatewayRouteMatchProperty -> ShowS
showsPrec :: Int -> HttpGatewayRouteMatchProperty -> ShowS
$cshow :: HttpGatewayRouteMatchProperty -> String
show :: HttpGatewayRouteMatchProperty -> String
$cshowList :: [HttpGatewayRouteMatchProperty] -> ShowS
showList :: [HttpGatewayRouteMatchProperty] -> ShowS
Prelude.Show)
mkHttpGatewayRouteMatchProperty :: HttpGatewayRouteMatchProperty
mkHttpGatewayRouteMatchProperty :: HttpGatewayRouteMatchProperty
mkHttpGatewayRouteMatchProperty
  = HttpGatewayRouteMatchProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), headers :: Maybe [HttpGatewayRouteHeaderProperty]
headers = Maybe [HttpGatewayRouteHeaderProperty]
forall a. Maybe a
Prelude.Nothing,
       hostname :: Maybe GatewayRouteHostnameMatchProperty
hostname = Maybe GatewayRouteHostnameMatchProperty
forall a. Maybe a
Prelude.Nothing, method :: Maybe (Value Text)
method = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       path :: Maybe HttpPathMatchProperty
path = Maybe HttpPathMatchProperty
forall a. Maybe a
Prelude.Nothing, port :: Maybe (Value Integer)
port = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       prefix :: Maybe (Value Text)
prefix = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, queryParameters :: Maybe [QueryParameterProperty]
queryParameters = Maybe [QueryParameterProperty]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties HttpGatewayRouteMatchProperty where
  toResourceProperties :: HttpGatewayRouteMatchProperty -> ResourceProperties
toResourceProperties HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppMesh::GatewayRoute.HttpGatewayRouteMatch",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> [HttpGatewayRouteHeaderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Headers" ([HttpGatewayRouteHeaderProperty] -> (Key, Value))
-> Maybe [HttpGatewayRouteHeaderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [HttpGatewayRouteHeaderProperty]
headers,
                            Key -> GatewayRouteHostnameMatchProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Hostname" (GatewayRouteHostnameMatchProperty -> (Key, Value))
-> Maybe GatewayRouteHostnameMatchProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GatewayRouteHostnameMatchProperty
hostname,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Method" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
method,
                            Key -> HttpPathMatchProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Path" (HttpPathMatchProperty -> (Key, Value))
-> Maybe HttpPathMatchProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HttpPathMatchProperty
path,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Port" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
port,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Prefix" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
prefix,
                            Key -> [QueryParameterProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"QueryParameters" ([QueryParameterProperty] -> (Key, Value))
-> Maybe [QueryParameterProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [QueryParameterProperty]
queryParameters])}
instance JSON.ToJSON HttpGatewayRouteMatchProperty where
  toJSON :: HttpGatewayRouteMatchProperty -> Value
toJSON HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> [HttpGatewayRouteHeaderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Headers" ([HttpGatewayRouteHeaderProperty] -> (Key, Value))
-> Maybe [HttpGatewayRouteHeaderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [HttpGatewayRouteHeaderProperty]
headers,
               Key -> GatewayRouteHostnameMatchProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Hostname" (GatewayRouteHostnameMatchProperty -> (Key, Value))
-> Maybe GatewayRouteHostnameMatchProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GatewayRouteHostnameMatchProperty
hostname,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Method" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
method,
               Key -> HttpPathMatchProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Path" (HttpPathMatchProperty -> (Key, Value))
-> Maybe HttpPathMatchProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HttpPathMatchProperty
path,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Port" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
port,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Prefix" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
prefix,
               Key -> [QueryParameterProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"QueryParameters" ([QueryParameterProperty] -> (Key, Value))
-> Maybe [QueryParameterProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [QueryParameterProperty]
queryParameters]))
instance Property "Headers" HttpGatewayRouteMatchProperty where
  type PropertyType "Headers" HttpGatewayRouteMatchProperty = [HttpGatewayRouteHeaderProperty]
  set :: PropertyType "Headers" HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> HttpGatewayRouteMatchProperty
set PropertyType "Headers" HttpGatewayRouteMatchProperty
newValue HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = HttpGatewayRouteMatchProperty
        {headers :: Maybe [HttpGatewayRouteHeaderProperty]
headers = [HttpGatewayRouteHeaderProperty]
-> Maybe [HttpGatewayRouteHeaderProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [HttpGatewayRouteHeaderProperty]
PropertyType "Headers" HttpGatewayRouteMatchProperty
newValue, Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
instance Property "Hostname" HttpGatewayRouteMatchProperty where
  type PropertyType "Hostname" HttpGatewayRouteMatchProperty = GatewayRouteHostnameMatchProperty
  set :: PropertyType "Hostname" HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> HttpGatewayRouteMatchProperty
set PropertyType "Hostname" HttpGatewayRouteMatchProperty
newValue HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = HttpGatewayRouteMatchProperty
        {hostname :: Maybe GatewayRouteHostnameMatchProperty
hostname = GatewayRouteHostnameMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Hostname" HttpGatewayRouteMatchProperty
GatewayRouteHostnameMatchProperty
newValue, Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
instance Property "Method" HttpGatewayRouteMatchProperty where
  type PropertyType "Method" HttpGatewayRouteMatchProperty = Value Prelude.Text
  set :: PropertyType "Method" HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> HttpGatewayRouteMatchProperty
set PropertyType "Method" HttpGatewayRouteMatchProperty
newValue HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = HttpGatewayRouteMatchProperty
        {method :: Maybe (Value Text)
method = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Method" HttpGatewayRouteMatchProperty
Value Text
newValue, Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
instance Property "Path" HttpGatewayRouteMatchProperty where
  type PropertyType "Path" HttpGatewayRouteMatchProperty = HttpPathMatchProperty
  set :: PropertyType "Path" HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> HttpGatewayRouteMatchProperty
set PropertyType "Path" HttpGatewayRouteMatchProperty
newValue HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = HttpGatewayRouteMatchProperty {path :: Maybe HttpPathMatchProperty
path = HttpPathMatchProperty -> Maybe HttpPathMatchProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Path" HttpGatewayRouteMatchProperty
HttpPathMatchProperty
newValue, Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
instance Property "Port" HttpGatewayRouteMatchProperty where
  type PropertyType "Port" HttpGatewayRouteMatchProperty = Value Prelude.Integer
  set :: PropertyType "Port" HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> HttpGatewayRouteMatchProperty
set PropertyType "Port" HttpGatewayRouteMatchProperty
newValue HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = HttpGatewayRouteMatchProperty {port :: Maybe (Value Integer)
port = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Port" HttpGatewayRouteMatchProperty
Value Integer
newValue, Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
instance Property "Prefix" HttpGatewayRouteMatchProperty where
  type PropertyType "Prefix" HttpGatewayRouteMatchProperty = Value Prelude.Text
  set :: PropertyType "Prefix" HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> HttpGatewayRouteMatchProperty
set PropertyType "Prefix" HttpGatewayRouteMatchProperty
newValue HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = HttpGatewayRouteMatchProperty
        {prefix :: Maybe (Value Text)
prefix = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Prefix" HttpGatewayRouteMatchProperty
Value Text
newValue, Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
queryParameters :: Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
queryParameters :: Maybe [QueryParameterProperty]
..}
instance Property "QueryParameters" HttpGatewayRouteMatchProperty where
  type PropertyType "QueryParameters" HttpGatewayRouteMatchProperty = [QueryParameterProperty]
  set :: PropertyType "QueryParameters" HttpGatewayRouteMatchProperty
-> HttpGatewayRouteMatchProperty -> HttpGatewayRouteMatchProperty
set PropertyType "QueryParameters" HttpGatewayRouteMatchProperty
newValue HttpGatewayRouteMatchProperty {Maybe [HttpGatewayRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpGatewayRouteMatchProperty -> ()
headers :: HttpGatewayRouteMatchProperty
-> Maybe [HttpGatewayRouteHeaderProperty]
hostname :: HttpGatewayRouteMatchProperty
-> Maybe GatewayRouteHostnameMatchProperty
method :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
path :: HttpGatewayRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpGatewayRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpGatewayRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpGatewayRouteMatchProperty -> Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}
    = HttpGatewayRouteMatchProperty
        {queryParameters :: Maybe [QueryParameterProperty]
queryParameters = [QueryParameterProperty] -> Maybe [QueryParameterProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [QueryParameterProperty]
PropertyType "QueryParameters" HttpGatewayRouteMatchProperty
newValue, Maybe [HttpGatewayRouteHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe GatewayRouteHostnameMatchProperty
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpGatewayRouteHeaderProperty]
hostname :: Maybe GatewayRouteHostnameMatchProperty
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
..}