{-# 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.DescribeThingRegistrationTask
(
describeThingRegistrationTask
, DescribeThingRegistrationTask
, dtrtTaskId
, describeThingRegistrationTaskResponse
, DescribeThingRegistrationTaskResponse
, dtrtrsStatus
, dtrtrsLastModifiedDate
, dtrtrsInputFileKey
, dtrtrsTaskId
, dtrtrsCreationDate
, dtrtrsPercentageProgress
, dtrtrsTemplateBody
, dtrtrsSuccessCount
, dtrtrsMessage
, dtrtrsFailureCount
, dtrtrsInputFileBucket
, dtrtrsRoleARN
, dtrtrsResponseStatus
) 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
newtype DescribeThingRegistrationTask = DescribeThingRegistrationTask'
{ _dtrtTaskId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeThingRegistrationTask
:: Text
-> DescribeThingRegistrationTask
describeThingRegistrationTask pTaskId_ =
DescribeThingRegistrationTask' {_dtrtTaskId = pTaskId_}
dtrtTaskId :: Lens' DescribeThingRegistrationTask Text
dtrtTaskId = lens _dtrtTaskId (\ s a -> s{_dtrtTaskId = a})
instance AWSRequest DescribeThingRegistrationTask
where
type Rs DescribeThingRegistrationTask =
DescribeThingRegistrationTaskResponse
request = get ioT
response
= receiveJSON
(\ s h x ->
DescribeThingRegistrationTaskResponse' <$>
(x .?> "status") <*> (x .?> "lastModifiedDate") <*>
(x .?> "inputFileKey")
<*> (x .?> "taskId")
<*> (x .?> "creationDate")
<*> (x .?> "percentageProgress")
<*> (x .?> "templateBody")
<*> (x .?> "successCount")
<*> (x .?> "message")
<*> (x .?> "failureCount")
<*> (x .?> "inputFileBucket")
<*> (x .?> "roleArn")
<*> (pure (fromEnum s)))
instance Hashable DescribeThingRegistrationTask where
instance NFData DescribeThingRegistrationTask where
instance ToHeaders DescribeThingRegistrationTask
where
toHeaders = const mempty
instance ToPath DescribeThingRegistrationTask where
toPath DescribeThingRegistrationTask'{..}
= mconcat
["/thing-registration-tasks/", toBS _dtrtTaskId]
instance ToQuery DescribeThingRegistrationTask where
toQuery = const mempty
data DescribeThingRegistrationTaskResponse = DescribeThingRegistrationTaskResponse'
{ _dtrtrsStatus :: !(Maybe TaskStatus)
, _dtrtrsLastModifiedDate :: !(Maybe POSIX)
, _dtrtrsInputFileKey :: !(Maybe Text)
, _dtrtrsTaskId :: !(Maybe Text)
, _dtrtrsCreationDate :: !(Maybe POSIX)
, _dtrtrsPercentageProgress :: !(Maybe Nat)
, _dtrtrsTemplateBody :: !(Maybe Text)
, _dtrtrsSuccessCount :: !(Maybe Int)
, _dtrtrsMessage :: !(Maybe Text)
, _dtrtrsFailureCount :: !(Maybe Int)
, _dtrtrsInputFileBucket :: !(Maybe Text)
, _dtrtrsRoleARN :: !(Maybe Text)
, _dtrtrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeThingRegistrationTaskResponse
:: Int
-> DescribeThingRegistrationTaskResponse
describeThingRegistrationTaskResponse pResponseStatus_ =
DescribeThingRegistrationTaskResponse'
{ _dtrtrsStatus = Nothing
, _dtrtrsLastModifiedDate = Nothing
, _dtrtrsInputFileKey = Nothing
, _dtrtrsTaskId = Nothing
, _dtrtrsCreationDate = Nothing
, _dtrtrsPercentageProgress = Nothing
, _dtrtrsTemplateBody = Nothing
, _dtrtrsSuccessCount = Nothing
, _dtrtrsMessage = Nothing
, _dtrtrsFailureCount = Nothing
, _dtrtrsInputFileBucket = Nothing
, _dtrtrsRoleARN = Nothing
, _dtrtrsResponseStatus = pResponseStatus_
}
dtrtrsStatus :: Lens' DescribeThingRegistrationTaskResponse (Maybe TaskStatus)
dtrtrsStatus = lens _dtrtrsStatus (\ s a -> s{_dtrtrsStatus = a})
dtrtrsLastModifiedDate :: Lens' DescribeThingRegistrationTaskResponse (Maybe UTCTime)
dtrtrsLastModifiedDate = lens _dtrtrsLastModifiedDate (\ s a -> s{_dtrtrsLastModifiedDate = a}) . mapping _Time
dtrtrsInputFileKey :: Lens' DescribeThingRegistrationTaskResponse (Maybe Text)
dtrtrsInputFileKey = lens _dtrtrsInputFileKey (\ s a -> s{_dtrtrsInputFileKey = a})
dtrtrsTaskId :: Lens' DescribeThingRegistrationTaskResponse (Maybe Text)
dtrtrsTaskId = lens _dtrtrsTaskId (\ s a -> s{_dtrtrsTaskId = a})
dtrtrsCreationDate :: Lens' DescribeThingRegistrationTaskResponse (Maybe UTCTime)
dtrtrsCreationDate = lens _dtrtrsCreationDate (\ s a -> s{_dtrtrsCreationDate = a}) . mapping _Time
dtrtrsPercentageProgress :: Lens' DescribeThingRegistrationTaskResponse (Maybe Natural)
dtrtrsPercentageProgress = lens _dtrtrsPercentageProgress (\ s a -> s{_dtrtrsPercentageProgress = a}) . mapping _Nat
dtrtrsTemplateBody :: Lens' DescribeThingRegistrationTaskResponse (Maybe Text)
dtrtrsTemplateBody = lens _dtrtrsTemplateBody (\ s a -> s{_dtrtrsTemplateBody = a})
dtrtrsSuccessCount :: Lens' DescribeThingRegistrationTaskResponse (Maybe Int)
dtrtrsSuccessCount = lens _dtrtrsSuccessCount (\ s a -> s{_dtrtrsSuccessCount = a})
dtrtrsMessage :: Lens' DescribeThingRegistrationTaskResponse (Maybe Text)
dtrtrsMessage = lens _dtrtrsMessage (\ s a -> s{_dtrtrsMessage = a})
dtrtrsFailureCount :: Lens' DescribeThingRegistrationTaskResponse (Maybe Int)
dtrtrsFailureCount = lens _dtrtrsFailureCount (\ s a -> s{_dtrtrsFailureCount = a})
dtrtrsInputFileBucket :: Lens' DescribeThingRegistrationTaskResponse (Maybe Text)
dtrtrsInputFileBucket = lens _dtrtrsInputFileBucket (\ s a -> s{_dtrtrsInputFileBucket = a})
dtrtrsRoleARN :: Lens' DescribeThingRegistrationTaskResponse (Maybe Text)
dtrtrsRoleARN = lens _dtrtrsRoleARN (\ s a -> s{_dtrtrsRoleARN = a})
dtrtrsResponseStatus :: Lens' DescribeThingRegistrationTaskResponse Int
dtrtrsResponseStatus = lens _dtrtrsResponseStatus (\ s a -> s{_dtrtrsResponseStatus = a})
instance NFData DescribeThingRegistrationTaskResponse
where