{-# 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.DescribeDeliveryStream
(
describeDeliveryStream
, DescribeDeliveryStream
, ddsExclusiveStartDestinationId
, ddsLimit
, ddsDeliveryStreamName
, describeDeliveryStreamResponse
, DescribeDeliveryStreamResponse
, ddsrsResponseStatus
, ddsrsDeliveryStreamDescription
) 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 DescribeDeliveryStream = DescribeDeliveryStream'
{ _ddsExclusiveStartDestinationId :: !(Maybe Text)
, _ddsLimit :: !(Maybe Nat)
, _ddsDeliveryStreamName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDeliveryStream
:: Text
-> DescribeDeliveryStream
describeDeliveryStream pDeliveryStreamName_ =
DescribeDeliveryStream'
{ _ddsExclusiveStartDestinationId = Nothing
, _ddsLimit = Nothing
, _ddsDeliveryStreamName = pDeliveryStreamName_
}
ddsExclusiveStartDestinationId :: Lens' DescribeDeliveryStream (Maybe Text)
ddsExclusiveStartDestinationId = lens _ddsExclusiveStartDestinationId (\ s a -> s{_ddsExclusiveStartDestinationId = a})
ddsLimit :: Lens' DescribeDeliveryStream (Maybe Natural)
ddsLimit = lens _ddsLimit (\ s a -> s{_ddsLimit = a}) . mapping _Nat
ddsDeliveryStreamName :: Lens' DescribeDeliveryStream Text
ddsDeliveryStreamName = lens _ddsDeliveryStreamName (\ s a -> s{_ddsDeliveryStreamName = a})
instance AWSRequest DescribeDeliveryStream where
type Rs DescribeDeliveryStream =
DescribeDeliveryStreamResponse
request = postJSON firehose
response
= receiveJSON
(\ s h x ->
DescribeDeliveryStreamResponse' <$>
(pure (fromEnum s)) <*>
(x .:> "DeliveryStreamDescription"))
instance Hashable DescribeDeliveryStream where
instance NFData DescribeDeliveryStream where
instance ToHeaders DescribeDeliveryStream where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Firehose_20150804.DescribeDeliveryStream" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeDeliveryStream where
toJSON DescribeDeliveryStream'{..}
= object
(catMaybes
[("ExclusiveStartDestinationId" .=) <$>
_ddsExclusiveStartDestinationId,
("Limit" .=) <$> _ddsLimit,
Just
("DeliveryStreamName" .= _ddsDeliveryStreamName)])
instance ToPath DescribeDeliveryStream where
toPath = const "/"
instance ToQuery DescribeDeliveryStream where
toQuery = const mempty
data DescribeDeliveryStreamResponse = DescribeDeliveryStreamResponse'
{ _ddsrsResponseStatus :: !Int
, _ddsrsDeliveryStreamDescription :: !DeliveryStreamDescription
} deriving (Eq, Show, Data, Typeable, Generic)
describeDeliveryStreamResponse
:: Int
-> DeliveryStreamDescription
-> DescribeDeliveryStreamResponse
describeDeliveryStreamResponse pResponseStatus_ pDeliveryStreamDescription_ =
DescribeDeliveryStreamResponse'
{ _ddsrsResponseStatus = pResponseStatus_
, _ddsrsDeliveryStreamDescription = pDeliveryStreamDescription_
}
ddsrsResponseStatus :: Lens' DescribeDeliveryStreamResponse Int
ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a})
ddsrsDeliveryStreamDescription :: Lens' DescribeDeliveryStreamResponse DeliveryStreamDescription
ddsrsDeliveryStreamDescription = lens _ddsrsDeliveryStreamDescription (\ s a -> s{_ddsrsDeliveryStreamDescription = a})
instance NFData DescribeDeliveryStreamResponse where