{-# 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.KMS.Encrypt
(
Encrypt (..),
newEncrypt,
encrypt_encryptionAlgorithm,
encrypt_encryptionContext,
encrypt_grantTokens,
encrypt_keyId,
encrypt_plaintext,
EncryptResponse (..),
newEncryptResponse,
encryptResponse_ciphertextBlob,
encryptResponse_encryptionAlgorithm,
encryptResponse_keyId,
encryptResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.KMS.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data Encrypt = Encrypt'
{
Encrypt -> Maybe EncryptionAlgorithmSpec
encryptionAlgorithm :: Prelude.Maybe EncryptionAlgorithmSpec,
Encrypt -> Maybe (HashMap Text Text)
encryptionContext :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
Encrypt -> Maybe [Text]
grantTokens :: Prelude.Maybe [Prelude.Text],
Encrypt -> Text
keyId :: Prelude.Text,
Encrypt -> Sensitive Base64
plaintext :: Data.Sensitive Data.Base64
}
deriving (Encrypt -> Encrypt -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Encrypt -> Encrypt -> Bool
$c/= :: Encrypt -> Encrypt -> Bool
== :: Encrypt -> Encrypt -> Bool
$c== :: Encrypt -> Encrypt -> Bool
Prelude.Eq, Int -> Encrypt -> ShowS
[Encrypt] -> ShowS
Encrypt -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Encrypt] -> ShowS
$cshowList :: [Encrypt] -> ShowS
show :: Encrypt -> String
$cshow :: Encrypt -> String
showsPrec :: Int -> Encrypt -> ShowS
$cshowsPrec :: Int -> Encrypt -> ShowS
Prelude.Show, forall x. Rep Encrypt x -> Encrypt
forall x. Encrypt -> Rep Encrypt x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Encrypt x -> Encrypt
$cfrom :: forall x. Encrypt -> Rep Encrypt x
Prelude.Generic)
newEncrypt ::
Prelude.Text ->
Prelude.ByteString ->
Encrypt
newEncrypt :: Text -> ByteString -> Encrypt
newEncrypt Text
pKeyId_ ByteString
pPlaintext_ =
Encrypt'
{ $sel:encryptionAlgorithm:Encrypt' :: Maybe EncryptionAlgorithmSpec
encryptionAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:encryptionContext:Encrypt' :: Maybe (HashMap Text Text)
encryptionContext = forall a. Maybe a
Prelude.Nothing,
$sel:grantTokens:Encrypt' :: Maybe [Text]
grantTokens = forall a. Maybe a
Prelude.Nothing,
$sel:keyId:Encrypt' :: Text
keyId = Text
pKeyId_,
$sel:plaintext:Encrypt' :: Sensitive Base64
plaintext =
forall a. Iso' (Sensitive a) a
Data._Sensitive
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Iso' Base64 ByteString
Data._Base64
forall t b. AReview t b -> b -> t
Lens.# ByteString
pPlaintext_
}
encrypt_encryptionAlgorithm :: Lens.Lens' Encrypt (Prelude.Maybe EncryptionAlgorithmSpec)
encrypt_encryptionAlgorithm :: Lens' Encrypt (Maybe EncryptionAlgorithmSpec)
encrypt_encryptionAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Encrypt' {Maybe EncryptionAlgorithmSpec
encryptionAlgorithm :: Maybe EncryptionAlgorithmSpec
$sel:encryptionAlgorithm:Encrypt' :: Encrypt -> Maybe EncryptionAlgorithmSpec
encryptionAlgorithm} -> Maybe EncryptionAlgorithmSpec
encryptionAlgorithm) (\s :: Encrypt
s@Encrypt' {} Maybe EncryptionAlgorithmSpec
a -> Encrypt
s {$sel:encryptionAlgorithm:Encrypt' :: Maybe EncryptionAlgorithmSpec
encryptionAlgorithm = Maybe EncryptionAlgorithmSpec
a} :: Encrypt)
encrypt_encryptionContext :: Lens.Lens' Encrypt (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
encrypt_encryptionContext :: Lens' Encrypt (Maybe (HashMap Text Text))
encrypt_encryptionContext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Encrypt' {Maybe (HashMap Text Text)
encryptionContext :: Maybe (HashMap Text Text)
$sel:encryptionContext:Encrypt' :: Encrypt -> Maybe (HashMap Text Text)
encryptionContext} -> Maybe (HashMap Text Text)
encryptionContext) (\s :: Encrypt
s@Encrypt' {} Maybe (HashMap Text Text)
a -> Encrypt
s {$sel:encryptionContext:Encrypt' :: Maybe (HashMap Text Text)
encryptionContext = Maybe (HashMap Text Text)
a} :: Encrypt) 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
encrypt_grantTokens :: Lens.Lens' Encrypt (Prelude.Maybe [Prelude.Text])
encrypt_grantTokens :: Lens' Encrypt (Maybe [Text])
encrypt_grantTokens = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Encrypt' {Maybe [Text]
grantTokens :: Maybe [Text]
$sel:grantTokens:Encrypt' :: Encrypt -> Maybe [Text]
grantTokens} -> Maybe [Text]
grantTokens) (\s :: Encrypt
s@Encrypt' {} Maybe [Text]
a -> Encrypt
s {$sel:grantTokens:Encrypt' :: Maybe [Text]
grantTokens = Maybe [Text]
a} :: Encrypt) 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
encrypt_keyId :: Lens.Lens' Encrypt Prelude.Text
encrypt_keyId :: Lens' Encrypt Text
encrypt_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Encrypt' {Text
keyId :: Text
$sel:keyId:Encrypt' :: Encrypt -> Text
keyId} -> Text
keyId) (\s :: Encrypt
s@Encrypt' {} Text
a -> Encrypt
s {$sel:keyId:Encrypt' :: Text
keyId = Text
a} :: Encrypt)
encrypt_plaintext :: Lens.Lens' Encrypt Prelude.ByteString
encrypt_plaintext :: Lens' Encrypt ByteString
encrypt_plaintext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Encrypt' {Sensitive Base64
plaintext :: Sensitive Base64
$sel:plaintext:Encrypt' :: Encrypt -> Sensitive Base64
plaintext} -> Sensitive Base64
plaintext) (\s :: Encrypt
s@Encrypt' {} Sensitive Base64
a -> Encrypt
s {$sel:plaintext:Encrypt' :: Sensitive Base64
plaintext = Sensitive Base64
a} :: Encrypt) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Iso' Base64 ByteString
Data._Base64
instance Core.AWSRequest Encrypt where
type AWSResponse Encrypt = EncryptResponse
request :: (Service -> Service) -> Encrypt -> Request Encrypt
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 Encrypt
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse Encrypt)))
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 Base64
-> Maybe EncryptionAlgorithmSpec
-> Maybe Text
-> Int
-> EncryptResponse
EncryptResponse'
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
"CiphertextBlob")
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
"EncryptionAlgorithm")
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
"KeyId")
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 Encrypt where
hashWithSalt :: Int -> Encrypt -> Int
hashWithSalt Int
_salt Encrypt' {Maybe [Text]
Maybe (HashMap Text Text)
Maybe EncryptionAlgorithmSpec
Text
Sensitive Base64
plaintext :: Sensitive Base64
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
encryptionAlgorithm :: Maybe EncryptionAlgorithmSpec
$sel:plaintext:Encrypt' :: Encrypt -> Sensitive Base64
$sel:keyId:Encrypt' :: Encrypt -> Text
$sel:grantTokens:Encrypt' :: Encrypt -> Maybe [Text]
$sel:encryptionContext:Encrypt' :: Encrypt -> Maybe (HashMap Text Text)
$sel:encryptionAlgorithm:Encrypt' :: Encrypt -> Maybe EncryptionAlgorithmSpec
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EncryptionAlgorithmSpec
encryptionAlgorithm
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
encryptionContext
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
grantTokens
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
keyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Base64
plaintext
instance Prelude.NFData Encrypt where
rnf :: Encrypt -> ()
rnf Encrypt' {Maybe [Text]
Maybe (HashMap Text Text)
Maybe EncryptionAlgorithmSpec
Text
Sensitive Base64
plaintext :: Sensitive Base64
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
encryptionAlgorithm :: Maybe EncryptionAlgorithmSpec
$sel:plaintext:Encrypt' :: Encrypt -> Sensitive Base64
$sel:keyId:Encrypt' :: Encrypt -> Text
$sel:grantTokens:Encrypt' :: Encrypt -> Maybe [Text]
$sel:encryptionContext:Encrypt' :: Encrypt -> Maybe (HashMap Text Text)
$sel:encryptionAlgorithm:Encrypt' :: Encrypt -> Maybe EncryptionAlgorithmSpec
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe EncryptionAlgorithmSpec
encryptionAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
encryptionContext
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
grantTokens
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
keyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Base64
plaintext
instance Data.ToHeaders Encrypt where
toHeaders :: Encrypt -> 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
"TrentService.Encrypt" :: 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 Encrypt where
toJSON :: Encrypt -> Value
toJSON Encrypt' {Maybe [Text]
Maybe (HashMap Text Text)
Maybe EncryptionAlgorithmSpec
Text
Sensitive Base64
plaintext :: Sensitive Base64
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
encryptionAlgorithm :: Maybe EncryptionAlgorithmSpec
$sel:plaintext:Encrypt' :: Encrypt -> Sensitive Base64
$sel:keyId:Encrypt' :: Encrypt -> Text
$sel:grantTokens:Encrypt' :: Encrypt -> Maybe [Text]
$sel:encryptionContext:Encrypt' :: Encrypt -> Maybe (HashMap Text Text)
$sel:encryptionAlgorithm:Encrypt' :: Encrypt -> Maybe EncryptionAlgorithmSpec
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"EncryptionAlgorithm" 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 EncryptionAlgorithmSpec
encryptionAlgorithm,
(Key
"EncryptionContext" 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 (HashMap Text Text)
encryptionContext,
(Key
"GrantTokens" 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]
grantTokens,
forall a. a -> Maybe a
Prelude.Just (Key
"KeyId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
keyId),
forall a. a -> Maybe a
Prelude.Just (Key
"Plaintext" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Base64
plaintext)
]
)
instance Data.ToPath Encrypt where
toPath :: Encrypt -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery Encrypt where
toQuery :: Encrypt -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data EncryptResponse = EncryptResponse'
{
EncryptResponse -> Maybe Base64
ciphertextBlob :: Prelude.Maybe Data.Base64,
EncryptResponse -> Maybe EncryptionAlgorithmSpec
encryptionAlgorithm :: Prelude.Maybe EncryptionAlgorithmSpec,
EncryptResponse -> Maybe Text
keyId :: Prelude.Maybe Prelude.Text,
EncryptResponse -> Int
httpStatus :: Prelude.Int
}
deriving (EncryptResponse -> EncryptResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EncryptResponse -> EncryptResponse -> Bool
$c/= :: EncryptResponse -> EncryptResponse -> Bool
== :: EncryptResponse -> EncryptResponse -> Bool
$c== :: EncryptResponse -> EncryptResponse -> Bool
Prelude.Eq, ReadPrec [EncryptResponse]
ReadPrec EncryptResponse
Int -> ReadS EncryptResponse
ReadS [EncryptResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [EncryptResponse]
$creadListPrec :: ReadPrec [EncryptResponse]
readPrec :: ReadPrec EncryptResponse
$creadPrec :: ReadPrec EncryptResponse
readList :: ReadS [EncryptResponse]
$creadList :: ReadS [EncryptResponse]
readsPrec :: Int -> ReadS EncryptResponse
$creadsPrec :: Int -> ReadS EncryptResponse
Prelude.Read, Int -> EncryptResponse -> ShowS
[EncryptResponse] -> ShowS
EncryptResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EncryptResponse] -> ShowS
$cshowList :: [EncryptResponse] -> ShowS
show :: EncryptResponse -> String
$cshow :: EncryptResponse -> String
showsPrec :: Int -> EncryptResponse -> ShowS
$cshowsPrec :: Int -> EncryptResponse -> ShowS
Prelude.Show, forall x. Rep EncryptResponse x -> EncryptResponse
forall x. EncryptResponse -> Rep EncryptResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep EncryptResponse x -> EncryptResponse
$cfrom :: forall x. EncryptResponse -> Rep EncryptResponse x
Prelude.Generic)
newEncryptResponse ::
Prelude.Int ->
EncryptResponse
newEncryptResponse :: Int -> EncryptResponse
newEncryptResponse Int
pHttpStatus_ =
EncryptResponse'
{ $sel:ciphertextBlob:EncryptResponse' :: Maybe Base64
ciphertextBlob = forall a. Maybe a
Prelude.Nothing,
$sel:encryptionAlgorithm:EncryptResponse' :: Maybe EncryptionAlgorithmSpec
encryptionAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:keyId:EncryptResponse' :: Maybe Text
keyId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:EncryptResponse' :: Int
httpStatus = Int
pHttpStatus_
}
encryptResponse_ciphertextBlob :: Lens.Lens' EncryptResponse (Prelude.Maybe Prelude.ByteString)
encryptResponse_ciphertextBlob :: Lens' EncryptResponse (Maybe ByteString)
encryptResponse_ciphertextBlob = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EncryptResponse' {Maybe Base64
ciphertextBlob :: Maybe Base64
$sel:ciphertextBlob:EncryptResponse' :: EncryptResponse -> Maybe Base64
ciphertextBlob} -> Maybe Base64
ciphertextBlob) (\s :: EncryptResponse
s@EncryptResponse' {} Maybe Base64
a -> EncryptResponse
s {$sel:ciphertextBlob:EncryptResponse' :: Maybe Base64
ciphertextBlob = Maybe Base64
a} :: EncryptResponse) 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 Iso' Base64 ByteString
Data._Base64
encryptResponse_encryptionAlgorithm :: Lens.Lens' EncryptResponse (Prelude.Maybe EncryptionAlgorithmSpec)
encryptResponse_encryptionAlgorithm :: Lens' EncryptResponse (Maybe EncryptionAlgorithmSpec)
encryptResponse_encryptionAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EncryptResponse' {Maybe EncryptionAlgorithmSpec
encryptionAlgorithm :: Maybe EncryptionAlgorithmSpec
$sel:encryptionAlgorithm:EncryptResponse' :: EncryptResponse -> Maybe EncryptionAlgorithmSpec
encryptionAlgorithm} -> Maybe EncryptionAlgorithmSpec
encryptionAlgorithm) (\s :: EncryptResponse
s@EncryptResponse' {} Maybe EncryptionAlgorithmSpec
a -> EncryptResponse
s {$sel:encryptionAlgorithm:EncryptResponse' :: Maybe EncryptionAlgorithmSpec
encryptionAlgorithm = Maybe EncryptionAlgorithmSpec
a} :: EncryptResponse)
encryptResponse_keyId :: Lens.Lens' EncryptResponse (Prelude.Maybe Prelude.Text)
encryptResponse_keyId :: Lens' EncryptResponse (Maybe Text)
encryptResponse_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EncryptResponse' {Maybe Text
keyId :: Maybe Text
$sel:keyId:EncryptResponse' :: EncryptResponse -> Maybe Text
keyId} -> Maybe Text
keyId) (\s :: EncryptResponse
s@EncryptResponse' {} Maybe Text
a -> EncryptResponse
s {$sel:keyId:EncryptResponse' :: Maybe Text
keyId = Maybe Text
a} :: EncryptResponse)
encryptResponse_httpStatus :: Lens.Lens' EncryptResponse Prelude.Int
encryptResponse_httpStatus :: Lens' EncryptResponse Int
encryptResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EncryptResponse' {Int
httpStatus :: Int
$sel:httpStatus:EncryptResponse' :: EncryptResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: EncryptResponse
s@EncryptResponse' {} Int
a -> EncryptResponse
s {$sel:httpStatus:EncryptResponse' :: Int
httpStatus = Int
a} :: EncryptResponse)
instance Prelude.NFData EncryptResponse where
rnf :: EncryptResponse -> ()
rnf EncryptResponse' {Int
Maybe Text
Maybe Base64
Maybe EncryptionAlgorithmSpec
httpStatus :: Int
keyId :: Maybe Text
encryptionAlgorithm :: Maybe EncryptionAlgorithmSpec
ciphertextBlob :: Maybe Base64
$sel:httpStatus:EncryptResponse' :: EncryptResponse -> Int
$sel:keyId:EncryptResponse' :: EncryptResponse -> Maybe Text
$sel:encryptionAlgorithm:EncryptResponse' :: EncryptResponse -> Maybe EncryptionAlgorithmSpec
$sel:ciphertextBlob:EncryptResponse' :: EncryptResponse -> Maybe Base64
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Base64
ciphertextBlob
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EncryptionAlgorithmSpec
encryptionAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
keyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus