{-# 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.QLDB.UpdateLedger
(
UpdateLedger (..),
newUpdateLedger,
updateLedger_deletionProtection,
updateLedger_kmsKey,
updateLedger_name,
UpdateLedgerResponse (..),
newUpdateLedgerResponse,
updateLedgerResponse_arn,
updateLedgerResponse_creationDateTime,
updateLedgerResponse_deletionProtection,
updateLedgerResponse_encryptionDescription,
updateLedgerResponse_name,
updateLedgerResponse_state,
updateLedgerResponse_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 Amazonka.QLDB.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateLedger = UpdateLedger'
{
UpdateLedger -> Maybe Bool
deletionProtection :: Prelude.Maybe Prelude.Bool,
UpdateLedger -> Maybe Text
kmsKey :: Prelude.Maybe Prelude.Text,
UpdateLedger -> Text
name :: Prelude.Text
}
deriving (UpdateLedger -> UpdateLedger -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateLedger -> UpdateLedger -> Bool
$c/= :: UpdateLedger -> UpdateLedger -> Bool
== :: UpdateLedger -> UpdateLedger -> Bool
$c== :: UpdateLedger -> UpdateLedger -> Bool
Prelude.Eq, ReadPrec [UpdateLedger]
ReadPrec UpdateLedger
Int -> ReadS UpdateLedger
ReadS [UpdateLedger]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateLedger]
$creadListPrec :: ReadPrec [UpdateLedger]
readPrec :: ReadPrec UpdateLedger
$creadPrec :: ReadPrec UpdateLedger
readList :: ReadS [UpdateLedger]
$creadList :: ReadS [UpdateLedger]
readsPrec :: Int -> ReadS UpdateLedger
$creadsPrec :: Int -> ReadS UpdateLedger
Prelude.Read, Int -> UpdateLedger -> ShowS
[UpdateLedger] -> ShowS
UpdateLedger -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateLedger] -> ShowS
$cshowList :: [UpdateLedger] -> ShowS
show :: UpdateLedger -> String
$cshow :: UpdateLedger -> String
showsPrec :: Int -> UpdateLedger -> ShowS
$cshowsPrec :: Int -> UpdateLedger -> ShowS
Prelude.Show, forall x. Rep UpdateLedger x -> UpdateLedger
forall x. UpdateLedger -> Rep UpdateLedger x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateLedger x -> UpdateLedger
$cfrom :: forall x. UpdateLedger -> Rep UpdateLedger x
Prelude.Generic)
newUpdateLedger ::
Prelude.Text ->
UpdateLedger
newUpdateLedger :: Text -> UpdateLedger
newUpdateLedger Text
pName_ =
UpdateLedger'
{ $sel:deletionProtection:UpdateLedger' :: Maybe Bool
deletionProtection = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKey:UpdateLedger' :: Maybe Text
kmsKey = forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateLedger' :: Text
name = Text
pName_
}
updateLedger_deletionProtection :: Lens.Lens' UpdateLedger (Prelude.Maybe Prelude.Bool)
updateLedger_deletionProtection :: Lens' UpdateLedger (Maybe Bool)
updateLedger_deletionProtection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedger' {Maybe Bool
deletionProtection :: Maybe Bool
$sel:deletionProtection:UpdateLedger' :: UpdateLedger -> Maybe Bool
deletionProtection} -> Maybe Bool
deletionProtection) (\s :: UpdateLedger
s@UpdateLedger' {} Maybe Bool
a -> UpdateLedger
s {$sel:deletionProtection:UpdateLedger' :: Maybe Bool
deletionProtection = Maybe Bool
a} :: UpdateLedger)
updateLedger_kmsKey :: Lens.Lens' UpdateLedger (Prelude.Maybe Prelude.Text)
updateLedger_kmsKey :: Lens' UpdateLedger (Maybe Text)
updateLedger_kmsKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedger' {Maybe Text
kmsKey :: Maybe Text
$sel:kmsKey:UpdateLedger' :: UpdateLedger -> Maybe Text
kmsKey} -> Maybe Text
kmsKey) (\s :: UpdateLedger
s@UpdateLedger' {} Maybe Text
a -> UpdateLedger
s {$sel:kmsKey:UpdateLedger' :: Maybe Text
kmsKey = Maybe Text
a} :: UpdateLedger)
updateLedger_name :: Lens.Lens' UpdateLedger Prelude.Text
updateLedger_name :: Lens' UpdateLedger Text
updateLedger_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedger' {Text
name :: Text
$sel:name:UpdateLedger' :: UpdateLedger -> Text
name} -> Text
name) (\s :: UpdateLedger
s@UpdateLedger' {} Text
a -> UpdateLedger
s {$sel:name:UpdateLedger' :: Text
name = Text
a} :: UpdateLedger)
instance Core.AWSRequest UpdateLedger where
type AWSResponse UpdateLedger = UpdateLedgerResponse
request :: (Service -> Service) -> UpdateLedger -> Request UpdateLedger
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.patchJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateLedger
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateLedger)))
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 POSIX
-> Maybe Bool
-> Maybe LedgerEncryptionDescription
-> Maybe Text
-> Maybe LedgerState
-> Int
-> UpdateLedgerResponse
UpdateLedgerResponse'
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
"CreationDateTime")
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
"DeletionProtection")
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
"EncryptionDescription")
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
"Name")
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
"State")
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 UpdateLedger where
hashWithSalt :: Int -> UpdateLedger -> Int
hashWithSalt Int
_salt UpdateLedger' {Maybe Bool
Maybe Text
Text
name :: Text
kmsKey :: Maybe Text
deletionProtection :: Maybe Bool
$sel:name:UpdateLedger' :: UpdateLedger -> Text
$sel:kmsKey:UpdateLedger' :: UpdateLedger -> Maybe Text
$sel:deletionProtection:UpdateLedger' :: UpdateLedger -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
deletionProtection
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKey
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData UpdateLedger where
rnf :: UpdateLedger -> ()
rnf UpdateLedger' {Maybe Bool
Maybe Text
Text
name :: Text
kmsKey :: Maybe Text
deletionProtection :: Maybe Bool
$sel:name:UpdateLedger' :: UpdateLedger -> Text
$sel:kmsKey:UpdateLedger' :: UpdateLedger -> Maybe Text
$sel:deletionProtection:UpdateLedger' :: UpdateLedger -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
deletionProtection
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKey
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
instance Data.ToHeaders UpdateLedger where
toHeaders :: UpdateLedger -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateLedger where
toJSON :: UpdateLedger -> Value
toJSON UpdateLedger' {Maybe Bool
Maybe Text
Text
name :: Text
kmsKey :: Maybe Text
deletionProtection :: Maybe Bool
$sel:name:UpdateLedger' :: UpdateLedger -> Text
$sel:kmsKey:UpdateLedger' :: UpdateLedger -> Maybe Text
$sel:deletionProtection:UpdateLedger' :: UpdateLedger -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DeletionProtection" 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
deletionProtection,
(Key
"KmsKey" 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 Text
kmsKey
]
)
instance Data.ToPath UpdateLedger where
toPath :: UpdateLedger -> ByteString
toPath UpdateLedger' {Maybe Bool
Maybe Text
Text
name :: Text
kmsKey :: Maybe Text
deletionProtection :: Maybe Bool
$sel:name:UpdateLedger' :: UpdateLedger -> Text
$sel:kmsKey:UpdateLedger' :: UpdateLedger -> Maybe Text
$sel:deletionProtection:UpdateLedger' :: UpdateLedger -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/ledgers/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
name]
instance Data.ToQuery UpdateLedger where
toQuery :: UpdateLedger -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateLedgerResponse = UpdateLedgerResponse'
{
UpdateLedgerResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
UpdateLedgerResponse -> Maybe POSIX
creationDateTime :: Prelude.Maybe Data.POSIX,
UpdateLedgerResponse -> Maybe Bool
deletionProtection :: Prelude.Maybe Prelude.Bool,
UpdateLedgerResponse -> Maybe LedgerEncryptionDescription
encryptionDescription :: Prelude.Maybe LedgerEncryptionDescription,
UpdateLedgerResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
UpdateLedgerResponse -> Maybe LedgerState
state :: Prelude.Maybe LedgerState,
UpdateLedgerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateLedgerResponse -> UpdateLedgerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateLedgerResponse -> UpdateLedgerResponse -> Bool
$c/= :: UpdateLedgerResponse -> UpdateLedgerResponse -> Bool
== :: UpdateLedgerResponse -> UpdateLedgerResponse -> Bool
$c== :: UpdateLedgerResponse -> UpdateLedgerResponse -> Bool
Prelude.Eq, ReadPrec [UpdateLedgerResponse]
ReadPrec UpdateLedgerResponse
Int -> ReadS UpdateLedgerResponse
ReadS [UpdateLedgerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateLedgerResponse]
$creadListPrec :: ReadPrec [UpdateLedgerResponse]
readPrec :: ReadPrec UpdateLedgerResponse
$creadPrec :: ReadPrec UpdateLedgerResponse
readList :: ReadS [UpdateLedgerResponse]
$creadList :: ReadS [UpdateLedgerResponse]
readsPrec :: Int -> ReadS UpdateLedgerResponse
$creadsPrec :: Int -> ReadS UpdateLedgerResponse
Prelude.Read, Int -> UpdateLedgerResponse -> ShowS
[UpdateLedgerResponse] -> ShowS
UpdateLedgerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateLedgerResponse] -> ShowS
$cshowList :: [UpdateLedgerResponse] -> ShowS
show :: UpdateLedgerResponse -> String
$cshow :: UpdateLedgerResponse -> String
showsPrec :: Int -> UpdateLedgerResponse -> ShowS
$cshowsPrec :: Int -> UpdateLedgerResponse -> ShowS
Prelude.Show, forall x. Rep UpdateLedgerResponse x -> UpdateLedgerResponse
forall x. UpdateLedgerResponse -> Rep UpdateLedgerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateLedgerResponse x -> UpdateLedgerResponse
$cfrom :: forall x. UpdateLedgerResponse -> Rep UpdateLedgerResponse x
Prelude.Generic)
newUpdateLedgerResponse ::
Prelude.Int ->
UpdateLedgerResponse
newUpdateLedgerResponse :: Int -> UpdateLedgerResponse
newUpdateLedgerResponse Int
pHttpStatus_ =
UpdateLedgerResponse'
{ $sel:arn:UpdateLedgerResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:creationDateTime:UpdateLedgerResponse' :: Maybe POSIX
creationDateTime = forall a. Maybe a
Prelude.Nothing,
$sel:deletionProtection:UpdateLedgerResponse' :: Maybe Bool
deletionProtection = forall a. Maybe a
Prelude.Nothing,
$sel:encryptionDescription:UpdateLedgerResponse' :: Maybe LedgerEncryptionDescription
encryptionDescription = forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateLedgerResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:state:UpdateLedgerResponse' :: Maybe LedgerState
state = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateLedgerResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateLedgerResponse_arn :: Lens.Lens' UpdateLedgerResponse (Prelude.Maybe Prelude.Text)
updateLedgerResponse_arn :: Lens' UpdateLedgerResponse (Maybe Text)
updateLedgerResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedgerResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: UpdateLedgerResponse
s@UpdateLedgerResponse' {} Maybe Text
a -> UpdateLedgerResponse
s {$sel:arn:UpdateLedgerResponse' :: Maybe Text
arn = Maybe Text
a} :: UpdateLedgerResponse)
updateLedgerResponse_creationDateTime :: Lens.Lens' UpdateLedgerResponse (Prelude.Maybe Prelude.UTCTime)
updateLedgerResponse_creationDateTime :: Lens' UpdateLedgerResponse (Maybe UTCTime)
updateLedgerResponse_creationDateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedgerResponse' {Maybe POSIX
creationDateTime :: Maybe POSIX
$sel:creationDateTime:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe POSIX
creationDateTime} -> Maybe POSIX
creationDateTime) (\s :: UpdateLedgerResponse
s@UpdateLedgerResponse' {} Maybe POSIX
a -> UpdateLedgerResponse
s {$sel:creationDateTime:UpdateLedgerResponse' :: Maybe POSIX
creationDateTime = Maybe POSIX
a} :: UpdateLedgerResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateLedgerResponse_deletionProtection :: Lens.Lens' UpdateLedgerResponse (Prelude.Maybe Prelude.Bool)
updateLedgerResponse_deletionProtection :: Lens' UpdateLedgerResponse (Maybe Bool)
updateLedgerResponse_deletionProtection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedgerResponse' {Maybe Bool
deletionProtection :: Maybe Bool
$sel:deletionProtection:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe Bool
deletionProtection} -> Maybe Bool
deletionProtection) (\s :: UpdateLedgerResponse
s@UpdateLedgerResponse' {} Maybe Bool
a -> UpdateLedgerResponse
s {$sel:deletionProtection:UpdateLedgerResponse' :: Maybe Bool
deletionProtection = Maybe Bool
a} :: UpdateLedgerResponse)
updateLedgerResponse_encryptionDescription :: Lens.Lens' UpdateLedgerResponse (Prelude.Maybe LedgerEncryptionDescription)
updateLedgerResponse_encryptionDescription :: Lens' UpdateLedgerResponse (Maybe LedgerEncryptionDescription)
updateLedgerResponse_encryptionDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedgerResponse' {Maybe LedgerEncryptionDescription
encryptionDescription :: Maybe LedgerEncryptionDescription
$sel:encryptionDescription:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe LedgerEncryptionDescription
encryptionDescription} -> Maybe LedgerEncryptionDescription
encryptionDescription) (\s :: UpdateLedgerResponse
s@UpdateLedgerResponse' {} Maybe LedgerEncryptionDescription
a -> UpdateLedgerResponse
s {$sel:encryptionDescription:UpdateLedgerResponse' :: Maybe LedgerEncryptionDescription
encryptionDescription = Maybe LedgerEncryptionDescription
a} :: UpdateLedgerResponse)
updateLedgerResponse_name :: Lens.Lens' UpdateLedgerResponse (Prelude.Maybe Prelude.Text)
updateLedgerResponse_name :: Lens' UpdateLedgerResponse (Maybe Text)
updateLedgerResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedgerResponse' {Maybe Text
name :: Maybe Text
$sel:name:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: UpdateLedgerResponse
s@UpdateLedgerResponse' {} Maybe Text
a -> UpdateLedgerResponse
s {$sel:name:UpdateLedgerResponse' :: Maybe Text
name = Maybe Text
a} :: UpdateLedgerResponse)
updateLedgerResponse_state :: Lens.Lens' UpdateLedgerResponse (Prelude.Maybe LedgerState)
updateLedgerResponse_state :: Lens' UpdateLedgerResponse (Maybe LedgerState)
updateLedgerResponse_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedgerResponse' {Maybe LedgerState
state :: Maybe LedgerState
$sel:state:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe LedgerState
state} -> Maybe LedgerState
state) (\s :: UpdateLedgerResponse
s@UpdateLedgerResponse' {} Maybe LedgerState
a -> UpdateLedgerResponse
s {$sel:state:UpdateLedgerResponse' :: Maybe LedgerState
state = Maybe LedgerState
a} :: UpdateLedgerResponse)
updateLedgerResponse_httpStatus :: Lens.Lens' UpdateLedgerResponse Prelude.Int
updateLedgerResponse_httpStatus :: Lens' UpdateLedgerResponse Int
updateLedgerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLedgerResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateLedgerResponse' :: UpdateLedgerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateLedgerResponse
s@UpdateLedgerResponse' {} Int
a -> UpdateLedgerResponse
s {$sel:httpStatus:UpdateLedgerResponse' :: Int
httpStatus = Int
a} :: UpdateLedgerResponse)
instance Prelude.NFData UpdateLedgerResponse where
rnf :: UpdateLedgerResponse -> ()
rnf UpdateLedgerResponse' {Int
Maybe Bool
Maybe Text
Maybe POSIX
Maybe LedgerEncryptionDescription
Maybe LedgerState
httpStatus :: Int
state :: Maybe LedgerState
name :: Maybe Text
encryptionDescription :: Maybe LedgerEncryptionDescription
deletionProtection :: Maybe Bool
creationDateTime :: Maybe POSIX
arn :: Maybe Text
$sel:httpStatus:UpdateLedgerResponse' :: UpdateLedgerResponse -> Int
$sel:state:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe LedgerState
$sel:name:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe Text
$sel:encryptionDescription:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe LedgerEncryptionDescription
$sel:deletionProtection:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe Bool
$sel:creationDateTime:UpdateLedgerResponse' :: UpdateLedgerResponse -> Maybe POSIX
$sel:arn:UpdateLedgerResponse' :: UpdateLedgerResponse -> 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 POSIX
creationDateTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
deletionProtection
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LedgerEncryptionDescription
encryptionDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LedgerState
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus