{-# 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.Mobile.ListProjects
(
listProjects
, ListProjects
, lpNextToken
, lpMaxResults
, listProjectsResponse
, ListProjectsResponse
, lprsNextToken
, lprsProjects
, lprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Mobile.Types
import Network.AWS.Mobile.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListProjects = ListProjects'
{ _lpNextToken :: !(Maybe Text)
, _lpMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listProjects
:: ListProjects
listProjects = ListProjects' {_lpNextToken = Nothing, _lpMaxResults = Nothing}
lpNextToken :: Lens' ListProjects (Maybe Text)
lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a})
lpMaxResults :: Lens' ListProjects (Maybe Int)
lpMaxResults = lens _lpMaxResults (\ s a -> s{_lpMaxResults = a})
instance AWSPager ListProjects where
page rq rs
| stop (rs ^. lprsNextToken) = Nothing
| stop (rs ^. lprsProjects) = Nothing
| otherwise =
Just $ rq & lpNextToken .~ rs ^. lprsNextToken
instance AWSRequest ListProjects where
type Rs ListProjects = ListProjectsResponse
request = get mobile
response
= receiveJSON
(\ s h x ->
ListProjectsResponse' <$>
(x .?> "nextToken") <*> (x .?> "projects" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListProjects where
instance NFData ListProjects where
instance ToHeaders ListProjects where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListProjects where
toPath = const "/projects"
instance ToQuery ListProjects where
toQuery ListProjects'{..}
= mconcat
["nextToken" =: _lpNextToken,
"maxResults" =: _lpMaxResults]
data ListProjectsResponse = ListProjectsResponse'
{ _lprsNextToken :: !(Maybe Text)
, _lprsProjects :: !(Maybe [ProjectSummary])
, _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 [ProjectSummary]
lprsProjects = lens _lprsProjects (\ s a -> s{_lprsProjects = a}) . _Default . _Coerce
lprsResponseStatus :: Lens' ListProjectsResponse Int
lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a})
instance NFData ListProjectsResponse where