{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.IoT.ListThingRegistrationTasks
(
listThingRegistrationTasks
, ListThingRegistrationTasks
, ltrtStatus
, ltrtNextToken
, ltrtMaxResults
, listThingRegistrationTasksResponse
, ListThingRegistrationTasksResponse
, ltrtrsNextToken
, ltrtrsTaskIds
, ltrtrsResponseStatus
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListThingRegistrationTasks = ListThingRegistrationTasks'
{ _ltrtStatus :: !(Maybe TaskStatus)
, _ltrtNextToken :: !(Maybe Text)
, _ltrtMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listThingRegistrationTasks
:: ListThingRegistrationTasks
listThingRegistrationTasks =
ListThingRegistrationTasks'
{_ltrtStatus = Nothing, _ltrtNextToken = Nothing, _ltrtMaxResults = Nothing}
ltrtStatus :: Lens' ListThingRegistrationTasks (Maybe TaskStatus)
ltrtStatus = lens _ltrtStatus (\ s a -> s{_ltrtStatus = a})
ltrtNextToken :: Lens' ListThingRegistrationTasks (Maybe Text)
ltrtNextToken = lens _ltrtNextToken (\ s a -> s{_ltrtNextToken = a})
ltrtMaxResults :: Lens' ListThingRegistrationTasks (Maybe Natural)
ltrtMaxResults = lens _ltrtMaxResults (\ s a -> s{_ltrtMaxResults = a}) . mapping _Nat
instance AWSRequest ListThingRegistrationTasks where
type Rs ListThingRegistrationTasks =
ListThingRegistrationTasksResponse
request = get ioT
response
= receiveJSON
(\ s h x ->
ListThingRegistrationTasksResponse' <$>
(x .?> "nextToken") <*> (x .?> "taskIds" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListThingRegistrationTasks where
instance NFData ListThingRegistrationTasks where
instance ToHeaders ListThingRegistrationTasks where
toHeaders = const mempty
instance ToPath ListThingRegistrationTasks where
toPath = const "/thing-registration-tasks"
instance ToQuery ListThingRegistrationTasks where
toQuery ListThingRegistrationTasks'{..}
= mconcat
["status" =: _ltrtStatus,
"nextToken" =: _ltrtNextToken,
"maxResults" =: _ltrtMaxResults]
data ListThingRegistrationTasksResponse = ListThingRegistrationTasksResponse'
{ _ltrtrsNextToken :: !(Maybe Text)
, _ltrtrsTaskIds :: !(Maybe [Text])
, _ltrtrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listThingRegistrationTasksResponse
:: Int
-> ListThingRegistrationTasksResponse
listThingRegistrationTasksResponse pResponseStatus_ =
ListThingRegistrationTasksResponse'
{ _ltrtrsNextToken = Nothing
, _ltrtrsTaskIds = Nothing
, _ltrtrsResponseStatus = pResponseStatus_
}
ltrtrsNextToken :: Lens' ListThingRegistrationTasksResponse (Maybe Text)
ltrtrsNextToken = lens _ltrtrsNextToken (\ s a -> s{_ltrtrsNextToken = a})
ltrtrsTaskIds :: Lens' ListThingRegistrationTasksResponse [Text]
ltrtrsTaskIds = lens _ltrtrsTaskIds (\ s a -> s{_ltrtrsTaskIds = a}) . _Default . _Coerce
ltrtrsResponseStatus :: Lens' ListThingRegistrationTasksResponse Int
ltrtrsResponseStatus = lens _ltrtrsResponseStatus (\ s a -> s{_ltrtrsResponseStatus = a})
instance NFData ListThingRegistrationTasksResponse
where