module Network.AWS.EC2.ModifyNetworkInterfaceAttribute
(
modifyNetworkInterfaceAttribute
, ModifyNetworkInterfaceAttribute
, mniaGroups
, mniaSourceDestCheck
, mniaAttachment
, mniaDryRun
, mniaDescription
, mniaNetworkInterfaceId
, modifyNetworkInterfaceAttributeResponse
, ModifyNetworkInterfaceAttributeResponse
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ModifyNetworkInterfaceAttribute = ModifyNetworkInterfaceAttribute'
{ _mniaGroups :: !(Maybe [Text])
, _mniaSourceDestCheck :: !(Maybe AttributeBooleanValue)
, _mniaAttachment :: !(Maybe NetworkInterfaceAttachmentChanges)
, _mniaDryRun :: !(Maybe Bool)
, _mniaDescription :: !(Maybe AttributeValue)
, _mniaNetworkInterfaceId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyNetworkInterfaceAttribute
:: Text
-> ModifyNetworkInterfaceAttribute
modifyNetworkInterfaceAttribute pNetworkInterfaceId_ =
ModifyNetworkInterfaceAttribute'
{ _mniaGroups = Nothing
, _mniaSourceDestCheck = Nothing
, _mniaAttachment = Nothing
, _mniaDryRun = Nothing
, _mniaDescription = Nothing
, _mniaNetworkInterfaceId = pNetworkInterfaceId_
}
mniaGroups :: Lens' ModifyNetworkInterfaceAttribute [Text]
mniaGroups = lens _mniaGroups (\ s a -> s{_mniaGroups = a}) . _Default . _Coerce;
mniaSourceDestCheck :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeBooleanValue)
mniaSourceDestCheck = lens _mniaSourceDestCheck (\ s a -> s{_mniaSourceDestCheck = a});
mniaAttachment :: Lens' ModifyNetworkInterfaceAttribute (Maybe NetworkInterfaceAttachmentChanges)
mniaAttachment = lens _mniaAttachment (\ s a -> s{_mniaAttachment = a});
mniaDryRun :: Lens' ModifyNetworkInterfaceAttribute (Maybe Bool)
mniaDryRun = lens _mniaDryRun (\ s a -> s{_mniaDryRun = a});
mniaDescription :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeValue)
mniaDescription = lens _mniaDescription (\ s a -> s{_mniaDescription = a});
mniaNetworkInterfaceId :: Lens' ModifyNetworkInterfaceAttribute Text
mniaNetworkInterfaceId = lens _mniaNetworkInterfaceId (\ s a -> s{_mniaNetworkInterfaceId = a});
instance AWSRequest ModifyNetworkInterfaceAttribute
where
type Rs ModifyNetworkInterfaceAttribute =
ModifyNetworkInterfaceAttributeResponse
request = postQuery eC2
response
= receiveNull
ModifyNetworkInterfaceAttributeResponse'
instance ToHeaders ModifyNetworkInterfaceAttribute
where
toHeaders = const mempty
instance ToPath ModifyNetworkInterfaceAttribute where
toPath = const "/"
instance ToQuery ModifyNetworkInterfaceAttribute
where
toQuery ModifyNetworkInterfaceAttribute'{..}
= mconcat
["Action" =:
("ModifyNetworkInterfaceAttribute" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
toQuery
(toQueryList "SecurityGroupId" <$> _mniaGroups),
"SourceDestCheck" =: _mniaSourceDestCheck,
"Attachment" =: _mniaAttachment,
"DryRun" =: _mniaDryRun,
"Description" =: _mniaDescription,
"NetworkInterfaceId" =: _mniaNetworkInterfaceId]
data ModifyNetworkInterfaceAttributeResponse =
ModifyNetworkInterfaceAttributeResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyNetworkInterfaceAttributeResponse
:: ModifyNetworkInterfaceAttributeResponse
modifyNetworkInterfaceAttributeResponse =
ModifyNetworkInterfaceAttributeResponse'