module Network.AWS.DeviceFarm.ListProjects
(
listProjects
, ListProjects
, lpArn
, lpNextToken
, listProjectsResponse
, ListProjectsResponse
, lprsNextToken
, lprsProjects
, lprsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListProjects = ListProjects'
{ _lpArn :: !(Maybe Text)
, _lpNextToken :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listProjects
:: ListProjects
listProjects =
ListProjects'
{ _lpArn = Nothing
, _lpNextToken = Nothing
}
lpArn :: Lens' ListProjects (Maybe Text)
lpArn = lens _lpArn (\ s a -> s{_lpArn = a});
lpNextToken :: Lens' ListProjects (Maybe Text)
lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a});
instance AWSRequest ListProjects where
type Rs ListProjects = ListProjectsResponse
request = postJSON deviceFarm
response
= receiveJSON
(\ s h x ->
ListProjectsResponse' <$>
(x .?> "nextToken") <*> (x .?> "projects" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders ListProjects where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.ListProjects" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListProjects where
toJSON ListProjects'{..}
= object
(catMaybes
[("arn" .=) <$> _lpArn,
("nextToken" .=) <$> _lpNextToken])
instance ToPath ListProjects where
toPath = const "/"
instance ToQuery ListProjects where
toQuery = const mempty
data ListProjectsResponse = ListProjectsResponse'
{ _lprsNextToken :: !(Maybe Text)
, _lprsProjects :: !(Maybe [Project])
, _lprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listProjectsResponse
:: Int
-> ListProjectsResponse
listProjectsResponse pResponseStatus_ =
ListProjectsResponse'
{ _lprsNextToken = Nothing
, _lprsProjects = Nothing
, _lprsResponseStatus = pResponseStatus_
}
lprsNextToken :: Lens' ListProjectsResponse (Maybe Text)
lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a});
lprsProjects :: Lens' ListProjectsResponse [Project]
lprsProjects = lens _lprsProjects (\ s a -> s{_lprsProjects = a}) . _Default . _Coerce;
lprsResponseStatus :: Lens' ListProjectsResponse Int
lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});