{-# 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.MechanicalTurk.RejectQualificationRequest
(
rejectQualificationRequest
, RejectQualificationRequest
, rqrReason
, rqrQualificationRequestId
, rejectQualificationRequestResponse
, RejectQualificationRequestResponse
, rqrrsResponseStatus
) 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 RejectQualificationRequest = RejectQualificationRequest'
{ _rqrReason :: !(Maybe Text)
, _rqrQualificationRequestId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rejectQualificationRequest
:: Text
-> RejectQualificationRequest
rejectQualificationRequest pQualificationRequestId_ =
RejectQualificationRequest'
{ _rqrReason = Nothing
, _rqrQualificationRequestId = pQualificationRequestId_
}
rqrReason :: Lens' RejectQualificationRequest (Maybe Text)
rqrReason = lens _rqrReason (\ s a -> s{_rqrReason = a})
rqrQualificationRequestId :: Lens' RejectQualificationRequest Text
rqrQualificationRequestId = lens _rqrQualificationRequestId (\ s a -> s{_rqrQualificationRequestId = a})
instance AWSRequest RejectQualificationRequest where
type Rs RejectQualificationRequest =
RejectQualificationRequestResponse
request = postJSON mechanicalTurk
response
= receiveEmpty
(\ s h x ->
RejectQualificationRequestResponse' <$>
(pure (fromEnum s)))
instance Hashable RejectQualificationRequest where
instance NFData RejectQualificationRequest where
instance ToHeaders RejectQualificationRequest where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("MTurkRequesterServiceV20170117.RejectQualificationRequest"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RejectQualificationRequest where
toJSON RejectQualificationRequest'{..}
= object
(catMaybes
[("Reason" .=) <$> _rqrReason,
Just
("QualificationRequestId" .=
_rqrQualificationRequestId)])
instance ToPath RejectQualificationRequest where
toPath = const "/"
instance ToQuery RejectQualificationRequest where
toQuery = const mempty
newtype RejectQualificationRequestResponse = RejectQualificationRequestResponse'
{ _rqrrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rejectQualificationRequestResponse
:: Int
-> RejectQualificationRequestResponse
rejectQualificationRequestResponse pResponseStatus_ =
RejectQualificationRequestResponse' {_rqrrsResponseStatus = pResponseStatus_}
rqrrsResponseStatus :: Lens' RejectQualificationRequestResponse Int
rqrrsResponseStatus = lens _rqrrsResponseStatus (\ s a -> s{_rqrrsResponseStatus = a})
instance NFData RejectQualificationRequestResponse
where