module Network.AWS.EC2.DisableVgwRoutePropagation
(
DisableVgwRoutePropagation
, disableVgwRoutePropagation
, dvrpGatewayId
, dvrpRouteTableId
, DisableVgwRoutePropagationResponse
, disableVgwRoutePropagationResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DisableVgwRoutePropagation = DisableVgwRoutePropagation
{ _dvrpGatewayId :: Text
, _dvrpRouteTableId :: Text
} deriving (Eq, Ord, Show)
disableVgwRoutePropagation :: Text
-> Text
-> DisableVgwRoutePropagation
disableVgwRoutePropagation p1 p2 = DisableVgwRoutePropagation
{ _dvrpRouteTableId = p1
, _dvrpGatewayId = p2
}
dvrpGatewayId :: Lens' DisableVgwRoutePropagation Text
dvrpGatewayId = lens _dvrpGatewayId (\s a -> s { _dvrpGatewayId = a })
dvrpRouteTableId :: Lens' DisableVgwRoutePropagation Text
dvrpRouteTableId = lens _dvrpRouteTableId (\s a -> s { _dvrpRouteTableId = a })
data DisableVgwRoutePropagationResponse = DisableVgwRoutePropagationResponse
deriving (Eq, Ord, Show, Generic)
disableVgwRoutePropagationResponse :: DisableVgwRoutePropagationResponse
disableVgwRoutePropagationResponse = DisableVgwRoutePropagationResponse
instance ToPath DisableVgwRoutePropagation where
toPath = const "/"
instance ToQuery DisableVgwRoutePropagation where
toQuery DisableVgwRoutePropagation{..} = mconcat
[ "GatewayId" =? _dvrpGatewayId
, "RouteTableId" =? _dvrpRouteTableId
]
instance ToHeaders DisableVgwRoutePropagation
instance AWSRequest DisableVgwRoutePropagation where
type Sv DisableVgwRoutePropagation = EC2
type Rs DisableVgwRoutePropagation = DisableVgwRoutePropagationResponse
request = post "DisableVgwRoutePropagation"
response = nullResponse DisableVgwRoutePropagationResponse