{-# 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.ListPolicyVersions
(
listPolicyVersions
, ListPolicyVersions
, lpvMarker
, lpvMaxItems
, lpvPolicyARN
, listPolicyVersionsResponse
, ListPolicyVersionsResponse
, lpvrsVersions
, lpvrsMarker
, lpvrsIsTruncated
, lpvrsResponseStatus
) 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 ListPolicyVersions = ListPolicyVersions'
{ _lpvMarker :: !(Maybe Text)
, _lpvMaxItems :: !(Maybe Nat)
, _lpvPolicyARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listPolicyVersions
:: Text
-> ListPolicyVersions
listPolicyVersions pPolicyARN_ =
ListPolicyVersions'
{ _lpvMarker = Nothing
, _lpvMaxItems = Nothing
, _lpvPolicyARN = pPolicyARN_
}
lpvMarker :: Lens' ListPolicyVersions (Maybe Text)
lpvMarker = lens _lpvMarker (\ s a -> s{_lpvMarker = a});
lpvMaxItems :: Lens' ListPolicyVersions (Maybe Natural)
lpvMaxItems = lens _lpvMaxItems (\ s a -> s{_lpvMaxItems = a}) . mapping _Nat;
lpvPolicyARN :: Lens' ListPolicyVersions Text
lpvPolicyARN = lens _lpvPolicyARN (\ s a -> s{_lpvPolicyARN = a});
instance AWSPager ListPolicyVersions where
page rq rs
| stop (rs ^. lpvrsIsTruncated) = Nothing
| isNothing (rs ^. lpvrsMarker) = Nothing
| otherwise =
Just $ rq & lpvMarker .~ rs ^. lpvrsMarker
instance AWSRequest ListPolicyVersions where
type Rs ListPolicyVersions =
ListPolicyVersionsResponse
request = postQuery iam
response
= receiveXMLWrapper "ListPolicyVersionsResult"
(\ s h x ->
ListPolicyVersionsResponse' <$>
(x .@? "Versions" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "Marker")
<*> (x .@? "IsTruncated")
<*> (pure (fromEnum s)))
instance Hashable ListPolicyVersions
instance NFData ListPolicyVersions
instance ToHeaders ListPolicyVersions where
toHeaders = const mempty
instance ToPath ListPolicyVersions where
toPath = const "/"
instance ToQuery ListPolicyVersions where
toQuery ListPolicyVersions'{..}
= mconcat
["Action" =: ("ListPolicyVersions" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"Marker" =: _lpvMarker, "MaxItems" =: _lpvMaxItems,
"PolicyArn" =: _lpvPolicyARN]
data ListPolicyVersionsResponse = ListPolicyVersionsResponse'
{ _lpvrsVersions :: !(Maybe [PolicyVersion])
, _lpvrsMarker :: !(Maybe Text)
, _lpvrsIsTruncated :: !(Maybe Bool)
, _lpvrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listPolicyVersionsResponse
:: Int
-> ListPolicyVersionsResponse
listPolicyVersionsResponse pResponseStatus_ =
ListPolicyVersionsResponse'
{ _lpvrsVersions = Nothing
, _lpvrsMarker = Nothing
, _lpvrsIsTruncated = Nothing
, _lpvrsResponseStatus = pResponseStatus_
}
lpvrsVersions :: Lens' ListPolicyVersionsResponse [PolicyVersion]
lpvrsVersions = lens _lpvrsVersions (\ s a -> s{_lpvrsVersions = a}) . _Default . _Coerce;
lpvrsMarker :: Lens' ListPolicyVersionsResponse (Maybe Text)
lpvrsMarker = lens _lpvrsMarker (\ s a -> s{_lpvrsMarker = a});
lpvrsIsTruncated :: Lens' ListPolicyVersionsResponse (Maybe Bool)
lpvrsIsTruncated = lens _lpvrsIsTruncated (\ s a -> s{_lpvrsIsTruncated = a});
lpvrsResponseStatus :: Lens' ListPolicyVersionsResponse Int
lpvrsResponseStatus = lens _lpvrsResponseStatus (\ s a -> s{_lpvrsResponseStatus = a});
instance NFData ListPolicyVersionsResponse