{-# 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.GetSigningPlatform
-- 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 platform.
module Amazonka.Signer.GetSigningPlatform
  ( -- * Creating a Request
    GetSigningPlatform (..),
    newGetSigningPlatform,

    -- * Request Lenses
    getSigningPlatform_platformId,

    -- * Destructuring the Response
    GetSigningPlatformResponse (..),
    newGetSigningPlatformResponse,

    -- * Response Lenses
    getSigningPlatformResponse_category,
    getSigningPlatformResponse_signingConfiguration,
    getSigningPlatformResponse_partner,
    getSigningPlatformResponse_revocationSupported,
    getSigningPlatformResponse_signingImageFormat,
    getSigningPlatformResponse_platformId,
    getSigningPlatformResponse_displayName,
    getSigningPlatformResponse_maxSizeInMB,
    getSigningPlatformResponse_target,
    getSigningPlatformResponse_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:/ 'newGetSigningPlatform' smart constructor.
data GetSigningPlatform = GetSigningPlatform'
  { -- | The ID of the target signing platform.
    GetSigningPlatform -> Text
platformId :: Prelude.Text
  }
  deriving (GetSigningPlatform -> GetSigningPlatform -> Bool
(GetSigningPlatform -> GetSigningPlatform -> Bool)
-> (GetSigningPlatform -> GetSigningPlatform -> Bool)
-> Eq GetSigningPlatform
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSigningPlatform -> GetSigningPlatform -> Bool
$c/= :: GetSigningPlatform -> GetSigningPlatform -> Bool
== :: GetSigningPlatform -> GetSigningPlatform -> Bool
$c== :: GetSigningPlatform -> GetSigningPlatform -> Bool
Prelude.Eq, ReadPrec [GetSigningPlatform]
ReadPrec GetSigningPlatform
Int -> ReadS GetSigningPlatform
ReadS [GetSigningPlatform]
(Int -> ReadS GetSigningPlatform)
-> ReadS [GetSigningPlatform]
-> ReadPrec GetSigningPlatform
-> ReadPrec [GetSigningPlatform]
-> Read GetSigningPlatform
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSigningPlatform]
$creadListPrec :: ReadPrec [GetSigningPlatform]
readPrec :: ReadPrec GetSigningPlatform
$creadPrec :: ReadPrec GetSigningPlatform
readList :: ReadS [GetSigningPlatform]
$creadList :: ReadS [GetSigningPlatform]
readsPrec :: Int -> ReadS GetSigningPlatform
$creadsPrec :: Int -> ReadS GetSigningPlatform
Prelude.Read, Int -> GetSigningPlatform -> ShowS
[GetSigningPlatform] -> ShowS
GetSigningPlatform -> String
(Int -> GetSigningPlatform -> ShowS)
-> (GetSigningPlatform -> String)
-> ([GetSigningPlatform] -> ShowS)
-> Show GetSigningPlatform
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSigningPlatform] -> ShowS
$cshowList :: [GetSigningPlatform] -> ShowS
show :: GetSigningPlatform -> String
$cshow :: GetSigningPlatform -> String
showsPrec :: Int -> GetSigningPlatform -> ShowS
$cshowsPrec :: Int -> GetSigningPlatform -> ShowS
Prelude.Show, (forall x. GetSigningPlatform -> Rep GetSigningPlatform x)
-> (forall x. Rep GetSigningPlatform x -> GetSigningPlatform)
-> Generic GetSigningPlatform
forall x. Rep GetSigningPlatform x -> GetSigningPlatform
forall x. GetSigningPlatform -> Rep GetSigningPlatform x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetSigningPlatform x -> GetSigningPlatform
$cfrom :: forall x. GetSigningPlatform -> Rep GetSigningPlatform x
Prelude.Generic)

-- |
-- Create a value of 'GetSigningPlatform' 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:
--
-- 'platformId', 'getSigningPlatform_platformId' - The ID of the target signing platform.
newGetSigningPlatform ::
  -- | 'platformId'
  Prelude.Text ->
  GetSigningPlatform
newGetSigningPlatform :: Text -> GetSigningPlatform
newGetSigningPlatform Text
pPlatformId_ =
  GetSigningPlatform' :: Text -> GetSigningPlatform
GetSigningPlatform' {$sel:platformId:GetSigningPlatform' :: Text
platformId = Text
pPlatformId_}

-- | The ID of the target signing platform.
getSigningPlatform_platformId :: Lens.Lens' GetSigningPlatform Prelude.Text
getSigningPlatform_platformId :: (Text -> f Text) -> GetSigningPlatform -> f GetSigningPlatform
getSigningPlatform_platformId = (GetSigningPlatform -> Text)
-> (GetSigningPlatform -> Text -> GetSigningPlatform)
-> Lens GetSigningPlatform GetSigningPlatform Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatform' {Text
platformId :: Text
$sel:platformId:GetSigningPlatform' :: GetSigningPlatform -> Text
platformId} -> Text
platformId) (\s :: GetSigningPlatform
s@GetSigningPlatform' {} Text
a -> GetSigningPlatform
s {$sel:platformId:GetSigningPlatform' :: Text
platformId = Text
a} :: GetSigningPlatform)

instance Core.AWSRequest GetSigningPlatform where
  type
    AWSResponse GetSigningPlatform =
      GetSigningPlatformResponse
  request :: GetSigningPlatform -> Request GetSigningPlatform
request = Service -> GetSigningPlatform -> Request GetSigningPlatform
forall a. ToRequest a => Service -> a -> Request a
Request.get Service
defaultService
  response :: Logger
-> Service
-> Proxy GetSigningPlatform
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse GetSigningPlatform)))
response =
    (Int
 -> ResponseHeaders
 -> Object
 -> Either String (AWSResponse GetSigningPlatform))
-> Logger
-> Service
-> Proxy GetSigningPlatform
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse GetSigningPlatform)))
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 Category
-> Maybe SigningConfiguration
-> Maybe Text
-> Maybe Bool
-> Maybe SigningImageFormat
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Int
-> GetSigningPlatformResponse
GetSigningPlatformResponse'
            (Maybe Category
 -> Maybe SigningConfiguration
 -> Maybe Text
 -> Maybe Bool
 -> Maybe SigningImageFormat
 -> Maybe Text
 -> Maybe Text
 -> Maybe Int
 -> Maybe Text
 -> Int
 -> GetSigningPlatformResponse)
-> Either String (Maybe Category)
-> Either
     String
     (Maybe SigningConfiguration
      -> Maybe Text
      -> Maybe Bool
      -> Maybe SigningImageFormat
      -> Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Int
      -> GetSigningPlatformResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe Category)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"category")
            Either
  String
  (Maybe SigningConfiguration
   -> Maybe Text
   -> Maybe Bool
   -> Maybe SigningImageFormat
   -> Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Int
   -> GetSigningPlatformResponse)
-> Either String (Maybe SigningConfiguration)
-> Either
     String
     (Maybe Text
      -> Maybe Bool
      -> Maybe SigningImageFormat
      -> Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Int
      -> GetSigningPlatformResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe SigningConfiguration)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"signingConfiguration")
            Either
  String
  (Maybe Text
   -> Maybe Bool
   -> Maybe SigningImageFormat
   -> Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Int
   -> GetSigningPlatformResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Bool
      -> Maybe SigningImageFormat
      -> Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Int
      -> GetSigningPlatformResponse)
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
"partner")
            Either
  String
  (Maybe Bool
   -> Maybe SigningImageFormat
   -> Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Int
   -> GetSigningPlatformResponse)
-> Either String (Maybe Bool)
-> Either
     String
     (Maybe SigningImageFormat
      -> Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Int
      -> GetSigningPlatformResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"revocationSupported")
            Either
  String
  (Maybe SigningImageFormat
   -> Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Int
   -> GetSigningPlatformResponse)
-> Either String (Maybe SigningImageFormat)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Int
      -> GetSigningPlatformResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe SigningImageFormat)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"signingImageFormat")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Int
   -> GetSigningPlatformResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Int -> Maybe Text -> Int -> GetSigningPlatformResponse)
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 Text
   -> Maybe Int -> Maybe Text -> Int -> GetSigningPlatformResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Int -> Maybe Text -> Int -> GetSigningPlatformResponse)
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
"displayName")
            Either
  String
  (Maybe Int -> Maybe Text -> Int -> GetSigningPlatformResponse)
-> Either String (Maybe Int)
-> Either String (Maybe Text -> Int -> GetSigningPlatformResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Int)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"maxSizeInMB")
            Either String (Maybe Text -> Int -> GetSigningPlatformResponse)
-> Either String (Maybe Text)
-> Either String (Int -> GetSigningPlatformResponse)
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
"target")
            Either String (Int -> GetSigningPlatformResponse)
-> Either String Int -> Either String GetSigningPlatformResponse
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 GetSigningPlatform

instance Prelude.NFData GetSigningPlatform

instance Core.ToHeaders GetSigningPlatform where
  toHeaders :: GetSigningPlatform -> ResponseHeaders
toHeaders =
    ResponseHeaders -> GetSigningPlatform -> 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 GetSigningPlatform where
  toPath :: GetSigningPlatform -> ByteString
toPath GetSigningPlatform' {Text
platformId :: Text
$sel:platformId:GetSigningPlatform' :: GetSigningPlatform -> Text
..} =
    [ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/signing-platforms/", Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
platformId]

instance Core.ToQuery GetSigningPlatform where
  toQuery :: GetSigningPlatform -> QueryString
toQuery = QueryString -> GetSigningPlatform -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newGetSigningPlatformResponse' smart constructor.
data GetSigningPlatformResponse = GetSigningPlatformResponse'
  { -- | The category type of the target signing platform.
    GetSigningPlatformResponse -> Maybe Category
category :: Prelude.Maybe Category,
    -- | A list of configurations applied to the target platform at signing.
    GetSigningPlatformResponse -> Maybe SigningConfiguration
signingConfiguration :: Prelude.Maybe SigningConfiguration,
    -- | A list of partner entities that use the target signing platform.
    GetSigningPlatformResponse -> Maybe Text
partner :: Prelude.Maybe Prelude.Text,
    -- | A flag indicating whether signatures generated for the signing platform
    -- can be revoked.
    GetSigningPlatformResponse -> Maybe Bool
revocationSupported :: Prelude.Maybe Prelude.Bool,
    -- | The format of the target platform\'s signing image.
    GetSigningPlatformResponse -> Maybe SigningImageFormat
signingImageFormat :: Prelude.Maybe SigningImageFormat,
    -- | The ID of the target signing platform.
    GetSigningPlatformResponse -> Maybe Text
platformId :: Prelude.Maybe Prelude.Text,
    -- | The display name of the target signing platform.
    GetSigningPlatformResponse -> Maybe Text
displayName :: Prelude.Maybe Prelude.Text,
    -- | The maximum size (in MB) of the payload that can be signed by the target
    -- platform.
    GetSigningPlatformResponse -> Maybe Int
maxSizeInMB :: Prelude.Maybe Prelude.Int,
    -- | The validation template that is used by the target signing platform.
    GetSigningPlatformResponse -> Maybe Text
target :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    GetSigningPlatformResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (GetSigningPlatformResponse -> GetSigningPlatformResponse -> Bool
(GetSigningPlatformResponse -> GetSigningPlatformResponse -> Bool)
-> (GetSigningPlatformResponse
    -> GetSigningPlatformResponse -> Bool)
-> Eq GetSigningPlatformResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSigningPlatformResponse -> GetSigningPlatformResponse -> Bool
$c/= :: GetSigningPlatformResponse -> GetSigningPlatformResponse -> Bool
== :: GetSigningPlatformResponse -> GetSigningPlatformResponse -> Bool
$c== :: GetSigningPlatformResponse -> GetSigningPlatformResponse -> Bool
Prelude.Eq, ReadPrec [GetSigningPlatformResponse]
ReadPrec GetSigningPlatformResponse
Int -> ReadS GetSigningPlatformResponse
ReadS [GetSigningPlatformResponse]
(Int -> ReadS GetSigningPlatformResponse)
-> ReadS [GetSigningPlatformResponse]
-> ReadPrec GetSigningPlatformResponse
-> ReadPrec [GetSigningPlatformResponse]
-> Read GetSigningPlatformResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSigningPlatformResponse]
$creadListPrec :: ReadPrec [GetSigningPlatformResponse]
readPrec :: ReadPrec GetSigningPlatformResponse
$creadPrec :: ReadPrec GetSigningPlatformResponse
readList :: ReadS [GetSigningPlatformResponse]
$creadList :: ReadS [GetSigningPlatformResponse]
readsPrec :: Int -> ReadS GetSigningPlatformResponse
$creadsPrec :: Int -> ReadS GetSigningPlatformResponse
Prelude.Read, Int -> GetSigningPlatformResponse -> ShowS
[GetSigningPlatformResponse] -> ShowS
GetSigningPlatformResponse -> String
(Int -> GetSigningPlatformResponse -> ShowS)
-> (GetSigningPlatformResponse -> String)
-> ([GetSigningPlatformResponse] -> ShowS)
-> Show GetSigningPlatformResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSigningPlatformResponse] -> ShowS
$cshowList :: [GetSigningPlatformResponse] -> ShowS
show :: GetSigningPlatformResponse -> String
$cshow :: GetSigningPlatformResponse -> String
showsPrec :: Int -> GetSigningPlatformResponse -> ShowS
$cshowsPrec :: Int -> GetSigningPlatformResponse -> ShowS
Prelude.Show, (forall x.
 GetSigningPlatformResponse -> Rep GetSigningPlatformResponse x)
-> (forall x.
    Rep GetSigningPlatformResponse x -> GetSigningPlatformResponse)
-> Generic GetSigningPlatformResponse
forall x.
Rep GetSigningPlatformResponse x -> GetSigningPlatformResponse
forall x.
GetSigningPlatformResponse -> Rep GetSigningPlatformResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSigningPlatformResponse x -> GetSigningPlatformResponse
$cfrom :: forall x.
GetSigningPlatformResponse -> Rep GetSigningPlatformResponse x
Prelude.Generic)

-- |
-- Create a value of 'GetSigningPlatformResponse' 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:
--
-- 'category', 'getSigningPlatformResponse_category' - The category type of the target signing platform.
--
-- 'signingConfiguration', 'getSigningPlatformResponse_signingConfiguration' - A list of configurations applied to the target platform at signing.
--
-- 'partner', 'getSigningPlatformResponse_partner' - A list of partner entities that use the target signing platform.
--
-- 'revocationSupported', 'getSigningPlatformResponse_revocationSupported' - A flag indicating whether signatures generated for the signing platform
-- can be revoked.
--
-- 'signingImageFormat', 'getSigningPlatformResponse_signingImageFormat' - The format of the target platform\'s signing image.
--
-- 'platformId', 'getSigningPlatformResponse_platformId' - The ID of the target signing platform.
--
-- 'displayName', 'getSigningPlatformResponse_displayName' - The display name of the target signing platform.
--
-- 'maxSizeInMB', 'getSigningPlatformResponse_maxSizeInMB' - The maximum size (in MB) of the payload that can be signed by the target
-- platform.
--
-- 'target', 'getSigningPlatformResponse_target' - The validation template that is used by the target signing platform.
--
-- 'httpStatus', 'getSigningPlatformResponse_httpStatus' - The response's http status code.
newGetSigningPlatformResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GetSigningPlatformResponse
newGetSigningPlatformResponse :: Int -> GetSigningPlatformResponse
newGetSigningPlatformResponse Int
pHttpStatus_ =
  GetSigningPlatformResponse' :: Maybe Category
-> Maybe SigningConfiguration
-> Maybe Text
-> Maybe Bool
-> Maybe SigningImageFormat
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Int
-> GetSigningPlatformResponse
GetSigningPlatformResponse'
    { $sel:category:GetSigningPlatformResponse' :: Maybe Category
category =
        Maybe Category
forall a. Maybe a
Prelude.Nothing,
      $sel:signingConfiguration:GetSigningPlatformResponse' :: Maybe SigningConfiguration
signingConfiguration = Maybe SigningConfiguration
forall a. Maybe a
Prelude.Nothing,
      $sel:partner:GetSigningPlatformResponse' :: Maybe Text
partner = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:revocationSupported:GetSigningPlatformResponse' :: Maybe Bool
revocationSupported = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
      $sel:signingImageFormat:GetSigningPlatformResponse' :: Maybe SigningImageFormat
signingImageFormat = Maybe SigningImageFormat
forall a. Maybe a
Prelude.Nothing,
      $sel:platformId:GetSigningPlatformResponse' :: Maybe Text
platformId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:displayName:GetSigningPlatformResponse' :: Maybe Text
displayName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:maxSizeInMB:GetSigningPlatformResponse' :: Maybe Int
maxSizeInMB = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:target:GetSigningPlatformResponse' :: Maybe Text
target = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:GetSigningPlatformResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The category type of the target signing platform.
getSigningPlatformResponse_category :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe Category)
getSigningPlatformResponse_category :: (Maybe Category -> f (Maybe Category))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_category = (GetSigningPlatformResponse -> Maybe Category)
-> (GetSigningPlatformResponse
    -> Maybe Category -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe Category)
     (Maybe Category)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe Category
category :: Maybe Category
$sel:category:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe Category
category} -> Maybe Category
category) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe Category
a -> GetSigningPlatformResponse
s {$sel:category:GetSigningPlatformResponse' :: Maybe Category
category = Maybe Category
a} :: GetSigningPlatformResponse)

-- | A list of configurations applied to the target platform at signing.
getSigningPlatformResponse_signingConfiguration :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe SigningConfiguration)
getSigningPlatformResponse_signingConfiguration :: (Maybe SigningConfiguration -> f (Maybe SigningConfiguration))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_signingConfiguration = (GetSigningPlatformResponse -> Maybe SigningConfiguration)
-> (GetSigningPlatformResponse
    -> Maybe SigningConfiguration -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe SigningConfiguration)
     (Maybe SigningConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe SigningConfiguration
signingConfiguration :: Maybe SigningConfiguration
$sel:signingConfiguration:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe SigningConfiguration
signingConfiguration} -> Maybe SigningConfiguration
signingConfiguration) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe SigningConfiguration
a -> GetSigningPlatformResponse
s {$sel:signingConfiguration:GetSigningPlatformResponse' :: Maybe SigningConfiguration
signingConfiguration = Maybe SigningConfiguration
a} :: GetSigningPlatformResponse)

-- | A list of partner entities that use the target signing platform.
getSigningPlatformResponse_partner :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe Prelude.Text)
getSigningPlatformResponse_partner :: (Maybe Text -> f (Maybe Text))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_partner = (GetSigningPlatformResponse -> Maybe Text)
-> (GetSigningPlatformResponse
    -> Maybe Text -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe Text
partner :: Maybe Text
$sel:partner:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe Text
partner} -> Maybe Text
partner) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe Text
a -> GetSigningPlatformResponse
s {$sel:partner:GetSigningPlatformResponse' :: Maybe Text
partner = Maybe Text
a} :: GetSigningPlatformResponse)

-- | A flag indicating whether signatures generated for the signing platform
-- can be revoked.
getSigningPlatformResponse_revocationSupported :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe Prelude.Bool)
getSigningPlatformResponse_revocationSupported :: (Maybe Bool -> f (Maybe Bool))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_revocationSupported = (GetSigningPlatformResponse -> Maybe Bool)
-> (GetSigningPlatformResponse
    -> Maybe Bool -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe Bool
revocationSupported :: Maybe Bool
$sel:revocationSupported:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe Bool
revocationSupported} -> Maybe Bool
revocationSupported) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe Bool
a -> GetSigningPlatformResponse
s {$sel:revocationSupported:GetSigningPlatformResponse' :: Maybe Bool
revocationSupported = Maybe Bool
a} :: GetSigningPlatformResponse)

-- | The format of the target platform\'s signing image.
getSigningPlatformResponse_signingImageFormat :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe SigningImageFormat)
getSigningPlatformResponse_signingImageFormat :: (Maybe SigningImageFormat -> f (Maybe SigningImageFormat))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_signingImageFormat = (GetSigningPlatformResponse -> Maybe SigningImageFormat)
-> (GetSigningPlatformResponse
    -> Maybe SigningImageFormat -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe SigningImageFormat)
     (Maybe SigningImageFormat)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe SigningImageFormat
signingImageFormat :: Maybe SigningImageFormat
$sel:signingImageFormat:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe SigningImageFormat
signingImageFormat} -> Maybe SigningImageFormat
signingImageFormat) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe SigningImageFormat
a -> GetSigningPlatformResponse
s {$sel:signingImageFormat:GetSigningPlatformResponse' :: Maybe SigningImageFormat
signingImageFormat = Maybe SigningImageFormat
a} :: GetSigningPlatformResponse)

-- | The ID of the target signing platform.
getSigningPlatformResponse_platformId :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe Prelude.Text)
getSigningPlatformResponse_platformId :: (Maybe Text -> f (Maybe Text))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_platformId = (GetSigningPlatformResponse -> Maybe Text)
-> (GetSigningPlatformResponse
    -> Maybe Text -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe Text
platformId :: Maybe Text
$sel:platformId:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe Text
platformId} -> Maybe Text
platformId) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe Text
a -> GetSigningPlatformResponse
s {$sel:platformId:GetSigningPlatformResponse' :: Maybe Text
platformId = Maybe Text
a} :: GetSigningPlatformResponse)

-- | The display name of the target signing platform.
getSigningPlatformResponse_displayName :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe Prelude.Text)
getSigningPlatformResponse_displayName :: (Maybe Text -> f (Maybe Text))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_displayName = (GetSigningPlatformResponse -> Maybe Text)
-> (GetSigningPlatformResponse
    -> Maybe Text -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe Text
displayName :: Maybe Text
$sel:displayName:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe Text
displayName} -> Maybe Text
displayName) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe Text
a -> GetSigningPlatformResponse
s {$sel:displayName:GetSigningPlatformResponse' :: Maybe Text
displayName = Maybe Text
a} :: GetSigningPlatformResponse)

-- | The maximum size (in MB) of the payload that can be signed by the target
-- platform.
getSigningPlatformResponse_maxSizeInMB :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe Prelude.Int)
getSigningPlatformResponse_maxSizeInMB :: (Maybe Int -> f (Maybe Int))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_maxSizeInMB = (GetSigningPlatformResponse -> Maybe Int)
-> (GetSigningPlatformResponse
    -> Maybe Int -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe Int
maxSizeInMB :: Maybe Int
$sel:maxSizeInMB:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe Int
maxSizeInMB} -> Maybe Int
maxSizeInMB) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe Int
a -> GetSigningPlatformResponse
s {$sel:maxSizeInMB:GetSigningPlatformResponse' :: Maybe Int
maxSizeInMB = Maybe Int
a} :: GetSigningPlatformResponse)

-- | The validation template that is used by the target signing platform.
getSigningPlatformResponse_target :: Lens.Lens' GetSigningPlatformResponse (Prelude.Maybe Prelude.Text)
getSigningPlatformResponse_target :: (Maybe Text -> f (Maybe Text))
-> GetSigningPlatformResponse -> f GetSigningPlatformResponse
getSigningPlatformResponse_target = (GetSigningPlatformResponse -> Maybe Text)
-> (GetSigningPlatformResponse
    -> Maybe Text -> GetSigningPlatformResponse)
-> Lens
     GetSigningPlatformResponse
     GetSigningPlatformResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSigningPlatformResponse' {Maybe Text
target :: Maybe Text
$sel:target:GetSigningPlatformResponse' :: GetSigningPlatformResponse -> Maybe Text
target} -> Maybe Text
target) (\s :: GetSigningPlatformResponse
s@GetSigningPlatformResponse' {} Maybe Text
a -> GetSigningPlatformResponse
s {$sel:target:GetSigningPlatformResponse' :: Maybe Text
target = Maybe Text
a} :: GetSigningPlatformResponse)

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

instance Prelude.NFData GetSigningPlatformResponse