module Stratosphere.ElasticLoadBalancingV2.ListenerRule.RewriteConfigProperty (
        RewriteConfigProperty(..), mkRewriteConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data RewriteConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-rewriteconfig.html>
    RewriteConfigProperty {RewriteConfigProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-rewriteconfig.html#cfn-elasticloadbalancingv2-listenerrule-rewriteconfig-regex>
                           RewriteConfigProperty -> Value Text
regex :: (Value Prelude.Text),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-rewriteconfig.html#cfn-elasticloadbalancingv2-listenerrule-rewriteconfig-replace>
                           RewriteConfigProperty -> Value Text
replace :: (Value Prelude.Text)}
  deriving stock (RewriteConfigProperty -> RewriteConfigProperty -> Bool
(RewriteConfigProperty -> RewriteConfigProperty -> Bool)
-> (RewriteConfigProperty -> RewriteConfigProperty -> Bool)
-> Eq RewriteConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RewriteConfigProperty -> RewriteConfigProperty -> Bool
== :: RewriteConfigProperty -> RewriteConfigProperty -> Bool
$c/= :: RewriteConfigProperty -> RewriteConfigProperty -> Bool
/= :: RewriteConfigProperty -> RewriteConfigProperty -> Bool
Prelude.Eq, Int -> RewriteConfigProperty -> ShowS
[RewriteConfigProperty] -> ShowS
RewriteConfigProperty -> String
(Int -> RewriteConfigProperty -> ShowS)
-> (RewriteConfigProperty -> String)
-> ([RewriteConfigProperty] -> ShowS)
-> Show RewriteConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RewriteConfigProperty -> ShowS
showsPrec :: Int -> RewriteConfigProperty -> ShowS
$cshow :: RewriteConfigProperty -> String
show :: RewriteConfigProperty -> String
$cshowList :: [RewriteConfigProperty] -> ShowS
showList :: [RewriteConfigProperty] -> ShowS
Prelude.Show)
mkRewriteConfigProperty ::
  Value Prelude.Text -> Value Prelude.Text -> RewriteConfigProperty
mkRewriteConfigProperty :: Value Text -> Value Text -> RewriteConfigProperty
mkRewriteConfigProperty Value Text
regex Value Text
replace
  = RewriteConfigProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), regex :: Value Text
regex = Value Text
regex, replace :: Value Text
replace = Value Text
replace}
instance ToResourceProperties RewriteConfigProperty where
  toResourceProperties :: RewriteConfigProperty -> ResourceProperties
toResourceProperties RewriteConfigProperty {()
Value Text
haddock_workaround_ :: RewriteConfigProperty -> ()
regex :: RewriteConfigProperty -> Value Text
replace :: RewriteConfigProperty -> Value Text
haddock_workaround_ :: ()
regex :: Value Text
replace :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ElasticLoadBalancingV2::ListenerRule.RewriteConfig",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Regex" 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..= Value Text
regex, Key
"Replace" 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..= Value Text
replace]}
instance JSON.ToJSON RewriteConfigProperty where
  toJSON :: RewriteConfigProperty -> Value
toJSON RewriteConfigProperty {()
Value Text
haddock_workaround_ :: RewriteConfigProperty -> ()
regex :: RewriteConfigProperty -> Value Text
replace :: RewriteConfigProperty -> Value Text
haddock_workaround_ :: ()
regex :: Value Text
replace :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Regex" 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..= Value Text
regex, Key
"Replace" 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..= Value Text
replace]
instance Property "Regex" RewriteConfigProperty where
  type PropertyType "Regex" RewriteConfigProperty = Value Prelude.Text
  set :: PropertyType "Regex" RewriteConfigProperty
-> RewriteConfigProperty -> RewriteConfigProperty
set PropertyType "Regex" RewriteConfigProperty
newValue RewriteConfigProperty {()
Value Text
haddock_workaround_ :: RewriteConfigProperty -> ()
regex :: RewriteConfigProperty -> Value Text
replace :: RewriteConfigProperty -> Value Text
haddock_workaround_ :: ()
regex :: Value Text
replace :: Value Text
..}
    = RewriteConfigProperty {regex :: Value Text
regex = PropertyType "Regex" RewriteConfigProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
replace :: Value Text
haddock_workaround_ :: ()
replace :: Value Text
..}
instance Property "Replace" RewriteConfigProperty where
  type PropertyType "Replace" RewriteConfigProperty = Value Prelude.Text
  set :: PropertyType "Replace" RewriteConfigProperty
-> RewriteConfigProperty -> RewriteConfigProperty
set PropertyType "Replace" RewriteConfigProperty
newValue RewriteConfigProperty {()
Value Text
haddock_workaround_ :: RewriteConfigProperty -> ()
regex :: RewriteConfigProperty -> Value Text
replace :: RewriteConfigProperty -> Value Text
haddock_workaround_ :: ()
regex :: Value Text
replace :: Value Text
..}
    = RewriteConfigProperty {replace :: Value Text
replace = PropertyType "Replace" RewriteConfigProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
regex :: Value Text
haddock_workaround_ :: ()
regex :: Value Text
..}