amazonka-mechanicalturk 1.5.0 → 1.6.0
raw patch · 50 files changed
+888/−738 lines, 50 filesdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-test
API changes (from Hackage documentation)
+ Network.AWS.MechanicalTurk: Accept :: HITAccessActions
+ Network.AWS.MechanicalTurk: DiscoverPreviewAndAccept :: HITAccessActions
+ Network.AWS.MechanicalTurk: PreviewAndAccept :: HITAccessActions
+ Network.AWS.MechanicalTurk: data HITAccessActions
+ Network.AWS.MechanicalTurk: qrActionsGuarded :: Lens' QualificationRequirement (Maybe HITAccessActions)
+ Network.AWS.MechanicalTurk.ListAssignmentsForHIT: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListAssignmentsForHIT.ListAssignmentsForHIT
+ Network.AWS.MechanicalTurk.ListBonusPayments: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListBonusPayments.ListBonusPayments
+ Network.AWS.MechanicalTurk.ListHITs: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListHITs.ListHITs
+ Network.AWS.MechanicalTurk.ListHITsForQualificationType: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListHITsForQualificationType.ListHITsForQualificationType
+ Network.AWS.MechanicalTurk.ListQualificationRequests: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListQualificationRequests.ListQualificationRequests
+ Network.AWS.MechanicalTurk.ListQualificationTypes: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListQualificationTypes.ListQualificationTypes
+ Network.AWS.MechanicalTurk.ListReviewableHITs: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListReviewableHITs.ListReviewableHITs
+ Network.AWS.MechanicalTurk.ListWorkerBlocks: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListWorkerBlocks.ListWorkerBlocks
+ Network.AWS.MechanicalTurk.ListWorkersWithQualificationType: instance Network.AWS.Pager.AWSPager Network.AWS.MechanicalTurk.ListWorkersWithQualificationType.ListWorkersWithQualificationType
+ Network.AWS.MechanicalTurk.Types: Accept :: HITAccessActions
+ Network.AWS.MechanicalTurk.Types: DiscoverPreviewAndAccept :: HITAccessActions
+ Network.AWS.MechanicalTurk.Types: PreviewAndAccept :: HITAccessActions
+ Network.AWS.MechanicalTurk.Types: data HITAccessActions
+ Network.AWS.MechanicalTurk.Types: qrActionsGuarded :: Lens' QualificationRequirement (Maybe HITAccessActions)
Files
- README.md +1/−1
- amazonka-mechanicalturk.cabal +5/−5
- gen/Network/AWS/MechanicalTurk.hs +14/−10
- gen/Network/AWS/MechanicalTurk/AcceptQualificationRequest.hs +7/−7
- gen/Network/AWS/MechanicalTurk/ApproveAssignment.hs +9/−9
- gen/Network/AWS/MechanicalTurk/AssociateQualificationWithWorker.hs +12/−12
- gen/Network/AWS/MechanicalTurk/CreateAdditionalAssignmentsForHIT.hs +10/−10
- gen/Network/AWS/MechanicalTurk/CreateHIT.hs +39/−39
- gen/Network/AWS/MechanicalTurk/CreateHITType.hs +21/−21
- gen/Network/AWS/MechanicalTurk/CreateHITWithHITType.hs +25/−25
- gen/Network/AWS/MechanicalTurk/CreateQualificationType.hs +25/−25
- gen/Network/AWS/MechanicalTurk/CreateWorkerBlock.hs +4/−4
- gen/Network/AWS/MechanicalTurk/DeleteHIT.hs +3/−3
- gen/Network/AWS/MechanicalTurk/DeleteQualificationType.hs +3/−3
- gen/Network/AWS/MechanicalTurk/DeleteWorkerBlock.hs +4/−4
- gen/Network/AWS/MechanicalTurk/DisassociateQualificationFromWorker.hs +10/−10
- gen/Network/AWS/MechanicalTurk/GetAccountBalance.hs +8/−8
- gen/Network/AWS/MechanicalTurk/GetAssignment.hs +9/−9
- gen/Network/AWS/MechanicalTurk/GetFileUploadURL.hs +10/−10
- gen/Network/AWS/MechanicalTurk/GetHIT.hs +5/−5
- gen/Network/AWS/MechanicalTurk/GetQualificationScore.hs +7/−7
- gen/Network/AWS/MechanicalTurk/GetQualificationType.hs +5/−5
- gen/Network/AWS/MechanicalTurk/ListAssignmentsForHIT.hs +30/−19
- gen/Network/AWS/MechanicalTurk/ListBonusPayments.hs +29/−19
- gen/Network/AWS/MechanicalTurk/ListHITs.hs +22/−12
- gen/Network/AWS/MechanicalTurk/ListHITsForQualificationType.hs +28/−17
- gen/Network/AWS/MechanicalTurk/ListQualificationRequests.hs +27/−17
- gen/Network/AWS/MechanicalTurk/ListQualificationTypes.hs +32/−22
- gen/Network/AWS/MechanicalTurk/ListReviewPolicyResultsForHIT.hs +29/−29
- gen/Network/AWS/MechanicalTurk/ListReviewableHITs.hs +29/−19
- gen/Network/AWS/MechanicalTurk/ListWorkerBlocks.hs +22/−12
- gen/Network/AWS/MechanicalTurk/ListWorkersWithQualificationType.hs +30/−19
- gen/Network/AWS/MechanicalTurk/NotifyWorkers.hs +13/−13
- gen/Network/AWS/MechanicalTurk/RejectAssignment.hs +7/−5
- gen/Network/AWS/MechanicalTurk/RejectQualificationRequest.hs +7/−5
- gen/Network/AWS/MechanicalTurk/SendBonus.hs +13/−13
- gen/Network/AWS/MechanicalTurk/SendTestEventNotification.hs +5/−5
- gen/Network/AWS/MechanicalTurk/Types.hs +22/−16
- gen/Network/AWS/MechanicalTurk/Types/Product.hs +222/−212
- gen/Network/AWS/MechanicalTurk/Types/Sum.hs +34/−1
- gen/Network/AWS/MechanicalTurk/UpdateExpirationForHIT.hs +5/−5
- gen/Network/AWS/MechanicalTurk/UpdateHITReviewStatus.hs +4/−4
- gen/Network/AWS/MechanicalTurk/UpdateHITTypeOfHIT.hs +5/−5
- gen/Network/AWS/MechanicalTurk/UpdateNotificationSettings.hs +9/−9
- gen/Network/AWS/MechanicalTurk/UpdateQualificationType.hs +23/−23
- gen/Network/AWS/MechanicalTurk/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/Gen/MechanicalTurk.hs +1/−1
- test/Test/AWS/MechanicalTurk.hs +1/−1
- test/Test/AWS/MechanicalTurk/Internal.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-mechanicalturk.cabal view
@@ -1,5 +1,5 @@ name: amazonka-mechanicalturk-version: 1.5.0+version: 1.6.0 synopsis: Amazon Mechanical Turk SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright: Copyright (c) 2013-2017 Brendan Hay+copyright: Copyright (c) 2013-2018 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -92,7 +92,7 @@ , Network.AWS.MechanicalTurk.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-mechanicalturk-test@@ -112,8 +112,8 @@ , Test.AWS.MechanicalTurk.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-mechanicalturk , base , bytestring
gen/Network/AWS/MechanicalTurk.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.MechanicalTurk--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -38,16 +38,16 @@ -- ** ListReviewPolicyResultsForHIT , module Network.AWS.MechanicalTurk.ListReviewPolicyResultsForHIT - -- ** ListHITs+ -- ** ListHITs (Paginated) , module Network.AWS.MechanicalTurk.ListHITs - -- ** ListWorkersWithQualificationType+ -- ** ListWorkersWithQualificationType (Paginated) , module Network.AWS.MechanicalTurk.ListWorkersWithQualificationType -- ** DeleteHIT , module Network.AWS.MechanicalTurk.DeleteHIT - -- ** ListReviewableHITs+ -- ** ListReviewableHITs (Paginated) , module Network.AWS.MechanicalTurk.ListReviewableHITs -- ** GetAssignment@@ -59,7 +59,7 @@ -- ** UpdateQualificationType , module Network.AWS.MechanicalTurk.UpdateQualificationType - -- ** ListQualificationTypes+ -- ** ListQualificationTypes (Paginated) , module Network.AWS.MechanicalTurk.ListQualificationTypes -- ** UpdateHITTypeOfHIT@@ -83,7 +83,7 @@ -- ** SendBonus , module Network.AWS.MechanicalTurk.SendBonus - -- ** ListQualificationRequests+ -- ** ListQualificationRequests (Paginated) , module Network.AWS.MechanicalTurk.ListQualificationRequests -- ** UpdateExpirationForHIT@@ -92,7 +92,7 @@ -- ** RejectAssignment , module Network.AWS.MechanicalTurk.RejectAssignment - -- ** ListAssignmentsForHIT+ -- ** ListAssignmentsForHIT (Paginated) , module Network.AWS.MechanicalTurk.ListAssignmentsForHIT -- ** RejectQualificationRequest@@ -125,13 +125,13 @@ -- ** CreateWorkerBlock , module Network.AWS.MechanicalTurk.CreateWorkerBlock - -- ** ListHITsForQualificationType+ -- ** ListHITsForQualificationType (Paginated) , module Network.AWS.MechanicalTurk.ListHITsForQualificationType - -- ** ListBonusPayments+ -- ** ListBonusPayments (Paginated) , module Network.AWS.MechanicalTurk.ListBonusPayments - -- ** ListWorkerBlocks+ -- ** ListWorkerBlocks (Paginated) , module Network.AWS.MechanicalTurk.ListWorkerBlocks -- ** DeleteWorkerBlock@@ -160,6 +160,9 @@ -- ** EventType , EventType (..) + -- ** HITAccessActions+ , HITAccessActions (..)+ -- ** HITReviewStatus , HITReviewStatus (..) @@ -301,6 +304,7 @@ , QualificationRequirement , qualificationRequirement , qrLocaleValues+ , qrActionsGuarded , qrRequiredToPreview , qrIntegerValues , qrQualificationTypeId
gen/Network/AWS/MechanicalTurk/AcceptQualificationRequest.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.AcceptQualificationRequest--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,18 +67,18 @@ -> AcceptQualificationRequest acceptQualificationRequest pQualificationRequestId_ = AcceptQualificationRequest'- { _aqrIntegerValue = Nothing- , _aqrQualificationRequestId = pQualificationRequestId_- }+ { _aqrIntegerValue = Nothing+ , _aqrQualificationRequestId = pQualificationRequestId_+ } -- | The value of the Qualification. You can omit this value if you are using the presence or absence of the Qualification as the basis for a HIT requirement. aqrIntegerValue :: Lens' AcceptQualificationRequest (Maybe Int)-aqrIntegerValue = lens _aqrIntegerValue (\ s a -> s{_aqrIntegerValue = a});+aqrIntegerValue = lens _aqrIntegerValue (\ s a -> s{_aqrIntegerValue = a}) -- | The ID of the Qualification request, as returned by the @GetQualificationRequests@ operation. aqrQualificationRequestId :: Lens' AcceptQualificationRequest Text-aqrQualificationRequestId = lens _aqrQualificationRequestId (\ s a -> s{_aqrQualificationRequestId = a});+aqrQualificationRequestId = lens _aqrQualificationRequestId (\ s a -> s{_aqrQualificationRequestId = a}) instance AWSRequest AcceptQualificationRequest where type Rs AcceptQualificationRequest =@@ -139,7 +139,7 @@ -- | -- | The response status code. aqrrsResponseStatus :: Lens' AcceptQualificationRequestResponse Int-aqrrsResponseStatus = lens _aqrrsResponseStatus (\ s a -> s{_aqrrsResponseStatus = a});+aqrrsResponseStatus = lens _aqrrsResponseStatus (\ s a -> s{_aqrrsResponseStatus = a}) instance NFData AcceptQualificationRequestResponse where
gen/Network/AWS/MechanicalTurk/ApproveAssignment.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ApproveAssignment--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -79,23 +79,23 @@ -> ApproveAssignment approveAssignment pAssignmentId_ = ApproveAssignment'- { _aaOverrideRejection = Nothing- , _aaRequesterFeedback = Nothing- , _aaAssignmentId = pAssignmentId_- }+ { _aaOverrideRejection = Nothing+ , _aaRequesterFeedback = Nothing+ , _aaAssignmentId = pAssignmentId_+ } -- | A flag indicating that an assignment should be approved even if it was previously rejected. Defaults to @False@ . aaOverrideRejection :: Lens' ApproveAssignment (Maybe Bool)-aaOverrideRejection = lens _aaOverrideRejection (\ s a -> s{_aaOverrideRejection = a});+aaOverrideRejection = lens _aaOverrideRejection (\ s a -> s{_aaOverrideRejection = a}) -- | A message for the Worker, which the Worker can see in the Status section of the web site. aaRequesterFeedback :: Lens' ApproveAssignment (Maybe Text)-aaRequesterFeedback = lens _aaRequesterFeedback (\ s a -> s{_aaRequesterFeedback = a});+aaRequesterFeedback = lens _aaRequesterFeedback (\ s a -> s{_aaRequesterFeedback = a}) -- | The ID of the assignment. The assignment must correspond to a HIT created by the Requester. aaAssignmentId :: Lens' ApproveAssignment Text-aaAssignmentId = lens _aaAssignmentId (\ s a -> s{_aaAssignmentId = a});+aaAssignmentId = lens _aaAssignmentId (\ s a -> s{_aaAssignmentId = a}) instance AWSRequest ApproveAssignment where type Rs ApproveAssignment = ApproveAssignmentResponse@@ -153,6 +153,6 @@ -- | -- | The response status code. aarsResponseStatus :: Lens' ApproveAssignmentResponse Int-aarsResponseStatus = lens _aarsResponseStatus (\ s a -> s{_aarsResponseStatus = a});+aarsResponseStatus = lens _aarsResponseStatus (\ s a -> s{_aarsResponseStatus = a}) instance NFData ApproveAssignmentResponse where
gen/Network/AWS/MechanicalTurk/AssociateQualificationWithWorker.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.AssociateQualificationWithWorker--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -74,28 +74,28 @@ -> AssociateQualificationWithWorker associateQualificationWithWorker pQualificationTypeId_ pWorkerId_ = AssociateQualificationWithWorker'- { _aqwwIntegerValue = Nothing- , _aqwwSendNotification = Nothing- , _aqwwQualificationTypeId = pQualificationTypeId_- , _aqwwWorkerId = pWorkerId_- }+ { _aqwwIntegerValue = Nothing+ , _aqwwSendNotification = Nothing+ , _aqwwQualificationTypeId = pQualificationTypeId_+ , _aqwwWorkerId = pWorkerId_+ } -- | The value of the Qualification to assign. aqwwIntegerValue :: Lens' AssociateQualificationWithWorker (Maybe Int)-aqwwIntegerValue = lens _aqwwIntegerValue (\ s a -> s{_aqwwIntegerValue = a});+aqwwIntegerValue = lens _aqwwIntegerValue (\ s a -> s{_aqwwIntegerValue = a}) -- | Specifies whether to send a notification email message to the Worker saying that the qualification was assigned to the Worker. Note: this is true by default. aqwwSendNotification :: Lens' AssociateQualificationWithWorker (Maybe Bool)-aqwwSendNotification = lens _aqwwSendNotification (\ s a -> s{_aqwwSendNotification = a});+aqwwSendNotification = lens _aqwwSendNotification (\ s a -> s{_aqwwSendNotification = a}) -- | The ID of the Qualification type to use for the assigned Qualification. aqwwQualificationTypeId :: Lens' AssociateQualificationWithWorker Text-aqwwQualificationTypeId = lens _aqwwQualificationTypeId (\ s a -> s{_aqwwQualificationTypeId = a});+aqwwQualificationTypeId = lens _aqwwQualificationTypeId (\ s a -> s{_aqwwQualificationTypeId = a}) -- | The ID of the Worker to whom the Qualification is being assigned. Worker IDs are included with submitted HIT assignments and Qualification requests. aqwwWorkerId :: Lens' AssociateQualificationWithWorker Text-aqwwWorkerId = lens _aqwwWorkerId (\ s a -> s{_aqwwWorkerId = a});+aqwwWorkerId = lens _aqwwWorkerId (\ s a -> s{_aqwwWorkerId = a}) instance AWSRequest AssociateQualificationWithWorker where@@ -160,12 +160,12 @@ -> AssociateQualificationWithWorkerResponse associateQualificationWithWorkerResponse pResponseStatus_ = AssociateQualificationWithWorkerResponse'- {_aqwwrsResponseStatus = pResponseStatus_}+ {_aqwwrsResponseStatus = pResponseStatus_} -- | -- | The response status code. aqwwrsResponseStatus :: Lens' AssociateQualificationWithWorkerResponse Int-aqwwrsResponseStatus = lens _aqwwrsResponseStatus (\ s a -> s{_aqwwrsResponseStatus = a});+aqwwrsResponseStatus = lens _aqwwrsResponseStatus (\ s a -> s{_aqwwrsResponseStatus = a}) instance NFData AssociateQualificationWithWorkerResponse
gen/Network/AWS/MechanicalTurk/CreateAdditionalAssignmentsForHIT.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.CreateAdditionalAssignmentsForHIT--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,23 +70,23 @@ -> CreateAdditionalAssignmentsForHIT createAdditionalAssignmentsForHIT pHITId_ pNumberOfAdditionalAssignments_ = CreateAdditionalAssignmentsForHIT'- { _caafhitUniqueRequestToken = Nothing- , _caafhitHITId = pHITId_- , _caafhitNumberOfAdditionalAssignments = pNumberOfAdditionalAssignments_- }+ { _caafhitUniqueRequestToken = Nothing+ , _caafhitHITId = pHITId_+ , _caafhitNumberOfAdditionalAssignments = pNumberOfAdditionalAssignments_+ } -- | A unique identifier for this request, which allows you to retry the call on error without extending the HIT multiple times. This is useful in cases such as network timeouts where it is unclear whether or not the call succeeded on the server. If the extend HIT already exists in the system from a previous call using the same @UniqueRequestToken@ , subsequent calls will return an error with a message containing the request ID. caafhitUniqueRequestToken :: Lens' CreateAdditionalAssignmentsForHIT (Maybe Text)-caafhitUniqueRequestToken = lens _caafhitUniqueRequestToken (\ s a -> s{_caafhitUniqueRequestToken = a});+caafhitUniqueRequestToken = lens _caafhitUniqueRequestToken (\ s a -> s{_caafhitUniqueRequestToken = a}) -- | The ID of the HIT to extend. caafhitHITId :: Lens' CreateAdditionalAssignmentsForHIT Text-caafhitHITId = lens _caafhitHITId (\ s a -> s{_caafhitHITId = a});+caafhitHITId = lens _caafhitHITId (\ s a -> s{_caafhitHITId = a}) -- | The number of additional assignments to request for this HIT. caafhitNumberOfAdditionalAssignments :: Lens' CreateAdditionalAssignmentsForHIT Int-caafhitNumberOfAdditionalAssignments = lens _caafhitNumberOfAdditionalAssignments (\ s a -> s{_caafhitNumberOfAdditionalAssignments = a});+caafhitNumberOfAdditionalAssignments = lens _caafhitNumberOfAdditionalAssignments (\ s a -> s{_caafhitNumberOfAdditionalAssignments = a}) instance AWSRequest CreateAdditionalAssignmentsForHIT where@@ -152,12 +152,12 @@ -> CreateAdditionalAssignmentsForHITResponse createAdditionalAssignmentsForHITResponse pResponseStatus_ = CreateAdditionalAssignmentsForHITResponse'- {_caafhitrsResponseStatus = pResponseStatus_}+ {_caafhitrsResponseStatus = pResponseStatus_} -- | -- | The response status code. caafhitrsResponseStatus :: Lens' CreateAdditionalAssignmentsForHITResponse Int-caafhitrsResponseStatus = lens _caafhitrsResponseStatus (\ s a -> s{_caafhitrsResponseStatus = a});+caafhitrsResponseStatus = lens _caafhitrsResponseStatus (\ s a -> s{_caafhitrsResponseStatus = a}) instance NFData CreateAdditionalAssignmentsForHITResponse
gen/Network/AWS/MechanicalTurk/CreateHIT.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.CreateHIT--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -106,7 +106,7 @@ -- -- * 'chitHITLayoutParameters' - If the HITLayoutId is provided, any placeholder values must be filled in with values using the HITLayoutParameter structure. For more information, see HITLayout. ----- * 'chitQualificationRequirements' - A condition that a Worker's Qualifications must meet before the Worker is allowed to accept and complete the HIT.+-- * 'chitQualificationRequirements' - Conditions that a Worker's Qualifications must meet in order to accept the HIT. A HIT can have between zero and ten Qualification requirements. All requirements must be met in order for a Worker to accept the HIT. Additionally, other actions can be restricted using the @ActionsGuarded@ field on each @QualificationRequirement@ structure. -- -- * 'chitQuestion' - The data the person completing the HIT uses to produce the results. Constraints: Must be a QuestionForm data structure, an ExternalQuestion data structure, or an HTMLQuestion data structure. The XML question data must not be larger than 64 kilobytes (65,535 bytes) in size, including whitespace. Either a Question parameter or a HITLayoutId parameter must be provided. --@@ -130,88 +130,88 @@ -> CreateHIT createHIT pLifetimeInSeconds_ pAssignmentDurationInSeconds_ pReward_ pTitle_ pDescription_ = CreateHIT'- { _chitHITReviewPolicy = Nothing- , _chitUniqueRequestToken = Nothing- , _chitAutoApprovalDelayInSeconds = Nothing- , _chitRequesterAnnotation = Nothing- , _chitMaxAssignments = Nothing- , _chitKeywords = Nothing- , _chitHITLayoutId = Nothing- , _chitHITLayoutParameters = Nothing- , _chitQualificationRequirements = Nothing- , _chitQuestion = Nothing- , _chitAssignmentReviewPolicy = Nothing- , _chitLifetimeInSeconds = pLifetimeInSeconds_- , _chitAssignmentDurationInSeconds = pAssignmentDurationInSeconds_- , _chitReward = pReward_- , _chitTitle = pTitle_- , _chitDescription = pDescription_- }+ { _chitHITReviewPolicy = Nothing+ , _chitUniqueRequestToken = Nothing+ , _chitAutoApprovalDelayInSeconds = Nothing+ , _chitRequesterAnnotation = Nothing+ , _chitMaxAssignments = Nothing+ , _chitKeywords = Nothing+ , _chitHITLayoutId = Nothing+ , _chitHITLayoutParameters = Nothing+ , _chitQualificationRequirements = Nothing+ , _chitQuestion = Nothing+ , _chitAssignmentReviewPolicy = Nothing+ , _chitLifetimeInSeconds = pLifetimeInSeconds_+ , _chitAssignmentDurationInSeconds = pAssignmentDurationInSeconds_+ , _chitReward = pReward_+ , _chitTitle = pTitle_+ , _chitDescription = pDescription_+ } -- | The HIT-level Review Policy applies to the HIT. You can specify for Mechanical Turk to take various actions based on the policy. chitHITReviewPolicy :: Lens' CreateHIT (Maybe ReviewPolicy)-chitHITReviewPolicy = lens _chitHITReviewPolicy (\ s a -> s{_chitHITReviewPolicy = a});+chitHITReviewPolicy = lens _chitHITReviewPolicy (\ s a -> s{_chitHITReviewPolicy = a}) -- | A unique identifier for this request which allows you to retry the call on error without creating duplicate HITs. This is useful in cases such as network timeouts where it is unclear whether or not the call succeeded on the server. If the HIT already exists in the system from a previous call using the same UniqueRequestToken, subsequent calls will return a AWS.MechanicalTurk.HitAlreadyExists error with a message containing the HITId. chitUniqueRequestToken :: Lens' CreateHIT (Maybe Text)-chitUniqueRequestToken = lens _chitUniqueRequestToken (\ s a -> s{_chitUniqueRequestToken = a});+chitUniqueRequestToken = lens _chitUniqueRequestToken (\ s a -> s{_chitUniqueRequestToken = a}) -- | The number of seconds after an assignment for the HIT has been submitted, after which the assignment is considered Approved automatically unless the Requester explicitly rejects it. chitAutoApprovalDelayInSeconds :: Lens' CreateHIT (Maybe Integer)-chitAutoApprovalDelayInSeconds = lens _chitAutoApprovalDelayInSeconds (\ s a -> s{_chitAutoApprovalDelayInSeconds = a});+chitAutoApprovalDelayInSeconds = lens _chitAutoApprovalDelayInSeconds (\ s a -> s{_chitAutoApprovalDelayInSeconds = a}) -- | An arbitrary data field. The RequesterAnnotation parameter lets your application attach arbitrary data to the HIT for tracking purposes. For example, this parameter could be an identifier internal to the Requester's application that corresponds with the HIT. The RequesterAnnotation parameter for a HIT is only visible to the Requester who created the HIT. It is not shown to the Worker, or any other Requester. The RequesterAnnotation parameter may be different for each HIT you submit. It does not affect how your HITs are grouped. chitRequesterAnnotation :: Lens' CreateHIT (Maybe Text)-chitRequesterAnnotation = lens _chitRequesterAnnotation (\ s a -> s{_chitRequesterAnnotation = a});+chitRequesterAnnotation = lens _chitRequesterAnnotation (\ s a -> s{_chitRequesterAnnotation = a}) -- | The number of times the HIT can be accepted and completed before the HIT becomes unavailable. chitMaxAssignments :: Lens' CreateHIT (Maybe Int)-chitMaxAssignments = lens _chitMaxAssignments (\ s a -> s{_chitMaxAssignments = a});+chitMaxAssignments = lens _chitMaxAssignments (\ s a -> s{_chitMaxAssignments = a}) -- | One or more words or phrases that describe the HIT, separated by commas. These words are used in searches to find HITs. chitKeywords :: Lens' CreateHIT (Maybe Text)-chitKeywords = lens _chitKeywords (\ s a -> s{_chitKeywords = a});+chitKeywords = lens _chitKeywords (\ s a -> s{_chitKeywords = a}) -- | The HITLayoutId allows you to use a pre-existing HIT design with placeholder values and create an additional HIT by providing those values as HITLayoutParameters. Constraints: Either a Question parameter or a HITLayoutId parameter must be provided. chitHITLayoutId :: Lens' CreateHIT (Maybe Text)-chitHITLayoutId = lens _chitHITLayoutId (\ s a -> s{_chitHITLayoutId = a});+chitHITLayoutId = lens _chitHITLayoutId (\ s a -> s{_chitHITLayoutId = a}) -- | If the HITLayoutId is provided, any placeholder values must be filled in with values using the HITLayoutParameter structure. For more information, see HITLayout. chitHITLayoutParameters :: Lens' CreateHIT [HITLayoutParameter]-chitHITLayoutParameters = lens _chitHITLayoutParameters (\ s a -> s{_chitHITLayoutParameters = a}) . _Default . _Coerce;+chitHITLayoutParameters = lens _chitHITLayoutParameters (\ s a -> s{_chitHITLayoutParameters = a}) . _Default . _Coerce --- | A condition that a Worker's Qualifications must meet before the Worker is allowed to accept and complete the HIT.+-- | Conditions that a Worker's Qualifications must meet in order to accept the HIT. A HIT can have between zero and ten Qualification requirements. All requirements must be met in order for a Worker to accept the HIT. Additionally, other actions can be restricted using the @ActionsGuarded@ field on each @QualificationRequirement@ structure. chitQualificationRequirements :: Lens' CreateHIT [QualificationRequirement]-chitQualificationRequirements = lens _chitQualificationRequirements (\ s a -> s{_chitQualificationRequirements = a}) . _Default . _Coerce;+chitQualificationRequirements = lens _chitQualificationRequirements (\ s a -> s{_chitQualificationRequirements = a}) . _Default . _Coerce -- | The data the person completing the HIT uses to produce the results. Constraints: Must be a QuestionForm data structure, an ExternalQuestion data structure, or an HTMLQuestion data structure. The XML question data must not be larger than 64 kilobytes (65,535 bytes) in size, including whitespace. Either a Question parameter or a HITLayoutId parameter must be provided. chitQuestion :: Lens' CreateHIT (Maybe Text)-chitQuestion = lens _chitQuestion (\ s a -> s{_chitQuestion = a});+chitQuestion = lens _chitQuestion (\ s a -> s{_chitQuestion = a}) -- | The Assignment-level Review Policy applies to the assignments under the HIT. You can specify for Mechanical Turk to take various actions based on the policy. chitAssignmentReviewPolicy :: Lens' CreateHIT (Maybe ReviewPolicy)-chitAssignmentReviewPolicy = lens _chitAssignmentReviewPolicy (\ s a -> s{_chitAssignmentReviewPolicy = a});+chitAssignmentReviewPolicy = lens _chitAssignmentReviewPolicy (\ s a -> s{_chitAssignmentReviewPolicy = a}) -- | An amount of time, in seconds, after which the HIT is no longer available for users to accept. After the lifetime of the HIT elapses, the HIT no longer appears in HIT searches, even if not all of the assignments for the HIT have been accepted. chitLifetimeInSeconds :: Lens' CreateHIT Integer-chitLifetimeInSeconds = lens _chitLifetimeInSeconds (\ s a -> s{_chitLifetimeInSeconds = a});+chitLifetimeInSeconds = lens _chitLifetimeInSeconds (\ s a -> s{_chitLifetimeInSeconds = a}) -- | The amount of time, in seconds, that a Worker has to complete the HIT after accepting it. If a Worker does not complete the assignment within the specified duration, the assignment is considered abandoned. If the HIT is still active (that is, its lifetime has not elapsed), the assignment becomes available for other users to find and accept. chitAssignmentDurationInSeconds :: Lens' CreateHIT Integer-chitAssignmentDurationInSeconds = lens _chitAssignmentDurationInSeconds (\ s a -> s{_chitAssignmentDurationInSeconds = a});+chitAssignmentDurationInSeconds = lens _chitAssignmentDurationInSeconds (\ s a -> s{_chitAssignmentDurationInSeconds = a}) -- | The amount of money the Requester will pay a Worker for successfully completing the HIT. chitReward :: Lens' CreateHIT Text-chitReward = lens _chitReward (\ s a -> s{_chitReward = a});+chitReward = lens _chitReward (\ s a -> s{_chitReward = a}) -- | The title of the HIT. A title should be short and descriptive about the kind of task the HIT contains. On the Amazon Mechanical Turk web site, the HIT title appears in search results, and everywhere the HIT is mentioned. chitTitle :: Lens' CreateHIT Text-chitTitle = lens _chitTitle (\ s a -> s{_chitTitle = a});+chitTitle = lens _chitTitle (\ s a -> s{_chitTitle = a}) -- | A general description of the HIT. A description includes detailed information about the kind of task the HIT contains. On the Amazon Mechanical Turk web site, the HIT description appears in the expanded view of search results, and in the HIT and assignment screens. A good description gives the user enough information to evaluate the HIT before accepting it. chitDescription :: Lens' CreateHIT Text-chitDescription = lens _chitDescription (\ s a -> s{_chitDescription = a});+chitDescription = lens _chitDescription (\ s a -> s{_chitDescription = a}) instance AWSRequest CreateHIT where type Rs CreateHIT = CreateHITResponse@@ -290,15 +290,15 @@ -> CreateHITResponse createHITResponse pResponseStatus_ = CreateHITResponse'- {_chitrsHIT = Nothing, _chitrsResponseStatus = pResponseStatus_}+ {_chitrsHIT = Nothing, _chitrsResponseStatus = pResponseStatus_} -- | Contains the newly created HIT data. For a description of the HIT data structure as it appears in responses, see the HIT Data Structure documentation. chitrsHIT :: Lens' CreateHITResponse (Maybe HIT)-chitrsHIT = lens _chitrsHIT (\ s a -> s{_chitrsHIT = a});+chitrsHIT = lens _chitrsHIT (\ s a -> s{_chitrsHIT = a}) -- | -- | The response status code. chitrsResponseStatus :: Lens' CreateHITResponse Int-chitrsResponseStatus = lens _chitrsResponseStatus (\ s a -> s{_chitrsResponseStatus = a});+chitrsResponseStatus = lens _chitrsResponseStatus (\ s a -> s{_chitrsResponseStatus = a}) instance NFData CreateHITResponse where
gen/Network/AWS/MechanicalTurk/CreateHITType.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.CreateHITType--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,7 +70,7 @@ -- -- * 'chittKeywords' - One or more words or phrases that describe the HIT, separated by commas. These words are used in searches to find HITs. ----- * 'chittQualificationRequirements' - A condition that a Worker's Qualifications must meet before the Worker is allowed to accept and complete the HIT.+-- * 'chittQualificationRequirements' - Conditions that a Worker's Qualifications must meet in order to accept the HIT. A HIT can have between zero and ten Qualification requirements. All requirements must be met in order for a Worker to accept the HIT. Additionally, other actions can be restricted using the @ActionsGuarded@ field on each @QualificationRequirement@ structure. -- -- * 'chittAssignmentDurationInSeconds' - The amount of time, in seconds, that a Worker has to complete the HIT after accepting it. If a Worker does not complete the assignment within the specified duration, the assignment is considered abandoned. If the HIT is still active (that is, its lifetime has not elapsed), the assignment becomes available for other users to find and accept. --@@ -87,43 +87,43 @@ -> CreateHITType createHITType pAssignmentDurationInSeconds_ pReward_ pTitle_ pDescription_ = CreateHITType'- { _chittAutoApprovalDelayInSeconds = Nothing- , _chittKeywords = Nothing- , _chittQualificationRequirements = Nothing- , _chittAssignmentDurationInSeconds = pAssignmentDurationInSeconds_- , _chittReward = pReward_- , _chittTitle = pTitle_- , _chittDescription = pDescription_- }+ { _chittAutoApprovalDelayInSeconds = Nothing+ , _chittKeywords = Nothing+ , _chittQualificationRequirements = Nothing+ , _chittAssignmentDurationInSeconds = pAssignmentDurationInSeconds_+ , _chittReward = pReward_+ , _chittTitle = pTitle_+ , _chittDescription = pDescription_+ } -- | The number of seconds after an assignment for the HIT has been submitted, after which the assignment is considered Approved automatically unless the Requester explicitly rejects it. chittAutoApprovalDelayInSeconds :: Lens' CreateHITType (Maybe Integer)-chittAutoApprovalDelayInSeconds = lens _chittAutoApprovalDelayInSeconds (\ s a -> s{_chittAutoApprovalDelayInSeconds = a});+chittAutoApprovalDelayInSeconds = lens _chittAutoApprovalDelayInSeconds (\ s a -> s{_chittAutoApprovalDelayInSeconds = a}) -- | One or more words or phrases that describe the HIT, separated by commas. These words are used in searches to find HITs. chittKeywords :: Lens' CreateHITType (Maybe Text)-chittKeywords = lens _chittKeywords (\ s a -> s{_chittKeywords = a});+chittKeywords = lens _chittKeywords (\ s a -> s{_chittKeywords = a}) --- | A condition that a Worker's Qualifications must meet before the Worker is allowed to accept and complete the HIT.+-- | Conditions that a Worker's Qualifications must meet in order to accept the HIT. A HIT can have between zero and ten Qualification requirements. All requirements must be met in order for a Worker to accept the HIT. Additionally, other actions can be restricted using the @ActionsGuarded@ field on each @QualificationRequirement@ structure. chittQualificationRequirements :: Lens' CreateHITType [QualificationRequirement]-chittQualificationRequirements = lens _chittQualificationRequirements (\ s a -> s{_chittQualificationRequirements = a}) . _Default . _Coerce;+chittQualificationRequirements = lens _chittQualificationRequirements (\ s a -> s{_chittQualificationRequirements = a}) . _Default . _Coerce -- | The amount of time, in seconds, that a Worker has to complete the HIT after accepting it. If a Worker does not complete the assignment within the specified duration, the assignment is considered abandoned. If the HIT is still active (that is, its lifetime has not elapsed), the assignment becomes available for other users to find and accept. chittAssignmentDurationInSeconds :: Lens' CreateHITType Integer-chittAssignmentDurationInSeconds = lens _chittAssignmentDurationInSeconds (\ s a -> s{_chittAssignmentDurationInSeconds = a});+chittAssignmentDurationInSeconds = lens _chittAssignmentDurationInSeconds (\ s a -> s{_chittAssignmentDurationInSeconds = a}) -- | The amount of money the Requester will pay a Worker for successfully completing the HIT. chittReward :: Lens' CreateHITType Text-chittReward = lens _chittReward (\ s a -> s{_chittReward = a});+chittReward = lens _chittReward (\ s a -> s{_chittReward = a}) -- | The title of the HIT. A title should be short and descriptive about the kind of task the HIT contains. On the Amazon Mechanical Turk web site, the HIT title appears in search results, and everywhere the HIT is mentioned. chittTitle :: Lens' CreateHITType Text-chittTitle = lens _chittTitle (\ s a -> s{_chittTitle = a});+chittTitle = lens _chittTitle (\ s a -> s{_chittTitle = a}) -- | A general description of the HIT. A description includes detailed information about the kind of task the HIT contains. On the Amazon Mechanical Turk web site, the HIT description appears in the expanded view of search results, and in the HIT and assignment screens. A good description gives the user enough information to evaluate the HIT before accepting it. chittDescription :: Lens' CreateHITType Text-chittDescription = lens _chittDescription (\ s a -> s{_chittDescription = a});+chittDescription = lens _chittDescription (\ s a -> s{_chittDescription = a}) instance AWSRequest CreateHITType where type Rs CreateHITType = CreateHITTypeResponse@@ -189,15 +189,15 @@ -> CreateHITTypeResponse createHITTypeResponse pResponseStatus_ = CreateHITTypeResponse'- {_chittrsHITTypeId = Nothing, _chittrsResponseStatus = pResponseStatus_}+ {_chittrsHITTypeId = Nothing, _chittrsResponseStatus = pResponseStatus_} -- | The ID of the newly registered HIT type. chittrsHITTypeId :: Lens' CreateHITTypeResponse (Maybe Text)-chittrsHITTypeId = lens _chittrsHITTypeId (\ s a -> s{_chittrsHITTypeId = a});+chittrsHITTypeId = lens _chittrsHITTypeId (\ s a -> s{_chittrsHITTypeId = a}) -- | -- | The response status code. chittrsResponseStatus :: Lens' CreateHITTypeResponse Int-chittrsResponseStatus = lens _chittrsResponseStatus (\ s a -> s{_chittrsResponseStatus = a});+chittrsResponseStatus = lens _chittrsResponseStatus (\ s a -> s{_chittrsResponseStatus = a}) instance NFData CreateHITTypeResponse where
gen/Network/AWS/MechanicalTurk/CreateHITWithHITType.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.CreateHITWithHITType--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -101,58 +101,58 @@ -> CreateHITWithHITType createHITWithHITType pHITTypeId_ pLifetimeInSeconds_ = CreateHITWithHITType'- { _chitwhittHITReviewPolicy = Nothing- , _chitwhittUniqueRequestToken = Nothing- , _chitwhittRequesterAnnotation = Nothing- , _chitwhittMaxAssignments = Nothing- , _chitwhittHITLayoutId = Nothing- , _chitwhittHITLayoutParameters = Nothing- , _chitwhittQuestion = Nothing- , _chitwhittAssignmentReviewPolicy = Nothing- , _chitwhittHITTypeId = pHITTypeId_- , _chitwhittLifetimeInSeconds = pLifetimeInSeconds_- }+ { _chitwhittHITReviewPolicy = Nothing+ , _chitwhittUniqueRequestToken = Nothing+ , _chitwhittRequesterAnnotation = Nothing+ , _chitwhittMaxAssignments = Nothing+ , _chitwhittHITLayoutId = Nothing+ , _chitwhittHITLayoutParameters = Nothing+ , _chitwhittQuestion = Nothing+ , _chitwhittAssignmentReviewPolicy = Nothing+ , _chitwhittHITTypeId = pHITTypeId_+ , _chitwhittLifetimeInSeconds = pLifetimeInSeconds_+ } -- | The HIT-level Review Policy applies to the HIT. You can specify for Mechanical Turk to take various actions based on the policy. chitwhittHITReviewPolicy :: Lens' CreateHITWithHITType (Maybe ReviewPolicy)-chitwhittHITReviewPolicy = lens _chitwhittHITReviewPolicy (\ s a -> s{_chitwhittHITReviewPolicy = a});+chitwhittHITReviewPolicy = lens _chitwhittHITReviewPolicy (\ s a -> s{_chitwhittHITReviewPolicy = a}) -- | A unique identifier for this request which allows you to retry the call on error without creating duplicate HITs. This is useful in cases such as network timeouts where it is unclear whether or not the call succeeded on the server. If the HIT already exists in the system from a previous call using the same UniqueRequestToken, subsequent calls will return a AWS.MechanicalTurk.HitAlreadyExists error with a message containing the HITId. chitwhittUniqueRequestToken :: Lens' CreateHITWithHITType (Maybe Text)-chitwhittUniqueRequestToken = lens _chitwhittUniqueRequestToken (\ s a -> s{_chitwhittUniqueRequestToken = a});+chitwhittUniqueRequestToken = lens _chitwhittUniqueRequestToken (\ s a -> s{_chitwhittUniqueRequestToken = a}) -- | An arbitrary data field. The RequesterAnnotation parameter lets your application attach arbitrary data to the HIT for tracking purposes. For example, this parameter could be an identifier internal to the Requester's application that corresponds with the HIT. The RequesterAnnotation parameter for a HIT is only visible to the Requester who created the HIT. It is not shown to the Worker, or any other Requester. The RequesterAnnotation parameter may be different for each HIT you submit. It does not affect how your HITs are grouped. chitwhittRequesterAnnotation :: Lens' CreateHITWithHITType (Maybe Text)-chitwhittRequesterAnnotation = lens _chitwhittRequesterAnnotation (\ s a -> s{_chitwhittRequesterAnnotation = a});+chitwhittRequesterAnnotation = lens _chitwhittRequesterAnnotation (\ s a -> s{_chitwhittRequesterAnnotation = a}) -- | The number of times the HIT can be accepted and completed before the HIT becomes unavailable. chitwhittMaxAssignments :: Lens' CreateHITWithHITType (Maybe Int)-chitwhittMaxAssignments = lens _chitwhittMaxAssignments (\ s a -> s{_chitwhittMaxAssignments = a});+chitwhittMaxAssignments = lens _chitwhittMaxAssignments (\ s a -> s{_chitwhittMaxAssignments = a}) -- | The HITLayoutId allows you to use a pre-existing HIT design with placeholder values and create an additional HIT by providing those values as HITLayoutParameters. Constraints: Either a Question parameter or a HITLayoutId parameter must be provided. chitwhittHITLayoutId :: Lens' CreateHITWithHITType (Maybe Text)-chitwhittHITLayoutId = lens _chitwhittHITLayoutId (\ s a -> s{_chitwhittHITLayoutId = a});+chitwhittHITLayoutId = lens _chitwhittHITLayoutId (\ s a -> s{_chitwhittHITLayoutId = a}) -- | If the HITLayoutId is provided, any placeholder values must be filled in with values using the HITLayoutParameter structure. For more information, see HITLayout. chitwhittHITLayoutParameters :: Lens' CreateHITWithHITType [HITLayoutParameter]-chitwhittHITLayoutParameters = lens _chitwhittHITLayoutParameters (\ s a -> s{_chitwhittHITLayoutParameters = a}) . _Default . _Coerce;+chitwhittHITLayoutParameters = lens _chitwhittHITLayoutParameters (\ s a -> s{_chitwhittHITLayoutParameters = a}) . _Default . _Coerce -- | The data the person completing the HIT uses to produce the results. Constraints: Must be a QuestionForm data structure, an ExternalQuestion data structure, or an HTMLQuestion data structure. The XML question data must not be larger than 64 kilobytes (65,535 bytes) in size, including whitespace. Either a Question parameter or a HITLayoutId parameter must be provided. chitwhittQuestion :: Lens' CreateHITWithHITType (Maybe Text)-chitwhittQuestion = lens _chitwhittQuestion (\ s a -> s{_chitwhittQuestion = a});+chitwhittQuestion = lens _chitwhittQuestion (\ s a -> s{_chitwhittQuestion = a}) -- | The Assignment-level Review Policy applies to the assignments under the HIT. You can specify for Mechanical Turk to take various actions based on the policy. chitwhittAssignmentReviewPolicy :: Lens' CreateHITWithHITType (Maybe ReviewPolicy)-chitwhittAssignmentReviewPolicy = lens _chitwhittAssignmentReviewPolicy (\ s a -> s{_chitwhittAssignmentReviewPolicy = a});+chitwhittAssignmentReviewPolicy = lens _chitwhittAssignmentReviewPolicy (\ s a -> s{_chitwhittAssignmentReviewPolicy = a}) -- | The HIT type ID you want to create this HIT with. chitwhittHITTypeId :: Lens' CreateHITWithHITType Text-chitwhittHITTypeId = lens _chitwhittHITTypeId (\ s a -> s{_chitwhittHITTypeId = a});+chitwhittHITTypeId = lens _chitwhittHITTypeId (\ s a -> s{_chitwhittHITTypeId = a}) -- | An amount of time, in seconds, after which the HIT is no longer available for users to accept. After the lifetime of the HIT elapses, the HIT no longer appears in HIT searches, even if not all of the assignments for the HIT have been accepted. chitwhittLifetimeInSeconds :: Lens' CreateHITWithHITType Integer-chitwhittLifetimeInSeconds = lens _chitwhittLifetimeInSeconds (\ s a -> s{_chitwhittLifetimeInSeconds = a});+chitwhittLifetimeInSeconds = lens _chitwhittLifetimeInSeconds (\ s a -> s{_chitwhittLifetimeInSeconds = a}) instance AWSRequest CreateHITWithHITType where type Rs CreateHITWithHITType =@@ -225,15 +225,15 @@ -> CreateHITWithHITTypeResponse createHITWithHITTypeResponse pResponseStatus_ = CreateHITWithHITTypeResponse'- {_chitwhittrsHIT = Nothing, _chitwhittrsResponseStatus = pResponseStatus_}+ {_chitwhittrsHIT = Nothing, _chitwhittrsResponseStatus = pResponseStatus_} -- | Contains the newly created HIT data. For a description of the HIT data structure as it appears in responses, see the HIT Data Structure documentation. chitwhittrsHIT :: Lens' CreateHITWithHITTypeResponse (Maybe HIT)-chitwhittrsHIT = lens _chitwhittrsHIT (\ s a -> s{_chitwhittrsHIT = a});+chitwhittrsHIT = lens _chitwhittrsHIT (\ s a -> s{_chitwhittrsHIT = a}) -- | -- | The response status code. chitwhittrsResponseStatus :: Lens' CreateHITWithHITTypeResponse Int-chitwhittrsResponseStatus = lens _chitwhittrsResponseStatus (\ s a -> s{_chitwhittrsResponseStatus = a});+chitwhittrsResponseStatus = lens _chitwhittrsResponseStatus (\ s a -> s{_chitwhittrsResponseStatus = a}) instance NFData CreateHITWithHITTypeResponse where
gen/Network/AWS/MechanicalTurk/CreateQualificationType.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.CreateQualificationType--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -98,58 +98,58 @@ -> CreateQualificationType createQualificationType pName_ pDescription_ pQualificationTypeStatus_ = CreateQualificationType'- { _cqtTestDurationInSeconds = Nothing- , _cqtAnswerKey = Nothing- , _cqtTest = Nothing- , _cqtKeywords = Nothing- , _cqtAutoGranted = Nothing- , _cqtAutoGrantedValue = Nothing- , _cqtRetryDelayInSeconds = Nothing- , _cqtName = pName_- , _cqtDescription = pDescription_- , _cqtQualificationTypeStatus = pQualificationTypeStatus_- }+ { _cqtTestDurationInSeconds = Nothing+ , _cqtAnswerKey = Nothing+ , _cqtTest = Nothing+ , _cqtKeywords = Nothing+ , _cqtAutoGranted = Nothing+ , _cqtAutoGrantedValue = Nothing+ , _cqtRetryDelayInSeconds = Nothing+ , _cqtName = pName_+ , _cqtDescription = pDescription_+ , _cqtQualificationTypeStatus = pQualificationTypeStatus_+ } -- | The number of seconds the Worker has to complete the Qualification test, starting from the time the Worker requests the Qualification. cqtTestDurationInSeconds :: Lens' CreateQualificationType (Maybe Integer)-cqtTestDurationInSeconds = lens _cqtTestDurationInSeconds (\ s a -> s{_cqtTestDurationInSeconds = a});+cqtTestDurationInSeconds = lens _cqtTestDurationInSeconds (\ s a -> s{_cqtTestDurationInSeconds = a}) -- | The answers to the Qualification test specified in the Test parameter, in the form of an AnswerKey data structure. Constraints: Must not be longer than 65535 bytes. Constraints: None. If not specified, you must process Qualification requests manually. cqtAnswerKey :: Lens' CreateQualificationType (Maybe Text)-cqtAnswerKey = lens _cqtAnswerKey (\ s a -> s{_cqtAnswerKey = a});+cqtAnswerKey = lens _cqtAnswerKey (\ s a -> s{_cqtAnswerKey = a}) -- | The questions for the Qualification test a Worker must answer correctly to obtain a Qualification of this type. If this parameter is specified, @TestDurationInSeconds@ must also be specified. Constraints: Must not be longer than 65535 bytes. Must be a QuestionForm data structure. This parameter cannot be specified if AutoGranted is true. Constraints: None. If not specified, the Worker may request the Qualification without answering any questions. cqtTest :: Lens' CreateQualificationType (Maybe Text)-cqtTest = lens _cqtTest (\ s a -> s{_cqtTest = a});+cqtTest = lens _cqtTest (\ s a -> s{_cqtTest = a}) -- | One or more words or phrases that describe the Qualification type, separated by commas. The keywords of a type make the type easier to find during a search. cqtKeywords :: Lens' CreateQualificationType (Maybe Text)-cqtKeywords = lens _cqtKeywords (\ s a -> s{_cqtKeywords = a});+cqtKeywords = lens _cqtKeywords (\ s a -> s{_cqtKeywords = a}) -- | Specifies whether requests for the Qualification type are granted immediately, without prompting the Worker with a Qualification test. Constraints: If the Test parameter is specified, this parameter cannot be true. cqtAutoGranted :: Lens' CreateQualificationType (Maybe Bool)-cqtAutoGranted = lens _cqtAutoGranted (\ s a -> s{_cqtAutoGranted = a});+cqtAutoGranted = lens _cqtAutoGranted (\ s a -> s{_cqtAutoGranted = a}) -- | The Qualification value to use for automatically granted Qualifications. This parameter is used only if the AutoGranted parameter is true. cqtAutoGrantedValue :: Lens' CreateQualificationType (Maybe Int)-cqtAutoGrantedValue = lens _cqtAutoGrantedValue (\ s a -> s{_cqtAutoGrantedValue = a});+cqtAutoGrantedValue = lens _cqtAutoGrantedValue (\ s a -> s{_cqtAutoGrantedValue = a}) -- | The number of seconds that a Worker must wait after requesting a Qualification of the Qualification type before the worker can retry the Qualification request. Constraints: None. If not specified, retries are disabled and Workers can request a Qualification of this type only once, even if the Worker has not been granted the Qualification. It is not possible to disable retries for a Qualification type after it has been created with retries enabled. If you want to disable retries, you must delete existing retry-enabled Qualification type and then create a new Qualification type with retries disabled. cqtRetryDelayInSeconds :: Lens' CreateQualificationType (Maybe Integer)-cqtRetryDelayInSeconds = lens _cqtRetryDelayInSeconds (\ s a -> s{_cqtRetryDelayInSeconds = a});+cqtRetryDelayInSeconds = lens _cqtRetryDelayInSeconds (\ s a -> s{_cqtRetryDelayInSeconds = a}) -- | The name you give to the Qualification type. The type name is used to represent the Qualification to Workers, and to find the type using a Qualification type search. It must be unique across all of your Qualification types. cqtName :: Lens' CreateQualificationType Text-cqtName = lens _cqtName (\ s a -> s{_cqtName = a});+cqtName = lens _cqtName (\ s a -> s{_cqtName = a}) -- | A long description for the Qualification type. On the Amazon Mechanical Turk website, the long description is displayed when a Worker examines a Qualification type. cqtDescription :: Lens' CreateQualificationType Text-cqtDescription = lens _cqtDescription (\ s a -> s{_cqtDescription = a});+cqtDescription = lens _cqtDescription (\ s a -> s{_cqtDescription = a}) -- | The initial status of the Qualification type. Constraints: Valid values are: Active | Inactive cqtQualificationTypeStatus :: Lens' CreateQualificationType QualificationTypeStatus-cqtQualificationTypeStatus = lens _cqtQualificationTypeStatus (\ s a -> s{_cqtQualificationTypeStatus = a});+cqtQualificationTypeStatus = lens _cqtQualificationTypeStatus (\ s a -> s{_cqtQualificationTypeStatus = a}) instance AWSRequest CreateQualificationType where type Rs CreateQualificationType =@@ -219,15 +219,15 @@ -> CreateQualificationTypeResponse createQualificationTypeResponse pResponseStatus_ = CreateQualificationTypeResponse'- {_cqtrsQualificationType = Nothing, _cqtrsResponseStatus = pResponseStatus_}+ {_cqtrsQualificationType = Nothing, _cqtrsResponseStatus = pResponseStatus_} -- | The created Qualification type, returned as a QualificationType data structure. cqtrsQualificationType :: Lens' CreateQualificationTypeResponse (Maybe QualificationType)-cqtrsQualificationType = lens _cqtrsQualificationType (\ s a -> s{_cqtrsQualificationType = a});+cqtrsQualificationType = lens _cqtrsQualificationType (\ s a -> s{_cqtrsQualificationType = a}) -- | -- | The response status code. cqtrsResponseStatus :: Lens' CreateQualificationTypeResponse Int-cqtrsResponseStatus = lens _cqtrsResponseStatus (\ s a -> s{_cqtrsResponseStatus = a});+cqtrsResponseStatus = lens _cqtrsResponseStatus (\ s a -> s{_cqtrsResponseStatus = a}) instance NFData CreateQualificationTypeResponse where
gen/Network/AWS/MechanicalTurk/CreateWorkerBlock.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.CreateWorkerBlock--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,11 +68,11 @@ -- | The ID of the Worker to block. cwbWorkerId :: Lens' CreateWorkerBlock Text-cwbWorkerId = lens _cwbWorkerId (\ s a -> s{_cwbWorkerId = a});+cwbWorkerId = lens _cwbWorkerId (\ s a -> s{_cwbWorkerId = a}) -- | A message explaining the reason for blocking the Worker. This parameter enables you to keep track of your Workers. The Worker does not see this message. cwbReason :: Lens' CreateWorkerBlock Text-cwbReason = lens _cwbReason (\ s a -> s{_cwbReason = a});+cwbReason = lens _cwbReason (\ s a -> s{_cwbReason = a}) instance AWSRequest CreateWorkerBlock where type Rs CreateWorkerBlock = CreateWorkerBlockResponse@@ -129,6 +129,6 @@ -- | -- | The response status code. cwbrsResponseStatus :: Lens' CreateWorkerBlockResponse Int-cwbrsResponseStatus = lens _cwbrsResponseStatus (\ s a -> s{_cwbrsResponseStatus = a});+cwbrsResponseStatus = lens _cwbrsResponseStatus (\ s a -> s{_cwbrsResponseStatus = a}) instance NFData CreateWorkerBlockResponse where
gen/Network/AWS/MechanicalTurk/DeleteHIT.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.DeleteHIT--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -64,7 +64,7 @@ -- | The ID of the HIT to be deleted. dhitHITId :: Lens' DeleteHIT Text-dhitHITId = lens _dhitHITId (\ s a -> s{_dhitHITId = a});+dhitHITId = lens _dhitHITId (\ s a -> s{_dhitHITId = a}) instance AWSRequest DeleteHIT where type Rs DeleteHIT = DeleteHITResponse@@ -118,6 +118,6 @@ -- | -- | The response status code. dhitrsResponseStatus :: Lens' DeleteHITResponse Int-dhitrsResponseStatus = lens _dhitrsResponseStatus (\ s a -> s{_dhitrsResponseStatus = a});+dhitrsResponseStatus = lens _dhitrsResponseStatus (\ s a -> s{_dhitrsResponseStatus = a}) instance NFData DeleteHITResponse where
gen/Network/AWS/MechanicalTurk/DeleteQualificationType.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.DeleteQualificationType--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -65,7 +65,7 @@ -- | The ID of the QualificationType to dispose. dqtQualificationTypeId :: Lens' DeleteQualificationType Text-dqtQualificationTypeId = lens _dqtQualificationTypeId (\ s a -> s{_dqtQualificationTypeId = a});+dqtQualificationTypeId = lens _dqtQualificationTypeId (\ s a -> s{_dqtQualificationTypeId = a}) instance AWSRequest DeleteQualificationType where type Rs DeleteQualificationType =@@ -124,6 +124,6 @@ -- | -- | The response status code. dqtrsResponseStatus :: Lens' DeleteQualificationTypeResponse Int-dqtrsResponseStatus = lens _dqtrsResponseStatus (\ s a -> s{_dqtrsResponseStatus = a});+dqtrsResponseStatus = lens _dqtrsResponseStatus (\ s a -> s{_dqtrsResponseStatus = a}) instance NFData DeleteQualificationTypeResponse where
gen/Network/AWS/MechanicalTurk/DeleteWorkerBlock.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.DeleteWorkerBlock--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,11 +67,11 @@ -- | A message that explains the reason for unblocking the Worker. The Worker does not see this message. dwbReason :: Lens' DeleteWorkerBlock (Maybe Text)-dwbReason = lens _dwbReason (\ s a -> s{_dwbReason = a});+dwbReason = lens _dwbReason (\ s a -> s{_dwbReason = a}) -- | The ID of the Worker to unblock. dwbWorkerId :: Lens' DeleteWorkerBlock Text-dwbWorkerId = lens _dwbWorkerId (\ s a -> s{_dwbWorkerId = a});+dwbWorkerId = lens _dwbWorkerId (\ s a -> s{_dwbWorkerId = a}) instance AWSRequest DeleteWorkerBlock where type Rs DeleteWorkerBlock = DeleteWorkerBlockResponse@@ -128,6 +128,6 @@ -- | -- | The response status code. dwbrsResponseStatus :: Lens' DeleteWorkerBlockResponse Int-dwbrsResponseStatus = lens _dwbrsResponseStatus (\ s a -> s{_dwbrsResponseStatus = a});+dwbrsResponseStatus = lens _dwbrsResponseStatus (\ s a -> s{_dwbrsResponseStatus = a}) instance NFData DeleteWorkerBlockResponse where
gen/Network/AWS/MechanicalTurk/DisassociateQualificationFromWorker.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.DisassociateQualificationFromWorker--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,23 +70,23 @@ -> DisassociateQualificationFromWorker disassociateQualificationFromWorker pWorkerId_ pQualificationTypeId_ = DisassociateQualificationFromWorker'- { _dqfwReason = Nothing- , _dqfwWorkerId = pWorkerId_- , _dqfwQualificationTypeId = pQualificationTypeId_- }+ { _dqfwReason = Nothing+ , _dqfwWorkerId = pWorkerId_+ , _dqfwQualificationTypeId = pQualificationTypeId_+ } -- | A text message that explains why the Qualification was revoked. The user who had the Qualification sees this message. dqfwReason :: Lens' DisassociateQualificationFromWorker (Maybe Text)-dqfwReason = lens _dqfwReason (\ s a -> s{_dqfwReason = a});+dqfwReason = lens _dqfwReason (\ s a -> s{_dqfwReason = a}) -- | The ID of the Worker who possesses the Qualification to be revoked. dqfwWorkerId :: Lens' DisassociateQualificationFromWorker Text-dqfwWorkerId = lens _dqfwWorkerId (\ s a -> s{_dqfwWorkerId = a});+dqfwWorkerId = lens _dqfwWorkerId (\ s a -> s{_dqfwWorkerId = a}) -- | The ID of the Qualification type of the Qualification to be revoked. dqfwQualificationTypeId :: Lens' DisassociateQualificationFromWorker Text-dqfwQualificationTypeId = lens _dqfwQualificationTypeId (\ s a -> s{_dqfwQualificationTypeId = a});+dqfwQualificationTypeId = lens _dqfwQualificationTypeId (\ s a -> s{_dqfwQualificationTypeId = a}) instance AWSRequest DisassociateQualificationFromWorker@@ -152,12 +152,12 @@ -> DisassociateQualificationFromWorkerResponse disassociateQualificationFromWorkerResponse pResponseStatus_ = DisassociateQualificationFromWorkerResponse'- {_dqfwrsResponseStatus = pResponseStatus_}+ {_dqfwrsResponseStatus = pResponseStatus_} -- | -- | The response status code. dqfwrsResponseStatus :: Lens' DisassociateQualificationFromWorkerResponse Int-dqfwrsResponseStatus = lens _dqfwrsResponseStatus (\ s a -> s{_dqfwrsResponseStatus = a});+dqfwrsResponseStatus = lens _dqfwrsResponseStatus (\ s a -> s{_dqfwrsResponseStatus = a}) instance NFData DisassociateQualificationFromWorkerResponse
gen/Network/AWS/MechanicalTurk/GetAccountBalance.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.GetAccountBalance--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -112,22 +112,22 @@ -> GetAccountBalanceResponse getAccountBalanceResponse pResponseStatus_ = GetAccountBalanceResponse'- { _gabrsAvailableBalance = Nothing- , _gabrsOnHoldBalance = Nothing- , _gabrsResponseStatus = pResponseStatus_- }+ { _gabrsAvailableBalance = Nothing+ , _gabrsOnHoldBalance = Nothing+ , _gabrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. gabrsAvailableBalance :: Lens' GetAccountBalanceResponse (Maybe Text)-gabrsAvailableBalance = lens _gabrsAvailableBalance (\ s a -> s{_gabrsAvailableBalance = a});+gabrsAvailableBalance = lens _gabrsAvailableBalance (\ s a -> s{_gabrsAvailableBalance = a}) -- | Undocumented member. gabrsOnHoldBalance :: Lens' GetAccountBalanceResponse (Maybe Text)-gabrsOnHoldBalance = lens _gabrsOnHoldBalance (\ s a -> s{_gabrsOnHoldBalance = a});+gabrsOnHoldBalance = lens _gabrsOnHoldBalance (\ s a -> s{_gabrsOnHoldBalance = a}) -- | -- | The response status code. gabrsResponseStatus :: Lens' GetAccountBalanceResponse Int-gabrsResponseStatus = lens _gabrsResponseStatus (\ s a -> s{_gabrsResponseStatus = a});+gabrsResponseStatus = lens _gabrsResponseStatus (\ s a -> s{_gabrsResponseStatus = a}) instance NFData GetAccountBalanceResponse where
gen/Network/AWS/MechanicalTurk/GetAssignment.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.GetAssignment--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -64,7 +64,7 @@ -- | The ID of the Assignment to be retrieved. gaAssignmentId :: Lens' GetAssignment Text-gaAssignmentId = lens _gaAssignmentId (\ s a -> s{_gaAssignmentId = a});+gaAssignmentId = lens _gaAssignmentId (\ s a -> s{_gaAssignmentId = a}) instance AWSRequest GetAssignment where type Rs GetAssignment = GetAssignmentResponse@@ -124,22 +124,22 @@ -> GetAssignmentResponse getAssignmentResponse pResponseStatus_ = GetAssignmentResponse'- { _garsHIT = Nothing- , _garsAssignment = Nothing- , _garsResponseStatus = pResponseStatus_- }+ { _garsHIT = Nothing+ , _garsAssignment = Nothing+ , _garsResponseStatus = pResponseStatus_+ } -- | The HIT associated with this assignment. The response includes one HIT element. garsHIT :: Lens' GetAssignmentResponse (Maybe HIT)-garsHIT = lens _garsHIT (\ s a -> s{_garsHIT = a});+garsHIT = lens _garsHIT (\ s a -> s{_garsHIT = a}) -- | The assignment. The response includes one Assignment element. garsAssignment :: Lens' GetAssignmentResponse (Maybe Assignment)-garsAssignment = lens _garsAssignment (\ s a -> s{_garsAssignment = a});+garsAssignment = lens _garsAssignment (\ s a -> s{_garsAssignment = a}) -- | -- | The response status code. garsResponseStatus :: Lens' GetAssignmentResponse Int-garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a});+garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a}) instance NFData GetAssignmentResponse where
gen/Network/AWS/MechanicalTurk/GetFileUploadURL.hs view
@@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.MechanicalTurk.GetFileUploadURL--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) ----- The @GetFileUploadURL@ operation generates and returns a temporary URL. You use the temporary URL to retrieve a file uploaded by a Worker as an answer to a FileUploadAnswer question for a HIT. The temporary URL is generated the instant the GetFileUploadURL operation is called, and is valid for 60 seconds. You can get a temporary file upload URL any time until the HIT is disposed. After the HIT is disposed, any uploaded files are deleted, and cannot be retrieved.+-- The @GetFileUploadURL@ operation generates and returns a temporary URL. You use the temporary URL to retrieve a file uploaded by a Worker as an answer to a FileUploadAnswer question for a HIT. The temporary URL is generated the instant the GetFileUploadURL operation is called, and is valid for 60 seconds. You can get a temporary file upload URL any time until the HIT is disposed. After the HIT is disposed, any uploaded files are deleted, and cannot be retrieved. Pending Deprecation on December 12, 2017. The Answer Specification structure will no longer support the @FileUploadAnswer@ element to be used for the QuestionForm data structure. Instead, we recommend that Requesters who want to create HITs asking Workers to upload files to use Amazon S3. -- -- module Network.AWS.MechanicalTurk.GetFileUploadURL@@ -65,18 +65,18 @@ -> GetFileUploadURL getFileUploadURL pAssignmentId_ pQuestionIdentifier_ = GetFileUploadURL'- { _gfuuAssignmentId = pAssignmentId_- , _gfuuQuestionIdentifier = pQuestionIdentifier_- }+ { _gfuuAssignmentId = pAssignmentId_+ , _gfuuQuestionIdentifier = pQuestionIdentifier_+ } -- | The ID of the assignment that contains the question with a FileUploadAnswer. gfuuAssignmentId :: Lens' GetFileUploadURL Text-gfuuAssignmentId = lens _gfuuAssignmentId (\ s a -> s{_gfuuAssignmentId = a});+gfuuAssignmentId = lens _gfuuAssignmentId (\ s a -> s{_gfuuAssignmentId = a}) -- | The identifier of the question with a FileUploadAnswer, as specified in the QuestionForm of the HIT. gfuuQuestionIdentifier :: Lens' GetFileUploadURL Text-gfuuQuestionIdentifier = lens _gfuuQuestionIdentifier (\ s a -> s{_gfuuQuestionIdentifier = a});+gfuuQuestionIdentifier = lens _gfuuQuestionIdentifier (\ s a -> s{_gfuuQuestionIdentifier = a}) instance AWSRequest GetFileUploadURL where type Rs GetFileUploadURL = GetFileUploadURLResponse@@ -134,15 +134,15 @@ -> GetFileUploadURLResponse getFileUploadURLResponse pResponseStatus_ = GetFileUploadURLResponse'- {_gfuursFileUploadURL = Nothing, _gfuursResponseStatus = pResponseStatus_}+ {_gfuursFileUploadURL = Nothing, _gfuursResponseStatus = pResponseStatus_} -- | A temporary URL for the file that the Worker uploaded for the answer. gfuursFileUploadURL :: Lens' GetFileUploadURLResponse (Maybe Text)-gfuursFileUploadURL = lens _gfuursFileUploadURL (\ s a -> s{_gfuursFileUploadURL = a});+gfuursFileUploadURL = lens _gfuursFileUploadURL (\ s a -> s{_gfuursFileUploadURL = a}) -- | -- | The response status code. gfuursResponseStatus :: Lens' GetFileUploadURLResponse Int-gfuursResponseStatus = lens _gfuursResponseStatus (\ s a -> s{_gfuursResponseStatus = a});+gfuursResponseStatus = lens _gfuursResponseStatus (\ s a -> s{_gfuursResponseStatus = a}) instance NFData GetFileUploadURLResponse where
gen/Network/AWS/MechanicalTurk/GetHIT.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.GetHIT--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -63,7 +63,7 @@ -- | The ID of the HIT to be retrieved. ghitHITId :: Lens' GetHIT Text-ghitHITId = lens _ghitHITId (\ s a -> s{_ghitHITId = a});+ghitHITId = lens _ghitHITId (\ s a -> s{_ghitHITId = a}) instance AWSRequest GetHIT where type Rs GetHIT = GetHITResponse@@ -117,15 +117,15 @@ -> GetHITResponse getHITResponse pResponseStatus_ = GetHITResponse'- {_ghitrsHIT = Nothing, _ghitrsResponseStatus = pResponseStatus_}+ {_ghitrsHIT = Nothing, _ghitrsResponseStatus = pResponseStatus_} -- | Contains the requested HIT data. ghitrsHIT :: Lens' GetHITResponse (Maybe HIT)-ghitrsHIT = lens _ghitrsHIT (\ s a -> s{_ghitrsHIT = a});+ghitrsHIT = lens _ghitrsHIT (\ s a -> s{_ghitrsHIT = a}) -- | -- | The response status code. ghitrsResponseStatus :: Lens' GetHITResponse Int-ghitrsResponseStatus = lens _ghitrsResponseStatus (\ s a -> s{_ghitrsResponseStatus = a});+ghitrsResponseStatus = lens _ghitrsResponseStatus (\ s a -> s{_ghitrsResponseStatus = a}) instance NFData GetHITResponse where
gen/Network/AWS/MechanicalTurk/GetQualificationScore.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.GetQualificationScore--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,16 +69,16 @@ -> GetQualificationScore getQualificationScore pQualificationTypeId_ pWorkerId_ = GetQualificationScore'- {_gqsQualificationTypeId = pQualificationTypeId_, _gqsWorkerId = pWorkerId_}+ {_gqsQualificationTypeId = pQualificationTypeId_, _gqsWorkerId = pWorkerId_} -- | The ID of the QualificationType. gqsQualificationTypeId :: Lens' GetQualificationScore Text-gqsQualificationTypeId = lens _gqsQualificationTypeId (\ s a -> s{_gqsQualificationTypeId = a});+gqsQualificationTypeId = lens _gqsQualificationTypeId (\ s a -> s{_gqsQualificationTypeId = a}) -- | The ID of the Worker whose Qualification is being updated. gqsWorkerId :: Lens' GetQualificationScore Text-gqsWorkerId = lens _gqsWorkerId (\ s a -> s{_gqsWorkerId = a});+gqsWorkerId = lens _gqsWorkerId (\ s a -> s{_gqsWorkerId = a}) instance AWSRequest GetQualificationScore where type Rs GetQualificationScore =@@ -137,15 +137,15 @@ -> GetQualificationScoreResponse getQualificationScoreResponse pResponseStatus_ = GetQualificationScoreResponse'- {_gqsrsQualification = Nothing, _gqsrsResponseStatus = pResponseStatus_}+ {_gqsrsQualification = Nothing, _gqsrsResponseStatus = pResponseStatus_} -- | The Qualification data structure of the Qualification assigned to a user, including the Qualification type and the value (score). gqsrsQualification :: Lens' GetQualificationScoreResponse (Maybe Qualification)-gqsrsQualification = lens _gqsrsQualification (\ s a -> s{_gqsrsQualification = a});+gqsrsQualification = lens _gqsrsQualification (\ s a -> s{_gqsrsQualification = a}) -- | -- | The response status code. gqsrsResponseStatus :: Lens' GetQualificationScoreResponse Int-gqsrsResponseStatus = lens _gqsrsResponseStatus (\ s a -> s{_gqsrsResponseStatus = a});+gqsrsResponseStatus = lens _gqsrsResponseStatus (\ s a -> s{_gqsrsResponseStatus = a}) instance NFData GetQualificationScoreResponse where
gen/Network/AWS/MechanicalTurk/GetQualificationType.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.GetQualificationType--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -64,7 +64,7 @@ -- | The ID of the QualificationType. gqtQualificationTypeId :: Lens' GetQualificationType Text-gqtQualificationTypeId = lens _gqtQualificationTypeId (\ s a -> s{_gqtQualificationTypeId = a});+gqtQualificationTypeId = lens _gqtQualificationTypeId (\ s a -> s{_gqtQualificationTypeId = a}) instance AWSRequest GetQualificationType where type Rs GetQualificationType =@@ -122,15 +122,15 @@ -> GetQualificationTypeResponse getQualificationTypeResponse pResponseStatus_ = GetQualificationTypeResponse'- {_gqtrsQualificationType = Nothing, _gqtrsResponseStatus = pResponseStatus_}+ {_gqtrsQualificationType = Nothing, _gqtrsResponseStatus = pResponseStatus_} -- | The returned Qualification Type gqtrsQualificationType :: Lens' GetQualificationTypeResponse (Maybe QualificationType)-gqtrsQualificationType = lens _gqtrsQualificationType (\ s a -> s{_gqtrsQualificationType = a});+gqtrsQualificationType = lens _gqtrsQualificationType (\ s a -> s{_gqtrsQualificationType = a}) -- | -- | The response status code. gqtrsResponseStatus :: Lens' GetQualificationTypeResponse Int-gqtrsResponseStatus = lens _gqtrsResponseStatus (\ s a -> s{_gqtrsResponseStatus = a});+gqtrsResponseStatus = lens _gqtrsResponseStatus (\ s a -> s{_gqtrsResponseStatus = a}) instance NFData GetQualificationTypeResponse where
gen/Network/AWS/MechanicalTurk/ListAssignmentsForHIT.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListAssignmentsForHIT--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -29,6 +29,8 @@ -- -- Results are sorted and divided into numbered pages and the operation returns a single page of results. You can use the parameters of the operation to control sorting and pagination. --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListAssignmentsForHIT ( -- * Creating a Request@@ -53,6 +55,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -82,29 +85,37 @@ -> ListAssignmentsForHIT listAssignmentsForHIT pHITId_ = ListAssignmentsForHIT'- { _lafhitAssignmentStatuses = Nothing- , _lafhitNextToken = Nothing- , _lafhitMaxResults = Nothing- , _lafhitHITId = pHITId_- }+ { _lafhitAssignmentStatuses = Nothing+ , _lafhitNextToken = Nothing+ , _lafhitMaxResults = Nothing+ , _lafhitHITId = pHITId_+ } -- | The status of the assignments to return: Submitted | Approved | Rejected lafhitAssignmentStatuses :: Lens' ListAssignmentsForHIT [AssignmentStatus]-lafhitAssignmentStatuses = lens _lafhitAssignmentStatuses (\ s a -> s{_lafhitAssignmentStatuses = a}) . _Default . _Coerce;+lafhitAssignmentStatuses = lens _lafhitAssignmentStatuses (\ s a -> s{_lafhitAssignmentStatuses = a}) . _Default . _Coerce -- | Pagination token lafhitNextToken :: Lens' ListAssignmentsForHIT (Maybe Text)-lafhitNextToken = lens _lafhitNextToken (\ s a -> s{_lafhitNextToken = a});+lafhitNextToken = lens _lafhitNextToken (\ s a -> s{_lafhitNextToken = a}) -- | Undocumented member. lafhitMaxResults :: Lens' ListAssignmentsForHIT (Maybe Natural)-lafhitMaxResults = lens _lafhitMaxResults (\ s a -> s{_lafhitMaxResults = a}) . mapping _Nat;+lafhitMaxResults = lens _lafhitMaxResults (\ s a -> s{_lafhitMaxResults = a}) . mapping _Nat -- | The ID of the HIT. lafhitHITId :: Lens' ListAssignmentsForHIT Text-lafhitHITId = lens _lafhitHITId (\ s a -> s{_lafhitHITId = a});+lafhitHITId = lens _lafhitHITId (\ s a -> s{_lafhitHITId = a}) +instance AWSPager ListAssignmentsForHIT where+ page rq rs+ | stop (rs ^. lafhitrsNextToken) = Nothing+ | stop (rs ^. lafhitrsAssignments) = Nothing+ | otherwise =+ Just $ rq &+ lafhitNextToken .~ rs ^. lafhitrsNextToken+ instance AWSRequest ListAssignmentsForHIT where type Rs ListAssignmentsForHIT = ListAssignmentsForHITResponse@@ -172,27 +183,27 @@ -> ListAssignmentsForHITResponse listAssignmentsForHITResponse pResponseStatus_ = ListAssignmentsForHITResponse'- { _lafhitrsNextToken = Nothing- , _lafhitrsNumResults = Nothing- , _lafhitrsAssignments = Nothing- , _lafhitrsResponseStatus = pResponseStatus_- }+ { _lafhitrsNextToken = Nothing+ , _lafhitrsNumResults = Nothing+ , _lafhitrsAssignments = Nothing+ , _lafhitrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. lafhitrsNextToken :: Lens' ListAssignmentsForHITResponse (Maybe Text)-lafhitrsNextToken = lens _lafhitrsNextToken (\ s a -> s{_lafhitrsNextToken = a});+lafhitrsNextToken = lens _lafhitrsNextToken (\ s a -> s{_lafhitrsNextToken = a}) -- | The number of assignments on the page in the filtered results list, equivalent to the number of assignments returned by this call. lafhitrsNumResults :: Lens' ListAssignmentsForHITResponse (Maybe Int)-lafhitrsNumResults = lens _lafhitrsNumResults (\ s a -> s{_lafhitrsNumResults = a});+lafhitrsNumResults = lens _lafhitrsNumResults (\ s a -> s{_lafhitrsNumResults = a}) -- | The collection of Assignment data structures returned by this call. lafhitrsAssignments :: Lens' ListAssignmentsForHITResponse [Assignment]-lafhitrsAssignments = lens _lafhitrsAssignments (\ s a -> s{_lafhitrsAssignments = a}) . _Default . _Coerce;+lafhitrsAssignments = lens _lafhitrsAssignments (\ s a -> s{_lafhitrsAssignments = a}) . _Default . _Coerce -- | -- | The response status code. lafhitrsResponseStatus :: Lens' ListAssignmentsForHITResponse Int-lafhitrsResponseStatus = lens _lafhitrsResponseStatus (\ s a -> s{_lafhitrsResponseStatus = a});+lafhitrsResponseStatus = lens _lafhitrsResponseStatus (\ s a -> s{_lafhitrsResponseStatus = a}) instance NFData ListAssignmentsForHITResponse where
gen/Network/AWS/MechanicalTurk/ListBonusPayments.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListBonusPayments--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -21,6 +21,8 @@ -- The @ListBonusPayments@ operation retrieves the amounts of bonuses you have paid to Workers for a given HIT or assignment. -- --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListBonusPayments ( -- * Creating a Request@@ -45,6 +47,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -73,29 +76,36 @@ :: ListBonusPayments listBonusPayments = ListBonusPayments'- { _lbpNextToken = Nothing- , _lbpHITId = Nothing- , _lbpAssignmentId = Nothing- , _lbpMaxResults = Nothing- }+ { _lbpNextToken = Nothing+ , _lbpHITId = Nothing+ , _lbpAssignmentId = Nothing+ , _lbpMaxResults = Nothing+ } -- | Pagination token lbpNextToken :: Lens' ListBonusPayments (Maybe Text)-lbpNextToken = lens _lbpNextToken (\ s a -> s{_lbpNextToken = a});+lbpNextToken = lens _lbpNextToken (\ s a -> s{_lbpNextToken = a}) -- | The ID of the HIT associated with the bonus payments to retrieve. If not specified, all bonus payments for all assignments for the given HIT are returned. Either the HITId parameter or the AssignmentId parameter must be specified lbpHITId :: Lens' ListBonusPayments (Maybe Text)-lbpHITId = lens _lbpHITId (\ s a -> s{_lbpHITId = a});+lbpHITId = lens _lbpHITId (\ s a -> s{_lbpHITId = a}) -- | The ID of the assignment associated with the bonus payments to retrieve. If specified, only bonus payments for the given assignment are returned. Either the HITId parameter or the AssignmentId parameter must be specified lbpAssignmentId :: Lens' ListBonusPayments (Maybe Text)-lbpAssignmentId = lens _lbpAssignmentId (\ s a -> s{_lbpAssignmentId = a});+lbpAssignmentId = lens _lbpAssignmentId (\ s a -> s{_lbpAssignmentId = a}) -- | Undocumented member. lbpMaxResults :: Lens' ListBonusPayments (Maybe Natural)-lbpMaxResults = lens _lbpMaxResults (\ s a -> s{_lbpMaxResults = a}) . mapping _Nat;+lbpMaxResults = lens _lbpMaxResults (\ s a -> s{_lbpMaxResults = a}) . mapping _Nat +instance AWSPager ListBonusPayments where+ page rq rs+ | stop (rs ^. lbprsNextToken) = Nothing+ | stop (rs ^. lbprsBonusPayments) = Nothing+ | otherwise =+ Just $ rq & lbpNextToken .~ rs ^. lbprsNextToken+ instance AWSRequest ListBonusPayments where type Rs ListBonusPayments = ListBonusPaymentsResponse request = postJSON mechanicalTurk@@ -162,27 +172,27 @@ -> ListBonusPaymentsResponse listBonusPaymentsResponse pResponseStatus_ = ListBonusPaymentsResponse'- { _lbprsBonusPayments = Nothing- , _lbprsNextToken = Nothing- , _lbprsNumResults = Nothing- , _lbprsResponseStatus = pResponseStatus_- }+ { _lbprsBonusPayments = Nothing+ , _lbprsNextToken = Nothing+ , _lbprsNumResults = Nothing+ , _lbprsResponseStatus = pResponseStatus_+ } -- | A successful request to the ListBonusPayments operation returns a list of BonusPayment objects. lbprsBonusPayments :: Lens' ListBonusPaymentsResponse [BonusPayment]-lbprsBonusPayments = lens _lbprsBonusPayments (\ s a -> s{_lbprsBonusPayments = a}) . _Default . _Coerce;+lbprsBonusPayments = lens _lbprsBonusPayments (\ s a -> s{_lbprsBonusPayments = a}) . _Default . _Coerce -- | Undocumented member. lbprsNextToken :: Lens' ListBonusPaymentsResponse (Maybe Text)-lbprsNextToken = lens _lbprsNextToken (\ s a -> s{_lbprsNextToken = a});+lbprsNextToken = lens _lbprsNextToken (\ s a -> s{_lbprsNextToken = a}) -- | The number of bonus payments on this page in the filtered results list, equivalent to the number of bonus payments being returned by this call. lbprsNumResults :: Lens' ListBonusPaymentsResponse (Maybe Int)-lbprsNumResults = lens _lbprsNumResults (\ s a -> s{_lbprsNumResults = a});+lbprsNumResults = lens _lbprsNumResults (\ s a -> s{_lbprsNumResults = a}) -- | -- | The response status code. lbprsResponseStatus :: Lens' ListBonusPaymentsResponse Int-lbprsResponseStatus = lens _lbprsResponseStatus (\ s a -> s{_lbprsResponseStatus = a});+lbprsResponseStatus = lens _lbprsResponseStatus (\ s a -> s{_lbprsResponseStatus = a}) instance NFData ListBonusPaymentsResponse where
gen/Network/AWS/MechanicalTurk/ListHITs.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListHITs--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -21,6 +21,8 @@ -- The @ListHITs@ operation returns all of a Requester's HITs. The operation returns HITs of any status, except for HITs that have been deleted of with the DeleteHIT operation or that have been auto-deleted. -- --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListHITs ( -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -68,12 +71,19 @@ -- | Pagination token lhitNextToken :: Lens' ListHITs (Maybe Text)-lhitNextToken = lens _lhitNextToken (\ s a -> s{_lhitNextToken = a});+lhitNextToken = lens _lhitNextToken (\ s a -> s{_lhitNextToken = a}) -- | Undocumented member. lhitMaxResults :: Lens' ListHITs (Maybe Natural)-lhitMaxResults = lens _lhitMaxResults (\ s a -> s{_lhitMaxResults = a}) . mapping _Nat;+lhitMaxResults = lens _lhitMaxResults (\ s a -> s{_lhitMaxResults = a}) . mapping _Nat +instance AWSPager ListHITs where+ page rq rs+ | stop (rs ^. lhitrsNextToken) = Nothing+ | stop (rs ^. lhitrsHITs) = Nothing+ | otherwise =+ Just $ rq & lhitNextToken .~ rs ^. lhitrsNextToken+ instance AWSRequest ListHITs where type Rs ListHITs = ListHITsResponse request = postJSON mechanicalTurk@@ -137,27 +147,27 @@ -> ListHITsResponse listHITsResponse pResponseStatus_ = ListHITsResponse'- { _lhitrsNextToken = Nothing- , _lhitrsNumResults = Nothing- , _lhitrsHITs = Nothing- , _lhitrsResponseStatus = pResponseStatus_- }+ { _lhitrsNextToken = Nothing+ , _lhitrsNumResults = Nothing+ , _lhitrsHITs = Nothing+ , _lhitrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. lhitrsNextToken :: Lens' ListHITsResponse (Maybe Text)-lhitrsNextToken = lens _lhitrsNextToken (\ s a -> s{_lhitrsNextToken = a});+lhitrsNextToken = lens _lhitrsNextToken (\ s a -> s{_lhitrsNextToken = a}) -- | The number of HITs on this page in the filtered results list, equivalent to the number of HITs being returned by this call. lhitrsNumResults :: Lens' ListHITsResponse (Maybe Int)-lhitrsNumResults = lens _lhitrsNumResults (\ s a -> s{_lhitrsNumResults = a});+lhitrsNumResults = lens _lhitrsNumResults (\ s a -> s{_lhitrsNumResults = a}) -- | The list of HIT elements returned by the query. lhitrsHITs :: Lens' ListHITsResponse [HIT]-lhitrsHITs = lens _lhitrsHITs (\ s a -> s{_lhitrsHITs = a}) . _Default . _Coerce;+lhitrsHITs = lens _lhitrsHITs (\ s a -> s{_lhitrsHITs = a}) . _Default . _Coerce -- | -- | The response status code. lhitrsResponseStatus :: Lens' ListHITsResponse Int-lhitrsResponseStatus = lens _lhitrsResponseStatus (\ s a -> s{_lhitrsResponseStatus = a});+lhitrsResponseStatus = lens _lhitrsResponseStatus (\ s a -> s{_lhitrsResponseStatus = a}) instance NFData ListHITsResponse where
gen/Network/AWS/MechanicalTurk/ListHITsForQualificationType.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListHITsForQualificationType--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -21,6 +21,8 @@ -- The @ListHITsForQualificationType@ operation returns the HITs that use the given Qualification type for a Qualification requirement. The operation returns HITs of any status, except for HITs that have been deleted with the @DeleteHIT@ operation or that have been auto-deleted. -- --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListHITsForQualificationType ( -- * Creating a Request@@ -44,6 +46,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -70,24 +73,32 @@ -> ListHITsForQualificationType listHITsForQualificationType pQualificationTypeId_ = ListHITsForQualificationType'- { _lhitfqtNextToken = Nothing- , _lhitfqtMaxResults = Nothing- , _lhitfqtQualificationTypeId = pQualificationTypeId_- }+ { _lhitfqtNextToken = Nothing+ , _lhitfqtMaxResults = Nothing+ , _lhitfqtQualificationTypeId = pQualificationTypeId_+ } -- | Pagination Token lhitfqtNextToken :: Lens' ListHITsForQualificationType (Maybe Text)-lhitfqtNextToken = lens _lhitfqtNextToken (\ s a -> s{_lhitfqtNextToken = a});+lhitfqtNextToken = lens _lhitfqtNextToken (\ s a -> s{_lhitfqtNextToken = a}) -- | Limit the number of results returned. lhitfqtMaxResults :: Lens' ListHITsForQualificationType (Maybe Natural)-lhitfqtMaxResults = lens _lhitfqtMaxResults (\ s a -> s{_lhitfqtMaxResults = a}) . mapping _Nat;+lhitfqtMaxResults = lens _lhitfqtMaxResults (\ s a -> s{_lhitfqtMaxResults = a}) . mapping _Nat -- | The ID of the Qualification type to use when querying HITs. lhitfqtQualificationTypeId :: Lens' ListHITsForQualificationType Text-lhitfqtQualificationTypeId = lens _lhitfqtQualificationTypeId (\ s a -> s{_lhitfqtQualificationTypeId = a});+lhitfqtQualificationTypeId = lens _lhitfqtQualificationTypeId (\ s a -> s{_lhitfqtQualificationTypeId = a}) +instance AWSPager ListHITsForQualificationType where+ page rq rs+ | stop (rs ^. lhitfqtrsNextToken) = Nothing+ | stop (rs ^. lhitfqtrsHITs) = Nothing+ | otherwise =+ Just $ rq &+ lhitfqtNextToken .~ rs ^. lhitfqtrsNextToken+ instance AWSRequest ListHITsForQualificationType where type Rs ListHITsForQualificationType =@@ -156,28 +167,28 @@ -> ListHITsForQualificationTypeResponse listHITsForQualificationTypeResponse pResponseStatus_ = ListHITsForQualificationTypeResponse'- { _lhitfqtrsNextToken = Nothing- , _lhitfqtrsNumResults = Nothing- , _lhitfqtrsHITs = Nothing- , _lhitfqtrsResponseStatus = pResponseStatus_- }+ { _lhitfqtrsNextToken = Nothing+ , _lhitfqtrsNumResults = Nothing+ , _lhitfqtrsHITs = Nothing+ , _lhitfqtrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. lhitfqtrsNextToken :: Lens' ListHITsForQualificationTypeResponse (Maybe Text)-lhitfqtrsNextToken = lens _lhitfqtrsNextToken (\ s a -> s{_lhitfqtrsNextToken = a});+lhitfqtrsNextToken = lens _lhitfqtrsNextToken (\ s a -> s{_lhitfqtrsNextToken = a}) -- | The number of HITs on this page in the filtered results list, equivalent to the number of HITs being returned by this call. lhitfqtrsNumResults :: Lens' ListHITsForQualificationTypeResponse (Maybe Int)-lhitfqtrsNumResults = lens _lhitfqtrsNumResults (\ s a -> s{_lhitfqtrsNumResults = a});+lhitfqtrsNumResults = lens _lhitfqtrsNumResults (\ s a -> s{_lhitfqtrsNumResults = a}) -- | The list of HIT elements returned by the query. lhitfqtrsHITs :: Lens' ListHITsForQualificationTypeResponse [HIT]-lhitfqtrsHITs = lens _lhitfqtrsHITs (\ s a -> s{_lhitfqtrsHITs = a}) . _Default . _Coerce;+lhitfqtrsHITs = lens _lhitfqtrsHITs (\ s a -> s{_lhitfqtrsHITs = a}) . _Default . _Coerce -- | -- | The response status code. lhitfqtrsResponseStatus :: Lens' ListHITsForQualificationTypeResponse Int-lhitfqtrsResponseStatus = lens _lhitfqtrsResponseStatus (\ s a -> s{_lhitfqtrsResponseStatus = a});+lhitfqtrsResponseStatus = lens _lhitfqtrsResponseStatus (\ s a -> s{_lhitfqtrsResponseStatus = a}) instance NFData ListHITsForQualificationTypeResponse where
gen/Network/AWS/MechanicalTurk/ListQualificationRequests.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListQualificationRequests--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -21,6 +21,8 @@ -- The @ListQualificationRequests@ operation retrieves requests for Qualifications of a particular Qualification type. The owner of the Qualification type calls this operation to poll for pending requests, and accepts them using the AcceptQualification operation. -- --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListQualificationRequests ( -- * Creating a Request@@ -44,6 +46,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -69,24 +72,31 @@ :: ListQualificationRequests listQualificationRequests = ListQualificationRequests'- { _lqrNextToken = Nothing- , _lqrQualificationTypeId = Nothing- , _lqrMaxResults = Nothing- }+ { _lqrNextToken = Nothing+ , _lqrQualificationTypeId = Nothing+ , _lqrMaxResults = Nothing+ } -- | Undocumented member. lqrNextToken :: Lens' ListQualificationRequests (Maybe Text)-lqrNextToken = lens _lqrNextToken (\ s a -> s{_lqrNextToken = a});+lqrNextToken = lens _lqrNextToken (\ s a -> s{_lqrNextToken = a}) -- | The ID of the QualificationType. lqrQualificationTypeId :: Lens' ListQualificationRequests (Maybe Text)-lqrQualificationTypeId = lens _lqrQualificationTypeId (\ s a -> s{_lqrQualificationTypeId = a});+lqrQualificationTypeId = lens _lqrQualificationTypeId (\ s a -> s{_lqrQualificationTypeId = a}) -- | The maximum number of results to return in a single call. lqrMaxResults :: Lens' ListQualificationRequests (Maybe Natural)-lqrMaxResults = lens _lqrMaxResults (\ s a -> s{_lqrMaxResults = a}) . mapping _Nat;+lqrMaxResults = lens _lqrMaxResults (\ s a -> s{_lqrMaxResults = a}) . mapping _Nat +instance AWSPager ListQualificationRequests where+ page rq rs+ | stop (rs ^. lqrrsNextToken) = Nothing+ | stop (rs ^. lqrrsQualificationRequests) = Nothing+ | otherwise =+ Just $ rq & lqrNextToken .~ rs ^. lqrrsNextToken+ instance AWSRequest ListQualificationRequests where type Rs ListQualificationRequests = ListQualificationRequestsResponse@@ -154,28 +164,28 @@ -> ListQualificationRequestsResponse listQualificationRequestsResponse pResponseStatus_ = ListQualificationRequestsResponse'- { _lqrrsQualificationRequests = Nothing- , _lqrrsNextToken = Nothing- , _lqrrsNumResults = Nothing- , _lqrrsResponseStatus = pResponseStatus_- }+ { _lqrrsQualificationRequests = Nothing+ , _lqrrsNextToken = Nothing+ , _lqrrsNumResults = Nothing+ , _lqrrsResponseStatus = pResponseStatus_+ } -- | The Qualification request. The response includes one QualificationRequest element for each Qualification request returned by the query. lqrrsQualificationRequests :: Lens' ListQualificationRequestsResponse [QualificationRequest]-lqrrsQualificationRequests = lens _lqrrsQualificationRequests (\ s a -> s{_lqrrsQualificationRequests = a}) . _Default . _Coerce;+lqrrsQualificationRequests = lens _lqrrsQualificationRequests (\ s a -> s{_lqrrsQualificationRequests = a}) . _Default . _Coerce -- | Undocumented member. lqrrsNextToken :: Lens' ListQualificationRequestsResponse (Maybe Text)-lqrrsNextToken = lens _lqrrsNextToken (\ s a -> s{_lqrrsNextToken = a});+lqrrsNextToken = lens _lqrrsNextToken (\ s a -> s{_lqrrsNextToken = a}) -- | The number of Qualification requests on this page in the filtered results list, equivalent to the number of Qualification requests being returned by this call. lqrrsNumResults :: Lens' ListQualificationRequestsResponse (Maybe Int)-lqrrsNumResults = lens _lqrrsNumResults (\ s a -> s{_lqrrsNumResults = a});+lqrrsNumResults = lens _lqrrsNumResults (\ s a -> s{_lqrrsNumResults = a}) -- | -- | The response status code. lqrrsResponseStatus :: Lens' ListQualificationRequestsResponse Int-lqrrsResponseStatus = lens _lqrrsResponseStatus (\ s a -> s{_lqrrsResponseStatus = a});+lqrrsResponseStatus = lens _lqrrsResponseStatus (\ s a -> s{_lqrrsResponseStatus = a}) instance NFData ListQualificationRequestsResponse where
gen/Network/AWS/MechanicalTurk/ListQualificationTypes.hs view
@@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListQualificationTypes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) ----- The @ListQualificationRequests@ operation retrieves requests for Qualifications of a particular Qualification type. The owner of the Qualification type calls this operation to poll for pending requests, and accepts them using the AcceptQualification operation.+-- The @ListQualificationTypes@ operation returns a list of Qualification types, filtered by an optional search term. -- --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListQualificationTypes ( -- * Creating a Request@@ -46,6 +48,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -78,34 +81,41 @@ -> ListQualificationTypes listQualificationTypes pMustBeRequestable_ = ListQualificationTypes'- { _lqtMustBeOwnedByCaller = Nothing- , _lqtNextToken = Nothing- , _lqtQuery = Nothing- , _lqtMaxResults = Nothing- , _lqtMustBeRequestable = pMustBeRequestable_- }+ { _lqtMustBeOwnedByCaller = Nothing+ , _lqtNextToken = Nothing+ , _lqtQuery = Nothing+ , _lqtMaxResults = Nothing+ , _lqtMustBeRequestable = pMustBeRequestable_+ } -- | Specifies that only Qualification types that the Requester created are returned. If false, the operation returns all Qualification types. lqtMustBeOwnedByCaller :: Lens' ListQualificationTypes (Maybe Bool)-lqtMustBeOwnedByCaller = lens _lqtMustBeOwnedByCaller (\ s a -> s{_lqtMustBeOwnedByCaller = a});+lqtMustBeOwnedByCaller = lens _lqtMustBeOwnedByCaller (\ s a -> s{_lqtMustBeOwnedByCaller = a}) -- | Undocumented member. lqtNextToken :: Lens' ListQualificationTypes (Maybe Text)-lqtNextToken = lens _lqtNextToken (\ s a -> s{_lqtNextToken = a});+lqtNextToken = lens _lqtNextToken (\ s a -> s{_lqtNextToken = a}) -- | A text query against all of the searchable attributes of Qualification types. lqtQuery :: Lens' ListQualificationTypes (Maybe Text)-lqtQuery = lens _lqtQuery (\ s a -> s{_lqtQuery = a});+lqtQuery = lens _lqtQuery (\ s a -> s{_lqtQuery = a}) -- | The maximum number of results to return in a single call. lqtMaxResults :: Lens' ListQualificationTypes (Maybe Natural)-lqtMaxResults = lens _lqtMaxResults (\ s a -> s{_lqtMaxResults = a}) . mapping _Nat;+lqtMaxResults = lens _lqtMaxResults (\ s a -> s{_lqtMaxResults = a}) . mapping _Nat -- | Specifies that only Qualification types that a user can request through the Amazon Mechanical Turk web site, such as by taking a Qualification test, are returned as results of the search. Some Qualification types, such as those assigned automatically by the system, cannot be requested directly by users. If false, all Qualification types, including those managed by the system, are considered. Valid values are True | False. lqtMustBeRequestable :: Lens' ListQualificationTypes Bool-lqtMustBeRequestable = lens _lqtMustBeRequestable (\ s a -> s{_lqtMustBeRequestable = a});+lqtMustBeRequestable = lens _lqtMustBeRequestable (\ s a -> s{_lqtMustBeRequestable = a}) +instance AWSPager ListQualificationTypes where+ page rq rs+ | stop (rs ^. lqtrsNextToken) = Nothing+ | stop (rs ^. lqtrsQualificationTypes) = Nothing+ | otherwise =+ Just $ rq & lqtNextToken .~ rs ^. lqtrsNextToken+ instance AWSRequest ListQualificationTypes where type Rs ListQualificationTypes = ListQualificationTypesResponse@@ -175,27 +185,27 @@ -> ListQualificationTypesResponse listQualificationTypesResponse pResponseStatus_ = ListQualificationTypesResponse'- { _lqtrsQualificationTypes = Nothing- , _lqtrsNextToken = Nothing- , _lqtrsNumResults = Nothing- , _lqtrsResponseStatus = pResponseStatus_- }+ { _lqtrsQualificationTypes = Nothing+ , _lqtrsNextToken = Nothing+ , _lqtrsNumResults = Nothing+ , _lqtrsResponseStatus = pResponseStatus_+ } -- | The list of QualificationType elements returned by the query. lqtrsQualificationTypes :: Lens' ListQualificationTypesResponse [QualificationType]-lqtrsQualificationTypes = lens _lqtrsQualificationTypes (\ s a -> s{_lqtrsQualificationTypes = a}) . _Default . _Coerce;+lqtrsQualificationTypes = lens _lqtrsQualificationTypes (\ s a -> s{_lqtrsQualificationTypes = a}) . _Default . _Coerce -- | Undocumented member. lqtrsNextToken :: Lens' ListQualificationTypesResponse (Maybe Text)-lqtrsNextToken = lens _lqtrsNextToken (\ s a -> s{_lqtrsNextToken = a});+lqtrsNextToken = lens _lqtrsNextToken (\ s a -> s{_lqtrsNextToken = a}) -- | The number of Qualification types on this page in the filtered results list, equivalent to the number of types this operation returns. lqtrsNumResults :: Lens' ListQualificationTypesResponse (Maybe Int)-lqtrsNumResults = lens _lqtrsNumResults (\ s a -> s{_lqtrsNumResults = a});+lqtrsNumResults = lens _lqtrsNumResults (\ s a -> s{_lqtrsNumResults = a}) -- | -- | The response status code. lqtrsResponseStatus :: Lens' ListQualificationTypesResponse Int-lqtrsResponseStatus = lens _lqtrsResponseStatus (\ s a -> s{_lqtrsResponseStatus = a});+lqtrsResponseStatus = lens _lqtrsResponseStatus (\ s a -> s{_lqtrsResponseStatus = a}) instance NFData ListQualificationTypesResponse where
gen/Network/AWS/MechanicalTurk/ListReviewPolicyResultsForHIT.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListReviewPolicyResultsForHIT--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -85,38 +85,38 @@ -> ListReviewPolicyResultsForHIT listReviewPolicyResultsForHIT pHITId_ = ListReviewPolicyResultsForHIT'- { _lrprfhitRetrieveResults = Nothing- , _lrprfhitPolicyLevels = Nothing- , _lrprfhitRetrieveActions = Nothing- , _lrprfhitNextToken = Nothing- , _lrprfhitMaxResults = Nothing- , _lrprfhitHITId = pHITId_- }+ { _lrprfhitRetrieveResults = Nothing+ , _lrprfhitPolicyLevels = Nothing+ , _lrprfhitRetrieveActions = Nothing+ , _lrprfhitNextToken = Nothing+ , _lrprfhitMaxResults = Nothing+ , _lrprfhitHITId = pHITId_+ } -- | Specify if the operation should retrieve a list of the results computed by the Review Policies. lrprfhitRetrieveResults :: Lens' ListReviewPolicyResultsForHIT (Maybe Bool)-lrprfhitRetrieveResults = lens _lrprfhitRetrieveResults (\ s a -> s{_lrprfhitRetrieveResults = a});+lrprfhitRetrieveResults = lens _lrprfhitRetrieveResults (\ s a -> s{_lrprfhitRetrieveResults = a}) -- | The Policy Level(s) to retrieve review results for - HIT or Assignment. If omitted, the default behavior is to retrieve all data for both policy levels. For a list of all the described policies, see Review Policies. lrprfhitPolicyLevels :: Lens' ListReviewPolicyResultsForHIT [ReviewPolicyLevel]-lrprfhitPolicyLevels = lens _lrprfhitPolicyLevels (\ s a -> s{_lrprfhitPolicyLevels = a}) . _Default . _Coerce;+lrprfhitPolicyLevels = lens _lrprfhitPolicyLevels (\ s a -> s{_lrprfhitPolicyLevels = a}) . _Default . _Coerce -- | Specify if the operation should retrieve a list of the actions taken executing the Review Policies and their outcomes. lrprfhitRetrieveActions :: Lens' ListReviewPolicyResultsForHIT (Maybe Bool)-lrprfhitRetrieveActions = lens _lrprfhitRetrieveActions (\ s a -> s{_lrprfhitRetrieveActions = a});+lrprfhitRetrieveActions = lens _lrprfhitRetrieveActions (\ s a -> s{_lrprfhitRetrieveActions = a}) -- | Pagination token lrprfhitNextToken :: Lens' ListReviewPolicyResultsForHIT (Maybe Text)-lrprfhitNextToken = lens _lrprfhitNextToken (\ s a -> s{_lrprfhitNextToken = a});+lrprfhitNextToken = lens _lrprfhitNextToken (\ s a -> s{_lrprfhitNextToken = a}) -- | Limit the number of results returned. lrprfhitMaxResults :: Lens' ListReviewPolicyResultsForHIT (Maybe Natural)-lrprfhitMaxResults = lens _lrprfhitMaxResults (\ s a -> s{_lrprfhitMaxResults = a}) . mapping _Nat;+lrprfhitMaxResults = lens _lrprfhitMaxResults (\ s a -> s{_lrprfhitMaxResults = a}) . mapping _Nat -- | The unique identifier of the HIT to retrieve review results for. lrprfhitHITId :: Lens' ListReviewPolicyResultsForHIT Text-lrprfhitHITId = lens _lrprfhitHITId (\ s a -> s{_lrprfhitHITId = a});+lrprfhitHITId = lens _lrprfhitHITId (\ s a -> s{_lrprfhitHITId = a}) instance AWSRequest ListReviewPolicyResultsForHIT where@@ -201,43 +201,43 @@ -> ListReviewPolicyResultsForHITResponse listReviewPolicyResultsForHITResponse pResponseStatus_ = ListReviewPolicyResultsForHITResponse'- { _lrprfhitrsHITReviewPolicy = Nothing- , _lrprfhitrsHITReviewReport = Nothing- , _lrprfhitrsNextToken = Nothing- , _lrprfhitrsAssignmentReviewReport = Nothing- , _lrprfhitrsHITId = Nothing- , _lrprfhitrsAssignmentReviewPolicy = Nothing- , _lrprfhitrsResponseStatus = pResponseStatus_- }+ { _lrprfhitrsHITReviewPolicy = Nothing+ , _lrprfhitrsHITReviewReport = Nothing+ , _lrprfhitrsNextToken = Nothing+ , _lrprfhitrsAssignmentReviewReport = Nothing+ , _lrprfhitrsHITId = Nothing+ , _lrprfhitrsAssignmentReviewPolicy = Nothing+ , _lrprfhitrsResponseStatus = pResponseStatus_+ } -- | The name of the HIT-level Review Policy. This contains only the PolicyName element. lrprfhitrsHITReviewPolicy :: Lens' ListReviewPolicyResultsForHITResponse (Maybe ReviewPolicy)-lrprfhitrsHITReviewPolicy = lens _lrprfhitrsHITReviewPolicy (\ s a -> s{_lrprfhitrsHITReviewPolicy = a});+lrprfhitrsHITReviewPolicy = lens _lrprfhitrsHITReviewPolicy (\ s a -> s{_lrprfhitrsHITReviewPolicy = a}) -- | Contains both ReviewResult and ReviewAction elements for a particular HIT. lrprfhitrsHITReviewReport :: Lens' ListReviewPolicyResultsForHITResponse (Maybe ReviewReport)-lrprfhitrsHITReviewReport = lens _lrprfhitrsHITReviewReport (\ s a -> s{_lrprfhitrsHITReviewReport = a});+lrprfhitrsHITReviewReport = lens _lrprfhitrsHITReviewReport (\ s a -> s{_lrprfhitrsHITReviewReport = a}) -- | Undocumented member. lrprfhitrsNextToken :: Lens' ListReviewPolicyResultsForHITResponse (Maybe Text)-lrprfhitrsNextToken = lens _lrprfhitrsNextToken (\ s a -> s{_lrprfhitrsNextToken = a});+lrprfhitrsNextToken = lens _lrprfhitrsNextToken (\ s a -> s{_lrprfhitrsNextToken = a}) -- | Contains both ReviewResult and ReviewAction elements for an Assignment. lrprfhitrsAssignmentReviewReport :: Lens' ListReviewPolicyResultsForHITResponse (Maybe ReviewReport)-lrprfhitrsAssignmentReviewReport = lens _lrprfhitrsAssignmentReviewReport (\ s a -> s{_lrprfhitrsAssignmentReviewReport = a});+lrprfhitrsAssignmentReviewReport = lens _lrprfhitrsAssignmentReviewReport (\ s a -> s{_lrprfhitrsAssignmentReviewReport = a}) -- | The HITId of the HIT for which results have been returned. lrprfhitrsHITId :: Lens' ListReviewPolicyResultsForHITResponse (Maybe Text)-lrprfhitrsHITId = lens _lrprfhitrsHITId (\ s a -> s{_lrprfhitrsHITId = a});+lrprfhitrsHITId = lens _lrprfhitrsHITId (\ s a -> s{_lrprfhitrsHITId = a}) -- | The name of the Assignment-level Review Policy. This contains only the PolicyName element. lrprfhitrsAssignmentReviewPolicy :: Lens' ListReviewPolicyResultsForHITResponse (Maybe ReviewPolicy)-lrprfhitrsAssignmentReviewPolicy = lens _lrprfhitrsAssignmentReviewPolicy (\ s a -> s{_lrprfhitrsAssignmentReviewPolicy = a});+lrprfhitrsAssignmentReviewPolicy = lens _lrprfhitrsAssignmentReviewPolicy (\ s a -> s{_lrprfhitrsAssignmentReviewPolicy = a}) -- | -- | The response status code. lrprfhitrsResponseStatus :: Lens' ListReviewPolicyResultsForHITResponse Int-lrprfhitrsResponseStatus = lens _lrprfhitrsResponseStatus (\ s a -> s{_lrprfhitrsResponseStatus = a});+lrprfhitrsResponseStatus = lens _lrprfhitrsResponseStatus (\ s a -> s{_lrprfhitrsResponseStatus = a}) instance NFData ListReviewPolicyResultsForHITResponse where
gen/Network/AWS/MechanicalTurk/ListReviewableHITs.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListReviewableHITs--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -21,6 +21,8 @@ -- The @ListReviewableHITs@ operation retrieves the HITs with Status equal to Reviewable or Status equal to Reviewing that belong to the Requester calling the operation. -- --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListReviewableHITs ( -- * Creating a Request@@ -45,6 +47,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -73,29 +76,36 @@ :: ListReviewableHITs listReviewableHITs = ListReviewableHITs'- { _lrhitStatus = Nothing- , _lrhitHITTypeId = Nothing- , _lrhitNextToken = Nothing- , _lrhitMaxResults = Nothing- }+ { _lrhitStatus = Nothing+ , _lrhitHITTypeId = Nothing+ , _lrhitNextToken = Nothing+ , _lrhitMaxResults = Nothing+ } -- | Can be either @Reviewable@ or @Reviewing@ . Reviewable is the default value. lrhitStatus :: Lens' ListReviewableHITs (Maybe ReviewableHITStatus)-lrhitStatus = lens _lrhitStatus (\ s a -> s{_lrhitStatus = a});+lrhitStatus = lens _lrhitStatus (\ s a -> s{_lrhitStatus = a}) -- | The ID of the HIT type of the HITs to consider for the query. If not specified, all HITs for the Reviewer are considered lrhitHITTypeId :: Lens' ListReviewableHITs (Maybe Text)-lrhitHITTypeId = lens _lrhitHITTypeId (\ s a -> s{_lrhitHITTypeId = a});+lrhitHITTypeId = lens _lrhitHITTypeId (\ s a -> s{_lrhitHITTypeId = a}) -- | Pagination Token lrhitNextToken :: Lens' ListReviewableHITs (Maybe Text)-lrhitNextToken = lens _lrhitNextToken (\ s a -> s{_lrhitNextToken = a});+lrhitNextToken = lens _lrhitNextToken (\ s a -> s{_lrhitNextToken = a}) -- | Limit the number of results returned. lrhitMaxResults :: Lens' ListReviewableHITs (Maybe Natural)-lrhitMaxResults = lens _lrhitMaxResults (\ s a -> s{_lrhitMaxResults = a}) . mapping _Nat;+lrhitMaxResults = lens _lrhitMaxResults (\ s a -> s{_lrhitMaxResults = a}) . mapping _Nat +instance AWSPager ListReviewableHITs where+ page rq rs+ | stop (rs ^. lrhitrsNextToken) = Nothing+ | stop (rs ^. lrhitrsHITs) = Nothing+ | otherwise =+ Just $ rq & lrhitNextToken .~ rs ^. lrhitrsNextToken+ instance AWSRequest ListReviewableHITs where type Rs ListReviewableHITs = ListReviewableHITsResponse@@ -162,27 +172,27 @@ -> ListReviewableHITsResponse listReviewableHITsResponse pResponseStatus_ = ListReviewableHITsResponse'- { _lrhitrsNextToken = Nothing- , _lrhitrsNumResults = Nothing- , _lrhitrsHITs = Nothing- , _lrhitrsResponseStatus = pResponseStatus_- }+ { _lrhitrsNextToken = Nothing+ , _lrhitrsNumResults = Nothing+ , _lrhitrsHITs = Nothing+ , _lrhitrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. lrhitrsNextToken :: Lens' ListReviewableHITsResponse (Maybe Text)-lrhitrsNextToken = lens _lrhitrsNextToken (\ s a -> s{_lrhitrsNextToken = a});+lrhitrsNextToken = lens _lrhitrsNextToken (\ s a -> s{_lrhitrsNextToken = a}) -- | The number of HITs on this page in the filtered results list, equivalent to the number of HITs being returned by this call. lrhitrsNumResults :: Lens' ListReviewableHITsResponse (Maybe Int)-lrhitrsNumResults = lens _lrhitrsNumResults (\ s a -> s{_lrhitrsNumResults = a});+lrhitrsNumResults = lens _lrhitrsNumResults (\ s a -> s{_lrhitrsNumResults = a}) -- | The list of HIT elements returned by the query. lrhitrsHITs :: Lens' ListReviewableHITsResponse [HIT]-lrhitrsHITs = lens _lrhitrsHITs (\ s a -> s{_lrhitrsHITs = a}) . _Default . _Coerce;+lrhitrsHITs = lens _lrhitrsHITs (\ s a -> s{_lrhitrsHITs = a}) . _Default . _Coerce -- | -- | The response status code. lrhitrsResponseStatus :: Lens' ListReviewableHITsResponse Int-lrhitrsResponseStatus = lens _lrhitrsResponseStatus (\ s a -> s{_lrhitrsResponseStatus = a});+lrhitrsResponseStatus = lens _lrhitrsResponseStatus (\ s a -> s{_lrhitrsResponseStatus = a}) instance NFData ListReviewableHITsResponse where
gen/Network/AWS/MechanicalTurk/ListWorkerBlocks.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListWorkerBlocks--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -21,6 +21,8 @@ -- The @ListWorkersBlocks@ operation retrieves a list of Workers who are blocked from working on your HITs. -- --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListWorkerBlocks ( -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -69,12 +72,19 @@ -- | Pagination token lwbNextToken :: Lens' ListWorkerBlocks (Maybe Text)-lwbNextToken = lens _lwbNextToken (\ s a -> s{_lwbNextToken = a});+lwbNextToken = lens _lwbNextToken (\ s a -> s{_lwbNextToken = a}) -- | Undocumented member. lwbMaxResults :: Lens' ListWorkerBlocks (Maybe Natural)-lwbMaxResults = lens _lwbMaxResults (\ s a -> s{_lwbMaxResults = a}) . mapping _Nat;+lwbMaxResults = lens _lwbMaxResults (\ s a -> s{_lwbMaxResults = a}) . mapping _Nat +instance AWSPager ListWorkerBlocks where+ page rq rs+ | stop (rs ^. lwbrsNextToken) = Nothing+ | stop (rs ^. lwbrsWorkerBlocks) = Nothing+ | otherwise =+ Just $ rq & lwbNextToken .~ rs ^. lwbrsNextToken+ instance AWSRequest ListWorkerBlocks where type Rs ListWorkerBlocks = ListWorkerBlocksResponse request = postJSON mechanicalTurk@@ -139,27 +149,27 @@ -> ListWorkerBlocksResponse listWorkerBlocksResponse pResponseStatus_ = ListWorkerBlocksResponse'- { _lwbrsWorkerBlocks = Nothing- , _lwbrsNextToken = Nothing- , _lwbrsNumResults = Nothing- , _lwbrsResponseStatus = pResponseStatus_- }+ { _lwbrsWorkerBlocks = Nothing+ , _lwbrsNextToken = Nothing+ , _lwbrsNumResults = Nothing+ , _lwbrsResponseStatus = pResponseStatus_+ } -- | The list of WorkerBlocks, containing the collection of Worker IDs and reasons for blocking. lwbrsWorkerBlocks :: Lens' ListWorkerBlocksResponse [WorkerBlock]-lwbrsWorkerBlocks = lens _lwbrsWorkerBlocks (\ s a -> s{_lwbrsWorkerBlocks = a}) . _Default . _Coerce;+lwbrsWorkerBlocks = lens _lwbrsWorkerBlocks (\ s a -> s{_lwbrsWorkerBlocks = a}) . _Default . _Coerce -- | Undocumented member. lwbrsNextToken :: Lens' ListWorkerBlocksResponse (Maybe Text)-lwbrsNextToken = lens _lwbrsNextToken (\ s a -> s{_lwbrsNextToken = a});+lwbrsNextToken = lens _lwbrsNextToken (\ s a -> s{_lwbrsNextToken = a}) -- | The number of assignments on the page in the filtered results list, equivalent to the number of assignments returned by this call. lwbrsNumResults :: Lens' ListWorkerBlocksResponse (Maybe Int)-lwbrsNumResults = lens _lwbrsNumResults (\ s a -> s{_lwbrsNumResults = a});+lwbrsNumResults = lens _lwbrsNumResults (\ s a -> s{_lwbrsNumResults = a}) -- | -- | The response status code. lwbrsResponseStatus :: Lens' ListWorkerBlocksResponse Int-lwbrsResponseStatus = lens _lwbrsResponseStatus (\ s a -> s{_lwbrsResponseStatus = a});+lwbrsResponseStatus = lens _lwbrsResponseStatus (\ s a -> s{_lwbrsResponseStatus = a}) instance NFData ListWorkerBlocksResponse where
gen/Network/AWS/MechanicalTurk/ListWorkersWithQualificationType.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.ListWorkersWithQualificationType--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -21,6 +21,8 @@ -- The @ListWorkersWithQualificationType@ operation returns all of the Workers that have been associated with a given Qualification type. -- --+--+-- This operation returns paginated results. module Network.AWS.MechanicalTurk.ListWorkersWithQualificationType ( -- * Creating a Request@@ -45,6 +47,7 @@ import Network.AWS.Lens import Network.AWS.MechanicalTurk.Types import Network.AWS.MechanicalTurk.Types.Product+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -74,29 +77,37 @@ -> ListWorkersWithQualificationType listWorkersWithQualificationType pQualificationTypeId_ = ListWorkersWithQualificationType'- { _lwwqtStatus = Nothing- , _lwwqtNextToken = Nothing- , _lwwqtMaxResults = Nothing- , _lwwqtQualificationTypeId = pQualificationTypeId_- }+ { _lwwqtStatus = Nothing+ , _lwwqtNextToken = Nothing+ , _lwwqtMaxResults = Nothing+ , _lwwqtQualificationTypeId = pQualificationTypeId_+ } -- | The status of the Qualifications to return. Can be @Granted | Revoked@ . lwwqtStatus :: Lens' ListWorkersWithQualificationType (Maybe QualificationStatus)-lwwqtStatus = lens _lwwqtStatus (\ s a -> s{_lwwqtStatus = a});+lwwqtStatus = lens _lwwqtStatus (\ s a -> s{_lwwqtStatus = a}) -- | Pagination Token lwwqtNextToken :: Lens' ListWorkersWithQualificationType (Maybe Text)-lwwqtNextToken = lens _lwwqtNextToken (\ s a -> s{_lwwqtNextToken = a});+lwwqtNextToken = lens _lwwqtNextToken (\ s a -> s{_lwwqtNextToken = a}) -- | Limit the number of results returned. lwwqtMaxResults :: Lens' ListWorkersWithQualificationType (Maybe Natural)-lwwqtMaxResults = lens _lwwqtMaxResults (\ s a -> s{_lwwqtMaxResults = a}) . mapping _Nat;+lwwqtMaxResults = lens _lwwqtMaxResults (\ s a -> s{_lwwqtMaxResults = a}) . mapping _Nat -- | The ID of the Qualification type of the Qualifications to return. lwwqtQualificationTypeId :: Lens' ListWorkersWithQualificationType Text-lwwqtQualificationTypeId = lens _lwwqtQualificationTypeId (\ s a -> s{_lwwqtQualificationTypeId = a});+lwwqtQualificationTypeId = lens _lwwqtQualificationTypeId (\ s a -> s{_lwwqtQualificationTypeId = a}) +instance AWSPager ListWorkersWithQualificationType+ where+ page rq rs+ | stop (rs ^. lwwqtrsNextToken) = Nothing+ | stop (rs ^. lwwqtrsQualifications) = Nothing+ | otherwise =+ Just $ rq & lwwqtNextToken .~ rs ^. lwwqtrsNextToken+ instance AWSRequest ListWorkersWithQualificationType where type Rs ListWorkersWithQualificationType =@@ -172,28 +183,28 @@ -> ListWorkersWithQualificationTypeResponse listWorkersWithQualificationTypeResponse pResponseStatus_ = ListWorkersWithQualificationTypeResponse'- { _lwwqtrsNextToken = Nothing- , _lwwqtrsNumResults = Nothing- , _lwwqtrsQualifications = Nothing- , _lwwqtrsResponseStatus = pResponseStatus_- }+ { _lwwqtrsNextToken = Nothing+ , _lwwqtrsNumResults = Nothing+ , _lwwqtrsQualifications = Nothing+ , _lwwqtrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. lwwqtrsNextToken :: Lens' ListWorkersWithQualificationTypeResponse (Maybe Text)-lwwqtrsNextToken = lens _lwwqtrsNextToken (\ s a -> s{_lwwqtrsNextToken = a});+lwwqtrsNextToken = lens _lwwqtrsNextToken (\ s a -> s{_lwwqtrsNextToken = a}) -- | The number of Qualifications on this page in the filtered results list, equivalent to the number of Qualifications being returned by this call. lwwqtrsNumResults :: Lens' ListWorkersWithQualificationTypeResponse (Maybe Int)-lwwqtrsNumResults = lens _lwwqtrsNumResults (\ s a -> s{_lwwqtrsNumResults = a});+lwwqtrsNumResults = lens _lwwqtrsNumResults (\ s a -> s{_lwwqtrsNumResults = a}) -- | The list of Qualification elements returned by this call. lwwqtrsQualifications :: Lens' ListWorkersWithQualificationTypeResponse [Qualification]-lwwqtrsQualifications = lens _lwwqtrsQualifications (\ s a -> s{_lwwqtrsQualifications = a}) . _Default . _Coerce;+lwwqtrsQualifications = lens _lwwqtrsQualifications (\ s a -> s{_lwwqtrsQualifications = a}) . _Default . _Coerce -- | -- | The response status code. lwwqtrsResponseStatus :: Lens' ListWorkersWithQualificationTypeResponse Int-lwwqtrsResponseStatus = lens _lwwqtrsResponseStatus (\ s a -> s{_lwwqtrsResponseStatus = a});+lwwqtrsResponseStatus = lens _lwwqtrsResponseStatus (\ s a -> s{_lwwqtrsResponseStatus = a}) instance NFData ListWorkersWithQualificationTypeResponse
gen/Network/AWS/MechanicalTurk/NotifyWorkers.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.NotifyWorkers--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,23 +69,23 @@ -> NotifyWorkers notifyWorkers pSubject_ pMessageText_ = NotifyWorkers'- { _nwSubject = pSubject_- , _nwMessageText = pMessageText_- , _nwWorkerIds = mempty- }+ { _nwSubject = pSubject_+ , _nwMessageText = pMessageText_+ , _nwWorkerIds = mempty+ } -- | The subject line of the email message to send. Can include up to 200 characters. nwSubject :: Lens' NotifyWorkers Text-nwSubject = lens _nwSubject (\ s a -> s{_nwSubject = a});+nwSubject = lens _nwSubject (\ s a -> s{_nwSubject = a}) -- | The text of the email message to send. Can include up to 4,096 characters nwMessageText :: Lens' NotifyWorkers Text-nwMessageText = lens _nwMessageText (\ s a -> s{_nwMessageText = a});+nwMessageText = lens _nwMessageText (\ s a -> s{_nwMessageText = a}) -- | A list of Worker IDs you wish to notify. You can notify upto 100 Workers at a time. nwWorkerIds :: Lens' NotifyWorkers [Text]-nwWorkerIds = lens _nwWorkerIds (\ s a -> s{_nwWorkerIds = a}) . _Coerce;+nwWorkerIds = lens _nwWorkerIds (\ s a -> s{_nwWorkerIds = a}) . _Coerce instance AWSRequest NotifyWorkers where type Rs NotifyWorkers = NotifyWorkersResponse@@ -144,17 +144,17 @@ -> NotifyWorkersResponse notifyWorkersResponse pResponseStatus_ = NotifyWorkersResponse'- { _nwrsNotifyWorkersFailureStatuses = Nothing- , _nwrsResponseStatus = pResponseStatus_- }+ { _nwrsNotifyWorkersFailureStatuses = Nothing+ , _nwrsResponseStatus = pResponseStatus_+ } -- | When MTurk sends notifications to the list of Workers, it returns back any failures it encounters in this list of NotifyWorkersFailureStatus objects. nwrsNotifyWorkersFailureStatuses :: Lens' NotifyWorkersResponse [NotifyWorkersFailureStatus]-nwrsNotifyWorkersFailureStatuses = lens _nwrsNotifyWorkersFailureStatuses (\ s a -> s{_nwrsNotifyWorkersFailureStatuses = a}) . _Default . _Coerce;+nwrsNotifyWorkersFailureStatuses = lens _nwrsNotifyWorkersFailureStatuses (\ s a -> s{_nwrsNotifyWorkersFailureStatuses = a}) . _Default . _Coerce -- | -- | The response status code. nwrsResponseStatus :: Lens' NotifyWorkersResponse Int-nwrsResponseStatus = lens _nwrsResponseStatus (\ s a -> s{_nwrsResponseStatus = a});+nwrsResponseStatus = lens _nwrsResponseStatus (\ s a -> s{_nwrsResponseStatus = a}) instance NFData NotifyWorkersResponse where
gen/Network/AWS/MechanicalTurk/RejectAssignment.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.RejectAssignment--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,16 +68,18 @@ -> RejectAssignment rejectAssignment pAssignmentId_ pRequesterFeedback_ = RejectAssignment'- {_raAssignmentId = pAssignmentId_, _raRequesterFeedback = pRequesterFeedback_}+ { _raAssignmentId = pAssignmentId_+ , _raRequesterFeedback = pRequesterFeedback_+ } -- | The ID of the assignment. The assignment must correspond to a HIT created by the Requester. raAssignmentId :: Lens' RejectAssignment Text-raAssignmentId = lens _raAssignmentId (\ s a -> s{_raAssignmentId = a});+raAssignmentId = lens _raAssignmentId (\ s a -> s{_raAssignmentId = a}) -- | A message for the Worker, which the Worker can see in the Status section of the web site. raRequesterFeedback :: Lens' RejectAssignment Text-raRequesterFeedback = lens _raRequesterFeedback (\ s a -> s{_raRequesterFeedback = a});+raRequesterFeedback = lens _raRequesterFeedback (\ s a -> s{_raRequesterFeedback = a}) instance AWSRequest RejectAssignment where type Rs RejectAssignment = RejectAssignmentResponse@@ -134,6 +136,6 @@ -- | -- | The response status code. rarsResponseStatus :: Lens' RejectAssignmentResponse Int-rarsResponseStatus = lens _rarsResponseStatus (\ s a -> s{_rarsResponseStatus = a});+rarsResponseStatus = lens _rarsResponseStatus (\ s a -> s{_rarsResponseStatus = a}) instance NFData RejectAssignmentResponse where
gen/Network/AWS/MechanicalTurk/RejectQualificationRequest.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.RejectQualificationRequest--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -65,16 +65,18 @@ -> RejectQualificationRequest rejectQualificationRequest pQualificationRequestId_ = RejectQualificationRequest'- {_rqrReason = Nothing, _rqrQualificationRequestId = pQualificationRequestId_}+ { _rqrReason = Nothing+ , _rqrQualificationRequestId = pQualificationRequestId_+ } -- | A text message explaining why the request was rejected, to be shown to the Worker who made the request. rqrReason :: Lens' RejectQualificationRequest (Maybe Text)-rqrReason = lens _rqrReason (\ s a -> s{_rqrReason = a});+rqrReason = lens _rqrReason (\ s a -> s{_rqrReason = a}) -- | The ID of the Qualification request, as returned by the @ListQualificationRequests@ operation. rqrQualificationRequestId :: Lens' RejectQualificationRequest Text-rqrQualificationRequestId = lens _rqrQualificationRequestId (\ s a -> s{_rqrQualificationRequestId = a});+rqrQualificationRequestId = lens _rqrQualificationRequestId (\ s a -> s{_rqrQualificationRequestId = a}) instance AWSRequest RejectQualificationRequest where type Rs RejectQualificationRequest =@@ -135,7 +137,7 @@ -- | -- | The response status code. rqrrsResponseStatus :: Lens' RejectQualificationRequestResponse Int-rqrrsResponseStatus = lens _rqrrsResponseStatus (\ s a -> s{_rqrrsResponseStatus = a});+rqrrsResponseStatus = lens _rqrrsResponseStatus (\ s a -> s{_rqrrsResponseStatus = a}) instance NFData RejectQualificationRequestResponse where
gen/Network/AWS/MechanicalTurk/SendBonus.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.SendBonus--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -78,33 +78,33 @@ -> SendBonus sendBonus pWorkerId_ pBonusAmount_ pAssignmentId_ pReason_ = SendBonus'- { _sbUniqueRequestToken = Nothing- , _sbWorkerId = pWorkerId_- , _sbBonusAmount = pBonusAmount_- , _sbAssignmentId = pAssignmentId_- , _sbReason = pReason_- }+ { _sbUniqueRequestToken = Nothing+ , _sbWorkerId = pWorkerId_+ , _sbBonusAmount = pBonusAmount_+ , _sbAssignmentId = pAssignmentId_+ , _sbReason = pReason_+ } -- | A unique identifier for this request, which allows you to retry the call on error without granting multiple bonuses. This is useful in cases such as network timeouts where it is unclear whether or not the call succeeded on the server. If the bonus already exists in the system from a previous call using the same UniqueRequestToken, subsequent calls will return an error with a message containing the request ID. sbUniqueRequestToken :: Lens' SendBonus (Maybe Text)-sbUniqueRequestToken = lens _sbUniqueRequestToken (\ s a -> s{_sbUniqueRequestToken = a});+sbUniqueRequestToken = lens _sbUniqueRequestToken (\ s a -> s{_sbUniqueRequestToken = a}) -- | The ID of the Worker being paid the bonus. sbWorkerId :: Lens' SendBonus Text-sbWorkerId = lens _sbWorkerId (\ s a -> s{_sbWorkerId = a});+sbWorkerId = lens _sbWorkerId (\ s a -> s{_sbWorkerId = a}) -- | The Bonus amount is a US Dollar amount specified using a string (for example, "5" represents $5.00 USD and "101.42" represents $101.42 USD). Do not include currency symbols or currency codes. sbBonusAmount :: Lens' SendBonus Text-sbBonusAmount = lens _sbBonusAmount (\ s a -> s{_sbBonusAmount = a});+sbBonusAmount = lens _sbBonusAmount (\ s a -> s{_sbBonusAmount = a}) -- | The ID of the assignment for which this bonus is paid. sbAssignmentId :: Lens' SendBonus Text-sbAssignmentId = lens _sbAssignmentId (\ s a -> s{_sbAssignmentId = a});+sbAssignmentId = lens _sbAssignmentId (\ s a -> s{_sbAssignmentId = a}) -- | A message that explains the reason for the bonus payment. The Worker receiving the bonus can see this message. sbReason :: Lens' SendBonus Text-sbReason = lens _sbReason (\ s a -> s{_sbReason = a});+sbReason = lens _sbReason (\ s a -> s{_sbReason = a}) instance AWSRequest SendBonus where type Rs SendBonus = SendBonusResponse@@ -164,6 +164,6 @@ -- | -- | The response status code. sbrsResponseStatus :: Lens' SendBonusResponse Int-sbrsResponseStatus = lens _sbrsResponseStatus (\ s a -> s{_sbrsResponseStatus = a});+sbrsResponseStatus = lens _sbrsResponseStatus (\ s a -> s{_sbrsResponseStatus = a}) instance NFData SendBonusResponse where
gen/Network/AWS/MechanicalTurk/SendTestEventNotification.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.SendTestEventNotification--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -64,16 +64,16 @@ -> SendTestEventNotification sendTestEventNotification pNotification_ pTestEventType_ = SendTestEventNotification'- {_stenNotification = pNotification_, _stenTestEventType = pTestEventType_}+ {_stenNotification = pNotification_, _stenTestEventType = pTestEventType_} -- | The notification specification to test. This value is identical to the value you would provide to the UpdateNotificationSettings operation when you establish the notification specification for a HIT type. stenNotification :: Lens' SendTestEventNotification NotificationSpecification-stenNotification = lens _stenNotification (\ s a -> s{_stenNotification = a});+stenNotification = lens _stenNotification (\ s a -> s{_stenNotification = a}) -- | The event to simulate to test the notification specification. This event is included in the test message even if the notification specification does not include the event type. The notification specification does not filter out the test event. stenTestEventType :: Lens' SendTestEventNotification EventType-stenTestEventType = lens _stenTestEventType (\ s a -> s{_stenTestEventType = a});+stenTestEventType = lens _stenTestEventType (\ s a -> s{_stenTestEventType = a}) instance AWSRequest SendTestEventNotification where type Rs SendTestEventNotification =@@ -132,7 +132,7 @@ -- | -- | The response status code. stenrsResponseStatus :: Lens' SendTestEventNotificationResponse Int-stenrsResponseStatus = lens _stenrsResponseStatus (\ s a -> s{_stenrsResponseStatus = a});+stenrsResponseStatus = lens _stenrsResponseStatus (\ s a -> s{_stenrsResponseStatus = a}) instance NFData SendTestEventNotificationResponse where
gen/Network/AWS/MechanicalTurk/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.Types--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -28,6 +28,9 @@ -- * EventType , EventType (..) + -- * HITAccessActions+ , HITAccessActions (..)+ -- * HITReviewStatus , HITReviewStatus (..) @@ -169,6 +172,7 @@ , QualificationRequirement , qualificationRequirement , qrLocaleValues+ , qrActionsGuarded , qrRequiredToPreview , qrIntegerValues , qrQualificationTypeId@@ -242,24 +246,24 @@ mechanicalTurk :: Service mechanicalTurk = Service- { _svcAbbrev = "MechanicalTurk"- , _svcSigner = v4- , _svcPrefix = "mturk-requester"- , _svcVersion = "2017-01-17"- , _svcEndpoint = defaultEndpoint mechanicalTurk- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "MechanicalTurk"- , _svcRetry = retry- }+ { _svcAbbrev = "MechanicalTurk"+ , _svcSigner = v4+ , _svcPrefix = "mturk-requester"+ , _svcVersion = "2017-01-17"+ , _svcEndpoint = defaultEndpoint mechanicalTurk+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "MechanicalTurk"+ , _svcRetry = retry+ } where retry = Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e | has (hasCode "ThrottledException" . hasStatus 400) e = Just "throttled_exception"@@ -268,6 +272,8 @@ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout"+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =+ Just "request_throttled_exception" | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/MechanicalTurk/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.Types.Product--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -73,68 +73,68 @@ :: Assignment assignment = Assignment'- { _aAcceptTime = Nothing- , _aAnswer = Nothing- , _aAssignmentStatus = Nothing- , _aRequesterFeedback = Nothing- , _aDeadline = Nothing- , _aApprovalTime = Nothing- , _aRejectionTime = Nothing- , _aAutoApprovalTime = Nothing- , _aHITId = Nothing- , _aWorkerId = Nothing- , _aAssignmentId = Nothing- , _aSubmitTime = Nothing- }+ { _aAcceptTime = Nothing+ , _aAnswer = Nothing+ , _aAssignmentStatus = Nothing+ , _aRequesterFeedback = Nothing+ , _aDeadline = Nothing+ , _aApprovalTime = Nothing+ , _aRejectionTime = Nothing+ , _aAutoApprovalTime = Nothing+ , _aHITId = Nothing+ , _aWorkerId = Nothing+ , _aAssignmentId = Nothing+ , _aSubmitTime = Nothing+ } -- | The date and time the Worker accepted the assignment. aAcceptTime :: Lens' Assignment (Maybe UTCTime)-aAcceptTime = lens _aAcceptTime (\ s a -> s{_aAcceptTime = a}) . mapping _Time;+aAcceptTime = lens _aAcceptTime (\ s a -> s{_aAcceptTime = a}) . mapping _Time -- | The Worker's answers submitted for the HIT contained in a QuestionFormAnswers document, if the Worker provides an answer. If the Worker does not provide any answers, Answer may contain a QuestionFormAnswers document, or Answer may be empty. aAnswer :: Lens' Assignment (Maybe Text)-aAnswer = lens _aAnswer (\ s a -> s{_aAnswer = a});+aAnswer = lens _aAnswer (\ s a -> s{_aAnswer = a}) -- | The status of the assignment. aAssignmentStatus :: Lens' Assignment (Maybe AssignmentStatus)-aAssignmentStatus = lens _aAssignmentStatus (\ s a -> s{_aAssignmentStatus = a});+aAssignmentStatus = lens _aAssignmentStatus (\ s a -> s{_aAssignmentStatus = a}) -- | The feedback string included with the call to the ApproveAssignment operation or the RejectAssignment operation, if the Requester approved or rejected the assignment and specified feedback. aRequesterFeedback :: Lens' Assignment (Maybe Text)-aRequesterFeedback = lens _aRequesterFeedback (\ s a -> s{_aRequesterFeedback = a});+aRequesterFeedback = lens _aRequesterFeedback (\ s a -> s{_aRequesterFeedback = a}) -- | The date and time of the deadline for the assignment. This value is derived from the deadline specification for the HIT and the date and time the Worker accepted the HIT. aDeadline :: Lens' Assignment (Maybe UTCTime)-aDeadline = lens _aDeadline (\ s a -> s{_aDeadline = a}) . mapping _Time;+aDeadline = lens _aDeadline (\ s a -> s{_aDeadline = a}) . mapping _Time -- | If the Worker has submitted results and the Requester has approved the results, ApprovalTime is the date and time the Requester approved the results. This value is omitted from the assignment if the Requester has not yet approved the results. aApprovalTime :: Lens' Assignment (Maybe UTCTime)-aApprovalTime = lens _aApprovalTime (\ s a -> s{_aApprovalTime = a}) . mapping _Time;+aApprovalTime = lens _aApprovalTime (\ s a -> s{_aApprovalTime = a}) . mapping _Time -- | If the Worker has submitted results and the Requester has rejected the results, RejectionTime is the date and time the Requester rejected the results. aRejectionTime :: Lens' Assignment (Maybe UTCTime)-aRejectionTime = lens _aRejectionTime (\ s a -> s{_aRejectionTime = a}) . mapping _Time;+aRejectionTime = lens _aRejectionTime (\ s a -> s{_aRejectionTime = a}) . mapping _Time -- | If results have been submitted, AutoApprovalTime is the date and time the results of the assignment results are considered Approved automatically if they have not already been explicitly approved or rejected by the Requester. This value is derived from the auto-approval delay specified by the Requester in the HIT. This value is omitted from the assignment if the Worker has not yet submitted results. aAutoApprovalTime :: Lens' Assignment (Maybe UTCTime)-aAutoApprovalTime = lens _aAutoApprovalTime (\ s a -> s{_aAutoApprovalTime = a}) . mapping _Time;+aAutoApprovalTime = lens _aAutoApprovalTime (\ s a -> s{_aAutoApprovalTime = a}) . mapping _Time -- | The ID of the HIT. aHITId :: Lens' Assignment (Maybe Text)-aHITId = lens _aHITId (\ s a -> s{_aHITId = a});+aHITId = lens _aHITId (\ s a -> s{_aHITId = a}) -- | The ID of the Worker who accepted the HIT. aWorkerId :: Lens' Assignment (Maybe Text)-aWorkerId = lens _aWorkerId (\ s a -> s{_aWorkerId = a});+aWorkerId = lens _aWorkerId (\ s a -> s{_aWorkerId = a}) -- | A unique identifier for the assignment. aAssignmentId :: Lens' Assignment (Maybe Text)-aAssignmentId = lens _aAssignmentId (\ s a -> s{_aAssignmentId = a});+aAssignmentId = lens _aAssignmentId (\ s a -> s{_aAssignmentId = a}) -- | If the Worker has submitted results, SubmitTime is the date and time the assignment was submitted. This value is omitted from the assignment if the Worker has not yet submitted results. aSubmitTime :: Lens' Assignment (Maybe UTCTime)-aSubmitTime = lens _aSubmitTime (\ s a -> s{_aSubmitTime = a}) . mapping _Time;+aSubmitTime = lens _aSubmitTime (\ s a -> s{_aSubmitTime = a}) . mapping _Time instance FromJSON Assignment where parseJSON@@ -188,33 +188,33 @@ :: BonusPayment bonusPayment = BonusPayment'- { _bpReason = Nothing- , _bpGrantTime = Nothing- , _bpWorkerId = Nothing- , _bpAssignmentId = Nothing- , _bpBonusAmount = Nothing- }+ { _bpReason = Nothing+ , _bpGrantTime = Nothing+ , _bpWorkerId = Nothing+ , _bpAssignmentId = Nothing+ , _bpBonusAmount = Nothing+ } -- | The Reason text given when the bonus was granted, if any. bpReason :: Lens' BonusPayment (Maybe Text)-bpReason = lens _bpReason (\ s a -> s{_bpReason = a});+bpReason = lens _bpReason (\ s a -> s{_bpReason = a}) -- | The date and time of when the bonus was granted. bpGrantTime :: Lens' BonusPayment (Maybe UTCTime)-bpGrantTime = lens _bpGrantTime (\ s a -> s{_bpGrantTime = a}) . mapping _Time;+bpGrantTime = lens _bpGrantTime (\ s a -> s{_bpGrantTime = a}) . mapping _Time -- | The ID of the Worker to whom the bonus was paid. bpWorkerId :: Lens' BonusPayment (Maybe Text)-bpWorkerId = lens _bpWorkerId (\ s a -> s{_bpWorkerId = a});+bpWorkerId = lens _bpWorkerId (\ s a -> s{_bpWorkerId = a}) -- | The ID of the assignment associated with this bonus payment. bpAssignmentId :: Lens' BonusPayment (Maybe Text)-bpAssignmentId = lens _bpAssignmentId (\ s a -> s{_bpAssignmentId = a});+bpAssignmentId = lens _bpAssignmentId (\ s a -> s{_bpAssignmentId = a}) -- | Undocumented member. bpBonusAmount :: Lens' BonusPayment (Maybe Text)-bpBonusAmount = lens _bpBonusAmount (\ s a -> s{_bpBonusAmount = a});+bpBonusAmount = lens _bpBonusAmount (\ s a -> s{_bpBonusAmount = a}) instance FromJSON BonusPayment where parseJSON@@ -290,7 +290,7 @@ -- -- * 'hitHITLayoutId' - The ID of the HIT Layout of this HIT. ----- * 'hitQualificationRequirements' - A condition that a Worker's Qualifications must meet in order to accept the HIT. A HIT can have between zero and ten Qualification requirements. All requirements must be met by a Worker's Qualifications for the Worker to accept the HIT.+-- * 'hitQualificationRequirements' - Conditions that a Worker's Qualifications must meet in order to accept the HIT. A HIT can have between zero and ten Qualification requirements. All requirements must be met in order for a Worker to accept the HIT. Additionally, other actions can be restricted using the @ActionsGuarded@ field on each @QualificationRequirement@ structure. -- -- * 'hitTitle' - The title of the HIT. --@@ -309,113 +309,113 @@ :: HIT hIT = HIT'- { _hitCreationTime = Nothing- , _hitHITGroupId = Nothing- , _hitNumberOfAssignmentsPending = Nothing- , _hitHITTypeId = Nothing- , _hitExpiration = Nothing- , _hitAutoApprovalDelayInSeconds = Nothing- , _hitRequesterAnnotation = Nothing- , _hitHITStatus = Nothing- , _hitMaxAssignments = Nothing- , _hitNumberOfAssignmentsCompleted = Nothing- , _hitReward = Nothing- , _hitKeywords = Nothing- , _hitHITLayoutId = Nothing- , _hitQualificationRequirements = Nothing- , _hitTitle = Nothing- , _hitHITId = Nothing- , _hitHITReviewStatus = Nothing- , _hitNumberOfAssignmentsAvailable = Nothing- , _hitDescription = Nothing- , _hitQuestion = Nothing- , _hitAssignmentDurationInSeconds = Nothing- }+ { _hitCreationTime = Nothing+ , _hitHITGroupId = Nothing+ , _hitNumberOfAssignmentsPending = Nothing+ , _hitHITTypeId = Nothing+ , _hitExpiration = Nothing+ , _hitAutoApprovalDelayInSeconds = Nothing+ , _hitRequesterAnnotation = Nothing+ , _hitHITStatus = Nothing+ , _hitMaxAssignments = Nothing+ , _hitNumberOfAssignmentsCompleted = Nothing+ , _hitReward = Nothing+ , _hitKeywords = Nothing+ , _hitHITLayoutId = Nothing+ , _hitQualificationRequirements = Nothing+ , _hitTitle = Nothing+ , _hitHITId = Nothing+ , _hitHITReviewStatus = Nothing+ , _hitNumberOfAssignmentsAvailable = Nothing+ , _hitDescription = Nothing+ , _hitQuestion = Nothing+ , _hitAssignmentDurationInSeconds = Nothing+ } -- | The date and time the HIT was created. hitCreationTime :: Lens' HIT (Maybe UTCTime)-hitCreationTime = lens _hitCreationTime (\ s a -> s{_hitCreationTime = a}) . mapping _Time;+hitCreationTime = lens _hitCreationTime (\ s a -> s{_hitCreationTime = a}) . mapping _Time -- | The ID of the HIT Group of this HIT. hitHITGroupId :: Lens' HIT (Maybe Text)-hitHITGroupId = lens _hitHITGroupId (\ s a -> s{_hitHITGroupId = a});+hitHITGroupId = lens _hitHITGroupId (\ s a -> s{_hitHITGroupId = a}) -- | The number of assignments for this HIT that are being previewed or have been accepted by Workers, but have not yet been submitted, returned, or abandoned. hitNumberOfAssignmentsPending :: Lens' HIT (Maybe Int)-hitNumberOfAssignmentsPending = lens _hitNumberOfAssignmentsPending (\ s a -> s{_hitNumberOfAssignmentsPending = a});+hitNumberOfAssignmentsPending = lens _hitNumberOfAssignmentsPending (\ s a -> s{_hitNumberOfAssignmentsPending = a}) -- | The ID of the HIT type of this HIT hitHITTypeId :: Lens' HIT (Maybe Text)-hitHITTypeId = lens _hitHITTypeId (\ s a -> s{_hitHITTypeId = a});+hitHITTypeId = lens _hitHITTypeId (\ s a -> s{_hitHITTypeId = a}) -- | The date and time the HIT expires. hitExpiration :: Lens' HIT (Maybe UTCTime)-hitExpiration = lens _hitExpiration (\ s a -> s{_hitExpiration = a}) . mapping _Time;+hitExpiration = lens _hitExpiration (\ s a -> s{_hitExpiration = a}) . mapping _Time -- | The amount of time, in seconds, after the Worker submits an assignment for the HIT that the results are automatically approved by Amazon Mechanical Turk. This is the amount of time the Requester has to reject an assignment submitted by a Worker before the assignment is auto-approved and the Worker is paid. hitAutoApprovalDelayInSeconds :: Lens' HIT (Maybe Integer)-hitAutoApprovalDelayInSeconds = lens _hitAutoApprovalDelayInSeconds (\ s a -> s{_hitAutoApprovalDelayInSeconds = a});+hitAutoApprovalDelayInSeconds = lens _hitAutoApprovalDelayInSeconds (\ s a -> s{_hitAutoApprovalDelayInSeconds = a}) -- | An arbitrary data field the Requester who created the HIT can use. This field is visible only to the creator of the HIT. hitRequesterAnnotation :: Lens' HIT (Maybe Text)-hitRequesterAnnotation = lens _hitRequesterAnnotation (\ s a -> s{_hitRequesterAnnotation = a});+hitRequesterAnnotation = lens _hitRequesterAnnotation (\ s a -> s{_hitRequesterAnnotation = a}) -- | The status of the HIT and its assignments. Valid Values are Assignable | Unassignable | Reviewable | Reviewing | Disposed. hitHITStatus :: Lens' HIT (Maybe HITStatus)-hitHITStatus = lens _hitHITStatus (\ s a -> s{_hitHITStatus = a});+hitHITStatus = lens _hitHITStatus (\ s a -> s{_hitHITStatus = a}) -- | The number of times the HIT can be accepted and completed before the HIT becomes unavailable. hitMaxAssignments :: Lens' HIT (Maybe Int)-hitMaxAssignments = lens _hitMaxAssignments (\ s a -> s{_hitMaxAssignments = a});+hitMaxAssignments = lens _hitMaxAssignments (\ s a -> s{_hitMaxAssignments = a}) -- | The number of assignments for this HIT that have been approved or rejected. hitNumberOfAssignmentsCompleted :: Lens' HIT (Maybe Int)-hitNumberOfAssignmentsCompleted = lens _hitNumberOfAssignmentsCompleted (\ s a -> s{_hitNumberOfAssignmentsCompleted = a});+hitNumberOfAssignmentsCompleted = lens _hitNumberOfAssignmentsCompleted (\ s a -> s{_hitNumberOfAssignmentsCompleted = a}) -- | Undocumented member. hitReward :: Lens' HIT (Maybe Text)-hitReward = lens _hitReward (\ s a -> s{_hitReward = a});+hitReward = lens _hitReward (\ s a -> s{_hitReward = a}) -- | One or more words or phrases that describe the HIT, separated by commas. Search terms similar to the keywords of a HIT are more likely to have the HIT in the search results. hitKeywords :: Lens' HIT (Maybe Text)-hitKeywords = lens _hitKeywords (\ s a -> s{_hitKeywords = a});+hitKeywords = lens _hitKeywords (\ s a -> s{_hitKeywords = a}) -- | The ID of the HIT Layout of this HIT. hitHITLayoutId :: Lens' HIT (Maybe Text)-hitHITLayoutId = lens _hitHITLayoutId (\ s a -> s{_hitHITLayoutId = a});+hitHITLayoutId = lens _hitHITLayoutId (\ s a -> s{_hitHITLayoutId = a}) --- | A condition that a Worker's Qualifications must meet in order to accept the HIT. A HIT can have between zero and ten Qualification requirements. All requirements must be met by a Worker's Qualifications for the Worker to accept the HIT.+-- | Conditions that a Worker's Qualifications must meet in order to accept the HIT. A HIT can have between zero and ten Qualification requirements. All requirements must be met in order for a Worker to accept the HIT. Additionally, other actions can be restricted using the @ActionsGuarded@ field on each @QualificationRequirement@ structure. hitQualificationRequirements :: Lens' HIT [QualificationRequirement]-hitQualificationRequirements = lens _hitQualificationRequirements (\ s a -> s{_hitQualificationRequirements = a}) . _Default . _Coerce;+hitQualificationRequirements = lens _hitQualificationRequirements (\ s a -> s{_hitQualificationRequirements = a}) . _Default . _Coerce -- | The title of the HIT. hitTitle :: Lens' HIT (Maybe Text)-hitTitle = lens _hitTitle (\ s a -> s{_hitTitle = a});+hitTitle = lens _hitTitle (\ s a -> s{_hitTitle = a}) -- | A unique identifier for the HIT. hitHITId :: Lens' HIT (Maybe Text)-hitHITId = lens _hitHITId (\ s a -> s{_hitHITId = a});+hitHITId = lens _hitHITId (\ s a -> s{_hitHITId = a}) -- | Indicates the review status of the HIT. Valid Values are NotReviewed | MarkedForReview | ReviewedAppropriate | ReviewedInappropriate. hitHITReviewStatus :: Lens' HIT (Maybe HITReviewStatus)-hitHITReviewStatus = lens _hitHITReviewStatus (\ s a -> s{_hitHITReviewStatus = a});+hitHITReviewStatus = lens _hitHITReviewStatus (\ s a -> s{_hitHITReviewStatus = a}) -- | The number of assignments for this HIT that are available for Workers to accept. hitNumberOfAssignmentsAvailable :: Lens' HIT (Maybe Int)-hitNumberOfAssignmentsAvailable = lens _hitNumberOfAssignmentsAvailable (\ s a -> s{_hitNumberOfAssignmentsAvailable = a});+hitNumberOfAssignmentsAvailable = lens _hitNumberOfAssignmentsAvailable (\ s a -> s{_hitNumberOfAssignmentsAvailable = a}) -- | A general description of the HIT. hitDescription :: Lens' HIT (Maybe Text)-hitDescription = lens _hitDescription (\ s a -> s{_hitDescription = a});+hitDescription = lens _hitDescription (\ s a -> s{_hitDescription = a}) -- | The data the Worker completing the HIT uses produce the results. This is either either a QuestionForm, HTMLQuestion or an ExternalQuestion data structure. hitQuestion :: Lens' HIT (Maybe Text)-hitQuestion = lens _hitQuestion (\ s a -> s{_hitQuestion = a});+hitQuestion = lens _hitQuestion (\ s a -> s{_hitQuestion = a}) -- | The length of time, in seconds, that a Worker has to complete the HIT after accepting it. hitAssignmentDurationInSeconds :: Lens' HIT (Maybe Integer)-hitAssignmentDurationInSeconds = lens _hitAssignmentDurationInSeconds (\ s a -> s{_hitAssignmentDurationInSeconds = a});+hitAssignmentDurationInSeconds = lens _hitAssignmentDurationInSeconds (\ s a -> s{_hitAssignmentDurationInSeconds = a}) instance FromJSON HIT where parseJSON@@ -475,11 +475,11 @@ -- | The name of the parameter in the HITLayout. hitlpName :: Lens' HITLayoutParameter Text-hitlpName = lens _hitlpName (\ s a -> s{_hitlpName = a});+hitlpName = lens _hitlpName (\ s a -> s{_hitlpName = a}) -- | The value substituted for the parameter referenced in the HITLayout. hitlpValue :: Lens' HITLayoutParameter Text-hitlpValue = lens _hitlpValue (\ s a -> s{_hitlpValue = a});+hitlpValue = lens _hitlpValue (\ s a -> s{_hitlpValue = a}) instance Hashable HITLayoutParameter where @@ -518,11 +518,11 @@ -- | The state or subdivision of the locale. A valid ISO 3166-2 subdivision code. For example, the code WA refers to the state of Washington. lSubdivision :: Lens' Locale (Maybe Text)-lSubdivision = lens _lSubdivision (\ s a -> s{_lSubdivision = a});+lSubdivision = lens _lSubdivision (\ s a -> s{_lSubdivision = a}) -- | The country of the locale. Must be a valid ISO 3166 country code. For example, the code US refers to the United States of America. lCountry :: Lens' Locale Text-lCountry = lens _lCountry (\ s a -> s{_lCountry = a});+lCountry = lens _lCountry (\ s a -> s{_lCountry = a}) instance FromJSON Locale where parseJSON@@ -573,28 +573,28 @@ -> NotificationSpecification notificationSpecification pDestination_ pTransport_ pVersion_ = NotificationSpecification'- { _nsDestination = pDestination_- , _nsTransport = pTransport_- , _nsVersion = pVersion_- , _nsEventTypes = mempty- }+ { _nsDestination = pDestination_+ , _nsTransport = pTransport_+ , _nsVersion = pVersion_+ , _nsEventTypes = mempty+ } -- | The target for notification messages. The Destination’s format is determined by the specified Transport: * When Transport is Email, the Destination is your email address. * When Transport is SQS, the Destination is your queue URL. * When Transport is SNS, the Destination is the ARN of your topic. nsDestination :: Lens' NotificationSpecification Text-nsDestination = lens _nsDestination (\ s a -> s{_nsDestination = a});+nsDestination = lens _nsDestination (\ s a -> s{_nsDestination = a}) -- | The method Amazon Mechanical Turk uses to send the notification. Valid Values: Email | SQS | SNS. nsTransport :: Lens' NotificationSpecification NotificationTransport-nsTransport = lens _nsTransport (\ s a -> s{_nsTransport = a});+nsTransport = lens _nsTransport (\ s a -> s{_nsTransport = a}) -- | The version of the Notification API to use. Valid value is 2006-05-05. nsVersion :: Lens' NotificationSpecification Text-nsVersion = lens _nsVersion (\ s a -> s{_nsVersion = a});+nsVersion = lens _nsVersion (\ s a -> s{_nsVersion = a}) -- | The list of events that should cause notifications to be sent. Valid Values: AssignmentAccepted | AssignmentAbandoned | AssignmentReturned | AssignmentSubmitted | AssignmentRejected | AssignmentApproved | HITCreated | HITExtended | HITDisposed | HITReviewable | HITExpired | Ping. The Ping event is only valid for the SendTestEventNotification operation. nsEventTypes :: Lens' NotificationSpecification [EventType]-nsEventTypes = lens _nsEventTypes (\ s a -> s{_nsEventTypes = a}) . _Coerce;+nsEventTypes = lens _nsEventTypes (\ s a -> s{_nsEventTypes = a}) . _Coerce instance Hashable NotificationSpecification where @@ -634,23 +634,23 @@ :: NotifyWorkersFailureStatus notifyWorkersFailureStatus = NotifyWorkersFailureStatus'- { _nwfsNotifyWorkersFailureMessage = Nothing- , _nwfsNotifyWorkersFailureCode = Nothing- , _nwfsWorkerId = Nothing- }+ { _nwfsNotifyWorkersFailureMessage = Nothing+ , _nwfsNotifyWorkersFailureCode = Nothing+ , _nwfsWorkerId = Nothing+ } -- | A message detailing the reason the Worker could not be notified. nwfsNotifyWorkersFailureMessage :: Lens' NotifyWorkersFailureStatus (Maybe Text)-nwfsNotifyWorkersFailureMessage = lens _nwfsNotifyWorkersFailureMessage (\ s a -> s{_nwfsNotifyWorkersFailureMessage = a});+nwfsNotifyWorkersFailureMessage = lens _nwfsNotifyWorkersFailureMessage (\ s a -> s{_nwfsNotifyWorkersFailureMessage = a}) -- | Encoded value for the failure type. nwfsNotifyWorkersFailureCode :: Lens' NotifyWorkersFailureStatus (Maybe NotifyWorkersFailureCode)-nwfsNotifyWorkersFailureCode = lens _nwfsNotifyWorkersFailureCode (\ s a -> s{_nwfsNotifyWorkersFailureCode = a});+nwfsNotifyWorkersFailureCode = lens _nwfsNotifyWorkersFailureCode (\ s a -> s{_nwfsNotifyWorkersFailureCode = a}) -- | The ID of the Worker. nwfsWorkerId :: Lens' NotifyWorkersFailureStatus (Maybe Text)-nwfsWorkerId = lens _nwfsWorkerId (\ s a -> s{_nwfsWorkerId = a});+nwfsWorkerId = lens _nwfsWorkerId (\ s a -> s{_nwfsWorkerId = a}) instance FromJSON NotifyWorkersFailureStatus where parseJSON@@ -690,11 +690,11 @@ -- | The list of answers to the question specified in the MapEntry Key element. The Worker must match all values in order for the answer to be scored correctly. pmeValues :: Lens' ParameterMapEntry [Text]-pmeValues = lens _pmeValues (\ s a -> s{_pmeValues = a}) . _Default . _Coerce;+pmeValues = lens _pmeValues (\ s a -> s{_pmeValues = a}) . _Default . _Coerce -- | The QuestionID from the HIT that is used to identify which question requires Mechanical Turk to score as part of the ScoreMyKnownAnswers/2011-09-01 Review Policy. pmeKey :: Lens' ParameterMapEntry (Maybe Text)-pmeKey = lens _pmeKey (\ s a -> s{_pmeKey = a});+pmeKey = lens _pmeKey (\ s a -> s{_pmeKey = a}) instance FromJSON ParameterMapEntry where parseJSON@@ -739,20 +739,20 @@ :: PolicyParameter policyParameter = PolicyParameter'- {_ppValues = Nothing, _ppMapEntries = Nothing, _ppKey = Nothing}+ {_ppValues = Nothing, _ppMapEntries = Nothing, _ppKey = Nothing} -- | The list of values of the Parameter ppValues :: Lens' PolicyParameter [Text]-ppValues = lens _ppValues (\ s a -> s{_ppValues = a}) . _Default . _Coerce;+ppValues = lens _ppValues (\ s a -> s{_ppValues = a}) . _Default . _Coerce -- | List of ParameterMapEntry objects. ppMapEntries :: Lens' PolicyParameter [ParameterMapEntry]-ppMapEntries = lens _ppMapEntries (\ s a -> s{_ppMapEntries = a}) . _Default . _Coerce;+ppMapEntries = lens _ppMapEntries (\ s a -> s{_ppMapEntries = a}) . _Default . _Coerce -- | Name of the parameter from the list of Review Polices. ppKey :: Lens' PolicyParameter (Maybe Text)-ppKey = lens _ppKey (\ s a -> s{_ppKey = a});+ppKey = lens _ppKey (\ s a -> s{_ppKey = a}) instance FromJSON PolicyParameter where parseJSON@@ -809,38 +809,38 @@ :: Qualification qualification = Qualification'- { _qStatus = Nothing- , _qIntegerValue = Nothing- , _qLocaleValue = Nothing- , _qQualificationTypeId = Nothing- , _qGrantTime = Nothing- , _qWorkerId = Nothing- }+ { _qStatus = Nothing+ , _qIntegerValue = Nothing+ , _qLocaleValue = Nothing+ , _qQualificationTypeId = Nothing+ , _qGrantTime = Nothing+ , _qWorkerId = Nothing+ } -- | The status of the Qualification. Valid values are Granted | Revoked. qStatus :: Lens' Qualification (Maybe QualificationStatus)-qStatus = lens _qStatus (\ s a -> s{_qStatus = a});+qStatus = lens _qStatus (\ s a -> s{_qStatus = a}) -- | The value (score) of the Qualification, if the Qualification has an integer value. qIntegerValue :: Lens' Qualification (Maybe Int)-qIntegerValue = lens _qIntegerValue (\ s a -> s{_qIntegerValue = a});+qIntegerValue = lens _qIntegerValue (\ s a -> s{_qIntegerValue = a}) -- | Undocumented member. qLocaleValue :: Lens' Qualification (Maybe Locale)-qLocaleValue = lens _qLocaleValue (\ s a -> s{_qLocaleValue = a});+qLocaleValue = lens _qLocaleValue (\ s a -> s{_qLocaleValue = a}) -- | The ID of the Qualification type for the Qualification. qQualificationTypeId :: Lens' Qualification (Maybe Text)-qQualificationTypeId = lens _qQualificationTypeId (\ s a -> s{_qQualificationTypeId = a});+qQualificationTypeId = lens _qQualificationTypeId (\ s a -> s{_qQualificationTypeId = a}) -- | The date and time the Qualification was granted to the Worker. If the Worker's Qualification was revoked, and then re-granted based on a new Qualification request, GrantTime is the date and time of the last call to the AcceptQualificationRequest operation. qGrantTime :: Lens' Qualification (Maybe UTCTime)-qGrantTime = lens _qGrantTime (\ s a -> s{_qGrantTime = a}) . mapping _Time;+qGrantTime = lens _qGrantTime (\ s a -> s{_qGrantTime = a}) . mapping _Time -- | The ID of the Worker who possesses the Qualification. qWorkerId :: Lens' Qualification (Maybe Text)-qWorkerId = lens _qWorkerId (\ s a -> s{_qWorkerId = a});+qWorkerId = lens _qWorkerId (\ s a -> s{_qWorkerId = a}) instance FromJSON Qualification where parseJSON@@ -891,38 +891,38 @@ :: QualificationRequest qualificationRequest = QualificationRequest'- { _quaQualificationRequestId = Nothing- , _quaTest = Nothing- , _quaQualificationTypeId = Nothing- , _quaAnswer = Nothing- , _quaWorkerId = Nothing- , _quaSubmitTime = Nothing- }+ { _quaQualificationRequestId = Nothing+ , _quaTest = Nothing+ , _quaQualificationTypeId = Nothing+ , _quaAnswer = Nothing+ , _quaWorkerId = Nothing+ , _quaSubmitTime = Nothing+ } -- | The ID of the Qualification request, a unique identifier generated when the request was submitted. quaQualificationRequestId :: Lens' QualificationRequest (Maybe Text)-quaQualificationRequestId = lens _quaQualificationRequestId (\ s a -> s{_quaQualificationRequestId = a});+quaQualificationRequestId = lens _quaQualificationRequestId (\ s a -> s{_quaQualificationRequestId = a}) -- | The contents of the Qualification test that was presented to the Worker, if the type has a test and the Worker has submitted answers. This value is identical to the QuestionForm associated with the Qualification type at the time the Worker requests the Qualification. quaTest :: Lens' QualificationRequest (Maybe Text)-quaTest = lens _quaTest (\ s a -> s{_quaTest = a});+quaTest = lens _quaTest (\ s a -> s{_quaTest = a}) -- | The ID of the Qualification type the Worker is requesting, as returned by the CreateQualificationType operation. quaQualificationTypeId :: Lens' QualificationRequest (Maybe Text)-quaQualificationTypeId = lens _quaQualificationTypeId (\ s a -> s{_quaQualificationTypeId = a});+quaQualificationTypeId = lens _quaQualificationTypeId (\ s a -> s{_quaQualificationTypeId = a}) -- | The Worker's answers for the Qualification type's test contained in a QuestionFormAnswers document, if the type has a test and the Worker has submitted answers. If the Worker does not provide any answers, Answer may be empty. quaAnswer :: Lens' QualificationRequest (Maybe Text)-quaAnswer = lens _quaAnswer (\ s a -> s{_quaAnswer = a});+quaAnswer = lens _quaAnswer (\ s a -> s{_quaAnswer = a}) -- | The ID of the Worker requesting the Qualification. quaWorkerId :: Lens' QualificationRequest (Maybe Text)-quaWorkerId = lens _quaWorkerId (\ s a -> s{_quaWorkerId = a});+quaWorkerId = lens _quaWorkerId (\ s a -> s{_quaWorkerId = a}) -- | The date and time the Qualification request had a status of Submitted. This is either the time the Worker submitted answers for a Qualification test, or the time the Worker requested the Qualification if the Qualification type does not have a test. quaSubmitTime :: Lens' QualificationRequest (Maybe UTCTime)-quaSubmitTime = lens _quaSubmitTime (\ s a -> s{_quaSubmitTime = a}) . mapping _Time;+quaSubmitTime = lens _quaSubmitTime (\ s a -> s{_quaSubmitTime = a}) . mapping _Time instance FromJSON QualificationRequest where parseJSON@@ -939,13 +939,14 @@ instance NFData QualificationRequest where --- | The QualificationRequirement data structure describes a Qualification that a Worker must have before the Worker is allowed to accept a HIT. A requirement may optionally state that a Worker must have the Qualification in order to preview the HIT.+-- | The QualificationRequirement data structure describes a Qualification that a Worker must have before the Worker is allowed to accept a HIT. A requirement may optionally state that a Worker must have the Qualification in order to preview the HIT, or see the HIT in search results. -- -- -- -- /See:/ 'qualificationRequirement' smart constructor. data QualificationRequirement = QualificationRequirement' { _qrLocaleValues :: !(Maybe [Locale])+ , _qrActionsGuarded :: !(Maybe HITAccessActions) , _qrRequiredToPreview :: !(Maybe Bool) , _qrIntegerValues :: !(Maybe [Int]) , _qrQualificationTypeId :: !Text@@ -959,8 +960,10 @@ -- -- * 'qrLocaleValues' - The locale value to compare against the Qualification's value. The local value must be a valid ISO 3166 country code or supports ISO 3166-2 subdivisions. LocaleValue can only be used with a Worker_Locale QualificationType ID. LocaleValue can only be used with the EqualTo, NotEqualTo, In, and NotIn comparators. You must only use a single LocaleValue element when using the EqualTo or NotEqualTo comparators. When performing a set comparison by using the In or the NotIn comparator, you can use up to 30 LocaleValue elements in a QualificationRequirement data structure. ----- * 'qrRequiredToPreview' - If true, the question data for the HIT will not be shown when a Worker whose Qualifications do not meet this requirement tries to preview the HIT. That is, a Worker's Qualifications must meet all of the requirements for which RequiredToPreview is true in order to preview the HIT. If a Worker meets all of the requirements where RequiredToPreview is true (or if there are no such requirements), but does not meet all of the requirements for the HIT, the Worker will be allowed to preview the HIT's question data, but will not be allowed to accept and complete the HIT. The default is false.+-- * 'qrActionsGuarded' - Setting this attribute prevents Workers whose Qualifications do not meet this QualificationRequirement from taking the specified action. Valid arguments include "Accept" (Worker cannot accept the HIT, but can preview the HIT and see it in their search results), "PreviewAndAccept" (Worker cannot accept or preview the HIT, but can see the HIT in their search results), and "DiscoverPreviewAndAccept" (Worker cannot accept, preview, or see the HIT in their search results). It's possible for you to create a HIT with multiple QualificationRequirements (which can have different values for the ActionGuarded attribute). In this case, the Worker is only permitted to perform an action when they have met all QualificationRequirements guarding the action. The actions in the order of least restrictive to most restrictive are Discover, Preview and Accept. For example, if a Worker meets all QualificationRequirements that are set to DiscoverPreviewAndAccept, but do not meet all requirements that are set with PreviewAndAccept, then the Worker will be able to Discover, i.e. see the HIT in their search result, but will not be able to Preview or Accept the HIT. ActionsGuarded should not be used in combination with the @RequiredToPreview@ field. --+-- * 'qrRequiredToPreview' - DEPRECATED: Use the @ActionsGuarded@ field instead. If RequiredToPreview is true, the question data for the HIT will not be shown when a Worker whose Qualifications do not meet this requirement tries to preview the HIT. That is, a Worker's Qualifications must meet all of the requirements for which RequiredToPreview is true in order to preview the HIT. If a Worker meets all of the requirements where RequiredToPreview is true (or if there are no such requirements), but does not meet all of the requirements for the HIT, the Worker will be allowed to preview the HIT's question data, but will not be allowed to accept and complete the HIT. The default is false. This should not be used in combination with the @ActionsGuarded@ field.+-- -- * 'qrIntegerValues' - The integer value to compare against the Qualification's value. IntegerValue must not be present if Comparator is Exists or DoesNotExist. IntegerValue can only be used if the Qualification type has an integer value; it cannot be used with the Worker_Locale QualificationType ID. When performing a set comparison by using the In or the NotIn comparator, you can use up to 15 IntegerValue elements in a QualificationRequirement data structure. -- -- * 'qrQualificationTypeId' - The ID of the Qualification type for the requirement.@@ -972,33 +975,38 @@ -> QualificationRequirement qualificationRequirement pQualificationTypeId_ pComparator_ = QualificationRequirement'- { _qrLocaleValues = Nothing- , _qrRequiredToPreview = Nothing- , _qrIntegerValues = Nothing- , _qrQualificationTypeId = pQualificationTypeId_- , _qrComparator = pComparator_- }+ { _qrLocaleValues = Nothing+ , _qrActionsGuarded = Nothing+ , _qrRequiredToPreview = Nothing+ , _qrIntegerValues = Nothing+ , _qrQualificationTypeId = pQualificationTypeId_+ , _qrComparator = pComparator_+ } -- | The locale value to compare against the Qualification's value. The local value must be a valid ISO 3166 country code or supports ISO 3166-2 subdivisions. LocaleValue can only be used with a Worker_Locale QualificationType ID. LocaleValue can only be used with the EqualTo, NotEqualTo, In, and NotIn comparators. You must only use a single LocaleValue element when using the EqualTo or NotEqualTo comparators. When performing a set comparison by using the In or the NotIn comparator, you can use up to 30 LocaleValue elements in a QualificationRequirement data structure. qrLocaleValues :: Lens' QualificationRequirement [Locale]-qrLocaleValues = lens _qrLocaleValues (\ s a -> s{_qrLocaleValues = a}) . _Default . _Coerce;+qrLocaleValues = lens _qrLocaleValues (\ s a -> s{_qrLocaleValues = a}) . _Default . _Coerce --- | If true, the question data for the HIT will not be shown when a Worker whose Qualifications do not meet this requirement tries to preview the HIT. That is, a Worker's Qualifications must meet all of the requirements for which RequiredToPreview is true in order to preview the HIT. If a Worker meets all of the requirements where RequiredToPreview is true (or if there are no such requirements), but does not meet all of the requirements for the HIT, the Worker will be allowed to preview the HIT's question data, but will not be allowed to accept and complete the HIT. The default is false.+-- | Setting this attribute prevents Workers whose Qualifications do not meet this QualificationRequirement from taking the specified action. Valid arguments include "Accept" (Worker cannot accept the HIT, but can preview the HIT and see it in their search results), "PreviewAndAccept" (Worker cannot accept or preview the HIT, but can see the HIT in their search results), and "DiscoverPreviewAndAccept" (Worker cannot accept, preview, or see the HIT in their search results). It's possible for you to create a HIT with multiple QualificationRequirements (which can have different values for the ActionGuarded attribute). In this case, the Worker is only permitted to perform an action when they have met all QualificationRequirements guarding the action. The actions in the order of least restrictive to most restrictive are Discover, Preview and Accept. For example, if a Worker meets all QualificationRequirements that are set to DiscoverPreviewAndAccept, but do not meet all requirements that are set with PreviewAndAccept, then the Worker will be able to Discover, i.e. see the HIT in their search result, but will not be able to Preview or Accept the HIT. ActionsGuarded should not be used in combination with the @RequiredToPreview@ field.+qrActionsGuarded :: Lens' QualificationRequirement (Maybe HITAccessActions)+qrActionsGuarded = lens _qrActionsGuarded (\ s a -> s{_qrActionsGuarded = a})++-- | DEPRECATED: Use the @ActionsGuarded@ field instead. If RequiredToPreview is true, the question data for the HIT will not be shown when a Worker whose Qualifications do not meet this requirement tries to preview the HIT. That is, a Worker's Qualifications must meet all of the requirements for which RequiredToPreview is true in order to preview the HIT. If a Worker meets all of the requirements where RequiredToPreview is true (or if there are no such requirements), but does not meet all of the requirements for the HIT, the Worker will be allowed to preview the HIT's question data, but will not be allowed to accept and complete the HIT. The default is false. This should not be used in combination with the @ActionsGuarded@ field. qrRequiredToPreview :: Lens' QualificationRequirement (Maybe Bool)-qrRequiredToPreview = lens _qrRequiredToPreview (\ s a -> s{_qrRequiredToPreview = a});+qrRequiredToPreview = lens _qrRequiredToPreview (\ s a -> s{_qrRequiredToPreview = a}) -- | The integer value to compare against the Qualification's value. IntegerValue must not be present if Comparator is Exists or DoesNotExist. IntegerValue can only be used if the Qualification type has an integer value; it cannot be used with the Worker_Locale QualificationType ID. When performing a set comparison by using the In or the NotIn comparator, you can use up to 15 IntegerValue elements in a QualificationRequirement data structure. qrIntegerValues :: Lens' QualificationRequirement [Int]-qrIntegerValues = lens _qrIntegerValues (\ s a -> s{_qrIntegerValues = a}) . _Default . _Coerce;+qrIntegerValues = lens _qrIntegerValues (\ s a -> s{_qrIntegerValues = a}) . _Default . _Coerce -- | The ID of the Qualification type for the requirement. qrQualificationTypeId :: Lens' QualificationRequirement Text-qrQualificationTypeId = lens _qrQualificationTypeId (\ s a -> s{_qrQualificationTypeId = a});+qrQualificationTypeId = lens _qrQualificationTypeId (\ s a -> s{_qrQualificationTypeId = a}) -- | The kind of comparison to make against a Qualification's value. You can compare a Qualification's value to an IntegerValue to see if it is LessThan, LessThanOrEqualTo, GreaterThan, GreaterThanOrEqualTo, EqualTo, or NotEqualTo the IntegerValue. You can compare it to a LocaleValue to see if it is EqualTo, or NotEqualTo the LocaleValue. You can check to see if the value is In or NotIn a set of IntegerValue or LocaleValue values. Lastly, a Qualification requirement can also test if a Qualification Exists or DoesNotExist in the user's profile, regardless of its value. qrComparator :: Lens' QualificationRequirement Comparator-qrComparator = lens _qrComparator (\ s a -> s{_qrComparator = a});+qrComparator = lens _qrComparator (\ s a -> s{_qrComparator = a}) instance FromJSON QualificationRequirement where parseJSON@@ -1006,7 +1014,8 @@ (\ x -> QualificationRequirement' <$> (x .:? "LocaleValues" .!= mempty) <*>- (x .:? "RequiredToPreview")+ (x .:? "ActionsGuarded")+ <*> (x .:? "RequiredToPreview") <*> (x .:? "IntegerValues" .!= mempty) <*> (x .: "QualificationTypeId") <*> (x .: "Comparator"))@@ -1020,6 +1029,7 @@ = object (catMaybes [("LocaleValues" .=) <$> _qrLocaleValues,+ ("ActionsGuarded" .=) <$> _qrActionsGuarded, ("RequiredToPreview" .=) <$> _qrRequiredToPreview, ("IntegerValues" .=) <$> _qrIntegerValues, Just@@ -1081,73 +1091,73 @@ :: QualificationType qualificationType = QualificationType'- { _qtCreationTime = Nothing- , _qtTestDurationInSeconds = Nothing- , _qtQualificationTypeStatus = Nothing- , _qtAnswerKey = Nothing- , _qtTest = Nothing- , _qtQualificationTypeId = Nothing- , _qtName = Nothing- , _qtKeywords = Nothing- , _qtAutoGranted = Nothing- , _qtAutoGrantedValue = Nothing- , _qtDescription = Nothing- , _qtIsRequestable = Nothing- , _qtRetryDelayInSeconds = Nothing- }+ { _qtCreationTime = Nothing+ , _qtTestDurationInSeconds = Nothing+ , _qtQualificationTypeStatus = Nothing+ , _qtAnswerKey = Nothing+ , _qtTest = Nothing+ , _qtQualificationTypeId = Nothing+ , _qtName = Nothing+ , _qtKeywords = Nothing+ , _qtAutoGranted = Nothing+ , _qtAutoGrantedValue = Nothing+ , _qtDescription = Nothing+ , _qtIsRequestable = Nothing+ , _qtRetryDelayInSeconds = Nothing+ } -- | The date and time the Qualification type was created. qtCreationTime :: Lens' QualificationType (Maybe UTCTime)-qtCreationTime = lens _qtCreationTime (\ s a -> s{_qtCreationTime = a}) . mapping _Time;+qtCreationTime = lens _qtCreationTime (\ s a -> s{_qtCreationTime = a}) . mapping _Time -- | The amount of time, in seconds, given to a Worker to complete the Qualification test, beginning from the time the Worker requests the Qualification. qtTestDurationInSeconds :: Lens' QualificationType (Maybe Integer)-qtTestDurationInSeconds = lens _qtTestDurationInSeconds (\ s a -> s{_qtTestDurationInSeconds = a});+qtTestDurationInSeconds = lens _qtTestDurationInSeconds (\ s a -> s{_qtTestDurationInSeconds = a}) -- | The status of the Qualification type. A Qualification type's status determines if users can apply to receive a Qualification of this type, and if HITs can be created with requirements based on this type. Valid values are Active | Inactive. qtQualificationTypeStatus :: Lens' QualificationType (Maybe QualificationTypeStatus)-qtQualificationTypeStatus = lens _qtQualificationTypeStatus (\ s a -> s{_qtQualificationTypeStatus = a});+qtQualificationTypeStatus = lens _qtQualificationTypeStatus (\ s a -> s{_qtQualificationTypeStatus = a}) -- | The answers to the Qualification test specified in the Test parameter. qtAnswerKey :: Lens' QualificationType (Maybe Text)-qtAnswerKey = lens _qtAnswerKey (\ s a -> s{_qtAnswerKey = a});+qtAnswerKey = lens _qtAnswerKey (\ s a -> s{_qtAnswerKey = a}) -- | The questions for a Qualification test associated with this Qualification type that a user can take to obtain a Qualification of this type. This parameter must be specified if AnswerKey is present. A Qualification type cannot have both a specified Test parameter and an AutoGranted value of true. qtTest :: Lens' QualificationType (Maybe Text)-qtTest = lens _qtTest (\ s a -> s{_qtTest = a});+qtTest = lens _qtTest (\ s a -> s{_qtTest = a}) -- | A unique identifier for the Qualification type. A Qualification type is given a Qualification type ID when you call the CreateQualificationType operation. qtQualificationTypeId :: Lens' QualificationType (Maybe Text)-qtQualificationTypeId = lens _qtQualificationTypeId (\ s a -> s{_qtQualificationTypeId = a});+qtQualificationTypeId = lens _qtQualificationTypeId (\ s a -> s{_qtQualificationTypeId = a}) -- | The name of the Qualification type. The type name is used to identify the type, and to find the type using a Qualification type search. qtName :: Lens' QualificationType (Maybe Text)-qtName = lens _qtName (\ s a -> s{_qtName = a});+qtName = lens _qtName (\ s a -> s{_qtName = a}) -- | One or more words or phrases that describe theQualification type, separated by commas. The Keywords make the type easier to find using a search. qtKeywords :: Lens' QualificationType (Maybe Text)-qtKeywords = lens _qtKeywords (\ s a -> s{_qtKeywords = a});+qtKeywords = lens _qtKeywords (\ s a -> s{_qtKeywords = a}) -- | Specifies that requests for the Qualification type are granted immediately, without prompting the Worker with a Qualification test. Valid values are True | False. qtAutoGranted :: Lens' QualificationType (Maybe Bool)-qtAutoGranted = lens _qtAutoGranted (\ s a -> s{_qtAutoGranted = a});+qtAutoGranted = lens _qtAutoGranted (\ s a -> s{_qtAutoGranted = a}) -- | The Qualification integer value to use for automatically granted Qualifications, if AutoGranted is true. This is 1 by default. qtAutoGrantedValue :: Lens' QualificationType (Maybe Int)-qtAutoGrantedValue = lens _qtAutoGrantedValue (\ s a -> s{_qtAutoGrantedValue = a});+qtAutoGrantedValue = lens _qtAutoGrantedValue (\ s a -> s{_qtAutoGrantedValue = a}) -- | A long description for the Qualification type. qtDescription :: Lens' QualificationType (Maybe Text)-qtDescription = lens _qtDescription (\ s a -> s{_qtDescription = a});+qtDescription = lens _qtDescription (\ s a -> s{_qtDescription = a}) -- | Specifies whether the Qualification type is one that a user can request through the Amazon Mechanical Turk web site, such as by taking a Qualification test. This value is False for Qualifications assigned automatically by the system. Valid values are True | False. qtIsRequestable :: Lens' QualificationType (Maybe Bool)-qtIsRequestable = lens _qtIsRequestable (\ s a -> s{_qtIsRequestable = a});+qtIsRequestable = lens _qtIsRequestable (\ s a -> s{_qtIsRequestable = a}) -- | The amount of time, in seconds, Workers must wait after taking the Qualification test before they can take it again. Workers can take a Qualification test multiple times if they were not granted the Qualification from a previous attempt, or if the test offers a gradient score and they want a better score. If not specified, retries are disabled and Workers can request a Qualification only once. qtRetryDelayInSeconds :: Lens' QualificationType (Maybe Integer)-qtRetryDelayInSeconds = lens _qtRetryDelayInSeconds (\ s a -> s{_qtRetryDelayInSeconds = a});+qtRetryDelayInSeconds = lens _qtRetryDelayInSeconds (\ s a -> s{_qtRetryDelayInSeconds = a}) instance FromJSON QualificationType where parseJSON@@ -1212,48 +1222,48 @@ :: ReviewActionDetail reviewActionDetail = ReviewActionDetail'- { _radStatus = Nothing- , _radTargetId = Nothing- , _radActionId = Nothing- , _radTargetType = Nothing- , _radResult = Nothing- , _radActionName = Nothing- , _radCompleteTime = Nothing- , _radErrorCode = Nothing- }+ { _radStatus = Nothing+ , _radTargetId = Nothing+ , _radActionId = Nothing+ , _radTargetType = Nothing+ , _radResult = Nothing+ , _radActionName = Nothing+ , _radCompleteTime = Nothing+ , _radErrorCode = Nothing+ } -- | The current disposition of the action: INTENDED, SUCCEEDED, FAILED, or CANCELLED. radStatus :: Lens' ReviewActionDetail (Maybe ReviewActionStatus)-radStatus = lens _radStatus (\ s a -> s{_radStatus = a});+radStatus = lens _radStatus (\ s a -> s{_radStatus = a}) -- | The specific HITId or AssignmentID targeted by the action. radTargetId :: Lens' ReviewActionDetail (Maybe Text)-radTargetId = lens _radTargetId (\ s a -> s{_radTargetId = a});+radTargetId = lens _radTargetId (\ s a -> s{_radTargetId = a}) -- | The unique identifier for the action. radActionId :: Lens' ReviewActionDetail (Maybe Text)-radActionId = lens _radActionId (\ s a -> s{_radActionId = a});+radActionId = lens _radActionId (\ s a -> s{_radActionId = a}) -- | The type of object in TargetId. radTargetType :: Lens' ReviewActionDetail (Maybe Text)-radTargetType = lens _radTargetType (\ s a -> s{_radTargetType = a});+radTargetType = lens _radTargetType (\ s a -> s{_radTargetType = a}) -- | A description of the outcome of the review. radResult :: Lens' ReviewActionDetail (Maybe Text)-radResult = lens _radResult (\ s a -> s{_radResult = a});+radResult = lens _radResult (\ s a -> s{_radResult = a}) -- | The nature of the action itself. The Review Policy is responsible for examining the HIT and Assignments, emitting results, and deciding which other actions will be necessary. radActionName :: Lens' ReviewActionDetail (Maybe Text)-radActionName = lens _radActionName (\ s a -> s{_radActionName = a});+radActionName = lens _radActionName (\ s a -> s{_radActionName = a}) -- | The date when the action was completed. radCompleteTime :: Lens' ReviewActionDetail (Maybe UTCTime)-radCompleteTime = lens _radCompleteTime (\ s a -> s{_radCompleteTime = a}) . mapping _Time;+radCompleteTime = lens _radCompleteTime (\ s a -> s{_radCompleteTime = a}) . mapping _Time -- | Present only when the Results have a FAILED Status. radErrorCode :: Lens' ReviewActionDetail (Maybe Text)-radErrorCode = lens _radErrorCode (\ s a -> s{_radErrorCode = a});+radErrorCode = lens _radErrorCode (\ s a -> s{_radErrorCode = a}) instance FromJSON ReviewActionDetail where parseJSON@@ -1299,11 +1309,11 @@ -- | Name of the parameter from the Review policy. rpParameters :: Lens' ReviewPolicy [PolicyParameter]-rpParameters = lens _rpParameters (\ s a -> s{_rpParameters = a}) . _Default . _Coerce;+rpParameters = lens _rpParameters (\ s a -> s{_rpParameters = a}) . _Default . _Coerce -- | Name of a Review Policy: SimplePlurality/2011-09-01 or ScoreMyKnownAnswers/2011-09-01 rpPolicyName :: Lens' ReviewPolicy Text-rpPolicyName = lens _rpPolicyName (\ s a -> s{_rpPolicyName = a});+rpPolicyName = lens _rpPolicyName (\ s a -> s{_rpPolicyName = a}) instance FromJSON ReviewPolicy where parseJSON@@ -1350,11 +1360,11 @@ -- | A list of ReviewAction objects for each action specified in the Review Policy. rrReviewActions :: Lens' ReviewReport [ReviewActionDetail]-rrReviewActions = lens _rrReviewActions (\ s a -> s{_rrReviewActions = a}) . _Default . _Coerce;+rrReviewActions = lens _rrReviewActions (\ s a -> s{_rrReviewActions = a}) . _Default . _Coerce -- | A list of ReviewResults objects for each action specified in the Review Policy. rrReviewResults :: Lens' ReviewReport [ReviewResultDetail]-rrReviewResults = lens _rrReviewResults (\ s a -> s{_rrReviewResults = a}) . _Default . _Coerce;+rrReviewResults = lens _rrReviewResults (\ s a -> s{_rrReviewResults = a}) . _Default . _Coerce instance FromJSON ReviewReport where parseJSON@@ -1402,38 +1412,38 @@ :: ReviewResultDetail reviewResultDetail = ReviewResultDetail'- { _rrdValue = Nothing- , _rrdActionId = Nothing- , _rrdSubjectType = Nothing- , _rrdKey = Nothing- , _rrdQuestionId = Nothing- , _rrdSubjectId = Nothing- }+ { _rrdValue = Nothing+ , _rrdActionId = Nothing+ , _rrdSubjectType = Nothing+ , _rrdKey = Nothing+ , _rrdQuestionId = Nothing+ , _rrdSubjectId = Nothing+ } -- | The values of Key provided by the review policies you have selected. rrdValue :: Lens' ReviewResultDetail (Maybe Text)-rrdValue = lens _rrdValue (\ s a -> s{_rrdValue = a});+rrdValue = lens _rrdValue (\ s a -> s{_rrdValue = a}) -- | A unique identifier of the Review action result. rrdActionId :: Lens' ReviewResultDetail (Maybe Text)-rrdActionId = lens _rrdActionId (\ s a -> s{_rrdActionId = a});+rrdActionId = lens _rrdActionId (\ s a -> s{_rrdActionId = a}) -- | The type of the object from the SubjectId field. rrdSubjectType :: Lens' ReviewResultDetail (Maybe Text)-rrdSubjectType = lens _rrdSubjectType (\ s a -> s{_rrdSubjectType = a});+rrdSubjectType = lens _rrdSubjectType (\ s a -> s{_rrdSubjectType = a}) -- | Key identifies the particular piece of reviewed information. rrdKey :: Lens' ReviewResultDetail (Maybe Text)-rrdKey = lens _rrdKey (\ s a -> s{_rrdKey = a});+rrdKey = lens _rrdKey (\ s a -> s{_rrdKey = a}) -- | Specifies the QuestionId the result is describing. Depending on whether the TargetType is a HIT or Assignment this results could specify multiple values. If TargetType is HIT and QuestionId is absent, then the result describes results of the HIT, including the HIT agreement score. If ObjectType is Assignment and QuestionId is absent, then the result describes the Worker's performance on the HIT. rrdQuestionId :: Lens' ReviewResultDetail (Maybe Text)-rrdQuestionId = lens _rrdQuestionId (\ s a -> s{_rrdQuestionId = a});+rrdQuestionId = lens _rrdQuestionId (\ s a -> s{_rrdQuestionId = a}) -- | The HITID or AssignmentId about which this result was taken. Note that HIT-level Review Policies will often emit results about both the HIT itself and its Assignments, while Assignment-level review policies generally only emit results about the Assignment itself. rrdSubjectId :: Lens' ReviewResultDetail (Maybe Text)-rrdSubjectId = lens _rrdSubjectId (\ s a -> s{_rrdSubjectId = a});+rrdSubjectId = lens _rrdSubjectId (\ s a -> s{_rrdSubjectId = a}) instance FromJSON ReviewResultDetail where parseJSON@@ -1475,11 +1485,11 @@ -- | A message explaining the reason the Worker was blocked. wbReason :: Lens' WorkerBlock (Maybe Text)-wbReason = lens _wbReason (\ s a -> s{_wbReason = a});+wbReason = lens _wbReason (\ s a -> s{_wbReason = a}) -- | The ID of the Worker who accepted the HIT. wbWorkerId :: Lens' WorkerBlock (Maybe Text)-wbWorkerId = lens _wbWorkerId (\ s a -> s{_wbWorkerId = a});+wbWorkerId = lens _wbWorkerId (\ s a -> s{_wbWorkerId = a}) instance FromJSON WorkerBlock where parseJSON
gen/Network/AWS/MechanicalTurk/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.Types.Sum--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -162,6 +162,39 @@ instance ToJSON EventType where toJSON = toJSONText++data HITAccessActions+ = Accept+ | DiscoverPreviewAndAccept+ | PreviewAndAccept+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText HITAccessActions where+ parser = takeLowerText >>= \case+ "accept" -> pure Accept+ "discoverpreviewandaccept" -> pure DiscoverPreviewAndAccept+ "previewandaccept" -> pure PreviewAndAccept+ e -> fromTextError $ "Failure parsing HITAccessActions from value: '" <> e+ <> "'. Accepted values: accept, discoverpreviewandaccept, previewandaccept"++instance ToText HITAccessActions where+ toText = \case+ Accept -> "Accept"+ DiscoverPreviewAndAccept -> "DiscoverPreviewAndAccept"+ PreviewAndAccept -> "PreviewAndAccept"++instance Hashable HITAccessActions+instance NFData HITAccessActions+instance ToByteString HITAccessActions+instance ToQuery HITAccessActions+instance ToHeader HITAccessActions++instance ToJSON HITAccessActions where+ toJSON = toJSONText++instance FromJSON HITAccessActions where+ parseJSON = parseJSONText "HITAccessActions" data HITReviewStatus = MarkedForReview
gen/Network/AWS/MechanicalTurk/UpdateExpirationForHIT.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.UpdateExpirationForHIT--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -64,16 +64,16 @@ -> UpdateExpirationForHIT updateExpirationForHIT pHITId_ pExpireAt_ = UpdateExpirationForHIT'- {_uefhitHITId = pHITId_, _uefhitExpireAt = _Time # pExpireAt_}+ {_uefhitHITId = pHITId_, _uefhitExpireAt = _Time # pExpireAt_} -- | The HIT to update. uefhitHITId :: Lens' UpdateExpirationForHIT Text-uefhitHITId = lens _uefhitHITId (\ s a -> s{_uefhitHITId = a});+uefhitHITId = lens _uefhitHITId (\ s a -> s{_uefhitHITId = a}) -- | The date and time at which you want the HIT to expire uefhitExpireAt :: Lens' UpdateExpirationForHIT UTCTime-uefhitExpireAt = lens _uefhitExpireAt (\ s a -> s{_uefhitExpireAt = a}) . _Time;+uefhitExpireAt = lens _uefhitExpireAt (\ s a -> s{_uefhitExpireAt = a}) . _Time instance AWSRequest UpdateExpirationForHIT where type Rs UpdateExpirationForHIT =@@ -132,6 +132,6 @@ -- | -- | The response status code. uefhitrsResponseStatus :: Lens' UpdateExpirationForHITResponse Int-uefhitrsResponseStatus = lens _uefhitrsResponseStatus (\ s a -> s{_uefhitrsResponseStatus = a});+uefhitrsResponseStatus = lens _uefhitrsResponseStatus (\ s a -> s{_uefhitrsResponseStatus = a}) instance NFData UpdateExpirationForHITResponse where
gen/Network/AWS/MechanicalTurk/UpdateHITReviewStatus.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.UpdateHITReviewStatus--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,11 +67,11 @@ -- | Specifies how to update the HIT status. Default is @False@ . * Setting this to false will only transition a HIT from @Reviewable@ to @Reviewing@ * Setting this to true will only transition a HIT from @Reviewing@ to @Reviewable@ uhitrsRevert :: Lens' UpdateHITReviewStatus (Maybe Bool)-uhitrsRevert = lens _uhitrsRevert (\ s a -> s{_uhitrsRevert = a});+uhitrsRevert = lens _uhitrsRevert (\ s a -> s{_uhitrsRevert = a}) -- | The ID of the HIT to update. uhitrsHITId :: Lens' UpdateHITReviewStatus Text-uhitrsHITId = lens _uhitrsHITId (\ s a -> s{_uhitrsHITId = a});+uhitrsHITId = lens _uhitrsHITId (\ s a -> s{_uhitrsHITId = a}) instance AWSRequest UpdateHITReviewStatus where type Rs UpdateHITReviewStatus =@@ -130,6 +130,6 @@ -- | -- | The response status code. uhitrsrsResponseStatus :: Lens' UpdateHITReviewStatusResponse Int-uhitrsrsResponseStatus = lens _uhitrsrsResponseStatus (\ s a -> s{_uhitrsrsResponseStatus = a});+uhitrsrsResponseStatus = lens _uhitrsrsResponseStatus (\ s a -> s{_uhitrsrsResponseStatus = a}) instance NFData UpdateHITReviewStatusResponse where
gen/Network/AWS/MechanicalTurk/UpdateHITTypeOfHIT.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.UpdateHITTypeOfHIT--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -64,16 +64,16 @@ -> UpdateHITTypeOfHIT updateHITTypeOfHIT pHITId_ pHITTypeId_ = UpdateHITTypeOfHIT'- {_uhittohitHITId = pHITId_, _uhittohitHITTypeId = pHITTypeId_}+ {_uhittohitHITId = pHITId_, _uhittohitHITTypeId = pHITTypeId_} -- | The HIT to update. uhittohitHITId :: Lens' UpdateHITTypeOfHIT Text-uhittohitHITId = lens _uhittohitHITId (\ s a -> s{_uhittohitHITId = a});+uhittohitHITId = lens _uhittohitHITId (\ s a -> s{_uhittohitHITId = a}) -- | The ID of the new HIT type. uhittohitHITTypeId :: Lens' UpdateHITTypeOfHIT Text-uhittohitHITTypeId = lens _uhittohitHITTypeId (\ s a -> s{_uhittohitHITTypeId = a});+uhittohitHITTypeId = lens _uhittohitHITTypeId (\ s a -> s{_uhittohitHITTypeId = a}) instance AWSRequest UpdateHITTypeOfHIT where type Rs UpdateHITTypeOfHIT =@@ -131,6 +131,6 @@ -- | -- | The response status code. uhittohitrsResponseStatus :: Lens' UpdateHITTypeOfHITResponse Int-uhittohitrsResponseStatus = lens _uhittohitrsResponseStatus (\ s a -> s{_uhittohitrsResponseStatus = a});+uhittohitrsResponseStatus = lens _uhittohitrsResponseStatus (\ s a -> s{_uhittohitrsResponseStatus = a}) instance NFData UpdateHITTypeOfHITResponse where
gen/Network/AWS/MechanicalTurk/UpdateNotificationSettings.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.UpdateNotificationSettings--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,23 +67,23 @@ -> UpdateNotificationSettings updateNotificationSettings pHITTypeId_ = UpdateNotificationSettings'- { _unsNotification = Nothing- , _unsActive = Nothing- , _unsHITTypeId = pHITTypeId_- }+ { _unsNotification = Nothing+ , _unsActive = Nothing+ , _unsHITTypeId = pHITTypeId_+ } -- | The notification specification for the HIT type. unsNotification :: Lens' UpdateNotificationSettings (Maybe NotificationSpecification)-unsNotification = lens _unsNotification (\ s a -> s{_unsNotification = a});+unsNotification = lens _unsNotification (\ s a -> s{_unsNotification = a}) -- | Specifies whether notifications are sent for HITs of this HIT type, according to the notification specification. You must specify either the Notification parameter or the Active parameter for the call to UpdateNotificationSettings to succeed. unsActive :: Lens' UpdateNotificationSettings (Maybe Bool)-unsActive = lens _unsActive (\ s a -> s{_unsActive = a});+unsActive = lens _unsActive (\ s a -> s{_unsActive = a}) -- | The ID of the HIT type whose notification specification is being updated. unsHITTypeId :: Lens' UpdateNotificationSettings Text-unsHITTypeId = lens _unsHITTypeId (\ s a -> s{_unsHITTypeId = a});+unsHITTypeId = lens _unsHITTypeId (\ s a -> s{_unsHITTypeId = a}) instance AWSRequest UpdateNotificationSettings where type Rs UpdateNotificationSettings =@@ -143,7 +143,7 @@ -- | -- | The response status code. unsrsResponseStatus :: Lens' UpdateNotificationSettingsResponse Int-unsrsResponseStatus = lens _unsrsResponseStatus (\ s a -> s{_unsrsResponseStatus = a});+unsrsResponseStatus = lens _unsrsResponseStatus (\ s a -> s{_unsrsResponseStatus = a}) instance NFData UpdateNotificationSettingsResponse where
gen/Network/AWS/MechanicalTurk/UpdateQualificationType.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.UpdateQualificationType--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -104,53 +104,53 @@ -> UpdateQualificationType updateQualificationType pQualificationTypeId_ = UpdateQualificationType'- { _uqtTestDurationInSeconds = Nothing- , _uqtQualificationTypeStatus = Nothing- , _uqtAnswerKey = Nothing- , _uqtTest = Nothing- , _uqtAutoGranted = Nothing- , _uqtAutoGrantedValue = Nothing- , _uqtDescription = Nothing- , _uqtRetryDelayInSeconds = Nothing- , _uqtQualificationTypeId = pQualificationTypeId_- }+ { _uqtTestDurationInSeconds = Nothing+ , _uqtQualificationTypeStatus = Nothing+ , _uqtAnswerKey = Nothing+ , _uqtTest = Nothing+ , _uqtAutoGranted = Nothing+ , _uqtAutoGrantedValue = Nothing+ , _uqtDescription = Nothing+ , _uqtRetryDelayInSeconds = Nothing+ , _uqtQualificationTypeId = pQualificationTypeId_+ } -- | The number of seconds the Worker has to complete the Qualification test, starting from the time the Worker requests the Qualification. uqtTestDurationInSeconds :: Lens' UpdateQualificationType (Maybe Integer)-uqtTestDurationInSeconds = lens _uqtTestDurationInSeconds (\ s a -> s{_uqtTestDurationInSeconds = a});+uqtTestDurationInSeconds = lens _uqtTestDurationInSeconds (\ s a -> s{_uqtTestDurationInSeconds = a}) -- | The new status of the Qualification type - Active | Inactive uqtQualificationTypeStatus :: Lens' UpdateQualificationType (Maybe QualificationTypeStatus)-uqtQualificationTypeStatus = lens _uqtQualificationTypeStatus (\ s a -> s{_uqtQualificationTypeStatus = a});+uqtQualificationTypeStatus = lens _uqtQualificationTypeStatus (\ s a -> s{_uqtQualificationTypeStatus = a}) -- | The answers to the Qualification test specified in the Test parameter, in the form of an AnswerKey data structure. uqtAnswerKey :: Lens' UpdateQualificationType (Maybe Text)-uqtAnswerKey = lens _uqtAnswerKey (\ s a -> s{_uqtAnswerKey = a});+uqtAnswerKey = lens _uqtAnswerKey (\ s a -> s{_uqtAnswerKey = a}) -- | The questions for the Qualification test a Worker must answer correctly to obtain a Qualification of this type. If this parameter is specified, @TestDurationInSeconds@ must also be specified. Constraints: Must not be longer than 65535 bytes. Must be a QuestionForm data structure. This parameter cannot be specified if AutoGranted is true. Constraints: None. If not specified, the Worker may request the Qualification without answering any questions. uqtTest :: Lens' UpdateQualificationType (Maybe Text)-uqtTest = lens _uqtTest (\ s a -> s{_uqtTest = a});+uqtTest = lens _uqtTest (\ s a -> s{_uqtTest = a}) -- | Specifies whether requests for the Qualification type are granted immediately, without prompting the Worker with a Qualification test. Constraints: If the Test parameter is specified, this parameter cannot be true. uqtAutoGranted :: Lens' UpdateQualificationType (Maybe Bool)-uqtAutoGranted = lens _uqtAutoGranted (\ s a -> s{_uqtAutoGranted = a});+uqtAutoGranted = lens _uqtAutoGranted (\ s a -> s{_uqtAutoGranted = a}) -- | The Qualification value to use for automatically granted Qualifications. This parameter is used only if the AutoGranted parameter is true. uqtAutoGrantedValue :: Lens' UpdateQualificationType (Maybe Int)-uqtAutoGrantedValue = lens _uqtAutoGrantedValue (\ s a -> s{_uqtAutoGrantedValue = a});+uqtAutoGrantedValue = lens _uqtAutoGrantedValue (\ s a -> s{_uqtAutoGrantedValue = a}) -- | The new description of the Qualification type. uqtDescription :: Lens' UpdateQualificationType (Maybe Text)-uqtDescription = lens _uqtDescription (\ s a -> s{_uqtDescription = a});+uqtDescription = lens _uqtDescription (\ s a -> s{_uqtDescription = a}) -- | The amount of time, in seconds, that Workers must wait after requesting a Qualification of the specified Qualification type before they can retry the Qualification request. It is not possible to disable retries for a Qualification type after it has been created with retries enabled. If you want to disable retries, you must dispose of the existing retry-enabled Qualification type using DisposeQualificationType and then create a new Qualification type with retries disabled using CreateQualificationType. uqtRetryDelayInSeconds :: Lens' UpdateQualificationType (Maybe Integer)-uqtRetryDelayInSeconds = lens _uqtRetryDelayInSeconds (\ s a -> s{_uqtRetryDelayInSeconds = a});+uqtRetryDelayInSeconds = lens _uqtRetryDelayInSeconds (\ s a -> s{_uqtRetryDelayInSeconds = a}) -- | The ID of the Qualification type to update. uqtQualificationTypeId :: Lens' UpdateQualificationType Text-uqtQualificationTypeId = lens _uqtQualificationTypeId (\ s a -> s{_uqtQualificationTypeId = a});+uqtQualificationTypeId = lens _uqtQualificationTypeId (\ s a -> s{_uqtQualificationTypeId = a}) instance AWSRequest UpdateQualificationType where type Rs UpdateQualificationType =@@ -219,15 +219,15 @@ -> UpdateQualificationTypeResponse updateQualificationTypeResponse pResponseStatus_ = UpdateQualificationTypeResponse'- {_uqtrsQualificationType = Nothing, _uqtrsResponseStatus = pResponseStatus_}+ {_uqtrsQualificationType = Nothing, _uqtrsResponseStatus = pResponseStatus_} -- | Contains a QualificationType data structure. uqtrsQualificationType :: Lens' UpdateQualificationTypeResponse (Maybe QualificationType)-uqtrsQualificationType = lens _uqtrsQualificationType (\ s a -> s{_uqtrsQualificationType = a});+uqtrsQualificationType = lens _uqtrsQualificationType (\ s a -> s{_uqtrsQualificationType = a}) -- | -- | The response status code. uqtrsResponseStatus :: Lens' UpdateQualificationTypeResponse Int-uqtrsResponseStatus = lens _uqtrsResponseStatus (\ s a -> s{_uqtrsResponseStatus = a});+uqtrsResponseStatus = lens _uqtrsResponseStatus (\ s a -> s{_uqtrsResponseStatus = a}) instance NFData UpdateQualificationTypeResponse where
gen/Network/AWS/MechanicalTurk/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.MechanicalTurk.Waiters--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@ -- | -- Module : Main--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/Gen/MechanicalTurk.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.MechanicalTurk--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/MechanicalTurk.hs view
@@ -1,6 +1,6 @@ -- | -- Module : Test.AWS.MechanicalTurk--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated
test/Test/AWS/MechanicalTurk/Internal.hs view
@@ -1,6 +1,6 @@ -- | -- Module : Test.AWS.MechanicalTurk.Internal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated