{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.EC2.DescribeNetworkInterfacePermissions
(
describeNetworkInterfacePermissions
, DescribeNetworkInterfacePermissions
, dnipFilters
, dnipNextToken
, dnipNetworkInterfacePermissionIds
, dnipMaxResults
, describeNetworkInterfacePermissionsResponse
, DescribeNetworkInterfacePermissionsResponse
, dnipsrsNetworkInterfacePermissions
, dnipsrsNextToken
, dnipsrsResponseStatus
) 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'
{ _dnipsrsNetworkInterfacePermissions :: !(Maybe [NetworkInterfacePermission])
, _dnipsrsNextToken :: !(Maybe Text)
, _dnipsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeNetworkInterfacePermissionsResponse
:: Int
-> DescribeNetworkInterfacePermissionsResponse
describeNetworkInterfacePermissionsResponse pResponseStatus_ =
DescribeNetworkInterfacePermissionsResponse'
{ _dnipsrsNetworkInterfacePermissions = Nothing
, _dnipsrsNextToken = Nothing
, _dnipsrsResponseStatus = pResponseStatus_
}
dnipsrsNetworkInterfacePermissions :: Lens' DescribeNetworkInterfacePermissionsResponse [NetworkInterfacePermission]
dnipsrsNetworkInterfacePermissions = lens _dnipsrsNetworkInterfacePermissions (\ s a -> s{_dnipsrsNetworkInterfacePermissions = a}) . _Default . _Coerce
dnipsrsNextToken :: Lens' DescribeNetworkInterfacePermissionsResponse (Maybe Text)
dnipsrsNextToken = lens _dnipsrsNextToken (\ s a -> s{_dnipsrsNextToken = a})
dnipsrsResponseStatus :: Lens' DescribeNetworkInterfacePermissionsResponse Int
dnipsrsResponseStatus = lens _dnipsrsResponseStatus (\ s a -> s{_dnipsrsResponseStatus = a})
instance NFData
DescribeNetworkInterfacePermissionsResponse
where