{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.Signer.GetSigningProfile
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns information on a specific signing profile.
module Amazonka.Signer.GetSigningProfile
  ( -- * Creating a Request
    GetSigningProfile (..),
    newGetSigningProfile,

    -- * Request Lenses
    getSigningProfile_profileOwner,
    getSigningProfile_profileName,

    -- * Destructuring the Response
    GetSigningProfileResponse (..),
    newGetSigningProfileResponse,

    -- * Response Lenses
    getSigningProfileResponse_status,
    getSigningProfileResponse_overrides,
    getSigningProfileResponse_platformDisplayName,
    getSigningProfileResponse_arn,
    getSigningProfileResponse_signingMaterial,
    getSigningProfileResponse_profileVersion,
    getSigningProfileResponse_profileName,
    getSigningProfileResponse_profileVersionArn,
    getSigningProfileResponse_platformId,
    getSigningProfileResponse_revocationRecord,
    getSigningProfileResponse_statusReason,
    getSigningProfileResponse_signatureValidityPeriod,
    getSigningProfileResponse_signingParameters,
    getSigningProfileResponse_tags,
    getSigningProfileResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Signer.Types

-- | /See:/ 'newGetSigningProfile' smart constructor.
data GetSigningProfile = GetSigningProfile'
  { -- | The AWS account ID of the profile owner.
    GetSigningProfile -> Maybe Text
profileOwner :: Prelude.Maybe Prelude.Text,
    -- | The name of the target signing profile.
    GetSigningProfile -> Text
profileName :: Prelude.Text
  }
  deriving (GetSigningProfile -> GetSigningProfile -> Bool
(GetSigningProfile -> GetSigningProfile -> Bool)
-> (GetSigningProfile -> GetSigningProfile -> Bool)
-> Eq GetSigningProfile
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSigningProfile -> GetSigningProfile -> Bool
$c/= :: GetSigningProfile -> GetSigningProfile -> Bool
== :: GetSigningProfile -> GetSigningProfile -> Bool
$c== :: GetSigningProfile -> GetSigningProfile -> Bool
Prelude.Eq, ReadPrec [GetSigningProfile]
ReadPrec GetSigningProfile
Int -> ReadS GetSigningProfile
ReadS [GetSigningProfile]
(Int -> ReadS GetSigningProfile)
-> ReadS [GetSigningProfile]
-> ReadPrec GetSigningProfile
-> ReadPrec [GetSigningProfile]
-> Read GetSigningProfile
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSigningProfile]
$creadListPrec :: ReadPrec [GetSigningProfile]
readPrec :: ReadPrec GetSigningProfile
$creadPrec :: ReadPrec GetSigningProfile
readList :: ReadS [GetSigningProfile]
$creadList :: ReadS [GetSigningProfile]
readsPrec :: Int -> ReadS GetSigningProfile
$creadsPrec :: Int -> ReadS GetSigningProfile
Prelude.Read, Int -> GetSigningProfile -> ShowS
[GetSigningProfile] -> ShowS
GetSigningProfile -> String
(Int -> GetSigningProfile -> ShowS)
-> (GetSigningProfile -> String)
-> ([GetSigningProfile] -> ShowS)
-> Show GetSigningProfile
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSigningProfile] -> ShowS
$cshowList :: [GetSigningProfile] -> ShowS
show :: GetSigningProfile -> String
$cshow :: GetSigningProfile -> String
showsPrec :: Int -> GetSigningProfile -> ShowS
$cshowsPrec :: Int -> GetSigningProfile -> ShowS
Prelude.Show, (forall x. GetSigningProfile -> Rep GetSigningProfile x)
-> (forall x. Rep GetSigningProfile x -> GetSigningProfile)
-> Generic GetSigningProfile
forall x. Rep GetSigningProfile x -> GetSigningProfile
forall x. GetSigningProfile -> Rep GetSigningProfile x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetSigningProfile x -> GetSigningProfile
$cfrom :: forall x. GetSigningProfile -> Rep GetSigningProfile x
Prelude.Generic)

-- |
-- Create a value of 'GetSigningProfile' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'profileOwner', 'getSigningProfile_profileOwner' - The AWS account ID of the profile owner.
--
-- 'profileName', 'getSigningProfile_profileName' - The name of the target signing profile.
newGetSigningProfile ::
  -- | 'profileName'
  Prelude.Text ->
  GetSigningProfile
