module Network.AWS.MigrationHub.ListProgressUpdateStreams
(
listProgressUpdateStreams
, ListProgressUpdateStreams
, lpusNextToken
, lpusMaxResults
, listProgressUpdateStreamsResponse
, ListProgressUpdateStreamsResponse
, lpusrsProgressUpdateStreamSummaryList
, lpusrsNextToken
, lpusrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MigrationHub.Types
import Network.AWS.MigrationHub.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListProgressUpdateStreams = ListProgressUpdateStreams'
{ _lpusNextToken :: !(Maybe Text)
, _lpusMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listProgressUpdateStreams
:: ListProgressUpdateStreams
listProgressUpdateStreams =
ListProgressUpdateStreams'
{_lpusNextToken = Nothing, _lpusMaxResults = Nothing}
lpusNextToken :: Lens' ListProgressUpdateStreams (Maybe Text)
lpusNextToken = lens _lpusNextToken (\ s a -> s{_lpusNextToken = a});
lpusMaxResults :: Lens' ListProgressUpdateStreams (Maybe Natural)
lpusMaxResults = lens _lpusMaxResults (\ s a -> s{_lpusMaxResults = a}) . mapping _Nat;
instance AWSRequest ListProgressUpdateStreams where
type Rs ListProgressUpdateStreams =
ListProgressUpdateStreamsResponse
request = postJSON migrationHub
response
= receiveJSON
(\ s h x ->
ListProgressUpdateStreamsResponse' <$>
(x .?> "ProgressUpdateStreamSummaryList" .!@ mempty)
<*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListProgressUpdateStreams where
instance NFData ListProgressUpdateStreams where
instance ToHeaders ListProgressUpdateStreams where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSMigrationHub.ListProgressUpdateStreams" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListProgressUpdateStreams where
toJSON ListProgressUpdateStreams'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lpusNextToken,
("MaxResults" .=) <$> _lpusMaxResults])
instance ToPath ListProgressUpdateStreams where
toPath = const "/"
instance ToQuery ListProgressUpdateStreams where
toQuery = const mempty
data ListProgressUpdateStreamsResponse = ListProgressUpdateStreamsResponse'
{ _lpusrsProgressUpdateStreamSummaryList :: !(Maybe [ProgressUpdateStreamSummary])
, _lpusrsNextToken :: !(Maybe Text)
, _lpusrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listProgressUpdateStreamsResponse
:: Int
-> ListProgressUpdateStreamsResponse
listProgressUpdateStreamsResponse pResponseStatus_ =
ListProgressUpdateStreamsResponse'
{ _lpusrsProgressUpdateStreamSummaryList = Nothing
, _lpusrsNextToken = Nothing
, _lpusrsResponseStatus = pResponseStatus_
}
lpusrsProgressUpdateStreamSummaryList :: Lens' ListProgressUpdateStreamsResponse [ProgressUpdateStreamSummary]
lpusrsProgressUpdateStreamSummaryList = lens _lpusrsProgressUpdateStreamSummaryList (\ s a -> s{_lpusrsProgressUpdateStreamSummaryList = a}) . _Default . _Coerce;
lpusrsNextToken :: Lens' ListProgressUpdateStreamsResponse (Maybe Text)
lpusrsNextToken = lens _lpusrsNextToken (\ s a -> s{_lpusrsNextToken = a});
lpusrsResponseStatus :: Lens' ListProgressUpdateStreamsResponse Int
lpusrsResponseStatus = lens _lpusrsResponseStatus (\ s a -> s{_lpusrsResponseStatus = a});
instance NFData ListProgressUpdateStreamsResponse
where