module Network.AWS.IoT.ListPolicyVersions
(
listPolicyVersions
, ListPolicyVersions
, lpvPolicyName
, listPolicyVersionsResponse
, ListPolicyVersionsResponse
, lpvrsPolicyVersions
, lpvrsResponseStatus
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype ListPolicyVersions = ListPolicyVersions'
{ _lpvPolicyName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listPolicyVersions
:: Text
-> ListPolicyVersions
listPolicyVersions pPolicyName_ =
ListPolicyVersions'
{ _lpvPolicyName = pPolicyName_
}
lpvPolicyName :: Lens' ListPolicyVersions Text
lpvPolicyName = lens _lpvPolicyName (\ s a -> s{_lpvPolicyName = a});
instance AWSRequest ListPolicyVersions where
type Rs ListPolicyVersions =
ListPolicyVersionsResponse
request = get ioT
response
= receiveJSON
(\ s h x ->
ListPolicyVersionsResponse' <$>
(x .?> "policyVersions" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders ListPolicyVersions where
toHeaders = const mempty
instance ToPath ListPolicyVersions where
toPath ListPolicyVersions'{..}
= mconcat
["/policies/", toBS _lpvPolicyName, "/version"]
instance ToQuery ListPolicyVersions where
toQuery = const mempty
data ListPolicyVersionsResponse = ListPolicyVersionsResponse'
{ _lpvrsPolicyVersions :: !(Maybe [PolicyVersion])
, _lpvrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listPolicyVersionsResponse
:: Int
-> ListPolicyVersionsResponse
listPolicyVersionsResponse pResponseStatus_ =
ListPolicyVersionsResponse'
{ _lpvrsPolicyVersions = Nothing
, _lpvrsResponseStatus = pResponseStatus_
}
lpvrsPolicyVersions :: Lens' ListPolicyVersionsResponse [PolicyVersion]
lpvrsPolicyVersions = lens _lpvrsPolicyVersions (\ s a -> s{_lpvrsPolicyVersions = a}) . _Default . _Coerce;
lpvrsResponseStatus :: Lens' ListPolicyVersionsResponse Int
lpvrsResponseStatus = lens _lpvrsResponseStatus (\ s a -> s{_lpvrsResponseStatus = a});