module Network.AWS.IAM.GetAccountAuthorizationDetails
(
getAccountAuthorizationDetails
, GetAccountAuthorizationDetails
, gaadMarker
, gaadMaxItems
, gaadFilter
, getAccountAuthorizationDetailsResponse
, GetAccountAuthorizationDetailsResponse
, gaadrsRoleDetailList
, gaadrsGroupDetailList
, gaadrsUserDetailList
, gaadrsMarker
, gaadrsIsTruncated
, gaadrsPolicies
, gaadrsResponseStatus
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetAccountAuthorizationDetails = GetAccountAuthorizationDetails'
{ _gaadMarker :: !(Maybe Text)
, _gaadMaxItems :: !(Maybe Nat)
, _gaadFilter :: !(Maybe [EntityType])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getAccountAuthorizationDetails
:: GetAccountAuthorizationDetails
getAccountAuthorizationDetails =
GetAccountAuthorizationDetails'
{ _gaadMarker = Nothing
, _gaadMaxItems = Nothing
, _gaadFilter = Nothing
}
gaadMarker :: Lens' GetAccountAuthorizationDetails (Maybe Text)
gaadMarker = lens _gaadMarker (\ s a -> s{_gaadMarker = a});
gaadMaxItems :: Lens' GetAccountAuthorizationDetails (Maybe Natural)
gaadMaxItems = lens _gaadMaxItems (\ s a -> s{_gaadMaxItems = a}) . mapping _Nat;
gaadFilter :: Lens' GetAccountAuthorizationDetails [EntityType]
gaadFilter = lens _gaadFilter (\ s a -> s{_gaadFilter = a}) . _Default . _Coerce;
instance AWSRequest GetAccountAuthorizationDetails
where
type Rs GetAccountAuthorizationDetails =
GetAccountAuthorizationDetailsResponse
request = postQuery iAM
response
= receiveXMLWrapper
"GetAccountAuthorizationDetailsResult"
(\ s h x ->
GetAccountAuthorizationDetailsResponse' <$>
(x .@? "RoleDetailList" .!@ mempty >>=
may (parseXMLList "member"))
<*>
(x .@? "GroupDetailList" .!@ mempty >>=
may (parseXMLList "member"))
<*>
(x .@? "UserDetailList" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "Marker")
<*> (x .@? "IsTruncated")
<*>
(x .@? "Policies" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders GetAccountAuthorizationDetails
where
toHeaders = const mempty
instance ToPath GetAccountAuthorizationDetails where
toPath = const "/"
instance ToQuery GetAccountAuthorizationDetails where
toQuery GetAccountAuthorizationDetails'{..}
= mconcat
["Action" =:
("GetAccountAuthorizationDetails" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"Marker" =: _gaadMarker, "MaxItems" =: _gaadMaxItems,
"Filter" =:
toQuery (toQueryList "member" <$> _gaadFilter)]
data GetAccountAuthorizationDetailsResponse = GetAccountAuthorizationDetailsResponse'
{ _gaadrsRoleDetailList :: !(Maybe [RoleDetail])
, _gaadrsGroupDetailList :: !(Maybe [GroupDetail])
, _gaadrsUserDetailList :: !(Maybe [UserDetail])
, _gaadrsMarker :: !(Maybe Text)
, _gaadrsIsTruncated :: !(Maybe Bool)
, _gaadrsPolicies :: !(Maybe [ManagedPolicyDetail])
, _gaadrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getAccountAuthorizationDetailsResponse
:: Int
-> GetAccountAuthorizationDetailsResponse
getAccountAuthorizationDetailsResponse pResponseStatus_ =
GetAccountAuthorizationDetailsResponse'
{ _gaadrsRoleDetailList = Nothing
, _gaadrsGroupDetailList = Nothing
, _gaadrsUserDetailList = Nothing
, _gaadrsMarker = Nothing
, _gaadrsIsTruncated = Nothing
, _gaadrsPolicies = Nothing
, _gaadrsResponseStatus = pResponseStatus_
}
gaadrsRoleDetailList :: Lens' GetAccountAuthorizationDetailsResponse [RoleDetail]
gaadrsRoleDetailList = lens _gaadrsRoleDetailList (\ s a -> s{_gaadrsRoleDetailList = a}) . _Default . _Coerce;
gaadrsGroupDetailList :: Lens' GetAccountAuthorizationDetailsResponse [GroupDetail]
gaadrsGroupDetailList = lens _gaadrsGroupDetailList (\ s a -> s{_gaadrsGroupDetailList = a}) . _Default . _Coerce;
gaadrsUserDetailList :: Lens' GetAccountAuthorizationDetailsResponse [UserDetail]
gaadrsUserDetailList = lens _gaadrsUserDetailList (\ s a -> s{_gaadrsUserDetailList = a}) . _Default . _Coerce;
gaadrsMarker :: Lens' GetAccountAuthorizationDetailsResponse (Maybe Text)
gaadrsMarker = lens _gaadrsMarker (\ s a -> s{_gaadrsMarker = a});
gaadrsIsTruncated :: Lens' GetAccountAuthorizationDetailsResponse (Maybe Bool)
gaadrsIsTruncated = lens _gaadrsIsTruncated (\ s a -> s{_gaadrsIsTruncated = a});
gaadrsPolicies :: Lens' GetAccountAuthorizationDetailsResponse [ManagedPolicyDetail]
gaadrsPolicies = lens _gaadrsPolicies (\ s a -> s{_gaadrsPolicies = a}) . _Default . _Coerce;
gaadrsResponseStatus :: Lens' GetAccountAuthorizationDetailsResponse Int
gaadrsResponseStatus = lens _gaadrsResponseStatus (\ s a -> s{_gaadrsResponseStatus = a});