module Network.AWS.EC2.ReplaceRoute
(
replaceRoute
, ReplaceRoute
, rrVPCPeeringConnectionId
, rrInstanceId
, rrNetworkInterfaceId
, rrGatewayId
, rrDryRun
, rrRouteTableId
, rrDestinationCIdRBlock
, replaceRouteResponse
, ReplaceRouteResponse
) 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 ReplaceRoute = ReplaceRoute'
{ _rrVPCPeeringConnectionId :: !(Maybe Text)
, _rrInstanceId :: !(Maybe Text)
, _rrNetworkInterfaceId :: !(Maybe Text)
, _rrGatewayId :: !(Maybe Text)
, _rrDryRun :: !(Maybe Bool)
, _rrRouteTableId :: !Text
, _rrDestinationCIdRBlock :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
replaceRoute
:: Text
-> Text
-> ReplaceRoute
replaceRoute pRouteTableId_ pDestinationCIdRBlock_ =
ReplaceRoute'
{ _rrVPCPeeringConnectionId = Nothing
, _rrInstanceId = Nothing
, _rrNetworkInterfaceId = Nothing
, _rrGatewayId = Nothing
, _rrDryRun = Nothing
, _rrRouteTableId = pRouteTableId_
, _rrDestinationCIdRBlock = pDestinationCIdRBlock_
}
rrVPCPeeringConnectionId :: Lens' ReplaceRoute (Maybe Text)
rrVPCPeeringConnectionId = lens _rrVPCPeeringConnectionId (\ s a -> s{_rrVPCPeeringConnectionId = a});
rrInstanceId :: Lens' ReplaceRoute (Maybe Text)
rrInstanceId = lens _rrInstanceId (\ s a -> s{_rrInstanceId = a});
rrNetworkInterfaceId :: Lens' ReplaceRoute (Maybe Text)
rrNetworkInterfaceId = lens _rrNetworkInterfaceId (\ s a -> s{_rrNetworkInterfaceId = a});
rrGatewayId :: Lens' ReplaceRoute (Maybe Text)
rrGatewayId = lens _rrGatewayId (\ s a -> s{_rrGatewayId = a});
rrDryRun :: Lens' ReplaceRoute (Maybe Bool)
rrDryRun = lens _rrDryRun (\ s a -> s{_rrDryRun = a});
rrRouteTableId :: Lens' ReplaceRoute Text
rrRouteTableId = lens _rrRouteTableId (\ s a -> s{_rrRouteTableId = a});
rrDestinationCIdRBlock :: Lens' ReplaceRoute Text
rrDestinationCIdRBlock = lens _rrDestinationCIdRBlock (\ s a -> s{_rrDestinationCIdRBlock = a});
instance AWSRequest ReplaceRoute where
type Rs ReplaceRoute = ReplaceRouteResponse
request = postQuery eC2
response = receiveNull ReplaceRouteResponse'
instance ToHeaders ReplaceRoute where
toHeaders = const mempty
instance ToPath ReplaceRoute where
toPath = const "/"
instance ToQuery ReplaceRoute where
toQuery ReplaceRoute'{..}
= mconcat
["Action" =: ("ReplaceRoute" :: ByteString),
"Version" =: ("2015-10-01" :: ByteString),
"VpcPeeringConnectionId" =:
_rrVPCPeeringConnectionId,
"InstanceId" =: _rrInstanceId,
"NetworkInterfaceId" =: _rrNetworkInterfaceId,
"GatewayId" =: _rrGatewayId, "DryRun" =: _rrDryRun,
"RouteTableId" =: _rrRouteTableId,
"DestinationCidrBlock" =: _rrDestinationCIdRBlock]
data ReplaceRouteResponse =
ReplaceRouteResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
replaceRouteResponse
:: ReplaceRouteResponse
replaceRouteResponse = ReplaceRouteResponse'