module Stratosphere.DMS.Endpoint.ElasticsearchSettingsProperty (
        ElasticsearchSettingsProperty(..), mkElasticsearchSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ElasticsearchSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html>
    ElasticsearchSettingsProperty {ElasticsearchSettingsProperty -> ()
haddock_workaround_ :: (),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html#cfn-dms-endpoint-elasticsearchsettings-endpointuri>
                                   ElasticsearchSettingsProperty -> Maybe (Value Text)
endpointUri :: (Prelude.Maybe (Value Prelude.Text)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html#cfn-dms-endpoint-elasticsearchsettings-errorretryduration>
                                   ElasticsearchSettingsProperty -> Maybe (Value Integer)
errorRetryDuration :: (Prelude.Maybe (Value Prelude.Integer)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html#cfn-dms-endpoint-elasticsearchsettings-fullloaderrorpercentage>
                                   ElasticsearchSettingsProperty -> Maybe (Value Integer)
fullLoadErrorPercentage :: (Prelude.Maybe (Value Prelude.Integer)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html#cfn-dms-endpoint-elasticsearchsettings-serviceaccessrolearn>
                                   ElasticsearchSettingsProperty -> Maybe (Value Text)
serviceAccessRoleArn :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> Bool
(ElasticsearchSettingsProperty
 -> ElasticsearchSettingsProperty -> Bool)
-> (ElasticsearchSettingsProperty
    -> ElasticsearchSettingsProperty -> Bool)
-> Eq ElasticsearchSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> Bool
== :: ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> Bool
$c/= :: ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> Bool
/= :: ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> Bool
Prelude.Eq, Int -> ElasticsearchSettingsProperty -> ShowS
[ElasticsearchSettingsProperty] -> ShowS
ElasticsearchSettingsProperty -> String
(Int -> ElasticsearchSettingsProperty -> ShowS)
-> (ElasticsearchSettingsProperty -> String)
-> ([ElasticsearchSettingsProperty] -> ShowS)
-> Show ElasticsearchSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ElasticsearchSettingsProperty -> ShowS
showsPrec :: Int -> ElasticsearchSettingsProperty -> ShowS
$cshow :: ElasticsearchSettingsProperty -> String
show :: ElasticsearchSettingsProperty -> String
$cshowList :: [ElasticsearchSettingsProperty] -> ShowS
showList :: [ElasticsearchSettingsProperty] -> ShowS
Prelude.Show)
mkElasticsearchSettingsProperty :: ElasticsearchSettingsProperty
mkElasticsearchSettingsProperty :: ElasticsearchSettingsProperty
mkElasticsearchSettingsProperty
  = ElasticsearchSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), endpointUri :: Maybe (Value Text)
endpointUri = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       errorRetryDuration :: Maybe (Value Integer)
errorRetryDuration = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       fullLoadErrorPercentage :: Maybe (Value Integer)
fullLoadErrorPercentage = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       serviceAccessRoleArn :: Maybe (Value Text)
serviceAccessRoleArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ElasticsearchSettingsProperty where
  toResourceProperties :: ElasticsearchSettingsProperty -> ResourceProperties
toResourceProperties ElasticsearchSettingsProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ElasticsearchSettingsProperty -> ()
endpointUri :: ElasticsearchSettingsProperty -> Maybe (Value Text)
errorRetryDuration :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
fullLoadErrorPercentage :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
serviceAccessRoleArn :: ElasticsearchSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::DMS::Endpoint.ElasticsearchSettings",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EndpointUri" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
endpointUri,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ErrorRetryDuration" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
errorRetryDuration,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FullLoadErrorPercentage"
                              (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
fullLoadErrorPercentage,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ServiceAccessRoleArn"
                              (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
serviceAccessRoleArn])}
instance JSON.ToJSON ElasticsearchSettingsProperty where
  toJSON :: ElasticsearchSettingsProperty -> Value
toJSON ElasticsearchSettingsProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ElasticsearchSettingsProperty -> ()
endpointUri :: ElasticsearchSettingsProperty -> Maybe (Value Text)
errorRetryDuration :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
fullLoadErrorPercentage :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
serviceAccessRoleArn :: ElasticsearchSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EndpointUri" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
endpointUri,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ErrorRetryDuration" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
errorRetryDuration,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FullLoadErrorPercentage"
                 (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
fullLoadErrorPercentage,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ServiceAccessRoleArn"
                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
serviceAccessRoleArn]))
instance Property "EndpointUri" ElasticsearchSettingsProperty where
  type PropertyType "EndpointUri" ElasticsearchSettingsProperty = Value Prelude.Text
  set :: PropertyType "EndpointUri" ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> ElasticsearchSettingsProperty
set PropertyType "EndpointUri" ElasticsearchSettingsProperty
newValue ElasticsearchSettingsProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ElasticsearchSettingsProperty -> ()
endpointUri :: ElasticsearchSettingsProperty -> Maybe (Value Text)
errorRetryDuration :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
fullLoadErrorPercentage :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
serviceAccessRoleArn :: ElasticsearchSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
    = ElasticsearchSettingsProperty
        {endpointUri :: Maybe (Value Text)
endpointUri = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EndpointUri" ElasticsearchSettingsProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
haddock_workaround_ :: ()
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
instance Property "ErrorRetryDuration" ElasticsearchSettingsProperty where
  type PropertyType "ErrorRetryDuration" ElasticsearchSettingsProperty = Value Prelude.Integer
  set :: PropertyType "ErrorRetryDuration" ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> ElasticsearchSettingsProperty
set PropertyType "ErrorRetryDuration" ElasticsearchSettingsProperty
newValue ElasticsearchSettingsProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ElasticsearchSettingsProperty -> ()
endpointUri :: ElasticsearchSettingsProperty -> Maybe (Value Text)
errorRetryDuration :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
fullLoadErrorPercentage :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
serviceAccessRoleArn :: ElasticsearchSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
    = ElasticsearchSettingsProperty
        {errorRetryDuration :: Maybe (Value Integer)
errorRetryDuration = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ErrorRetryDuration" ElasticsearchSettingsProperty
Value Integer
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
instance Property "FullLoadErrorPercentage" ElasticsearchSettingsProperty where
  type PropertyType "FullLoadErrorPercentage" ElasticsearchSettingsProperty = Value Prelude.Integer
  set :: PropertyType
  "FullLoadErrorPercentage" ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> ElasticsearchSettingsProperty
set PropertyType
  "FullLoadErrorPercentage" ElasticsearchSettingsProperty
newValue ElasticsearchSettingsProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ElasticsearchSettingsProperty -> ()
endpointUri :: ElasticsearchSettingsProperty -> Maybe (Value Text)
errorRetryDuration :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
fullLoadErrorPercentage :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
serviceAccessRoleArn :: ElasticsearchSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
    = ElasticsearchSettingsProperty
        {fullLoadErrorPercentage :: Maybe (Value Integer)
fullLoadErrorPercentage = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "FullLoadErrorPercentage" ElasticsearchSettingsProperty
Value Integer
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
instance Property "ServiceAccessRoleArn" ElasticsearchSettingsProperty where
  type PropertyType "ServiceAccessRoleArn" ElasticsearchSettingsProperty = Value Prelude.Text
  set :: PropertyType "ServiceAccessRoleArn" ElasticsearchSettingsProperty
-> ElasticsearchSettingsProperty -> ElasticsearchSettingsProperty
set PropertyType "ServiceAccessRoleArn" ElasticsearchSettingsProperty
newValue ElasticsearchSettingsProperty {Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ElasticsearchSettingsProperty -> ()
endpointUri :: ElasticsearchSettingsProperty -> Maybe (Value Text)
errorRetryDuration :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
fullLoadErrorPercentage :: ElasticsearchSettingsProperty -> Maybe (Value Integer)
serviceAccessRoleArn :: ElasticsearchSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
serviceAccessRoleArn :: Maybe (Value Text)
..}
    = ElasticsearchSettingsProperty
        {serviceAccessRoleArn :: Maybe (Value Text)
serviceAccessRoleArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ServiceAccessRoleArn" ElasticsearchSettingsProperty
Value Text
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
haddock_workaround_ :: ()
endpointUri :: Maybe (Value Text)
errorRetryDuration :: Maybe (Value Integer)
fullLoadErrorPercentage :: Maybe (Value Integer)
..}