{-# 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.AppConfig.GetExtension
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns information about an AppConfig extension.
module Amazonka.AppConfig.GetExtension
  ( -- * Creating a Request
    GetExtension (..),
    newGetExtension,

    -- * Request Lenses
    getExtension_versionNumber,
    getExtension_extensionIdentifier,

    -- * Destructuring the Response
    Extension (..),
    newExtension,

    -- * Response Lenses
    extension_actions,
    extension_arn,
    extension_description,
    extension_id,
    extension_name,
    extension_parameters,
    extension_versionNumber,
  )
where

import Amazonka.AppConfig.Types
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

-- | /See:/ 'newGetExtension' smart constructor.
data GetExtension = GetExtension'
  { -- | The extension version number. If no version number was defined,
    -- AppConfig uses the highest version.
    GetExtension -> Maybe Int
versionNumber :: Prelude.Maybe Prelude.Int,
    -- | The name, the ID, or the Amazon Resource Name (ARN) of the extension.
    GetExtension -> Text
extensionIdentifier :: Prelude.Text
  }
  deriving (GetExtension -> GetExtension -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetExtension -> GetExtension -> Bool
$c/= :: GetExtension -> GetExtension -> Bool
== :: GetExtension -> GetExtension -> Bool
$c== :: GetExtension -> GetExtension -> Bool
Prelude.Eq, ReadPrec [GetExtension]
ReadPrec GetExtension
Int -> ReadS GetExtension
ReadS [GetExtension]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetExtension]
$creadListPrec :: ReadPrec [GetExtension]
readPrec :: ReadPrec GetExtension
$creadPrec :: ReadPrec GetExtension
readList :: ReadS [GetExtension]
$creadList :: ReadS [GetExtension]
readsPrec :: Int -> ReadS GetExtension
$creadsPrec :: Int -> ReadS GetExtension
Prelude.Read, Int -> GetExtension -> ShowS
[GetExtension] -> ShowS
GetExtension -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetExtension] -> ShowS
$cshowList :: [GetExtension] -> ShowS
show :: GetExtension -> String
$cshow :: GetExtension -> String
showsPrec :: Int -> GetExtension -> ShowS
$cshowsPrec :: Int -> GetExtension -> ShowS
Prelude.Show, forall x. Rep GetExtension x -> GetExtension
forall x. GetExtension -> Rep GetExtension x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetExtension x -> GetExtension
$cfrom :: forall x. GetExtension -> Rep GetExtension x
Prelude.Generic)

-- |
-- Create a value of 'GetExtension' 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:
--
-- 'versionNumber', 'getExtension_versionNumber' - The extension version number. If no version number was defined,
-- AppConfig uses the highest version.
--
-- 'extensionIdentifier', 'getExtension_extensionIdentifier' - The name, the ID, or the Amazon Resource Name (ARN) of the extension.
newGetExtension ::
  -- | 'extensionIdentifier'
  Prelude.Text ->
  GetExtension
newGetExtension :: Text -> GetExtension
newGetExtension Text
pExtensionIdentifier_ =
  GetExtension'
    { $sel:versionNumber:GetExtension' :: Maybe Int
versionNumber = forall a. Maybe a
Prelude.Nothing,
      $sel:extensionIdentifier:GetExtension' :: Text
extensionIdentifier = Text
pExtensionIdentifier_
    }

-- | The extension version number. If no version number was defined,
-- AppConfig uses the highest version.
getExtension_versionNumber :: Lens.Lens' GetExtension (Prelude.Maybe Prelude.Int)
getExtension_versionNumber :: Lens' GetExtension (Maybe Int)
getExtension_versionNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExtension' {Maybe Int
versionNumber :: Maybe Int
$sel:versionNumber:GetExtension' :: GetExtension -> Maybe Int
versionNumber} -> Maybe Int
versionNumber) (\s :: GetExtension
s@GetExtension' {} Maybe Int
a -> GetExtension
s {$sel:versionNumber:GetExtension' :: Maybe Int
versionNumber = Maybe Int
a} :: GetExtension)

-- | The name, the ID, or the Amazon Resource Name (ARN) of the extension.
getExtension_extensionIdentifier :: Lens.Lens' GetExtension Prelude.Text
getExtension_extensionIdentifier :: Lens' GetExtension Text
getExtension_extensionIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExtension' {Text
extensionIdentifier :: Text
$sel:extensionIdentifier:GetExtension' :: GetExtension -> Text
extensionIdentifier} -> Text
extensionIdentifier) (\s :: GetExtension
s@GetExtension' {} Text
a -> GetExtension
s {$sel:extensionIdentifier:GetExtension' :: Text
extensionIdentifier = Text
a} :: GetExtension)

instance Core.AWSRequest GetExtension where
  type AWSResponse GetExtension = Extension
  request :: (Service -> Service) -> GetExtension -> Request GetExtension
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 GetExtension
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetExtension)))
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 -> forall a. FromJSON a => Object -> Either String a
Data.eitherParseJSON Object
x)

instance Prelude.Hashable GetExtension where
  hashWithSalt :: Int -> GetExtension -> Int
hashWithSalt Int
_salt GetExtension' {Maybe Int
Text
extensionIdentifier :: Text
versionNumber :: Maybe Int
$sel:extensionIdentifier:GetExtension' :: GetExtension -> Text
$sel:versionNumber:GetExtension' :: GetExtension -> Maybe Int
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
versionNumber
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
extensionIdentifier

instance Prelude.NFData GetExtension where
  rnf :: GetExtension -> ()
rnf GetExtension' {Maybe Int
Text
extensionIdentifier :: Text
versionNumber :: Maybe Int
$sel:extensionIdentifier:GetExtension' :: GetExtension -> Text
$sel:versionNumber:GetExtension' :: GetExtension -> Maybe Int
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
versionNumber
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
extensionIdentifier

instance Data.ToHeaders GetExtension where
  toHeaders :: GetExtension -> 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 GetExtension where
  toPath :: GetExtension -> ByteString
toPath GetExtension' {Maybe Int
Text
extensionIdentifier :: Text
versionNumber :: Maybe Int
$sel:extensionIdentifier:GetExtension' :: GetExtension -> Text
$sel:versionNumber:GetExtension' :: GetExtension -> Maybe Int
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/extensions/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
extensionIdentifier]

instance Data.ToQuery GetExtension where
  toQuery :: GetExtension -> QueryString
toQuery GetExtension' {Maybe Int
Text
extensionIdentifier :: Text
versionNumber :: Maybe Int
$sel:extensionIdentifier:GetExtension' :: GetExtension -> Text
$sel:versionNumber:GetExtension' :: GetExtension -> Maybe Int
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"version_number" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
versionNumber]