{-# 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.CodeStar.ListProjects
(
listProjects
, ListProjects
, lpNextToken
, lpMaxResults
, listProjectsResponse
, ListProjectsResponse
, lprsNextToken
, lprsResponseStatus
, lprsProjects
) where
import Network.AWS.CodeStar.Types
import Network.AWS.CodeStar.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListProjects = ListProjects'
{ _lpNextToken :: !(Maybe Text)
, _lpMaxResults :: !(Maybe Nat)
} 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 Natural)
lpMaxResults = lens _lpMaxResults (\ s a -> s{_lpMaxResults = a}) . mapping _Nat
instance AWSRequest ListProjects where
type Rs ListProjects = ListProjectsResponse
request = postJSON codeStar
response
= receiveJSON
(\ s h x ->
ListProjectsResponse' <$>
(x .?> "nextToken") <*> (pure (fromEnum s)) <*>
(x .?> "projects" .!@ mempty))
instance Hashable ListProjects where
instance NFData ListProjects where
instance ToHeaders ListProjects where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeStar_20170419.ListProjects" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListProjects where
toJSON ListProjects'{..}
= object
(catMaybes
[("nextToken" .=) <$> _lpNextToken,
("maxResults" .=) <$> _lpMaxResults])
instance ToPath ListProjects where
toPath = const "/"
instance ToQuery ListProjects where
toQuery = const mempty
data ListProjectsResponse = ListProjectsResponse'
{ _lprsNextToken :: !(Maybe Text)
, _lprsResponseStatus :: !Int
, _lprsProjects :: ![ProjectSummary]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listProjectsResponse
:: Int
-> ListProjectsResponse
listProjectsResponse pResponseStatus_ =
ListProjectsResponse'
{ _lprsNextToken = Nothing
, _lprsResponseStatus = pResponseStatus_
, _lprsProjects = mempty
}
lprsNextToken :: Lens' ListProjectsResponse (Maybe Text)
lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a})
lprsResponseStatus :: Lens' ListProjectsResponse Int
lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a})
lprsProjects :: Lens' ListProjectsResponse [ProjectSummary]
lprsProjects = lens _lprsProjects (\ s a -> s{_lprsProjects = a}) . _Coerce
instance NFData ListProjectsResponse where