newGetSigningProfile :: Text -> GetSigningProfile
newGetSigningProfile Text
pProfileName_ =
  GetSigningProfile' :: Maybe Text -> Text -> GetSigningProfile
GetSigningProfile'
    { $sel:profileOwner:GetSigningProfile' :: Maybe Text
profileOwner = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:profileName:GetSigningProfile' :: Text
profileName = Text
pProfileName_
    }

-- | The AWS account ID of the profile owner.
getSigningProfile_profileOwner :: Lens.Lens' GetSigningProfile (Prelude.Maybe Prelude.Text)
getSigningProfile_profileOwner :: (Maybe Text -> f (Maybe Text))
-> GetSigningProfile -> f GetSigningProfile
getSigningProfile_profileOwner = (GetSigningProfile -> Maybe Text)
-> (GetSigningProfile -> Maybe Text -> GetSigningProfile)
-> Lens
     GetSigningProfile GetSigningProfile (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfile' {Maybe Text
profileOwner :: Maybe Text
$sel:profileOwner:GetSigningProfile' :: GetSigningProfile -> Maybe Text
profileOwner} -> Maybe Text
profileOwner) (\s :: GetSigningProfile
s@GetSigningProfile' {} Maybe Text
a -> GetSigningProfile
s {$sel:profileOwner:GetSigningProfile' :: Maybe Text
profileOwner = Maybe Text
a} :: GetSigningProfile)

-- | The name of the target signing profile.
getSigningProfile_profileName :: Lens.Lens' GetSigningProfile Prelude.Text
getSigningProfile_profileName :: (Text -> f Text) -> GetSigningProfile -> f GetSigningProfile
getSigningProfile_profileName = (GetSigningProfile -> Text)
-> (GetSigningProfile -> Text -> GetSigningProfile)
-> Lens GetSigningProfile GetSigningProfile Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfile' {Text
profileName :: Text
$sel:profileName:GetSigningProfile' :: GetSigningProfile -> Text
profileName} -> Text
profileName) (\s :: GetSigningProfile
s@GetSigningProfile' {} Text
a -> GetSigningProfile
s {$sel:profileName:GetSigningProfile' :: Text
profileName = Text
a} :: GetSigningProfile)

instance Core.AWSRequest GetSigningProfile where
  type
    AWSResponse GetSigningProfile =
      GetSigningProfileResponse
  request :: GetSigningProfile -> Request GetSigningProfile
request = Service -> GetSigningProfile -> Request GetSigningProfile
forall a. ToRequest a => Service -> a -> Request a
Request.get Service
defaultService
  response :: Logger
-> Service
-> Proxy GetSigningProfile
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse GetSigningProfile)))
response =
    (Int
 -> ResponseHeaders
 -> Object
 -> Either String (AWSResponse GetSigningProfile))
-> Logger
-> Service
-> Proxy GetSigningProfile
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse GetSigningProfile)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe SigningProfileStatus
-> Maybe SigningPlatformOverrides
-> Maybe Text
-> Maybe Text
-> Maybe SigningMaterial
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe SigningProfileRevocationRecord
-> Maybe Text
-> Maybe SignatureValidityPeriod
-> Maybe (HashMap Text Text)
-> Maybe (HashMap Text Text)
-> Int
-> GetSigningProfileResponse
GetSigningProfileResponse'
            (Maybe SigningProfileStatus
 -> Maybe SigningPlatformOverrides
 -> Maybe Text
 -> Maybe Text
 -> Maybe SigningMaterial
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe SigningProfileRevocationRecord
 -> Maybe Text
 -> Maybe SignatureValidityPeriod
 -> Maybe (HashMap Text Text)
 -> Maybe (HashMap Text Text)
 -> Int
 -> GetSigningProfileResponse)
-> Either String (Maybe SigningProfileStatus)
-> Either
     String
     (Maybe SigningPlatformOverrides
      -> Maybe Text
      -> Maybe Text
      -> Maybe SigningMaterial
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe SigningProfileStatus)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"status")
            Either
  String
  (Maybe SigningPlatformOverrides
   -> Maybe Text
   -> Maybe Text
   -> Maybe SigningMaterial
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe SigningPlatformOverrides)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe SigningMaterial
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe SigningPlatformOverrides)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"overrides")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe SigningMaterial
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe SigningMaterial
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"platformDisplayName")
            Either
  String
  (Maybe Text
   -> Maybe SigningMaterial
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe SigningMaterial
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"arn")
            Either
  String
  (Maybe SigningMaterial
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe SigningMaterial)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe SigningMaterial)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"signingMaterial")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"profileVersion")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"profileName")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"profileVersionArn")
            Either
  String
  (Maybe Text
   -> Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe SigningProfileRevocationRecord
      -> Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"platformId")
            Either
  String
  (Maybe SigningProfileRevocationRecord
   -> Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe SigningProfileRevocationRecord)
-> Either
     String
     (Maybe Text
      -> Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object
-> Text -> Either String (Maybe SigningProfileRevocationRecord)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"revocationRecord")
            Either
  String
  (Maybe Text
   -> Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe SignatureValidityPeriod
      -> Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"statusReason")
            Either
  String
  (Maybe SignatureValidityPeriod
   -> Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSigningProfileResponse)
-> Either String (Maybe SignatureValidityPeriod)
-> Either
     String
     (Maybe (HashMap Text Text)
      -> Maybe (HashMap Text Text) -> Int -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe SignatureValidityPeriod)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"signatureValidityPeriod")
            Either
  String
  (Maybe (HashMap Text Text)
   -> Maybe (HashMap Text Text) -> Int -> GetSigningProfileResponse)
-> Either String (Maybe (HashMap Text Text))
-> Either
     String
     (Maybe (HashMap Text Text) -> Int -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x Object -> Text -> Either String (Maybe (Maybe (HashMap Text Text)))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"signingParameters"
                            Either String (Maybe (Maybe (HashMap Text Text)))
-> Maybe (HashMap Text Text)
-> Either String (Maybe (HashMap Text Text))
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe (HashMap Text Text)
forall a. Monoid a => a
Prelude.mempty
                        )
            Either
  String
  (Maybe (HashMap Text Text) -> Int -> GetSigningProfileResponse)
-> Either String (Maybe (HashMap Text Text))
-> Either String (Int -> GetSigningProfileResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe (Maybe (HashMap Text Text)))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"tags" Either String (Maybe (Maybe (HashMap Text Text)))
-> Maybe (HashMap Text Text)
-> Either String (Maybe (HashMap Text Text))
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe (HashMap Text Text)
forall a. Monoid a => a
Prelude.mempty)
            Either String (Int -> GetSigningProfileResponse)
-> Either String Int -> Either String GetSigningProfileResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable GetSigningProfile

instance Prelude.NFData GetSigningProfile

instance Core.ToHeaders GetSigningProfile where
  toHeaders :: GetSigningProfile -> ResponseHeaders
toHeaders =
    ResponseHeaders -> GetSigningProfile -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
      ( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Core.ToPath GetSigningProfile where
  toPath :: GetSigningProfile -> ByteString
toPath GetSigningProfile' {Maybe Text
Text
profileName :: Text
profileOwner :: Maybe Text
$sel:profileName:GetSigningProfile' :: GetSigningProfile -> Text
$sel:profileOwner:GetSigningProfile' :: GetSigningProfile -> Maybe Text
..} =
    [ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/signing-profiles/", Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
profileName]

instance Core.ToQuery GetSigningProfile where
  toQuery :: GetSigningProfile -> QueryString
toQuery GetSigningProfile' {Maybe Text
Text
profileName :: Text
profileOwner :: Maybe Text
$sel:profileName:GetSigningProfile' :: GetSigningProfile -> Text
$sel:profileOwner:GetSigningProfile' :: GetSigningProfile -> Maybe Text
..} =
    [QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"profileOwner" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
profileOwner]

-- | /See:/ 'newGetSigningProfileResponse' smart constructor.
data GetSigningProfileResponse = GetSigningProfileResponse'
  { -- | The status of the target signing profile.
    GetSigningProfileResponse -> Maybe SigningProfileStatus
status :: Prelude.Maybe SigningProfileStatus,
    -- | A list of overrides applied by the target signing profile for signing
    -- operations.
    GetSigningProfileResponse -> Maybe SigningPlatformOverrides
overrides :: Prelude.Maybe SigningPlatformOverrides,
    -- | A human-readable name for the signing platform associated with the
    -- signing profile.
    GetSigningProfileResponse -> Maybe Text
platformDisplayName :: Prelude.Maybe Prelude.Text,
    -- | The Amazon Resource Name (ARN) for the signing profile.
    GetSigningProfileResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | The ARN of the certificate that the target profile uses for signing
    -- operations.
    GetSigningProfileResponse -> Maybe SigningMaterial
signingMaterial :: Prelude.Maybe SigningMaterial,
    -- | The current version of the signing profile.
    GetSigningProfileResponse -> Maybe Text
profileVersion :: Prelude.Maybe Prelude.Text,
    -- | The name of the target signing profile.
    GetSigningProfileResponse -> Maybe Text
profileName :: Prelude.Maybe Prelude.Text,
    -- | The signing profile ARN, including the profile version.
    GetSigningProfileResponse -> Maybe Text
profileVersionArn :: Prelude.Maybe Prelude.Text,
    -- | The ID of the platform that is used by the target signing profile.
    GetSigningProfileResponse -> Maybe Text
platformId :: Prelude.Maybe Prelude.Text,
    GetSigningProfileResponse -> Maybe SigningProfileRevocationRecord
revocationRecord :: Prelude.Maybe SigningProfileRevocationRecord,
    -- | Reason for the status of the target signing profile.
    GetSigningProfileResponse -> Maybe Text
statusReason :: Prelude.Maybe Prelude.Text,
    GetSigningProfileResponse -> Maybe SignatureValidityPeriod
signatureValidityPeriod :: Prelude.Maybe SignatureValidityPeriod,
    -- | A map of key-value pairs for signing operations that is attached to the
    -- target signing profile.
    GetSigningProfileResponse -> Maybe (HashMap Text Text)
signingParameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | A list of tags associated with the signing profile.
    GetSigningProfileResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The response's http status code.
    GetSigningProfileResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (GetSigningProfileResponse -> GetSigningProfileResponse -> Bool
(GetSigningProfileResponse -> GetSigningProfileResponse -> Bool)
-> (GetSigningProfileResponse -> GetSigningProfileResponse -> Bool)
-> Eq GetSigningProfileResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSigningProfileResponse -> GetSigningProfileResponse -> Bool
$c/= :: GetSigningProfileResponse -> GetSigningProfileResponse -> Bool
== :: GetSigningProfileResponse -> GetSigningProfileResponse -> Bool
$c== :: GetSigningProfileResponse -> GetSigningProfileResponse -> Bool
Prelude.Eq, ReadPrec [GetSigningProfileResponse]
ReadPrec GetSigningProfileResponse
Int -> ReadS GetSigningProfileResponse
ReadS [GetSigningProfileResponse]
(Int -> ReadS GetSigningProfileResponse)
-> ReadS [GetSigningProfileResponse]
-> ReadPrec GetSigningProfileResponse
-> ReadPrec [GetSigningProfileResponse]
-> Read GetSigningProfileResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSigningProfileResponse]
$creadListPrec :: ReadPrec [GetSigningProfileResponse]
readPrec :: ReadPrec GetSigningProfileResponse
$creadPrec :: ReadPrec GetSigningProfileResponse
readList :: ReadS [GetSigningProfileResponse]
$creadList :: ReadS [GetSigningProfileResponse]
readsPrec :: Int -> ReadS GetSigningProfileResponse
$creadsPrec :: Int -> ReadS GetSigningProfileResponse
Prelude.Read, Int -> GetSigningProfileResponse -> ShowS
[GetSigningProfileResponse] -> ShowS
GetSigningProfileResponse -> String
(Int -> GetSigningProfileResponse -> ShowS)
-> (GetSigningProfileResponse -> String)
-> ([GetSigningProfileResponse] -> ShowS)
-> Show GetSigningProfileResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSigningProfileResponse] -> ShowS
$cshowList :: [GetSigningProfileResponse] -> ShowS
show :: GetSigningProfileResponse -> String
$cshow :: GetSigningProfileResponse -> String
showsPrec :: Int -> GetSigningProfileResponse -> ShowS
$cshowsPrec :: Int -> GetSigningProfileResponse -> ShowS
Prelude.Show, (forall x.
 GetSigningProfileResponse -> Rep GetSigningProfileResponse x)
-> (forall x.
    Rep GetSigningProfileResponse x -> GetSigningProfileResponse)
-> Generic GetSigningProfileResponse
forall x.
Rep GetSigningProfileResponse x -> GetSigningProfileResponse
forall x.
GetSigningProfileResponse -> Rep GetSigningProfileResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSigningProfileResponse x -> GetSigningProfileResponse
$cfrom :: forall x.
GetSigningProfileResponse -> Rep GetSigningProfileResponse x
Prelude.Generic)

-- |
-- Create a value of 'GetSigningProfileResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'status', 'getSigningProfileResponse_status' - The status of the target signing profile.
--
-- 'overrides', 'getSigningProfileResponse_overrides' - A list of overrides applied by the target signing profile for signing
-- operations.
--
-- 'platformDisplayName', 'getSigningProfileResponse_platformDisplayName' - A human-readable name for the signing platform associated with the
-- signing profile.
--
-- 'arn', 'getSigningProfileResponse_arn' - The Amazon Resource Name (ARN) for the signing profile.
--
-- 'signingMaterial', 'getSigningProfileResponse_signingMaterial' - The ARN of the certificate that the target profile uses for signing
-- operations.
--
-- 'profileVersion', 'getSigningProfileResponse_profileVersion' - The current version of the signing profile.
--
-- 'profileName', 'getSigningProfileResponse_profileName' - The name of the target signing profile.
--
-- 'profileVersionArn', 'getSigningProfileResponse_profileVersionArn' - The signing profile ARN, including the profile version.
--
-- 'platformId', 'getSigningProfileResponse_platformId' - The ID of the platform that is used by the target signing profile.
--
-- 'revocationRecord', 'getSigningProfileResponse_revocationRecord' - Undocumented member.
--
-- 'statusReason', 'getSigningProfileResponse_statusReason' - Reason for the status of the target signing profile.
--
-- 'signatureValidityPeriod', 'getSigningProfileResponse_signatureValidityPeriod' - Undocumented member.
--
-- 'signingParameters', 'getSigningProfileResponse_signingParameters' - A map of key-value pairs for signing operations that is attached to the
-- target signing profile.
--
-- 'tags', 'getSigningProfileResponse_tags' - A list of tags associated with the signing profile.
--
-- 'httpStatus', 'getSigningProfileResponse_httpStatus' - The response's http status code.
newGetSigningProfileResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GetSigningProfileResponse
newGetSigningProfileResponse :: Int -> GetSigningProfileResponse
newGetSigningProfileResponse Int
pHttpStatus_ =
  GetSigningProfileResponse' :: Maybe SigningProfileStatus
-> Maybe SigningPlatformOverrides
-> Maybe Text
-> Maybe Text
-> Maybe SigningMaterial
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe SigningProfileRevocationRecord
-> Maybe Text
-> Maybe SignatureValidityPeriod
-> Maybe (HashMap Text Text)
-> Maybe (HashMap Text Text)
-> Int
-> GetSigningProfileResponse
GetSigningProfileResponse'
    { $sel:status:GetSigningProfileResponse' :: Maybe SigningProfileStatus
status =
        Maybe SigningProfileStatus
forall a. Maybe a
Prelude.Nothing,
      $sel:overrides:GetSigningProfileResponse' :: Maybe SigningPlatformOverrides
overrides = Maybe SigningPlatformOverrides
forall a. Maybe a
Prelude.Nothing,
      $sel:platformDisplayName:GetSigningProfileResponse' :: Maybe Text
platformDisplayName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:arn:GetSigningProfileResponse' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:signingMaterial:GetSigningProfileResponse' :: Maybe SigningMaterial
signingMaterial = Maybe SigningMaterial
forall a. Maybe a
Prelude.Nothing,
      $sel:profileVersion:GetSigningProfileResponse' :: Maybe Text
profileVersion = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:profileName:GetSigningProfileResponse' :: Maybe Text
profileName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:profileVersionArn:GetSigningProfileResponse' :: Maybe Text
profileVersionArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:platformId:GetSigningProfileResponse' :: Maybe Text
platformId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:revocationRecord:GetSigningProfileResponse' :: Maybe SigningProfileRevocationRecord
revocationRecord = Maybe SigningProfileRevocationRecord
forall a. Maybe a
Prelude.Nothing,
      $sel:statusReason:GetSigningProfileResponse' :: Maybe Text
statusReason = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:signatureValidityPeriod:GetSigningProfileResponse' :: Maybe SignatureValidityPeriod
signatureValidityPeriod = Maybe SignatureValidityPeriod
forall a. Maybe a
Prelude.Nothing,
      $sel:signingParameters:GetSigningProfileResponse' :: Maybe (HashMap Text Text)
signingParameters = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing,
      $sel:tags:GetSigningProfileResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:GetSigningProfileResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The status of the target signing profile.
getSigningProfileResponse_status :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe SigningProfileStatus)
getSigningProfileResponse_status :: (Maybe SigningProfileStatus -> f (Maybe SigningProfileStatus))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_status = (GetSigningProfileResponse -> Maybe SigningProfileStatus)
-> (GetSigningProfileResponse
    -> Maybe SigningProfileStatus -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe SigningProfileStatus)
     (Maybe SigningProfileStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe SigningProfileStatus
status :: Maybe SigningProfileStatus
$sel:status:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe SigningProfileStatus
status} -> Maybe SigningProfileStatus
status) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe SigningProfileStatus
a -> GetSigningProfileResponse
s {$sel:status:GetSigningProfileResponse' :: Maybe SigningProfileStatus
status = Maybe SigningProfileStatus
a} :: GetSigningProfileResponse)

-- | A list of overrides applied by the target signing profile for signing
-- operations.
getSigningProfileResponse_overrides :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe SigningPlatformOverrides)
getSigningProfileResponse_overrides :: (Maybe SigningPlatformOverrides
 -> f (Maybe SigningPlatformOverrides))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_overrides = (GetSigningProfileResponse -> Maybe SigningPlatformOverrides)
-> (GetSigningProfileResponse
    -> Maybe SigningPlatformOverrides -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe SigningPlatformOverrides)
     (Maybe SigningPlatformOverrides)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe SigningPlatformOverrides
overrides :: Maybe SigningPlatformOverrides
$sel:overrides:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe SigningPlatformOverrides
overrides} -> Maybe SigningPlatformOverrides
overrides) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe SigningPlatformOverrides
a -> GetSigningProfileResponse
s {$sel:overrides:GetSigningProfileResponse' :: Maybe SigningPlatformOverrides
overrides = Maybe SigningPlatformOverrides
a} :: GetSigningProfileResponse)

-- | A human-readable name for the signing platform associated with the
-- signing profile.
getSigningProfileResponse_platformDisplayName :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe Prelude.Text)
getSigningProfileResponse_platformDisplayName :: (Maybe Text -> f (Maybe Text))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_platformDisplayName = (GetSigningProfileResponse -> Maybe Text)
-> (GetSigningProfileResponse
    -> Maybe Text -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe Text
platformDisplayName :: Maybe Text
$sel:platformDisplayName:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe Text
platformDisplayName} -> Maybe Text
platformDisplayName) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe Text
a -> GetSigningProfileResponse
s {$sel:platformDisplayName:GetSigningProfileResponse' :: Maybe Text
platformDisplayName = Maybe Text
a} :: GetSigningProfileResponse)

-- | The Amazon Resource Name (ARN) for the signing profile.
getSigningProfileResponse_arn :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe Prelude.Text)
getSigningProfileResponse_arn :: (Maybe Text -> f (Maybe Text))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_arn = (GetSigningProfileResponse -> Maybe Text)
-> (GetSigningProfileResponse
    -> Maybe Text -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe Text
a -> GetSigningProfileResponse
s {$sel:arn:GetSigningProfileResponse' :: Maybe Text
arn = Maybe Text
a} :: GetSigningProfileResponse)

-- | The ARN of the certificate that the target profile uses for signing
-- operations.
getSigningProfileResponse_signingMaterial :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe SigningMaterial)
getSigningProfileResponse_signingMaterial :: (Maybe SigningMaterial -> f (Maybe SigningMaterial))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_signingMaterial = (GetSigningProfileResponse -> Maybe SigningMaterial)
-> (GetSigningProfileResponse
    -> Maybe SigningMaterial -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe SigningMaterial)
     (Maybe SigningMaterial)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe SigningMaterial
signingMaterial :: Maybe SigningMaterial
$sel:signingMaterial:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe SigningMaterial
signingMaterial} -> Maybe SigningMaterial
signingMaterial) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe SigningMaterial
a -> GetSigningProfileResponse
s {$sel:signingMaterial:GetSigningProfileResponse' :: Maybe SigningMaterial
signingMaterial = Maybe SigningMaterial
a} :: GetSigningProfileResponse)

-- | The current version of the signing profile.
getSigningProfileResponse_profileVersion :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe Prelude.Text)
getSigningProfileResponse_profileVersion :: (Maybe Text -> f (Maybe Text))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_profileVersion = (GetSigningProfileResponse -> Maybe Text)
-> (GetSigningProfileResponse
    -> Maybe Text -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe Text
profileVersion :: Maybe Text
$sel:profileVersion:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe Text
profileVersion} -> Maybe Text
profileVersion) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe Text
a -> GetSigningProfileResponse
s {$sel:profileVersion:GetSigningProfileResponse' :: Maybe Text
profileVersion = Maybe Text
a} :: GetSigningProfileResponse)

-- | The name of the target signing profile.
getSigningProfileResponse_profileName :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe Prelude.Text)
getSigningProfileResponse_profileName :: (Maybe Text -> f (Maybe Text))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_profileName = (GetSigningProfileResponse -> Maybe Text)
-> (GetSigningProfileResponse
    -> Maybe Text -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe Text
profileName :: Maybe Text
$sel:profileName:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe Text
profileName} -> Maybe Text
profileName) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe Text
a -> GetSigningProfileResponse
s {$sel:profileName:GetSigningProfileResponse' :: Maybe Text
profileName = Maybe Text
a} :: GetSigningProfileResponse)

-- | The signing profile ARN, including the profile version.
getSigningProfileResponse_profileVersionArn :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe Prelude.Text)
getSigningProfileResponse_profileVersionArn :: (Maybe Text -> f (Maybe Text))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_profileVersionArn = (GetSigningProfileResponse -> Maybe Text)
-> (GetSigningProfileResponse
    -> Maybe Text -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe Text
profileVersionArn :: Maybe Text
$sel:profileVersionArn:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe Text
profileVersionArn} -> Maybe Text
profileVersionArn) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe Text
a -> GetSigningProfileResponse
s {$sel:profileVersionArn:GetSigningProfileResponse' :: Maybe Text
profileVersionArn = Maybe Text
a} :: GetSigningProfileResponse)

-- | The ID of the platform that is used by the target signing profile.
getSigningProfileResponse_platformId :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe Prelude.Text)
getSigningProfileResponse_platformId :: (Maybe Text -> f (Maybe Text))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_platformId = (GetSigningProfileResponse -> Maybe Text)
-> (GetSigningProfileResponse
    -> Maybe Text -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe Text
platformId :: Maybe Text
$sel:platformId:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe Text
platformId} -> Maybe Text
platformId) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe Text
a -> GetSigningProfileResponse
s {$sel:platformId:GetSigningProfileResponse' :: Maybe Text
platformId = Maybe Text
a} :: GetSigningProfileResponse)

-- | Undocumented member.
getSigningProfileResponse_revocationRecord :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe SigningProfileRevocationRecord)
getSigningProfileResponse_revocationRecord :: (Maybe SigningProfileRevocationRecord
 -> f (Maybe SigningProfileRevocationRecord))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_revocationRecord = (GetSigningProfileResponse -> Maybe SigningProfileRevocationRecord)
-> (GetSigningProfileResponse
    -> Maybe SigningProfileRevocationRecord
    -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe SigningProfileRevocationRecord)
     (Maybe SigningProfileRevocationRecord)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe SigningProfileRevocationRecord
revocationRecord :: Maybe SigningProfileRevocationRecord
$sel:revocationRecord:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe SigningProfileRevocationRecord
revocationRecord} -> Maybe SigningProfileRevocationRecord
revocationRecord) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe SigningProfileRevocationRecord
a -> GetSigningProfileResponse
s {$sel:revocationRecord:GetSigningProfileResponse' :: Maybe SigningProfileRevocationRecord
revocationRecord = Maybe SigningProfileRevocationRecord
a} :: GetSigningProfileResponse)

-- | Reason for the status of the target signing profile.
getSigningProfileResponse_statusReason :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe Prelude.Text)
getSigningProfileResponse_statusReason :: (Maybe Text -> f (Maybe Text))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_statusReason = (GetSigningProfileResponse -> Maybe Text)
-> (GetSigningProfileResponse
    -> Maybe Text -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe Text
statusReason :: Maybe Text
$sel:statusReason:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe Text
statusReason} -> Maybe Text
statusReason) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe Text
a -> GetSigningProfileResponse
s {$sel:statusReason:GetSigningProfileResponse' :: Maybe Text
statusReason = Maybe Text
a} :: GetSigningProfileResponse)

-- | Undocumented member.
getSigningProfileResponse_signatureValidityPeriod :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe SignatureValidityPeriod)
getSigningProfileResponse_signatureValidityPeriod :: (Maybe SignatureValidityPeriod
 -> f (Maybe SignatureValidityPeriod))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_signatureValidityPeriod = (GetSigningProfileResponse -> Maybe SignatureValidityPeriod)
-> (GetSigningProfileResponse
    -> Maybe SignatureValidityPeriod -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe SignatureValidityPeriod)
     (Maybe SignatureValidityPeriod)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe SignatureValidityPeriod
signatureValidityPeriod :: Maybe SignatureValidityPeriod
$sel:signatureValidityPeriod:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe SignatureValidityPeriod
signatureValidityPeriod} -> Maybe SignatureValidityPeriod
signatureValidityPeriod) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe SignatureValidityPeriod
a -> GetSigningProfileResponse
s {$sel:signatureValidityPeriod:GetSigningProfileResponse' :: Maybe SignatureValidityPeriod
signatureValidityPeriod = Maybe SignatureValidityPeriod
a} :: GetSigningProfileResponse)

-- | A map of key-value pairs for signing operations that is attached to the
-- target signing profile.
getSigningProfileResponse_signingParameters :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
getSigningProfileResponse_signingParameters :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_signingParameters = (GetSigningProfileResponse -> Maybe (HashMap Text Text))
-> (GetSigningProfileResponse
    -> Maybe (HashMap Text Text) -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe (HashMap Text Text)
signingParameters :: Maybe (HashMap Text Text)
$sel:signingParameters:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe (HashMap Text Text)
signingParameters} -> Maybe (HashMap Text Text)
signingParameters) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe (HashMap Text Text)
a -> GetSigningProfileResponse
s {$sel:signingParameters:GetSigningProfileResponse' :: Maybe (HashMap Text Text)
signingParameters = Maybe (HashMap Text Text)
a} :: GetSigningProfileResponse) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> GetSigningProfileResponse -> f GetSigningProfileResponse)
-> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
    -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> GetSigningProfileResponse
-> f GetSigningProfileResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
-> Iso
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
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 AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | A list of tags associated with the signing profile.
getSigningProfileResponse_tags :: Lens.Lens' GetSigningProfileResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
getSigningProfileResponse_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_tags = (GetSigningProfileResponse -> Maybe (HashMap Text Text))
-> (GetSigningProfileResponse
    -> Maybe (HashMap Text Text) -> GetSigningProfileResponse)
-> Lens
     GetSigningProfileResponse
     GetSigningProfileResponse
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:GetSigningProfileResponse' :: GetSigningProfileResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Maybe (HashMap Text Text)
a -> GetSigningProfileResponse
s {$sel:tags:GetSigningProfileResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: GetSigningProfileResponse) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> GetSigningProfileResponse -> f GetSigningProfileResponse)
-> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
    -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> GetSigningProfileResponse
-> f GetSigningProfileResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
-> Iso
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
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 AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The response's http status code.
getSigningProfileResponse_httpStatus :: Lens.Lens' GetSigningProfileResponse Prelude.Int
getSigningProfileResponse_httpStatus :: (Int -> f Int)
-> GetSigningProfileResponse -> f GetSigningProfileResponse
getSigningProfileResponse_httpStatus = (GetSigningProfileResponse -> Int)
-> (GetSigningProfileResponse -> Int -> GetSigningProfileResponse)
-> Lens GetSigningProfileResponse GetSigningProfileResponse Int Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningProfileResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetSigningProfileResponse' :: GetSigningProfileResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetSigningProfileResponse
s@GetSigningProfileResponse' {} Int
a -> GetSigningProfileResponse
s {$sel:httpStatus:GetSigningProfileResponse' :: Int
httpStatus = Int
a} :: GetSigningProfileResponse)

instance Prelude.NFData GetSigningProfileResponse