{-# 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 #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.IAM.ListRolePolicies -- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists the names of the inline policies that are embedded in the specified IAM role. -- -- -- An IAM role can also have managed policies attached to it. To list the managed policies that are attached to a role, use 'ListAttachedRolePolicies' . For more information about policies, see in the /IAM User Guide/ . -- -- You can paginate the results using the @MaxItems@ and @Marker@ parameters. If there are no inline policies embedded with the specified role, the operation returns an empty list. -- -- -- This operation returns paginated results. module Network.AWS.IAM.ListRolePolicies ( -- * Creating a Request listRolePolicies , ListRolePolicies -- * Request Lenses , lrpMarker , lrpMaxItems , lrpRoleName -- * Destructuring the Response , listRolePoliciesResponse , ListRolePoliciesResponse -- * Response Lenses , lrprsMarker , lrprsIsTruncated , lrprsResponseStatus , lrprsPolicyNames ) 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 -- | /See:/ 'listRolePolicies' smart constructor. data ListRolePolicies = ListRolePolicies' { _lrpMarker :: !(Maybe Text) , _lrpMaxItems :: !(Maybe Nat) , _lrpRoleName :: !Text } deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'ListRolePolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lrpMarker' - Use this parameter only when paginating results and only after you receive a response indicating that the results are truncated. Set it to the value of the @Marker@ element in the response that you received to indicate where the next call should start. -- -- * 'lrpMaxItems' - (Optional) Use this only when paginating results to indicate the maximum number of items you want in the response. If additional items exist beyond the maximum you specify, the @IsTruncated@ response element is @true@ . If you do not include this parameter, it defaults to 100. Note that IAM might return fewer results, even when there are more results available. In that case, the @IsTruncated@ response element returns @true@ and @Marker@ contains a value to include in the subsequent call that tells the service where to continue from. -- -- * 'lrpRoleName' - The name of the role to list policies for. This parameter allows (per its ) a string of characters consisting of upper and lowercase alphanumeric characters with no spaces. You can also include any of the following characters: _+=,.@- listRolePolicies :: Text -- ^ 'lrpRoleName' -> ListRolePolicies listRolePolicies pRoleName_ = ListRolePolicies' {_lrpMarker = Nothing, _lrpMaxItems = Nothing, _lrpRoleName = pRoleName_} -- | Use this parameter only when paginating results and only after you receive a response indicating that the results are truncated. Set it to the value of the @Marker@ element in the response that you received to indicate where the next call should start. lrpMarker :: Lens' ListRolePolicies (Maybe Text) lrpMarker = lens _lrpMarker (\ s a -> s{_lrpMarker = a}) -- | (Optional) Use this only when paginating results to indicate the maximum number of items you want in the response. If additional items exist beyond the maximum you specify, the @IsTruncated@ response element is @true@ . If you do not include this parameter, it defaults to 100. Note that IAM might return fewer results, even when there are more results available. In that case, the @IsTruncated@ response element returns @true@ and @Marker@ contains a value to include in the subsequent call that tells the service where to continue from. lrpMaxItems :: Lens' ListRolePolicies (Maybe Natural) lrpMaxItems = lens _lrpMaxItems (\ s a -> s{_lrpMaxItems = a}) . mapping _Nat -- | The name of the role to list policies for. This parameter allows (per its ) a string of characters consisting of upper and lowercase alphanumeric characters with no spaces. You can also include any of the following characters: _+=,.@- lrpRoleName :: Lens' ListRolePolicies Text lrpRoleName = lens _lrpRoleName (\ s a -> s{_lrpRoleName = a}) instance AWSPager ListRolePolicies where page rq rs | stop (rs ^. lrprsIsTruncated) = Nothing | isNothing (rs ^. lrprsMarker) = Nothing | otherwise = Just $ rq & lrpMarker .~ rs ^. lrprsMarker instance AWSRequest ListRolePolicies where type Rs ListRolePolicies = ListRolePoliciesResponse request = postQuery iam response = receiveXMLWrapper "ListRolePoliciesResult" (\ s h x -> ListRolePoliciesResponse' <$> (x .@? "Marker") <*> (x .@? "IsTruncated") <*> (pure (fromEnum s)) <*> (x .@? "PolicyNames" .!@ mempty >>= parseXMLList "member")) instance Hashable ListRolePolicies where instance NFData ListRolePolicies where instance ToHeaders ListRolePolicies where toHeaders = const mempty instance ToPath ListRolePolicies where toPath = const "/" instance ToQuery ListRolePolicies where toQuery ListRolePolicies'{..} = mconcat ["Action" =: ("ListRolePolicies" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), "Marker" =: _lrpMarker, "MaxItems" =: _lrpMaxItems, "RoleName" =: _lrpRoleName] -- | Contains the response to a successful 'ListRolePolicies' request. -- -- -- -- /See:/ 'listRolePoliciesResponse' smart constructor. data ListRolePoliciesResponse = ListRolePoliciesResponse' { _lrprsMarker :: !(Maybe Text) , _lrprsIsTruncated :: !(Maybe Bool) , _lrprsResponseStatus :: !Int , _lrprsPolicyNames :: ![Text] } deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'ListRolePoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lrprsMarker' - When @IsTruncated@ is @true@ , this element is present and contains the value to use for the @Marker@ parameter in a subsequent pagination request. -- -- * 'lrprsIsTruncated' - A flag that indicates whether there are more items to return. If your results were truncated, you can make a subsequent pagination request using the @Marker@ request parameter to retrieve more items. Note that IAM might return fewer than the @MaxItems@ number of results even when there are more results available. We recommend that you check @IsTruncated@ after every call to ensure that you receive all of your results. -- -- * 'lrprsResponseStatus' - -- | The response status code. -- -- * 'lrprsPolicyNames' - A list of policy names. listRolePoliciesResponse :: Int -- ^ 'lrprsResponseStatus' -> ListRolePoliciesResponse listRolePoliciesResponse pResponseStatus_ = ListRolePoliciesResponse' { _lrprsMarker = Nothing , _lrprsIsTruncated = Nothing , _lrprsResponseStatus = pResponseStatus_ , _lrprsPolicyNames = mempty } -- | When @IsTruncated@ is @true@ , this element is present and contains the value to use for the @Marker@ parameter in a subsequent pagination request. lrprsMarker :: Lens' ListRolePoliciesResponse (Maybe Text) lrprsMarker = lens _lrprsMarker (\ s a -> s{_lrprsMarker = a}) -- | A flag that indicates whether there are more items to return. If your results were truncated, you can make a subsequent pagination request using the @Marker@ request parameter to retrieve more items. Note that IAM might return fewer than the @MaxItems@ number of results even when there are more results available. We recommend that you check @IsTruncated@ after every call to ensure that you receive all of your results. lrprsIsTruncated :: Lens' ListRolePoliciesResponse (Maybe Bool) lrprsIsTruncated = lens _lrprsIsTruncated (\ s a -> s{_lrprsIsTruncated = a}) -- | -- | The response status code. lrprsResponseStatus :: Lens' ListRolePoliciesResponse Int lrprsResponseStatus = lens _lrprsResponseStatus (\ s a -> s{_lrprsResponseStatus = a}) -- | A list of policy names. lrprsPolicyNames :: Lens' ListRolePoliciesResponse [Text] lrprsPolicyNames = lens _lrprsPolicyNames (\ s a -> s{_lrprsPolicyNames = a}) . _Coerce instance NFData ListRolePoliciesResponse where