{-# 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.Signer.DescribeSigningJob
(
DescribeSigningJob (..),
newDescribeSigningJob,
describeSigningJob_jobId,
DescribeSigningJobResponse (..),
newDescribeSigningJobResponse,
describeSigningJobResponse_completedAt,
describeSigningJobResponse_createdAt,
describeSigningJobResponse_jobId,
describeSigningJobResponse_jobInvoker,
describeSigningJobResponse_jobOwner,
describeSigningJobResponse_overrides,
describeSigningJobResponse_platformDisplayName,
describeSigningJobResponse_platformId,
describeSigningJobResponse_profileName,
describeSigningJobResponse_profileVersion,
describeSigningJobResponse_requestedBy,
describeSigningJobResponse_revocationRecord,
describeSigningJobResponse_signatureExpiresAt,
describeSigningJobResponse_signedObject,
describeSigningJobResponse_signingMaterial,
describeSigningJobResponse_signingParameters,
describeSigningJobResponse_source,
describeSigningJobResponse_status,
describeSigningJobResponse_statusReason,
describeSigningJobResponse_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.Signer.Types
data DescribeSigningJob = DescribeSigningJob'
{
DescribeSigningJob -> Text
jobId :: Prelude.Text
}
deriving (DescribeSigningJob -> DescribeSigningJob -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeSigningJob -> DescribeSigningJob -> Bool
$c/= :: DescribeSigningJob -> DescribeSigningJob -> Bool
== :: DescribeSigningJob -> DescribeSigningJob -> Bool
$c== :: DescribeSigningJob -> DescribeSigningJob -> Bool
Prelude.Eq, ReadPrec [DescribeSigningJob]
ReadPrec DescribeSigningJob
Int -> ReadS DescribeSigningJob
ReadS [DescribeSigningJob]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeSigningJob]
$creadListPrec :: ReadPrec [DescribeSigningJob]
readPrec :: ReadPrec DescribeSigningJob
$creadPrec :: ReadPrec DescribeSigningJob
readList :: ReadS [DescribeSigningJob]
$creadList :: ReadS [DescribeSigningJob]
readsPrec :: Int -> ReadS DescribeSigningJob
$creadsPrec :: Int -> ReadS DescribeSigningJob
Prelude.Read, Int -> DescribeSigningJob -> ShowS
[DescribeSigningJob] -> ShowS
DescribeSigningJob -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeSigningJob] -> ShowS
$cshowList :: [DescribeSigningJob] -> ShowS
show :: DescribeSigningJob -> String
$cshow :: DescribeSigningJob -> String
showsPrec :: Int -> DescribeSigningJob -> ShowS
$cshowsPrec :: Int -> DescribeSigningJob -> ShowS
Prelude.Show, forall x. Rep DescribeSigningJob x -> DescribeSigningJob
forall x. DescribeSigningJob -> Rep DescribeSigningJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeSigningJob x -> DescribeSigningJob
$cfrom :: forall x. DescribeSigningJob -> Rep DescribeSigningJob x
Prelude.Generic)
newDescribeSigningJob ::
Prelude.Text ->
DescribeSigningJob
newDescribeSigningJob :: Text -> DescribeSigningJob
newDescribeSigningJob Text
pJobId_ =
DescribeSigningJob' {$sel:jobId:DescribeSigningJob' :: Text
jobId = Text
pJobId_}
describeSigningJob_jobId :: Lens.Lens' DescribeSigningJob Prelude.Text
describeSigningJob_jobId :: Lens' DescribeSigningJob Text
describeSigningJob_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJob' {Text
jobId :: Text
$sel:jobId:DescribeSigningJob' :: DescribeSigningJob -> Text
jobId} -> Text
jobId) (\s :: DescribeSigningJob
s@DescribeSigningJob' {} Text
a -> DescribeSigningJob
s {$sel:jobId:DescribeSigningJob' :: Text
jobId = Text
a} :: DescribeSigningJob)
instance Core.AWSRequest DescribeSigningJob where
type
AWSResponse DescribeSigningJob =
DescribeSigningJobResponse
request :: (Service -> Service)
-> DescribeSigningJob -> Request DescribeSigningJob
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeSigningJob
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeSigningJob)))
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 POSIX
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe SigningPlatformOverrides
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe SigningJobRevocationRecord
-> Maybe POSIX
-> Maybe SignedObject
-> Maybe SigningMaterial
-> Maybe (HashMap Text Text)
-> Maybe Source
-> Maybe SigningStatus
-> Maybe Text
-> Int
-> DescribeSigningJobResponse
DescribeSigningJobResponse'
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
"completedAt")
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
"createdAt")
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
"jobId")
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
"jobInvoker")
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
"jobOwner")
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
"overrides")
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
"platformDisplayName")
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
"platformId")
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
"profileName")
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
"profileVersion")
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
"requestedBy")
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
"revocationRecord")
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
"signatureExpiresAt")
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
"signedObject")
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
"signingMaterial")
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
"signingParameters"
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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"source")
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
"status")
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
"statusReason")
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 DescribeSigningJob where
hashWithSalt :: Int -> DescribeSigningJob -> Int
hashWithSalt Int
_salt DescribeSigningJob' {Text
jobId :: Text
$sel:jobId:DescribeSigningJob' :: DescribeSigningJob -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
jobId
instance Prelude.NFData DescribeSigningJob where
rnf :: DescribeSigningJob -> ()
rnf DescribeSigningJob' {Text
jobId :: Text
$sel:jobId:DescribeSigningJob' :: DescribeSigningJob -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
jobId
instance Data.ToHeaders DescribeSigningJob where
toHeaders :: DescribeSigningJob -> 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.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DescribeSigningJob where
toPath :: DescribeSigningJob -> ByteString
toPath DescribeSigningJob' {Text
jobId :: Text
$sel:jobId:DescribeSigningJob' :: DescribeSigningJob -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/signing-jobs/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
jobId]
instance Data.ToQuery DescribeSigningJob where
toQuery :: DescribeSigningJob -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeSigningJobResponse = DescribeSigningJobResponse'
{
DescribeSigningJobResponse -> Maybe POSIX
completedAt :: Prelude.Maybe Data.POSIX,
DescribeSigningJobResponse -> Maybe POSIX
createdAt :: Prelude.Maybe Data.POSIX,
DescribeSigningJobResponse -> Maybe Text
jobId :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Maybe Text
jobInvoker :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Maybe Text
jobOwner :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Maybe SigningPlatformOverrides
overrides :: Prelude.Maybe SigningPlatformOverrides,
DescribeSigningJobResponse -> Maybe Text
platformDisplayName :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Maybe Text
platformId :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Maybe Text
profileName :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Maybe Text
profileVersion :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Maybe Text
requestedBy :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Maybe SigningJobRevocationRecord
revocationRecord :: Prelude.Maybe SigningJobRevocationRecord,
DescribeSigningJobResponse -> Maybe POSIX
signatureExpiresAt :: Prelude.Maybe Data.POSIX,
DescribeSigningJobResponse -> Maybe SignedObject
signedObject :: Prelude.Maybe SignedObject,
DescribeSigningJobResponse -> Maybe SigningMaterial
signingMaterial :: Prelude.Maybe SigningMaterial,
DescribeSigningJobResponse -> Maybe (HashMap Text Text)
signingParameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DescribeSigningJobResponse -> Maybe Source
source :: Prelude.Maybe Source,
DescribeSigningJobResponse -> Maybe SigningStatus
status :: Prelude.Maybe SigningStatus,
DescribeSigningJobResponse -> Maybe Text
statusReason :: Prelude.Maybe Prelude.Text,
DescribeSigningJobResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeSigningJobResponse -> DescribeSigningJobResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeSigningJobResponse -> DescribeSigningJobResponse -> Bool
$c/= :: DescribeSigningJobResponse -> DescribeSigningJobResponse -> Bool
== :: DescribeSigningJobResponse -> DescribeSigningJobResponse -> Bool
$c== :: DescribeSigningJobResponse -> DescribeSigningJobResponse -> Bool
Prelude.Eq, ReadPrec [DescribeSigningJobResponse]
ReadPrec DescribeSigningJobResponse
Int -> ReadS DescribeSigningJobResponse
ReadS [DescribeSigningJobResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeSigningJobResponse]
$creadListPrec :: ReadPrec [DescribeSigningJobResponse]
readPrec :: ReadPrec DescribeSigningJobResponse
$creadPrec :: ReadPrec DescribeSigningJobResponse
readList :: ReadS [DescribeSigningJobResponse]
$creadList :: ReadS [DescribeSigningJobResponse]
readsPrec :: Int -> ReadS DescribeSigningJobResponse
$creadsPrec :: Int -> ReadS DescribeSigningJobResponse
Prelude.Read, Int -> DescribeSigningJobResponse -> ShowS
[DescribeSigningJobResponse] -> ShowS
DescribeSigningJobResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeSigningJobResponse] -> ShowS
$cshowList :: [DescribeSigningJobResponse] -> ShowS
show :: DescribeSigningJobResponse -> String
$cshow :: DescribeSigningJobResponse -> String
showsPrec :: Int -> DescribeSigningJobResponse -> ShowS
$cshowsPrec :: Int -> DescribeSigningJobResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeSigningJobResponse x -> DescribeSigningJobResponse
forall x.
DescribeSigningJobResponse -> Rep DescribeSigningJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeSigningJobResponse x -> DescribeSigningJobResponse
$cfrom :: forall x.
DescribeSigningJobResponse -> Rep DescribeSigningJobResponse x
Prelude.Generic)
newDescribeSigningJobResponse ::
Prelude.Int ->
DescribeSigningJobResponse
newDescribeSigningJobResponse :: Int -> DescribeSigningJobResponse
newDescribeSigningJobResponse Int
pHttpStatus_ =
DescribeSigningJobResponse'
{ $sel:completedAt:DescribeSigningJobResponse' :: Maybe POSIX
completedAt =
forall a. Maybe a
Prelude.Nothing,
$sel:createdAt:DescribeSigningJobResponse' :: Maybe POSIX
createdAt = forall a. Maybe a
Prelude.Nothing,
$sel:jobId:DescribeSigningJobResponse' :: Maybe Text
jobId = forall a. Maybe a
Prelude.Nothing,
$sel:jobInvoker:DescribeSigningJobResponse' :: Maybe Text
jobInvoker = forall a. Maybe a
Prelude.Nothing,
$sel:jobOwner:DescribeSigningJobResponse' :: Maybe Text
jobOwner = forall a. Maybe a
Prelude.Nothing,
$sel:overrides:DescribeSigningJobResponse' :: Maybe SigningPlatformOverrides
overrides = forall a. Maybe a
Prelude.Nothing,
$sel:platformDisplayName:DescribeSigningJobResponse' :: Maybe Text
platformDisplayName = forall a. Maybe a
Prelude.Nothing,
$sel:platformId:DescribeSigningJobResponse' :: Maybe Text
platformId = forall a. Maybe a
Prelude.Nothing,
$sel:profileName:DescribeSigningJobResponse' :: Maybe Text
profileName = forall a. Maybe a
Prelude.Nothing,
$sel:profileVersion:DescribeSigningJobResponse' :: Maybe Text
profileVersion = forall a. Maybe a
Prelude.Nothing,
$sel:requestedBy:DescribeSigningJobResponse' :: Maybe Text
requestedBy = forall a. Maybe a
Prelude.Nothing,
$sel:revocationRecord:DescribeSigningJobResponse' :: Maybe SigningJobRevocationRecord
revocationRecord = forall a. Maybe a
Prelude.Nothing,
$sel:signatureExpiresAt:DescribeSigningJobResponse' :: Maybe POSIX
signatureExpiresAt = forall a. Maybe a
Prelude.Nothing,
$sel:signedObject:DescribeSigningJobResponse' :: Maybe SignedObject
signedObject = forall a. Maybe a
Prelude.Nothing,
$sel:signingMaterial:DescribeSigningJobResponse' :: Maybe SigningMaterial
signingMaterial = forall a. Maybe a
Prelude.Nothing,
$sel:signingParameters:DescribeSigningJobResponse' :: Maybe (HashMap Text Text)
signingParameters = forall a. Maybe a
Prelude.Nothing,
$sel:source:DescribeSigningJobResponse' :: Maybe Source
source = forall a. Maybe a
Prelude.Nothing,
$sel:status:DescribeSigningJobResponse' :: Maybe SigningStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:statusReason:DescribeSigningJobResponse' :: Maybe Text
statusReason = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeSigningJobResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeSigningJobResponse_completedAt :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.UTCTime)
describeSigningJobResponse_completedAt :: Lens' DescribeSigningJobResponse (Maybe UTCTime)
describeSigningJobResponse_completedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe POSIX
completedAt :: Maybe POSIX
$sel:completedAt:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe POSIX
completedAt} -> Maybe POSIX
completedAt) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe POSIX
a -> DescribeSigningJobResponse
s {$sel:completedAt:DescribeSigningJobResponse' :: Maybe POSIX
completedAt = Maybe POSIX
a} :: DescribeSigningJobResponse) 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
describeSigningJobResponse_createdAt :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.UTCTime)
describeSigningJobResponse_createdAt :: Lens' DescribeSigningJobResponse (Maybe UTCTime)
describeSigningJobResponse_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe POSIX
createdAt :: Maybe POSIX
$sel:createdAt:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe POSIX
createdAt} -> Maybe POSIX
createdAt) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe POSIX
a -> DescribeSigningJobResponse
s {$sel:createdAt:DescribeSigningJobResponse' :: Maybe POSIX
createdAt = Maybe POSIX
a} :: DescribeSigningJobResponse) 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
describeSigningJobResponse_jobId :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_jobId :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
jobId :: Maybe Text
$sel:jobId:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
jobId} -> Maybe Text
jobId) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:jobId:DescribeSigningJobResponse' :: Maybe Text
jobId = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_jobInvoker :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_jobInvoker :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_jobInvoker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
jobInvoker :: Maybe Text
$sel:jobInvoker:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
jobInvoker} -> Maybe Text
jobInvoker) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:jobInvoker:DescribeSigningJobResponse' :: Maybe Text
jobInvoker = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_jobOwner :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_jobOwner :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_jobOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
jobOwner :: Maybe Text
$sel:jobOwner:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
jobOwner} -> Maybe Text
jobOwner) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:jobOwner:DescribeSigningJobResponse' :: Maybe Text
jobOwner = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_overrides :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe SigningPlatformOverrides)
describeSigningJobResponse_overrides :: Lens' DescribeSigningJobResponse (Maybe SigningPlatformOverrides)
describeSigningJobResponse_overrides = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe SigningPlatformOverrides
overrides :: Maybe SigningPlatformOverrides
$sel:overrides:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SigningPlatformOverrides
overrides} -> Maybe SigningPlatformOverrides
overrides) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe SigningPlatformOverrides
a -> DescribeSigningJobResponse
s {$sel:overrides:DescribeSigningJobResponse' :: Maybe SigningPlatformOverrides
overrides = Maybe SigningPlatformOverrides
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_platformDisplayName :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_platformDisplayName :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_platformDisplayName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
platformDisplayName :: Maybe Text
$sel:platformDisplayName:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
platformDisplayName} -> Maybe Text
platformDisplayName) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:platformDisplayName:DescribeSigningJobResponse' :: Maybe Text
platformDisplayName = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_platformId :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_platformId :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_platformId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
platformId :: Maybe Text
$sel:platformId:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
platformId} -> Maybe Text
platformId) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:platformId:DescribeSigningJobResponse' :: Maybe Text
platformId = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_profileName :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_profileName :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_profileName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
profileName :: Maybe Text
$sel:profileName:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
profileName} -> Maybe Text
profileName) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:profileName:DescribeSigningJobResponse' :: Maybe Text
profileName = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_profileVersion :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_profileVersion :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_profileVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
profileVersion :: Maybe Text
$sel:profileVersion:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
profileVersion} -> Maybe Text
profileVersion) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:profileVersion:DescribeSigningJobResponse' :: Maybe Text
profileVersion = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_requestedBy :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_requestedBy :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_requestedBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
requestedBy :: Maybe Text
$sel:requestedBy:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
requestedBy} -> Maybe Text
requestedBy) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:requestedBy:DescribeSigningJobResponse' :: Maybe Text
requestedBy = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_revocationRecord :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe SigningJobRevocationRecord)
describeSigningJobResponse_revocationRecord :: Lens' DescribeSigningJobResponse (Maybe SigningJobRevocationRecord)
describeSigningJobResponse_revocationRecord = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe SigningJobRevocationRecord
revocationRecord :: Maybe SigningJobRevocationRecord
$sel:revocationRecord:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SigningJobRevocationRecord
revocationRecord} -> Maybe SigningJobRevocationRecord
revocationRecord) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe SigningJobRevocationRecord
a -> DescribeSigningJobResponse
s {$sel:revocationRecord:DescribeSigningJobResponse' :: Maybe SigningJobRevocationRecord
revocationRecord = Maybe SigningJobRevocationRecord
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_signatureExpiresAt :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.UTCTime)
describeSigningJobResponse_signatureExpiresAt :: Lens' DescribeSigningJobResponse (Maybe UTCTime)
describeSigningJobResponse_signatureExpiresAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe POSIX
signatureExpiresAt :: Maybe POSIX
$sel:signatureExpiresAt:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe POSIX
signatureExpiresAt} -> Maybe POSIX
signatureExpiresAt) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe POSIX
a -> DescribeSigningJobResponse
s {$sel:signatureExpiresAt:DescribeSigningJobResponse' :: Maybe POSIX
signatureExpiresAt = Maybe POSIX
a} :: DescribeSigningJobResponse) 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
describeSigningJobResponse_signedObject :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe SignedObject)
describeSigningJobResponse_signedObject :: Lens' DescribeSigningJobResponse (Maybe SignedObject)
describeSigningJobResponse_signedObject = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe SignedObject
signedObject :: Maybe SignedObject
$sel:signedObject:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SignedObject
signedObject} -> Maybe SignedObject
signedObject) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe SignedObject
a -> DescribeSigningJobResponse
s {$sel:signedObject:DescribeSigningJobResponse' :: Maybe SignedObject
signedObject = Maybe SignedObject
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_signingMaterial :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe SigningMaterial)
describeSigningJobResponse_signingMaterial :: Lens' DescribeSigningJobResponse (Maybe SigningMaterial)
describeSigningJobResponse_signingMaterial = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe SigningMaterial
signingMaterial :: Maybe SigningMaterial
$sel:signingMaterial:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SigningMaterial
signingMaterial} -> Maybe SigningMaterial
signingMaterial) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe SigningMaterial
a -> DescribeSigningJobResponse
s {$sel:signingMaterial:DescribeSigningJobResponse' :: Maybe SigningMaterial
signingMaterial = Maybe SigningMaterial
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_signingParameters :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeSigningJobResponse_signingParameters :: Lens' DescribeSigningJobResponse (Maybe (HashMap Text Text))
describeSigningJobResponse_signingParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe (HashMap Text Text)
signingParameters :: Maybe (HashMap Text Text)
$sel:signingParameters:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe (HashMap Text Text)
signingParameters} -> Maybe (HashMap Text Text)
signingParameters) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe (HashMap Text Text)
a -> DescribeSigningJobResponse
s {$sel:signingParameters:DescribeSigningJobResponse' :: Maybe (HashMap Text Text)
signingParameters = Maybe (HashMap Text Text)
a} :: DescribeSigningJobResponse) 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
describeSigningJobResponse_source :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Source)
describeSigningJobResponse_source :: Lens' DescribeSigningJobResponse (Maybe Source)
describeSigningJobResponse_source = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Source
source :: Maybe Source
$sel:source:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Source
source} -> Maybe Source
source) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Source
a -> DescribeSigningJobResponse
s {$sel:source:DescribeSigningJobResponse' :: Maybe Source
source = Maybe Source
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_status :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe SigningStatus)
describeSigningJobResponse_status :: Lens' DescribeSigningJobResponse (Maybe SigningStatus)
describeSigningJobResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe SigningStatus
status :: Maybe SigningStatus
$sel:status:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SigningStatus
status} -> Maybe SigningStatus
status) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe SigningStatus
a -> DescribeSigningJobResponse
s {$sel:status:DescribeSigningJobResponse' :: Maybe SigningStatus
status = Maybe SigningStatus
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_statusReason :: Lens.Lens' DescribeSigningJobResponse (Prelude.Maybe Prelude.Text)
describeSigningJobResponse_statusReason :: Lens' DescribeSigningJobResponse (Maybe Text)
describeSigningJobResponse_statusReason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Maybe Text
statusReason :: Maybe Text
$sel:statusReason:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
statusReason} -> Maybe Text
statusReason) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Maybe Text
a -> DescribeSigningJobResponse
s {$sel:statusReason:DescribeSigningJobResponse' :: Maybe Text
statusReason = Maybe Text
a} :: DescribeSigningJobResponse)
describeSigningJobResponse_httpStatus :: Lens.Lens' DescribeSigningJobResponse Prelude.Int
describeSigningJobResponse_httpStatus :: Lens' DescribeSigningJobResponse Int
describeSigningJobResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeSigningJobResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeSigningJobResponse
s@DescribeSigningJobResponse' {} Int
a -> DescribeSigningJobResponse
s {$sel:httpStatus:DescribeSigningJobResponse' :: Int
httpStatus = Int
a} :: DescribeSigningJobResponse)
instance Prelude.NFData DescribeSigningJobResponse where
rnf :: DescribeSigningJobResponse -> ()
rnf DescribeSigningJobResponse' {Int
Maybe Text
Maybe (HashMap Text Text)
Maybe POSIX
Maybe SignedObject
Maybe SigningJobRevocationRecord
Maybe SigningMaterial
Maybe SigningPlatformOverrides
Maybe SigningStatus
Maybe Source
httpStatus :: Int
statusReason :: Maybe Text
status :: Maybe SigningStatus
source :: Maybe Source
signingParameters :: Maybe (HashMap Text Text)
signingMaterial :: Maybe SigningMaterial
signedObject :: Maybe SignedObject
signatureExpiresAt :: Maybe POSIX
revocationRecord :: Maybe SigningJobRevocationRecord
requestedBy :: Maybe Text
profileVersion :: Maybe Text
profileName :: Maybe Text
platformId :: Maybe Text
platformDisplayName :: Maybe Text
overrides :: Maybe SigningPlatformOverrides
jobOwner :: Maybe Text
jobInvoker :: Maybe Text
jobId :: Maybe Text
createdAt :: Maybe POSIX
completedAt :: Maybe POSIX
$sel:httpStatus:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Int
$sel:statusReason:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:status:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SigningStatus
$sel:source:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Source
$sel:signingParameters:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe (HashMap Text Text)
$sel:signingMaterial:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SigningMaterial
$sel:signedObject:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SignedObject
$sel:signatureExpiresAt:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe POSIX
$sel:revocationRecord:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SigningJobRevocationRecord
$sel:requestedBy:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:profileVersion:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:profileName:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:platformId:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:platformDisplayName:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:overrides:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe SigningPlatformOverrides
$sel:jobOwner:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:jobInvoker:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:jobId:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe Text
$sel:createdAt:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe POSIX
$sel:completedAt:DescribeSigningJobResponse' :: DescribeSigningJobResponse -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
completedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobInvoker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobOwner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SigningPlatformOverrides
overrides
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
platformDisplayName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
platformId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
profileName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
profileVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestedBy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SigningJobRevocationRecord
revocationRecord
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
signatureExpiresAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SignedObject
signedObject
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SigningMaterial
signingMaterial
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
signingParameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Source
source
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SigningStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
statusReason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus