module Network.AWS.EC2.DeleteVpnConnectionRoute
(
DeleteVpnConnectionRoute
, deleteVpnConnectionRoute
, dvcrDestinationCidrBlock
, dvcrVpnConnectionId
, DeleteVpnConnectionRouteResponse
, deleteVpnConnectionRouteResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DeleteVpnConnectionRoute = DeleteVpnConnectionRoute
{ _dvcrDestinationCidrBlock :: Text
, _dvcrVpnConnectionId :: Text
} deriving (Eq, Ord, Show)
deleteVpnConnectionRoute :: Text
-> Text
-> DeleteVpnConnectionRoute
deleteVpnConnectionRoute p1 p2 = DeleteVpnConnectionRoute
{ _dvcrVpnConnectionId = p1
, _dvcrDestinationCidrBlock = p2
}
dvcrDestinationCidrBlock :: Lens' DeleteVpnConnectionRoute Text
dvcrDestinationCidrBlock =
lens _dvcrDestinationCidrBlock
(\s a -> s { _dvcrDestinationCidrBlock = a })
dvcrVpnConnectionId :: Lens' DeleteVpnConnectionRoute Text
dvcrVpnConnectionId =
lens _dvcrVpnConnectionId (\s a -> s { _dvcrVpnConnectionId = a })
data DeleteVpnConnectionRouteResponse = DeleteVpnConnectionRouteResponse
deriving (Eq, Ord, Show, Generic)
deleteVpnConnectionRouteResponse :: DeleteVpnConnectionRouteResponse
deleteVpnConnectionRouteResponse = DeleteVpnConnectionRouteResponse
instance ToPath DeleteVpnConnectionRoute where
toPath = const "/"
instance ToQuery DeleteVpnConnectionRoute where
toQuery DeleteVpnConnectionRoute{..} = mconcat
[ "DestinationCidrBlock" =? _dvcrDestinationCidrBlock
, "VpnConnectionId" =? _dvcrVpnConnectionId
]
instance ToHeaders DeleteVpnConnectionRoute
instance AWSRequest DeleteVpnConnectionRoute where
type Sv DeleteVpnConnectionRoute = EC2
type Rs DeleteVpnConnectionRoute = DeleteVpnConnectionRouteResponse
request = post "DeleteVpnConnectionRoute"
response = nullResponse DeleteVpnConnectionRouteResponse