module Network.AWS.Firehose.ListDeliveryStreams
(
listDeliveryStreams
, ListDeliveryStreams
, ldsLimit
, ldsExclusiveStartDeliveryStreamName
, listDeliveryStreamsResponse
, ListDeliveryStreamsResponse
, ldsrsResponseStatus
, ldsrsDeliveryStreamNames
, ldsrsHasMoreDeliveryStreams
) where
import Network.AWS.Firehose.Types
import Network.AWS.Firehose.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListDeliveryStreams = ListDeliveryStreams'
{ _ldsLimit :: !(Maybe Nat)
, _ldsExclusiveStartDeliveryStreamName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listDeliveryStreams
:: ListDeliveryStreams
listDeliveryStreams =
ListDeliveryStreams'
{ _ldsLimit = Nothing
, _ldsExclusiveStartDeliveryStreamName = Nothing
}
ldsLimit :: Lens' ListDeliveryStreams (Maybe Natural)
ldsLimit = lens _ldsLimit (\ s a -> s{_ldsLimit = a}) . mapping _Nat;
ldsExclusiveStartDeliveryStreamName :: Lens' ListDeliveryStreams (Maybe Text)
ldsExclusiveStartDeliveryStreamName = lens _ldsExclusiveStartDeliveryStreamName (\ s a -> s{_ldsExclusiveStartDeliveryStreamName = a});
instance AWSRequest ListDeliveryStreams where
type Rs ListDeliveryStreams =
ListDeliveryStreamsResponse
request = postJSON firehose
response
= receiveJSON
(\ s h x ->
ListDeliveryStreamsResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "DeliveryStreamNames" .!@ mempty)
<*> (x .:> "HasMoreDeliveryStreams"))
instance ToHeaders ListDeliveryStreams where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Firehose_20150804.ListDeliveryStreams" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListDeliveryStreams where
toJSON ListDeliveryStreams'{..}
= object
(catMaybes
[("Limit" .=) <$> _ldsLimit,
("ExclusiveStartDeliveryStreamName" .=) <$>
_ldsExclusiveStartDeliveryStreamName])
instance ToPath ListDeliveryStreams where
toPath = const "/"
instance ToQuery ListDeliveryStreams where
toQuery = const mempty
data ListDeliveryStreamsResponse = ListDeliveryStreamsResponse'
{ _ldsrsResponseStatus :: !Int
, _ldsrsDeliveryStreamNames :: ![Text]
, _ldsrsHasMoreDeliveryStreams :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listDeliveryStreamsResponse
:: Int
-> Bool
-> ListDeliveryStreamsResponse
listDeliveryStreamsResponse pResponseStatus_ pHasMoreDeliveryStreams_ =
ListDeliveryStreamsResponse'
{ _ldsrsResponseStatus = pResponseStatus_
, _ldsrsDeliveryStreamNames = mempty
, _ldsrsHasMoreDeliveryStreams = pHasMoreDeliveryStreams_
}
ldsrsResponseStatus :: Lens' ListDeliveryStreamsResponse Int
ldsrsResponseStatus = lens _ldsrsResponseStatus (\ s a -> s{_ldsrsResponseStatus = a});
ldsrsDeliveryStreamNames :: Lens' ListDeliveryStreamsResponse [Text]
ldsrsDeliveryStreamNames = lens _ldsrsDeliveryStreamNames (\ s a -> s{_ldsrsDeliveryStreamNames = a}) . _Coerce;
ldsrsHasMoreDeliveryStreams :: Lens' ListDeliveryStreamsResponse Bool
ldsrsHasMoreDeliveryStreams = lens _ldsrsHasMoreDeliveryStreams (\ s a -> s{_ldsrsHasMoreDeliveryStreams = a});