module Stratosphere.Resources.DeliveryStream where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.ResourceProperties.KinesisFirehoseElasticsearchDestinationConfiguration
import Stratosphere.ResourceProperties.KinesisFirehoseRedshiftDestinationConfiguration
import Stratosphere.ResourceProperties.KinesisFirehoseS3DestinationConfiguration
data DeliveryStream =
DeliveryStream
{ _deliveryStreamDeliveryStreamName :: Maybe (Val Text)
, _deliveryStreamElasticsearchDestinationConfiguration :: Maybe KinesisFirehoseElasticsearchDestinationConfiguration
, _deliveryStreamRedshiftDestinationConfiguration :: Maybe KinesisFirehoseRedshiftDestinationConfiguration
, _deliveryStreamS3DestinationConfiguration :: Maybe KinesisFirehoseS3DestinationConfiguration
} deriving (Show, Generic)
instance ToJSON DeliveryStream where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True }
instance FromJSON DeliveryStream where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True }
deliveryStream
:: DeliveryStream
deliveryStream =
DeliveryStream
{ _deliveryStreamDeliveryStreamName = Nothing
, _deliveryStreamElasticsearchDestinationConfiguration = Nothing
, _deliveryStreamRedshiftDestinationConfiguration = Nothing
, _deliveryStreamS3DestinationConfiguration = Nothing
}
dsDeliveryStreamName :: Lens' DeliveryStream (Maybe (Val Text))
dsDeliveryStreamName = lens _deliveryStreamDeliveryStreamName (\s a -> s { _deliveryStreamDeliveryStreamName = a })
dsElasticsearchDestinationConfiguration :: Lens' DeliveryStream (Maybe KinesisFirehoseElasticsearchDestinationConfiguration)
dsElasticsearchDestinationConfiguration = lens _deliveryStreamElasticsearchDestinationConfiguration (\s a -> s { _deliveryStreamElasticsearchDestinationConfiguration = a })
dsRedshiftDestinationConfiguration :: Lens' DeliveryStream (Maybe KinesisFirehoseRedshiftDestinationConfiguration)
dsRedshiftDestinationConfiguration = lens _deliveryStreamRedshiftDestinationConfiguration (\s a -> s { _deliveryStreamRedshiftDestinationConfiguration = a })
dsS3DestinationConfiguration :: Lens' DeliveryStream (Maybe KinesisFirehoseS3DestinationConfiguration)
dsS3DestinationConfiguration = lens _deliveryStreamS3DestinationConfiguration (\s a -> s { _deliveryStreamS3DestinationConfiguration = a })