module Stratosphere.DataBrew.Job.S3TableOutputOptionsProperty (
module Exports, S3TableOutputOptionsProperty(..),
mkS3TableOutputOptionsProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.DataBrew.Job.S3LocationProperty as Exports
import Stratosphere.ResourceProperties
data S3TableOutputOptionsProperty
=
S3TableOutputOptionsProperty {S3TableOutputOptionsProperty -> ()
haddock_workaround_ :: (),
S3TableOutputOptionsProperty -> S3LocationProperty
location :: S3LocationProperty}
deriving stock (S3TableOutputOptionsProperty
-> S3TableOutputOptionsProperty -> Bool
(S3TableOutputOptionsProperty
-> S3TableOutputOptionsProperty -> Bool)
-> (S3TableOutputOptionsProperty
-> S3TableOutputOptionsProperty -> Bool)
-> Eq S3TableOutputOptionsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: S3TableOutputOptionsProperty
-> S3TableOutputOptionsProperty -> Bool
== :: S3TableOutputOptionsProperty
-> S3TableOutputOptionsProperty -> Bool
$c/= :: S3TableOutputOptionsProperty
-> S3TableOutputOptionsProperty -> Bool
/= :: S3TableOutputOptionsProperty
-> S3TableOutputOptionsProperty -> Bool
Prelude.Eq, Int -> S3TableOutputOptionsProperty -> ShowS
[S3TableOutputOptionsProperty] -> ShowS
S3TableOutputOptionsProperty -> String
(Int -> S3TableOutputOptionsProperty -> ShowS)
-> (S3TableOutputOptionsProperty -> String)
-> ([S3TableOutputOptionsProperty] -> ShowS)
-> Show S3TableOutputOptionsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> S3TableOutputOptionsProperty -> ShowS
showsPrec :: Int -> S3TableOutputOptionsProperty -> ShowS
$cshow :: S3TableOutputOptionsProperty -> String
show :: S3TableOutputOptionsProperty -> String
$cshowList :: [S3TableOutputOptionsProperty] -> ShowS
showList :: [S3TableOutputOptionsProperty] -> ShowS
Prelude.Show)
mkS3TableOutputOptionsProperty ::
S3LocationProperty -> S3TableOutputOptionsProperty
mkS3TableOutputOptionsProperty :: S3LocationProperty -> S3TableOutputOptionsProperty
mkS3TableOutputOptionsProperty S3LocationProperty
location
= S3TableOutputOptionsProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), location :: S3LocationProperty
location = S3LocationProperty
location}
instance ToResourceProperties S3TableOutputOptionsProperty where
toResourceProperties :: S3TableOutputOptionsProperty -> ResourceProperties
toResourceProperties S3TableOutputOptionsProperty {()
S3LocationProperty
haddock_workaround_ :: S3TableOutputOptionsProperty -> ()
location :: S3TableOutputOptionsProperty -> S3LocationProperty
haddock_workaround_ :: ()
location :: S3LocationProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::DataBrew::Job.S3TableOutputOptions",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"Location" Key -> S3LocationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= S3LocationProperty
location]}
instance JSON.ToJSON S3TableOutputOptionsProperty where
toJSON :: S3TableOutputOptionsProperty -> Value
toJSON S3TableOutputOptionsProperty {()
S3LocationProperty
haddock_workaround_ :: S3TableOutputOptionsProperty -> ()
location :: S3TableOutputOptionsProperty -> S3LocationProperty
haddock_workaround_ :: ()
location :: S3LocationProperty
..}
= [(Key, Value)] -> Value
JSON.object [Key
"Location" Key -> S3LocationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= S3LocationProperty
location]
instance Property "Location" S3TableOutputOptionsProperty where
type PropertyType "Location" S3TableOutputOptionsProperty = S3LocationProperty
set :: PropertyType "Location" S3TableOutputOptionsProperty
-> S3TableOutputOptionsProperty -> S3TableOutputOptionsProperty
set PropertyType "Location" S3TableOutputOptionsProperty
newValue S3TableOutputOptionsProperty {()
S3LocationProperty
haddock_workaround_ :: S3TableOutputOptionsProperty -> ()
location :: S3TableOutputOptionsProperty -> S3LocationProperty
haddock_workaround_ :: ()
location :: S3LocationProperty
..}
= S3TableOutputOptionsProperty {location :: S3LocationProperty
location = PropertyType "Location" S3TableOutputOptionsProperty
S3LocationProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}