module Network.AWS.DeviceFarm.ListSuites
(
listSuites
, ListSuites
, lNextToken
, lArn
, listSuitesResponse
, ListSuitesResponse
, lrsNextToken
, lrsSuites
, lrsStatus
) 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 ListSuites = ListSuites'
{ _lNextToken :: !(Maybe Text)
, _lArn :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listSuites
:: Text
-> ListSuites
listSuites pArn_ =
ListSuites'
{ _lNextToken = Nothing
, _lArn = pArn_
}
lNextToken :: Lens' ListSuites (Maybe Text)
lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a});
lArn :: Lens' ListSuites Text
lArn = lens _lArn (\ s a -> s{_lArn = a});
instance AWSRequest ListSuites where
type Sv ListSuites = DeviceFarm
type Rs ListSuites = ListSuitesResponse
request = postJSON
response
= receiveJSON
(\ s h x ->
ListSuitesResponse' <$>
(x .?> "nextToken") <*> (x .?> "suites" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders ListSuites where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.ListSuites" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListSuites where
toJSON ListSuites'{..}
= object ["nextToken" .= _lNextToken, "arn" .= _lArn]
instance ToPath ListSuites where
toPath = const "/"
instance ToQuery ListSuites where
toQuery = const mempty
data ListSuitesResponse = ListSuitesResponse'
{ _lrsNextToken :: !(Maybe Text)
, _lrsSuites :: !(Maybe [Suite])
, _lrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listSuitesResponse
:: Int
-> ListSuitesResponse
listSuitesResponse pStatus_ =
ListSuitesResponse'
{ _lrsNextToken = Nothing
, _lrsSuites = Nothing
, _lrsStatus = pStatus_
}
lrsNextToken :: Lens' ListSuitesResponse (Maybe Text)
lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a});
lrsSuites :: Lens' ListSuitesResponse [Suite]
lrsSuites = lens _lrsSuites (\ s a -> s{_lrsSuites = a}) . _Default . _Coerce;
lrsStatus :: Lens' ListSuitesResponse Int
lrsStatus = lens _lrsStatus (\ s a -> s{_lrsStatus = a});