module Network.AWS.EC2.EnableVgwRoutePropagation
(
EnableVgwRoutePropagation
, enableVgwRoutePropagation
, evrpGatewayId
, evrpRouteTableId
, EnableVgwRoutePropagationResponse
, enableVgwRoutePropagationResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data EnableVgwRoutePropagation = EnableVgwRoutePropagation
{ _evrpGatewayId :: Text
, _evrpRouteTableId :: Text
} deriving (Eq, Ord, Show)
enableVgwRoutePropagation :: Text
-> Text
-> EnableVgwRoutePropagation
enableVgwRoutePropagation p1 p2 = EnableVgwRoutePropagation
{ _evrpRouteTableId = p1
, _evrpGatewayId = p2
}
evrpGatewayId :: Lens' EnableVgwRoutePropagation Text
evrpGatewayId = lens _evrpGatewayId (\s a -> s { _evrpGatewayId = a })
evrpRouteTableId :: Lens' EnableVgwRoutePropagation Text
evrpRouteTableId = lens _evrpRouteTableId (\s a -> s { _evrpRouteTableId = a })
data EnableVgwRoutePropagationResponse = EnableVgwRoutePropagationResponse
deriving (Eq, Ord, Show, Generic)
enableVgwRoutePropagationResponse :: EnableVgwRoutePropagationResponse
enableVgwRoutePropagationResponse = EnableVgwRoutePropagationResponse
instance ToPath EnableVgwRoutePropagation where
toPath = const "/"
instance ToQuery EnableVgwRoutePropagation where
toQuery EnableVgwRoutePropagation{..} = mconcat
[ "GatewayId" =? _evrpGatewayId
, "RouteTableId" =? _evrpRouteTableId
]
instance ToHeaders EnableVgwRoutePropagation
instance AWSRequest EnableVgwRoutePropagation where
type Sv EnableVgwRoutePropagation = EC2
type Rs EnableVgwRoutePropagation = EnableVgwRoutePropagationResponse
request = post "EnableVgwRoutePropagation"
response = nullResponse EnableVgwRoutePropagationResponse