{-# 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.DescribeDataSources
(
DescribeDataSources (..),
newDescribeDataSources,
describeDataSources_eq,
describeDataSources_filterVariable,
describeDataSources_ge,
describeDataSources_gt,
describeDataSources_le,
describeDataSources_lt,
describeDataSources_limit,
describeDataSources_ne,
describeDataSources_nextToken,
describeDataSources_prefix,
describeDataSources_sortOrder,
DescribeDataSourcesResponse (..),
newDescribeDataSourcesResponse,
describeDataSourcesResponse_nextToken,
describeDataSourcesResponse_results,
describeDataSourcesResponse_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 DescribeDataSources = DescribeDataSources'
{
DescribeDataSources -> Maybe Text
eq :: Prelude.Maybe Prelude.Text,
DescribeDataSources -> Maybe DataSourceFilterVariable
filterVariable :: Prelude.Maybe DataSourceFilterVariable,
DescribeDataSources -> Maybe Text
ge :: Prelude.Maybe Prelude.Text,
DescribeDataSources -> Maybe Text
gt :: Prelude.Maybe Prelude.Text,
DescribeDataSources -> Maybe Text
le :: Prelude.Maybe Prelude.Text,
DescribeDataSources -> Maybe Text
lt :: Prelude.Maybe Prelude.Text,
DescribeDataSources -> Maybe Natural
limit :: Prelude.Maybe Prelude.Natural,
DescribeDataSources -> Maybe Text
ne :: Prelude.Maybe Prelude.Text,
DescribeDataSources -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeDataSources -> Maybe Text
prefix :: Prelude.Maybe Prelude.Text,
DescribeDataSources -> Maybe SortOrder
sortOrder :: Prelude.Maybe SortOrder
}
deriving (DescribeDataSources -> DescribeDataSources -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDataSources -> DescribeDataSources -> Bool
$c/= :: DescribeDataSources -> DescribeDataSources -> Bool
== :: DescribeDataSources -> DescribeDataSources -> Bool
$c== :: DescribeDataSources -> DescribeDataSources -> Bool
Prelude.Eq, ReadPrec [DescribeDataSources]
ReadPrec DescribeDataSources
Int -> ReadS DescribeDataSources
ReadS [DescribeDataSources]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDataSources]
$creadListPrec :: ReadPrec [DescribeDataSources]
readPrec :: ReadPrec DescribeDataSources
$creadPrec :: ReadPrec DescribeDataSources
readList :: ReadS [DescribeDataSources]
$creadList :: ReadS [DescribeDataSources]
readsPrec :: Int -> ReadS DescribeDataSources
$creadsPrec :: Int -> ReadS DescribeDataSources
Prelude.Read, Int -> DescribeDataSources -> ShowS
[DescribeDataSources] -> ShowS
DescribeDataSources -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDataSources] -> ShowS
$cshowList :: [DescribeDataSources] -> ShowS
show :: DescribeDataSources -> String
$cshow :: DescribeDataSources -> String
showsPrec :: Int -> DescribeDataSources -> ShowS
$cshowsPrec :: Int -> DescribeDataSources -> ShowS
Prelude.Show, forall x. Rep DescribeDataSources x -> DescribeDataSources
forall x. DescribeDataSources -> Rep DescribeDataSources x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeDataSources x -> DescribeDataSources
$cfrom :: forall x. DescribeDataSources -> Rep DescribeDataSources x
Prelude.Generic)
newDescribeDataSources ::
DescribeDataSources
newDescribeDataSources :: DescribeDataSources
newDescribeDataSources =
DescribeDataSources'
{ $sel:eq:DescribeDataSources' :: Maybe Text
eq = forall a. Maybe a
Prelude.Nothing,
$sel:filterVariable:DescribeDataSources' :: Maybe DataSourceFilterVariable
filterVariable = forall a. Maybe a
Prelude.Nothing,
$sel:ge:DescribeDataSources' :: Maybe Text
ge = forall a. Maybe a
Prelude.Nothing,
$sel:gt:DescribeDataSources' :: Maybe Text
gt = forall a. Maybe a
Prelude.Nothing,
$sel:le:DescribeDataSources' :: Maybe Text
le = forall a. Maybe a
Prelude.Nothing,
$sel:lt:DescribeDataSources' :: Maybe Text
lt = forall a. Maybe a
Prelude.Nothing,
$sel:limit:DescribeDataSources' :: Maybe Natural
limit = forall a. Maybe a
Prelude.Nothing,
$sel:ne:DescribeDataSources' :: Maybe Text
ne = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeDataSources' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:prefix:DescribeDataSources' :: Maybe Text
prefix = forall a. Maybe a
Prelude.Nothing,
$sel:sortOrder:DescribeDataSources' :: Maybe SortOrder
sortOrder = forall a. Maybe a
Prelude.Nothing
}
describeDataSources_eq :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Text)
describeDataSources_eq :: Lens' DescribeDataSources (Maybe Text)
describeDataSources_eq = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Text
eq :: Maybe Text
$sel:eq:DescribeDataSources' :: DescribeDataSources -> Maybe Text
eq} -> Maybe Text
eq) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Text
a -> DescribeDataSources
s {$sel:eq:DescribeDataSources' :: Maybe Text
eq = Maybe Text
a} :: DescribeDataSources)
describeDataSources_filterVariable :: Lens.Lens' DescribeDataSources (Prelude.Maybe DataSourceFilterVariable)
describeDataSources_filterVariable :: Lens' DescribeDataSources (Maybe DataSourceFilterVariable)
describeDataSources_filterVariable = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe DataSourceFilterVariable
filterVariable :: Maybe DataSourceFilterVariable
$sel:filterVariable:DescribeDataSources' :: DescribeDataSources -> Maybe DataSourceFilterVariable
filterVariable} -> Maybe DataSourceFilterVariable
filterVariable) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe DataSourceFilterVariable
a -> DescribeDataSources
s {$sel:filterVariable:DescribeDataSources' :: Maybe DataSourceFilterVariable
filterVariable = Maybe DataSourceFilterVariable
a} :: DescribeDataSources)
describeDataSources_ge :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Text)
describeDataSources_ge :: Lens' DescribeDataSources (Maybe Text)
describeDataSources_ge = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Text
ge :: Maybe Text
$sel:ge:DescribeDataSources' :: DescribeDataSources -> Maybe Text
ge} -> Maybe Text
ge) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Text
a -> DescribeDataSources
s {$sel:ge:DescribeDataSources' :: Maybe Text
ge = Maybe Text
a} :: DescribeDataSources)
describeDataSources_gt :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Text)
describeDataSources_gt :: Lens' DescribeDataSources (Maybe Text)
describeDataSources_gt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Text
gt :: Maybe Text
$sel:gt:DescribeDataSources' :: DescribeDataSources -> Maybe Text
gt} -> Maybe Text
gt) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Text
a -> DescribeDataSources
s {$sel:gt:DescribeDataSources' :: Maybe Text
gt = Maybe Text
a} :: DescribeDataSources)
describeDataSources_le :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Text)
describeDataSources_le :: Lens' DescribeDataSources (Maybe Text)
describeDataSources_le = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Text
le :: Maybe Text
$sel:le:DescribeDataSources' :: DescribeDataSources -> Maybe Text
le} -> Maybe Text
le) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Text
a -> DescribeDataSources
s {$sel:le:DescribeDataSources' :: Maybe Text
le = Maybe Text
a} :: DescribeDataSources)
describeDataSources_lt :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Text)
describeDataSources_lt :: Lens' DescribeDataSources (Maybe Text)
describeDataSources_lt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Text
lt :: Maybe Text
$sel:lt:DescribeDataSources' :: DescribeDataSources -> Maybe Text
lt} -> Maybe Text
lt) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Text
a -> DescribeDataSources
s {$sel:lt:DescribeDataSources' :: Maybe Text
lt = Maybe Text
a} :: DescribeDataSources)
describeDataSources_limit :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Natural)
describeDataSources_limit :: Lens' DescribeDataSources (Maybe Natural)
describeDataSources_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Natural
limit :: Maybe Natural
$sel:limit:DescribeDataSources' :: DescribeDataSources -> Maybe Natural
limit} -> Maybe Natural
limit) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Natural
a -> DescribeDataSources
s {$sel:limit:DescribeDataSources' :: Maybe Natural
limit = Maybe Natural
a} :: DescribeDataSources)
describeDataSources_ne :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Text)
describeDataSources_ne :: Lens' DescribeDataSources (Maybe Text)
describeDataSources_ne = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Text
ne :: Maybe Text
$sel:ne:DescribeDataSources' :: DescribeDataSources -> Maybe Text
ne} -> Maybe Text
ne) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Text
a -> DescribeDataSources
s {$sel:ne:DescribeDataSources' :: Maybe Text
ne = Maybe Text
a} :: DescribeDataSources)
describeDataSources_nextToken :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Text)
describeDataSources_nextToken :: Lens' DescribeDataSources (Maybe Text)
describeDataSources_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeDataSources' :: DescribeDataSources -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Text
a -> DescribeDataSources
s {$sel:nextToken:DescribeDataSources' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeDataSources)
describeDataSources_prefix :: Lens.Lens' DescribeDataSources (Prelude.Maybe Prelude.Text)
describeDataSources_prefix :: Lens' DescribeDataSources (Maybe Text)
describeDataSources_prefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe Text
prefix :: Maybe Text
$sel:prefix:DescribeDataSources' :: DescribeDataSources -> Maybe Text
prefix} -> Maybe Text
prefix) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe Text
a -> DescribeDataSources
s {$sel:prefix:DescribeDataSources' :: Maybe Text
prefix = Maybe Text
a} :: DescribeDataSources)
describeDataSources_sortOrder :: Lens.Lens' DescribeDataSources (Prelude.Maybe SortOrder)
describeDataSources_sortOrder :: Lens' DescribeDataSources (Maybe SortOrder)
describeDataSources_sortOrder = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSources' {Maybe SortOrder
sortOrder :: Maybe SortOrder
$sel:sortOrder:DescribeDataSources' :: DescribeDataSources -> Maybe SortOrder
sortOrder} -> Maybe SortOrder
sortOrder) (\s :: DescribeDataSources
s@DescribeDataSources' {} Maybe SortOrder
a -> DescribeDataSources
s {$sel:sortOrder:DescribeDataSources' :: Maybe SortOrder
sortOrder = Maybe SortOrder
a} :: DescribeDataSources)
instance Core.AWSPager DescribeDataSources where
page :: DescribeDataSources
-> AWSResponse DescribeDataSources -> Maybe DescribeDataSources
page DescribeDataSources
rq AWSResponse DescribeDataSources
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeDataSources
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDataSourcesResponse (Maybe Text)
describeDataSourcesResponse_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 DescribeDataSources
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDataSourcesResponse (Maybe [DataSource])
describeDataSourcesResponse_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.$ DescribeDataSources
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeDataSources (Maybe Text)
describeDataSources_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeDataSources
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDataSourcesResponse (Maybe Text)
describeDataSourcesResponse_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 DescribeDataSources where
type
AWSResponse DescribeDataSources =
DescribeDataSourcesResponse
request :: (Service -> Service)
-> DescribeDataSources -> Request DescribeDataSources
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 DescribeDataSources
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeDataSources)))
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 [DataSource] -> Int -> DescribeDataSourcesResponse
DescribeDataSourcesResponse'
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 DescribeDataSources where
hashWithSalt :: Int -> DescribeDataSources -> Int
hashWithSalt Int
_salt DescribeDataSources' {Maybe Natural
Maybe Text
Maybe DataSourceFilterVariable
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 DataSourceFilterVariable
eq :: Maybe Text
$sel:sortOrder:DescribeDataSources' :: DescribeDataSources -> Maybe SortOrder
$sel:prefix:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:nextToken:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:ne:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:limit:DescribeDataSources' :: DescribeDataSources -> Maybe Natural
$sel:lt:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:le:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:gt:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:ge:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:filterVariable:DescribeDataSources' :: DescribeDataSources -> Maybe DataSourceFilterVariable
$sel:eq:DescribeDataSources' :: DescribeDataSources -> 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 DataSourceFilterVariable
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 DescribeDataSources where
rnf :: DescribeDataSources -> ()
rnf DescribeDataSources' {Maybe Natural
Maybe Text
Maybe DataSourceFilterVariable
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 DataSourceFilterVariable
eq :: Maybe Text
$sel:sortOrder:DescribeDataSources' :: DescribeDataSources -> Maybe SortOrder
$sel:prefix:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:nextToken:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:ne:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:limit:DescribeDataSources' :: DescribeDataSources -> Maybe Natural
$sel:lt:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:le:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:gt:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:ge:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:filterVariable:DescribeDataSources' :: DescribeDataSources -> Maybe DataSourceFilterVariable
$sel:eq:DescribeDataSources' :: DescribeDataSources -> 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 DataSourceFilterVariable
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 DescribeDataSources where
toHeaders :: DescribeDataSources -> 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.DescribeDataSources" ::
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 DescribeDataSources where
toJSON :: DescribeDataSources -> Value
toJSON DescribeDataSources' {Maybe Natural
Maybe Text
Maybe DataSourceFilterVariable
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 DataSourceFilterVariable
eq :: Maybe Text
$sel:sortOrder:DescribeDataSources' :: DescribeDataSources -> Maybe SortOrder
$sel:prefix:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:nextToken:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:ne:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:limit:DescribeDataSources' :: DescribeDataSources -> Maybe Natural
$sel:lt:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:le:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:gt:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:ge:DescribeDataSources' :: DescribeDataSources -> Maybe Text
$sel:filterVariable:DescribeDataSources' :: DescribeDataSources -> Maybe DataSourceFilterVariable
$sel:eq:DescribeDataSources' :: DescribeDataSources -> 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 DataSourceFilterVariable
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 DescribeDataSources where
toPath :: DescribeDataSources -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeDataSources where
toQuery :: DescribeDataSources -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeDataSourcesResponse = DescribeDataSourcesResponse'
{
DescribeDataSourcesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeDataSourcesResponse -> Maybe [DataSource]
results :: Prelude.Maybe [DataSource],
DescribeDataSourcesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDataSourcesResponse -> DescribeDataSourcesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDataSourcesResponse -> DescribeDataSourcesResponse -> Bool
$c/= :: DescribeDataSourcesResponse -> DescribeDataSourcesResponse -> Bool
== :: DescribeDataSourcesResponse -> DescribeDataSourcesResponse -> Bool
$c== :: DescribeDataSourcesResponse -> DescribeDataSourcesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDataSourcesResponse]
ReadPrec DescribeDataSourcesResponse
Int -> ReadS DescribeDataSourcesResponse
ReadS [DescribeDataSourcesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDataSourcesResponse]
$creadListPrec :: ReadPrec [DescribeDataSourcesResponse]
readPrec :: ReadPrec DescribeDataSourcesResponse
$creadPrec :: ReadPrec DescribeDataSourcesResponse
readList :: ReadS [DescribeDataSourcesResponse]
$creadList :: ReadS [DescribeDataSourcesResponse]
readsPrec :: Int -> ReadS DescribeDataSourcesResponse
$creadsPrec :: Int -> ReadS DescribeDataSourcesResponse
Prelude.Read, Int -> DescribeDataSourcesResponse -> ShowS
[DescribeDataSourcesResponse] -> ShowS
DescribeDataSourcesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDataSourcesResponse] -> ShowS
$cshowList :: [DescribeDataSourcesResponse] -> ShowS
show :: DescribeDataSourcesResponse -> String
$cshow :: DescribeDataSourcesResponse -> String
showsPrec :: Int -> DescribeDataSourcesResponse -> ShowS
$cshowsPrec :: Int -> DescribeDataSourcesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDataSourcesResponse x -> DescribeDataSourcesResponse
forall x.
DescribeDataSourcesResponse -> Rep DescribeDataSourcesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDataSourcesResponse x -> DescribeDataSourcesResponse
$cfrom :: forall x.
DescribeDataSourcesResponse -> Rep DescribeDataSourcesResponse x
Prelude.Generic)
newDescribeDataSourcesResponse ::
Prelude.Int ->
DescribeDataSourcesResponse
newDescribeDataSourcesResponse :: Int -> DescribeDataSourcesResponse
newDescribeDataSourcesResponse Int
pHttpStatus_ =
DescribeDataSourcesResponse'
{ $sel:nextToken:DescribeDataSourcesResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:results:DescribeDataSourcesResponse' :: Maybe [DataSource]
results = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDataSourcesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDataSourcesResponse_nextToken :: Lens.Lens' DescribeDataSourcesResponse (Prelude.Maybe Prelude.Text)
describeDataSourcesResponse_nextToken :: Lens' DescribeDataSourcesResponse (Maybe Text)
describeDataSourcesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeDataSourcesResponse' :: DescribeDataSourcesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeDataSourcesResponse
s@DescribeDataSourcesResponse' {} Maybe Text
a -> DescribeDataSourcesResponse
s {$sel:nextToken:DescribeDataSourcesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeDataSourcesResponse)
describeDataSourcesResponse_results :: Lens.Lens' DescribeDataSourcesResponse (Prelude.Maybe [DataSource])
describeDataSourcesResponse_results :: Lens' DescribeDataSourcesResponse (Maybe [DataSource])
describeDataSourcesResponse_results = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcesResponse' {Maybe [DataSource]
results :: Maybe [DataSource]
$sel:results:DescribeDataSourcesResponse' :: DescribeDataSourcesResponse -> Maybe [DataSource]
results} -> Maybe [DataSource]
results) (\s :: DescribeDataSourcesResponse
s@DescribeDataSourcesResponse' {} Maybe [DataSource]
a -> DescribeDataSourcesResponse
s {$sel:results:DescribeDataSourcesResponse' :: Maybe [DataSource]
results = Maybe [DataSource]
a} :: DescribeDataSourcesResponse) 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
describeDataSourcesResponse_httpStatus :: Lens.Lens' DescribeDataSourcesResponse Prelude.Int
describeDataSourcesResponse_httpStatus :: Lens' DescribeDataSourcesResponse Int
describeDataSourcesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDataSourcesResponse' :: DescribeDataSourcesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDataSourcesResponse
s@DescribeDataSourcesResponse' {} Int
a -> DescribeDataSourcesResponse
s {$sel:httpStatus:DescribeDataSourcesResponse' :: Int
httpStatus = Int
a} :: DescribeDataSourcesResponse)
instance Prelude.NFData DescribeDataSourcesResponse where
rnf :: DescribeDataSourcesResponse -> ()
rnf DescribeDataSourcesResponse' {Int
Maybe [DataSource]
Maybe Text
httpStatus :: Int
results :: Maybe [DataSource]
nextToken :: Maybe Text
$sel:httpStatus:DescribeDataSourcesResponse' :: DescribeDataSourcesResponse -> Int
$sel:results:DescribeDataSourcesResponse' :: DescribeDataSourcesResponse -> Maybe [DataSource]
$sel:nextToken:DescribeDataSourcesResponse' :: DescribeDataSourcesResponse -> 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 [DataSource]
results
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus