{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.AppConfig.GetExtensionAssociation
(
GetExtensionAssociation (..),
newGetExtensionAssociation,
getExtensionAssociation_extensionAssociationId,
ExtensionAssociation (..),
newExtensionAssociation,
extensionAssociation_arn,
extensionAssociation_extensionArn,
extensionAssociation_extensionVersionNumber,
extensionAssociation_id,
extensionAssociation_parameters,
extensionAssociation_resourceArn,
)
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
data GetExtensionAssociation = GetExtensionAssociation'
{
GetExtensionAssociation -> Text
extensionAssociationId :: Prelude.Text
}
deriving (GetExtensionAssociation -> GetExtensionAssociation -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetExtensionAssociation -> GetExtensionAssociation -> Bool
$c/= :: GetExtensionAssociation -> GetExtensionAssociation -> Bool
== :: GetExtensionAssociation -> GetExtensionAssociation -> Bool
$c== :: GetExtensionAssociation -> GetExtensionAssociation -> Bool
Prelude.Eq, ReadPrec [GetExtensionAssociation]
ReadPrec GetExtensionAssociation
Int -> ReadS GetExtensionAssociation
ReadS [GetExtensionAssociation]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetExtensionAssociation]
$creadListPrec :: ReadPrec [GetExtensionAssociation]
readPrec :: ReadPrec GetExtensionAssociation
$creadPrec :: ReadPrec GetExtensionAssociation
readList :: ReadS [GetExtensionAssociation]
$creadList :: ReadS [GetExtensionAssociation]
readsPrec :: Int -> ReadS GetExtensionAssociation
$creadsPrec :: Int -> ReadS GetExtensionAssociation
Prelude.Read, Int -> GetExtensionAssociation -> ShowS
[GetExtensionAssociation] -> ShowS
GetExtensionAssociation -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetExtensionAssociation] -> ShowS
$cshowList :: [GetExtensionAssociation] -> ShowS
show :: GetExtensionAssociation -> String
$cshow :: GetExtensionAssociation -> String
showsPrec :: Int -> GetExtensionAssociation -> ShowS
$cshowsPrec :: Int -> GetExtensionAssociation -> ShowS
Prelude.Show, forall x. Rep GetExtensionAssociation x -> GetExtensionAssociation
forall x. GetExtensionAssociation -> Rep GetExtensionAssociation x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetExtensionAssociation x -> GetExtensionAssociation
$cfrom :: forall x. GetExtensionAssociation -> Rep GetExtensionAssociation x
Prelude.Generic)
newGetExtensionAssociation ::
Prelude.Text ->
GetExtensionAssociation
newGetExtensionAssociation :: Text -> GetExtensionAssociation
newGetExtensionAssociation Text
pExtensionAssociationId_ =
GetExtensionAssociation'
{ $sel:extensionAssociationId:GetExtensionAssociation' :: Text
extensionAssociationId =
Text
pExtensionAssociationId_
}
getExtensionAssociation_extensionAssociationId :: Lens.Lens' GetExtensionAssociation Prelude.Text
getExtensionAssociation_extensionAssociationId :: Lens' GetExtensionAssociation Text
getExtensionAssociation_extensionAssociationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExtensionAssociation' {Text
extensionAssociationId :: Text
$sel:extensionAssociationId:GetExtensionAssociation' :: GetExtensionAssociation -> Text
extensionAssociationId} -> Text
extensionAssociationId) (\s :: GetExtensionAssociation
s@GetExtensionAssociation' {} Text
a -> GetExtensionAssociation
s {$sel:extensionAssociationId:GetExtensionAssociation' :: Text
extensionAssociationId = Text
a} :: GetExtensionAssociation)
instance Core.AWSRequest GetExtensionAssociation where
type
AWSResponse GetExtensionAssociation =
ExtensionAssociation
request :: (Service -> Service)
-> GetExtensionAssociation -> Request GetExtensionAssociation
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 GetExtensionAssociation
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetExtensionAssociation)))
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 GetExtensionAssociation where
hashWithSalt :: Int -> GetExtensionAssociation -> Int
hashWithSalt Int
_salt GetExtensionAssociation' {Text
extensionAssociationId :: Text
$sel:extensionAssociationId:GetExtensionAssociation' :: GetExtensionAssociation -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
extensionAssociationId
instance Prelude.NFData GetExtensionAssociation where
rnf :: GetExtensionAssociation -> ()
rnf GetExtensionAssociation' {Text
extensionAssociationId :: Text
$sel:extensionAssociationId:GetExtensionAssociation' :: GetExtensionAssociation -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
extensionAssociationId
instance Data.ToHeaders GetExtensionAssociation where
toHeaders :: GetExtensionAssociation -> 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 GetExtensionAssociation where
toPath :: GetExtensionAssociation -> ByteString
toPath GetExtensionAssociation' {Text
extensionAssociationId :: Text
$sel:extensionAssociationId:GetExtensionAssociation' :: GetExtensionAssociation -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/extensionassociations/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
extensionAssociationId
]
instance Data.ToQuery GetExtensionAssociation where
toQuery :: GetExtensionAssociation -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty