{-# 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.Verify
(
Verify (..),
newVerify,
verify_grantTokens,
verify_messageType,
verify_keyId,
verify_message,
verify_signature,
verify_signingAlgorithm,
VerifyResponse (..),
newVerifyResponse,
verifyResponse_keyId,
verifyResponse_signatureValid,
verifyResponse_signingAlgorithm,
verifyResponse_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 Verify = Verify'
{
Verify -> Maybe [Text]
grantTokens :: Prelude.Maybe [Prelude.Text],
Verify -> Maybe MessageType
messageType :: Prelude.Maybe MessageType,
Verify -> Text
keyId :: Prelude.Text,
Verify -> Sensitive Base64
message :: Data.Sensitive Data.Base64,
Verify -> Base64
signature :: Data.Base64,
Verify -> SigningAlgorithmSpec
signingAlgorithm :: SigningAlgorithmSpec
}
deriving (Verify -> Verify -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Verify -> Verify -> Bool
$c/= :: Verify -> Verify -> Bool
== :: Verify -> Verify -> Bool
$c== :: Verify -> Verify -> Bool
Prelude.Eq, Int -> Verify -> ShowS
[Verify] -> ShowS
Verify -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Verify] -> ShowS
$cshowList :: [Verify] -> ShowS
show :: Verify -> String
$cshow :: Verify -> String
showsPrec :: Int -> Verify -> ShowS
$cshowsPrec :: Int -> Verify -> ShowS
Prelude.Show, forall x. Rep Verify x -> Verify
forall x. Verify -> Rep Verify x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Verify x -> Verify
$cfrom :: forall x. Verify -> Rep Verify x
Prelude.Generic)
newVerify ::
Prelude.Text ->
Prelude.ByteString ->
Prelude.ByteString ->
SigningAlgorithmSpec ->
Verify
newVerify :: Text -> ByteString -> ByteString -> SigningAlgorithmSpec -> Verify
newVerify
Text
pKeyId_
ByteString
pMessage_
ByteString
pSignature_
SigningAlgorithmSpec
pSigningAlgorithm_ =
Verify'
{ $sel:grantTokens:Verify' :: Maybe [Text]
grantTokens = forall a. Maybe a
Prelude.Nothing,
$sel:messageType:Verify' :: Maybe MessageType
messageType = forall a. Maybe a
Prelude.Nothing,
$sel:keyId:Verify' :: Text
keyId = Text
pKeyId_,
$sel:message:Verify' :: Sensitive Base64
message =
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
pMessage_,
$sel:signature:Verify' :: Base64
signature = Iso' Base64 ByteString
Data._Base64 forall t b. AReview t b -> b -> t
Lens.# ByteString
pSignature_,
$sel:signingAlgorithm:Verify' :: SigningAlgorithmSpec
signingAlgorithm = SigningAlgorithmSpec
pSigningAlgorithm_
}
verify_grantTokens :: Lens.Lens' Verify (Prelude.Maybe [Prelude.Text])
verify_grantTokens :: Lens' Verify (Maybe [Text])
verify_grantTokens = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Verify' {Maybe [Text]
grantTokens :: Maybe [Text]
$sel:grantTokens:Verify' :: Verify -> Maybe [Text]
grantTokens} -> Maybe [Text]
grantTokens) (\s :: Verify
s@Verify' {} Maybe [Text]
a -> Verify
s {$sel:grantTokens:Verify' :: Maybe [Text]
grantTokens = Maybe [Text]
a} :: Verify) 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
verify_messageType :: Lens.Lens' Verify (Prelude.Maybe MessageType)
verify_messageType :: Lens' Verify (Maybe MessageType)
verify_messageType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Verify' {Maybe MessageType
messageType :: Maybe MessageType
$sel:messageType:Verify' :: Verify -> Maybe MessageType
messageType} -> Maybe MessageType
messageType) (\s :: Verify
s@Verify' {} Maybe MessageType
a -> Verify
s {$sel:messageType:Verify' :: Maybe MessageType
messageType = Maybe MessageType
a} :: Verify)
verify_keyId :: Lens.Lens' Verify Prelude.Text
verify_keyId :: Lens' Verify Text
verify_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Verify' {Text
keyId :: Text
$sel:keyId:Verify' :: Verify -> Text
keyId} -> Text
keyId) (\s :: Verify
s@Verify' {} Text
a -> Verify
s {$sel:keyId:Verify' :: Text
keyId = Text
a} :: Verify)
verify_message :: Lens.Lens' Verify Prelude.ByteString
verify_message :: Lens' Verify ByteString
verify_message = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Verify' {Sensitive Base64
message :: Sensitive Base64
$sel:message:Verify' :: Verify -> Sensitive Base64
message} -> Sensitive Base64
message) (\s :: Verify
s@Verify' {} Sensitive Base64
a -> Verify
s {$sel:message:Verify' :: Sensitive Base64
message = Sensitive Base64
a} :: Verify) 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
verify_signature :: Lens.Lens' Verify Prelude.ByteString
verify_signature :: Lens' Verify ByteString
verify_signature = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Verify' {Base64
signature :: Base64
$sel:signature:Verify' :: Verify -> Base64
signature} -> Base64
signature) (\s :: Verify
s@Verify' {} Base64
a -> Verify
s {$sel:signature:Verify' :: Base64
signature = Base64
a} :: Verify) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Iso' Base64 ByteString
Data._Base64
verify_signingAlgorithm :: Lens.Lens' Verify SigningAlgorithmSpec
verify_signingAlgorithm :: Lens' Verify SigningAlgorithmSpec
verify_signingAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Verify' {SigningAlgorithmSpec
signingAlgorithm :: SigningAlgorithmSpec
$sel:signingAlgorithm:Verify' :: Verify -> SigningAlgorithmSpec
signingAlgorithm} -> SigningAlgorithmSpec
signingAlgorithm) (\s :: Verify
s@Verify' {} SigningAlgorithmSpec
a -> Verify
s {$sel:signingAlgorithm:Verify' :: SigningAlgorithmSpec
signingAlgorithm = SigningAlgorithmSpec
a} :: Verify)
instance Core.AWSRequest Verify where
type AWSResponse Verify = VerifyResponse
request :: (Service -> Service) -> Verify -> Request Verify
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 Verify
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse Verify)))
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 Bool
-> Maybe SigningAlgorithmSpec
-> Int
-> VerifyResponse
VerifyResponse'
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
"KeyId")
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
"SignatureValid")
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
"SigningAlgorithm")
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 Verify where
hashWithSalt :: Int -> Verify -> Int
hashWithSalt Int
_salt Verify' {Maybe [Text]
Maybe MessageType
Text
Base64
Sensitive Base64
SigningAlgorithmSpec
signingAlgorithm :: SigningAlgorithmSpec
signature :: Base64
message :: Sensitive Base64
keyId :: Text
messageType :: Maybe MessageType
grantTokens :: Maybe [Text]
$sel:signingAlgorithm:Verify' :: Verify -> SigningAlgorithmSpec
$sel:signature:Verify' :: Verify -> Base64
$sel:message:Verify' :: Verify -> Sensitive Base64
$sel:keyId:Verify' :: Verify -> Text
$sel:messageType:Verify' :: Verify -> Maybe MessageType
$sel:grantTokens:Verify' :: Verify -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
grantTokens
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MessageType
messageType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
keyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Base64
message
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Base64
signature
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` SigningAlgorithmSpec
signingAlgorithm
instance Prelude.NFData Verify where
rnf :: Verify -> ()
rnf Verify' {Maybe [Text]
Maybe MessageType
Text
Base64
Sensitive Base64
SigningAlgorithmSpec
signingAlgorithm :: SigningAlgorithmSpec
signature :: Base64
message :: Sensitive Base64
keyId :: Text
messageType :: Maybe MessageType
grantTokens :: Maybe [Text]
$sel:signingAlgorithm:Verify' :: Verify -> SigningAlgorithmSpec
$sel:signature:Verify' :: Verify -> Base64
$sel:message:Verify' :: Verify -> Sensitive Base64
$sel:keyId:Verify' :: Verify -> Text
$sel:messageType:Verify' :: Verify -> Maybe MessageType
$sel:grantTokens:Verify' :: Verify -> Maybe [Text]
..} =
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 Maybe MessageType
messageType
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
message
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Base64
signature
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf SigningAlgorithmSpec
signingAlgorithm
instance Data.ToHeaders Verify where
toHeaders :: Verify -> 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.Verify" :: 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 Verify where
toJSON :: Verify -> Value
toJSON Verify' {Maybe [Text]
Maybe MessageType
Text
Base64
Sensitive Base64
SigningAlgorithmSpec
signingAlgorithm :: SigningAlgorithmSpec
signature :: Base64
message :: Sensitive Base64
keyId :: Text
messageType :: Maybe MessageType
grantTokens :: Maybe [Text]
$sel:signingAlgorithm:Verify' :: Verify -> SigningAlgorithmSpec
$sel:signature:Verify' :: Verify -> Base64
$sel:message:Verify' :: Verify -> Sensitive Base64
$sel:keyId:Verify' :: Verify -> Text
$sel:messageType:Verify' :: Verify -> Maybe MessageType
$sel:grantTokens:Verify' :: Verify -> Maybe [Text]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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,
(Key
"MessageType" 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 MessageType
messageType,
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
"Message" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Base64
message),
forall a. a -> Maybe a
Prelude.Just (Key
"Signature" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Base64
signature),
forall a. a -> Maybe a
Prelude.Just
(Key
"SigningAlgorithm" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= SigningAlgorithmSpec
signingAlgorithm)
]
)
instance Data.ToPath Verify where
toPath :: Verify -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery Verify where
toQuery :: Verify -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data VerifyResponse = VerifyResponse'
{
VerifyResponse -> Maybe Text
keyId :: Prelude.Maybe Prelude.Text,
VerifyResponse -> Maybe Bool
signatureValid :: Prelude.Maybe Prelude.Bool,
VerifyResponse -> Maybe SigningAlgorithmSpec
signingAlgorithm :: Prelude.Maybe SigningAlgorithmSpec,
VerifyResponse -> Int
httpStatus :: Prelude.Int
}
deriving (VerifyResponse -> VerifyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VerifyResponse -> VerifyResponse -> Bool
$c/= :: VerifyResponse -> VerifyResponse -> Bool
== :: VerifyResponse -> VerifyResponse -> Bool
$c== :: VerifyResponse -> VerifyResponse -> Bool
Prelude.Eq, ReadPrec [VerifyResponse]
ReadPrec VerifyResponse
Int -> ReadS VerifyResponse
ReadS [VerifyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [VerifyResponse]
$creadListPrec :: ReadPrec [VerifyResponse]
readPrec :: ReadPrec VerifyResponse
$creadPrec :: ReadPrec VerifyResponse
readList :: ReadS [VerifyResponse]
$creadList :: ReadS [VerifyResponse]
readsPrec :: Int -> ReadS VerifyResponse
$creadsPrec :: Int -> ReadS VerifyResponse
Prelude.Read, Int -> VerifyResponse -> ShowS
[VerifyResponse] -> ShowS
VerifyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [VerifyResponse] -> ShowS
$cshowList :: [VerifyResponse] -> ShowS
show :: VerifyResponse -> String
$cshow :: VerifyResponse -> String
showsPrec :: Int -> VerifyResponse -> ShowS
$cshowsPrec :: Int -> VerifyResponse -> ShowS
Prelude.Show, forall x. Rep VerifyResponse x -> VerifyResponse
forall x. VerifyResponse -> Rep VerifyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep VerifyResponse x -> VerifyResponse
$cfrom :: forall x. VerifyResponse -> Rep VerifyResponse x
Prelude.Generic)
newVerifyResponse ::
Prelude.Int ->
VerifyResponse
newVerifyResponse :: Int -> VerifyResponse
newVerifyResponse Int
pHttpStatus_ =
VerifyResponse'
{ $sel:keyId:VerifyResponse' :: Maybe Text
keyId = forall a. Maybe a
Prelude.Nothing,
$sel:signatureValid:VerifyResponse' :: Maybe Bool
signatureValid = forall a. Maybe a
Prelude.Nothing,
$sel:signingAlgorithm:VerifyResponse' :: Maybe SigningAlgorithmSpec
signingAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:VerifyResponse' :: Int
httpStatus = Int
pHttpStatus_
}
verifyResponse_keyId :: Lens.Lens' VerifyResponse (Prelude.Maybe Prelude.Text)
verifyResponse_keyId :: Lens' VerifyResponse (Maybe Text)
verifyResponse_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifyResponse' {Maybe Text
keyId :: Maybe Text
$sel:keyId:VerifyResponse' :: VerifyResponse -> Maybe Text
keyId} -> Maybe Text
keyId) (\s :: VerifyResponse
s@VerifyResponse' {} Maybe Text
a -> VerifyResponse
s {$sel:keyId:VerifyResponse' :: Maybe Text
keyId = Maybe Text
a} :: VerifyResponse)
verifyResponse_signatureValid :: Lens.Lens' VerifyResponse (Prelude.Maybe Prelude.Bool)
verifyResponse_signatureValid :: Lens' VerifyResponse (Maybe Bool)
verifyResponse_signatureValid = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifyResponse' {Maybe Bool
signatureValid :: Maybe Bool
$sel:signatureValid:VerifyResponse' :: VerifyResponse -> Maybe Bool
signatureValid} -> Maybe Bool
signatureValid) (\s :: VerifyResponse
s@VerifyResponse' {} Maybe Bool
a -> VerifyResponse
s {$sel:signatureValid:VerifyResponse' :: Maybe Bool
signatureValid = Maybe Bool
a} :: VerifyResponse)
verifyResponse_signingAlgorithm :: Lens.Lens' VerifyResponse (Prelude.Maybe SigningAlgorithmSpec)
verifyResponse_signingAlgorithm :: Lens' VerifyResponse (Maybe SigningAlgorithmSpec)
verifyResponse_signingAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifyResponse' {Maybe SigningAlgorithmSpec
signingAlgorithm :: Maybe SigningAlgorithmSpec
$sel:signingAlgorithm:VerifyResponse' :: VerifyResponse -> Maybe SigningAlgorithmSpec
signingAlgorithm} -> Maybe SigningAlgorithmSpec
signingAlgorithm) (\s :: VerifyResponse
s@VerifyResponse' {} Maybe SigningAlgorithmSpec
a -> VerifyResponse
s {$sel:signingAlgorithm:VerifyResponse' :: Maybe SigningAlgorithmSpec
signingAlgorithm = Maybe SigningAlgorithmSpec
a} :: VerifyResponse)
verifyResponse_httpStatus :: Lens.Lens' VerifyResponse Prelude.Int
verifyResponse_httpStatus :: Lens' VerifyResponse Int
verifyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifyResponse' {Int
httpStatus :: Int
$sel:httpStatus:VerifyResponse' :: VerifyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: VerifyResponse
s@VerifyResponse' {} Int
a -> VerifyResponse
s {$sel:httpStatus:VerifyResponse' :: Int
httpStatus = Int
a} :: VerifyResponse)
instance Prelude.NFData VerifyResponse where
rnf :: VerifyResponse -> ()
rnf VerifyResponse' {Int
Maybe Bool
Maybe Text
Maybe SigningAlgorithmSpec
httpStatus :: Int
signingAlgorithm :: Maybe SigningAlgorithmSpec
signatureValid :: Maybe Bool
keyId :: Maybe Text
$sel:httpStatus:VerifyResponse' :: VerifyResponse -> Int
$sel:signingAlgorithm:VerifyResponse' :: VerifyResponse -> Maybe SigningAlgorithmSpec
$sel:signatureValid:VerifyResponse' :: VerifyResponse -> Maybe Bool
$sel:keyId:VerifyResponse' :: VerifyResponse -> Maybe Text
..} =
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 Maybe Bool
signatureValid
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SigningAlgorithmSpec
signingAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus