module Network.AWS.MechanicalTurk.ListQualificationRequests
(
listQualificationRequests
, ListQualificationRequests
, lqrNextToken
, lqrQualificationTypeId
, lqrMaxResults
, listQualificationRequestsResponse
, ListQualificationRequestsResponse
, lqrrsQualificationRequests
, lqrrsNextToken
, lqrrsNumResults
, lqrrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MechanicalTurk.Types
import Network.AWS.MechanicalTurk.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListQualificationRequests = ListQualificationRequests'
{ _lqrNextToken :: !(Maybe Text)
, _lqrQualificationTypeId :: !(Maybe Text)
, _lqrMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listQualificationRequests
:: ListQualificationRequests
listQualificationRequests =
ListQualificationRequests'
{ _lqrNextToken = Nothing
, _lqrQualificationTypeId = Nothing
, _lqrMaxResults = Nothing
}
lqrNextToken :: Lens' ListQualificationRequests (Maybe Text)
lqrNextToken = lens _lqrNextToken (\ s a -> s{_lqrNextToken = a});
lqrQualificationTypeId :: Lens' ListQualificationRequests (Maybe Text)
lqrQualificationTypeId = lens _lqrQualificationTypeId (\ s a -> s{_lqrQualificationTypeId = a});
lqrMaxResults :: Lens' ListQualificationRequests (Maybe Natural)
lqrMaxResults = lens _lqrMaxResults (\ s a -> s{_lqrMaxResults = a}) . mapping _Nat;
instance AWSRequest ListQualificationRequests where
type Rs ListQualificationRequests =
ListQualificationRequestsResponse
request = postJSON mechanicalTurk
response
= receiveJSON
(\ s h x ->
ListQualificationRequestsResponse' <$>
(x .?> "QualificationRequests" .!@ mempty) <*>
(x .?> "NextToken")
<*> (x .?> "NumResults")
<*> (pure (fromEnum s)))
instance Hashable ListQualificationRequests where
instance NFData ListQualificationRequests where
instance ToHeaders ListQualificationRequests where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("MTurkRequesterServiceV20170117.ListQualificationRequests"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListQualificationRequests where
toJSON ListQualificationRequests'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lqrNextToken,
("QualificationTypeId" .=) <$>
_lqrQualificationTypeId,
("MaxResults" .=) <$> _lqrMaxResults])
instance ToPath ListQualificationRequests where
toPath = const "/"
instance ToQuery ListQualificationRequests where
toQuery = const mempty
data ListQualificationRequestsResponse = ListQualificationRequestsResponse'
{ _lqrrsQualificationRequests :: !(Maybe [QualificationRequest])
, _lqrrsNextToken :: !(Maybe Text)
, _lqrrsNumResults :: !(Maybe Int)
, _lqrrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listQualificationRequestsResponse
:: Int
-> ListQualificationRequestsResponse
listQualificationRequestsResponse pResponseStatus_ =
ListQualificationRequestsResponse'
{ _lqrrsQualificationRequests = Nothing
, _lqrrsNextToken = Nothing
, _lqrrsNumResults = Nothing
, _lqrrsResponseStatus = pResponseStatus_
}
lqrrsQualificationRequests :: Lens' ListQualificationRequestsResponse [QualificationRequest]
lqrrsQualificationRequests = lens _lqrrsQualificationRequests (\ s a -> s{_lqrrsQualificationRequests = a}) . _Default . _Coerce;
lqrrsNextToken :: Lens' ListQualificationRequestsResponse (Maybe Text)
lqrrsNextToken = lens _lqrrsNextToken (\ s a -> s{_lqrrsNextToken = a});
lqrrsNumResults :: Lens' ListQualificationRequestsResponse (Maybe Int)
lqrrsNumResults = lens _lqrrsNumResults (\ s a -> s{_lqrrsNumResults = a});
lqrrsResponseStatus :: Lens' ListQualificationRequestsResponse Int
lqrrsResponseStatus = lens _lqrrsResponseStatus (\ s a -> s{_lqrrsResponseStatus = a});
instance NFData ListQualificationRequestsResponse
where