{-# 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.RejectAssignment
(
rejectAssignment
, RejectAssignment
, raAssignmentId
, raRequesterFeedback
, rejectAssignmentResponse
, RejectAssignmentResponse
, rarsResponseStatus
) 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 RejectAssignment = RejectAssignment'
{ _raAssignmentId :: !Text
, _raRequesterFeedback :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rejectAssignment
:: Text
-> Text
-> RejectAssignment
rejectAssignment pAssignmentId_ pRequesterFeedback_ =
RejectAssignment'
{ _raAssignmentId = pAssignmentId_
, _raRequesterFeedback = pRequesterFeedback_
}
raAssignmentId :: Lens' RejectAssignment Text
raAssignmentId = lens _raAssignmentId (\ s a -> s{_raAssignmentId = a})
raRequesterFeedback :: Lens' RejectAssignment Text
raRequesterFeedback = lens _raRequesterFeedback (\ s a -> s{_raRequesterFeedback = a})
instance AWSRequest RejectAssignment where
type Rs RejectAssignment = RejectAssignmentResponse
request = postJSON mechanicalTurk
response
= receiveEmpty
(\ s h x ->
RejectAssignmentResponse' <$> (pure (fromEnum s)))
instance Hashable RejectAssignment where
instance NFData RejectAssignment where
instance ToHeaders RejectAssignment where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("MTurkRequesterServiceV20170117.RejectAssignment" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RejectAssignment where
toJSON RejectAssignment'{..}
= object
(catMaybes
[Just ("AssignmentId" .= _raAssignmentId),
Just ("RequesterFeedback" .= _raRequesterFeedback)])
instance ToPath RejectAssignment where
toPath = const "/"
instance ToQuery RejectAssignment where
toQuery = const mempty
newtype RejectAssignmentResponse = RejectAssignmentResponse'
{ _rarsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rejectAssignmentResponse
:: Int
-> RejectAssignmentResponse
rejectAssignmentResponse pResponseStatus_ =
RejectAssignmentResponse' {_rarsResponseStatus = pResponseStatus_}
rarsResponseStatus :: Lens' RejectAssignmentResponse Int
rarsResponseStatus = lens _rarsResponseStatus (\ s a -> s{_rarsResponseStatus = a})
instance NFData RejectAssignmentResponse where