{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.EC2.RejectVPCPeeringConnection
(
rejectVPCPeeringConnection
, RejectVPCPeeringConnection
, rvpcDryRun
, rvpcVPCPeeringConnectionId
, rejectVPCPeeringConnectionResponse
, RejectVPCPeeringConnectionResponse
, rvpcrsReturn
, rvpcrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RejectVPCPeeringConnection = RejectVPCPeeringConnection'
{ _rvpcDryRun :: !(Maybe Bool)
, _rvpcVPCPeeringConnectionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rejectVPCPeeringConnection
:: Text
-> RejectVPCPeeringConnection
rejectVPCPeeringConnection pVPCPeeringConnectionId_ =
RejectVPCPeeringConnection'
{ _rvpcDryRun = Nothing
, _rvpcVPCPeeringConnectionId = pVPCPeeringConnectionId_
}
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})
instance AWSRequest RejectVPCPeeringConnection where
type Rs RejectVPCPeeringConnection =
RejectVPCPeeringConnectionResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
RejectVPCPeeringConnectionResponse' <$>
(x .@? "return") <*> (pure (fromEnum s)))
instance Hashable RejectVPCPeeringConnection where
instance NFData RejectVPCPeeringConnection where
instance ToHeaders RejectVPCPeeringConnection where
toHeaders = const mempty
instance ToPath RejectVPCPeeringConnection where
toPath = const "/"
instance ToQuery RejectVPCPeeringConnection where
toQuery RejectVPCPeeringConnection'{..}
= mconcat
["Action" =:
("RejectVpcPeeringConnection" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _rvpcDryRun,
"VpcPeeringConnectionId" =:
_rvpcVPCPeeringConnectionId]
data RejectVPCPeeringConnectionResponse = RejectVPCPeeringConnectionResponse'
{ _rvpcrsReturn :: !(Maybe Bool)
, _rvpcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rejectVPCPeeringConnectionResponse
:: Int
-> RejectVPCPeeringConnectionResponse
rejectVPCPeeringConnectionResponse pResponseStatus_ =
RejectVPCPeeringConnectionResponse'
{_rvpcrsReturn = Nothing, _rvpcrsResponseStatus = pResponseStatus_}
rvpcrsReturn :: Lens' RejectVPCPeeringConnectionResponse (Maybe Bool)
rvpcrsReturn = lens _rvpcrsReturn (\ s a -> s{_rvpcrsReturn = a})
rvpcrsResponseStatus :: Lens' RejectVPCPeeringConnectionResponse Int
rvpcrsResponseStatus = lens _rvpcrsResponseStatus (\ s a -> s{_rvpcrsResponseStatus = a})
instance NFData RejectVPCPeeringConnectionResponse
where