module Stratosphere.EC2.LocalGatewayRoute (
        LocalGatewayRoute(..), mkLocalGatewayRoute
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data LocalGatewayRoute
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html>
    LocalGatewayRoute {LocalGatewayRoute -> ()
haddock_workaround_ :: (),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html#cfn-ec2-localgatewayroute-destinationcidrblock>
                       LocalGatewayRoute -> Value Text
destinationCidrBlock :: (Value Prelude.Text),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html#cfn-ec2-localgatewayroute-localgatewayroutetableid>
                       LocalGatewayRoute -> Value Text
localGatewayRouteTableId :: (Value Prelude.Text),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html#cfn-ec2-localgatewayroute-localgatewayvirtualinterfacegroupid>
                       LocalGatewayRoute -> Maybe (Value Text)
localGatewayVirtualInterfaceGroupId :: (Prelude.Maybe (Value Prelude.Text)),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html#cfn-ec2-localgatewayroute-networkinterfaceid>
                       LocalGatewayRoute -> Maybe (Value Text)
networkInterfaceId :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (LocalGatewayRoute -> LocalGatewayRoute -> Bool
(LocalGatewayRoute -> LocalGatewayRoute -> Bool)
-> (LocalGatewayRoute -> LocalGatewayRoute -> Bool)
-> Eq LocalGatewayRoute
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LocalGatewayRoute -> LocalGatewayRoute -> Bool
== :: LocalGatewayRoute -> LocalGatewayRoute -> Bool
$c/= :: LocalGatewayRoute -> LocalGatewayRoute -> Bool
/= :: LocalGatewayRoute -> LocalGatewayRoute -> Bool
Prelude.Eq, Int -> LocalGatewayRoute -> ShowS
[LocalGatewayRoute] -> ShowS
LocalGatewayRoute -> String
(Int -> LocalGatewayRoute -> ShowS)
-> (LocalGatewayRoute -> String)
-> ([LocalGatewayRoute] -> ShowS)
-> Show LocalGatewayRoute
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LocalGatewayRoute -> ShowS
showsPrec :: Int -> LocalGatewayRoute -> ShowS
$cshow :: LocalGatewayRoute -> String
show :: LocalGatewayRoute -> String
$cshowList :: [LocalGatewayRoute] -> ShowS
showList :: [LocalGatewayRoute] -> ShowS
Prelude.Show)
mkLocalGatewayRoute ::
  Value Prelude.Text -> Value Prelude.Text -> LocalGatewayRoute
mkLocalGatewayRoute :: Value Text -> Value Text -> LocalGatewayRoute
mkLocalGatewayRoute Value Text
destinationCidrBlock Value Text
localGatewayRouteTableId
  = LocalGatewayRoute
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       destinationCidrBlock :: Value Text
destinationCidrBlock = Value Text
destinationCidrBlock,
       localGatewayRouteTableId :: Value Text
localGatewayRouteTableId = Value Text
localGatewayRouteTableId,
       localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
localGatewayVirtualInterfaceGroupId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       networkInterfaceId :: Maybe (Value Text)
networkInterfaceId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties LocalGatewayRoute where
  toResourceProperties :: LocalGatewayRoute -> ResourceProperties
toResourceProperties LocalGatewayRoute {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: LocalGatewayRoute -> ()
destinationCidrBlock :: LocalGatewayRoute -> Value Text
localGatewayRouteTableId :: LocalGatewayRoute -> Value Text
localGatewayVirtualInterfaceGroupId :: LocalGatewayRoute -> Maybe (Value Text)
networkInterfaceId :: LocalGatewayRoute -> Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::EC2::LocalGatewayRoute",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"DestinationCidrBlock" 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
destinationCidrBlock,
                            Key
"LocalGatewayRouteTableId" 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
localGatewayRouteTableId]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [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
"LocalGatewayVirtualInterfaceGroupId"
                                 (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)
localGatewayVirtualInterfaceGroupId,
                               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
"NetworkInterfaceId" (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)
networkInterfaceId]))}
instance JSON.ToJSON LocalGatewayRoute where
  toJSON :: LocalGatewayRoute -> Value
toJSON LocalGatewayRoute {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: LocalGatewayRoute -> ()
destinationCidrBlock :: LocalGatewayRoute -> Value Text
localGatewayRouteTableId :: LocalGatewayRoute -> Value Text
localGatewayVirtualInterfaceGroupId :: LocalGatewayRoute -> Maybe (Value Text)
networkInterfaceId :: LocalGatewayRoute -> Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"DestinationCidrBlock" 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
destinationCidrBlock,
               Key
"LocalGatewayRouteTableId" 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
localGatewayRouteTableId]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [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
"LocalGatewayVirtualInterfaceGroupId"
                    (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)
localGatewayVirtualInterfaceGroupId,
                  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
"NetworkInterfaceId" (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)
networkInterfaceId])))
instance Property "DestinationCidrBlock" LocalGatewayRoute where
  type PropertyType "DestinationCidrBlock" LocalGatewayRoute = Value Prelude.Text
  set :: PropertyType "DestinationCidrBlock" LocalGatewayRoute
