{-# 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.ListResourceDataSync
(
listResourceDataSync
, ListResourceDataSync
, lrdsNextToken
, lrdsMaxResults
, listResourceDataSyncResponse
, ListResourceDataSyncResponse
, lrdsrsResourceDataSyncItems
, lrdsrsNextToken
, lrdsrsResponseStatus
) 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 ListResourceDataSync = ListResourceDataSync'
{ _lrdsNextToken :: !(Maybe Text)
, _lrdsMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listResourceDataSync
:: ListResourceDataSync
listResourceDataSync =
ListResourceDataSync' {_lrdsNextToken = Nothing, _lrdsMaxResults = Nothing}
lrdsNextToken :: Lens' ListResourceDataSync (Maybe Text)
lrdsNextToken = lens _lrdsNextToken (\ s a -> s{_lrdsNextToken = a})
lrdsMaxResults :: Lens' ListResourceDataSync (Maybe Natural)
lrdsMaxResults = lens _lrdsMaxResults (\ s a -> s{_lrdsMaxResults = a}) . mapping _Nat
instance AWSRequest ListResourceDataSync where
type Rs ListResourceDataSync =
ListResourceDataSyncResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
ListResourceDataSyncResponse' <$>
(x .?> "ResourceDataSyncItems" .!@ mempty) <*>
(x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListResourceDataSync where
instance NFData ListResourceDataSync where
instance ToHeaders ListResourceDataSync where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.ListResourceDataSync" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListResourceDataSync where
toJSON ListResourceDataSync'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lrdsNextToken,
("MaxResults" .=) <$> _lrdsMaxResults])
instance ToPath ListResourceDataSync where
toPath = const "/"
instance ToQuery ListResourceDataSync where
toQuery = const mempty
data ListResourceDataSyncResponse = ListResourceDataSyncResponse'
{ _lrdsrsResourceDataSyncItems :: !(Maybe [ResourceDataSyncItem])
, _lrdsrsNextToken :: !(Maybe Text)
, _lrdsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listResourceDataSyncResponse
:: Int
-> ListResourceDataSyncResponse
listResourceDataSyncResponse pResponseStatus_ =
ListResourceDataSyncResponse'
{ _lrdsrsResourceDataSyncItems = Nothing
, _lrdsrsNextToken = Nothing
, _lrdsrsResponseStatus = pResponseStatus_
}
lrdsrsResourceDataSyncItems :: Lens' ListResourceDataSyncResponse [ResourceDataSyncItem]
lrdsrsResourceDataSyncItems = lens _lrdsrsResourceDataSyncItems (\ s a -> s{_lrdsrsResourceDataSyncItems = a}) . _Default . _Coerce
lrdsrsNextToken :: Lens' ListResourceDataSyncResponse (Maybe Text)
lrdsrsNextToken = lens _lrdsrsNextToken (\ s a -> s{_lrdsrsNextToken = a})
lrdsrsResponseStatus :: Lens' ListResourceDataSyncResponse Int
lrdsrsResponseStatus = lens _lrdsrsResponseStatus (\ s a -> s{_lrdsrsResponseStatus = a})
instance NFData ListResourceDataSyncResponse where