module Network.AWS.EC2.DescribeNetworkInterfaceAttribute
(
DescribeNetworkInterfaceAttribute
, describeNetworkInterfaceAttribute
, dniaAttribute
, dniaDryRun
, dniaNetworkInterfaceId
, DescribeNetworkInterfaceAttributeResponse
, describeNetworkInterfaceAttributeResponse
, dniarAttachment
, dniarDescription
, dniarGroups
, dniarNetworkInterfaceId
, dniarSourceDestCheck
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DescribeNetworkInterfaceAttribute = DescribeNetworkInterfaceAttribute
{ _dniaAttribute :: Maybe NetworkInterfaceAttribute
, _dniaDryRun :: Maybe Bool
, _dniaNetworkInterfaceId :: Text
} deriving (Eq, Read, Show)
describeNetworkInterfaceAttribute :: Text
-> DescribeNetworkInterfaceAttribute
describeNetworkInterfaceAttribute p1 = DescribeNetworkInterfaceAttribute
{ _dniaNetworkInterfaceId = p1
, _dniaDryRun = Nothing
, _dniaAttribute = Nothing
}
dniaAttribute :: Lens' DescribeNetworkInterfaceAttribute (Maybe NetworkInterfaceAttribute)
dniaAttribute = lens _dniaAttribute (\s a -> s { _dniaAttribute = a })
dniaDryRun :: Lens' DescribeNetworkInterfaceAttribute (Maybe Bool)
dniaDryRun = lens _dniaDryRun (\s a -> s { _dniaDryRun = a })
dniaNetworkInterfaceId :: Lens' DescribeNetworkInterfaceAttribute Text
dniaNetworkInterfaceId =
lens _dniaNetworkInterfaceId (\s a -> s { _dniaNetworkInterfaceId = a })
data DescribeNetworkInterfaceAttributeResponse = DescribeNetworkInterfaceAttributeResponse
{ _dniarAttachment :: Maybe NetworkInterfaceAttachment
, _dniarDescription :: Maybe AttributeValue
, _dniarGroups :: List "item" GroupIdentifier
, _dniarNetworkInterfaceId :: Maybe Text
, _dniarSourceDestCheck :: Maybe AttributeBooleanValue
} deriving (Eq, Read, Show)
describeNetworkInterfaceAttributeResponse :: DescribeNetworkInterfaceAttributeResponse
describeNetworkInterfaceAttributeResponse = DescribeNetworkInterfaceAttributeResponse
{ _dniarNetworkInterfaceId = Nothing
, _dniarDescription = Nothing
, _dniarSourceDestCheck = Nothing
, _dniarGroups = mempty
, _dniarAttachment = Nothing
}
dniarAttachment :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe NetworkInterfaceAttachment)
dniarAttachment = lens _dniarAttachment (\s a -> s { _dniarAttachment = a })
dniarDescription :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe AttributeValue)
dniarDescription = lens _dniarDescription (\s a -> s { _dniarDescription = a })
dniarGroups :: Lens' DescribeNetworkInterfaceAttributeResponse [GroupIdentifier]
dniarGroups = lens _dniarGroups (\s a -> s { _dniarGroups = a }) . _List
dniarNetworkInterfaceId :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe Text)
dniarNetworkInterfaceId =
lens _dniarNetworkInterfaceId (\s a -> s { _dniarNetworkInterfaceId = a })
dniarSourceDestCheck :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe AttributeBooleanValue)
dniarSourceDestCheck =
lens _dniarSourceDestCheck (\s a -> s { _dniarSourceDestCheck = a })
instance ToPath DescribeNetworkInterfaceAttribute where
toPath = const "/"
instance ToQuery DescribeNetworkInterfaceAttribute where
toQuery DescribeNetworkInterfaceAttribute{..} = mconcat
[ "Attribute" =? _dniaAttribute
, "DryRun" =? _dniaDryRun
, "NetworkInterfaceId" =? _dniaNetworkInterfaceId
]
instance ToHeaders DescribeNetworkInterfaceAttribute
instance AWSRequest DescribeNetworkInterfaceAttribute where
type Sv DescribeNetworkInterfaceAttribute = EC2
type Rs DescribeNetworkInterfaceAttribute = DescribeNetworkInterfaceAttributeResponse
request = post "DescribeNetworkInterfaceAttribute"
response = xmlResponse
instance FromXML DescribeNetworkInterfaceAttributeResponse where
parseXML x = DescribeNetworkInterfaceAttributeResponse
<$> x .@? "attachment"
<*> x .@? "description"
<*> x .@? "groupSet" .!@ mempty
<*> x .@? "networkInterfaceId"
<*> x .@? "sourceDestCheck"