module Network.AWS.EC2.ModifyNetworkInterfaceAttribute
(
ModifyNetworkInterfaceAttribute
, modifyNetworkInterfaceAttribute
, mniaAttachment
, mniaDescription
, mniaDryRun
, mniaGroups
, mniaNetworkInterfaceId
, mniaSourceDestCheck
, ModifyNetworkInterfaceAttributeResponse
, modifyNetworkInterfaceAttributeResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data ModifyNetworkInterfaceAttribute = ModifyNetworkInterfaceAttribute
{ _mniaAttachment :: Maybe NetworkInterfaceAttachmentChanges
, _mniaDescription :: Maybe AttributeValue
, _mniaDryRun :: Maybe Bool
, _mniaGroups :: List "SecurityGroupId" Text
, _mniaNetworkInterfaceId :: Text
, _mniaSourceDestCheck :: Maybe AttributeBooleanValue
} deriving (Eq, Show)
modifyNetworkInterfaceAttribute :: Text
-> ModifyNetworkInterfaceAttribute
modifyNetworkInterfaceAttribute p1 = ModifyNetworkInterfaceAttribute
{ _mniaNetworkInterfaceId = p1
, _mniaDryRun = Nothing
, _mniaDescription = Nothing
, _mniaSourceDestCheck = Nothing
, _mniaGroups = mempty
, _mniaAttachment = Nothing
}
mniaAttachment :: Lens' ModifyNetworkInterfaceAttribute (Maybe NetworkInterfaceAttachmentChanges)
mniaAttachment = lens _mniaAttachment (\s a -> s { _mniaAttachment = a })
mniaDescription :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeValue)
mniaDescription = lens _mniaDescription (\s a -> s { _mniaDescription = a })
mniaDryRun :: Lens' ModifyNetworkInterfaceAttribute (Maybe Bool)
mniaDryRun = lens _mniaDryRun (\s a -> s { _mniaDryRun = a })
mniaGroups :: Lens' ModifyNetworkInterfaceAttribute [Text]
mniaGroups = lens _mniaGroups (\s a -> s { _mniaGroups = a }) . _List
mniaNetworkInterfaceId :: Lens' ModifyNetworkInterfaceAttribute Text
mniaNetworkInterfaceId =
lens _mniaNetworkInterfaceId (\s a -> s { _mniaNetworkInterfaceId = a })
mniaSourceDestCheck :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeBooleanValue)
mniaSourceDestCheck =
lens _mniaSourceDestCheck (\s a -> s { _mniaSourceDestCheck = a })
data ModifyNetworkInterfaceAttributeResponse = ModifyNetworkInterfaceAttributeResponse
deriving (Eq, Ord, Show, Generic)
modifyNetworkInterfaceAttributeResponse :: ModifyNetworkInterfaceAttributeResponse
modifyNetworkInterfaceAttributeResponse = ModifyNetworkInterfaceAttributeResponse
instance ToPath ModifyNetworkInterfaceAttribute where
toPath = const "/"
instance ToQuery ModifyNetworkInterfaceAttribute where
toQuery ModifyNetworkInterfaceAttribute{..} = mconcat
[ "attachment" =? _mniaAttachment
, "description" =? _mniaDescription
, "dryRun" =? _mniaDryRun
, toQuery _mniaGroups
, "networkInterfaceId" =? _mniaNetworkInterfaceId
, "sourceDestCheck" =? _mniaSourceDestCheck
]
instance ToHeaders ModifyNetworkInterfaceAttribute
instance AWSRequest ModifyNetworkInterfaceAttribute where
type Sv ModifyNetworkInterfaceAttribute = EC2
type Rs ModifyNetworkInterfaceAttribute = ModifyNetworkInterfaceAttributeResponse
request = post "ModifyNetworkInterfaceAttribute"
response = nullResponse ModifyNetworkInterfaceAttributeResponse