module Network.AWS.EC2.DescribeKeyPairs
(
describeKeyPairs
, DescribeKeyPairs
, dkpsFilters
, dkpsKeyNames
, dkpsDryRun
, describeKeyPairsResponse
, DescribeKeyPairsResponse
, dkprsKeyPairs
, dkprsResponseStatus
) 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 DescribeKeyPairs = DescribeKeyPairs'
{ _dkpsFilters :: !(Maybe [Filter])
, _dkpsKeyNames :: !(Maybe [Text])
, _dkpsDryRun :: !(Maybe Bool)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeKeyPairs
:: DescribeKeyPairs
describeKeyPairs =
DescribeKeyPairs'
{ _dkpsFilters = Nothing
, _dkpsKeyNames = Nothing
, _dkpsDryRun = Nothing
}
dkpsFilters :: Lens' DescribeKeyPairs [Filter]
dkpsFilters = lens _dkpsFilters (\ s a -> s{_dkpsFilters = a}) . _Default . _Coerce;
dkpsKeyNames :: Lens' DescribeKeyPairs [Text]
dkpsKeyNames = lens _dkpsKeyNames (\ s a -> s{_dkpsKeyNames = a}) . _Default . _Coerce;
dkpsDryRun :: Lens' DescribeKeyPairs (Maybe Bool)
dkpsDryRun = lens _dkpsDryRun (\ s a -> s{_dkpsDryRun = a});
instance AWSRequest DescribeKeyPairs where
type Rs DescribeKeyPairs = DescribeKeyPairsResponse
request = postQuery eC2
response
= receiveXML
(\ s h x ->
DescribeKeyPairsResponse' <$>
(x .@? "keySet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance ToHeaders DescribeKeyPairs where
toHeaders = const mempty
instance ToPath DescribeKeyPairs where
toPath = const "/"
instance ToQuery DescribeKeyPairs where
toQuery DescribeKeyPairs'{..}
= mconcat
["Action" =: ("DescribeKeyPairs" :: ByteString),
"Version" =: ("2015-10-01" :: ByteString),
toQuery (toQueryList "Filter" <$> _dkpsFilters),
toQuery (toQueryList "KeyName" <$> _dkpsKeyNames),
"DryRun" =: _dkpsDryRun]
data DescribeKeyPairsResponse = DescribeKeyPairsResponse'
{ _dkprsKeyPairs :: !(Maybe [KeyPairInfo])
, _dkprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeKeyPairsResponse
:: Int
-> DescribeKeyPairsResponse
describeKeyPairsResponse pResponseStatus_ =
DescribeKeyPairsResponse'
{ _dkprsKeyPairs = Nothing
, _dkprsResponseStatus = pResponseStatus_
}
dkprsKeyPairs :: Lens' DescribeKeyPairsResponse [KeyPairInfo]
dkprsKeyPairs = lens _dkprsKeyPairs (\ s a -> s{_dkprsKeyPairs = a}) . _Default . _Coerce;
dkprsResponseStatus :: Lens' DescribeKeyPairsResponse Int
dkprsResponseStatus = lens _dkprsResponseStatus (\ s a -> s{_dkprsResponseStatus = a});