{-# 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.IoT.ListPolicyVersions
(
listPolicyVersions
, ListPolicyVersions
, lpvPolicyName
, listPolicyVersionsResponse
, ListPolicyVersionsResponse
, lpvrsPolicyVersions
, lpvrsResponseStatus
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
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 Hashable ListPolicyVersions where
instance NFData ListPolicyVersions where
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})
instance NFData ListPolicyVersionsResponse where