{-# 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.APIGateway.GetRequestValidators
(
GetRequestValidators (..),
newGetRequestValidators,
getRequestValidators_limit,
getRequestValidators_position,
getRequestValidators_restApiId,
GetRequestValidatorsResponse (..),
newGetRequestValidatorsResponse,
getRequestValidatorsResponse_items,
getRequestValidatorsResponse_position,
getRequestValidatorsResponse_httpStatus,
)
where
import Amazonka.APIGateway.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetRequestValidators = GetRequestValidators'
{
GetRequestValidators -> Maybe Int
limit :: Prelude.Maybe Prelude.Int,
GetRequestValidators -> Maybe Text
position :: Prelude.Maybe Prelude.Text,
GetRequestValidators -> Text
restApiId :: Prelude.Text
}
deriving (GetRequestValidators -> GetRequestValidators -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetRequestValidators -> GetRequestValidators -> Bool
$c/= :: GetRequestValidators -> GetRequestValidators -> Bool
== :: GetRequestValidators -> GetRequestValidators -> Bool
$c== :: GetRequestValidators -> GetRequestValidators -> Bool
Prelude.Eq, ReadPrec [GetRequestValidators]
ReadPrec GetRequestValidators
Int -> ReadS GetRequestValidators
ReadS [GetRequestValidators]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetRequestValidators]
$creadListPrec :: ReadPrec [GetRequestValidators]
readPrec :: ReadPrec GetRequestValidators
$creadPrec :: ReadPrec GetRequestValidators
readList :: ReadS [GetRequestValidators]
$creadList :: ReadS [GetRequestValidators]
readsPrec :: Int -> ReadS GetRequestValidators
$creadsPrec :: Int -> ReadS GetRequestValidators
Prelude.Read, Int -> GetRequestValidators -> ShowS
[GetRequestValidators] -> ShowS
GetRequestValidators -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetRequestValidators] -> ShowS
$cshowList :: [GetRequestValidators] -> ShowS
show :: GetRequestValidators -> String
$cshow :: GetRequestValidators -> String
showsPrec :: Int -> GetRequestValidators -> ShowS
$cshowsPrec :: Int -> GetRequestValidators -> ShowS
Prelude.Show, forall x. Rep GetRequestValidators x -> GetRequestValidators
forall x. GetRequestValidators -> Rep GetRequestValidators x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetRequestValidators x -> GetRequestValidators
$cfrom :: forall x. GetRequestValidators -> Rep GetRequestValidators x
Prelude.Generic)
newGetRequestValidators ::
Prelude.Text ->
GetRequestValidators
newGetRequestValidators :: Text -> GetRequestValidators
newGetRequestValidators Text
pRestApiId_ =
GetRequestValidators'
{ $sel:limit:GetRequestValidators' :: Maybe Int
limit = forall a. Maybe a
Prelude.Nothing,
$sel:position:GetRequestValidators' :: Maybe Text
position = forall a. Maybe a
Prelude.Nothing,
$sel:restApiId:GetRequestValidators' :: Text
restApiId = Text
pRestApiId_
}
getRequestValidators_limit :: Lens.Lens' GetRequestValidators (Prelude.Maybe Prelude.Int)
getRequestValidators_limit :: Lens' GetRequestValidators (Maybe Int)
getRequestValidators_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRequestValidators' {Maybe Int
limit :: Maybe Int
$sel:limit:GetRequestValidators' :: GetRequestValidators -> Maybe Int
limit} -> Maybe Int
limit) (\s :: GetRequestValidators
s@GetRequestValidators' {} Maybe Int
a -> GetRequestValidators
s {$sel:limit:GetRequestValidators' :: Maybe Int
limit = Maybe Int
a} :: GetRequestValidators)
getRequestValidators_position :: Lens.Lens' GetRequestValidators (Prelude.Maybe Prelude.Text)
getRequestValidators_position :: Lens' GetRequestValidators (Maybe Text)
getRequestValidators_position = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRequestValidators' {Maybe Text
position :: Maybe Text
$sel:position:GetRequestValidators' :: GetRequestValidators -> Maybe Text
position} -> Maybe Text
position) (\s :: GetRequestValidators
s@GetRequestValidators' {} Maybe Text
a -> GetRequestValidators
s {$sel:position:GetRequestValidators' :: Maybe Text
position = Maybe Text
a} :: GetRequestValidators)
getRequestValidators_restApiId :: Lens.Lens' GetRequestValidators Prelude.Text
getRequestValidators_restApiId :: Lens' GetRequestValidators Text
getRequestValidators_restApiId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRequestValidators' {Text
restApiId :: Text
$sel:restApiId:GetRequestValidators' :: GetRequestValidators -> Text
restApiId} -> Text
restApiId) (\s :: GetRequestValidators
s@GetRequestValidators' {} Text
a -> GetRequestValidators
s {$sel:restApiId:GetRequestValidators' :: Text
restApiId = Text
a} :: GetRequestValidators)
instance Core.AWSPager GetRequestValidators where
page :: GetRequestValidators
-> AWSResponse GetRequestValidators -> Maybe GetRequestValidators
page GetRequestValidators
rq AWSResponse GetRequestValidators
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse GetRequestValidators
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetRequestValidatorsResponse (Maybe Text)
getRequestValidatorsResponse_position
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse GetRequestValidators
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetRequestValidatorsResponse (Maybe [RequestValidator])
getRequestValidatorsResponse_items
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ GetRequestValidators
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' GetRequestValidators (Maybe Text)
getRequestValidators_position
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse GetRequestValidators
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetRequestValidatorsResponse (Maybe Text)
getRequestValidatorsResponse_position
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest GetRequestValidators where
type
AWSResponse GetRequestValidators =
GetRequestValidatorsResponse
request :: (Service -> Service)
-> GetRequestValidators -> Request GetRequestValidators
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetRequestValidators
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetRequestValidators)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe [RequestValidator]
-> Maybe Text -> Int -> GetRequestValidatorsResponse
GetRequestValidatorsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"item" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"position")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable GetRequestValidators where
hashWithSalt :: Int -> GetRequestValidators -> Int
hashWithSalt Int
_salt GetRequestValidators' {Maybe Int
Maybe Text
Text
restApiId :: Text
position :: Maybe Text
limit :: Maybe Int
$sel:restApiId:GetRequestValidators' :: GetRequestValidators -> Text
$sel:position:GetRequestValidators' :: GetRequestValidators -> Maybe Text
$sel:limit:GetRequestValidators' :: GetRequestValidators -> Maybe Int
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
limit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
position
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
restApiId
instance Prelude.NFData GetRequestValidators where
rnf :: GetRequestValidators -> ()
rnf GetRequestValidators' {Maybe Int
Maybe Text
Text
restApiId :: Text
position :: Maybe Text
limit :: Maybe Int
$sel:restApiId:GetRequestValidators' :: GetRequestValidators -> Text
$sel:position:GetRequestValidators' :: GetRequestValidators -> Maybe Text
$sel:limit:GetRequestValidators' :: GetRequestValidators -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
limit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
position
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
restApiId
instance Data.ToHeaders GetRequestValidators where
toHeaders :: GetRequestValidators -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Accept"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"application/json" :: Prelude.ByteString)
]
)
instance Data.ToPath GetRequestValidators where
toPath :: GetRequestValidators -> ByteString
toPath GetRequestValidators' {Maybe Int
Maybe Text
Text
restApiId :: Text
position :: Maybe Text
limit :: Maybe Int
$sel:restApiId:GetRequestValidators' :: GetRequestValidators -> Text
$sel:position:GetRequestValidators' :: GetRequestValidators -> Maybe Text
$sel:limit:GetRequestValidators' :: GetRequestValidators -> Maybe Int
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/restapis/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
restApiId,
ByteString
"/requestvalidators"
]
instance Data.ToQuery GetRequestValidators where
toQuery :: GetRequestValidators -> QueryString
toQuery GetRequestValidators' {Maybe Int
Maybe Text
Text
restApiId :: Text
position :: Maybe Text
limit :: Maybe Int
$sel:restApiId:GetRequestValidators' :: GetRequestValidators -> Text
$sel:position:GetRequestValidators' :: GetRequestValidators -> Maybe Text
$sel:limit:GetRequestValidators' :: GetRequestValidators -> Maybe Int
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"limit" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
limit, ByteString
"position" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
position]
data GetRequestValidatorsResponse = GetRequestValidatorsResponse'
{
GetRequestValidatorsResponse -> Maybe [RequestValidator]
items :: Prelude.Maybe [RequestValidator],
GetRequestValidatorsResponse -> Maybe Text
position :: Prelude.Maybe Prelude.Text,
GetRequestValidatorsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetRequestValidatorsResponse
-> GetRequestValidatorsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetRequestValidatorsResponse
-> GetRequestValidatorsResponse -> Bool
$c/= :: GetRequestValidatorsResponse
-> GetRequestValidatorsResponse -> Bool
== :: GetRequestValidatorsResponse
-> GetRequestValidatorsResponse -> Bool
$c== :: GetRequestValidatorsResponse
-> GetRequestValidatorsResponse -> Bool
Prelude.Eq, ReadPrec [GetRequestValidatorsResponse]
ReadPrec GetRequestValidatorsResponse
Int -> ReadS GetRequestValidatorsResponse
ReadS [GetRequestValidatorsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetRequestValidatorsResponse]
$creadListPrec :: ReadPrec [GetRequestValidatorsResponse]
readPrec :: ReadPrec GetRequestValidatorsResponse
$creadPrec :: ReadPrec GetRequestValidatorsResponse
readList :: ReadS [GetRequestValidatorsResponse]
$creadList :: ReadS [GetRequestValidatorsResponse]
readsPrec :: Int -> ReadS GetRequestValidatorsResponse
$creadsPrec :: Int -> ReadS GetRequestValidatorsResponse
Prelude.Read, Int -> GetRequestValidatorsResponse -> ShowS
[GetRequestValidatorsResponse] -> ShowS
GetRequestValidatorsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetRequestValidatorsResponse] -> ShowS
$cshowList :: [GetRequestValidatorsResponse] -> ShowS
show :: GetRequestValidatorsResponse -> String
$cshow :: GetRequestValidatorsResponse -> String
showsPrec :: Int -> GetRequestValidatorsResponse -> ShowS
$cshowsPrec :: Int -> GetRequestValidatorsResponse -> ShowS
Prelude.Show, forall x.
Rep GetRequestValidatorsResponse x -> GetRequestValidatorsResponse
forall x.
GetRequestValidatorsResponse -> Rep GetRequestValidatorsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetRequestValidatorsResponse x -> GetRequestValidatorsResponse
$cfrom :: forall x.
GetRequestValidatorsResponse -> Rep GetRequestValidatorsResponse x
Prelude.Generic)
newGetRequestValidatorsResponse ::
Prelude.Int ->
GetRequestValidatorsResponse
newGetRequestValidatorsResponse :: Int -> GetRequestValidatorsResponse
newGetRequestValidatorsResponse Int
pHttpStatus_ =
GetRequestValidatorsResponse'
{ $sel:items:GetRequestValidatorsResponse' :: Maybe [RequestValidator]
items =
forall a. Maybe a
Prelude.Nothing,
$sel:position:GetRequestValidatorsResponse' :: Maybe Text
position = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetRequestValidatorsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getRequestValidatorsResponse_items :: Lens.Lens' GetRequestValidatorsResponse (Prelude.Maybe [RequestValidator])
getRequestValidatorsResponse_items :: Lens' GetRequestValidatorsResponse (Maybe [RequestValidator])
getRequestValidatorsResponse_items = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRequestValidatorsResponse' {Maybe [RequestValidator]
items :: Maybe [RequestValidator]
$sel:items:GetRequestValidatorsResponse' :: GetRequestValidatorsResponse -> Maybe [RequestValidator]
items} -> Maybe [RequestValidator]
items) (\s :: GetRequestValidatorsResponse
s@GetRequestValidatorsResponse' {} Maybe [RequestValidator]
a -> GetRequestValidatorsResponse
s {$sel:items:GetRequestValidatorsResponse' :: Maybe [RequestValidator]
items = Maybe [RequestValidator]
a} :: GetRequestValidatorsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getRequestValidatorsResponse_position :: Lens.Lens' GetRequestValidatorsResponse (Prelude.Maybe Prelude.Text)
getRequestValidatorsResponse_position :: Lens' GetRequestValidatorsResponse (Maybe Text)
getRequestValidatorsResponse_position = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRequestValidatorsResponse' {Maybe Text
position :: Maybe Text
$sel:position:GetRequestValidatorsResponse' :: GetRequestValidatorsResponse -> Maybe Text
position} -> Maybe Text
position) (\s :: GetRequestValidatorsResponse
s@GetRequestValidatorsResponse' {} Maybe Text
a -> GetRequestValidatorsResponse
s {$sel:position:GetRequestValidatorsResponse' :: Maybe Text
position = Maybe Text
a} :: GetRequestValidatorsResponse)
getRequestValidatorsResponse_httpStatus :: Lens.Lens' GetRequestValidatorsResponse Prelude.Int
getRequestValidatorsResponse_httpStatus :: Lens' GetRequestValidatorsResponse Int
getRequestValidatorsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetRequestValidatorsResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetRequestValidatorsResponse' :: GetRequestValidatorsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetRequestValidatorsResponse
s@GetRequestValidatorsResponse' {} Int
a -> GetRequestValidatorsResponse
s {$sel:httpStatus:GetRequestValidatorsResponse' :: Int
httpStatus = Int
a} :: GetRequestValidatorsResponse)
instance Prelude.NFData GetRequestValidatorsResponse where
rnf :: GetRequestValidatorsResponse -> ()
rnf GetRequestValidatorsResponse' {Int
Maybe [RequestValidator]
Maybe Text
httpStatus :: Int
position :: Maybe Text
items :: Maybe [RequestValidator]
$sel:httpStatus:GetRequestValidatorsResponse' :: GetRequestValidatorsResponse -> Int
$sel:position:GetRequestValidatorsResponse' :: GetRequestValidatorsResponse -> Maybe Text
$sel:items:GetRequestValidatorsResponse' :: GetRequestValidatorsResponse -> Maybe [RequestValidator]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [RequestValidator]
items
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
position
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus