module Stratosphere.AppMesh.Route.HttpRouteMatchProperty (
        module Exports, HttpRouteMatchProperty(..),
        mkHttpRouteMatchProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppMesh.Route.HttpPathMatchProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.Route.HttpRouteHeaderProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.Route.QueryParameterProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data HttpRouteMatchProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html>
    HttpRouteMatchProperty {HttpRouteMatchProperty -> ()
haddock_workaround_ :: (),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-headers>
                            HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
headers :: (Prelude.Maybe [HttpRouteHeaderProperty]),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-method>
                            HttpRouteMatchProperty -> Maybe (Value Text)
method :: (Prelude.Maybe (Value Prelude.Text)),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-path>
                            HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
path :: (Prelude.Maybe HttpPathMatchProperty),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-port>
                            HttpRouteMatchProperty -> Maybe (Value Integer)
port :: (Prelude.Maybe (Value Prelude.Integer)),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-prefix>
                            HttpRouteMatchProperty -> Maybe (Value Text)
prefix :: (Prelude.Maybe (Value Prelude.Text)),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-queryparameters>
                            HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
queryParameters :: (Prelude.Maybe [QueryParameterProperty]),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-scheme>
                            HttpRouteMatchProperty -> Maybe (Value Text)
scheme :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (HttpRouteMatchProperty -> HttpRouteMatchProperty -> Bool
(HttpRouteMatchProperty -> HttpRouteMatchProperty -> Bool)
-> (HttpRouteMatchProperty -> HttpRouteMatchProperty -> Bool)
-> Eq HttpRouteMatchProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HttpRouteMatchProperty -> HttpRouteMatchProperty -> Bool
== :: HttpRouteMatchProperty -> HttpRouteMatchProperty -> Bool
$c/= :: HttpRouteMatchProperty -> HttpRouteMatchProperty -> Bool
/= :: HttpRouteMatchProperty -> HttpRouteMatchProperty -> Bool
Prelude.Eq, Int -> HttpRouteMatchProperty -> ShowS
[HttpRouteMatchProperty] -> ShowS
HttpRouteMatchProperty -> String
(Int -> HttpRouteMatchProperty -> ShowS)
-> (HttpRouteMatchProperty -> String)
-> ([HttpRouteMatchProperty] -> ShowS)
-> Show HttpRouteMatchProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HttpRouteMatchProperty -> ShowS
showsPrec :: Int -> HttpRouteMatchProperty -> ShowS
$cshow :: HttpRouteMatchProperty -> String
show :: HttpRouteMatchProperty -> String
$cshowList :: [HttpRouteMatchProperty] -> ShowS
showList :: [HttpRouteMatchProperty] -> ShowS
Prelude.Show)
mkHttpRouteMatchProperty :: HttpRouteMatchProperty
mkHttpRouteMatchProperty :: HttpRouteMatchProperty
mkHttpRouteMatchProperty
  = HttpRouteMatchProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), headers :: Maybe [HttpRouteHeaderProperty]
headers = Maybe [HttpRouteHeaderProperty]
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, scheme :: Maybe (Value Text)
scheme = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties HttpRouteMatchProperty where
  toResourceProperties :: HttpRouteMatchProperty -> ResourceProperties
toResourceProperties HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppMesh::Route.HttpRouteMatch",
         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 -> [HttpRouteHeaderProperty] -> (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" ([HttpRouteHeaderProperty] -> (Key, Value))
-> Maybe [HttpRouteHeaderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [HttpRouteHeaderProperty]
headers,
                            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,
                            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
"Scheme" (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)
scheme])}
instance JSON.ToJSON HttpRouteMatchProperty where
  toJSON :: HttpRouteMatchProperty -> Value
toJSON HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = [(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 -> [HttpRouteHeaderProperty] -> (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" ([HttpRouteHeaderProperty] -> (Key, Value))
-> Maybe [HttpRouteHeaderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [HttpRouteHeaderProperty]
headers,
               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,
               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
"Scheme" (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)
scheme]))
instance Property "Headers" HttpRouteMatchProperty where
  type PropertyType "Headers" HttpRouteMatchProperty = [HttpRouteHeaderProperty]
  set :: PropertyType "Headers" HttpRouteMatchProperty
-> HttpRouteMatchProperty -> HttpRouteMatchProperty
set PropertyType "Headers" HttpRouteMatchProperty
newValue HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = HttpRouteMatchProperty {headers :: Maybe [HttpRouteHeaderProperty]
headers = [HttpRouteHeaderProperty] -> Maybe [HttpRouteHeaderProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [HttpRouteHeaderProperty]
PropertyType "Headers" HttpRouteMatchProperty
newValue, Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
haddock_workaround_ :: ()
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
instance Property "Method" HttpRouteMatchProperty where
  type PropertyType "Method" HttpRouteMatchProperty = Value Prelude.Text
  set :: PropertyType "Method" HttpRouteMatchProperty
-> HttpRouteMatchProperty -> HttpRouteMatchProperty
set PropertyType "Method" HttpRouteMatchProperty
newValue HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = HttpRouteMatchProperty {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" HttpRouteMatchProperty
Value Text
newValue, Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
instance Property "Path" HttpRouteMatchProperty where
  type PropertyType "Path" HttpRouteMatchProperty = HttpPathMatchProperty
  set :: PropertyType "Path" HttpRouteMatchProperty
-> HttpRouteMatchProperty -> HttpRouteMatchProperty
set PropertyType "Path" HttpRouteMatchProperty
newValue HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = HttpRouteMatchProperty {path :: Maybe HttpPathMatchProperty
path = HttpPathMatchProperty -> Maybe HttpPathMatchProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Path" HttpRouteMatchProperty
HttpPathMatchProperty
newValue, Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
instance Property "Port" HttpRouteMatchProperty where
  type PropertyType "Port" HttpRouteMatchProperty = Value Prelude.Integer
  set :: PropertyType "Port" HttpRouteMatchProperty
-> HttpRouteMatchProperty -> HttpRouteMatchProperty
set PropertyType "Port" HttpRouteMatchProperty
newValue HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = HttpRouteMatchProperty {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" HttpRouteMatchProperty
Value Integer
newValue, Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
instance Property "Prefix" HttpRouteMatchProperty where
  type PropertyType "Prefix" HttpRouteMatchProperty = Value Prelude.Text
  set :: PropertyType "Prefix" HttpRouteMatchProperty
-> HttpRouteMatchProperty -> HttpRouteMatchProperty
set PropertyType "Prefix" HttpRouteMatchProperty
newValue HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = HttpRouteMatchProperty {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" HttpRouteMatchProperty
Value Text
newValue, Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
instance Property "QueryParameters" HttpRouteMatchProperty where
  type PropertyType "QueryParameters" HttpRouteMatchProperty = [QueryParameterProperty]
  set :: PropertyType "QueryParameters" HttpRouteMatchProperty
-> HttpRouteMatchProperty -> HttpRouteMatchProperty
set PropertyType "QueryParameters" HttpRouteMatchProperty
newValue HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = HttpRouteMatchProperty
        {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" HttpRouteMatchProperty
newValue, Maybe [HttpRouteHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
scheme :: Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
scheme :: Maybe (Value Text)
..}
instance Property "Scheme" HttpRouteMatchProperty where
  type PropertyType "Scheme" HttpRouteMatchProperty = Value Prelude.Text
  set :: PropertyType "Scheme" HttpRouteMatchProperty
-> HttpRouteMatchProperty -> HttpRouteMatchProperty
set PropertyType "Scheme" HttpRouteMatchProperty
newValue HttpRouteMatchProperty {Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: HttpRouteMatchProperty -> ()
headers :: HttpRouteMatchProperty -> Maybe [HttpRouteHeaderProperty]
method :: HttpRouteMatchProperty -> Maybe (Value Text)
path :: HttpRouteMatchProperty -> Maybe HttpPathMatchProperty
port :: HttpRouteMatchProperty -> Maybe (Value Integer)
prefix :: HttpRouteMatchProperty -> Maybe (Value Text)
queryParameters :: HttpRouteMatchProperty -> Maybe [QueryParameterProperty]
scheme :: HttpRouteMatchProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
scheme :: Maybe (Value Text)
..}
    = HttpRouteMatchProperty {scheme :: Maybe (Value Text)
scheme = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Scheme" HttpRouteMatchProperty
Value Text
newValue, Maybe [HttpRouteHeaderProperty]
Maybe [QueryParameterProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe HttpPathMatchProperty
()
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
haddock_workaround_ :: ()
headers :: Maybe [HttpRouteHeaderProperty]
method :: Maybe (Value Text)
path :: Maybe HttpPathMatchProperty
port :: Maybe (Value Integer)
prefix :: Maybe (Value Text)
queryParameters :: Maybe [QueryParameterProperty]
..}