{-# 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.ServiceQuotas.ListServiceQuotaIncreaseRequestsInTemplate
(
ListServiceQuotaIncreaseRequestsInTemplate (..),
newListServiceQuotaIncreaseRequestsInTemplate,
listServiceQuotaIncreaseRequestsInTemplate_nextToken,
listServiceQuotaIncreaseRequestsInTemplate_awsRegion,
listServiceQuotaIncreaseRequestsInTemplate_serviceCode,
listServiceQuotaIncreaseRequestsInTemplate_maxResults,
ListServiceQuotaIncreaseRequestsInTemplateResponse (..),
newListServiceQuotaIncreaseRequestsInTemplateResponse,
listServiceQuotaIncreaseRequestsInTemplateResponse_serviceQuotaIncreaseRequestInTemplateList,
listServiceQuotaIncreaseRequestsInTemplateResponse_nextToken,
listServiceQuotaIncreaseRequestsInTemplateResponse_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.ServiceQuotas.Types
data ListServiceQuotaIncreaseRequestsInTemplate = ListServiceQuotaIncreaseRequestsInTemplate'
{
ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
awsRegion :: Prelude.Maybe Prelude.Text,
ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
serviceCode :: Prelude.Maybe Prelude.Text,
ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural
}
deriving (ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate -> Bool
(ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate -> Bool)
-> (ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate -> Bool)
-> Eq ListServiceQuotaIncreaseRequestsInTemplate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate -> Bool
$c/= :: ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate -> Bool
== :: ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate -> Bool
$c== :: ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate -> Bool
Prelude.Eq, ReadPrec [ListServiceQuotaIncreaseRequestsInTemplate]
ReadPrec ListServiceQuotaIncreaseRequestsInTemplate
Int -> ReadS ListServiceQuotaIncreaseRequestsInTemplate
ReadS [ListServiceQuotaIncreaseRequestsInTemplate]
(Int -> ReadS ListServiceQuotaIncreaseRequestsInTemplate)
-> ReadS [ListServiceQuotaIncreaseRequestsInTemplate]
-> ReadPrec ListServiceQuotaIncreaseRequestsInTemplate
-> ReadPrec [ListServiceQuotaIncreaseRequestsInTemplate]
-> Read ListServiceQuotaIncreaseRequestsInTemplate
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListServiceQuotaIncreaseRequestsInTemplate]
$creadListPrec :: ReadPrec [ListServiceQuotaIncreaseRequestsInTemplate]
readPrec :: ReadPrec ListServiceQuotaIncreaseRequestsInTemplate
$creadPrec :: ReadPrec ListServiceQuotaIncreaseRequestsInTemplate
readList :: ReadS [ListServiceQuotaIncreaseRequestsInTemplate]
$creadList :: ReadS [ListServiceQuotaIncreaseRequestsInTemplate]
readsPrec :: Int -> ReadS ListServiceQuotaIncreaseRequestsInTemplate
$creadsPrec :: Int -> ReadS ListServiceQuotaIncreaseRequestsInTemplate
Prelude.Read, Int -> ListServiceQuotaIncreaseRequestsInTemplate -> ShowS
[ListServiceQuotaIncreaseRequestsInTemplate] -> ShowS
ListServiceQuotaIncreaseRequestsInTemplate -> String
(Int -> ListServiceQuotaIncreaseRequestsInTemplate -> ShowS)
-> (ListServiceQuotaIncreaseRequestsInTemplate -> String)
-> ([ListServiceQuotaIncreaseRequestsInTemplate] -> ShowS)
-> Show ListServiceQuotaIncreaseRequestsInTemplate
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListServiceQuotaIncreaseRequestsInTemplate] -> ShowS
$cshowList :: [ListServiceQuotaIncreaseRequestsInTemplate] -> ShowS
show :: ListServiceQuotaIncreaseRequestsInTemplate -> String
$cshow :: ListServiceQuotaIncreaseRequestsInTemplate -> String
showsPrec :: Int -> ListServiceQuotaIncreaseRequestsInTemplate -> ShowS
$cshowsPrec :: Int -> ListServiceQuotaIncreaseRequestsInTemplate -> ShowS
Prelude.Show, (forall x.
ListServiceQuotaIncreaseRequestsInTemplate
-> Rep ListServiceQuotaIncreaseRequestsInTemplate x)
-> (forall x.
Rep ListServiceQuotaIncreaseRequestsInTemplate x
-> ListServiceQuotaIncreaseRequestsInTemplate)
-> Generic ListServiceQuotaIncreaseRequestsInTemplate
forall x.
Rep ListServiceQuotaIncreaseRequestsInTemplate x
-> ListServiceQuotaIncreaseRequestsInTemplate
forall x.
ListServiceQuotaIncreaseRequestsInTemplate
-> Rep ListServiceQuotaIncreaseRequestsInTemplate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListServiceQuotaIncreaseRequestsInTemplate x
-> ListServiceQuotaIncreaseRequestsInTemplate
$cfrom :: forall x.
ListServiceQuotaIncreaseRequestsInTemplate
-> Rep ListServiceQuotaIncreaseRequestsInTemplate x
Prelude.Generic)
newListServiceQuotaIncreaseRequestsInTemplate ::
ListServiceQuotaIncreaseRequestsInTemplate
newListServiceQuotaIncreaseRequestsInTemplate :: ListServiceQuotaIncreaseRequestsInTemplate
newListServiceQuotaIncreaseRequestsInTemplate =
ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplate'
{ $sel:nextToken:ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Text
nextToken =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:awsRegion:ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Text
awsRegion = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:serviceCode:ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Text
serviceCode = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Natural
maxResults = Maybe Natural
forall a. Maybe a
Prelude.Nothing
}
listServiceQuotaIncreaseRequestsInTemplate_nextToken :: Lens.Lens' ListServiceQuotaIncreaseRequestsInTemplate (Prelude.Maybe Prelude.Text)
listServiceQuotaIncreaseRequestsInTemplate_nextToken :: (Maybe Text -> f (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplate
-> f ListServiceQuotaIncreaseRequestsInTemplate
listServiceQuotaIncreaseRequestsInTemplate_nextToken = (ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text)
-> (ListServiceQuotaIncreaseRequestsInTemplate
-> Maybe Text -> ListServiceQuotaIncreaseRequestsInTemplate)
-> Lens
ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplate
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceQuotaIncreaseRequestsInTemplate' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListServiceQuotaIncreaseRequestsInTemplate' :: ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListServiceQuotaIncreaseRequestsInTemplate
s@ListServiceQuotaIncreaseRequestsInTemplate' {} Maybe Text
a -> ListServiceQuotaIncreaseRequestsInTemplate
s {$sel:nextToken:ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Text
nextToken = Maybe Text
a} :: ListServiceQuotaIncreaseRequestsInTemplate)
listServiceQuotaIncreaseRequestsInTemplate_awsRegion :: Lens.Lens' ListServiceQuotaIncreaseRequestsInTemplate (Prelude.Maybe Prelude.Text)
listServiceQuotaIncreaseRequestsInTemplate_awsRegion :: (Maybe Text -> f (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplate
-> f ListServiceQuotaIncreaseRequestsInTemplate
listServiceQuotaIncreaseRequestsInTemplate_awsRegion = (ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text)
-> (ListServiceQuotaIncreaseRequestsInTemplate
-> Maybe Text -> ListServiceQuotaIncreaseRequestsInTemplate)
-> Lens
ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplate
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceQuotaIncreaseRequestsInTemplate' {Maybe Text
awsRegion :: Maybe Text
$sel:awsRegion:ListServiceQuotaIncreaseRequestsInTemplate' :: ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
awsRegion} -> Maybe Text
awsRegion) (\s :: ListServiceQuotaIncreaseRequestsInTemplate
s@ListServiceQuotaIncreaseRequestsInTemplate' {} Maybe Text
a -> ListServiceQuotaIncreaseRequestsInTemplate
s {$sel:awsRegion:ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Text
awsRegion = Maybe Text
a} :: ListServiceQuotaIncreaseRequestsInTemplate)
listServiceQuotaIncreaseRequestsInTemplate_serviceCode :: Lens.Lens' ListServiceQuotaIncreaseRequestsInTemplate (Prelude.Maybe Prelude.Text)
listServiceQuotaIncreaseRequestsInTemplate_serviceCode :: (Maybe Text -> f (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplate
-> f ListServiceQuotaIncreaseRequestsInTemplate
listServiceQuotaIncreaseRequestsInTemplate_serviceCode = (ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text)
-> (ListServiceQuotaIncreaseRequestsInTemplate
-> Maybe Text -> ListServiceQuotaIncreaseRequestsInTemplate)
-> Lens
ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplate
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceQuotaIncreaseRequestsInTemplate' {Maybe Text
serviceCode :: Maybe Text
$sel:serviceCode:ListServiceQuotaIncreaseRequestsInTemplate' :: ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
serviceCode} -> Maybe Text
serviceCode) (\s :: ListServiceQuotaIncreaseRequestsInTemplate
s@ListServiceQuotaIncreaseRequestsInTemplate' {} Maybe Text
a -> ListServiceQuotaIncreaseRequestsInTemplate
s {$sel:serviceCode:ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Text
serviceCode = Maybe Text
a} :: ListServiceQuotaIncreaseRequestsInTemplate)
listServiceQuotaIncreaseRequestsInTemplate_maxResults :: Lens.Lens' ListServiceQuotaIncreaseRequestsInTemplate (Prelude.Maybe Prelude.Natural)
listServiceQuotaIncreaseRequestsInTemplate_maxResults :: (Maybe Natural -> f (Maybe Natural))
-> ListServiceQuotaIncreaseRequestsInTemplate
-> f ListServiceQuotaIncreaseRequestsInTemplate
listServiceQuotaIncreaseRequestsInTemplate_maxResults = (ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Natural)
-> (ListServiceQuotaIncreaseRequestsInTemplate
-> Maybe Natural -> ListServiceQuotaIncreaseRequestsInTemplate)
-> Lens
ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplate
(Maybe Natural)
(Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceQuotaIncreaseRequestsInTemplate' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListServiceQuotaIncreaseRequestsInTemplate' :: ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListServiceQuotaIncreaseRequestsInTemplate
s@ListServiceQuotaIncreaseRequestsInTemplate' {} Maybe Natural
a -> ListServiceQuotaIncreaseRequestsInTemplate
s {$sel:maxResults:ListServiceQuotaIncreaseRequestsInTemplate' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListServiceQuotaIncreaseRequestsInTemplate)
instance
Core.AWSPager
ListServiceQuotaIncreaseRequestsInTemplate
where
page :: ListServiceQuotaIncreaseRequestsInTemplate
-> AWSResponse ListServiceQuotaIncreaseRequestsInTemplate
-> Maybe ListServiceQuotaIncreaseRequestsInTemplate
page ListServiceQuotaIncreaseRequestsInTemplate
rq AWSResponse ListServiceQuotaIncreaseRequestsInTemplate
rs
| Maybe Text -> Bool
forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplateResponse
rs
ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Getting
(First Text)
ListServiceQuotaIncreaseRequestsInTemplateResponse
Text
-> Maybe Text
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe Text -> Const (First Text) (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Const
(First Text) ListServiceQuotaIncreaseRequestsInTemplateResponse
Lens'
ListServiceQuotaIncreaseRequestsInTemplateResponse (Maybe Text)
listServiceQuotaIncreaseRequestsInTemplateResponse_nextToken
((Maybe Text -> Const (First Text) (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Const
(First Text) ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> ((Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text))
-> Getting
(First Text)
ListServiceQuotaIncreaseRequestsInTemplateResponse
Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
Maybe ListServiceQuotaIncreaseRequestsInTemplate
forall a. Maybe a
Prelude.Nothing
| Maybe [ServiceQuotaIncreaseRequestInTemplate] -> Bool
forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplateResponse
rs
ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Getting
(First [ServiceQuotaIncreaseRequestInTemplate])
ListServiceQuotaIncreaseRequestsInTemplateResponse
[ServiceQuotaIncreaseRequestInTemplate]
-> Maybe [ServiceQuotaIncreaseRequestInTemplate]
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> Const
(First [ServiceQuotaIncreaseRequestInTemplate])
(Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Const
(First [ServiceQuotaIncreaseRequestInTemplate])
ListServiceQuotaIncreaseRequestsInTemplateResponse
Lens'
ListServiceQuotaIncreaseRequestsInTemplateResponse
(Maybe [ServiceQuotaIncreaseRequestInTemplate])
listServiceQuotaIncreaseRequestsInTemplateResponse_serviceQuotaIncreaseRequestInTemplateList
((Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> Const
(First [ServiceQuotaIncreaseRequestInTemplate])
(Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Const
(First [ServiceQuotaIncreaseRequestInTemplate])
ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> (([ServiceQuotaIncreaseRequestInTemplate]
-> Const
(First [ServiceQuotaIncreaseRequestInTemplate])
[ServiceQuotaIncreaseRequestInTemplate])
-> Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> Const
(First [ServiceQuotaIncreaseRequestInTemplate])
(Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> Getting
(First [ServiceQuotaIncreaseRequestInTemplate])
ListServiceQuotaIncreaseRequestsInTemplateResponse
[ServiceQuotaIncreaseRequestInTemplate]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ServiceQuotaIncreaseRequestInTemplate]
-> Const
(First [ServiceQuotaIncreaseRequestInTemplate])
[ServiceQuotaIncreaseRequestInTemplate])
-> Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> Const
(First [ServiceQuotaIncreaseRequestInTemplate])
(Maybe [ServiceQuotaIncreaseRequestInTemplate])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
Maybe ListServiceQuotaIncreaseRequestsInTemplate
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
ListServiceQuotaIncreaseRequestsInTemplate
-> Maybe ListServiceQuotaIncreaseRequestsInTemplate
forall a. a -> Maybe a
Prelude.Just (ListServiceQuotaIncreaseRequestsInTemplate
-> Maybe ListServiceQuotaIncreaseRequestsInTemplate)
-> ListServiceQuotaIncreaseRequestsInTemplate
-> Maybe ListServiceQuotaIncreaseRequestsInTemplate
forall a b. (a -> b) -> a -> b
Prelude.$
ListServiceQuotaIncreaseRequestsInTemplate
rq
ListServiceQuotaIncreaseRequestsInTemplate
-> (ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate)
-> ListServiceQuotaIncreaseRequestsInTemplate
forall a b. a -> (a -> b) -> b
Prelude.& (Maybe Text -> Identity (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplate
-> Identity ListServiceQuotaIncreaseRequestsInTemplate
Lens
ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplate
(Maybe Text)
(Maybe Text)
listServiceQuotaIncreaseRequestsInTemplate_nextToken
((Maybe Text -> Identity (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplate
-> Identity ListServiceQuotaIncreaseRequestsInTemplate)
-> Maybe Text
-> ListServiceQuotaIncreaseRequestsInTemplate
-> ListServiceQuotaIncreaseRequestsInTemplate
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListServiceQuotaIncreaseRequestsInTemplate
ListServiceQuotaIncreaseRequestsInTemplateResponse
rs
ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Getting
(First Text)
ListServiceQuotaIncreaseRequestsInTemplateResponse
Text
-> Maybe Text
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe Text -> Const (First Text) (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Const
(First Text) ListServiceQuotaIncreaseRequestsInTemplateResponse
Lens'
ListServiceQuotaIncreaseRequestsInTemplateResponse (Maybe Text)
listServiceQuotaIncreaseRequestsInTemplateResponse_nextToken
((Maybe Text -> Const (First Text) (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Const
(First Text) ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> ((Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text))
-> Getting
(First Text)
ListServiceQuotaIncreaseRequestsInTemplateResponse
Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance
Core.AWSRequest
ListServiceQuotaIncreaseRequestsInTemplate
where
type
AWSResponse
ListServiceQuotaIncreaseRequestsInTemplate =
ListServiceQuotaIncreaseRequestsInTemplateResponse
request :: ListServiceQuotaIncreaseRequestsInTemplate
-> Request ListServiceQuotaIncreaseRequestsInTemplate
request = Service
-> ListServiceQuotaIncreaseRequestsInTemplate
-> Request ListServiceQuotaIncreaseRequestsInTemplate
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy ListServiceQuotaIncreaseRequestsInTemplate
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse ListServiceQuotaIncreaseRequestsInTemplate)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either
String (AWSResponse ListServiceQuotaIncreaseRequestsInTemplate))
-> Logger
-> Service
-> Proxy ListServiceQuotaIncreaseRequestsInTemplate
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse ListServiceQuotaIncreaseRequestsInTemplate)))
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 [ServiceQuotaIncreaseRequestInTemplate]
-> Maybe Text
-> Int
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
ListServiceQuotaIncreaseRequestsInTemplateResponse'
(Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> Maybe Text
-> Int
-> ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> Either String (Maybe [ServiceQuotaIncreaseRequestInTemplate])
-> Either
String
(Maybe Text
-> Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( Object
x
Object
-> Text
-> Either
String (Maybe (Maybe [ServiceQuotaIncreaseRequestInTemplate]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ServiceQuotaIncreaseRequestInTemplateList"
Either
String (Maybe (Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> Either String (Maybe [ServiceQuotaIncreaseRequestInTemplate])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [ServiceQuotaIncreaseRequestInTemplate]
forall a. Monoid a => a
Prelude.mempty
)
Either
String
(Maybe Text
-> Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> Either String (Maybe Text)
-> Either
String (Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse)
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
"NextToken")
Either
String (Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> Either String Int
-> Either String ListServiceQuotaIncreaseRequestsInTemplateResponse
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
ListServiceQuotaIncreaseRequestsInTemplate
instance
Prelude.NFData
ListServiceQuotaIncreaseRequestsInTemplate
instance
Core.ToHeaders
ListServiceQuotaIncreaseRequestsInTemplate
where
toHeaders :: ListServiceQuotaIncreaseRequestsInTemplate -> ResponseHeaders
toHeaders =
ResponseHeaders
-> ListServiceQuotaIncreaseRequestsInTemplate -> 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
"ServiceQuotasV20190624.ListServiceQuotaIncreaseRequestsInTemplate" ::
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
ListServiceQuotaIncreaseRequestsInTemplate
where
toJSON :: ListServiceQuotaIncreaseRequestsInTemplate -> Value
toJSON
ListServiceQuotaIncreaseRequestsInTemplate' {Maybe Natural
Maybe Text
maxResults :: Maybe Natural
serviceCode :: Maybe Text
awsRegion :: Maybe Text
nextToken :: Maybe Text
$sel:maxResults:ListServiceQuotaIncreaseRequestsInTemplate' :: ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Natural
$sel:serviceCode:ListServiceQuotaIncreaseRequestsInTemplate' :: ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
$sel:awsRegion:ListServiceQuotaIncreaseRequestsInTemplate' :: ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
$sel:nextToken:ListServiceQuotaIncreaseRequestsInTemplate' :: ListServiceQuotaIncreaseRequestsInTemplate -> Maybe Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Text
"NextToken" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
(Text
"AwsRegion" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
awsRegion,
(Text
"ServiceCode" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
serviceCode,
(Text
"MaxResults" Text -> Natural -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Natural -> Pair) -> Maybe Natural -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults
]
)
instance
Core.ToPath
ListServiceQuotaIncreaseRequestsInTemplate
where
toPath :: ListServiceQuotaIncreaseRequestsInTemplate -> ByteString
toPath = ByteString
-> ListServiceQuotaIncreaseRequestsInTemplate -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Core.ToQuery
ListServiceQuotaIncreaseRequestsInTemplate
where
toQuery :: ListServiceQuotaIncreaseRequestsInTemplate -> QueryString
toQuery = QueryString
-> ListServiceQuotaIncreaseRequestsInTemplate -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data ListServiceQuotaIncreaseRequestsInTemplateResponse = ListServiceQuotaIncreaseRequestsInTemplateResponse'
{
ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Maybe [ServiceQuotaIncreaseRequestInTemplate]
serviceQuotaIncreaseRequestInTemplateList :: Prelude.Maybe [ServiceQuotaIncreaseRequestInTemplate],
ListServiceQuotaIncreaseRequestsInTemplateResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListServiceQuotaIncreaseRequestsInTemplateResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListServiceQuotaIncreaseRequestsInTemplateResponse
-> ListServiceQuotaIncreaseRequestsInTemplateResponse -> Bool
(ListServiceQuotaIncreaseRequestsInTemplateResponse
-> ListServiceQuotaIncreaseRequestsInTemplateResponse -> Bool)
-> (ListServiceQuotaIncreaseRequestsInTemplateResponse
-> ListServiceQuotaIncreaseRequestsInTemplateResponse -> Bool)
-> Eq ListServiceQuotaIncreaseRequestsInTemplateResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListServiceQuotaIncreaseRequestsInTemplateResponse
-> ListServiceQuotaIncreaseRequestsInTemplateResponse -> Bool
$c/= :: ListServiceQuotaIncreaseRequestsInTemplateResponse
-> ListServiceQuotaIncreaseRequestsInTemplateResponse -> Bool
== :: ListServiceQuotaIncreaseRequestsInTemplateResponse
-> ListServiceQuotaIncreaseRequestsInTemplateResponse -> Bool
$c== :: ListServiceQuotaIncreaseRequestsInTemplateResponse
-> ListServiceQuotaIncreaseRequestsInTemplateResponse -> Bool
Prelude.Eq, ReadPrec [ListServiceQuotaIncreaseRequestsInTemplateResponse]
ReadPrec ListServiceQuotaIncreaseRequestsInTemplateResponse
Int -> ReadS ListServiceQuotaIncreaseRequestsInTemplateResponse
ReadS [ListServiceQuotaIncreaseRequestsInTemplateResponse]
(Int -> ReadS ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> ReadS [ListServiceQuotaIncreaseRequestsInTemplateResponse]
-> ReadPrec ListServiceQuotaIncreaseRequestsInTemplateResponse
-> ReadPrec [ListServiceQuotaIncreaseRequestsInTemplateResponse]
-> Read ListServiceQuotaIncreaseRequestsInTemplateResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListServiceQuotaIncreaseRequestsInTemplateResponse]
$creadListPrec :: ReadPrec [ListServiceQuotaIncreaseRequestsInTemplateResponse]
readPrec :: ReadPrec ListServiceQuotaIncreaseRequestsInTemplateResponse
$creadPrec :: ReadPrec ListServiceQuotaIncreaseRequestsInTemplateResponse
readList :: ReadS [ListServiceQuotaIncreaseRequestsInTemplateResponse]
$creadList :: ReadS [ListServiceQuotaIncreaseRequestsInTemplateResponse]
readsPrec :: Int -> ReadS ListServiceQuotaIncreaseRequestsInTemplateResponse
$creadsPrec :: Int -> ReadS ListServiceQuotaIncreaseRequestsInTemplateResponse
Prelude.Read, Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse -> ShowS
[ListServiceQuotaIncreaseRequestsInTemplateResponse] -> ShowS
ListServiceQuotaIncreaseRequestsInTemplateResponse -> String
(Int
-> ListServiceQuotaIncreaseRequestsInTemplateResponse -> ShowS)
-> (ListServiceQuotaIncreaseRequestsInTemplateResponse -> String)
-> ([ListServiceQuotaIncreaseRequestsInTemplateResponse] -> ShowS)
-> Show ListServiceQuotaIncreaseRequestsInTemplateResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListServiceQuotaIncreaseRequestsInTemplateResponse] -> ShowS
$cshowList :: [ListServiceQuotaIncreaseRequestsInTemplateResponse] -> ShowS
show :: ListServiceQuotaIncreaseRequestsInTemplateResponse -> String
$cshow :: ListServiceQuotaIncreaseRequestsInTemplateResponse -> String
showsPrec :: Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse -> ShowS
$cshowsPrec :: Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse -> ShowS
Prelude.Show, (forall x.
ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Rep ListServiceQuotaIncreaseRequestsInTemplateResponse x)
-> (forall x.
Rep ListServiceQuotaIncreaseRequestsInTemplateResponse x
-> ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> Generic ListServiceQuotaIncreaseRequestsInTemplateResponse
forall x.
Rep ListServiceQuotaIncreaseRequestsInTemplateResponse x
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
forall x.
ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Rep ListServiceQuotaIncreaseRequestsInTemplateResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListServiceQuotaIncreaseRequestsInTemplateResponse x
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
$cfrom :: forall x.
ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Rep ListServiceQuotaIncreaseRequestsInTemplateResponse x
Prelude.Generic)
newListServiceQuotaIncreaseRequestsInTemplateResponse ::
Prelude.Int ->
ListServiceQuotaIncreaseRequestsInTemplateResponse
newListServiceQuotaIncreaseRequestsInTemplateResponse :: Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse
newListServiceQuotaIncreaseRequestsInTemplateResponse
Int
pHttpStatus_ =
ListServiceQuotaIncreaseRequestsInTemplateResponse' :: Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> Maybe Text
-> Int
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
ListServiceQuotaIncreaseRequestsInTemplateResponse'
{ $sel:serviceQuotaIncreaseRequestInTemplateList:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: Maybe [ServiceQuotaIncreaseRequestInTemplate]
serviceQuotaIncreaseRequestInTemplateList =
Maybe [ServiceQuotaIncreaseRequestInTemplate]
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: Maybe Text
nextToken =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
listServiceQuotaIncreaseRequestsInTemplateResponse_serviceQuotaIncreaseRequestInTemplateList :: Lens.Lens' ListServiceQuotaIncreaseRequestsInTemplateResponse (Prelude.Maybe [ServiceQuotaIncreaseRequestInTemplate])
listServiceQuotaIncreaseRequestsInTemplateResponse_serviceQuotaIncreaseRequestInTemplateList :: (Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> f (Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> f ListServiceQuotaIncreaseRequestsInTemplateResponse
listServiceQuotaIncreaseRequestsInTemplateResponse_serviceQuotaIncreaseRequestInTemplateList = (ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Maybe [ServiceQuotaIncreaseRequestInTemplate])
-> (ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> Lens'
ListServiceQuotaIncreaseRequestsInTemplateResponse
(Maybe [ServiceQuotaIncreaseRequestInTemplate])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceQuotaIncreaseRequestsInTemplateResponse' {Maybe [ServiceQuotaIncreaseRequestInTemplate]
serviceQuotaIncreaseRequestInTemplateList :: Maybe [ServiceQuotaIncreaseRequestInTemplate]
$sel:serviceQuotaIncreaseRequestInTemplateList:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Maybe [ServiceQuotaIncreaseRequestInTemplate]
serviceQuotaIncreaseRequestInTemplateList} -> Maybe [ServiceQuotaIncreaseRequestInTemplate]
serviceQuotaIncreaseRequestInTemplateList) (\s :: ListServiceQuotaIncreaseRequestsInTemplateResponse
s@ListServiceQuotaIncreaseRequestsInTemplateResponse' {} Maybe [ServiceQuotaIncreaseRequestInTemplate]
a -> ListServiceQuotaIncreaseRequestsInTemplateResponse
s {$sel:serviceQuotaIncreaseRequestInTemplateList:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: Maybe [ServiceQuotaIncreaseRequestInTemplate]
serviceQuotaIncreaseRequestInTemplateList = Maybe [ServiceQuotaIncreaseRequestInTemplate]
a} :: ListServiceQuotaIncreaseRequestsInTemplateResponse) ((Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> f (Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> f ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> ((Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> f (Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> f (Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> (Maybe [ServiceQuotaIncreaseRequestInTemplate]
-> f (Maybe [ServiceQuotaIncreaseRequestInTemplate]))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> f ListServiceQuotaIncreaseRequestsInTemplateResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
[ServiceQuotaIncreaseRequestInTemplate]
[ServiceQuotaIncreaseRequestInTemplate]
[ServiceQuotaIncreaseRequestInTemplate]
[ServiceQuotaIncreaseRequestInTemplate]
-> Iso
(Maybe [ServiceQuotaIncreaseRequestInTemplate])
(Maybe [ServiceQuotaIncreaseRequestInTemplate])
(Maybe [ServiceQuotaIncreaseRequestInTemplate])
(Maybe [ServiceQuotaIncreaseRequestInTemplate])
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
[ServiceQuotaIncreaseRequestInTemplate]
[ServiceQuotaIncreaseRequestInTemplate]
[ServiceQuotaIncreaseRequestInTemplate]
[ServiceQuotaIncreaseRequestInTemplate]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listServiceQuotaIncreaseRequestsInTemplateResponse_nextToken :: Lens.Lens' ListServiceQuotaIncreaseRequestsInTemplateResponse (Prelude.Maybe Prelude.Text)
listServiceQuotaIncreaseRequestsInTemplateResponse_nextToken :: (Maybe Text -> f (Maybe Text))
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> f ListServiceQuotaIncreaseRequestsInTemplateResponse
listServiceQuotaIncreaseRequestsInTemplateResponse_nextToken = (ListServiceQuotaIncreaseRequestsInTemplateResponse -> Maybe Text)
-> (ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Maybe Text
-> ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> Lens'
ListServiceQuotaIncreaseRequestsInTemplateResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceQuotaIncreaseRequestsInTemplateResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: ListServiceQuotaIncreaseRequestsInTemplateResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListServiceQuotaIncreaseRequestsInTemplateResponse
s@ListServiceQuotaIncreaseRequestsInTemplateResponse' {} Maybe Text
a -> ListServiceQuotaIncreaseRequestsInTemplateResponse
s {$sel:nextToken:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListServiceQuotaIncreaseRequestsInTemplateResponse)
listServiceQuotaIncreaseRequestsInTemplateResponse_httpStatus :: Lens.Lens' ListServiceQuotaIncreaseRequestsInTemplateResponse Prelude.Int
listServiceQuotaIncreaseRequestsInTemplateResponse_httpStatus :: (Int -> f Int)
-> ListServiceQuotaIncreaseRequestsInTemplateResponse
-> f ListServiceQuotaIncreaseRequestsInTemplateResponse
listServiceQuotaIncreaseRequestsInTemplateResponse_httpStatus = (ListServiceQuotaIncreaseRequestsInTemplateResponse -> Int)
-> (ListServiceQuotaIncreaseRequestsInTemplateResponse
-> Int -> ListServiceQuotaIncreaseRequestsInTemplateResponse)
-> Lens
ListServiceQuotaIncreaseRequestsInTemplateResponse
ListServiceQuotaIncreaseRequestsInTemplateResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListServiceQuotaIncreaseRequestsInTemplateResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: ListServiceQuotaIncreaseRequestsInTemplateResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListServiceQuotaIncreaseRequestsInTemplateResponse
s@ListServiceQuotaIncreaseRequestsInTemplateResponse' {} Int
a -> ListServiceQuotaIncreaseRequestsInTemplateResponse
s {$sel:httpStatus:ListServiceQuotaIncreaseRequestsInTemplateResponse' :: Int
httpStatus = Int
a} :: ListServiceQuotaIncreaseRequestsInTemplateResponse)
instance
Prelude.NFData
ListServiceQuotaIncreaseRequestsInTemplateResponse