-> LocalGatewayRoute -> LocalGatewayRoute
set PropertyType "DestinationCidrBlock" LocalGatewayRoute
newValue LocalGatewayRoute {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: LocalGatewayRoute -> ()
destinationCidrBlock :: LocalGatewayRoute -> Value Text
localGatewayRouteTableId :: LocalGatewayRoute -> Value Text
localGatewayVirtualInterfaceGroupId :: LocalGatewayRoute -> Maybe (Value Text)
networkInterfaceId :: LocalGatewayRoute -> Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
..}
    = LocalGatewayRoute {destinationCidrBlock :: Value Text
destinationCidrBlock = PropertyType "DestinationCidrBlock" LocalGatewayRoute
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
haddock_workaround_ :: ()
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
..}
instance Property "LocalGatewayRouteTableId" LocalGatewayRoute where
  type PropertyType "LocalGatewayRouteTableId" LocalGatewayRoute = Value Prelude.Text
  set :: PropertyType "LocalGatewayRouteTableId" LocalGatewayRoute
-> LocalGatewayRoute -> LocalGatewayRoute
set PropertyType "LocalGatewayRouteTableId" LocalGatewayRoute
newValue LocalGatewayRoute {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: LocalGatewayRoute -> ()
destinationCidrBlock :: LocalGatewayRoute -> Value Text
localGatewayRouteTableId :: LocalGatewayRoute -> Value Text
localGatewayVirtualInterfaceGroupId :: LocalGatewayRoute -> Maybe (Value Text)
networkInterfaceId :: LocalGatewayRoute -> Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
..}
    = LocalGatewayRoute {localGatewayRouteTableId :: Value Text
localGatewayRouteTableId = PropertyType "LocalGatewayRouteTableId" LocalGatewayRoute
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
..}
instance Property "LocalGatewayVirtualInterfaceGroupId" LocalGatewayRoute where
  type PropertyType "LocalGatewayVirtualInterfaceGroupId" LocalGatewayRoute = Value Prelude.Text
  set :: PropertyType
  "LocalGatewayVirtualInterfaceGroupId" LocalGatewayRoute
-> LocalGatewayRoute -> LocalGatewayRoute
set PropertyType
  "LocalGatewayVirtualInterfaceGroupId" LocalGatewayRoute
newValue LocalGatewayRoute {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: LocalGatewayRoute -> ()
destinationCidrBlock :: LocalGatewayRoute -> Value Text
localGatewayRouteTableId :: LocalGatewayRoute -> Value Text
localGatewayVirtualInterfaceGroupId :: LocalGatewayRoute -> Maybe (Value Text)
networkInterfaceId :: LocalGatewayRoute -> Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
..}
    = LocalGatewayRoute
        {localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
localGatewayVirtualInterfaceGroupId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "LocalGatewayVirtualInterfaceGroupId" LocalGatewayRoute
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
networkInterfaceId :: Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
networkInterfaceId :: Maybe (Value Text)
..}
instance Property "NetworkInterfaceId" LocalGatewayRoute where
  type PropertyType "NetworkInterfaceId" LocalGatewayRoute = Value Prelude.Text
  set :: PropertyType "NetworkInterfaceId" LocalGatewayRoute
-> LocalGatewayRoute -> LocalGatewayRoute
set PropertyType "NetworkInterfaceId" LocalGatewayRoute
newValue LocalGatewayRoute {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: LocalGatewayRoute -> ()
destinationCidrBlock :: LocalGatewayRoute -> Value Text
localGatewayRouteTableId :: LocalGatewayRoute -> Value Text
localGatewayVirtualInterfaceGroupId :: LocalGatewayRoute -> Maybe (Value Text)
networkInterfaceId :: LocalGatewayRoute -> Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
networkInterfaceId :: Maybe (Value Text)
..}
    = LocalGatewayRoute
        {networkInterfaceId :: Maybe (Value Text)
networkInterfaceId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "NetworkInterfaceId" LocalGatewayRoute
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
haddock_workaround_ :: ()
destinationCidrBlock :: Value Text
localGatewayRouteTableId :: Value Text
localGatewayVirtualInterfaceGroupId :: Maybe (Value Text)
..}