{-# 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.Firehose.ListDeliveryStreams
(
listDeliveryStreams
, ListDeliveryStreams
, ldsLimit
, ldsDeliveryStreamType
, ldsExclusiveStartDeliveryStreamName
, listDeliveryStreamsResponse
, ListDeliveryStreamsResponse
, ldsrsResponseStatus
, ldsrsDeliveryStreamNames
, ldsrsHasMoreDeliveryStreams
) where
import Network.AWS.Firehose.Types
import Network.AWS.Firehose.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListDeliveryStreams = ListDeliveryStreams'
{ _ldsLimit :: !(Maybe Nat)
, _ldsDeliveryStreamType :: !(Maybe DeliveryStreamType)
, _ldsExclusiveStartDeliveryStreamName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDeliveryStreams
:: ListDeliveryStreams
listDeliveryStreams =
ListDeliveryStreams'
{ _ldsLimit = Nothing
, _ldsDeliveryStreamType = Nothing
, _ldsExclusiveStartDeliveryStreamName = Nothing
}
ldsLimit :: Lens' ListDeliveryStreams (Maybe Natural)
ldsLimit = lens _ldsLimit (\ s a -> s{_ldsLimit = a}) . mapping _Nat
ldsDeliveryStreamType :: Lens' ListDeliveryStreams (Maybe DeliveryStreamType)
ldsDeliveryStreamType = lens _ldsDeliveryStreamType (\ s a -> s{_ldsDeliveryStreamType = a})
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 Hashable ListDeliveryStreams where
instance NFData ListDeliveryStreams where
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,
("DeliveryStreamType" .=) <$> _ldsDeliveryStreamType,
("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})
instance NFData ListDeliveryStreamsResponse where