{-# 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.IoT.ListThingRegistrationTasks
(
ListThingRegistrationTasks (..),
newListThingRegistrationTasks,
listThingRegistrationTasks_maxResults,
listThingRegistrationTasks_nextToken,
listThingRegistrationTasks_status,
ListThingRegistrationTasksResponse (..),
newListThingRegistrationTasksResponse,
listThingRegistrationTasksResponse_nextToken,
listThingRegistrationTasksResponse_taskIds,
listThingRegistrationTasksResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoT.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListThingRegistrationTasks = ListThingRegistrationTasks'
{
ListThingRegistrationTasks -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListThingRegistrationTasks -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListThingRegistrationTasks -> Maybe TaskStatus
status :: Prelude.Maybe TaskStatus
}
deriving (ListThingRegistrationTasks -> ListThingRegistrationTasks -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListThingRegistrationTasks -> ListThingRegistrationTasks -> Bool
$c/= :: ListThingRegistrationTasks -> ListThingRegistrationTasks -> Bool
== :: ListThingRegistrationTasks -> ListThingRegistrationTasks -> Bool
$c== :: ListThingRegistrationTasks -> ListThingRegistrationTasks -> Bool
Prelude.Eq, ReadPrec [ListThingRegistrationTasks]
ReadPrec ListThingRegistrationTasks
Int -> ReadS ListThingRegistrationTasks
ReadS [ListThingRegistrationTasks]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListThingRegistrationTasks]
$creadListPrec :: ReadPrec [ListThingRegistrationTasks]
readPrec :: ReadPrec ListThingRegistrationTasks
$creadPrec :: ReadPrec ListThingRegistrationTasks
readList :: ReadS [ListThingRegistrationTasks]
$creadList :: ReadS [ListThingRegistrationTasks]
readsPrec :: Int -> ReadS ListThingRegistrationTasks
$creadsPrec :: Int -> ReadS ListThingRegistrationTasks
Prelude.Read, Int -> ListThingRegistrationTasks -> ShowS
[ListThingRegistrationTasks] -> ShowS
ListThingRegistrationTasks -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListThingRegistrationTasks] -> ShowS
$cshowList :: [ListThingRegistrationTasks] -> ShowS
show :: ListThingRegistrationTasks -> String
$cshow :: ListThingRegistrationTasks -> String
showsPrec :: Int -> ListThingRegistrationTasks -> ShowS
$cshowsPrec :: Int -> ListThingRegistrationTasks -> ShowS
Prelude.Show, forall x.
Rep ListThingRegistrationTasks x -> ListThingRegistrationTasks
forall x.
ListThingRegistrationTasks -> Rep ListThingRegistrationTasks x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListThingRegistrationTasks x -> ListThingRegistrationTasks
$cfrom :: forall x.
ListThingRegistrationTasks -> Rep ListThingRegistrationTasks x
Prelude.Generic)
newListThingRegistrationTasks ::
ListThingRegistrationTasks
newListThingRegistrationTasks :: ListThingRegistrationTasks
newListThingRegistrationTasks =
ListThingRegistrationTasks'
{ $sel:maxResults:ListThingRegistrationTasks' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListThingRegistrationTasks' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:status:ListThingRegistrationTasks' :: Maybe TaskStatus
status = forall a. Maybe a
Prelude.Nothing
}
listThingRegistrationTasks_maxResults :: Lens.Lens' ListThingRegistrationTasks (Prelude.Maybe Prelude.Natural)
listThingRegistrationTasks_maxResults :: Lens' ListThingRegistrationTasks (Maybe Natural)
listThingRegistrationTasks_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListThingRegistrationTasks' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListThingRegistrationTasks
s@ListThingRegistrationTasks' {} Maybe Natural
a -> ListThingRegistrationTasks
s {$sel:maxResults:ListThingRegistrationTasks' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListThingRegistrationTasks)
listThingRegistrationTasks_nextToken :: Lens.Lens' ListThingRegistrationTasks (Prelude.Maybe Prelude.Text)
listThingRegistrationTasks_nextToken :: Lens' ListThingRegistrationTasks (Maybe Text)
listThingRegistrationTasks_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListThingRegistrationTasks' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListThingRegistrationTasks
s@ListThingRegistrationTasks' {} Maybe Text
a -> ListThingRegistrationTasks
s {$sel:nextToken:ListThingRegistrationTasks' :: Maybe Text
nextToken = Maybe Text
a} :: ListThingRegistrationTasks)
listThingRegistrationTasks_status :: Lens.Lens' ListThingRegistrationTasks (Prelude.Maybe TaskStatus)
listThingRegistrationTasks_status :: Lens' ListThingRegistrationTasks (Maybe TaskStatus)
listThingRegistrationTasks_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListThingRegistrationTasks' {Maybe TaskStatus
status :: Maybe TaskStatus
$sel:status:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe TaskStatus
status} -> Maybe TaskStatus
status) (\s :: ListThingRegistrationTasks
s@ListThingRegistrationTasks' {} Maybe TaskStatus
a -> ListThingRegistrationTasks
s {$sel:status:ListThingRegistrationTasks' :: Maybe TaskStatus
status = Maybe TaskStatus
a} :: ListThingRegistrationTasks)
instance Core.AWSPager ListThingRegistrationTasks where
page :: ListThingRegistrationTasks
-> AWSResponse ListThingRegistrationTasks
-> Maybe ListThingRegistrationTasks
page ListThingRegistrationTasks
rq AWSResponse ListThingRegistrationTasks
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListThingRegistrationTasks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListThingRegistrationTasksResponse (Maybe Text)
listThingRegistrationTasksResponse_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 ListThingRegistrationTasks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListThingRegistrationTasksResponse (Maybe [Text])
listThingRegistrationTasksResponse_taskIds
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.$ ListThingRegistrationTasks
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListThingRegistrationTasks (Maybe Text)
listThingRegistrationTasks_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListThingRegistrationTasks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListThingRegistrationTasksResponse (Maybe Text)
listThingRegistrationTasksResponse_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 ListThingRegistrationTasks where
type
AWSResponse ListThingRegistrationTasks =
ListThingRegistrationTasksResponse
request :: (Service -> Service)
-> ListThingRegistrationTasks -> Request ListThingRegistrationTasks
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListThingRegistrationTasks
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListThingRegistrationTasks)))
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 [Text] -> Int -> ListThingRegistrationTasksResponse
ListThingRegistrationTasksResponse'
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
"taskIds" 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 ListThingRegistrationTasks where
hashWithSalt :: Int -> ListThingRegistrationTasks -> Int
hashWithSalt Int
_salt ListThingRegistrationTasks' {Maybe Natural
Maybe Text
Maybe TaskStatus
status :: Maybe TaskStatus
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:status:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe TaskStatus
$sel:nextToken:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe Text
$sel:maxResults:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> 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` Maybe TaskStatus
status
instance Prelude.NFData ListThingRegistrationTasks where
rnf :: ListThingRegistrationTasks -> ()
rnf ListThingRegistrationTasks' {Maybe Natural
Maybe Text
Maybe TaskStatus
status :: Maybe TaskStatus
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:status:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe TaskStatus
$sel:nextToken:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe Text
$sel:maxResults:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> 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 Maybe TaskStatus
status
instance Data.ToHeaders ListThingRegistrationTasks where
toHeaders :: ListThingRegistrationTasks -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListThingRegistrationTasks where
toPath :: ListThingRegistrationTasks -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/thing-registration-tasks"
instance Data.ToQuery ListThingRegistrationTasks where
toQuery :: ListThingRegistrationTasks -> QueryString
toQuery ListThingRegistrationTasks' {Maybe Natural
Maybe Text
Maybe TaskStatus
status :: Maybe TaskStatus
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:status:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe TaskStatus
$sel:nextToken:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe Text
$sel:maxResults:ListThingRegistrationTasks' :: ListThingRegistrationTasks -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"status" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe TaskStatus
status
]
data ListThingRegistrationTasksResponse = ListThingRegistrationTasksResponse'
{
ListThingRegistrationTasksResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListThingRegistrationTasksResponse -> Maybe [Text]
taskIds :: Prelude.Maybe [Prelude.Text],
ListThingRegistrationTasksResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListThingRegistrationTasksResponse
-> ListThingRegistrationTasksResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListThingRegistrationTasksResponse
-> ListThingRegistrationTasksResponse -> Bool
$c/= :: ListThingRegistrationTasksResponse
-> ListThingRegistrationTasksResponse -> Bool
== :: ListThingRegistrationTasksResponse
-> ListThingRegistrationTasksResponse -> Bool
$c== :: ListThingRegistrationTasksResponse
-> ListThingRegistrationTasksResponse -> Bool
Prelude.Eq, ReadPrec [ListThingRegistrationTasksResponse]
ReadPrec ListThingRegistrationTasksResponse
Int -> ReadS ListThingRegistrationTasksResponse
ReadS [ListThingRegistrationTasksResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListThingRegistrationTasksResponse]
$creadListPrec :: ReadPrec [ListThingRegistrationTasksResponse]
readPrec :: ReadPrec ListThingRegistrationTasksResponse
$creadPrec :: ReadPrec ListThingRegistrationTasksResponse
readList :: ReadS [ListThingRegistrationTasksResponse]
$creadList :: ReadS [ListThingRegistrationTasksResponse]
readsPrec :: Int -> ReadS ListThingRegistrationTasksResponse
$creadsPrec :: Int -> ReadS ListThingRegistrationTasksResponse
Prelude.Read, Int -> ListThingRegistrationTasksResponse -> ShowS
[ListThingRegistrationTasksResponse] -> ShowS
ListThingRegistrationTasksResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListThingRegistrationTasksResponse] -> ShowS
$cshowList :: [ListThingRegistrationTasksResponse] -> ShowS
show :: ListThingRegistrationTasksResponse -> String
$cshow :: ListThingRegistrationTasksResponse -> String
showsPrec :: Int -> ListThingRegistrationTasksResponse -> ShowS
$cshowsPrec :: Int -> ListThingRegistrationTasksResponse -> ShowS
Prelude.Show, forall x.
Rep ListThingRegistrationTasksResponse x
-> ListThingRegistrationTasksResponse
forall x.
ListThingRegistrationTasksResponse
-> Rep ListThingRegistrationTasksResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListThingRegistrationTasksResponse x
-> ListThingRegistrationTasksResponse
$cfrom :: forall x.
ListThingRegistrationTasksResponse
-> Rep ListThingRegistrationTasksResponse x
Prelude.Generic)
newListThingRegistrationTasksResponse ::
Prelude.Int ->
ListThingRegistrationTasksResponse
newListThingRegistrationTasksResponse :: Int -> ListThingRegistrationTasksResponse
newListThingRegistrationTasksResponse Int
pHttpStatus_ =
ListThingRegistrationTasksResponse'
{ $sel:nextToken:ListThingRegistrationTasksResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:taskIds:ListThingRegistrationTasksResponse' :: Maybe [Text]
taskIds = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListThingRegistrationTasksResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listThingRegistrationTasksResponse_nextToken :: Lens.Lens' ListThingRegistrationTasksResponse (Prelude.Maybe Prelude.Text)
listThingRegistrationTasksResponse_nextToken :: Lens' ListThingRegistrationTasksResponse (Maybe Text)
listThingRegistrationTasksResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListThingRegistrationTasksResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListThingRegistrationTasksResponse' :: ListThingRegistrationTasksResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListThingRegistrationTasksResponse
s@ListThingRegistrationTasksResponse' {} Maybe Text
a -> ListThingRegistrationTasksResponse
s {$sel:nextToken:ListThingRegistrationTasksResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListThingRegistrationTasksResponse)
listThingRegistrationTasksResponse_taskIds :: Lens.Lens' ListThingRegistrationTasksResponse (Prelude.Maybe [Prelude.Text])
listThingRegistrationTasksResponse_taskIds :: Lens' ListThingRegistrationTasksResponse (Maybe [Text])
listThingRegistrationTasksResponse_taskIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListThingRegistrationTasksResponse' {Maybe [Text]
taskIds :: Maybe [Text]
$sel:taskIds:ListThingRegistrationTasksResponse' :: ListThingRegistrationTasksResponse -> Maybe [Text]
taskIds} -> Maybe [Text]
taskIds) (\s :: ListThingRegistrationTasksResponse
s@ListThingRegistrationTasksResponse' {} Maybe [Text]
a -> ListThingRegistrationTasksResponse
s {$sel:taskIds:ListThingRegistrationTasksResponse' :: Maybe [Text]
taskIds = Maybe [Text]
a} :: ListThingRegistrationTasksResponse) 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
listThingRegistrationTasksResponse_httpStatus :: Lens.Lens' ListThingRegistrationTasksResponse Prelude.Int
listThingRegistrationTasksResponse_httpStatus :: Lens' ListThingRegistrationTasksResponse Int
listThingRegistrationTasksResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListThingRegistrationTasksResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListThingRegistrationTasksResponse' :: ListThingRegistrationTasksResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListThingRegistrationTasksResponse
s@ListThingRegistrationTasksResponse' {} Int
a -> ListThingRegistrationTasksResponse
s {$sel:httpStatus:ListThingRegistrationTasksResponse' :: Int
httpStatus = Int
a} :: ListThingRegistrationTasksResponse)
instance
Prelude.NFData
ListThingRegistrationTasksResponse
where
rnf :: ListThingRegistrationTasksResponse -> ()
rnf ListThingRegistrationTasksResponse' {Int
Maybe [Text]
Maybe Text
httpStatus :: Int
taskIds :: Maybe [Text]
nextToken :: Maybe Text
$sel:httpStatus:ListThingRegistrationTasksResponse' :: ListThingRegistrationTasksResponse -> Int
$sel:taskIds:ListThingRegistrationTasksResponse' :: ListThingRegistrationTasksResponse -> Maybe [Text]
$sel:nextToken:ListThingRegistrationTasksResponse' :: ListThingRegistrationTasksResponse -> 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 [Text]
taskIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus