{-# 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.LicenseManager.GetLicenseConfiguration
(
GetLicenseConfiguration (..),
newGetLicenseConfiguration,
getLicenseConfiguration_licenseConfigurationArn,
GetLicenseConfigurationResponse (..),
newGetLicenseConfigurationResponse,
getLicenseConfigurationResponse_status,
getLicenseConfigurationResponse_ownerAccountId,
getLicenseConfigurationResponse_consumedLicenseSummaryList,
getLicenseConfigurationResponse_licenseCount,
getLicenseConfigurationResponse_managedResourceSummaryList,
getLicenseConfigurationResponse_name,
getLicenseConfigurationResponse_licenseCountHardLimit,
getLicenseConfigurationResponse_disassociateWhenNotFound,
getLicenseConfigurationResponse_productInformationList,
getLicenseConfigurationResponse_licenseCountingType,
getLicenseConfigurationResponse_automatedDiscoveryInformation,
getLicenseConfigurationResponse_consumedLicenses,
getLicenseConfigurationResponse_licenseRules,
getLicenseConfigurationResponse_licenseConfigurationId,
getLicenseConfigurationResponse_description,
getLicenseConfigurationResponse_licenseConfigurationArn,
getLicenseConfigurationResponse_tags,
getLicenseConfigurationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import Amazonka.LicenseManager.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetLicenseConfiguration = GetLicenseConfiguration'
{
GetLicenseConfiguration -> Text
licenseConfigurationArn :: Prelude.Text
}
deriving (GetLicenseConfiguration -> GetLicenseConfiguration -> Bool
(GetLicenseConfiguration -> GetLicenseConfiguration -> Bool)
-> (GetLicenseConfiguration -> GetLicenseConfiguration -> Bool)
-> Eq GetLicenseConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetLicenseConfiguration -> GetLicenseConfiguration -> Bool
$c/= :: GetLicenseConfiguration -> GetLicenseConfiguration -> Bool
== :: GetLicenseConfiguration -> GetLicenseConfiguration -> Bool
$c== :: GetLicenseConfiguration -> GetLicenseConfiguration -> Bool
Prelude.Eq, ReadPrec [GetLicenseConfiguration]
ReadPrec GetLicenseConfiguration
Int -> ReadS GetLicenseConfiguration
ReadS [GetLicenseConfiguration]
(Int -> ReadS GetLicenseConfiguration)
-> ReadS [GetLicenseConfiguration]
-> ReadPrec GetLicenseConfiguration
-> ReadPrec [GetLicenseConfiguration]
-> Read GetLicenseConfiguration
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetLicenseConfiguration]
$creadListPrec :: ReadPrec [GetLicenseConfiguration]
readPrec :: ReadPrec GetLicenseConfiguration
$creadPrec :: ReadPrec GetLicenseConfiguration
readList :: ReadS [GetLicenseConfiguration]
$creadList :: ReadS [GetLicenseConfiguration]
readsPrec :: Int -> ReadS GetLicenseConfiguration
$creadsPrec :: Int -> ReadS GetLicenseConfiguration
Prelude.Read, Int -> GetLicenseConfiguration -> ShowS
[GetLicenseConfiguration] -> ShowS
GetLicenseConfiguration -> String
(Int -> GetLicenseConfiguration -> ShowS)
-> (GetLicenseConfiguration -> String)
-> ([GetLicenseConfiguration] -> ShowS)
-> Show GetLicenseConfiguration
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetLicenseConfiguration] -> ShowS
$cshowList :: [GetLicenseConfiguration] -> ShowS
show :: GetLicenseConfiguration -> String
$cshow :: GetLicenseConfiguration -> String
showsPrec :: Int -> GetLicenseConfiguration -> ShowS
$cshowsPrec :: Int -> GetLicenseConfiguration -> ShowS
Prelude.Show, (forall x.
GetLicenseConfiguration -> Rep GetLicenseConfiguration x)
-> (forall x.
Rep GetLicenseConfiguration x -> GetLicenseConfiguration)
-> Generic GetLicenseConfiguration
forall x. Rep GetLicenseConfiguration x -> GetLicenseConfiguration
forall x. GetLicenseConfiguration -> Rep GetLicenseConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetLicenseConfiguration x -> GetLicenseConfiguration
$cfrom :: forall x. GetLicenseConfiguration -> Rep GetLicenseConfiguration x
Prelude.Generic)
newGetLicenseConfiguration ::
Prelude.Text ->
GetLicenseConfiguration
newGetLicenseConfiguration :: Text -> GetLicenseConfiguration
newGetLicenseConfiguration Text
pLicenseConfigurationArn_ =
GetLicenseConfiguration' :: Text -> GetLicenseConfiguration
GetLicenseConfiguration'
{ $sel:licenseConfigurationArn:GetLicenseConfiguration' :: Text
licenseConfigurationArn =
Text
pLicenseConfigurationArn_
}
getLicenseConfiguration_licenseConfigurationArn :: Lens.Lens' GetLicenseConfiguration Prelude.Text
getLicenseConfiguration_licenseConfigurationArn :: (Text -> f Text)
-> GetLicenseConfiguration -> f GetLicenseConfiguration
getLicenseConfiguration_licenseConfigurationArn = (GetLicenseConfiguration -> Text)
-> (GetLicenseConfiguration -> Text -> GetLicenseConfiguration)
-> Lens GetLicenseConfiguration GetLicenseConfiguration Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfiguration' {Text
licenseConfigurationArn :: Text
$sel:licenseConfigurationArn:GetLicenseConfiguration' :: GetLicenseConfiguration -> Text
licenseConfigurationArn} -> Text
licenseConfigurationArn) (\s :: GetLicenseConfiguration
s@GetLicenseConfiguration' {} Text
a -> GetLicenseConfiguration
s {$sel:licenseConfigurationArn:GetLicenseConfiguration' :: Text
licenseConfigurationArn = Text
a} :: GetLicenseConfiguration)
instance Core.AWSRequest GetLicenseConfiguration where
type
AWSResponse GetLicenseConfiguration =
GetLicenseConfigurationResponse
request :: GetLicenseConfiguration -> Request GetLicenseConfiguration
request = Service
-> GetLicenseConfiguration -> Request GetLicenseConfiguration
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy GetLicenseConfiguration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetLicenseConfiguration)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse GetLicenseConfiguration))
-> Logger
-> Service
-> Proxy GetLicenseConfiguration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetLicenseConfiguration)))
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 Text
-> Maybe Text
-> Maybe [ConsumedLicenseSummary]
-> Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse
GetLicenseConfigurationResponse'
(Maybe Text
-> Maybe Text
-> Maybe [ConsumedLicenseSummary]
-> Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Text
-> Maybe [ConsumedLicenseSummary]
-> Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Functor 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
"Status")
Either
String
(Maybe Text
-> Maybe [ConsumedLicenseSummary]
-> Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe [ConsumedLicenseSummary]
-> Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
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
"OwnerAccountId")
Either
String
(Maybe [ConsumedLicenseSummary]
-> Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe [ConsumedLicenseSummary])
-> Either
String
(Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x Object
-> Text -> Either String (Maybe (Maybe [ConsumedLicenseSummary]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ConsumedLicenseSummaryList"
Either String (Maybe (Maybe [ConsumedLicenseSummary]))
-> Maybe [ConsumedLicenseSummary]
-> Either String (Maybe [ConsumedLicenseSummary])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [ConsumedLicenseSummary]
forall a. Monoid a => a
Prelude.mempty
)
Either
String
(Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Integer)
-> Either
String
(Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"LicenseCount")
Either
String
(Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe [ManagedResourceSummary])
-> Either
String
(Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x Object
-> Text -> Either String (Maybe (Maybe [ManagedResourceSummary]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ManagedResourceSummaryList"
Either String (Maybe (Maybe [ManagedResourceSummary]))
-> Maybe [ManagedResourceSummary]
-> Either String (Maybe [ManagedResourceSummary])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [ManagedResourceSummary]
forall a. Monoid a => a
Prelude.mempty
)
Either
String
(Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
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
"Name")
Either
String
(Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Bool)
-> Either
String
(Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
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
"LicenseCountHardLimit")
Either
String
(Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Bool)
-> Either
String
(Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
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
"DisassociateWhenNotFound")
Either
String
(Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe [ProductInformation])
-> Either
String
(Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x Object
-> Text -> Either String (Maybe (Maybe [ProductInformation]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ProductInformationList"
Either String (Maybe (Maybe [ProductInformation]))
-> Maybe [ProductInformation]
-> Either String (Maybe [ProductInformation])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [ProductInformation]
forall a. Monoid a => a
Prelude.mempty
)
Either
String
(Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe LicenseCountingType)
-> Either
String
(Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe LicenseCountingType)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"LicenseCountingType")
Either
String
(Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe AutomatedDiscoveryInformation)
-> Either
String
(Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object
-> Text -> Either String (Maybe AutomatedDiscoveryInformation)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"AutomatedDiscoveryInformation")
Either
String
(Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Integer)
-> Either
String
(Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ConsumedLicenses")
Either
String
(Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe [Text])
-> Either
String
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe (Maybe [Text]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"LicenseRules" Either String (Maybe (Maybe [Text]))
-> Maybe [Text] -> Either String (Maybe [Text])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [Text]
forall a. Monoid a => a
Prelude.mempty)
Either
String
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
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
"LicenseConfigurationId")
Either
String
(Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Text
-> Maybe [Tag] -> Int -> GetLicenseConfigurationResponse)
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
"Description")
Either
String
(Maybe Text
-> Maybe [Tag] -> Int -> GetLicenseConfigurationResponse)
-> Either String (Maybe Text)
-> Either
String (Maybe [Tag] -> Int -> GetLicenseConfigurationResponse)
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
"LicenseConfigurationArn")
Either
String (Maybe [Tag] -> Int -> GetLicenseConfigurationResponse)
-> Either String (Maybe [Tag])
-> Either String (Int -> GetLicenseConfigurationResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe (Maybe [Tag]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Tags" Either String (Maybe (Maybe [Tag]))
-> Maybe [Tag] -> Either String (Maybe [Tag])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [Tag]
forall a. Monoid a => a
Prelude.mempty)
Either String (Int -> GetLicenseConfigurationResponse)
-> Either String Int
-> Either String GetLicenseConfigurationResponse
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 GetLicenseConfiguration
instance Prelude.NFData GetLicenseConfiguration
instance Core.ToHeaders GetLicenseConfiguration where
toHeaders :: GetLicenseConfiguration -> ResponseHeaders
toHeaders =
ResponseHeaders -> GetLicenseConfiguration -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"AWSLicenseManager.GetLicenseConfiguration" ::
Prelude.ByteString
),
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.ToJSON GetLicenseConfiguration where
toJSON :: GetLicenseConfiguration -> Value
toJSON GetLicenseConfiguration' {Text
licenseConfigurationArn :: Text
$sel:licenseConfigurationArn:GetLicenseConfiguration' :: GetLicenseConfiguration -> Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"LicenseConfigurationArn"
Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
licenseConfigurationArn
)
]
)
instance Core.ToPath GetLicenseConfiguration where
toPath :: GetLicenseConfiguration -> ByteString
toPath = ByteString -> GetLicenseConfiguration -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Core.ToQuery GetLicenseConfiguration where
toQuery :: GetLicenseConfiguration -> QueryString
toQuery = QueryString -> GetLicenseConfiguration -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data GetLicenseConfigurationResponse = GetLicenseConfigurationResponse'
{
GetLicenseConfigurationResponse -> Maybe Text
status :: Prelude.Maybe Prelude.Text,
GetLicenseConfigurationResponse -> Maybe Text
ownerAccountId :: Prelude.Maybe Prelude.Text,
GetLicenseConfigurationResponse -> Maybe [ConsumedLicenseSummary]
consumedLicenseSummaryList :: Prelude.Maybe [ConsumedLicenseSummary],
GetLicenseConfigurationResponse -> Maybe Integer
licenseCount :: Prelude.Maybe Prelude.Integer,
GetLicenseConfigurationResponse -> Maybe [ManagedResourceSummary]
managedResourceSummaryList :: Prelude.Maybe [ManagedResourceSummary],
GetLicenseConfigurationResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
GetLicenseConfigurationResponse -> Maybe Bool
licenseCountHardLimit :: Prelude.Maybe Prelude.Bool,
GetLicenseConfigurationResponse -> Maybe Bool
disassociateWhenNotFound :: Prelude.Maybe Prelude.Bool,
GetLicenseConfigurationResponse -> Maybe [ProductInformation]
productInformationList :: Prelude.Maybe [ProductInformation],
GetLicenseConfigurationResponse -> Maybe LicenseCountingType
licenseCountingType :: Prelude.Maybe LicenseCountingType,
GetLicenseConfigurationResponse
-> Maybe AutomatedDiscoveryInformation
automatedDiscoveryInformation :: Prelude.Maybe AutomatedDiscoveryInformation,
GetLicenseConfigurationResponse -> Maybe Integer
consumedLicenses :: Prelude.Maybe Prelude.Integer,
GetLicenseConfigurationResponse -> Maybe [Text]
licenseRules :: Prelude.Maybe [Prelude.Text],
GetLicenseConfigurationResponse -> Maybe Text
licenseConfigurationId :: Prelude.Maybe Prelude.Text,
GetLicenseConfigurationResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
GetLicenseConfigurationResponse -> Maybe Text
licenseConfigurationArn :: Prelude.Maybe Prelude.Text,
GetLicenseConfigurationResponse -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
GetLicenseConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetLicenseConfigurationResponse
-> GetLicenseConfigurationResponse -> Bool
(GetLicenseConfigurationResponse
-> GetLicenseConfigurationResponse -> Bool)
-> (GetLicenseConfigurationResponse
-> GetLicenseConfigurationResponse -> Bool)
-> Eq GetLicenseConfigurationResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetLicenseConfigurationResponse
-> GetLicenseConfigurationResponse -> Bool
$c/= :: GetLicenseConfigurationResponse
-> GetLicenseConfigurationResponse -> Bool
== :: GetLicenseConfigurationResponse
-> GetLicenseConfigurationResponse -> Bool
$c== :: GetLicenseConfigurationResponse
-> GetLicenseConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [GetLicenseConfigurationResponse]
ReadPrec GetLicenseConfigurationResponse
Int -> ReadS GetLicenseConfigurationResponse
ReadS [GetLicenseConfigurationResponse]
(Int -> ReadS GetLicenseConfigurationResponse)
-> ReadS [GetLicenseConfigurationResponse]
-> ReadPrec GetLicenseConfigurationResponse
-> ReadPrec [GetLicenseConfigurationResponse]
-> Read GetLicenseConfigurationResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetLicenseConfigurationResponse]
$creadListPrec :: ReadPrec [GetLicenseConfigurationResponse]
readPrec :: ReadPrec GetLicenseConfigurationResponse
$creadPrec :: ReadPrec GetLicenseConfigurationResponse
readList :: ReadS [GetLicenseConfigurationResponse]
$creadList :: ReadS [GetLicenseConfigurationResponse]
readsPrec :: Int -> ReadS GetLicenseConfigurationResponse
$creadsPrec :: Int -> ReadS GetLicenseConfigurationResponse
Prelude.Read, Int -> GetLicenseConfigurationResponse -> ShowS
[GetLicenseConfigurationResponse] -> ShowS
GetLicenseConfigurationResponse -> String
(Int -> GetLicenseConfigurationResponse -> ShowS)
-> (GetLicenseConfigurationResponse -> String)
-> ([GetLicenseConfigurationResponse] -> ShowS)
-> Show GetLicenseConfigurationResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetLicenseConfigurationResponse] -> ShowS
$cshowList :: [GetLicenseConfigurationResponse] -> ShowS
show :: GetLicenseConfigurationResponse -> String
$cshow :: GetLicenseConfigurationResponse -> String
showsPrec :: Int -> GetLicenseConfigurationResponse -> ShowS
$cshowsPrec :: Int -> GetLicenseConfigurationResponse -> ShowS
Prelude.Show, (forall x.
GetLicenseConfigurationResponse
-> Rep GetLicenseConfigurationResponse x)
-> (forall x.
Rep GetLicenseConfigurationResponse x
-> GetLicenseConfigurationResponse)
-> Generic GetLicenseConfigurationResponse
forall x.
Rep GetLicenseConfigurationResponse x
-> GetLicenseConfigurationResponse
forall x.
GetLicenseConfigurationResponse
-> Rep GetLicenseConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetLicenseConfigurationResponse x
-> GetLicenseConfigurationResponse
$cfrom :: forall x.
GetLicenseConfigurationResponse
-> Rep GetLicenseConfigurationResponse x
Prelude.Generic)
newGetLicenseConfigurationResponse ::
Prelude.Int ->
GetLicenseConfigurationResponse
newGetLicenseConfigurationResponse :: Int -> GetLicenseConfigurationResponse
newGetLicenseConfigurationResponse Int
pHttpStatus_ =
GetLicenseConfigurationResponse' :: Maybe Text
-> Maybe Text
-> Maybe [ConsumedLicenseSummary]
-> Maybe Integer
-> Maybe [ManagedResourceSummary]
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe [ProductInformation]
-> Maybe LicenseCountingType
-> Maybe AutomatedDiscoveryInformation
-> Maybe Integer
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Tag]
-> Int
-> GetLicenseConfigurationResponse
GetLicenseConfigurationResponse'
{ $sel:status:GetLicenseConfigurationResponse' :: Maybe Text
status =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:ownerAccountId:GetLicenseConfigurationResponse' :: Maybe Text
ownerAccountId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:consumedLicenseSummaryList:GetLicenseConfigurationResponse' :: Maybe [ConsumedLicenseSummary]
consumedLicenseSummaryList =
Maybe [ConsumedLicenseSummary]
forall a. Maybe a
Prelude.Nothing,
$sel:licenseCount:GetLicenseConfigurationResponse' :: Maybe Integer
licenseCount = Maybe Integer
forall a. Maybe a
Prelude.Nothing,
$sel:managedResourceSummaryList:GetLicenseConfigurationResponse' :: Maybe [ManagedResourceSummary]
managedResourceSummaryList =
Maybe [ManagedResourceSummary]
forall a. Maybe a
Prelude.Nothing,
$sel:name:GetLicenseConfigurationResponse' :: Maybe Text
name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:licenseCountHardLimit:GetLicenseConfigurationResponse' :: Maybe Bool
licenseCountHardLimit = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
$sel:disassociateWhenNotFound:GetLicenseConfigurationResponse' :: Maybe Bool
disassociateWhenNotFound = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
$sel:productInformationList:GetLicenseConfigurationResponse' :: Maybe [ProductInformation]
productInformationList = Maybe [ProductInformation]
forall a. Maybe a
Prelude.Nothing,
$sel:licenseCountingType:GetLicenseConfigurationResponse' :: Maybe LicenseCountingType
licenseCountingType = Maybe LicenseCountingType
forall a. Maybe a
Prelude.Nothing,
$sel:automatedDiscoveryInformation:GetLicenseConfigurationResponse' :: Maybe AutomatedDiscoveryInformation
automatedDiscoveryInformation =
Maybe AutomatedDiscoveryInformation
forall a. Maybe a
Prelude.Nothing,
$sel:consumedLicenses:GetLicenseConfigurationResponse' :: Maybe Integer
consumedLicenses = Maybe Integer
forall a. Maybe a
Prelude.Nothing,
$sel:licenseRules:GetLicenseConfigurationResponse' :: Maybe [Text]
licenseRules = Maybe [Text]
forall a. Maybe a
Prelude.Nothing,
$sel:licenseConfigurationId:GetLicenseConfigurationResponse' :: Maybe Text
licenseConfigurationId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:description:GetLicenseConfigurationResponse' :: Maybe Text
description = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:licenseConfigurationArn:GetLicenseConfigurationResponse' :: Maybe Text
licenseConfigurationArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:tags:GetLicenseConfigurationResponse' :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetLicenseConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getLicenseConfigurationResponse_status :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Text)
getLicenseConfigurationResponse_status :: (Maybe Text -> f (Maybe Text))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_status = (GetLicenseConfigurationResponse -> Maybe Text)
-> (GetLicenseConfigurationResponse
-> Maybe Text -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Text
status :: Maybe Text
$sel:status:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Text
status} -> Maybe Text
status) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Text
a -> GetLicenseConfigurationResponse
s {$sel:status:GetLicenseConfigurationResponse' :: Maybe Text
status = Maybe Text
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_ownerAccountId :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Text)
getLicenseConfigurationResponse_ownerAccountId :: (Maybe Text -> f (Maybe Text))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_ownerAccountId = (GetLicenseConfigurationResponse -> Maybe Text)
-> (GetLicenseConfigurationResponse
-> Maybe Text -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Text
ownerAccountId :: Maybe Text
$sel:ownerAccountId:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Text
ownerAccountId} -> Maybe Text
ownerAccountId) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Text
a -> GetLicenseConfigurationResponse
s {$sel:ownerAccountId:GetLicenseConfigurationResponse' :: Maybe Text
ownerAccountId = Maybe Text
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_consumedLicenseSummaryList :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe [ConsumedLicenseSummary])
getLicenseConfigurationResponse_consumedLicenseSummaryList :: (Maybe [ConsumedLicenseSummary]
-> f (Maybe [ConsumedLicenseSummary]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_consumedLicenseSummaryList = (GetLicenseConfigurationResponse -> Maybe [ConsumedLicenseSummary])
-> (GetLicenseConfigurationResponse
-> Maybe [ConsumedLicenseSummary]
-> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe [ConsumedLicenseSummary])
(Maybe [ConsumedLicenseSummary])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe [ConsumedLicenseSummary]
consumedLicenseSummaryList :: Maybe [ConsumedLicenseSummary]
$sel:consumedLicenseSummaryList:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe [ConsumedLicenseSummary]
consumedLicenseSummaryList} -> Maybe [ConsumedLicenseSummary]
consumedLicenseSummaryList) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe [ConsumedLicenseSummary]
a -> GetLicenseConfigurationResponse
s {$sel:consumedLicenseSummaryList:GetLicenseConfigurationResponse' :: Maybe [ConsumedLicenseSummary]
consumedLicenseSummaryList = Maybe [ConsumedLicenseSummary]
a} :: GetLicenseConfigurationResponse) ((Maybe [ConsumedLicenseSummary]
-> f (Maybe [ConsumedLicenseSummary]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse)
-> ((Maybe [ConsumedLicenseSummary]
-> f (Maybe [ConsumedLicenseSummary]))
-> Maybe [ConsumedLicenseSummary]
-> f (Maybe [ConsumedLicenseSummary]))
-> (Maybe [ConsumedLicenseSummary]
-> f (Maybe [ConsumedLicenseSummary]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
[ConsumedLicenseSummary]
[ConsumedLicenseSummary]
[ConsumedLicenseSummary]
[ConsumedLicenseSummary]
-> Iso
(Maybe [ConsumedLicenseSummary])
(Maybe [ConsumedLicenseSummary])
(Maybe [ConsumedLicenseSummary])
(Maybe [ConsumedLicenseSummary])
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
[ConsumedLicenseSummary]
[ConsumedLicenseSummary]
[ConsumedLicenseSummary]
[ConsumedLicenseSummary]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getLicenseConfigurationResponse_licenseCount :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Integer)
getLicenseConfigurationResponse_licenseCount :: (Maybe Integer -> f (Maybe Integer))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_licenseCount = (GetLicenseConfigurationResponse -> Maybe Integer)
-> (GetLicenseConfigurationResponse
-> Maybe Integer -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Integer)
(Maybe Integer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Integer
licenseCount :: Maybe Integer
$sel:licenseCount:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Integer
licenseCount} -> Maybe Integer
licenseCount) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Integer
a -> GetLicenseConfigurationResponse
s {$sel:licenseCount:GetLicenseConfigurationResponse' :: Maybe Integer
licenseCount = Maybe Integer
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_managedResourceSummaryList :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe [ManagedResourceSummary])
getLicenseConfigurationResponse_managedResourceSummaryList :: (Maybe [ManagedResourceSummary]
-> f (Maybe [ManagedResourceSummary]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_managedResourceSummaryList = (GetLicenseConfigurationResponse -> Maybe [ManagedResourceSummary])
-> (GetLicenseConfigurationResponse
-> Maybe [ManagedResourceSummary]
-> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe [ManagedResourceSummary])
(Maybe [ManagedResourceSummary])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe [ManagedResourceSummary]
managedResourceSummaryList :: Maybe [ManagedResourceSummary]
$sel:managedResourceSummaryList:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe [ManagedResourceSummary]
managedResourceSummaryList} -> Maybe [ManagedResourceSummary]
managedResourceSummaryList) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe [ManagedResourceSummary]
a -> GetLicenseConfigurationResponse
s {$sel:managedResourceSummaryList:GetLicenseConfigurationResponse' :: Maybe [ManagedResourceSummary]
managedResourceSummaryList = Maybe [ManagedResourceSummary]
a} :: GetLicenseConfigurationResponse) ((Maybe [ManagedResourceSummary]
-> f (Maybe [ManagedResourceSummary]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse)
-> ((Maybe [ManagedResourceSummary]
-> f (Maybe [ManagedResourceSummary]))
-> Maybe [ManagedResourceSummary]
-> f (Maybe [ManagedResourceSummary]))
-> (Maybe [ManagedResourceSummary]
-> f (Maybe [ManagedResourceSummary]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
[ManagedResourceSummary]
[ManagedResourceSummary]
[ManagedResourceSummary]
[ManagedResourceSummary]
-> Iso
(Maybe [ManagedResourceSummary])
(Maybe [ManagedResourceSummary])
(Maybe [ManagedResourceSummary])
(Maybe [ManagedResourceSummary])
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
[ManagedResourceSummary]
[ManagedResourceSummary]
[ManagedResourceSummary]
[ManagedResourceSummary]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getLicenseConfigurationResponse_name :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Text)
getLicenseConfigurationResponse_name :: (Maybe Text -> f (Maybe Text))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_name = (GetLicenseConfigurationResponse -> Maybe Text)
-> (GetLicenseConfigurationResponse
-> Maybe Text -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Text
name :: Maybe Text
$sel:name:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Text
a -> GetLicenseConfigurationResponse
s {$sel:name:GetLicenseConfigurationResponse' :: Maybe Text
name = Maybe Text
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_licenseCountHardLimit :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Bool)
getLicenseConfigurationResponse_licenseCountHardLimit :: (Maybe Bool -> f (Maybe Bool))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_licenseCountHardLimit = (GetLicenseConfigurationResponse -> Maybe Bool)
-> (GetLicenseConfigurationResponse
-> Maybe Bool -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Bool)
(Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Bool
licenseCountHardLimit :: Maybe Bool
$sel:licenseCountHardLimit:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Bool
licenseCountHardLimit} -> Maybe Bool
licenseCountHardLimit) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Bool
a -> GetLicenseConfigurationResponse
s {$sel:licenseCountHardLimit:GetLicenseConfigurationResponse' :: Maybe Bool
licenseCountHardLimit = Maybe Bool
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_disassociateWhenNotFound :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Bool)
getLicenseConfigurationResponse_disassociateWhenNotFound :: (Maybe Bool -> f (Maybe Bool))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_disassociateWhenNotFound = (GetLicenseConfigurationResponse -> Maybe Bool)
-> (GetLicenseConfigurationResponse
-> Maybe Bool -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Bool)
(Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Bool
disassociateWhenNotFound :: Maybe Bool
$sel:disassociateWhenNotFound:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Bool
disassociateWhenNotFound} -> Maybe Bool
disassociateWhenNotFound) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Bool
a -> GetLicenseConfigurationResponse
s {$sel:disassociateWhenNotFound:GetLicenseConfigurationResponse' :: Maybe Bool
disassociateWhenNotFound = Maybe Bool
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_productInformationList :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe [ProductInformation])
getLicenseConfigurationResponse_productInformationList :: (Maybe [ProductInformation] -> f (Maybe [ProductInformation]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_productInformationList = (GetLicenseConfigurationResponse -> Maybe [ProductInformation])
-> (GetLicenseConfigurationResponse
-> Maybe [ProductInformation] -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe [ProductInformation])
(Maybe [ProductInformation])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe [ProductInformation]
productInformationList :: Maybe [ProductInformation]
$sel:productInformationList:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe [ProductInformation]
productInformationList} -> Maybe [ProductInformation]
productInformationList) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe [ProductInformation]
a -> GetLicenseConfigurationResponse
s {$sel:productInformationList:GetLicenseConfigurationResponse' :: Maybe [ProductInformation]
productInformationList = Maybe [ProductInformation]
a} :: GetLicenseConfigurationResponse) ((Maybe [ProductInformation] -> f (Maybe [ProductInformation]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse)
-> ((Maybe [ProductInformation] -> f (Maybe [ProductInformation]))
-> Maybe [ProductInformation] -> f (Maybe [ProductInformation]))
-> (Maybe [ProductInformation] -> f (Maybe [ProductInformation]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
[ProductInformation]
[ProductInformation]
[ProductInformation]
[ProductInformation]
-> Iso
(Maybe [ProductInformation])
(Maybe [ProductInformation])
(Maybe [ProductInformation])
(Maybe [ProductInformation])
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
[ProductInformation]
[ProductInformation]
[ProductInformation]
[ProductInformation]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getLicenseConfigurationResponse_licenseCountingType :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe LicenseCountingType)
getLicenseConfigurationResponse_licenseCountingType :: (Maybe LicenseCountingType -> f (Maybe LicenseCountingType))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_licenseCountingType = (GetLicenseConfigurationResponse -> Maybe LicenseCountingType)
-> (GetLicenseConfigurationResponse
-> Maybe LicenseCountingType -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe LicenseCountingType)
(Maybe LicenseCountingType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe LicenseCountingType
licenseCountingType :: Maybe LicenseCountingType
$sel:licenseCountingType:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe LicenseCountingType
licenseCountingType} -> Maybe LicenseCountingType
licenseCountingType) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe LicenseCountingType
a -> GetLicenseConfigurationResponse
s {$sel:licenseCountingType:GetLicenseConfigurationResponse' :: Maybe LicenseCountingType
licenseCountingType = Maybe LicenseCountingType
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_automatedDiscoveryInformation :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe AutomatedDiscoveryInformation)
getLicenseConfigurationResponse_automatedDiscoveryInformation :: (Maybe AutomatedDiscoveryInformation
-> f (Maybe AutomatedDiscoveryInformation))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_automatedDiscoveryInformation = (GetLicenseConfigurationResponse
-> Maybe AutomatedDiscoveryInformation)
-> (GetLicenseConfigurationResponse
-> Maybe AutomatedDiscoveryInformation
-> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe AutomatedDiscoveryInformation)
(Maybe AutomatedDiscoveryInformation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe AutomatedDiscoveryInformation
automatedDiscoveryInformation :: Maybe AutomatedDiscoveryInformation
$sel:automatedDiscoveryInformation:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse
-> Maybe AutomatedDiscoveryInformation
automatedDiscoveryInformation} -> Maybe AutomatedDiscoveryInformation
automatedDiscoveryInformation) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe AutomatedDiscoveryInformation
a -> GetLicenseConfigurationResponse
s {$sel:automatedDiscoveryInformation:GetLicenseConfigurationResponse' :: Maybe AutomatedDiscoveryInformation
automatedDiscoveryInformation = Maybe AutomatedDiscoveryInformation
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_consumedLicenses :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Integer)
getLicenseConfigurationResponse_consumedLicenses :: (Maybe Integer -> f (Maybe Integer))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_consumedLicenses = (GetLicenseConfigurationResponse -> Maybe Integer)
-> (GetLicenseConfigurationResponse
-> Maybe Integer -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Integer)
(Maybe Integer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Integer
consumedLicenses :: Maybe Integer
$sel:consumedLicenses:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Integer
consumedLicenses} -> Maybe Integer
consumedLicenses) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Integer
a -> GetLicenseConfigurationResponse
s {$sel:consumedLicenses:GetLicenseConfigurationResponse' :: Maybe Integer
consumedLicenses = Maybe Integer
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_licenseRules :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe [Prelude.Text])
getLicenseConfigurationResponse_licenseRules :: (Maybe [Text] -> f (Maybe [Text]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_licenseRules = (GetLicenseConfigurationResponse -> Maybe [Text])
-> (GetLicenseConfigurationResponse
-> Maybe [Text] -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe [Text])
(Maybe [Text])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe [Text]
licenseRules :: Maybe [Text]
$sel:licenseRules:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe [Text]
licenseRules} -> Maybe [Text]
licenseRules) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe [Text]
a -> GetLicenseConfigurationResponse
s {$sel:licenseRules:GetLicenseConfigurationResponse' :: Maybe [Text]
licenseRules = Maybe [Text]
a} :: GetLicenseConfigurationResponse) ((Maybe [Text] -> f (Maybe [Text]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse)
-> ((Maybe [Text] -> f (Maybe [Text]))
-> Maybe [Text] -> f (Maybe [Text]))
-> (Maybe [Text] -> f (Maybe [Text]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Text] [Text] [Text] [Text]
-> Iso (Maybe [Text]) (Maybe [Text]) (Maybe [Text]) (Maybe [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 [Text] [Text] [Text] [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getLicenseConfigurationResponse_licenseConfigurationId :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Text)
getLicenseConfigurationResponse_licenseConfigurationId :: (Maybe Text -> f (Maybe Text))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_licenseConfigurationId = (GetLicenseConfigurationResponse -> Maybe Text)
-> (GetLicenseConfigurationResponse
-> Maybe Text -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Text
licenseConfigurationId :: Maybe Text
$sel:licenseConfigurationId:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Text
licenseConfigurationId} -> Maybe Text
licenseConfigurationId) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Text
a -> GetLicenseConfigurationResponse
s {$sel:licenseConfigurationId:GetLicenseConfigurationResponse' :: Maybe Text
licenseConfigurationId = Maybe Text
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_description :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Text)
getLicenseConfigurationResponse_description :: (Maybe Text -> f (Maybe Text))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_description = (GetLicenseConfigurationResponse -> Maybe Text)
-> (GetLicenseConfigurationResponse
-> Maybe Text -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Text
description :: Maybe Text
$sel:description:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Text
a -> GetLicenseConfigurationResponse
s {$sel:description:GetLicenseConfigurationResponse' :: Maybe Text
description = Maybe Text
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_licenseConfigurationArn :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe Prelude.Text)
getLicenseConfigurationResponse_licenseConfigurationArn :: (Maybe Text -> f (Maybe Text))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_licenseConfigurationArn = (GetLicenseConfigurationResponse -> Maybe Text)
-> (GetLicenseConfigurationResponse
-> Maybe Text -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe Text
licenseConfigurationArn :: Maybe Text
$sel:licenseConfigurationArn:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe Text
licenseConfigurationArn} -> Maybe Text
licenseConfigurationArn) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe Text
a -> GetLicenseConfigurationResponse
s {$sel:licenseConfigurationArn:GetLicenseConfigurationResponse' :: Maybe Text
licenseConfigurationArn = Maybe Text
a} :: GetLicenseConfigurationResponse)
getLicenseConfigurationResponse_tags :: Lens.Lens' GetLicenseConfigurationResponse (Prelude.Maybe [Tag])
getLicenseConfigurationResponse_tags :: (Maybe [Tag] -> f (Maybe [Tag]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_tags = (GetLicenseConfigurationResponse -> Maybe [Tag])
-> (GetLicenseConfigurationResponse
-> Maybe [Tag] -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
(Maybe [Tag])
(Maybe [Tag])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Maybe [Tag]
a -> GetLicenseConfigurationResponse
s {$sel:tags:GetLicenseConfigurationResponse' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: GetLicenseConfigurationResponse) ((Maybe [Tag] -> f (Maybe [Tag]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse)
-> ((Maybe [Tag] -> f (Maybe [Tag]))
-> Maybe [Tag] -> f (Maybe [Tag]))
-> (Maybe [Tag] -> f (Maybe [Tag]))
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Tag] [Tag] [Tag] [Tag]
-> Iso (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag])
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 [Tag] [Tag] [Tag] [Tag]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getLicenseConfigurationResponse_httpStatus :: Lens.Lens' GetLicenseConfigurationResponse Prelude.Int
getLicenseConfigurationResponse_httpStatus :: (Int -> f Int)
-> GetLicenseConfigurationResponse
-> f GetLicenseConfigurationResponse
getLicenseConfigurationResponse_httpStatus = (GetLicenseConfigurationResponse -> Int)
-> (GetLicenseConfigurationResponse
-> Int -> GetLicenseConfigurationResponse)
-> Lens
GetLicenseConfigurationResponse
GetLicenseConfigurationResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLicenseConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetLicenseConfigurationResponse' :: GetLicenseConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetLicenseConfigurationResponse
s@GetLicenseConfigurationResponse' {} Int
a -> GetLicenseConfigurationResponse
s {$sel:httpStatus:GetLicenseConfigurationResponse' :: Int
httpStatus = Int
a} :: GetLicenseConfigurationResponse)
instance
Prelude.NFData
GetLicenseConfigurationResponse