module Network.AWS.EC2.AcceptVpcPeeringConnection
(
AcceptVpcPeeringConnection
, acceptVpcPeeringConnection
, avpcDryRun
, avpcVpcPeeringConnectionId
, AcceptVpcPeeringConnectionResponse
, acceptVpcPeeringConnectionResponse
, avpcrVpcPeeringConnection
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data AcceptVpcPeeringConnection = AcceptVpcPeeringConnection
{ _avpcDryRun :: Maybe Bool
, _avpcVpcPeeringConnectionId :: Maybe Text
} deriving (Eq, Ord, Show)
acceptVpcPeeringConnection :: AcceptVpcPeeringConnection
acceptVpcPeeringConnection = AcceptVpcPeeringConnection
{ _avpcDryRun = Nothing
, _avpcVpcPeeringConnectionId = Nothing
}
avpcDryRun :: Lens' AcceptVpcPeeringConnection (Maybe Bool)
avpcDryRun = lens _avpcDryRun (\s a -> s { _avpcDryRun = a })
avpcVpcPeeringConnectionId :: Lens' AcceptVpcPeeringConnection (Maybe Text)
avpcVpcPeeringConnectionId =
lens _avpcVpcPeeringConnectionId
(\s a -> s { _avpcVpcPeeringConnectionId = a })
newtype AcceptVpcPeeringConnectionResponse = AcceptVpcPeeringConnectionResponse
{ _avpcrVpcPeeringConnection :: Maybe VpcPeeringConnection
} deriving (Eq, Show)
acceptVpcPeeringConnectionResponse :: AcceptVpcPeeringConnectionResponse
acceptVpcPeeringConnectionResponse = AcceptVpcPeeringConnectionResponse
{ _avpcrVpcPeeringConnection = Nothing
}
avpcrVpcPeeringConnection :: Lens' AcceptVpcPeeringConnectionResponse (Maybe VpcPeeringConnection)
avpcrVpcPeeringConnection =
lens _avpcrVpcPeeringConnection
(\s a -> s { _avpcrVpcPeeringConnection = a })
instance ToPath AcceptVpcPeeringConnection where
toPath = const "/"
instance ToQuery AcceptVpcPeeringConnection where
toQuery AcceptVpcPeeringConnection{..} = mconcat
[ "dryRun" =? _avpcDryRun
, "vpcPeeringConnectionId" =? _avpcVpcPeeringConnectionId
]
instance ToHeaders AcceptVpcPeeringConnection
instance AWSRequest AcceptVpcPeeringConnection where
type Sv AcceptVpcPeeringConnection = EC2
type Rs AcceptVpcPeeringConnection = AcceptVpcPeeringConnectionResponse
request = post "AcceptVpcPeeringConnection"
response = xmlResponse
instance FromXML AcceptVpcPeeringConnectionResponse where
parseXML x = AcceptVpcPeeringConnectionResponse
<$> x .@? "vpcPeeringConnection"