module Network.AWS.EC2.DisableVGWRoutePropagation
(
disableVGWRoutePropagation
, DisableVGWRoutePropagation
, dvrpRouteTableId
, dvrpGatewayId
, disableVGWRoutePropagationResponse
, DisableVGWRoutePropagationResponse
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DisableVGWRoutePropagation = DisableVGWRoutePropagation'
{ _dvrpRouteTableId :: !Text
, _dvrpGatewayId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disableVGWRoutePropagation
:: Text
-> Text
-> DisableVGWRoutePropagation
disableVGWRoutePropagation pRouteTableId_ pGatewayId_ =
DisableVGWRoutePropagation'
{ _dvrpRouteTableId = pRouteTableId_
, _dvrpGatewayId = pGatewayId_
}
dvrpRouteTableId :: Lens' DisableVGWRoutePropagation Text
dvrpRouteTableId = lens _dvrpRouteTableId (\ s a -> s{_dvrpRouteTableId = a});
dvrpGatewayId :: Lens' DisableVGWRoutePropagation Text
dvrpGatewayId = lens _dvrpGatewayId (\ s a -> s{_dvrpGatewayId = a});
instance AWSRequest DisableVGWRoutePropagation where
type Sv DisableVGWRoutePropagation = EC2
type Rs DisableVGWRoutePropagation =
DisableVGWRoutePropagationResponse
request = post
response
= receiveNull DisableVGWRoutePropagationResponse'
instance ToHeaders DisableVGWRoutePropagation where
toHeaders = const mempty
instance ToPath DisableVGWRoutePropagation where
toPath = const "/"
instance ToQuery DisableVGWRoutePropagation where
toQuery DisableVGWRoutePropagation'{..}
= mconcat
["Action" =:
("DisableVgwRoutePropagation" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
"RouteTableId" =: _dvrpRouteTableId,
"GatewayId" =: _dvrpGatewayId]
data DisableVGWRoutePropagationResponse =
DisableVGWRoutePropagationResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
disableVGWRoutePropagationResponse
:: DisableVGWRoutePropagationResponse
disableVGWRoutePropagationResponse = DisableVGWRoutePropagationResponse'