module Network.AWS.EC2.RejectVpcPeeringConnection
(
RejectVpcPeeringConnection
, rejectVpcPeeringConnection
, rvpcDryRun
, rvpcVpcPeeringConnectionId
, RejectVpcPeeringConnectionResponse
, rejectVpcPeeringConnectionResponse
, rvpcrReturn
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data RejectVpcPeeringConnection = RejectVpcPeeringConnection
{ _rvpcDryRun :: Maybe Bool
, _rvpcVpcPeeringConnectionId :: Text
} deriving (Eq, Ord, Show)
rejectVpcPeeringConnection :: Text
-> RejectVpcPeeringConnection
rejectVpcPeeringConnection p1 = RejectVpcPeeringConnection
{ _rvpcVpcPeeringConnectionId = p1
, _rvpcDryRun = Nothing
}
rvpcDryRun :: Lens' RejectVpcPeeringConnection (Maybe Bool)
rvpcDryRun = lens _rvpcDryRun (\s a -> s { _rvpcDryRun = a })
rvpcVpcPeeringConnectionId :: Lens' RejectVpcPeeringConnection Text
rvpcVpcPeeringConnectionId =
lens _rvpcVpcPeeringConnectionId
(\s a -> s { _rvpcVpcPeeringConnectionId = a })
newtype RejectVpcPeeringConnectionResponse = RejectVpcPeeringConnectionResponse
{ _rvpcrReturn :: Maybe Bool
} deriving (Eq, Ord, Show)
rejectVpcPeeringConnectionResponse :: RejectVpcPeeringConnectionResponse
rejectVpcPeeringConnectionResponse = RejectVpcPeeringConnectionResponse
{ _rvpcrReturn = Nothing
}
rvpcrReturn :: Lens' RejectVpcPeeringConnectionResponse (Maybe Bool)
rvpcrReturn = lens _rvpcrReturn (\s a -> s { _rvpcrReturn = a })
instance ToPath RejectVpcPeeringConnection where
toPath = const "/"
instance ToQuery RejectVpcPeeringConnection where
toQuery RejectVpcPeeringConnection{..} = mconcat
[ "dryRun" =? _rvpcDryRun
, "vpcPeeringConnectionId" =? _rvpcVpcPeeringConnectionId
]
instance ToHeaders RejectVpcPeeringConnection
instance AWSRequest RejectVpcPeeringConnection where
type Sv RejectVpcPeeringConnection = EC2
type Rs RejectVpcPeeringConnection = RejectVpcPeeringConnectionResponse
request = post "RejectVpcPeeringConnection"
response = xmlResponse
instance FromXML RejectVpcPeeringConnectionResponse where
parseXML x = RejectVpcPeeringConnectionResponse
<$> x .@? "return"