module Network.AWS.EC2.ReplaceRouteTableAssociation
(
ReplaceRouteTableAssociation
, replaceRouteTableAssociation
, rrtaAssociationId
, rrtaDryRun
, rrtaRouteTableId
, ReplaceRouteTableAssociationResponse
, replaceRouteTableAssociationResponse
, rrtarNewAssociationId
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data ReplaceRouteTableAssociation = ReplaceRouteTableAssociation
{ _rrtaAssociationId :: Text
, _rrtaDryRun :: Maybe Bool
, _rrtaRouteTableId :: Text
} deriving (Eq, Ord, Show)
replaceRouteTableAssociation :: Text
-> Text
-> ReplaceRouteTableAssociation
replaceRouteTableAssociation p1 p2 = ReplaceRouteTableAssociation
{ _rrtaAssociationId = p1
, _rrtaRouteTableId = p2
, _rrtaDryRun = Nothing
}
rrtaAssociationId :: Lens' ReplaceRouteTableAssociation Text
rrtaAssociationId =
lens _rrtaAssociationId (\s a -> s { _rrtaAssociationId = a })
rrtaDryRun :: Lens' ReplaceRouteTableAssociation (Maybe Bool)
rrtaDryRun = lens _rrtaDryRun (\s a -> s { _rrtaDryRun = a })
rrtaRouteTableId :: Lens' ReplaceRouteTableAssociation Text
rrtaRouteTableId = lens _rrtaRouteTableId (\s a -> s { _rrtaRouteTableId = a })
newtype ReplaceRouteTableAssociationResponse = ReplaceRouteTableAssociationResponse
{ _rrtarNewAssociationId :: Maybe Text
} deriving (Eq, Ord, Show, Monoid)
replaceRouteTableAssociationResponse :: ReplaceRouteTableAssociationResponse
replaceRouteTableAssociationResponse = ReplaceRouteTableAssociationResponse
{ _rrtarNewAssociationId = Nothing
}
rrtarNewAssociationId :: Lens' ReplaceRouteTableAssociationResponse (Maybe Text)
rrtarNewAssociationId =
lens _rrtarNewAssociationId (\s a -> s { _rrtarNewAssociationId = a })
instance ToPath ReplaceRouteTableAssociation where
toPath = const "/"
instance ToQuery ReplaceRouteTableAssociation where
toQuery ReplaceRouteTableAssociation{..} = mconcat
[ "associationId" =? _rrtaAssociationId
, "dryRun" =? _rrtaDryRun
, "routeTableId" =? _rrtaRouteTableId
]
instance ToHeaders ReplaceRouteTableAssociation
instance AWSRequest ReplaceRouteTableAssociation where
type Sv ReplaceRouteTableAssociation = EC2
type Rs ReplaceRouteTableAssociation = ReplaceRouteTableAssociationResponse
request = post "ReplaceRouteTableAssociation"
response = xmlResponse
instance FromXML ReplaceRouteTableAssociationResponse where
parseXML x = ReplaceRouteTableAssociationResponse
<$> x .@? "newAssociationId"