module Stratosphere.AppMesh.GatewayRoute.HttpGatewayRouteRewriteProperty (
        module Exports, HttpGatewayRouteRewriteProperty(..),
        mkHttpGatewayRouteRewriteProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppMesh.GatewayRoute.GatewayRouteHostnameRewriteProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.GatewayRoute.HttpGatewayRoutePathRewriteProperty as Exports
import {-# SOURCE #-} Stratosphere.AppMesh.GatewayRoute.HttpGatewayRoutePrefixRewriteProperty as Exports
import Stratosphere.ResourceProperties
data HttpGatewayRouteRewriteProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayrouterewrite.html>
    HttpGatewayRouteRewriteProperty {HttpGatewayRouteRewriteProperty -> ()
haddock_workaround_ :: (),
                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayrouterewrite.html#cfn-appmesh-gatewayroute-httpgatewayrouterewrite-hostname>
                                     HttpGatewayRouteRewriteProperty
-> Maybe GatewayRouteHostnameRewriteProperty
hostname :: (Prelude.Maybe GatewayRouteHostnameRewriteProperty),
                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayrouterewrite.html#cfn-appmesh-gatewayroute-httpgatewayrouterewrite-path>
                                     HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePathRewriteProperty
path :: (Prelude.Maybe HttpGatewayRoutePathRewriteProperty),
                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayrouterewrite.html#cfn-appmesh-gatewayroute-httpgatewayrouterewrite-prefix>
                                     HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePrefixRewriteProperty
prefix :: (Prelude.Maybe HttpGatewayRoutePrefixRewriteProperty)}
  deriving stock (HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty -> Bool
(HttpGatewayRouteRewriteProperty
 -> HttpGatewayRouteRewriteProperty -> Bool)
-> (HttpGatewayRouteRewriteProperty
    -> HttpGatewayRouteRewriteProperty -> Bool)
-> Eq HttpGatewayRouteRewriteProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty -> Bool
== :: HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty -> Bool
$c/= :: HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty -> Bool
/= :: HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty -> Bool
Prelude.Eq, Int -> HttpGatewayRouteRewriteProperty -> ShowS
[HttpGatewayRouteRewriteProperty] -> ShowS
HttpGatewayRouteRewriteProperty -> String
(Int -> HttpGatewayRouteRewriteProperty -> ShowS)
-> (HttpGatewayRouteRewriteProperty -> String)
-> ([HttpGatewayRouteRewriteProperty] -> ShowS)
-> Show HttpGatewayRouteRewriteProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HttpGatewayRouteRewriteProperty -> ShowS
showsPrec :: Int -> HttpGatewayRouteRewriteProperty -> ShowS
$cshow :: HttpGatewayRouteRewriteProperty -> String
show :: HttpGatewayRouteRewriteProperty -> String
$cshowList :: [HttpGatewayRouteRewriteProperty] -> ShowS
showList :: [HttpGatewayRouteRewriteProperty] -> ShowS
Prelude.Show)
mkHttpGatewayRouteRewriteProperty ::
  HttpGatewayRouteRewriteProperty
mkHttpGatewayRouteRewriteProperty :: HttpGatewayRouteRewriteProperty
mkHttpGatewayRouteRewriteProperty
  = HttpGatewayRouteRewriteProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), hostname :: Maybe GatewayRouteHostnameRewriteProperty
hostname = Maybe GatewayRouteHostnameRewriteProperty
forall a. Maybe a
Prelude.Nothing,
       path :: Maybe HttpGatewayRoutePathRewriteProperty
path = Maybe HttpGatewayRoutePathRewriteProperty
forall a. Maybe a
Prelude.Nothing, prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
prefix = Maybe HttpGatewayRoutePrefixRewriteProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties HttpGatewayRouteRewriteProperty where
  toResourceProperties :: HttpGatewayRouteRewriteProperty -> ResourceProperties
toResourceProperties HttpGatewayRouteRewriteProperty {Maybe GatewayRouteHostnameRewriteProperty
Maybe HttpGatewayRoutePathRewriteProperty
Maybe HttpGatewayRoutePrefixRewriteProperty
()
haddock_workaround_ :: HttpGatewayRouteRewriteProperty -> ()
hostname :: HttpGatewayRouteRewriteProperty
-> Maybe GatewayRouteHostnameRewriteProperty
path :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePathRewriteProperty
prefix :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePrefixRewriteProperty
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
path :: Maybe HttpGatewayRoutePathRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppMesh::GatewayRoute.HttpGatewayRouteRewrite",
         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 -> GatewayRouteHostnameRewriteProperty -> (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" (GatewayRouteHostnameRewriteProperty -> (Key, Value))
-> Maybe GatewayRouteHostnameRewriteProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GatewayRouteHostnameRewriteProperty
hostname,
                            Key -> HttpGatewayRoutePathRewriteProperty -> (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" (HttpGatewayRoutePathRewriteProperty -> (Key, Value))
-> Maybe HttpGatewayRoutePathRewriteProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HttpGatewayRoutePathRewriteProperty
path,
                            Key -> HttpGatewayRoutePrefixRewriteProperty -> (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" (HttpGatewayRoutePrefixRewriteProperty -> (Key, Value))
-> Maybe HttpGatewayRoutePrefixRewriteProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HttpGatewayRoutePrefixRewriteProperty
prefix])}
instance JSON.ToJSON HttpGatewayRouteRewriteProperty where
  toJSON :: HttpGatewayRouteRewriteProperty -> Value
toJSON HttpGatewayRouteRewriteProperty {Maybe GatewayRouteHostnameRewriteProperty
Maybe HttpGatewayRoutePathRewriteProperty
Maybe HttpGatewayRoutePrefixRewriteProperty
()
haddock_workaround_ :: HttpGatewayRouteRewriteProperty -> ()
hostname :: HttpGatewayRouteRewriteProperty
-> Maybe GatewayRouteHostnameRewriteProperty
path :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePathRewriteProperty
prefix :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePrefixRewriteProperty
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
path :: Maybe HttpGatewayRoutePathRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
..}
    = [(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 -> GatewayRouteHostnameRewriteProperty -> (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" (GatewayRouteHostnameRewriteProperty -> (Key, Value))
-> Maybe GatewayRouteHostnameRewriteProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GatewayRouteHostnameRewriteProperty
hostname,
               Key -> HttpGatewayRoutePathRewriteProperty -> (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" (HttpGatewayRoutePathRewriteProperty -> (Key, Value))
-> Maybe HttpGatewayRoutePathRewriteProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HttpGatewayRoutePathRewriteProperty
path,
               Key -> HttpGatewayRoutePrefixRewriteProperty -> (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" (HttpGatewayRoutePrefixRewriteProperty -> (Key, Value))
-> Maybe HttpGatewayRoutePrefixRewriteProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HttpGatewayRoutePrefixRewriteProperty
prefix]))
instance Property "Hostname" HttpGatewayRouteRewriteProperty where
  type PropertyType "Hostname" HttpGatewayRouteRewriteProperty = GatewayRouteHostnameRewriteProperty
  set :: PropertyType "Hostname" HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty
set PropertyType "Hostname" HttpGatewayRouteRewriteProperty
newValue HttpGatewayRouteRewriteProperty {Maybe GatewayRouteHostnameRewriteProperty
Maybe HttpGatewayRoutePathRewriteProperty
Maybe HttpGatewayRoutePrefixRewriteProperty
()
haddock_workaround_ :: HttpGatewayRouteRewriteProperty -> ()
hostname :: HttpGatewayRouteRewriteProperty
-> Maybe GatewayRouteHostnameRewriteProperty
path :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePathRewriteProperty
prefix :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePrefixRewriteProperty
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
path :: Maybe HttpGatewayRoutePathRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
..}
    = HttpGatewayRouteRewriteProperty
        {hostname :: Maybe GatewayRouteHostnameRewriteProperty
hostname = GatewayRouteHostnameRewriteProperty
-> Maybe GatewayRouteHostnameRewriteProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Hostname" HttpGatewayRouteRewriteProperty
GatewayRouteHostnameRewriteProperty
newValue, Maybe HttpGatewayRoutePathRewriteProperty
Maybe HttpGatewayRoutePrefixRewriteProperty
()
haddock_workaround_ :: ()
path :: Maybe HttpGatewayRoutePathRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
haddock_workaround_ :: ()
path :: Maybe HttpGatewayRoutePathRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
..}
instance Property "Path" HttpGatewayRouteRewriteProperty where
  type PropertyType "Path" HttpGatewayRouteRewriteProperty = HttpGatewayRoutePathRewriteProperty
  set :: PropertyType "Path" HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty
set PropertyType "Path" HttpGatewayRouteRewriteProperty
newValue HttpGatewayRouteRewriteProperty {Maybe GatewayRouteHostnameRewriteProperty
Maybe HttpGatewayRoutePathRewriteProperty
Maybe HttpGatewayRoutePrefixRewriteProperty
()
haddock_workaround_ :: HttpGatewayRouteRewriteProperty -> ()
hostname :: HttpGatewayRouteRewriteProperty
-> Maybe GatewayRouteHostnameRewriteProperty
path :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePathRewriteProperty
prefix :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePrefixRewriteProperty
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
path :: Maybe HttpGatewayRoutePathRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
..}
    = HttpGatewayRouteRewriteProperty
        {path :: Maybe HttpGatewayRoutePathRewriteProperty
path = HttpGatewayRoutePathRewriteProperty
-> Maybe HttpGatewayRoutePathRewriteProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Path" HttpGatewayRouteRewriteProperty
HttpGatewayRoutePathRewriteProperty
newValue, Maybe GatewayRouteHostnameRewriteProperty
Maybe HttpGatewayRoutePrefixRewriteProperty
()
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
..}
instance Property "Prefix" HttpGatewayRouteRewriteProperty where
  type PropertyType "Prefix" HttpGatewayRouteRewriteProperty = HttpGatewayRoutePrefixRewriteProperty
  set :: PropertyType "Prefix" HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty
-> HttpGatewayRouteRewriteProperty
set PropertyType "Prefix" HttpGatewayRouteRewriteProperty
newValue HttpGatewayRouteRewriteProperty {Maybe GatewayRouteHostnameRewriteProperty
Maybe HttpGatewayRoutePathRewriteProperty
Maybe HttpGatewayRoutePrefixRewriteProperty
()
haddock_workaround_ :: HttpGatewayRouteRewriteProperty -> ()
hostname :: HttpGatewayRouteRewriteProperty
-> Maybe GatewayRouteHostnameRewriteProperty
path :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePathRewriteProperty
prefix :: HttpGatewayRouteRewriteProperty
-> Maybe HttpGatewayRoutePrefixRewriteProperty
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
path :: Maybe HttpGatewayRoutePathRewriteProperty
prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
..}
    = HttpGatewayRouteRewriteProperty
        {prefix :: Maybe HttpGatewayRoutePrefixRewriteProperty
prefix = HttpGatewayRoutePrefixRewriteProperty
-> Maybe HttpGatewayRoutePrefixRewriteProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Prefix" HttpGatewayRouteRewriteProperty
HttpGatewayRoutePrefixRewriteProperty
newValue, Maybe GatewayRouteHostnameRewriteProperty
Maybe HttpGatewayRoutePathRewriteProperty
()
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
path :: Maybe HttpGatewayRoutePathRewriteProperty
haddock_workaround_ :: ()
hostname :: Maybe GatewayRouteHostnameRewriteProperty
path :: Maybe HttpGatewayRoutePathRewriteProperty
..}