module Stratosphere.ResourceProperties.DynamoDBStreamSpecification where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.Types
data DynamoDBStreamSpecification =
DynamoDBStreamSpecification
{ _dynamoDBStreamSpecificationStreamViewType :: StreamViewType
} deriving (Show, Generic)
instance ToJSON DynamoDBStreamSpecification where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 28, omitNothingFields = True }
instance FromJSON DynamoDBStreamSpecification where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 28, omitNothingFields = True }
dynamoDBStreamSpecification
:: StreamViewType
-> DynamoDBStreamSpecification
dynamoDBStreamSpecification streamViewTypearg =
DynamoDBStreamSpecification
{ _dynamoDBStreamSpecificationStreamViewType = streamViewTypearg
}
ddbssStreamViewType :: Lens' DynamoDBStreamSpecification StreamViewType
ddbssStreamViewType = lens _dynamoDBStreamSpecificationStreamViewType (\s a -> s { _dynamoDBStreamSpecificationStreamViewType = a })