module Network.AWS.IAM.GetAccountAuthorizationDetails
(
GetAccountAuthorizationDetails
, getAccountAuthorizationDetails
, gaadFilter
, gaadMarker
, gaadMaxItems
, GetAccountAuthorizationDetailsResponse
, getAccountAuthorizationDetailsResponse
, gaadrGroupDetailList
, gaadrIsTruncated
, gaadrMarker
, gaadrPolicies
, gaadrRoleDetailList
, gaadrUserDetailList
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data GetAccountAuthorizationDetails = GetAccountAuthorizationDetails
{ _gaadFilter :: List "member" EntityType
, _gaadMarker :: Maybe Text
, _gaadMaxItems :: Maybe Nat
} deriving (Eq, Read, Show)
getAccountAuthorizationDetails :: GetAccountAuthorizationDetails
getAccountAuthorizationDetails = GetAccountAuthorizationDetails
{ _gaadFilter = mempty
, _gaadMaxItems = Nothing
, _gaadMarker = Nothing
}
gaadFilter :: Lens' GetAccountAuthorizationDetails [EntityType]
gaadFilter = lens _gaadFilter (\s a -> s { _gaadFilter = a }) . _List
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
data GetAccountAuthorizationDetailsResponse = GetAccountAuthorizationDetailsResponse
{ _gaadrGroupDetailList :: List "member" GroupDetail
, _gaadrIsTruncated :: Maybe Bool
, _gaadrMarker :: Maybe Text
, _gaadrPolicies :: List "member" ManagedPolicyDetail
, _gaadrRoleDetailList :: List "member" RoleDetail
, _gaadrUserDetailList :: List "member" UserDetail
} deriving (Eq, Read, Show)
getAccountAuthorizationDetailsResponse :: GetAccountAuthorizationDetailsResponse
getAccountAuthorizationDetailsResponse = GetAccountAuthorizationDetailsResponse
{ _gaadrUserDetailList = mempty
, _gaadrGroupDetailList = mempty
, _gaadrRoleDetailList = mempty
, _gaadrPolicies = mempty
, _gaadrIsTruncated = Nothing
, _gaadrMarker = Nothing
}
gaadrGroupDetailList :: Lens' GetAccountAuthorizationDetailsResponse [GroupDetail]
gaadrGroupDetailList =
lens _gaadrGroupDetailList (\s a -> s { _gaadrGroupDetailList = a })
. _List
gaadrIsTruncated :: Lens' GetAccountAuthorizationDetailsResponse (Maybe Bool)
gaadrIsTruncated = lens _gaadrIsTruncated (\s a -> s { _gaadrIsTruncated = a })
gaadrMarker :: Lens' GetAccountAuthorizationDetailsResponse (Maybe Text)
gaadrMarker = lens _gaadrMarker (\s a -> s { _gaadrMarker = a })
gaadrPolicies :: Lens' GetAccountAuthorizationDetailsResponse [ManagedPolicyDetail]
gaadrPolicies = lens _gaadrPolicies (\s a -> s { _gaadrPolicies = a }) . _List
gaadrRoleDetailList :: Lens' GetAccountAuthorizationDetailsResponse [RoleDetail]
gaadrRoleDetailList =
lens _gaadrRoleDetailList (\s a -> s { _gaadrRoleDetailList = a })
. _List
gaadrUserDetailList :: Lens' GetAccountAuthorizationDetailsResponse [UserDetail]
gaadrUserDetailList =
lens _gaadrUserDetailList (\s a -> s { _gaadrUserDetailList = a })
. _List
instance ToPath GetAccountAuthorizationDetails where
toPath = const "/"
instance ToQuery GetAccountAuthorizationDetails where
toQuery GetAccountAuthorizationDetails{..} = mconcat
[ "Filter" =? _gaadFilter
, "Marker" =? _gaadMarker
, "MaxItems" =? _gaadMaxItems
]
instance ToHeaders GetAccountAuthorizationDetails
instance AWSRequest GetAccountAuthorizationDetails where
type Sv GetAccountAuthorizationDetails = IAM
type Rs GetAccountAuthorizationDetails = GetAccountAuthorizationDetailsResponse
request = post "GetAccountAuthorizationDetails"
response = xmlResponse
instance FromXML GetAccountAuthorizationDetailsResponse where
parseXML = withElement "GetAccountAuthorizationDetailsResult" $ \x -> GetAccountAuthorizationDetailsResponse
<$> x .@? "GroupDetailList" .!@ mempty
<*> x .@? "IsTruncated"
<*> x .@? "Marker"
<*> x .@? "Policies" .!@ mempty
<*> x .@? "RoleDetailList" .!@ mempty
<*> x .@? "UserDetailList" .!@ mempty