stratosphere-0.8.0: library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessorParameter.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TupleSections #-}

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-ProcessingConfiguration.html

module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter where

import Control.Lens hiding ((.=))
import Data.Aeson
import Data.Maybe (catMaybes)
import Data.Monoid (mempty)
import Data.Text

import Stratosphere.Values


-- | Full data type definition for
-- KinesisFirehoseDeliveryStreamProcessorParameter. See
-- 'kinesisFirehoseDeliveryStreamProcessorParameter' for a more convenient
-- constructor.
data KinesisFirehoseDeliveryStreamProcessorParameter =
  KinesisFirehoseDeliveryStreamProcessorParameter
  { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName :: Val Text
  , _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue :: Val Text
  } deriving (Show, Eq)

instance ToJSON KinesisFirehoseDeliveryStreamProcessorParameter where
  toJSON KinesisFirehoseDeliveryStreamProcessorParameter{..} =
    object $
    catMaybes
    [ (Just . ("ParameterName",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameterParameterName
    , (Just . ("ParameterValue",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue
    ]

instance FromJSON KinesisFirehoseDeliveryStreamProcessorParameter where
  parseJSON (Object obj) =
    KinesisFirehoseDeliveryStreamProcessorParameter <$>
      (obj .: "ParameterName") <*>
      (obj .: "ParameterValue")
  parseJSON _ = mempty

-- | Constructor for 'KinesisFirehoseDeliveryStreamProcessorParameter'
-- containing required fields as arguments.
kinesisFirehoseDeliveryStreamProcessorParameter
  :: Val Text -- ^ 'kfdsppParameterName'
  -> Val Text -- ^ 'kfdsppParameterValue'
  -> KinesisFirehoseDeliveryStreamProcessorParameter
kinesisFirehoseDeliveryStreamProcessorParameter parameterNamearg parameterValuearg =
  KinesisFirehoseDeliveryStreamProcessorParameter
  { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName = parameterNamearg
  , _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue = parameterValuearg
  }

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-ProcessingConfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration-processor-parameter-parameterName
kfdsppParameterName :: Lens' KinesisFirehoseDeliveryStreamProcessorParameter (Val Text)
kfdsppParameterName = lens _kinesisFirehoseDeliveryStreamProcessorParameterParameterName (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-kinesisdeliverystream-ProcessingConfiguration.html#cfn-kinesisfirehose-kinesisdeliverystream-processingconfiguration-processor-parameter-parameterValue
kfdsppParameterValue :: Lens' KinesisFirehoseDeliveryStreamProcessorParameter (Val Text)
kfdsppParameterValue = lens _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue = a })