module Stratosphere.ResourceProperties.KinesisFirehoseRedshiftCopyCommand where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data KinesisFirehoseRedshiftCopyCommand =
KinesisFirehoseRedshiftCopyCommand
{ _kinesisFirehoseRedshiftCopyCommandCopyOptions :: Maybe (Val Text)
, _kinesisFirehoseRedshiftCopyCommandDataTableColumns :: Maybe (Val Text)
, _kinesisFirehoseRedshiftCopyCommandDataTableName :: Val Text
} deriving (Show, Generic)
instance ToJSON KinesisFirehoseRedshiftCopyCommand where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 35, omitNothingFields = True }
instance FromJSON KinesisFirehoseRedshiftCopyCommand where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 35, omitNothingFields = True }
kinesisFirehoseRedshiftCopyCommand
:: Val Text
-> KinesisFirehoseRedshiftCopyCommand
kinesisFirehoseRedshiftCopyCommand dataTableNamearg =
KinesisFirehoseRedshiftCopyCommand
{ _kinesisFirehoseRedshiftCopyCommandCopyOptions = Nothing
, _kinesisFirehoseRedshiftCopyCommandDataTableColumns = Nothing
, _kinesisFirehoseRedshiftCopyCommandDataTableName = dataTableNamearg
}
kfrccCopyOptions :: Lens' KinesisFirehoseRedshiftCopyCommand (Maybe (Val Text))
kfrccCopyOptions = lens _kinesisFirehoseRedshiftCopyCommandCopyOptions (\s a -> s { _kinesisFirehoseRedshiftCopyCommandCopyOptions = a })
kfrccDataTableColumns :: Lens' KinesisFirehoseRedshiftCopyCommand (Maybe (Val Text))
kfrccDataTableColumns = lens _kinesisFirehoseRedshiftCopyCommandDataTableColumns (\s a -> s { _kinesisFirehoseRedshiftCopyCommandDataTableColumns = a })
kfrccDataTableName :: Lens' KinesisFirehoseRedshiftCopyCommand (Val Text)
kfrccDataTableName = lens _kinesisFirehoseRedshiftCopyCommandDataTableName (\s a -> s { _kinesisFirehoseRedshiftCopyCommandDataTableName = a })