module Network.AWS.EC2.UnassignPrivateIpAddresses
(
UnassignPrivateIpAddresses
, unassignPrivateIpAddresses
, upiaNetworkInterfaceId
, upiaPrivateIpAddresses
, UnassignPrivateIpAddressesResponse
, unassignPrivateIpAddressesResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data UnassignPrivateIpAddresses = UnassignPrivateIpAddresses
{ _upiaNetworkInterfaceId :: Text
, _upiaPrivateIpAddresses :: List "PrivateIpAddress" Text
} deriving (Eq, Ord, Read, Show)
unassignPrivateIpAddresses :: Text
-> UnassignPrivateIpAddresses
unassignPrivateIpAddresses p1 = UnassignPrivateIpAddresses
{ _upiaNetworkInterfaceId = p1
, _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 })
. _List
data UnassignPrivateIpAddressesResponse = UnassignPrivateIpAddressesResponse
deriving (Eq, Ord, Read, Show, Generic)
unassignPrivateIpAddressesResponse :: UnassignPrivateIpAddressesResponse
unassignPrivateIpAddressesResponse = UnassignPrivateIpAddressesResponse
instance ToPath UnassignPrivateIpAddresses where
toPath = const "/"
instance ToQuery UnassignPrivateIpAddresses where
toQuery UnassignPrivateIpAddresses{..} = mconcat
[ "NetworkInterfaceId" =? _upiaNetworkInterfaceId
, "PrivateIpAddress" `toQueryList` _upiaPrivateIpAddresses
]
instance ToHeaders UnassignPrivateIpAddresses
instance AWSRequest UnassignPrivateIpAddresses where
type Sv UnassignPrivateIpAddresses = EC2
type Rs UnassignPrivateIpAddresses = UnassignPrivateIpAddressesResponse
request = post "UnassignPrivateIpAddresses"
response = nullResponse UnassignPrivateIpAddressesResponse