module Network.AWS.EC2.DescribeNetworkInterfacePermissions
(
describeNetworkInterfacePermissions
, DescribeNetworkInterfacePermissions
, dnipFilters
, dnipNextToken
, dnipNetworkInterfacePermissionIds
, dnipMaxResults
, describeNetworkInterfacePermissionsResponse
, DescribeNetworkInterfacePermissionsResponse
, drsNetworkInterfacePermissions
, drsNextToken
, drsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeNetworkInterfacePermissions = DescribeNetworkInterfacePermissions'
{ _dnipFilters :: !(Maybe [Filter])
, _dnipNextToken :: !(Maybe Text)
, _dnipNetworkInterfacePermissionIds :: !(Maybe [Text])
, _dnipMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeNetworkInterfacePermissions
:: DescribeNetworkInterfacePermissions
describeNetworkInterfacePermissions =
DescribeNetworkInterfacePermissions'
{ _dnipFilters = Nothing
, _dnipNextToken = Nothing
, _dnipNetworkInterfacePermissionIds = Nothing
, _dnipMaxResults = Nothing
}
dnipFilters :: Lens' DescribeNetworkInterfacePermissions [Filter]
dnipFilters = lens _dnipFilters (\ s a -> s{_dnipFilters = a}) . _Default . _Coerce;
dnipNextToken :: Lens' DescribeNetworkInterfacePermissions (Maybe Text)
dnipNextToken = lens _dnipNextToken (\ s a -> s{_dnipNextToken = a});
dnipNetworkInterfacePermissionIds :: Lens' DescribeNetworkInterfacePermissions [Text]
dnipNetworkInterfacePermissionIds = lens _dnipNetworkInterfacePermissionIds (\ s a -> s{_dnipNetworkInterfacePermissionIds = a}) . _Default . _Coerce;
dnipMaxResults :: Lens' DescribeNetworkInterfacePermissions (Maybe Int)
dnipMaxResults = lens _dnipMaxResults (\ s a -> s{_dnipMaxResults = a});
instance AWSRequest
DescribeNetworkInterfacePermissions
where
type Rs DescribeNetworkInterfacePermissions =
DescribeNetworkInterfacePermissionsResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeNetworkInterfacePermissionsResponse' <$>
(x .@? "networkInterfacePermissions" .!@ mempty >>=
may (parseXMLList "item"))
<*> (x .@? "nextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeNetworkInterfacePermissions
where
instance NFData DescribeNetworkInterfacePermissions
where
instance ToHeaders
DescribeNetworkInterfacePermissions
where
toHeaders = const mempty
instance ToPath DescribeNetworkInterfacePermissions
where
toPath = const "/"
instance ToQuery DescribeNetworkInterfacePermissions
where
toQuery DescribeNetworkInterfacePermissions'{..}
= mconcat
["Action" =:
("DescribeNetworkInterfacePermissions" ::
ByteString),
"Version" =: ("2016-11-15" :: ByteString),
toQuery (toQueryList "Filter" <$> _dnipFilters),
"NextToken" =: _dnipNextToken,
toQuery
(toQueryList "NetworkInterfacePermissionId" <$>
_dnipNetworkInterfacePermissionIds),
"MaxResults" =: _dnipMaxResults]
data DescribeNetworkInterfacePermissionsResponse = DescribeNetworkInterfacePermissionsResponse'
{ _drsNetworkInterfacePermissions :: !(Maybe [NetworkInterfacePermission])
, _drsNextToken :: !(Maybe Text)
, _drsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeNetworkInterfacePermissionsResponse
:: Int
-> DescribeNetworkInterfacePermissionsResponse
describeNetworkInterfacePermissionsResponse pResponseStatus_ =
DescribeNetworkInterfacePermissionsResponse'
{ _drsNetworkInterfacePermissions = Nothing
, _drsNextToken = Nothing
, _drsResponseStatus = pResponseStatus_
}
drsNetworkInterfacePermissions :: Lens' DescribeNetworkInterfacePermissionsResponse [NetworkInterfacePermission]
drsNetworkInterfacePermissions = lens _drsNetworkInterfacePermissions (\ s a -> s{_drsNetworkInterfacePermissions = a}) . _Default . _Coerce;
drsNextToken :: Lens' DescribeNetworkInterfacePermissionsResponse (Maybe Text)
drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});
drsResponseStatus :: Lens' DescribeNetworkInterfacePermissionsResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
instance NFData
DescribeNetworkInterfacePermissionsResponse
where