{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SecretsManager.ReplicateSecretToRegions
(
ReplicateSecretToRegions (..),
newReplicateSecretToRegions,
replicateSecretToRegions_forceOverwriteReplicaSecret,
replicateSecretToRegions_secretId,
replicateSecretToRegions_addReplicaRegions,
ReplicateSecretToRegionsResponse (..),
newReplicateSecretToRegionsResponse,
replicateSecretToRegionsResponse_arn,
replicateSecretToRegionsResponse_replicationStatus,
replicateSecretToRegionsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SecretsManager.Types
data ReplicateSecretToRegions = ReplicateSecretToRegions'
{
ReplicateSecretToRegions -> Maybe Bool
forceOverwriteReplicaSecret :: Prelude.Maybe Prelude.Bool,
ReplicateSecretToRegions -> Text
secretId :: Prelude.Text,
ReplicateSecretToRegions -> NonEmpty ReplicaRegionType
addReplicaRegions :: Prelude.NonEmpty ReplicaRegionType
}
deriving (ReplicateSecretToRegions -> ReplicateSecretToRegions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ReplicateSecretToRegions -> ReplicateSecretToRegions -> Bool
$c/= :: ReplicateSecretToRegions -> ReplicateSecretToRegions -> Bool
== :: ReplicateSecretToRegions -> ReplicateSecretToRegions -> Bool
$c== :: ReplicateSecretToRegions -> ReplicateSecretToRegions -> Bool
Prelude.Eq, ReadPrec [ReplicateSecretToRegions]
ReadPrec ReplicateSecretToRegions
Int -> ReadS ReplicateSecretToRegions
ReadS [ReplicateSecretToRegions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ReplicateSecretToRegions]
$creadListPrec :: ReadPrec [ReplicateSecretToRegions]
readPrec :: ReadPrec ReplicateSecretToRegions
$creadPrec :: ReadPrec ReplicateSecretToRegions
readList :: ReadS [ReplicateSecretToRegions]
$creadList :: ReadS [ReplicateSecretToRegions]
readsPrec :: Int -> ReadS ReplicateSecretToRegions
$creadsPrec :: Int -> ReadS ReplicateSecretToRegions
Prelude.Read, Int -> ReplicateSecretToRegions -> ShowS
[ReplicateSecretToRegions] -> ShowS
ReplicateSecretToRegions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ReplicateSecretToRegions] -> ShowS
$cshowList :: [ReplicateSecretToRegions] -> ShowS
show :: ReplicateSecretToRegions -> String
$cshow :: ReplicateSecretToRegions -> String
showsPrec :: Int -> ReplicateSecretToRegions -> ShowS
$cshowsPrec :: Int -> ReplicateSecretToRegions -> ShowS
Prelude.Show, forall x.
Rep ReplicateSecretToRegions x -> ReplicateSecretToRegions
forall x.
ReplicateSecretToRegions -> Rep ReplicateSecretToRegions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ReplicateSecretToRegions x -> ReplicateSecretToRegions
$cfrom :: forall x.
ReplicateSecretToRegions -> Rep ReplicateSecretToRegions x
Prelude.Generic)
newReplicateSecretToRegions ::
Prelude.Text ->
Prelude.NonEmpty ReplicaRegionType ->
ReplicateSecretToRegions
newReplicateSecretToRegions :: Text -> NonEmpty ReplicaRegionType -> ReplicateSecretToRegions
newReplicateSecretToRegions
Text
pSecretId_
NonEmpty ReplicaRegionType
pAddReplicaRegions_ =
ReplicateSecretToRegions'
{ $sel:forceOverwriteReplicaSecret:ReplicateSecretToRegions' :: Maybe Bool
forceOverwriteReplicaSecret =
forall a. Maybe a
Prelude.Nothing,
$sel:secretId:ReplicateSecretToRegions' :: Text
secretId = Text
pSecretId_,
$sel:addReplicaRegions:ReplicateSecretToRegions' :: NonEmpty ReplicaRegionType
addReplicaRegions =
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty ReplicaRegionType
pAddReplicaRegions_
}
replicateSecretToRegions_forceOverwriteReplicaSecret :: Lens.Lens' ReplicateSecretToRegions (Prelude.Maybe Prelude.Bool)
replicateSecretToRegions_forceOverwriteReplicaSecret :: Lens' ReplicateSecretToRegions (Maybe Bool)
replicateSecretToRegions_forceOverwriteReplicaSecret = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReplicateSecretToRegions' {Maybe Bool
forceOverwriteReplicaSecret :: Maybe Bool
$sel:forceOverwriteReplicaSecret:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> Maybe Bool
forceOverwriteReplicaSecret} -> Maybe Bool
forceOverwriteReplicaSecret) (\s :: ReplicateSecretToRegions
s@ReplicateSecretToRegions' {} Maybe Bool
a -> ReplicateSecretToRegions
s {$sel:forceOverwriteReplicaSecret:ReplicateSecretToRegions' :: Maybe Bool
forceOverwriteReplicaSecret = Maybe Bool
a} :: ReplicateSecretToRegions)
replicateSecretToRegions_secretId :: Lens.Lens' ReplicateSecretToRegions Prelude.Text
replicateSecretToRegions_secretId :: Lens' ReplicateSecretToRegions Text
replicateSecretToRegions_secretId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReplicateSecretToRegions' {Text
secretId :: Text
$sel:secretId:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> Text
secretId} -> Text
secretId) (\s :: ReplicateSecretToRegions
s@ReplicateSecretToRegions' {} Text
a -> ReplicateSecretToRegions
s {$sel:secretId:ReplicateSecretToRegions' :: Text
secretId = Text
a} :: ReplicateSecretToRegions)
replicateSecretToRegions_addReplicaRegions :: Lens.Lens' ReplicateSecretToRegions (Prelude.NonEmpty ReplicaRegionType)
replicateSecretToRegions_addReplicaRegions :: Lens' ReplicateSecretToRegions (NonEmpty ReplicaRegionType)
replicateSecretToRegions_addReplicaRegions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReplicateSecretToRegions' {NonEmpty ReplicaRegionType
addReplicaRegions :: NonEmpty ReplicaRegionType
$sel:addReplicaRegions:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> NonEmpty ReplicaRegionType
addReplicaRegions} -> NonEmpty ReplicaRegionType
addReplicaRegions) (\s :: ReplicateSecretToRegions
s@ReplicateSecretToRegions' {} NonEmpty ReplicaRegionType
a -> ReplicateSecretToRegions
s {$sel:addReplicaRegions:ReplicateSecretToRegions' :: NonEmpty ReplicaRegionType
addReplicaRegions = NonEmpty ReplicaRegionType
a} :: ReplicateSecretToRegions) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest ReplicateSecretToRegions where
type
AWSResponse ReplicateSecretToRegions =
ReplicateSecretToRegionsResponse
request :: (Service -> Service)
-> ReplicateSecretToRegions -> Request ReplicateSecretToRegions
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ReplicateSecretToRegions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ReplicateSecretToRegions)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe [ReplicationStatusType]
-> Int
-> ReplicateSecretToRegionsResponse
ReplicateSecretToRegionsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ARN")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ReplicationStatus"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable ReplicateSecretToRegions where
hashWithSalt :: Int -> ReplicateSecretToRegions -> Int
hashWithSalt Int
_salt ReplicateSecretToRegions' {Maybe Bool
NonEmpty ReplicaRegionType
Text
addReplicaRegions :: NonEmpty ReplicaRegionType
secretId :: Text
forceOverwriteReplicaSecret :: Maybe Bool
$sel:addReplicaRegions:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> NonEmpty ReplicaRegionType
$sel:secretId:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> Text
$sel:forceOverwriteReplicaSecret:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
forceOverwriteReplicaSecret
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
secretId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty ReplicaRegionType
addReplicaRegions
instance Prelude.NFData ReplicateSecretToRegions where
rnf :: ReplicateSecretToRegions -> ()
rnf ReplicateSecretToRegions' {Maybe Bool
NonEmpty ReplicaRegionType
Text
addReplicaRegions :: NonEmpty ReplicaRegionType
secretId :: Text
forceOverwriteReplicaSecret :: Maybe Bool
$sel:addReplicaRegions:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> NonEmpty ReplicaRegionType
$sel:secretId:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> Text
$sel:forceOverwriteReplicaSecret:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
forceOverwriteReplicaSecret
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
secretId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty ReplicaRegionType
addReplicaRegions
instance Data.ToHeaders ReplicateSecretToRegions where
toHeaders :: ReplicateSecretToRegions -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"secretsmanager.ReplicateSecretToRegions" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ReplicateSecretToRegions where
toJSON :: ReplicateSecretToRegions -> Value
toJSON ReplicateSecretToRegions' {Maybe Bool
NonEmpty ReplicaRegionType
Text
addReplicaRegions :: NonEmpty ReplicaRegionType
secretId :: Text
forceOverwriteReplicaSecret :: Maybe Bool
$sel:addReplicaRegions:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> NonEmpty ReplicaRegionType
$sel:secretId:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> Text
$sel:forceOverwriteReplicaSecret:ReplicateSecretToRegions' :: ReplicateSecretToRegions -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ForceOverwriteReplicaSecret" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
forceOverwriteReplicaSecret,
forall a. a -> Maybe a
Prelude.Just (Key
"SecretId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
secretId),
forall a. a -> Maybe a
Prelude.Just
(Key
"AddReplicaRegions" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty ReplicaRegionType
addReplicaRegions)
]
)
instance Data.ToPath ReplicateSecretToRegions where
toPath :: ReplicateSecretToRegions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ReplicateSecretToRegions where
toQuery :: ReplicateSecretToRegions -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ReplicateSecretToRegionsResponse = ReplicateSecretToRegionsResponse'
{
ReplicateSecretToRegionsResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
ReplicateSecretToRegionsResponse -> Maybe [ReplicationStatusType]
replicationStatus :: Prelude.Maybe [ReplicationStatusType],
ReplicateSecretToRegionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ReplicateSecretToRegionsResponse
-> ReplicateSecretToRegionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ReplicateSecretToRegionsResponse
-> ReplicateSecretToRegionsResponse -> Bool
$c/= :: ReplicateSecretToRegionsResponse
-> ReplicateSecretToRegionsResponse -> Bool
== :: ReplicateSecretToRegionsResponse
-> ReplicateSecretToRegionsResponse -> Bool
$c== :: ReplicateSecretToRegionsResponse
-> ReplicateSecretToRegionsResponse -> Bool
Prelude.Eq, ReadPrec [ReplicateSecretToRegionsResponse]
ReadPrec ReplicateSecretToRegionsResponse
Int -> ReadS ReplicateSecretToRegionsResponse
ReadS [ReplicateSecretToRegionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ReplicateSecretToRegionsResponse]
$creadListPrec :: ReadPrec [ReplicateSecretToRegionsResponse]
readPrec :: ReadPrec ReplicateSecretToRegionsResponse
$creadPrec :: ReadPrec ReplicateSecretToRegionsResponse
readList :: ReadS [ReplicateSecretToRegionsResponse]
$creadList :: ReadS [ReplicateSecretToRegionsResponse]
readsPrec :: Int -> ReadS ReplicateSecretToRegionsResponse
$creadsPrec :: Int -> ReadS ReplicateSecretToRegionsResponse
Prelude.Read, Int -> ReplicateSecretToRegionsResponse -> ShowS
[ReplicateSecretToRegionsResponse] -> ShowS
ReplicateSecretToRegionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ReplicateSecretToRegionsResponse] -> ShowS
$cshowList :: [ReplicateSecretToRegionsResponse] -> ShowS
show :: ReplicateSecretToRegionsResponse -> String
$cshow :: ReplicateSecretToRegionsResponse -> String
showsPrec :: Int -> ReplicateSecretToRegionsResponse -> ShowS
$cshowsPrec :: Int -> ReplicateSecretToRegionsResponse -> ShowS
Prelude.Show, forall x.
Rep ReplicateSecretToRegionsResponse x
-> ReplicateSecretToRegionsResponse
forall x.
ReplicateSecretToRegionsResponse
-> Rep ReplicateSecretToRegionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ReplicateSecretToRegionsResponse x
-> ReplicateSecretToRegionsResponse
$cfrom :: forall x.
ReplicateSecretToRegionsResponse
-> Rep ReplicateSecretToRegionsResponse x
Prelude.Generic)
newReplicateSecretToRegionsResponse ::
Prelude.Int ->
ReplicateSecretToRegionsResponse
newReplicateSecretToRegionsResponse :: Int -> ReplicateSecretToRegionsResponse
newReplicateSecretToRegionsResponse Int
pHttpStatus_ =
ReplicateSecretToRegionsResponse'
{ $sel:arn:ReplicateSecretToRegionsResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:replicationStatus:ReplicateSecretToRegionsResponse' :: Maybe [ReplicationStatusType]
replicationStatus = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ReplicateSecretToRegionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
replicateSecretToRegionsResponse_arn :: Lens.Lens' ReplicateSecretToRegionsResponse (Prelude.Maybe Prelude.Text)
replicateSecretToRegionsResponse_arn :: Lens' ReplicateSecretToRegionsResponse (Maybe Text)
replicateSecretToRegionsResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReplicateSecretToRegionsResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:ReplicateSecretToRegionsResponse' :: ReplicateSecretToRegionsResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: ReplicateSecretToRegionsResponse
s@ReplicateSecretToRegionsResponse' {} Maybe Text
a -> ReplicateSecretToRegionsResponse
s {$sel:arn:ReplicateSecretToRegionsResponse' :: Maybe Text
arn = Maybe Text
a} :: ReplicateSecretToRegionsResponse)
replicateSecretToRegionsResponse_replicationStatus :: Lens.Lens' ReplicateSecretToRegionsResponse (Prelude.Maybe [ReplicationStatusType])
replicateSecretToRegionsResponse_replicationStatus :: Lens'
ReplicateSecretToRegionsResponse (Maybe [ReplicationStatusType])
replicateSecretToRegionsResponse_replicationStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReplicateSecretToRegionsResponse' {Maybe [ReplicationStatusType]
replicationStatus :: Maybe [ReplicationStatusType]
$sel:replicationStatus:ReplicateSecretToRegionsResponse' :: ReplicateSecretToRegionsResponse -> Maybe [ReplicationStatusType]
replicationStatus} -> Maybe [ReplicationStatusType]
replicationStatus) (\s :: ReplicateSecretToRegionsResponse
s@ReplicateSecretToRegionsResponse' {} Maybe [ReplicationStatusType]
a -> ReplicateSecretToRegionsResponse
s {$sel:replicationStatus:ReplicateSecretToRegionsResponse' :: Maybe [ReplicationStatusType]
replicationStatus = Maybe [ReplicationStatusType]
a} :: ReplicateSecretToRegionsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
replicateSecretToRegionsResponse_httpStatus :: Lens.Lens' ReplicateSecretToRegionsResponse Prelude.Int
replicateSecretToRegionsResponse_httpStatus :: Lens' ReplicateSecretToRegionsResponse Int
replicateSecretToRegionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReplicateSecretToRegionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ReplicateSecretToRegionsResponse' :: ReplicateSecretToRegionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ReplicateSecretToRegionsResponse
s@ReplicateSecretToRegionsResponse' {} Int
a -> ReplicateSecretToRegionsResponse
s {$sel:httpStatus:ReplicateSecretToRegionsResponse' :: Int
httpStatus = Int
a} :: ReplicateSecretToRegionsResponse)
instance
Prelude.NFData
ReplicateSecretToRegionsResponse
where
rnf :: ReplicateSecretToRegionsResponse -> ()
rnf ReplicateSecretToRegionsResponse' {Int
Maybe [ReplicationStatusType]
Maybe Text
httpStatus :: Int
replicationStatus :: Maybe [ReplicationStatusType]
arn :: Maybe Text
$sel:httpStatus:ReplicateSecretToRegionsResponse' :: ReplicateSecretToRegionsResponse -> Int
$sel:replicationStatus:ReplicateSecretToRegionsResponse' :: ReplicateSecretToRegionsResponse -> Maybe [ReplicationStatusType]
$sel:arn:ReplicateSecretToRegionsResponse' :: ReplicateSecretToRegionsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ReplicationStatusType]
replicationStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus