module Network.AWS.EC2.DescribeNetworkInterfaceAttribute
(
describeNetworkInterfaceAttribute
, DescribeNetworkInterfaceAttribute
, dniaAttribute
, dniaDryRun
, dniaNetworkInterfaceId
, describeNetworkInterfaceAttributeResponse
, DescribeNetworkInterfaceAttributeResponse
, dniarsGroups
, dniarsSourceDestCheck
, dniarsNetworkInterfaceId
, dniarsAttachment
, dniarsDescription
, dniarsResponseStatus
) 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 DescribeNetworkInterfaceAttribute = DescribeNetworkInterfaceAttribute'
{ _dniaAttribute :: !(Maybe NetworkInterfaceAttribute)
, _dniaDryRun :: !(Maybe Bool)
, _dniaNetworkInterfaceId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeNetworkInterfaceAttribute
:: Text
-> DescribeNetworkInterfaceAttribute
describeNetworkInterfaceAttribute pNetworkInterfaceId_ =
DescribeNetworkInterfaceAttribute'
{ _dniaAttribute = Nothing
, _dniaDryRun = Nothing
, _dniaNetworkInterfaceId = pNetworkInterfaceId_
}
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});
instance AWSRequest DescribeNetworkInterfaceAttribute
where
type Rs DescribeNetworkInterfaceAttribute =
DescribeNetworkInterfaceAttributeResponse
request = postQuery eC2
response
= receiveXML
(\ s h x ->
DescribeNetworkInterfaceAttributeResponse' <$>
(x .@? "groupSet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (x .@? "sourceDestCheck")
<*> (x .@? "networkInterfaceId")
<*> (x .@? "attachment")
<*> (x .@? "description")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeNetworkInterfaceAttribute
where
toHeaders = const mempty
instance ToPath DescribeNetworkInterfaceAttribute
where
toPath = const "/"
instance ToQuery DescribeNetworkInterfaceAttribute
where
toQuery DescribeNetworkInterfaceAttribute'{..}
= mconcat
["Action" =:
("DescribeNetworkInterfaceAttribute" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
"Attribute" =: _dniaAttribute,
"DryRun" =: _dniaDryRun,
"NetworkInterfaceId" =: _dniaNetworkInterfaceId]
data DescribeNetworkInterfaceAttributeResponse = DescribeNetworkInterfaceAttributeResponse'
{ _dniarsGroups :: !(Maybe [GroupIdentifier])
, _dniarsSourceDestCheck :: !(Maybe AttributeBooleanValue)
, _dniarsNetworkInterfaceId :: !(Maybe Text)
, _dniarsAttachment :: !(Maybe NetworkInterfaceAttachment)
, _dniarsDescription :: !(Maybe AttributeValue)
, _dniarsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeNetworkInterfaceAttributeResponse
:: Int
-> DescribeNetworkInterfaceAttributeResponse
describeNetworkInterfaceAttributeResponse pResponseStatus_ =
DescribeNetworkInterfaceAttributeResponse'
{ _dniarsGroups = Nothing
, _dniarsSourceDestCheck = Nothing
, _dniarsNetworkInterfaceId = Nothing
, _dniarsAttachment = Nothing
, _dniarsDescription = Nothing
, _dniarsResponseStatus = pResponseStatus_
}
dniarsGroups :: Lens' DescribeNetworkInterfaceAttributeResponse [GroupIdentifier]
dniarsGroups = lens _dniarsGroups (\ s a -> s{_dniarsGroups = a}) . _Default . _Coerce;
dniarsSourceDestCheck :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe AttributeBooleanValue)
dniarsSourceDestCheck = lens _dniarsSourceDestCheck (\ s a -> s{_dniarsSourceDestCheck = a});
dniarsNetworkInterfaceId :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe Text)
dniarsNetworkInterfaceId = lens _dniarsNetworkInterfaceId (\ s a -> s{_dniarsNetworkInterfaceId = a});
dniarsAttachment :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe NetworkInterfaceAttachment)
dniarsAttachment = lens _dniarsAttachment (\ s a -> s{_dniarsAttachment = a});
dniarsDescription :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe AttributeValue)
dniarsDescription = lens _dniarsDescription (\ s a -> s{_dniarsDescription = a});
dniarsResponseStatus :: Lens' DescribeNetworkInterfaceAttributeResponse Int
dniarsResponseStatus = lens _dniarsResponseStatus (\ s a -> s{_dniarsResponseStatus = a});