module Network.AWS.EC2.UnassignPrivateIPAddresses
(
unassignPrivateIPAddresses
, UnassignPrivateIPAddresses
, upiaNetworkInterfaceId
, upiaPrivateIPAddresses
, unassignPrivateIPAddressesResponse
, UnassignPrivateIPAddressesResponse
) 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 UnassignPrivateIPAddresses = UnassignPrivateIPAddresses'
{ _upiaNetworkInterfaceId :: !Text
, _upiaPrivateIPAddresses :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
unassignPrivateIPAddresses
:: Text
-> UnassignPrivateIPAddresses
unassignPrivateIPAddresses pNetworkInterfaceId_ =
UnassignPrivateIPAddresses'
{ _upiaNetworkInterfaceId = pNetworkInterfaceId_
, _upiaPrivateIPAddresses = mempty
}
upiaNetworkInterfaceId :: Lens' UnassignPrivateIPAddresses Text
upiaNetworkInterfaceId = lens _upiaNetworkInterfaceId (\ s a -> s{_upiaNetworkInterfaceId = a});
upiaPrivateIPAddresses :: Lens' UnassignPrivateIPAddresses [Text]
upiaPrivateIPAddresses = lens _upiaPrivateIPAddresses (\ s a -> s{_upiaPrivateIPAddresses = a}) . _Coerce;
instance AWSRequest UnassignPrivateIPAddresses where
type Rs UnassignPrivateIPAddresses =
UnassignPrivateIPAddressesResponse
request = postQuery ec2
response
= receiveNull UnassignPrivateIPAddressesResponse'
instance Hashable UnassignPrivateIPAddresses
instance ToHeaders UnassignPrivateIPAddresses where
toHeaders = const mempty
instance ToPath UnassignPrivateIPAddresses where
toPath = const "/"
instance ToQuery UnassignPrivateIPAddresses where
toQuery UnassignPrivateIPAddresses'{..}
= mconcat
["Action" =:
("UnassignPrivateIpAddresses" :: ByteString),
"Version" =: ("2015-10-01" :: ByteString),
"NetworkInterfaceId" =: _upiaNetworkInterfaceId,
toQueryList "PrivateIpAddress"
_upiaPrivateIPAddresses]
data UnassignPrivateIPAddressesResponse =
UnassignPrivateIPAddressesResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
unassignPrivateIPAddressesResponse
:: UnassignPrivateIPAddressesResponse
unassignPrivateIPAddressesResponse = UnassignPrivateIPAddressesResponse'