module Network.AWS.MigrationHub.ListDiscoveredResources
(
listDiscoveredResources
, ListDiscoveredResources
, ldrNextToken
, ldrMaxResults
, ldrProgressUpdateStream
, ldrMigrationTaskName
, listDiscoveredResourcesResponse
, ListDiscoveredResourcesResponse
, ldrrsDiscoveredResourceList
, ldrrsNextToken
, ldrrsResponseStatus
) 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 ListDiscoveredResources = ListDiscoveredResources'
{ _ldrNextToken :: !(Maybe Text)
, _ldrMaxResults :: !(Maybe Nat)
, _ldrProgressUpdateStream :: !Text
, _ldrMigrationTaskName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDiscoveredResources
:: Text
-> Text
-> ListDiscoveredResources
listDiscoveredResources pProgressUpdateStream_ pMigrationTaskName_ =
ListDiscoveredResources'
{ _ldrNextToken = Nothing
, _ldrMaxResults = Nothing
, _ldrProgressUpdateStream = pProgressUpdateStream_
, _ldrMigrationTaskName = pMigrationTaskName_
}
ldrNextToken :: Lens' ListDiscoveredResources (Maybe Text)
ldrNextToken = lens _ldrNextToken (\ s a -> s{_ldrNextToken = a});
ldrMaxResults :: Lens' ListDiscoveredResources (Maybe Natural)
ldrMaxResults = lens _ldrMaxResults (\ s a -> s{_ldrMaxResults = a}) . mapping _Nat;
ldrProgressUpdateStream :: Lens' ListDiscoveredResources Text
ldrProgressUpdateStream = lens _ldrProgressUpdateStream (\ s a -> s{_ldrProgressUpdateStream = a});
ldrMigrationTaskName :: Lens' ListDiscoveredResources Text
ldrMigrationTaskName = lens _ldrMigrationTaskName (\ s a -> s{_ldrMigrationTaskName = a});
instance AWSRequest ListDiscoveredResources where
type Rs ListDiscoveredResources =
ListDiscoveredResourcesResponse
request = postJSON migrationHub
response
= receiveJSON
(\ s h x ->
ListDiscoveredResourcesResponse' <$>
(x .?> "DiscoveredResourceList" .!@ mempty) <*>
(x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListDiscoveredResources where
instance NFData ListDiscoveredResources where
instance ToHeaders ListDiscoveredResources where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSMigrationHub.ListDiscoveredResources" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListDiscoveredResources where
toJSON ListDiscoveredResources'{..}
= object
(catMaybes
[("NextToken" .=) <$> _ldrNextToken,
("MaxResults" .=) <$> _ldrMaxResults,
Just
("ProgressUpdateStream" .= _ldrProgressUpdateStream),
Just ("MigrationTaskName" .= _ldrMigrationTaskName)])
instance ToPath ListDiscoveredResources where
toPath = const "/"
instance ToQuery ListDiscoveredResources where
toQuery = const mempty
data ListDiscoveredResourcesResponse = ListDiscoveredResourcesResponse'
{ _ldrrsDiscoveredResourceList :: !(Maybe [DiscoveredResource])
, _ldrrsNextToken :: !(Maybe Text)
, _ldrrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDiscoveredResourcesResponse
:: Int
-> ListDiscoveredResourcesResponse
listDiscoveredResourcesResponse pResponseStatus_ =
ListDiscoveredResourcesResponse'
{ _ldrrsDiscoveredResourceList = Nothing
, _ldrrsNextToken = Nothing
, _ldrrsResponseStatus = pResponseStatus_
}
ldrrsDiscoveredResourceList :: Lens' ListDiscoveredResourcesResponse [DiscoveredResource]
ldrrsDiscoveredResourceList = lens _ldrrsDiscoveredResourceList (\ s a -> s{_ldrrsDiscoveredResourceList = a}) . _Default . _Coerce;
ldrrsNextToken :: Lens' ListDiscoveredResourcesResponse (Maybe Text)
ldrrsNextToken = lens _ldrrsNextToken (\ s a -> s{_ldrrsNextToken = a});
ldrrsResponseStatus :: Lens' ListDiscoveredResourcesResponse Int
ldrrsResponseStatus = lens _ldrrsResponseStatus (\ s a -> s{_ldrrsResponseStatus = a});
instance NFData ListDiscoveredResourcesResponse where