module Stratosphere.ResourceProperties.DynamoDBProjectionObject where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.Types
data DynamoDBProjectionObject =
DynamoDBProjectionObject
{ _dynamoDBProjectionObjectNonKeyAttributes :: Maybe [Val Text]
, _dynamoDBProjectionObjectProjectionType :: Maybe ProjectionType
} deriving (Show, Generic)
instance ToJSON DynamoDBProjectionObject where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 25, omitNothingFields = True }
instance FromJSON DynamoDBProjectionObject where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 25, omitNothingFields = True }
dynamoDBProjectionObject
:: DynamoDBProjectionObject
dynamoDBProjectionObject =
DynamoDBProjectionObject
{ _dynamoDBProjectionObjectNonKeyAttributes = Nothing
, _dynamoDBProjectionObjectProjectionType = Nothing
}
ddbpoNonKeyAttributes :: Lens' DynamoDBProjectionObject (Maybe [Val Text])
ddbpoNonKeyAttributes = lens _dynamoDBProjectionObjectNonKeyAttributes (\s a -> s { _dynamoDBProjectionObjectNonKeyAttributes = a })
ddbpoProjectionType :: Lens' DynamoDBProjectionObject (Maybe ProjectionType)
ddbpoProjectionType = lens _dynamoDBProjectionObjectProjectionType (\s a -> s { _dynamoDBProjectionObjectProjectionType = a })