{-# 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.SSM.ListComplianceSummaries
(
listComplianceSummaries
, ListComplianceSummaries
, lcsFilters
, lcsNextToken
, lcsMaxResults
, listComplianceSummariesResponse
, ListComplianceSummariesResponse
, lcsrsNextToken
, lcsrsComplianceSummaryItems
, lcsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
data ListComplianceSummaries = ListComplianceSummaries'
{ _lcsFilters :: !(Maybe [ComplianceStringFilter])
, _lcsNextToken :: !(Maybe Text)
, _lcsMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listComplianceSummaries
:: ListComplianceSummaries
listComplianceSummaries =
ListComplianceSummaries'
{_lcsFilters = Nothing, _lcsNextToken = Nothing, _lcsMaxResults = Nothing}
lcsFilters :: Lens' ListComplianceSummaries [ComplianceStringFilter]
lcsFilters = lens _lcsFilters (\ s a -> s{_lcsFilters = a}) . _Default . _Coerce
lcsNextToken :: Lens' ListComplianceSummaries (Maybe Text)
lcsNextToken = lens _lcsNextToken (\ s a -> s{_lcsNextToken = a})
lcsMaxResults :: Lens' ListComplianceSummaries (Maybe Natural)
lcsMaxResults = lens _lcsMaxResults (\ s a -> s{_lcsMaxResults = a}) . mapping _Nat
instance AWSRequest ListComplianceSummaries where
type Rs ListComplianceSummaries =
ListComplianceSummariesResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
ListComplianceSummariesResponse' <$>
(x .?> "NextToken") <*>
(x .?> "ComplianceSummaryItems" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListComplianceSummaries where
instance NFData ListComplianceSummaries where
instance ToHeaders ListComplianceSummaries where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.ListComplianceSummaries" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListComplianceSummaries where
toJSON ListComplianceSummaries'{..}
= object
(catMaybes
[("Filters" .=) <$> _lcsFilters,
("NextToken" .=) <$> _lcsNextToken,
("MaxResults" .=) <$> _lcsMaxResults])
instance ToPath ListComplianceSummaries where
toPath = const "/"
instance ToQuery ListComplianceSummaries where
toQuery = const mempty
data ListComplianceSummariesResponse = ListComplianceSummariesResponse'
{ _lcsrsNextToken :: !(Maybe Text)
, _lcsrsComplianceSummaryItems :: !(Maybe [ComplianceSummaryItem])
, _lcsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listComplianceSummariesResponse
:: Int
-> ListComplianceSummariesResponse
listComplianceSummariesResponse pResponseStatus_ =
ListComplianceSummariesResponse'
{ _lcsrsNextToken = Nothing
, _lcsrsComplianceSummaryItems = Nothing
, _lcsrsResponseStatus = pResponseStatus_
}
lcsrsNextToken :: Lens' ListComplianceSummariesResponse (Maybe Text)
lcsrsNextToken = lens _lcsrsNextToken (\ s a -> s{_lcsrsNextToken = a})
lcsrsComplianceSummaryItems :: Lens' ListComplianceSummariesResponse [ComplianceSummaryItem]
lcsrsComplianceSummaryItems = lens _lcsrsComplianceSummaryItems (\ s a -> s{_lcsrsComplianceSummaryItems = a}) . _Default . _Coerce
lcsrsResponseStatus :: Lens' ListComplianceSummariesResponse Int
lcsrsResponseStatus = lens _lcsrsResponseStatus (\ s a -> s{_lcsrsResponseStatus = a})
instance NFData ListComplianceSummariesResponse where