{-# 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.RobOMaker.ListWorldExportJobs
(
ListWorldExportJobs (..),
newListWorldExportJobs,
listWorldExportJobs_filters,
listWorldExportJobs_maxResults,
listWorldExportJobs_nextToken,
ListWorldExportJobsResponse (..),
newListWorldExportJobsResponse,
listWorldExportJobsResponse_nextToken,
listWorldExportJobsResponse_httpStatus,
listWorldExportJobsResponse_worldExportJobSummaries,
)
where
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
import Amazonka.RobOMaker.Types
data ListWorldExportJobs = ListWorldExportJobs'
{
ListWorldExportJobs -> Maybe (NonEmpty Filter)
filters :: Prelude.Maybe (Prelude.NonEmpty Filter),
ListWorldExportJobs -> Maybe Int
maxResults :: Prelude.Maybe Prelude.Int,
ListWorldExportJobs -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (ListWorldExportJobs -> ListWorldExportJobs -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListWorldExportJobs -> ListWorldExportJobs -> Bool
$c/= :: ListWorldExportJobs -> ListWorldExportJobs -> Bool
== :: ListWorldExportJobs -> ListWorldExportJobs -> Bool
$c== :: ListWorldExportJobs -> ListWorldExportJobs -> Bool
Prelude.Eq, ReadPrec [ListWorldExportJobs]
ReadPrec ListWorldExportJobs
Int -> ReadS ListWorldExportJobs
ReadS [ListWorldExportJobs]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListWorldExportJobs]
$creadListPrec :: ReadPrec [ListWorldExportJobs]
readPrec :: ReadPrec ListWorldExportJobs
$creadPrec :: ReadPrec ListWorldExportJobs
readList :: ReadS [ListWorldExportJobs]
$creadList :: ReadS [ListWorldExportJobs]
readsPrec :: Int -> ReadS ListWorldExportJobs
$creadsPrec :: Int -> ReadS ListWorldExportJobs
Prelude.Read, Int -> ListWorldExportJobs -> ShowS
[ListWorldExportJobs] -> ShowS
ListWorldExportJobs -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListWorldExportJobs] -> ShowS
$cshowList :: [ListWorldExportJobs] -> ShowS
show :: ListWorldExportJobs -> String
$cshow :: ListWorldExportJobs -> String
showsPrec :: Int -> ListWorldExportJobs -> ShowS
$cshowsPrec :: Int -> ListWorldExportJobs -> ShowS
Prelude.Show, forall x. Rep ListWorldExportJobs x -> ListWorldExportJobs
forall x. ListWorldExportJobs -> Rep ListWorldExportJobs x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListWorldExportJobs x -> ListWorldExportJobs
$cfrom :: forall x. ListWorldExportJobs -> Rep ListWorldExportJobs x
Prelude.Generic)
newListWorldExportJobs ::
ListWorldExportJobs
newListWorldExportJobs :: ListWorldExportJobs
newListWorldExportJobs =
ListWorldExportJobs'
{ $sel:filters:ListWorldExportJobs' :: Maybe (NonEmpty Filter)
filters = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListWorldExportJobs' :: Maybe Int
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListWorldExportJobs' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
listWorldExportJobs_filters :: Lens.Lens' ListWorldExportJobs (Prelude.Maybe (Prelude.NonEmpty Filter))
listWorldExportJobs_filters :: Lens' ListWorldExportJobs (Maybe (NonEmpty Filter))
listWorldExportJobs_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorldExportJobs' {Maybe (NonEmpty Filter)
filters :: Maybe (NonEmpty Filter)
$sel:filters:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe (NonEmpty Filter)
filters} -> Maybe (NonEmpty Filter)
filters) (\s :: ListWorldExportJobs
s@ListWorldExportJobs' {} Maybe (NonEmpty Filter)
a -> ListWorldExportJobs
s {$sel:filters:ListWorldExportJobs' :: Maybe (NonEmpty Filter)
filters = Maybe (NonEmpty Filter)
a} :: ListWorldExportJobs) 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
listWorldExportJobs_maxResults :: Lens.Lens' ListWorldExportJobs (Prelude.Maybe Prelude.Int)
listWorldExportJobs_maxResults :: Lens' ListWorldExportJobs (Maybe Int)
listWorldExportJobs_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorldExportJobs' {Maybe Int
maxResults :: Maybe Int
$sel:maxResults:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe Int
maxResults} -> Maybe Int
maxResults) (\s :: ListWorldExportJobs
s@ListWorldExportJobs' {} Maybe Int
a -> ListWorldExportJobs
s {$sel:maxResults:ListWorldExportJobs' :: Maybe Int
maxResults = Maybe Int
a} :: ListWorldExportJobs)
listWorldExportJobs_nextToken :: Lens.Lens' ListWorldExportJobs (Prelude.Maybe Prelude.Text)
listWorldExportJobs_nextToken :: Lens' ListWorldExportJobs (Maybe Text)
listWorldExportJobs_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorldExportJobs' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListWorldExportJobs
s@ListWorldExportJobs' {} Maybe Text
a -> ListWorldExportJobs
s {$sel:nextToken:ListWorldExportJobs' :: Maybe Text
nextToken = Maybe Text
a} :: ListWorldExportJobs)
instance Core.AWSPager ListWorldExportJobs where
page :: ListWorldExportJobs
-> AWSResponse ListWorldExportJobs -> Maybe ListWorldExportJobs
page ListWorldExportJobs
rq AWSResponse ListWorldExportJobs
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListWorldExportJobs
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListWorldExportJobsResponse (Maybe Text)
listWorldExportJobsResponse_nextToken
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 ListWorldExportJobs
rs
forall s a. s -> Getting a s a -> a
Lens.^. Lens' ListWorldExportJobsResponse [WorldExportJobSummary]
listWorldExportJobsResponse_worldExportJobSummaries
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListWorldExportJobs
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListWorldExportJobs (Maybe Text)
listWorldExportJobs_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListWorldExportJobs
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListWorldExportJobsResponse (Maybe Text)
listWorldExportJobsResponse_nextToken
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 ListWorldExportJobs where
type
AWSResponse ListWorldExportJobs =
ListWorldExportJobsResponse
request :: (Service -> Service)
-> ListWorldExportJobs -> Request ListWorldExportJobs
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListWorldExportJobs
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListWorldExportJobs)))
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 Text
-> Int -> [WorldExportJobSummary] -> ListWorldExportJobsResponse
ListWorldExportJobsResponse'
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
"nextToken")
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))
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
"worldExportJobSummaries"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable ListWorldExportJobs where
hashWithSalt :: Int -> ListWorldExportJobs -> Int
hashWithSalt Int
_salt ListWorldExportJobs' {Maybe Int
Maybe (NonEmpty Filter)
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
filters :: Maybe (NonEmpty Filter)
$sel:nextToken:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe Text
$sel:maxResults:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe Int
$sel:filters:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe (NonEmpty Filter)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Filter)
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance Prelude.NFData ListWorldExportJobs where
rnf :: ListWorldExportJobs -> ()
rnf ListWorldExportJobs' {Maybe Int
Maybe (NonEmpty Filter)
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
filters :: Maybe (NonEmpty Filter)
$sel:nextToken:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe Text
$sel:maxResults:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe Int
$sel:filters:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe (NonEmpty Filter)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Filter)
filters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
instance Data.ToHeaders ListWorldExportJobs where
toHeaders :: ListWorldExportJobs -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ListWorldExportJobs where
toJSON :: ListWorldExportJobs -> Value
toJSON ListWorldExportJobs' {Maybe Int
Maybe (NonEmpty Filter)
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
filters :: Maybe (NonEmpty Filter)
$sel:nextToken:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe Text
$sel:maxResults:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe Int
$sel:filters:ListWorldExportJobs' :: ListWorldExportJobs -> Maybe (NonEmpty Filter)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"filters" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (NonEmpty Filter)
filters,
(Key
"maxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
maxResults,
(Key
"nextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken
]
)
instance Data.ToPath ListWorldExportJobs where
toPath :: ListWorldExportJobs -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/listWorldExportJobs"
instance Data.ToQuery ListWorldExportJobs where
toQuery :: ListWorldExportJobs -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListWorldExportJobsResponse = ListWorldExportJobsResponse'
{
ListWorldExportJobsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListWorldExportJobsResponse -> Int
httpStatus :: Prelude.Int,
ListWorldExportJobsResponse -> [WorldExportJobSummary]
worldExportJobSummaries :: [WorldExportJobSummary]
}
deriving (ListWorldExportJobsResponse -> ListWorldExportJobsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListWorldExportJobsResponse -> ListWorldExportJobsResponse -> Bool
$c/= :: ListWorldExportJobsResponse -> ListWorldExportJobsResponse -> Bool
== :: ListWorldExportJobsResponse -> ListWorldExportJobsResponse -> Bool
$c== :: ListWorldExportJobsResponse -> ListWorldExportJobsResponse -> Bool
Prelude.Eq, ReadPrec [ListWorldExportJobsResponse]
ReadPrec ListWorldExportJobsResponse
Int -> ReadS ListWorldExportJobsResponse
ReadS [ListWorldExportJobsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListWorldExportJobsResponse]
$creadListPrec :: ReadPrec [ListWorldExportJobsResponse]
readPrec :: ReadPrec ListWorldExportJobsResponse
$creadPrec :: ReadPrec ListWorldExportJobsResponse
readList :: ReadS [ListWorldExportJobsResponse]
$creadList :: ReadS [ListWorldExportJobsResponse]
readsPrec :: Int -> ReadS ListWorldExportJobsResponse
$creadsPrec :: Int -> ReadS ListWorldExportJobsResponse
Prelude.Read, Int -> ListWorldExportJobsResponse -> ShowS
[ListWorldExportJobsResponse] -> ShowS
ListWorldExportJobsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListWorldExportJobsResponse] -> ShowS
$cshowList :: [ListWorldExportJobsResponse] -> ShowS
show :: ListWorldExportJobsResponse -> String
$cshow :: ListWorldExportJobsResponse -> String
showsPrec :: Int -> ListWorldExportJobsResponse -> ShowS
$cshowsPrec :: Int -> ListWorldExportJobsResponse -> ShowS
Prelude.Show, forall x.
Rep ListWorldExportJobsResponse x -> ListWorldExportJobsResponse
forall x.
ListWorldExportJobsResponse -> Rep ListWorldExportJobsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListWorldExportJobsResponse x -> ListWorldExportJobsResponse
$cfrom :: forall x.
ListWorldExportJobsResponse -> Rep ListWorldExportJobsResponse x
Prelude.Generic)
newListWorldExportJobsResponse ::
Prelude.Int ->
ListWorldExportJobsResponse
newListWorldExportJobsResponse :: Int -> ListWorldExportJobsResponse
newListWorldExportJobsResponse Int
pHttpStatus_ =
ListWorldExportJobsResponse'
{ $sel:nextToken:ListWorldExportJobsResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListWorldExportJobsResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:worldExportJobSummaries:ListWorldExportJobsResponse' :: [WorldExportJobSummary]
worldExportJobSummaries = forall a. Monoid a => a
Prelude.mempty
}
listWorldExportJobsResponse_nextToken :: Lens.Lens' ListWorldExportJobsResponse (Prelude.Maybe Prelude.Text)
listWorldExportJobsResponse_nextToken :: Lens' ListWorldExportJobsResponse (Maybe Text)
listWorldExportJobsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorldExportJobsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListWorldExportJobsResponse' :: ListWorldExportJobsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListWorldExportJobsResponse
s@ListWorldExportJobsResponse' {} Maybe Text
a -> ListWorldExportJobsResponse
s {$sel:nextToken:ListWorldExportJobsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListWorldExportJobsResponse)
listWorldExportJobsResponse_httpStatus :: Lens.Lens' ListWorldExportJobsResponse Prelude.Int
listWorldExportJobsResponse_httpStatus :: Lens' ListWorldExportJobsResponse Int
listWorldExportJobsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorldExportJobsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListWorldExportJobsResponse' :: ListWorldExportJobsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListWorldExportJobsResponse
s@ListWorldExportJobsResponse' {} Int
a -> ListWorldExportJobsResponse
s {$sel:httpStatus:ListWorldExportJobsResponse' :: Int
httpStatus = Int
a} :: ListWorldExportJobsResponse)
listWorldExportJobsResponse_worldExportJobSummaries :: Lens.Lens' ListWorldExportJobsResponse [WorldExportJobSummary]
listWorldExportJobsResponse_worldExportJobSummaries :: Lens' ListWorldExportJobsResponse [WorldExportJobSummary]
listWorldExportJobsResponse_worldExportJobSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorldExportJobsResponse' {[WorldExportJobSummary]
worldExportJobSummaries :: [WorldExportJobSummary]
$sel:worldExportJobSummaries:ListWorldExportJobsResponse' :: ListWorldExportJobsResponse -> [WorldExportJobSummary]
worldExportJobSummaries} -> [WorldExportJobSummary]
worldExportJobSummaries) (\s :: ListWorldExportJobsResponse
s@ListWorldExportJobsResponse' {} [WorldExportJobSummary]
a -> ListWorldExportJobsResponse
s {$sel:worldExportJobSummaries:ListWorldExportJobsResponse' :: [WorldExportJobSummary]
worldExportJobSummaries = [WorldExportJobSummary]
a} :: ListWorldExportJobsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Prelude.NFData ListWorldExportJobsResponse where
rnf :: ListWorldExportJobsResponse -> ()
rnf ListWorldExportJobsResponse' {Int
[WorldExportJobSummary]
Maybe Text
worldExportJobSummaries :: [WorldExportJobSummary]
httpStatus :: Int
nextToken :: Maybe Text
$sel:worldExportJobSummaries:ListWorldExportJobsResponse' :: ListWorldExportJobsResponse -> [WorldExportJobSummary]
$sel:httpStatus:ListWorldExportJobsResponse' :: ListWorldExportJobsResponse -> Int
$sel:nextToken:ListWorldExportJobsResponse' :: ListWorldExportJobsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [WorldExportJobSummary]
worldExportJobSummaries