{-# 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.Braket.SearchQuantumTasks
(
SearchQuantumTasks (..),
newSearchQuantumTasks,
searchQuantumTasks_maxResults,
searchQuantumTasks_nextToken,
searchQuantumTasks_filters,
SearchQuantumTasksResponse (..),
newSearchQuantumTasksResponse,
searchQuantumTasksResponse_nextToken,
searchQuantumTasksResponse_httpStatus,
searchQuantumTasksResponse_quantumTasks,
)
where
import Amazonka.Braket.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 SearchQuantumTasks = SearchQuantumTasks'
{
SearchQuantumTasks -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
SearchQuantumTasks -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
SearchQuantumTasks -> [SearchQuantumTasksFilter]
filters :: [SearchQuantumTasksFilter]
}
deriving (SearchQuantumTasks -> SearchQuantumTasks -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchQuantumTasks -> SearchQuantumTasks -> Bool
$c/= :: SearchQuantumTasks -> SearchQuantumTasks -> Bool
== :: SearchQuantumTasks -> SearchQuantumTasks -> Bool
$c== :: SearchQuantumTasks -> SearchQuantumTasks -> Bool
Prelude.Eq, ReadPrec [SearchQuantumTasks]
ReadPrec SearchQuantumTasks
Int -> ReadS SearchQuantumTasks
ReadS [SearchQuantumTasks]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchQuantumTasks]
$creadListPrec :: ReadPrec [SearchQuantumTasks]
readPrec :: ReadPrec SearchQuantumTasks
$creadPrec :: ReadPrec SearchQuantumTasks
readList :: ReadS [SearchQuantumTasks]
$creadList :: ReadS [SearchQuantumTasks]
readsPrec :: Int -> ReadS SearchQuantumTasks
$creadsPrec :: Int -> ReadS SearchQuantumTasks
Prelude.Read, Int -> SearchQuantumTasks -> ShowS
[SearchQuantumTasks] -> ShowS
SearchQuantumTasks -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchQuantumTasks] -> ShowS
$cshowList :: [SearchQuantumTasks] -> ShowS
show :: SearchQuantumTasks -> String
$cshow :: SearchQuantumTasks -> String
showsPrec :: Int -> SearchQuantumTasks -> ShowS
$cshowsPrec :: Int -> SearchQuantumTasks -> ShowS
Prelude.Show, forall x. Rep SearchQuantumTasks x -> SearchQuantumTasks
forall x. SearchQuantumTasks -> Rep SearchQuantumTasks x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SearchQuantumTasks x -> SearchQuantumTasks
$cfrom :: forall x. SearchQuantumTasks -> Rep SearchQuantumTasks x
Prelude.Generic)
newSearchQuantumTasks ::
SearchQuantumTasks
newSearchQuantumTasks :: SearchQuantumTasks
newSearchQuantumTasks =
SearchQuantumTasks'
{ $sel:maxResults:SearchQuantumTasks' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:SearchQuantumTasks' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:filters:SearchQuantumTasks' :: [SearchQuantumTasksFilter]
filters = forall a. Monoid a => a
Prelude.mempty
}
searchQuantumTasks_maxResults :: Lens.Lens' SearchQuantumTasks (Prelude.Maybe Prelude.Natural)
searchQuantumTasks_maxResults :: Lens' SearchQuantumTasks (Maybe Natural)
searchQuantumTasks_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQuantumTasks' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:SearchQuantumTasks' :: SearchQuantumTasks -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: SearchQuantumTasks
s@SearchQuantumTasks' {} Maybe Natural
a -> SearchQuantumTasks
s {$sel:maxResults:SearchQuantumTasks' :: Maybe Natural
maxResults = Maybe Natural
a} :: SearchQuantumTasks)
searchQuantumTasks_nextToken :: Lens.Lens' SearchQuantumTasks (Prelude.Maybe Prelude.Text)
searchQuantumTasks_nextToken :: Lens' SearchQuantumTasks (Maybe Text)
searchQuantumTasks_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQuantumTasks' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:SearchQuantumTasks' :: SearchQuantumTasks -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: SearchQuantumTasks
s@SearchQuantumTasks' {} Maybe Text
a -> SearchQuantumTasks
s {$sel:nextToken:SearchQuantumTasks' :: Maybe Text
nextToken = Maybe Text
a} :: SearchQuantumTasks)
searchQuantumTasks_filters :: Lens.Lens' SearchQuantumTasks [SearchQuantumTasksFilter]
searchQuantumTasks_filters :: Lens' SearchQuantumTasks [SearchQuantumTasksFilter]
searchQuantumTasks_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQuantumTasks' {[SearchQuantumTasksFilter]
filters :: [SearchQuantumTasksFilter]
$sel:filters:SearchQuantumTasks' :: SearchQuantumTasks -> [SearchQuantumTasksFilter]
filters} -> [SearchQuantumTasksFilter]
filters) (\s :: SearchQuantumTasks
s@SearchQuantumTasks' {} [SearchQuantumTasksFilter]
a -> SearchQuantumTasks
s {$sel:filters:SearchQuantumTasks' :: [SearchQuantumTasksFilter]
filters = [SearchQuantumTasksFilter]
a} :: SearchQuantumTasks) 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 Core.AWSPager SearchQuantumTasks where
page :: SearchQuantumTasks
-> AWSResponse SearchQuantumTasks -> Maybe SearchQuantumTasks
page SearchQuantumTasks
rq AWSResponse SearchQuantumTasks
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse SearchQuantumTasks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' SearchQuantumTasksResponse (Maybe Text)
searchQuantumTasksResponse_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 SearchQuantumTasks
rs forall s a. s -> Getting a s a -> a
Lens.^. Lens' SearchQuantumTasksResponse [QuantumTaskSummary]
searchQuantumTasksResponse_quantumTasks) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ SearchQuantumTasks
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' SearchQuantumTasks (Maybe Text)
searchQuantumTasks_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse SearchQuantumTasks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' SearchQuantumTasksResponse (Maybe Text)
searchQuantumTasksResponse_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 SearchQuantumTasks where
type
AWSResponse SearchQuantumTasks =
SearchQuantumTasksResponse
request :: (Service -> Service)
-> SearchQuantumTasks -> Request SearchQuantumTasks
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 SearchQuantumTasks
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SearchQuantumTasks)))
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 -> [QuantumTaskSummary] -> SearchQuantumTasksResponse
SearchQuantumTasksResponse'
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
"quantumTasks" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
)
instance Prelude.Hashable SearchQuantumTasks where
hashWithSalt :: Int -> SearchQuantumTasks -> Int
hashWithSalt Int
_salt SearchQuantumTasks' {[SearchQuantumTasksFilter]
Maybe Natural
Maybe Text
filters :: [SearchQuantumTasksFilter]
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:filters:SearchQuantumTasks' :: SearchQuantumTasks -> [SearchQuantumTasksFilter]
$sel:nextToken:SearchQuantumTasks' :: SearchQuantumTasks -> Maybe Text
$sel:maxResults:SearchQuantumTasks' :: SearchQuantumTasks -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [SearchQuantumTasksFilter]
filters
instance Prelude.NFData SearchQuantumTasks where
rnf :: SearchQuantumTasks -> ()
rnf SearchQuantumTasks' {[SearchQuantumTasksFilter]
Maybe Natural
Maybe Text
filters :: [SearchQuantumTasksFilter]
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:filters:SearchQuantumTasks' :: SearchQuantumTasks -> [SearchQuantumTasksFilter]
$sel:nextToken:SearchQuantumTasks' :: SearchQuantumTasks -> Maybe Text
$sel:maxResults:SearchQuantumTasks' :: SearchQuantumTasks -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 [SearchQuantumTasksFilter]
filters
instance Data.ToHeaders SearchQuantumTasks where
toHeaders :: SearchQuantumTasks -> 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 SearchQuantumTasks where
toJSON :: SearchQuantumTasks -> Value
toJSON SearchQuantumTasks' {[SearchQuantumTasksFilter]
Maybe Natural
Maybe Text
filters :: [SearchQuantumTasksFilter]
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:filters:SearchQuantumTasks' :: SearchQuantumTasks -> [SearchQuantumTasksFilter]
$sel:nextToken:SearchQuantumTasks' :: SearchQuantumTasks -> Maybe Text
$sel:maxResults:SearchQuantumTasks' :: SearchQuantumTasks -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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 Natural
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,
forall a. a -> Maybe a
Prelude.Just (Key
"filters" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [SearchQuantumTasksFilter]
filters)
]
)
instance Data.ToPath SearchQuantumTasks where
toPath :: SearchQuantumTasks -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/quantum-tasks"
instance Data.ToQuery SearchQuantumTasks where
toQuery :: SearchQuantumTasks -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SearchQuantumTasksResponse = SearchQuantumTasksResponse'
{
SearchQuantumTasksResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
SearchQuantumTasksResponse -> Int
httpStatus :: Prelude.Int,
SearchQuantumTasksResponse -> [QuantumTaskSummary]
quantumTasks :: [QuantumTaskSummary]
}
deriving (SearchQuantumTasksResponse -> SearchQuantumTasksResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchQuantumTasksResponse -> SearchQuantumTasksResponse -> Bool
$c/= :: SearchQuantumTasksResponse -> SearchQuantumTasksResponse -> Bool
== :: SearchQuantumTasksResponse -> SearchQuantumTasksResponse -> Bool
$c== :: SearchQuantumTasksResponse -> SearchQuantumTasksResponse -> Bool
Prelude.Eq, ReadPrec [SearchQuantumTasksResponse]
ReadPrec SearchQuantumTasksResponse
Int -> ReadS SearchQuantumTasksResponse
ReadS [SearchQuantumTasksResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchQuantumTasksResponse]
$creadListPrec :: ReadPrec [SearchQuantumTasksResponse]
readPrec :: ReadPrec SearchQuantumTasksResponse
$creadPrec :: ReadPrec SearchQuantumTasksResponse
readList :: ReadS [SearchQuantumTasksResponse]
$creadList :: ReadS [SearchQuantumTasksResponse]
readsPrec :: Int -> ReadS SearchQuantumTasksResponse
$creadsPrec :: Int -> ReadS SearchQuantumTasksResponse
Prelude.Read, Int -> SearchQuantumTasksResponse -> ShowS
[SearchQuantumTasksResponse] -> ShowS
SearchQuantumTasksResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchQuantumTasksResponse] -> ShowS
$cshowList :: [SearchQuantumTasksResponse] -> ShowS
show :: SearchQuantumTasksResponse -> String
$cshow :: SearchQuantumTasksResponse -> String
showsPrec :: Int -> SearchQuantumTasksResponse -> ShowS
$cshowsPrec :: Int -> SearchQuantumTasksResponse -> ShowS
Prelude.Show, forall x.
Rep SearchQuantumTasksResponse x -> SearchQuantumTasksResponse
forall x.
SearchQuantumTasksResponse -> Rep SearchQuantumTasksResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SearchQuantumTasksResponse x -> SearchQuantumTasksResponse
$cfrom :: forall x.
SearchQuantumTasksResponse -> Rep SearchQuantumTasksResponse x
Prelude.Generic)
newSearchQuantumTasksResponse ::
Prelude.Int ->
SearchQuantumTasksResponse
newSearchQuantumTasksResponse :: Int -> SearchQuantumTasksResponse
newSearchQuantumTasksResponse Int
pHttpStatus_ =
SearchQuantumTasksResponse'
{ $sel:nextToken:SearchQuantumTasksResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SearchQuantumTasksResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:quantumTasks:SearchQuantumTasksResponse' :: [QuantumTaskSummary]
quantumTasks = forall a. Monoid a => a
Prelude.mempty
}
searchQuantumTasksResponse_nextToken :: Lens.Lens' SearchQuantumTasksResponse (Prelude.Maybe Prelude.Text)
searchQuantumTasksResponse_nextToken :: Lens' SearchQuantumTasksResponse (Maybe Text)
searchQuantumTasksResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQuantumTasksResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:SearchQuantumTasksResponse' :: SearchQuantumTasksResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: SearchQuantumTasksResponse
s@SearchQuantumTasksResponse' {} Maybe Text
a -> SearchQuantumTasksResponse
s {$sel:nextToken:SearchQuantumTasksResponse' :: Maybe Text
nextToken = Maybe Text
a} :: SearchQuantumTasksResponse)
searchQuantumTasksResponse_httpStatus :: Lens.Lens' SearchQuantumTasksResponse Prelude.Int
searchQuantumTasksResponse_httpStatus :: Lens' SearchQuantumTasksResponse Int
searchQuantumTasksResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQuantumTasksResponse' {Int
httpStatus :: Int
$sel:httpStatus:SearchQuantumTasksResponse' :: SearchQuantumTasksResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SearchQuantumTasksResponse
s@SearchQuantumTasksResponse' {} Int
a -> SearchQuantumTasksResponse
s {$sel:httpStatus:SearchQuantumTasksResponse' :: Int
httpStatus = Int
a} :: SearchQuantumTasksResponse)
searchQuantumTasksResponse_quantumTasks :: Lens.Lens' SearchQuantumTasksResponse [QuantumTaskSummary]
searchQuantumTasksResponse_quantumTasks :: Lens' SearchQuantumTasksResponse [QuantumTaskSummary]
searchQuantumTasksResponse_quantumTasks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQuantumTasksResponse' {[QuantumTaskSummary]
quantumTasks :: [QuantumTaskSummary]
$sel:quantumTasks:SearchQuantumTasksResponse' :: SearchQuantumTasksResponse -> [QuantumTaskSummary]
quantumTasks} -> [QuantumTaskSummary]
quantumTasks) (\s :: SearchQuantumTasksResponse
s@SearchQuantumTasksResponse' {} [QuantumTaskSummary]
a -> SearchQuantumTasksResponse
s {$sel:quantumTasks:SearchQuantumTasksResponse' :: [QuantumTaskSummary]
quantumTasks = [QuantumTaskSummary]
a} :: SearchQuantumTasksResponse) 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 SearchQuantumTasksResponse where
rnf :: SearchQuantumTasksResponse -> ()
rnf SearchQuantumTasksResponse' {Int
[QuantumTaskSummary]
Maybe Text
quantumTasks :: [QuantumTaskSummary]
httpStatus :: Int
nextToken :: Maybe Text
$sel:quantumTasks:SearchQuantumTasksResponse' :: SearchQuantumTasksResponse -> [QuantumTaskSummary]
$sel:httpStatus:SearchQuantumTasksResponse' :: SearchQuantumTasksResponse -> Int
$sel:nextToken:SearchQuantumTasksResponse' :: SearchQuantumTasksResponse -> 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 [QuantumTaskSummary]
quantumTasks