{-# 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.IAM.ListVirtualMFADevices
(
listVirtualMFADevices
, ListVirtualMFADevices
, lvmdAssignmentStatus
, lvmdMarker
, lvmdMaxItems
, listVirtualMFADevicesResponse
, ListVirtualMFADevicesResponse
, lvmdrsMarker
, lvmdrsIsTruncated
, lvmdrsResponseStatus
, lvmdrsVirtualMFADevices
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListVirtualMFADevices = ListVirtualMFADevices'
{ _lvmdAssignmentStatus :: !(Maybe AssignmentStatusType)
, _lvmdMarker :: !(Maybe Text)
, _lvmdMaxItems :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listVirtualMFADevices
:: ListVirtualMFADevices
listVirtualMFADevices =
ListVirtualMFADevices'
{ _lvmdAssignmentStatus = Nothing
, _lvmdMarker = Nothing
, _lvmdMaxItems = Nothing
}
lvmdAssignmentStatus :: Lens' ListVirtualMFADevices (Maybe AssignmentStatusType)
lvmdAssignmentStatus = lens _lvmdAssignmentStatus (\ s a -> s{_lvmdAssignmentStatus = a});
lvmdMarker :: Lens' ListVirtualMFADevices (Maybe Text)
lvmdMarker = lens _lvmdMarker (\ s a -> s{_lvmdMarker = a});
lvmdMaxItems :: Lens' ListVirtualMFADevices (Maybe Natural)
lvmdMaxItems = lens _lvmdMaxItems (\ s a -> s{_lvmdMaxItems = a}) . mapping _Nat;
instance AWSPager ListVirtualMFADevices where
page rq rs
| stop (rs ^. lvmdrsIsTruncated) = Nothing
| isNothing (rs ^. lvmdrsMarker) = Nothing
| otherwise =
Just $ rq & lvmdMarker .~ rs ^. lvmdrsMarker
instance AWSRequest ListVirtualMFADevices where
type Rs ListVirtualMFADevices =
ListVirtualMFADevicesResponse
request = postQuery iam
response
= receiveXMLWrapper "ListVirtualMFADevicesResult"
(\ s h x ->
ListVirtualMFADevicesResponse' <$>
(x .@? "Marker") <*> (x .@? "IsTruncated") <*>
(pure (fromEnum s))
<*>
(x .@? "VirtualMFADevices" .!@ mempty >>=
parseXMLList "member"))
instance Hashable ListVirtualMFADevices
instance NFData ListVirtualMFADevices
instance ToHeaders ListVirtualMFADevices where
toHeaders = const mempty
instance ToPath ListVirtualMFADevices where
toPath = const "/"
instance ToQuery ListVirtualMFADevices where
toQuery ListVirtualMFADevices'{..}
= mconcat
["Action" =: ("ListVirtualMFADevices" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"AssignmentStatus" =: _lvmdAssignmentStatus,
"Marker" =: _lvmdMarker, "MaxItems" =: _lvmdMaxItems]
data ListVirtualMFADevicesResponse = ListVirtualMFADevicesResponse'
{ _lvmdrsMarker :: !(Maybe Text)
, _lvmdrsIsTruncated :: !(Maybe Bool)
, _lvmdrsResponseStatus :: !Int
, _lvmdrsVirtualMFADevices :: ![VirtualMFADevice]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listVirtualMFADevicesResponse
:: Int
-> ListVirtualMFADevicesResponse
listVirtualMFADevicesResponse pResponseStatus_ =
ListVirtualMFADevicesResponse'
{ _lvmdrsMarker = Nothing
, _lvmdrsIsTruncated = Nothing
, _lvmdrsResponseStatus = pResponseStatus_
, _lvmdrsVirtualMFADevices = mempty
}
lvmdrsMarker :: Lens' ListVirtualMFADevicesResponse (Maybe Text)
lvmdrsMarker = lens _lvmdrsMarker (\ s a -> s{_lvmdrsMarker = a});
lvmdrsIsTruncated :: Lens' ListVirtualMFADevicesResponse (Maybe Bool)
lvmdrsIsTruncated = lens _lvmdrsIsTruncated (\ s a -> s{_lvmdrsIsTruncated = a});
lvmdrsResponseStatus :: Lens' ListVirtualMFADevicesResponse Int
lvmdrsResponseStatus = lens _lvmdrsResponseStatus (\ s a -> s{_lvmdrsResponseStatus = a});
lvmdrsVirtualMFADevices :: Lens' ListVirtualMFADevicesResponse [VirtualMFADevice]
lvmdrsVirtualMFADevices = lens _lvmdrsVirtualMFADevices (\ s a -> s{_lvmdrsVirtualMFADevices = a}) . _Coerce;
instance NFData ListVirtualMFADevicesResponse