{-# 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.CreateAdditionalAssignmentsForHIT
(
createAdditionalAssignmentsForHIT
, CreateAdditionalAssignmentsForHIT
, caafhitUniqueRequestToken
, caafhitHITId
, caafhitNumberOfAdditionalAssignments
, createAdditionalAssignmentsForHITResponse
, CreateAdditionalAssignmentsForHITResponse
, caafhitrsResponseStatus
) 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 CreateAdditionalAssignmentsForHIT = CreateAdditionalAssignmentsForHIT'
{ _caafhitUniqueRequestToken :: !(Maybe Text)
, _caafhitHITId :: !Text
, _caafhitNumberOfAdditionalAssignments :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createAdditionalAssignmentsForHIT
:: Text
-> Int
-> CreateAdditionalAssignmentsForHIT
createAdditionalAssignmentsForHIT pHITId_ pNumberOfAdditionalAssignments_ =
CreateAdditionalAssignmentsForHIT'
{ _caafhitUniqueRequestToken = Nothing
, _caafhitHITId = pHITId_
, _caafhitNumberOfAdditionalAssignments = pNumberOfAdditionalAssignments_
}
caafhitUniqueRequestToken :: Lens' CreateAdditionalAssignmentsForHIT (Maybe Text)
caafhitUniqueRequestToken = lens _caafhitUniqueRequestToken (\ s a -> s{_caafhitUniqueRequestToken = a})
caafhitHITId :: Lens' CreateAdditionalAssignmentsForHIT Text
caafhitHITId = lens _caafhitHITId (\ s a -> s{_caafhitHITId = a})
caafhitNumberOfAdditionalAssignments :: Lens' CreateAdditionalAssignmentsForHIT Int
caafhitNumberOfAdditionalAssignments = lens _caafhitNumberOfAdditionalAssignments (\ s a -> s{_caafhitNumberOfAdditionalAssignments = a})
instance AWSRequest CreateAdditionalAssignmentsForHIT
where
type Rs CreateAdditionalAssignmentsForHIT =
CreateAdditionalAssignmentsForHITResponse
request = postJSON mechanicalTurk
response
= receiveEmpty
(\ s h x ->
CreateAdditionalAssignmentsForHITResponse' <$>
(pure (fromEnum s)))
instance Hashable CreateAdditionalAssignmentsForHIT
where
instance NFData CreateAdditionalAssignmentsForHIT
where
instance ToHeaders CreateAdditionalAssignmentsForHIT
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("MTurkRequesterServiceV20170117.CreateAdditionalAssignmentsForHIT"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateAdditionalAssignmentsForHIT
where
toJSON CreateAdditionalAssignmentsForHIT'{..}
= object
(catMaybes
[("UniqueRequestToken" .=) <$>
_caafhitUniqueRequestToken,
Just ("HITId" .= _caafhitHITId),
Just
("NumberOfAdditionalAssignments" .=
_caafhitNumberOfAdditionalAssignments)])
instance ToPath CreateAdditionalAssignmentsForHIT
where
toPath = const "/"
instance ToQuery CreateAdditionalAssignmentsForHIT
where
toQuery = const mempty
newtype CreateAdditionalAssignmentsForHITResponse = CreateAdditionalAssignmentsForHITResponse'
{ _caafhitrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createAdditionalAssignmentsForHITResponse
:: Int
-> CreateAdditionalAssignmentsForHITResponse
createAdditionalAssignmentsForHITResponse pResponseStatus_ =
CreateAdditionalAssignmentsForHITResponse'
{_caafhitrsResponseStatus = pResponseStatus_}
caafhitrsResponseStatus :: Lens' CreateAdditionalAssignmentsForHITResponse Int
caafhitrsResponseStatus = lens _caafhitrsResponseStatus (\ s a -> s{_caafhitrsResponseStatus = a})
instance NFData
CreateAdditionalAssignmentsForHITResponse
where