{-# 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.MachineLearning.DescribeEvaluations
(
DescribeEvaluations (..),
newDescribeEvaluations,
describeEvaluations_eq,
describeEvaluations_filterVariable,
describeEvaluations_ge,
describeEvaluations_gt,
describeEvaluations_le,
describeEvaluations_lt,
describeEvaluations_limit,
describeEvaluations_ne,
describeEvaluations_nextToken,
describeEvaluations_prefix,
describeEvaluations_sortOrder,
DescribeEvaluationsResponse (..),
newDescribeEvaluationsResponse,
describeEvaluationsResponse_nextToken,
describeEvaluationsResponse_results,
describeEvaluationsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MachineLearning.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeEvaluations = DescribeEvaluations'
{
DescribeEvaluations -> Maybe Text
eq :: Prelude.Maybe Prelude.Text,
DescribeEvaluations -> Maybe EvaluationFilterVariable
filterVariable :: Prelude.Maybe EvaluationFilterVariable,
DescribeEvaluations -> Maybe Text
ge :: Prelude.Maybe Prelude.Text,
DescribeEvaluations -> Maybe Text
gt :: Prelude.Maybe Prelude.Text,
DescribeEvaluations -> Maybe Text
le :: Prelude.Maybe Prelude.Text,
DescribeEvaluations -> Maybe Text
lt :: Prelude.Maybe Prelude.Text,
DescribeEvaluations -> Maybe Natural
limit :: Prelude.Maybe Prelude.Natural,
DescribeEvaluations -> Maybe Text
ne :: Prelude.Maybe Prelude.Text,
DescribeEvaluations -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeEvaluations -> Maybe Text
prefix :: Prelude.Maybe Prelude.Text,
DescribeEvaluations -> Maybe SortOrder
sortOrder :: Prelude.Maybe SortOrder
}
deriving (DescribeEvaluations -> DescribeEvaluations -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEvaluations -> DescribeEvaluations -> Bool
$c/= :: DescribeEvaluations -> DescribeEvaluations -> Bool
== :: DescribeEvaluations -> DescribeEvaluations -> Bool
$c== :: DescribeEvaluations -> DescribeEvaluations -> Bool
Prelude.Eq, ReadPrec [DescribeEvaluations]
ReadPrec DescribeEvaluations
Int -> ReadS DescribeEvaluations
ReadS [DescribeEvaluations]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEvaluations]
$creadListPrec :: ReadPrec [DescribeEvaluations]
readPrec :: ReadPrec DescribeEvaluations
$creadPrec :: ReadPrec DescribeEvaluations
readList :: ReadS [DescribeEvaluations]
$creadList :: ReadS [DescribeEvaluations]
readsPrec :: Int -> ReadS DescribeEvaluations
$creadsPrec :: Int -> ReadS DescribeEvaluations
Prelude.Read, Int -> DescribeEvaluations -> ShowS
[DescribeEvaluations] -> ShowS
DescribeEvaluations -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEvaluations] -> ShowS
$cshowList :: [DescribeEvaluations] -> ShowS
show :: DescribeEvaluations -> String
$cshow :: DescribeEvaluations -> String
showsPrec :: Int -> DescribeEvaluations -> ShowS
$cshowsPrec :: Int -> DescribeEvaluations -> ShowS
Prelude.Show, forall x. Rep DescribeEvaluations x -> DescribeEvaluations
forall x. DescribeEvaluations -> Rep DescribeEvaluations x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeEvaluations x -> DescribeEvaluations
$cfrom :: forall x. DescribeEvaluations -> Rep DescribeEvaluations x
Prelude.Generic)
newDescribeEvaluations ::
DescribeEvaluations
newDescribeEvaluations :: DescribeEvaluations
newDescribeEvaluations =
DescribeEvaluations'
{ $sel:eq:DescribeEvaluations' :: Maybe Text
eq = forall a. Maybe a
Prelude.Nothing,
$sel:filterVariable:DescribeEvaluations' :: Maybe EvaluationFilterVariable
filterVariable = forall a. Maybe a
Prelude.Nothing,
$sel:ge:DescribeEvaluations' :: Maybe Text
ge = forall a. Maybe a
Prelude.Nothing,
$sel:gt:DescribeEvaluations' :: Maybe Text
gt = forall a. Maybe a
Prelude.Nothing,
$sel:le:DescribeEvaluations' :: Maybe Text
le = forall a. Maybe a
Prelude.Nothing,
$sel:lt:DescribeEvaluations' :: Maybe Text
lt = forall a. Maybe a
Prelude.Nothing,
$sel:limit:DescribeEvaluations' :: Maybe Natural
limit = forall a. Maybe a
Prelude.Nothing,
$sel:ne:DescribeEvaluations' :: Maybe Text
ne = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeEvaluations' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:prefix:DescribeEvaluations' :: Maybe Text
prefix = forall a. Maybe a
Prelude.Nothing,
$sel:sortOrder:DescribeEvaluations' :: Maybe SortOrder
sortOrder = forall a. Maybe a
Prelude.Nothing
}
describeEvaluations_eq :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Text)
describeEvaluations_eq :: Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_eq = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Text
eq :: Maybe Text
$sel:eq:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
eq} -> Maybe Text
eq) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Text
a -> DescribeEvaluations
s {$sel:eq:DescribeEvaluations' :: Maybe Text
eq = Maybe Text
a} :: DescribeEvaluations)
describeEvaluations_filterVariable :: Lens.Lens' DescribeEvaluations (Prelude.Maybe EvaluationFilterVariable)
describeEvaluations_filterVariable :: Lens' DescribeEvaluations (Maybe EvaluationFilterVariable)
describeEvaluations_filterVariable = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe EvaluationFilterVariable
filterVariable :: Maybe EvaluationFilterVariable
$sel:filterVariable:DescribeEvaluations' :: DescribeEvaluations -> Maybe EvaluationFilterVariable
filterVariable} -> Maybe EvaluationFilterVariable
filterVariable) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe EvaluationFilterVariable
a -> DescribeEvaluations
s {$sel:filterVariable:DescribeEvaluations' :: Maybe EvaluationFilterVariable
filterVariable = Maybe EvaluationFilterVariable
a} :: DescribeEvaluations)
describeEvaluations_ge :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Text)
describeEvaluations_ge :: Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_ge = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Text
ge :: Maybe Text
$sel:ge:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
ge} -> Maybe Text
ge) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Text
a -> DescribeEvaluations
s {$sel:ge:DescribeEvaluations' :: Maybe Text
ge = Maybe Text
a} :: DescribeEvaluations)
describeEvaluations_gt :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Text)
describeEvaluations_gt :: Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_gt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Text
gt :: Maybe Text
$sel:gt:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
gt} -> Maybe Text
gt) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Text
a -> DescribeEvaluations
s {$sel:gt:DescribeEvaluations' :: Maybe Text
gt = Maybe Text
a} :: DescribeEvaluations)
describeEvaluations_le :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Text)
describeEvaluations_le :: Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_le = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Text
le :: Maybe Text
$sel:le:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
le} -> Maybe Text
le) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Text
a -> DescribeEvaluations
s {$sel:le:DescribeEvaluations' :: Maybe Text
le = Maybe Text
a} :: DescribeEvaluations)
describeEvaluations_lt :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Text)
describeEvaluations_lt :: Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_lt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Text
lt :: Maybe Text
$sel:lt:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
lt} -> Maybe Text
lt) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Text
a -> DescribeEvaluations
s {$sel:lt:DescribeEvaluations' :: Maybe Text
lt = Maybe Text
a} :: DescribeEvaluations)
describeEvaluations_limit :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Natural)
describeEvaluations_limit :: Lens' DescribeEvaluations (Maybe Natural)
describeEvaluations_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Natural
limit :: Maybe Natural
$sel:limit:DescribeEvaluations' :: DescribeEvaluations -> Maybe Natural
limit} -> Maybe Natural
limit) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Natural
a -> DescribeEvaluations
s {$sel:limit:DescribeEvaluations' :: Maybe Natural
limit = Maybe Natural
a} :: DescribeEvaluations)
describeEvaluations_ne :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Text)
describeEvaluations_ne :: Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_ne = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Text
ne :: Maybe Text
$sel:ne:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
ne} -> Maybe Text
ne) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Text
a -> DescribeEvaluations
s {$sel:ne:DescribeEvaluations' :: Maybe Text
ne = Maybe Text
a} :: DescribeEvaluations)
describeEvaluations_nextToken :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Text)
describeEvaluations_nextToken :: Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Text
a -> DescribeEvaluations
s {$sel:nextToken:DescribeEvaluations' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeEvaluations)
describeEvaluations_prefix :: Lens.Lens' DescribeEvaluations (Prelude.Maybe Prelude.Text)
describeEvaluations_prefix :: Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_prefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe Text
prefix :: Maybe Text
$sel:prefix:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
prefix} -> Maybe Text
prefix) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe Text
a -> DescribeEvaluations
s {$sel:prefix:DescribeEvaluations' :: Maybe Text
prefix = Maybe Text
a} :: DescribeEvaluations)
describeEvaluations_sortOrder :: Lens.Lens' DescribeEvaluations (Prelude.Maybe SortOrder)
describeEvaluations_sortOrder :: Lens' DescribeEvaluations (Maybe SortOrder)
describeEvaluations_sortOrder = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluations' {Maybe SortOrder
sortOrder :: Maybe SortOrder
$sel:sortOrder:DescribeEvaluations' :: DescribeEvaluations -> Maybe SortOrder
sortOrder} -> Maybe SortOrder
sortOrder) (\s :: DescribeEvaluations
s@DescribeEvaluations' {} Maybe SortOrder
a -> DescribeEvaluations
s {$sel:sortOrder:DescribeEvaluations' :: Maybe SortOrder
sortOrder = Maybe SortOrder
a} :: DescribeEvaluations)
instance Core.AWSPager DescribeEvaluations where
page :: DescribeEvaluations
-> AWSResponse DescribeEvaluations -> Maybe DescribeEvaluations
page DescribeEvaluations
rq AWSResponse DescribeEvaluations
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeEvaluations
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEvaluationsResponse (Maybe Text)
describeEvaluationsResponse_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 DescribeEvaluations
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEvaluationsResponse (Maybe [Evaluation])
describeEvaluationsResponse_results
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.$ DescribeEvaluations
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeEvaluations (Maybe Text)
describeEvaluations_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeEvaluations
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEvaluationsResponse (Maybe Text)
describeEvaluationsResponse_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 DescribeEvaluations where
type
AWSResponse DescribeEvaluations =
DescribeEvaluationsResponse
request :: (Service -> Service)
-> DescribeEvaluations -> Request DescribeEvaluations
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 DescribeEvaluations
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeEvaluations)))
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
-> Maybe [Evaluation] -> Int -> DescribeEvaluationsResponse
DescribeEvaluationsResponse'
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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Results" 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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DescribeEvaluations where
hashWithSalt :: Int -> DescribeEvaluations -> Int
hashWithSalt Int
_salt DescribeEvaluations' {Maybe Natural
Maybe Text
Maybe EvaluationFilterVariable
Maybe SortOrder
sortOrder :: Maybe SortOrder
prefix :: Maybe Text
nextToken :: Maybe Text
ne :: Maybe Text
limit :: Maybe Natural
lt :: Maybe Text
le :: Maybe Text
gt :: Maybe Text
ge :: Maybe Text
filterVariable :: Maybe EvaluationFilterVariable
eq :: Maybe Text
$sel:sortOrder:DescribeEvaluations' :: DescribeEvaluations -> Maybe SortOrder
$sel:prefix:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:nextToken:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:ne:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:limit:DescribeEvaluations' :: DescribeEvaluations -> Maybe Natural
$sel:lt:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:le:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:gt:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:ge:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:filterVariable:DescribeEvaluations' :: DescribeEvaluations -> Maybe EvaluationFilterVariable
$sel:eq:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
eq
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EvaluationFilterVariable
filterVariable
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ge
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
gt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
le
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
lt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
limit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ne
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
prefix
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SortOrder
sortOrder
instance Prelude.NFData DescribeEvaluations where
rnf :: DescribeEvaluations -> ()
rnf DescribeEvaluations' {Maybe Natural
Maybe Text
Maybe EvaluationFilterVariable
Maybe SortOrder
sortOrder :: Maybe SortOrder
prefix :: Maybe Text
nextToken :: Maybe Text
ne :: Maybe Text
limit :: Maybe Natural
lt :: Maybe Text
le :: Maybe Text
gt :: Maybe Text
ge :: Maybe Text
filterVariable :: Maybe EvaluationFilterVariable
eq :: Maybe Text
$sel:sortOrder:DescribeEvaluations' :: DescribeEvaluations -> Maybe SortOrder
$sel:prefix:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:nextToken:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:ne:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:limit:DescribeEvaluations' :: DescribeEvaluations -> Maybe Natural
$sel:lt:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:le:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:gt:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:ge:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:filterVariable:DescribeEvaluations' :: DescribeEvaluations -> Maybe EvaluationFilterVariable
$sel:eq:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eq
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EvaluationFilterVariable
filterVariable
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ge
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
le
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
lt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
limit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ne
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 Maybe Text
prefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SortOrder
sortOrder
instance Data.ToHeaders DescribeEvaluations where
toHeaders :: DescribeEvaluations -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AmazonML_20141212.DescribeEvaluations" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeEvaluations where
toJSON :: DescribeEvaluations -> Value
toJSON DescribeEvaluations' {Maybe Natural
Maybe Text
Maybe EvaluationFilterVariable
Maybe SortOrder
sortOrder :: Maybe SortOrder
prefix :: Maybe Text
nextToken :: Maybe Text
ne :: Maybe Text
limit :: Maybe Natural
lt :: Maybe Text
le :: Maybe Text
gt :: Maybe Text
ge :: Maybe Text
filterVariable :: Maybe EvaluationFilterVariable
eq :: Maybe Text
$sel:sortOrder:DescribeEvaluations' :: DescribeEvaluations -> Maybe SortOrder
$sel:prefix:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:nextToken:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:ne:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:limit:DescribeEvaluations' :: DescribeEvaluations -> Maybe Natural
$sel:lt:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:le:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:gt:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:ge:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
$sel:filterVariable:DescribeEvaluations' :: DescribeEvaluations -> Maybe EvaluationFilterVariable
$sel:eq:DescribeEvaluations' :: DescribeEvaluations -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"EQ" 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
eq,
(Key
"FilterVariable" 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 EvaluationFilterVariable
filterVariable,
(Key
"GE" 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
ge,
(Key
"GT" 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
gt,
(Key
"LE" 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
le,
(Key
"LT" 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
lt,
(Key
"Limit" 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
limit,
(Key
"NE" 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
ne,
(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,
(Key
"Prefix" 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
prefix,
(Key
"SortOrder" 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 SortOrder
sortOrder
]
)
instance Data.ToPath DescribeEvaluations where
toPath :: DescribeEvaluations -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeEvaluations where
toQuery :: DescribeEvaluations -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeEvaluationsResponse = DescribeEvaluationsResponse'
{
DescribeEvaluationsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeEvaluationsResponse -> Maybe [Evaluation]
results :: Prelude.Maybe [Evaluation],
DescribeEvaluationsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeEvaluationsResponse -> DescribeEvaluationsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEvaluationsResponse -> DescribeEvaluationsResponse -> Bool
$c/= :: DescribeEvaluationsResponse -> DescribeEvaluationsResponse -> Bool
== :: DescribeEvaluationsResponse -> DescribeEvaluationsResponse -> Bool
$c== :: DescribeEvaluationsResponse -> DescribeEvaluationsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeEvaluationsResponse]
ReadPrec DescribeEvaluationsResponse
Int -> ReadS DescribeEvaluationsResponse
ReadS [DescribeEvaluationsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEvaluationsResponse]
$creadListPrec :: ReadPrec [DescribeEvaluationsResponse]
readPrec :: ReadPrec DescribeEvaluationsResponse
$creadPrec :: ReadPrec DescribeEvaluationsResponse
readList :: ReadS [DescribeEvaluationsResponse]
$creadList :: ReadS [DescribeEvaluationsResponse]
readsPrec :: Int -> ReadS DescribeEvaluationsResponse
$creadsPrec :: Int -> ReadS DescribeEvaluationsResponse
Prelude.Read, Int -> DescribeEvaluationsResponse -> ShowS
[DescribeEvaluationsResponse] -> ShowS
DescribeEvaluationsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEvaluationsResponse] -> ShowS
$cshowList :: [DescribeEvaluationsResponse] -> ShowS
show :: DescribeEvaluationsResponse -> String
$cshow :: DescribeEvaluationsResponse -> String
showsPrec :: Int -> DescribeEvaluationsResponse -> ShowS
$cshowsPrec :: Int -> DescribeEvaluationsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeEvaluationsResponse x -> DescribeEvaluationsResponse
forall x.
DescribeEvaluationsResponse -> Rep DescribeEvaluationsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEvaluationsResponse x -> DescribeEvaluationsResponse
$cfrom :: forall x.
DescribeEvaluationsResponse -> Rep DescribeEvaluationsResponse x
Prelude.Generic)
newDescribeEvaluationsResponse ::
Prelude.Int ->
DescribeEvaluationsResponse
newDescribeEvaluationsResponse :: Int -> DescribeEvaluationsResponse
newDescribeEvaluationsResponse Int
pHttpStatus_ =
DescribeEvaluationsResponse'
{ $sel:nextToken:DescribeEvaluationsResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:results:DescribeEvaluationsResponse' :: Maybe [Evaluation]
results = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeEvaluationsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeEvaluationsResponse_nextToken :: Lens.Lens' DescribeEvaluationsResponse (Prelude.Maybe Prelude.Text)
describeEvaluationsResponse_nextToken :: Lens' DescribeEvaluationsResponse (Maybe Text)
describeEvaluationsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluationsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeEvaluationsResponse' :: DescribeEvaluationsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeEvaluationsResponse
s@DescribeEvaluationsResponse' {} Maybe Text
a -> DescribeEvaluationsResponse
s {$sel:nextToken:DescribeEvaluationsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeEvaluationsResponse)
describeEvaluationsResponse_results :: Lens.Lens' DescribeEvaluationsResponse (Prelude.Maybe [Evaluation])
describeEvaluationsResponse_results :: Lens' DescribeEvaluationsResponse (Maybe [Evaluation])
describeEvaluationsResponse_results = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluationsResponse' {Maybe [Evaluation]
results :: Maybe [Evaluation]
$sel:results:DescribeEvaluationsResponse' :: DescribeEvaluationsResponse -> Maybe [Evaluation]
results} -> Maybe [Evaluation]
results) (\s :: DescribeEvaluationsResponse
s@DescribeEvaluationsResponse' {} Maybe [Evaluation]
a -> DescribeEvaluationsResponse
s {$sel:results:DescribeEvaluationsResponse' :: Maybe [Evaluation]
results = Maybe [Evaluation]
a} :: DescribeEvaluationsResponse) 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
describeEvaluationsResponse_httpStatus :: Lens.Lens' DescribeEvaluationsResponse Prelude.Int
describeEvaluationsResponse_httpStatus :: Lens' DescribeEvaluationsResponse Int
describeEvaluationsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEvaluationsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeEvaluationsResponse' :: DescribeEvaluationsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeEvaluationsResponse
s@DescribeEvaluationsResponse' {} Int
a -> DescribeEvaluationsResponse
s {$sel:httpStatus:DescribeEvaluationsResponse' :: Int
httpStatus = Int
a} :: DescribeEvaluationsResponse)
instance Prelude.NFData DescribeEvaluationsResponse where
rnf :: DescribeEvaluationsResponse -> ()
rnf DescribeEvaluationsResponse' {Int
Maybe [Evaluation]
Maybe Text
httpStatus :: Int
results :: Maybe [Evaluation]
nextToken :: Maybe Text
$sel:httpStatus:DescribeEvaluationsResponse' :: DescribeEvaluationsResponse -> Int
$sel:results:DescribeEvaluationsResponse' :: DescribeEvaluationsResponse -> Maybe [Evaluation]
$sel:nextToken:DescribeEvaluationsResponse' :: DescribeEvaluationsResponse -> 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 Maybe [Evaluation]
results
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus