{-# 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.MigrationHub.ListMigrationTasks
(
listMigrationTasks
, ListMigrationTasks
, lmtResourceName
, lmtNextToken
, lmtMaxResults
, listMigrationTasksResponse
, ListMigrationTasksResponse
, lmtrsMigrationTaskSummaryList
, lmtrsNextToken
, lmtrsResponseStatus
) 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 ListMigrationTasks = ListMigrationTasks'
{ _lmtResourceName :: !(Maybe Text)
, _lmtNextToken :: !(Maybe Text)
, _lmtMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listMigrationTasks
:: ListMigrationTasks
listMigrationTasks =
ListMigrationTasks'
{ _lmtResourceName = Nothing
, _lmtNextToken = Nothing
, _lmtMaxResults = Nothing
}
lmtResourceName :: Lens' ListMigrationTasks (Maybe Text)
lmtResourceName = lens _lmtResourceName (\ s a -> s{_lmtResourceName = a})
lmtNextToken :: Lens' ListMigrationTasks (Maybe Text)
lmtNextToken = lens _lmtNextToken (\ s a -> s{_lmtNextToken = a})
lmtMaxResults :: Lens' ListMigrationTasks (Maybe Natural)
lmtMaxResults = lens _lmtMaxResults (\ s a -> s{_lmtMaxResults = a}) . mapping _Nat
instance AWSRequest ListMigrationTasks where
type Rs ListMigrationTasks =
ListMigrationTasksResponse
request = postJSON migrationHub
response
= receiveJSON
(\ s h x ->
ListMigrationTasksResponse' <$>
(x .?> "MigrationTaskSummaryList" .!@ mempty) <*>
(x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListMigrationTasks where
instance NFData ListMigrationTasks where
instance ToHeaders ListMigrationTasks where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSMigrationHub.ListMigrationTasks" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListMigrationTasks where
toJSON ListMigrationTasks'{..}
= object
(catMaybes
[("ResourceName" .=) <$> _lmtResourceName,
("NextToken" .=) <$> _lmtNextToken,
("MaxResults" .=) <$> _lmtMaxResults])
instance ToPath ListMigrationTasks where
toPath = const "/"
instance ToQuery ListMigrationTasks where
toQuery = const mempty
data ListMigrationTasksResponse = ListMigrationTasksResponse'
{ _lmtrsMigrationTaskSummaryList :: !(Maybe [MigrationTaskSummary])
, _lmtrsNextToken :: !(Maybe Text)
, _lmtrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listMigrationTasksResponse
:: Int
-> ListMigrationTasksResponse
listMigrationTasksResponse pResponseStatus_ =
ListMigrationTasksResponse'
{ _lmtrsMigrationTaskSummaryList = Nothing
, _lmtrsNextToken = Nothing
, _lmtrsResponseStatus = pResponseStatus_
}
lmtrsMigrationTaskSummaryList :: Lens' ListMigrationTasksResponse [MigrationTaskSummary]
lmtrsMigrationTaskSummaryList = lens _lmtrsMigrationTaskSummaryList (\ s a -> s{_lmtrsMigrationTaskSummaryList = a}) . _Default . _Coerce
lmtrsNextToken :: Lens' ListMigrationTasksResponse (Maybe Text)
lmtrsNextToken = lens _lmtrsNextToken (\ s a -> s{_lmtrsNextToken = a})
lmtrsResponseStatus :: Lens' ListMigrationTasksResponse Int
lmtrsResponseStatus = lens _lmtrsResponseStatus (\ s a -> s{_lmtrsResponseStatus = a})
instance NFData ListMigrationTasksResponse where