amazonka-mechanicalturk 1.6.1 → 2.0

raw patch · 128 files changed

+16135/−10318 lines, 128 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-mechanicalturk.cabal +142/−113
• gen/Amazonka/MechanicalTurk.hs +451/−0
• gen/Amazonka/MechanicalTurk/AcceptQualificationRequest.hs +199/−0
• gen/Amazonka/MechanicalTurk/ApproveAssignment.hs +220/−0
• gen/Amazonka/MechanicalTurk/AssociateQualificationWithWorker.hs +255/−0
• gen/Amazonka/MechanicalTurk/CreateAdditionalAssignmentsForHIT.hs +257/−0
• gen/Amazonka/MechanicalTurk/CreateHIT.hs +607/−0
• gen/Amazonka/MechanicalTurk/CreateHITType.hs +331/−0
• gen/Amazonka/MechanicalTurk/CreateHITWithHITType.hs +449/−0
• gen/Amazonka/MechanicalTurk/CreateQualificationType.hs +432/−0
• gen/Amazonka/MechanicalTurk/CreateWorkerBlock.hs +184/−0
• gen/Amazonka/MechanicalTurk/DeleteHIT.hs +169/−0
• gen/Amazonka/MechanicalTurk/DeleteQualificationType.hs +178/−0
• gen/Amazonka/MechanicalTurk/DeleteWorkerBlock.hs +182/−0
• gen/Amazonka/MechanicalTurk/DisassociateQualificationFromWorker.hs +228/−0
• gen/Amazonka/MechanicalTurk/GetAccountBalance.hs +163/−0
• gen/Amazonka/MechanicalTurk/GetAssignment.hs +184/−0
• gen/Amazonka/MechanicalTurk/GetFileUploadURL.hs +207/−0
• gen/Amazonka/MechanicalTurk/GetHIT.hs +164/−0
• gen/Amazonka/MechanicalTurk/GetQualificationScore.hs +203/−0
• gen/Amazonka/MechanicalTurk/GetQualificationType.hs +175/−0
• gen/Amazonka/MechanicalTurk/Lens.hs +522/−0
• gen/Amazonka/MechanicalTurk/ListAssignmentsForHIT.hs +283/−0
• gen/Amazonka/MechanicalTurk/ListBonusPayments.hs +281/−0
• gen/Amazonka/MechanicalTurk/ListHITs.hs +232/−0
• gen/Amazonka/MechanicalTurk/ListHITsForQualificationType.hs +260/−0
• gen/Amazonka/MechanicalTurk/ListQualificationRequests.hs +266/−0
• gen/Amazonka/MechanicalTurk/ListQualificationTypes.hs +305/−0
• gen/Amazonka/MechanicalTurk/ListReviewPolicyResultsForHIT.hs +336/−0
• gen/Amazonka/MechanicalTurk/ListReviewableHITs.hs +267/−0
• gen/Amazonka/MechanicalTurk/ListWorkerBlocks.hs +237/−0
• gen/Amazonka/MechanicalTurk/ListWorkersWithQualificationType.hs +291/−0
• gen/Amazonka/MechanicalTurk/NotifyWorkers.hs +223/−0
• gen/Amazonka/MechanicalTurk/RejectAssignment.hs +195/−0
• gen/Amazonka/MechanicalTurk/RejectQualificationRequest.hs +193/−0
• gen/Amazonka/MechanicalTurk/SendBonus.hs +251/−0
• gen/Amazonka/MechanicalTurk/SendTestEventNotification.hs +203/−0
• gen/Amazonka/MechanicalTurk/Types.hs +361/−0
• gen/Amazonka/MechanicalTurk/Types/Assignment.hs +264/−0
• gen/Amazonka/MechanicalTurk/Types/AssignmentStatus.hs +76/−0
• gen/Amazonka/MechanicalTurk/Types/BonusPayment.hs +119/−0
• gen/Amazonka/MechanicalTurk/Types/Comparator.hs +111/−0
• gen/Amazonka/MechanicalTurk/Types/EventType.hs +121/−0
• gen/Amazonka/MechanicalTurk/Types/HIT.hs +382/−0
• gen/Amazonka/MechanicalTurk/Types/HITAccessActions.hs +76/−0
• gen/Amazonka/MechanicalTurk/Types/HITLayoutParameter.hs +86/−0
• gen/Amazonka/MechanicalTurk/Types/HITReviewStatus.hs +81/−0
• gen/Amazonka/MechanicalTurk/Types/HITStatus.hs +86/−0
• gen/Amazonka/MechanicalTurk/Types/Locale.hs +101/−0
• gen/Amazonka/MechanicalTurk/Types/NotificationSpecification.hs +159/−0
• gen/Amazonka/MechanicalTurk/Types/NotificationTransport.hs +76/−0
• gen/Amazonka/MechanicalTurk/Types/NotifyWorkersFailureCode.hs +71/−0
• gen/Amazonka/MechanicalTurk/Types/NotifyWorkersFailureStatus.hs +99/−0
• gen/Amazonka/MechanicalTurk/Types/ParameterMapEntry.hs +105/−0
• gen/Amazonka/MechanicalTurk/Types/PolicyParameter.hs +107/−0
• gen/Amazonka/MechanicalTurk/Types/Qualification.hs +146/−0
• gen/Amazonka/MechanicalTurk/Types/QualificationRequest.hs +166/−0
• gen/Amazonka/MechanicalTurk/Types/QualificationRequirement.hs +312/−0
• gen/Amazonka/MechanicalTurk/Types/QualificationStatus.hs +71/−0
• gen/Amazonka/MechanicalTurk/Types/QualificationType.hs +296/−0
• gen/Amazonka/MechanicalTurk/Types/QualificationTypeStatus.hs +71/−0
• gen/Amazonka/MechanicalTurk/Types/ReviewActionDetail.hs +168/−0
• gen/Amazonka/MechanicalTurk/Types/ReviewActionStatus.hs +81/−0
• gen/Amazonka/MechanicalTurk/Types/ReviewPolicy.hs +100/−0
• gen/Amazonka/MechanicalTurk/Types/ReviewPolicyLevel.hs +71/−0
• gen/Amazonka/MechanicalTurk/Types/ReviewReport.hs +93/−0
• gen/Amazonka/MechanicalTurk/Types/ReviewResultDetail.hs +157/−0
• gen/Amazonka/MechanicalTurk/Types/ReviewableHITStatus.hs +71/−0
• gen/Amazonka/MechanicalTurk/Types/WorkerBlock.hs +85/−0
• gen/Amazonka/MechanicalTurk/UpdateExpirationForHIT.hs +181/−0
• gen/Amazonka/MechanicalTurk/UpdateHITReviewStatus.hs +194/−0
• gen/Amazonka/MechanicalTurk/UpdateHITTypeOfHIT.hs +180/−0
• gen/Amazonka/MechanicalTurk/UpdateNotificationSettings.hs +213/−0
• gen/Amazonka/MechanicalTurk/UpdateQualificationType.hs +389/−0
• gen/Amazonka/MechanicalTurk/Waiters.hs +24/−0
• gen/Network/AWS/MechanicalTurk.hs +0/−441
• gen/Network/AWS/MechanicalTurk/AcceptQualificationRequest.hs +0/−145
• gen/Network/AWS/MechanicalTurk/ApproveAssignment.hs +0/−158
• gen/Network/AWS/MechanicalTurk/AssociateQualificationWithWorker.hs +0/−172
• gen/Network/AWS/MechanicalTurk/CreateAdditionalAssignmentsForHIT.hs +0/−164
• gen/Network/AWS/MechanicalTurk/CreateHIT.hs +0/−304
• gen/Network/AWS/MechanicalTurk/CreateHITType.hs +0/−203
• gen/Network/AWS/MechanicalTurk/CreateHITWithHITType.hs +0/−239
• gen/Network/AWS/MechanicalTurk/CreateQualificationType.hs +0/−233
• gen/Network/AWS/MechanicalTurk/CreateWorkerBlock.hs +0/−134
• gen/Network/AWS/MechanicalTurk/DeleteHIT.hs +0/−123
• gen/Network/AWS/MechanicalTurk/DeleteQualificationType.hs +0/−129
• gen/Network/AWS/MechanicalTurk/DeleteWorkerBlock.hs +0/−133
• gen/Network/AWS/MechanicalTurk/DisassociateQualificationFromWorker.hs +0/−164
• gen/Network/AWS/MechanicalTurk/GetAccountBalance.hs +0/−133
• gen/Network/AWS/MechanicalTurk/GetAssignment.hs +0/−145
• gen/Network/AWS/MechanicalTurk/GetFileUploadURL.hs +0/−148
• gen/Network/AWS/MechanicalTurk/GetHIT.hs +0/−131
• gen/Network/AWS/MechanicalTurk/GetQualificationScore.hs +0/−151
• gen/Network/AWS/MechanicalTurk/GetQualificationType.hs +0/−136
• gen/Network/AWS/MechanicalTurk/ListAssignmentsForHIT.hs +0/−209
• gen/Network/AWS/MechanicalTurk/ListBonusPayments.hs +0/−198
• gen/Network/AWS/MechanicalTurk/ListHITs.hs +0/−173
• gen/Network/AWS/MechanicalTurk/ListHITsForQualificationType.hs +0/−194
• gen/Network/AWS/MechanicalTurk/ListQualificationRequests.hs +0/−191
• gen/Network/AWS/MechanicalTurk/ListQualificationTypes.hs +0/−211
• gen/Network/AWS/MechanicalTurk/ListReviewPolicyResultsForHIT.hs +0/−243
• gen/Network/AWS/MechanicalTurk/ListReviewableHITs.hs +0/−198
• gen/Network/AWS/MechanicalTurk/ListWorkerBlocks.hs +0/−175
• gen/Network/AWS/MechanicalTurk/ListWorkersWithQualificationType.hs +0/−211
• gen/Network/AWS/MechanicalTurk/NotifyWorkers.hs +0/−160
• gen/Network/AWS/MechanicalTurk/RejectAssignment.hs +0/−141
• gen/Network/AWS/MechanicalTurk/RejectQualificationRequest.hs +0/−143
• gen/Network/AWS/MechanicalTurk/SendBonus.hs +0/−169
• gen/Network/AWS/MechanicalTurk/SendTestEventNotification.hs +0/−138
• gen/Network/AWS/MechanicalTurk/Types.hs +0/−296
• gen/Network/AWS/MechanicalTurk/Types/Product.hs +0/−1503
• gen/Network/AWS/MechanicalTurk/Types/Sum.hs +0/−470
• gen/Network/AWS/MechanicalTurk/UpdateExpirationForHIT.hs +0/−137
• gen/Network/AWS/MechanicalTurk/UpdateHITReviewStatus.hs +0/−135
• gen/Network/AWS/MechanicalTurk/UpdateHITTypeOfHIT.hs +0/−136
• gen/Network/AWS/MechanicalTurk/UpdateNotificationSettings.hs +0/−149
• gen/Network/AWS/MechanicalTurk/UpdateQualificationType.hs +0/−233
• gen/Network/AWS/MechanicalTurk/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/MechanicalTurk.hs +0/−741
• test/Test/AWS/MechanicalTurk.hs +0/−20
• test/Test/AWS/MechanicalTurk/Internal.hs +0/−9
• test/Test/Amazonka/Gen/MechanicalTurk.hs +818/−0
• test/Test/Amazonka/MechanicalTurk.hs +20/−0
• test/Test/Amazonka/MechanicalTurk/Internal.hs +8/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2017-01-17@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.MechanicalTurk](http://hackage.haskell.org/package/amazonka-mechanicalturk/docs/Network-AWS-MechanicalTurk.html)+See [Amazonka.MechanicalTurk](http://hackage.haskell.org/package/amazonka-mechanicalturk/docs/Amazonka-MechanicalTurk.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,124 +1,153 @@-name:                  amazonka-mechanicalturk-version:               1.6.1-synopsis:              Amazon Mechanical Turk SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-mechanicalturk+version:            2.0+synopsis:           Amazon Mechanical Turk SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.MechanicalTurk" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-01-17@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.MechanicalTurk.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.MechanicalTurk" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-mechanicalturk+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-mechanicalturk  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.MechanicalTurk-        , Network.AWS.MechanicalTurk.AcceptQualificationRequest-        , Network.AWS.MechanicalTurk.ApproveAssignment-        , Network.AWS.MechanicalTurk.AssociateQualificationWithWorker-        , Network.AWS.MechanicalTurk.CreateAdditionalAssignmentsForHIT-        , Network.AWS.MechanicalTurk.CreateHIT-        , Network.AWS.MechanicalTurk.CreateHITType-        , Network.AWS.MechanicalTurk.CreateHITWithHITType-        , Network.AWS.MechanicalTurk.CreateQualificationType-        , Network.AWS.MechanicalTurk.CreateWorkerBlock-        , Network.AWS.MechanicalTurk.DeleteHIT-        , Network.AWS.MechanicalTurk.DeleteQualificationType-        , Network.AWS.MechanicalTurk.DeleteWorkerBlock-        , Network.AWS.MechanicalTurk.DisassociateQualificationFromWorker-        , Network.AWS.MechanicalTurk.GetAccountBalance-        , Network.AWS.MechanicalTurk.GetAssignment-        , Network.AWS.MechanicalTurk.GetFileUploadURL-        , Network.AWS.MechanicalTurk.GetHIT-        , Network.AWS.MechanicalTurk.GetQualificationScore-        , Network.AWS.MechanicalTurk.GetQualificationType-        , Network.AWS.MechanicalTurk.ListAssignmentsForHIT-        , Network.AWS.MechanicalTurk.ListBonusPayments-        , Network.AWS.MechanicalTurk.ListHITs-        , Network.AWS.MechanicalTurk.ListHITsForQualificationType-        , Network.AWS.MechanicalTurk.ListQualificationRequests-        , Network.AWS.MechanicalTurk.ListQualificationTypes-        , Network.AWS.MechanicalTurk.ListReviewPolicyResultsForHIT-        , Network.AWS.MechanicalTurk.ListReviewableHITs-        , Network.AWS.MechanicalTurk.ListWorkerBlocks-        , Network.AWS.MechanicalTurk.ListWorkersWithQualificationType-        , Network.AWS.MechanicalTurk.NotifyWorkers-        , Network.AWS.MechanicalTurk.RejectAssignment-        , Network.AWS.MechanicalTurk.RejectQualificationRequest-        , Network.AWS.MechanicalTurk.SendBonus-        , Network.AWS.MechanicalTurk.SendTestEventNotification-        , Network.AWS.MechanicalTurk.Types-        , Network.AWS.MechanicalTurk.UpdateExpirationForHIT-        , Network.AWS.MechanicalTurk.UpdateHITReviewStatus-        , Network.AWS.MechanicalTurk.UpdateHITTypeOfHIT-        , Network.AWS.MechanicalTurk.UpdateNotificationSettings-        , Network.AWS.MechanicalTurk.UpdateQualificationType-        , Network.AWS.MechanicalTurk.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.MechanicalTurk.Types.Product-        , Network.AWS.MechanicalTurk.Types.Sum+  exposed-modules:+    Amazonka.MechanicalTurk+    Amazonka.MechanicalTurk.AcceptQualificationRequest+    Amazonka.MechanicalTurk.ApproveAssignment+    Amazonka.MechanicalTurk.AssociateQualificationWithWorker+    Amazonka.MechanicalTurk.CreateAdditionalAssignmentsForHIT+    Amazonka.MechanicalTurk.CreateHIT+    Amazonka.MechanicalTurk.CreateHITType+    Amazonka.MechanicalTurk.CreateHITWithHITType+    Amazonka.MechanicalTurk.CreateQualificationType+    Amazonka.MechanicalTurk.CreateWorkerBlock+    Amazonka.MechanicalTurk.DeleteHIT+    Amazonka.MechanicalTurk.DeleteQualificationType+    Amazonka.MechanicalTurk.DeleteWorkerBlock+    Amazonka.MechanicalTurk.DisassociateQualificationFromWorker+    Amazonka.MechanicalTurk.GetAccountBalance+    Amazonka.MechanicalTurk.GetAssignment+    Amazonka.MechanicalTurk.GetFileUploadURL+    Amazonka.MechanicalTurk.GetHIT+    Amazonka.MechanicalTurk.GetQualificationScore+    Amazonka.MechanicalTurk.GetQualificationType+    Amazonka.MechanicalTurk.Lens+    Amazonka.MechanicalTurk.ListAssignmentsForHIT+    Amazonka.MechanicalTurk.ListBonusPayments+    Amazonka.MechanicalTurk.ListHITs+    Amazonka.MechanicalTurk.ListHITsForQualificationType+    Amazonka.MechanicalTurk.ListQualificationRequests+    Amazonka.MechanicalTurk.ListQualificationTypes+    Amazonka.MechanicalTurk.ListReviewableHITs+    Amazonka.MechanicalTurk.ListReviewPolicyResultsForHIT+    Amazonka.MechanicalTurk.ListWorkerBlocks+    Amazonka.MechanicalTurk.ListWorkersWithQualificationType+    Amazonka.MechanicalTurk.NotifyWorkers+    Amazonka.MechanicalTurk.RejectAssignment+    Amazonka.MechanicalTurk.RejectQualificationRequest+    Amazonka.MechanicalTurk.SendBonus+    Amazonka.MechanicalTurk.SendTestEventNotification+    Amazonka.MechanicalTurk.Types+    Amazonka.MechanicalTurk.Types.Assignment+    Amazonka.MechanicalTurk.Types.AssignmentStatus+    Amazonka.MechanicalTurk.Types.BonusPayment+    Amazonka.MechanicalTurk.Types.Comparator+    Amazonka.MechanicalTurk.Types.EventType+    Amazonka.MechanicalTurk.Types.HIT+    Amazonka.MechanicalTurk.Types.HITAccessActions+    Amazonka.MechanicalTurk.Types.HITLayoutParameter+    Amazonka.MechanicalTurk.Types.HITReviewStatus+    Amazonka.MechanicalTurk.Types.HITStatus+    Amazonka.MechanicalTurk.Types.Locale+    Amazonka.MechanicalTurk.Types.NotificationSpecification+    Amazonka.MechanicalTurk.Types.NotificationTransport+    Amazonka.MechanicalTurk.Types.NotifyWorkersFailureCode+    Amazonka.MechanicalTurk.Types.NotifyWorkersFailureStatus+    Amazonka.MechanicalTurk.Types.ParameterMapEntry+    Amazonka.MechanicalTurk.Types.PolicyParameter+    Amazonka.MechanicalTurk.Types.Qualification+    Amazonka.MechanicalTurk.Types.QualificationRequest+    Amazonka.MechanicalTurk.Types.QualificationRequirement+    Amazonka.MechanicalTurk.Types.QualificationStatus+    Amazonka.MechanicalTurk.Types.QualificationType+    Amazonka.MechanicalTurk.Types.QualificationTypeStatus+    Amazonka.MechanicalTurk.Types.ReviewableHITStatus+    Amazonka.MechanicalTurk.Types.ReviewActionDetail+    Amazonka.MechanicalTurk.Types.ReviewActionStatus+    Amazonka.MechanicalTurk.Types.ReviewPolicy+    Amazonka.MechanicalTurk.Types.ReviewPolicyLevel+    Amazonka.MechanicalTurk.Types.ReviewReport+    Amazonka.MechanicalTurk.Types.ReviewResultDetail+    Amazonka.MechanicalTurk.Types.WorkerBlock+    Amazonka.MechanicalTurk.UpdateExpirationForHIT+    Amazonka.MechanicalTurk.UpdateHITReviewStatus+    Amazonka.MechanicalTurk.UpdateHITTypeOfHIT+    Amazonka.MechanicalTurk.UpdateNotificationSettings+    Amazonka.MechanicalTurk.UpdateQualificationType+    Amazonka.MechanicalTurk.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-mechanicalturk-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.MechanicalTurk-        , Test.AWS.Gen.MechanicalTurk-        , Test.AWS.MechanicalTurk.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.MechanicalTurk+    Test.Amazonka.MechanicalTurk+    Test.Amazonka.MechanicalTurk.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-mechanicalturk-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core            >=2.0 && <2.1+    , amazonka-mechanicalturk+    , amazonka-test            >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,451 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.MechanicalTurk+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2017-01-17@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Mechanical Turk API Reference+module Amazonka.MechanicalTurk+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** RequestError+    _RequestError,++    -- ** ServiceFault+    _ServiceFault,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** AcceptQualificationRequest+    AcceptQualificationRequest (AcceptQualificationRequest'),+    newAcceptQualificationRequest,+    AcceptQualificationRequestResponse (AcceptQualificationRequestResponse'),+    newAcceptQualificationRequestResponse,++    -- ** ApproveAssignment+    ApproveAssignment (ApproveAssignment'),+    newApproveAssignment,+    ApproveAssignmentResponse (ApproveAssignmentResponse'),+    newApproveAssignmentResponse,++    -- ** AssociateQualificationWithWorker+    AssociateQualificationWithWorker (AssociateQualificationWithWorker'),+    newAssociateQualificationWithWorker,+    AssociateQualificationWithWorkerResponse (AssociateQualificationWithWorkerResponse'),+    newAssociateQualificationWithWorkerResponse,++    -- ** CreateAdditionalAssignmentsForHIT+    CreateAdditionalAssignmentsForHIT (CreateAdditionalAssignmentsForHIT'),+    newCreateAdditionalAssignmentsForHIT,+    CreateAdditionalAssignmentsForHITResponse (CreateAdditionalAssignmentsForHITResponse'),+    newCreateAdditionalAssignmentsForHITResponse,++    -- ** CreateHIT+    CreateHIT (CreateHIT'),+    newCreateHIT,+    CreateHITResponse (CreateHITResponse'),+    newCreateHITResponse,++    -- ** CreateHITType+    CreateHITType (CreateHITType'),+    newCreateHITType,+    CreateHITTypeResponse (CreateHITTypeResponse'),+    newCreateHITTypeResponse,++    -- ** CreateHITWithHITType+    CreateHITWithHITType (CreateHITWithHITType'),+    newCreateHITWithHITType,+    CreateHITWithHITTypeResponse (CreateHITWithHITTypeResponse'),+    newCreateHITWithHITTypeResponse,++    -- ** CreateQualificationType+    CreateQualificationType (CreateQualificationType'),+    newCreateQualificationType,+    CreateQualificationTypeResponse (CreateQualificationTypeResponse'),+    newCreateQualificationTypeResponse,++    -- ** CreateWorkerBlock+    CreateWorkerBlock (CreateWorkerBlock'),+    newCreateWorkerBlock,+    CreateWorkerBlockResponse (CreateWorkerBlockResponse'),+    newCreateWorkerBlockResponse,++    -- ** DeleteHIT+    DeleteHIT (DeleteHIT'),+    newDeleteHIT,+    DeleteHITResponse (DeleteHITResponse'),+    newDeleteHITResponse,++    -- ** DeleteQualificationType+    DeleteQualificationType (DeleteQualificationType'),+    newDeleteQualificationType,+    DeleteQualificationTypeResponse (DeleteQualificationTypeResponse'),+    newDeleteQualificationTypeResponse,++    -- ** DeleteWorkerBlock+    DeleteWorkerBlock (DeleteWorkerBlock'),+    newDeleteWorkerBlock,+    DeleteWorkerBlockResponse (DeleteWorkerBlockResponse'),+    newDeleteWorkerBlockResponse,++    -- ** DisassociateQualificationFromWorker+    DisassociateQualificationFromWorker (DisassociateQualificationFromWorker'),+    newDisassociateQualificationFromWorker,+    DisassociateQualificationFromWorkerResponse (DisassociateQualificationFromWorkerResponse'),+    newDisassociateQualificationFromWorkerResponse,++    -- ** GetAccountBalance+    GetAccountBalance (GetAccountBalance'),+    newGetAccountBalance,+    GetAccountBalanceResponse (GetAccountBalanceResponse'),+    newGetAccountBalanceResponse,++    -- ** GetAssignment+    GetAssignment (GetAssignment'),+    newGetAssignment,+    GetAssignmentResponse (GetAssignmentResponse'),+    newGetAssignmentResponse,++    -- ** GetFileUploadURL+    GetFileUploadURL (GetFileUploadURL'),+    newGetFileUploadURL,+    GetFileUploadURLResponse (GetFileUploadURLResponse'),+    newGetFileUploadURLResponse,++    -- ** GetHIT+    GetHIT (GetHIT'),+    newGetHIT,+    GetHITResponse (GetHITResponse'),+    newGetHITResponse,++    -- ** GetQualificationScore+    GetQualificationScore (GetQualificationScore'),+    newGetQualificationScore,+    GetQualificationScoreResponse (GetQualificationScoreResponse'),+    newGetQualificationScoreResponse,++    -- ** GetQualificationType+    GetQualificationType (GetQualificationType'),+    newGetQualificationType,+    GetQualificationTypeResponse (GetQualificationTypeResponse'),+    newGetQualificationTypeResponse,++    -- ** ListAssignmentsForHIT (Paginated)+    ListAssignmentsForHIT (ListAssignmentsForHIT'),+    newListAssignmentsForHIT,+    ListAssignmentsForHITResponse (ListAssignmentsForHITResponse'),+    newListAssignmentsForHITResponse,++    -- ** ListBonusPayments (Paginated)+    ListBonusPayments (ListBonusPayments'),+    newListBonusPayments,+    ListBonusPaymentsResponse (ListBonusPaymentsResponse'),+    newListBonusPaymentsResponse,++    -- ** ListHITs (Paginated)+    ListHITs (ListHITs'),+    newListHITs,+    ListHITsResponse (ListHITsResponse'),+    newListHITsResponse,++    -- ** ListHITsForQualificationType (Paginated)+    ListHITsForQualificationType (ListHITsForQualificationType'),+    newListHITsForQualificationType,+    ListHITsForQualificationTypeResponse (ListHITsForQualificationTypeResponse'),+    newListHITsForQualificationTypeResponse,++    -- ** ListQualificationRequests (Paginated)+    ListQualificationRequests (ListQualificationRequests'),+    newListQualificationRequests,+    ListQualificationRequestsResponse (ListQualificationRequestsResponse'),+    newListQualificationRequestsResponse,++    -- ** ListQualificationTypes (Paginated)+    ListQualificationTypes (ListQualificationTypes'),+    newListQualificationTypes,+    ListQualificationTypesResponse (ListQualificationTypesResponse'),+    newListQualificationTypesResponse,++    -- ** ListReviewPolicyResultsForHIT+    ListReviewPolicyResultsForHIT (ListReviewPolicyResultsForHIT'),+    newListReviewPolicyResultsForHIT,+    ListReviewPolicyResultsForHITResponse (ListReviewPolicyResultsForHITResponse'),+    newListReviewPolicyResultsForHITResponse,++    -- ** ListReviewableHITs (Paginated)+    ListReviewableHITs (ListReviewableHITs'),+    newListReviewableHITs,+    ListReviewableHITsResponse (ListReviewableHITsResponse'),+    newListReviewableHITsResponse,++    -- ** ListWorkerBlocks (Paginated)+    ListWorkerBlocks (ListWorkerBlocks'),+    newListWorkerBlocks,+    ListWorkerBlocksResponse (ListWorkerBlocksResponse'),+    newListWorkerBlocksResponse,++    -- ** ListWorkersWithQualificationType (Paginated)+    ListWorkersWithQualificationType (ListWorkersWithQualificationType'),+    newListWorkersWithQualificationType,+    ListWorkersWithQualificationTypeResponse (ListWorkersWithQualificationTypeResponse'),+    newListWorkersWithQualificationTypeResponse,++    -- ** NotifyWorkers+    NotifyWorkers (NotifyWorkers'),+    newNotifyWorkers,+    NotifyWorkersResponse (NotifyWorkersResponse'),+    newNotifyWorkersResponse,++    -- ** RejectAssignment+    RejectAssignment (RejectAssignment'),+    newRejectAssignment,+    RejectAssignmentResponse (RejectAssignmentResponse'),+    newRejectAssignmentResponse,++    -- ** RejectQualificationRequest+    RejectQualificationRequest (RejectQualificationRequest'),+    newRejectQualificationRequest,+    RejectQualificationRequestResponse (RejectQualificationRequestResponse'),+    newRejectQualificationRequestResponse,++    -- ** SendBonus+    SendBonus (SendBonus'),+    newSendBonus,+    SendBonusResponse (SendBonusResponse'),+    newSendBonusResponse,++    -- ** SendTestEventNotification+    SendTestEventNotification (SendTestEventNotification'),+    newSendTestEventNotification,+    SendTestEventNotificationResponse (SendTestEventNotificationResponse'),+    newSendTestEventNotificationResponse,++    -- ** UpdateExpirationForHIT+    UpdateExpirationForHIT (UpdateExpirationForHIT'),+    newUpdateExpirationForHIT,+    UpdateExpirationForHITResponse (UpdateExpirationForHITResponse'),+    newUpdateExpirationForHITResponse,++    -- ** UpdateHITReviewStatus+    UpdateHITReviewStatus (UpdateHITReviewStatus'),+    newUpdateHITReviewStatus,+    UpdateHITReviewStatusResponse (UpdateHITReviewStatusResponse'),+    newUpdateHITReviewStatusResponse,++    -- ** UpdateHITTypeOfHIT+    UpdateHITTypeOfHIT (UpdateHITTypeOfHIT'),+    newUpdateHITTypeOfHIT,+    UpdateHITTypeOfHITResponse (UpdateHITTypeOfHITResponse'),+    newUpdateHITTypeOfHITResponse,++    -- ** UpdateNotificationSettings+    UpdateNotificationSettings (UpdateNotificationSettings'),+    newUpdateNotificationSettings,+    UpdateNotificationSettingsResponse (UpdateNotificationSettingsResponse'),+    newUpdateNotificationSettingsResponse,++    -- ** UpdateQualificationType+    UpdateQualificationType (UpdateQualificationType'),+    newUpdateQualificationType,+    UpdateQualificationTypeResponse (UpdateQualificationTypeResponse'),+    newUpdateQualificationTypeResponse,++    -- * Types++    -- ** AssignmentStatus+    AssignmentStatus (..),++    -- ** Comparator+    Comparator (..),++    -- ** EventType+    EventType (..),++    -- ** HITAccessActions+    HITAccessActions (..),++    -- ** HITReviewStatus+    HITReviewStatus (..),++    -- ** HITStatus+    HITStatus (..),++    -- ** NotificationTransport+    NotificationTransport (..),++    -- ** NotifyWorkersFailureCode+    NotifyWorkersFailureCode (..),++    -- ** QualificationStatus+    QualificationStatus (..),++    -- ** QualificationTypeStatus+    QualificationTypeStatus (..),++    -- ** ReviewActionStatus+    ReviewActionStatus (..),++    -- ** ReviewPolicyLevel+    ReviewPolicyLevel (..),++    -- ** ReviewableHITStatus+    ReviewableHITStatus (..),++    -- ** Assignment+    Assignment (Assignment'),+    newAssignment,++    -- ** BonusPayment+    BonusPayment (BonusPayment'),+    newBonusPayment,++    -- ** HIT+    HIT (HIT'),+    newHIT,++    -- ** HITLayoutParameter+    HITLayoutParameter (HITLayoutParameter'),+    newHITLayoutParameter,++    -- ** Locale+    Locale (Locale'),+    newLocale,++    -- ** NotificationSpecification+    NotificationSpecification (NotificationSpecification'),+    newNotificationSpecification,++    -- ** NotifyWorkersFailureStatus+    NotifyWorkersFailureStatus (NotifyWorkersFailureStatus'),+    newNotifyWorkersFailureStatus,++    -- ** ParameterMapEntry+    ParameterMapEntry (ParameterMapEntry'),+    newParameterMapEntry,++    -- ** PolicyParameter+    PolicyParameter (PolicyParameter'),+    newPolicyParameter,++    -- ** Qualification+    Qualification (Qualification'),+    newQualification,++    -- ** QualificationRequest+    QualificationRequest (QualificationRequest'),+    newQualificationRequest,++    -- ** QualificationRequirement+    QualificationRequirement (QualificationRequirement'),+    newQualificationRequirement,++    -- ** QualificationType+    QualificationType (QualificationType'),+    newQualificationType,++    -- ** ReviewActionDetail+    ReviewActionDetail (ReviewActionDetail'),+    newReviewActionDetail,++    -- ** ReviewPolicy+    ReviewPolicy (ReviewPolicy'),+    newReviewPolicy,++    -- ** ReviewReport+    ReviewReport (ReviewReport'),+    newReviewReport,++    -- ** ReviewResultDetail+    ReviewResultDetail (ReviewResultDetail'),+    newReviewResultDetail,++    -- ** WorkerBlock+    WorkerBlock (WorkerBlock'),+    newWorkerBlock,+  )+where++import Amazonka.MechanicalTurk.AcceptQualificationRequest+import Amazonka.MechanicalTurk.ApproveAssignment+import Amazonka.MechanicalTurk.AssociateQualificationWithWorker+import Amazonka.MechanicalTurk.CreateAdditionalAssignmentsForHIT+import Amazonka.MechanicalTurk.CreateHIT+import Amazonka.MechanicalTurk.CreateHITType+import Amazonka.MechanicalTurk.CreateHITWithHITType+import Amazonka.MechanicalTurk.CreateQualificationType+import Amazonka.MechanicalTurk.CreateWorkerBlock+import Amazonka.MechanicalTurk.DeleteHIT+import Amazonka.MechanicalTurk.DeleteQualificationType+import Amazonka.MechanicalTurk.DeleteWorkerBlock+import Amazonka.MechanicalTurk.DisassociateQualificationFromWorker+import Amazonka.MechanicalTurk.GetAccountBalance+import Amazonka.MechanicalTurk.GetAssignment+import Amazonka.MechanicalTurk.GetFileUploadURL+import Amazonka.MechanicalTurk.GetHIT+import Amazonka.MechanicalTurk.GetQualificationScore+import Amazonka.MechanicalTurk.GetQualificationType+import Amazonka.MechanicalTurk.Lens+import Amazonka.MechanicalTurk.ListAssignmentsForHIT+import Amazonka.MechanicalTurk.ListBonusPayments+import Amazonka.MechanicalTurk.ListHITs+import Amazonka.MechanicalTurk.ListHITsForQualificationType+import Amazonka.MechanicalTurk.ListQualificationRequests+import Amazonka.MechanicalTurk.ListQualificationTypes+import Amazonka.MechanicalTurk.ListReviewPolicyResultsForHIT+import Amazonka.MechanicalTurk.ListReviewableHITs+import Amazonka.MechanicalTurk.ListWorkerBlocks+import Amazonka.MechanicalTurk.ListWorkersWithQualificationType+import Amazonka.MechanicalTurk.NotifyWorkers+import Amazonka.MechanicalTurk.RejectAssignment+import Amazonka.MechanicalTurk.RejectQualificationRequest+import Amazonka.MechanicalTurk.SendBonus+import Amazonka.MechanicalTurk.SendTestEventNotification+import Amazonka.MechanicalTurk.Types+import Amazonka.MechanicalTurk.UpdateExpirationForHIT+import Amazonka.MechanicalTurk.UpdateHITReviewStatus+import Amazonka.MechanicalTurk.UpdateHITTypeOfHIT+import Amazonka.MechanicalTurk.UpdateNotificationSettings+import Amazonka.MechanicalTurk.UpdateQualificationType+import Amazonka.MechanicalTurk.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'MechanicalTurk'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.

@@ -0,0 +1,199 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MechanicalTurk.AcceptQualificationRequest+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The @AcceptQualificationRequest@ operation approves a Worker\'s request+-- for a Qualification.+--+-- Only the owner of the Qualification type can grant a Qualification+-- request for that type.+--+-- A successful request for the @AcceptQualificationRequest@ operation+-- returns with no errors and an empty body.+module Amazonka.MechanicalTurk.AcceptQualificationRequest+  ( -- * Creating a Request+    AcceptQualificationRequest (..),+    newAcceptQualificationRequest,++    -- * Request Lenses+    acceptQualificationRequest_integerValue,+    acceptQualificationRequest_qualificationRequestId,++    -- * Destructuring the Response+    AcceptQualificationRequestResponse (..),+    newAcceptQualificationRequestResponse,++    -- * Response Lenses+    acceptQualificationRequestResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MechanicalTurk.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAcceptQualificationRequest' smart constructor.+data AcceptQualificationRequest = AcceptQualificationRequest'+  { -- | 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.+    integerValue :: Prelude.Maybe Prelude.Int,+    -- | The ID of the Qualification request, as returned by the+    -- @GetQualificationRequests@ operation.+    qualificationRequestId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptQualificationRequest' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'integerValue', 'acceptQualificationRequest_integerValue' - 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.+--+-- 'qualificationRequestId', 'acceptQualificationRequest_qualificationRequestId' - The ID of the Qualification request, as returned by the+-- @GetQualificationRequests@ operation.+newAcceptQualificationRequest ::+  -- | 'qualificationRequestId'+  Prelude.Text ->+  AcceptQualificationRequest+newAcceptQualificationRequest+  pQualificationRequestId_ =+    AcceptQualificationRequest'+      { integerValue =+          Prelude.Nothing,+        qualificationRequestId =+          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.+acceptQualificationRequest_integerValue :: Lens.Lens' AcceptQualificationRequest (Prelude.Maybe Prelude.Int)+acceptQualificationRequest_integerValue = Lens.lens (\AcceptQualificationRequest' {integerValue} -> integerValue) (\s@AcceptQualificationRequest' {} a -> s {integerValue = a} :: AcceptQualificationRequest)++-- | The ID of the Qualification request, as returned by the+-- @GetQualificationRequests@ operation.+acceptQualificationRequest_qualificationRequestId :: Lens.Lens' AcceptQualificationRequest Prelude.Text+acceptQualificationRequest_qualificationRequestId = Lens.lens (\AcceptQualificationRequest' {qualificationRequestId} -> qualificationRequestId) (\s@AcceptQualificationRequest' {} a -> s {qualificationRequestId = a} :: AcceptQualificationRequest)++instance Core.AWSRequest AcceptQualificationRequest where+  type+    AWSResponse AcceptQualificationRequest =+      AcceptQualificationRequestResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          AcceptQualificationRequestResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AcceptQualificationRequest where+  hashWithSalt _salt AcceptQualificationRequest' {..} =+    _salt+      `Prelude.hashWithSalt` integerValue+      `Prelude.hashWithSalt` qualificationRequestId++instance Prelude.NFData AcceptQualificationRequest where+  rnf AcceptQualificationRequest' {..} =+    Prelude.rnf integerValue+      `Prelude.seq` Prelude.rnf qualificationRequestId++instance Data.ToHeaders AcceptQualificationRequest where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MTurkRequesterServiceV20170117.AcceptQualificationRequest" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AcceptQualificationRequest where+  toJSON AcceptQualificationRequest' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("IntegerValue" Data..=) Prelude.<$> integerValue,+            Prelude.Just+              ( "QualificationRequestId"+                  Data..= qualificationRequestId+              )+          ]+      )++instance Data.ToPath AcceptQualificationRequest where+  toPath = Prelude.const "/"++instance Data.ToQuery AcceptQualificationRequest where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAcceptQualificationRequestResponse' smart constructor.+data AcceptQualificationRequestResponse = AcceptQualificationRequestResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptQualificationRequestResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'acceptQualificationRequestResponse_httpStatus' - The response's http status code.+newAcceptQualificationRequestResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AcceptQualificationRequestResponse+newAcceptQualificationRequestResponse pHttpStatus_ =+  AcceptQualificationRequestResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+acceptQualificationRequestResponse_httpStatus :: Lens.Lens' AcceptQualificationRequestResponse Prelude.Int+acceptQualificationRequestResponse_httpStatus = Lens.lens (\AcceptQualificationRequestResponse' {httpStatus} -> httpStatus) (\s@AcceptQualificationRequestResponse' {} a -> s {httpStatus = a} :: AcceptQualificationRequestResponse)++instance+  Prelude.NFData+    AcceptQualificationRequestResponse+  where+  rnf AcceptQualificationRequestResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MechanicalTurk.ApproveAssignment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The @ApproveAssignment@ operation approves the results of a completed+-- assignment.+--+-- Approving an assignment initiates two payments from the Requester\'s+-- Amazon.com account+--+-- -   The Worker who submitted the results is paid the reward specified in+--     the HIT.+--+-- -   Amazon Mechanical Turk fees are debited.+--+-- If the Requester\'s account does not have adequate funds for these+-- payments, the call to ApproveAssignment returns an exception, and the+-- approval is not processed. You can include an optional feedback message+-- with the approval, which the Worker can see in the Status section of the+-- web site.+--+-- You can also call this operation for assignments that were previous+-- rejected and approve them by explicitly overriding the previous+-- rejection. This only works on rejected assignments that were submitted+-- within the previous 30 days and only if the assignment\'s related HIT+-- has not been deleted.+module Amazonka.MechanicalTurk.ApproveAssignment+  ( -- * Creating a Request+    ApproveAssignment (..),+    newApproveAssignment,++    -- * Request Lenses+    approveAssignment_overrideRejection,+    approveAssignment_requesterFeedback,+    approveAssignment_assignmentId,++    -- * Destructuring the Response+    ApproveAssignmentResponse (..),+    newApproveAssignmentResponse,++    -- * Response Lenses+    approveAssignmentResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MechanicalTurk.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newApproveAssignment' smart constructor.+data ApproveAssignment = ApproveAssignment'+  { -- | A flag indicating that an assignment should be approved even if it was+    -- previously rejected. Defaults to @False@.+    overrideRejection :: Prelude.Maybe Prelude.Bool,+    -- | A message for the Worker, which the Worker can see in the Status section+    -- of the web site.+    requesterFeedback :: Prelude.Maybe Prelude.Text,+    -- | The ID of the assignment. The assignment must correspond to a HIT+    -- created by the Requester.+    assignmentId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApproveAssignment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'overrideRejection', 'approveAssignment_overrideRejection' - A flag indicating that an assignment should be approved even if it was+-- previously rejected. Defaults to @False@.+--+-- 'requesterFeedback', 'approveAssignment_requesterFeedback' - A message for the Worker, which the Worker can see in the Status section+-- of the web site.+--+-- 'assignmentId', 'approveAssignment_assignmentId' - The ID of the assignment. The assignment must correspond to a HIT+-- created by the Requester.+newApproveAssignment ::+  -- | 'assignmentId'+  Prelude.Text ->+  ApproveAssignment+newApproveAssignment pAssignmentId_ =+  ApproveAssignment'+    { overrideRejection =+        Prelude.Nothing,+      requesterFeedback = Prelude.Nothing,+      assignmentId = pAssignmentId_+    }++-- | A flag indicating that an assignment should be approved even if it was+-- previously rejected. Defaults to @False@.+approveAssignment_overrideRejection :: Lens.Lens' ApproveAssignment (Prelude.Maybe Prelude.Bool)+approveAssignment_overrideRejection = Lens.lens (\ApproveAssignment' {overrideRejection} -> overrideRejection) (\s@ApproveAssignment' {} a -> s {overrideRejection = a} :: ApproveAssignment)++-- | A message for the Worker, which the Worker can see in the Status section+-- of the web site.+approveAssignment_requesterFeedback :: Lens.Lens' ApproveAssignment (Prelude.Maybe Prelude.Text)+approveAssignment_requesterFeedback = Lens.lens (\ApproveAssignment' {requesterFeedback} -> requesterFeedback) (\s@ApproveAssignment' {} a -> s {requesterFeedback = a} :: ApproveAssignment)++-- | The ID of the assignment. The assignment must correspond to a HIT+-- created by the Requester.+approveAssignment_assignmentId :: Lens.Lens' ApproveAssignment Prelude.Text+approveAssignment_assignmentId = Lens.lens (\ApproveAssignment' {assignmentId} -> assignmentId) (\s@ApproveAssignment' {} a -> s {assignmentId = a} :: ApproveAssignment)++instance Core.AWSRequest ApproveAssignment where+  type+    AWSResponse ApproveAssignment =+      ApproveAssignmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          ApproveAssignmentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ApproveAssignment where+  hashWithSalt _salt ApproveAssignment' {..} =+    _salt+      `Prelude.hashWithSalt` overrideRejection+      `Prelude.hashWithSalt` requesterFeedback+      `Prelude.hashWithSalt` assignmentId++instance Prelude.NFData ApproveAssignment where+  rnf ApproveAssignment' {..} =+    Prelude.rnf overrideRejection+      `Prelude.seq` Prelude.rnf requesterFeedback+      `Prelude.seq` Prelude.rnf assignmentId++instance Data.ToHeaders ApproveAssignment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MTurkRequesterServiceV20170117.ApproveAssignment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ApproveAssignment where+  toJSON ApproveAssignment' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("OverrideRejection" Data..=)+              Prelude.<$> overrideRejection,+            ("RequesterFeedback" Data..=)+              Prelude.<$> requesterFeedback,+            Prelude.Just ("AssignmentId" Data..= assignmentId)+          ]+      )++instance Data.ToPath ApproveAssignment where+  toPath = Prelude.const "/"++instance Data.ToQuery ApproveAssignment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newApproveAssignmentResponse' smart constructor.+data ApproveAssignmentResponse = ApproveAssignmentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApproveAssignmentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'approveAssignmentResponse_httpStatus' - The response's http status code.+newApproveAssignmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ApproveAssignmentResponse+newApproveAssignmentResponse pHttpStatus_ =+  ApproveAssignmentResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+approveAssignmentResponse_httpStatus :: Lens.Lens' ApproveAssignmentResponse Prelude.Int+approveAssignmentResponse_httpStatus = Lens.lens (\ApproveAssignmentResponse' {httpStatus} -> httpStatus) (\s@ApproveAssignmentResponse' {} a -> s {httpStatus = a} :: ApproveAssignmentResponse)++instance Prelude.NFData ApproveAssignmentResponse where+  rnf ApproveAssignmentResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,255 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MechanicalTurk.AssociateQualificationWithWorker+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The @AssociateQualificationWithWorker@ operation gives a Worker a+-- Qualification. @AssociateQualificationWithWorker@ does not require that+-- the Worker submit a Qualification request. It gives the Qualification+-- directly to the Worker.+--+-- You can only assign a Qualification of a Qualification type that you+-- created (using the @CreateQualificationType@ operation).+--+-- Note: @AssociateQualificationWithWorker@ does not affect any pending+-- Qualification requests for the Qualification by the Worker. If you+-- assign a Qualification to a Worker, then later grant a Qualification+-- request made by the Worker, the granting of the request may modify the+-- Qualification score. To resolve a pending Qualification request without+-- affecting the Qualification the Worker already has, reject the request+-- with the @RejectQualificationRequest@ operation.+module Amazonka.MechanicalTurk.AssociateQualificationWithWorker+  ( -- * Creating a Request+    AssociateQualificationWithWorker (..),+    newAssociateQualificationWithWorker,++    -- * Request Lenses+    associateQualificationWithWorker_integerValue,+    associateQualificationWithWorker_sendNotification,+    associateQualificationWithWorker_qualificationTypeId,+    associateQualificationWithWorker_workerId,++    -- * Destructuring the Response+    AssociateQualificationWithWorkerResponse (..),+    newAssociateQualificationWithWorkerResponse,++    -- * Response Lenses+    associateQualificationWithWorkerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MechanicalTurk.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAssociateQualificationWithWorker' smart constructor.+data AssociateQualificationWithWorker = AssociateQualificationWithWorker'+  { -- | The value of the Qualification to assign.+    integerValue :: Prelude.Maybe Prelude.Int,+    -- | 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.+    sendNotification :: Prelude.Maybe Prelude.Bool,+    -- | The ID of the Qualification type to use for the assigned Qualification.+    qualificationTypeId :: Prelude.Text,+    -- | The ID of the Worker to whom the Qualification is being assigned. Worker+    -- IDs are included with submitted HIT assignments and Qualification+    -- requests.+    workerId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AssociateQualificationWithWorker' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'integerValue', 'associateQualificationWithWorker_integerValue' - The value of the Qualification to assign.+--+-- 'sendNotification', 'associateQualificationWithWorker_sendNotification' - 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.+--+-- 'qualificationTypeId', 'associateQualificationWithWorker_qualificationTypeId' - The ID of the Qualification type to use for the assigned Qualification.+--+-- 'workerId', 'associateQualificationWithWorker_workerId' - The ID of the Worker to whom the Qualification is being assigned. Worker+-- IDs are included with submitted HIT assignments and Qualification+-- requests.+newAssociateQualificationWithWorker ::+  -- | 'qualificationTypeId'+  Prelude.Text ->+  -- | 'workerId'+  Prelude.Text ->+  AssociateQualificationWithWorker+newAssociateQualificationWithWorker+  pQualificationTypeId_+  pWorkerId_ =+    AssociateQualificationWithWorker'+      { integerValue =+          Prelude.Nothing,+        sendNotification = Prelude.Nothing,+        qualificationTypeId =+          pQualificationTypeId_,+        workerId = pWorkerId_+      }++-- | The value of the Qualification to assign.+associateQualificationWithWorker_integerValue :: Lens.Lens' AssociateQualificationWithWorker (Prelude.Maybe Prelude.Int)+associateQualificationWithWorker_integerValue = Lens.lens (\AssociateQualificationWithWorker' {integerValue} -> integerValue) (\s@AssociateQualificationWithWorker' {} a -> s {integerValue = a} :: AssociateQualificationWithWorker)++-- | 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.+associateQualificationWithWorker_sendNotification :: Lens.Lens' AssociateQualificationWithWorker (Prelude.Maybe Prelude.Bool)+associateQualificationWithWorker_sendNotification = Lens.lens (\AssociateQualificationWithWorker' {sendNotification} -> sendNotification) (\s@AssociateQualificationWithWorker' {} a -> s {sendNotification = a} :: AssociateQualificationWithWorker)++-- | The ID of the Qualification type to use for the assigned Qualification.+associateQualificationWithWorker_qualificationTypeId :: Lens.Lens' AssociateQualificationWithWorker Prelude.Text+associateQualificationWithWorker_qualificationTypeId = Lens.lens (\AssociateQualificationWithWorker' {qualificationTypeId} -> qualificationTypeId) (\s@AssociateQualificationWithWorker' {} a -> s {qualificationTypeId = a} :: AssociateQualificationWithWorker)++-- | The ID of the Worker to whom the Qualification is being assigned. Worker+-- IDs are included with submitted HIT assignments and Qualification+-- requests.+associateQualificationWithWorker_workerId :: Lens.Lens' AssociateQualificationWithWorker Prelude.Text+associateQualificationWithWorker_workerId = Lens.lens (\AssociateQualificationWithWorker' {workerId} -> workerId) (\s@AssociateQualificationWithWorker' {} a -> s {workerId = a} :: AssociateQualificationWithWorker)++instance+  Core.AWSRequest+    AssociateQualificationWithWorker+  where+  type+    AWSResponse AssociateQualificationWithWorker =+      AssociateQualificationWithWorkerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          AssociateQualificationWithWorkerResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    AssociateQualificationWithWorker+  where+  hashWithSalt+    _salt+    AssociateQualificationWithWorker' {..} =+      _salt+        `Prelude.hashWithSalt` integerValue+        `Prelude.hashWithSalt` sendNotification+        `Prelude.hashWithSalt` qualificationTypeId+        `Prelude.hashWithSalt` workerId++instance+  Prelude.NFData+    AssociateQualificationWithWorker+  where+  rnf AssociateQualificationWithWorker' {..} =+    Prelude.rnf integerValue+      `Prelude.seq` Prelude.rnf sendNotification+      `Prelude.seq` Prelude.rnf qualificationTypeId+      `Prelude.seq` Prelude.rnf workerId++instance+  Data.ToHeaders+    AssociateQualificationWithWorker+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MTurkRequesterServiceV20170117.AssociateQualificationWithWorker" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AssociateQualificationWithWorker where+  toJSON AssociateQualificationWithWorker' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("IntegerValue" Data..=) Prelude.<$> integerValue,+            ("SendNotification" Data..=)+              Prelude.<$> sendNotification,+            Prelude.Just+              ("QualificationTypeId" Data..= qualificationTypeId),+            Prelude.Just ("WorkerId" Data..= workerId)+          ]+      )++instance Data.ToPath AssociateQualificationWithWorker where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    AssociateQualificationWithWorker+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAssociateQualificationWithWorkerResponse' smart constructor.+data AssociateQualificationWithWorkerResponse = AssociateQualificationWithWorkerResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AssociateQualificationWithWorkerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'associateQualificationWithWorkerResponse_httpStatus' - The response's http status code.+newAssociateQualificationWithWorkerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AssociateQualificationWithWorkerResponse+newAssociateQualificationWithWorkerResponse+  pHttpStatus_ =+    AssociateQualificationWithWorkerResponse'+      { httpStatus =+          pHttpStatus_+      }++-- | The response's http status code.+associateQualificationWithWorkerResponse_httpStatus :: Lens.Lens' AssociateQualificationWithWorkerResponse Prelude.Int+associateQualificationWithWorkerResponse_httpStatus = Lens.lens (\AssociateQualificationWithWorkerResponse' {httpStatus} -> httpStatus) (\s@AssociateQualificationWithWorkerResponse' {} a -> s {httpStatus = a} :: AssociateQualificationWithWorkerResponse)++instance+  Prelude.NFData+    AssociateQualificationWithWorkerResponse+  where+  rnf AssociateQualificationWithWorkerResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,257 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MechanicalTurk.CreateAdditionalAssignmentsForHIT+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The @CreateAdditionalAssignmentsForHIT@ operation increases the maximum+-- number of assignments of an existing HIT.+--+-- To extend the maximum number of assignments, specify the number of+-- additional assignments.+--+-- -   HITs created with fewer than 10 assignments cannot be extended to+--     have 10 or more assignments. Attempting to add assignments in a way+--     that brings the total number of assignments for a HIT from fewer+--     than 10 assignments to 10 or more assignments will result in an+--     @AWS.MechanicalTurk.InvalidMaximumAssignmentsIncrease@ exception.+--+-- -   HITs that were created before July 22, 2015 cannot be extended.+--     Attempting to extend HITs that were created before July 22, 2015+--     will result in an @AWS.MechanicalTurk.HITTooOldForExtension@+--     exception.+module Amazonka.MechanicalTurk.CreateAdditionalAssignmentsForHIT+  ( -- * Creating a Request+    CreateAdditionalAssignmentsForHIT (..),+    newCreateAdditionalAssignmentsForHIT,++    -- * Request Lenses+    createAdditionalAssignmentsForHIT_uniqueRequestToken,+    createAdditionalAssignmentsForHIT_hITId,+    createAdditionalAssignmentsForHIT_numberOfAdditionalAssignments,++    -- * Destructuring the Response+    CreateAdditionalAssignmentsForHITResponse (..),+    newCreateAdditionalAssignmentsForHITResponse,++    -- * Response Lenses+    createAdditionalAssignmentsForHITResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MechanicalTurk.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateAdditionalAssignmentsForHIT' smart constructor.+data CreateAdditionalAssignmentsForHIT = CreateAdditionalAssignmentsForHIT'+  { -- | 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.+    uniqueRequestToken :: Prelude.Maybe Prelude.Text,+    -- | The ID of the HIT to extend.+    hITId :: Prelude.Text,+    -- | The number of additional assignments to request for this HIT.+    numberOfAdditionalAssignments :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateAdditionalAssignmentsForHIT' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'uniqueRequestToken', 'createAdditionalAssignmentsForHIT_uniqueRequestToken' - 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.+--+-- 'hITId', 'createAdditionalAssignmentsForHIT_hITId' - The ID of the HIT to extend.+--+-- 'numberOfAdditionalAssignments', 'createAdditionalAssignmentsForHIT_numberOfAdditionalAssignments' - The number of additional assignments to request for this HIT.+newCreateAdditionalAssignmentsForHIT ::+  -- | 'hITId'+  Prelude.Text ->+  -- | 'numberOfAdditionalAssignments'+  Prelude.Int ->+  CreateAdditionalAssignmentsForHIT+newCreateAdditionalAssignmentsForHIT+  pHITId_+  pNumberOfAdditionalAssignments_ =+    CreateAdditionalAssignmentsForHIT'+      { uniqueRequestToken =+          Prelude.Nothing,+        hITId = pHITId_,+        numberOfAdditionalAssignments =+          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.+createAdditionalAssignmentsForHIT_uniqueRequestToken :: Lens.Lens' CreateAdditionalAssignmentsForHIT (Prelude.Maybe Prelude.Text)+createAdditionalAssignmentsForHIT_uniqueRequestToken = Lens.lens (\CreateAdditionalAssignmentsForHIT' {uniqueRequestToken} -> uniqueRequestToken) (\s@CreateAdditionalAssignmentsForHIT' {} a -> s {uniqueRequestToken = a} :: CreateAdditionalAssignmentsForHIT)++-- | The ID of the HIT to extend.+createAdditionalAssignmentsForHIT_hITId :: Lens.Lens' CreateAdditionalAssignmentsForHIT Prelude.Text+createAdditionalAssignmentsForHIT_hITId = Lens.lens (\CreateAdditionalAssignmentsForHIT' {hITId} -> hITId) (\s@CreateAdditionalAssignmentsForHIT' {} a -> s {hITId = a} :: CreateAdditionalAssignmentsForHIT)++-- | The number of additional assignments to request for this HIT.+createAdditionalAssignmentsForHIT_numberOfAdditionalAssignments :: Lens.Lens' CreateAdditionalAssignmentsForHIT Prelude.Int+createAdditionalAssignmentsForHIT_numberOfAdditionalAssignments = Lens.lens (\CreateAdditionalAssignmentsForHIT' {numberOfAdditionalAssignments} -> numberOfAdditionalAssignments) (\s@CreateAdditionalAssignmentsForHIT' {} a -> s {numberOfAdditionalAssignments = a} :: CreateAdditionalAssignmentsForHIT)++instance+  Core.AWSRequest+    CreateAdditionalAssignmentsForHIT+  where+  type+    AWSResponse CreateAdditionalAssignmentsForHIT =+      CreateAdditionalAssignmentsForHITResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CreateAdditionalAssignmentsForHITResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    CreateAdditionalAssignmentsForHIT+  where+  hashWithSalt+    _salt+    CreateAdditionalAssignmentsForHIT' {..} =+      _salt+        `Prelude.hashWithSalt` uniqueRequestToken+        `Prelude.hashWithSalt` hITId+        `Prelude.hashWithSalt` numberOfAdditionalAssignments++instance+  Prelude.NFData+    CreateAdditionalAssignmentsForHIT+  where+  rnf CreateAdditionalAssignmentsForHIT' {..} =+    Prelude.rnf uniqueRequestToken+      `Prelude.seq` Prelude.rnf hITId+      `Prelude.seq` Prelude.rnf numberOfAdditionalAssignments++instance+  Data.ToHeaders+    CreateAdditionalAssignmentsForHIT+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MTurkRequesterServiceV20170117.CreateAdditionalAssignmentsForHIT" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    CreateAdditionalAssignmentsForHIT+  where+  toJSON CreateAdditionalAssignmentsForHIT' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("UniqueRequestToken" Data..=)+              Prelude.<$> uniqueRequestToken,+            Prelude.Just ("HITId" Data..= hITId),+            Prelude.Just+              ( "NumberOfAdditionalAssignments"+                  Data..= numberOfAdditionalAssignments+              )+          ]+      )++instance+  Data.ToPath+    CreateAdditionalAssignmentsForHIT+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    CreateAdditionalAssignmentsForHIT+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateAdditionalAssignmentsForHITResponse' smart constructor.+data CreateAdditionalAssignmentsForHITResponse = CreateAdditionalAssignmentsForHITResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateAdditionalAssignmentsForHITResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createAdditionalAssignmentsForHITResponse_httpStatus' - The response's http status code.+newCreateAdditionalAssignmentsForHITResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateAdditionalAssignmentsForHITResponse+newCreateAdditionalAssignmentsForHITResponse+  pHttpStatus_ =+    CreateAdditionalAssignmentsForHITResponse'+      { httpStatus =+          pHttpStatus_+      }++-- | The response's http status code.+createAdditionalAssignmentsForHITResponse_httpStatus :: Lens.Lens' CreateAdditionalAssignmentsForHITResponse Prelude.Int+createAdditionalAssignmentsForHITResponse_httpStatus = Lens.lens (\CreateAdditionalAssignmentsForHITResponse' {httpStatus} -> httpStatus) (\s@CreateAdditionalAssignmentsForHITResponse' {} a -> s {httpStatus = a} :: CreateAdditionalAssignmentsForHITResponse)++instance+  Prelude.NFData+    CreateAdditionalAssignmentsForHITResponse+  where+  rnf CreateAdditionalAssignmentsForHITResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,607 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MechanicalTurk.CreateHIT+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The @CreateHIT@ operation creates a new Human Intelligence Task (HIT).+-- The new HIT is made available for Workers to find and accept on the+-- Amazon Mechanical Turk website.+--+-- This operation allows you to specify a new HIT by passing in values for+-- the properties of the HIT, such as its title, reward amount and number+-- of assignments. When you pass these values to @CreateHIT@, a new HIT is+-- created for you, with a new @HITTypeID@. The HITTypeID can be used to+-- create additional HITs in the future without needing to specify common+-- parameters such as the title, description and reward amount each time.+--+-- An alternative way to create HITs is to first generate a HITTypeID using+-- the @CreateHITType@ operation and then call the @CreateHITWithHITType@+-- operation. This is the recommended best practice for Requesters who are+-- creating large numbers of HITs.+--+-- CreateHIT also supports several ways to provide question data: by+-- providing a value for the @Question@ parameter that fully specifies the+-- contents of the HIT, or by providing a @HitLayoutId@ and associated+-- @HitLayoutParameters@.+--+-- If a HIT is created with 10 or more maximum assignments, there is an+-- additional fee. For more information, see+-- <https://requester.mturk.com/pricing Amazon Mechanical Turk Pricing>.+module Amazonka.MechanicalTurk.CreateHIT+  ( -- * Creating a Request+    CreateHIT (..),+    newCreateHIT,++    -- * Request Lenses+    createHIT_assignmentReviewPolicy,+    createHIT_autoApprovalDelayInSeconds,+    createHIT_hITLayoutId,+    createHIT_hITLayoutParameters,+    createHIT_hITReviewPolicy,+    createHIT_keywords,+    createHIT_maxAssignments,+    createHIT_qualificationRequirements,+    createHIT_question,+    createHIT_requesterAnnotation,+    createHIT_uniqueRequestToken,+    createHIT_lifetimeInSeconds,+    createHIT_assignmentDurationInSeconds,+    createHIT_reward,+    createHIT_title,+    createHIT_description,++    -- * Destructuring the Response+    CreateHITResponse (..),+    newCreateHITResponse,++    -- * Response Lenses+    createHITResponse_hit,+    createHITResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MechanicalTurk.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateHIT' smart constructor.+data CreateHIT = CreateHIT'+  { -- | 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.+    assignmentReviewPolicy :: Prelude.Maybe ReviewPolicy,+    -- | 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.+    autoApprovalDelayInSeconds :: Prelude.Maybe Prelude.Integer,+    -- | 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.+    hITLayoutId :: Prelude.Maybe Prelude.Text,+    -- | If the HITLayoutId is provided, any placeholder values must be filled in+    -- with values using the HITLayoutParameter structure. For more+    -- information, see HITLayout.+    hITLayoutParameters :: Prelude.Maybe [HITLayoutParameter],+    -- | The HIT-level Review Policy applies to the HIT. You can specify for+    -- Mechanical Turk to take various actions based on the policy.+    hITReviewPolicy :: Prelude.Maybe ReviewPolicy,+    -- | One or more words or phrases that describe the HIT, separated by commas.+    -- These words are used in searches to find HITs.+    keywords :: Prelude.Maybe Prelude.Text,+    -- | The number of times the HIT can be accepted and completed before the HIT+    -- becomes unavailable.+    maxAssignments :: Prelude.Maybe Prelude.Int,+    -- | 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.+    qualificationRequirements :: Prelude.Maybe [QualificationRequirement],+    -- | 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.+    question :: Prelude.Maybe Prelude.Text,+    -- | 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.+    requesterAnnotation :: Prelude.Maybe Prelude.Text,+    -- | 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.+    --+    -- Note: It is your responsibility to ensure uniqueness of the token. The+    -- unique token expires after 24 hours. Subsequent calls using the same+    -- UniqueRequestToken made after the 24 hour limit could create duplicate+    -- HITs.+    uniqueRequestToken :: Prelude.Maybe Prelude.Text,+    -- | 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.+    lifetimeInSeconds :: Prelude.Integer,+    -- | 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.+    assignmentDurationInSeconds :: Prelude.Integer,+    -- | The amount of money the Requester will pay a Worker for successfully+    -- completing the HIT.+    reward :: Prelude.Text,+    -- | 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.+    title :: Prelude.Text,+    -- | 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.+    description :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHIT' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'assignmentReviewPolicy', 'createHIT_assignmentReviewPolicy' - 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.+--+-- 'autoApprovalDelayInSeconds', 'createHIT_autoApprovalDelayInSeconds' - 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.+--+-- 'hITLayoutId', 'createHIT_hITLayoutId' - 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.+--+-- 'hITLayoutParameters', 'createHIT_hITLayoutParameters' - If the HITLayoutId is provided, any placeholder values must be filled in+-- with values using the HITLayoutParameter structure. For more+-- information, see HITLayout.+--+-- 'hITReviewPolicy', 'createHIT_hITReviewPolicy' - The HIT-level Review Policy applies to the HIT. You can specify for+-- Mechanical Turk to take various actions based on the policy.+--+-- 'keywords', 'createHIT_keywords' - One or more words or phrases that describe the HIT, separated by commas.+-- These words are used in searches to find HITs.+--+-- 'maxAssignments', 'createHIT_maxAssignments' - The number of times the HIT can be accepted and completed before the HIT+-- becomes unavailable.+--+-- 'qualificationRequirements', 'createHIT_qualificationRequirements' - 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.+--+-- 'question', 'createHIT_question' - 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.+--+-- 'requesterAnnotation', 'createHIT_requesterAnnotation' - 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.+--+-- 'uniqueRequestToken', 'createHIT_uniqueRequestToken' - 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.+--+-- Note: It is your responsibility to ensure uniqueness of the token. The+-- unique token expires after 24 hours. Subsequent calls using the same+-- UniqueRequestToken made after the 24 hour limit could create duplicate+-- HITs.+--+-- 'lifetimeInSeconds', 'createHIT_lifetimeInSeconds' - 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.+--+-- 'assignmentDurationInSeconds', 'createHIT_assignmentDurationInSeconds' - 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.+--+-- 'reward', 'createHIT_reward' - The amount of money the Requester will pay a Worker for successfully+-- completing the HIT.+--+-- 'title', 'createHIT_title' - 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.+--+-- 'description', 'createHIT_description' - 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.+newCreateHIT ::+  -- | 'lifetimeInSeconds'+  Prelude.Integer ->+  -- | 'assignmentDurationInSeconds'+  Prelude.Integer ->+  -- | 'reward'+  Prelude.Text ->+  -- | 'title'+  Prelude.Text ->+  -- | 'description'+  Prelude.Text ->+  CreateHIT+newCreateHIT+  pLifetimeInSeconds_+  pAssignmentDurationInSeconds_+  pReward_+  pTitle_+  pDescription_ =+    CreateHIT'+      { assignmentReviewPolicy =+          Prelude.Nothing,+        autoApprovalDelayInSeconds = Prelude.Nothing,+        hITLayoutId = Prelude.Nothing,+        hITLayoutParameters = Prelude.Nothing,+        hITReviewPolicy = Prelude.Nothing,+        keywords = Prelude.Nothing,+        maxAssignments = Prelude.Nothing,+        qualificationRequirements = Prelude.Nothing,+        question = Prelude.Nothing,+        requesterAnnotation = Prelude.Nothing,+        uniqueRequestToken = Prelude.Nothing,+        lifetimeInSeconds = pLifetimeInSeconds_,+        assignmentDurationInSeconds =+          pAssignmentDurationInSeconds_,+        reward = pReward_,+        title = pTitle_,+        description = pDescription_+      }++-- | 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.+createHIT_assignmentReviewPolicy :: Lens.Lens' CreateHIT (Prelude.Maybe ReviewPolicy)+createHIT_assignmentReviewPolicy = Lens.lens (\CreateHIT' {assignmentReviewPolicy} -> assignmentReviewPolicy) (\s@CreateHIT' {} a -> s {assignmentReviewPolicy = a} :: CreateHIT)++-- | 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.+createHIT_autoApprovalDelayInSeconds :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Integer)+createHIT_autoApprovalDelayInSeconds = Lens.lens (\CreateHIT' {autoApprovalDelayInSeconds} -> autoApprovalDelayInSeconds) (\s@CreateHIT' {} a -> s {autoApprovalDelayInSeconds = a} :: CreateHIT)++-- | 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.+createHIT_hITLayoutId :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)+createHIT_hITLayoutId = Lens.lens (\CreateHIT' {hITLayoutId} -> hITLayoutId) (\s@CreateHIT' {} a -> s {hITLayoutId = a} :: CreateHIT)++-- | If the HITLayoutId is provided, any placeholder values must be filled in+-- with values using the HITLayoutParameter structure. For more+-- information, see HITLayout.+createHIT_hITLayoutParameters :: Lens.Lens' CreateHIT (Prelude.Maybe [HITLayoutParameter])+createHIT_hITLayoutParameters = Lens.lens (\CreateHIT' {hITLayoutParameters} -> hITLayoutParameters) (\s@CreateHIT' {} a -> s {hITLayoutParameters = a} :: CreateHIT) Prelude.. Lens.mapping Lens.coerced++-- | The HIT-level Review Policy applies to the HIT. You can specify for+-- Mechanical Turk to take various actions based on the policy.+createHIT_hITReviewPolicy :: Lens.Lens' CreateHIT (Prelude.Maybe ReviewPolicy)+createHIT_hITReviewPolicy = Lens.lens (\CreateHIT' {hITReviewPolicy} -> hITReviewPolicy) (\s@CreateHIT' {} a -> s {hITReviewPolicy = a} :: CreateHIT)++-- | One or more words or phrases that describe the HIT, separated by commas.+-- These words are used in searches to find HITs.+createHIT_keywords :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)+createHIT_keywords = Lens.lens (\CreateHIT' {keywords} -> keywords) (\s@CreateHIT' {} a -> s {keywords = a} :: CreateHIT)++-- | The number of times the HIT can be accepted and completed before the HIT+-- becomes unavailable.+createHIT_maxAssignments :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Int)+createHIT_maxAssignments = Lens.lens (\CreateHIT' {maxAssignments} -> maxAssignments) (\s@CreateHIT' {} a -> s {maxAssignments = a} :: CreateHIT)++-- | 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.+createHIT_qualificationRequirements :: Lens.Lens' CreateHIT (Prelude.Maybe [QualificationRequirement])+createHIT_qualificationRequirements = Lens.lens (\CreateHIT' {qualificationRequirements} -> qualificationRequirements) (\s@CreateHIT' {} a -> s {qualificationRequirements = a} :: CreateHIT) Prelude.. Lens.mapping Lens.coerced++-- | 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.+createHIT_question :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)+createHIT_question = Lens.lens (\CreateHIT' {question} -> question) (\s@CreateHIT' {} a -> s {question = a} :: CreateHIT)++-- | 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.+createHIT_requesterAnnotation :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)+createHIT_requesterAnnotation = Lens.lens (\CreateHIT' {requesterAnnotation} -> requesterAnnotation) (\s@CreateHIT' {} a -> s {requesterAnnotation = a} :: CreateHIT)++-- | 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.+--+-- Note: It is your responsibility to ensure uniqueness of the token. The+-- unique token expires after 24 hours. Subsequent calls using the same+-- UniqueRequestToken made after the 24 hour limit could create duplicate+-- HITs.+createHIT_uniqueRequestToken :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)+createHIT_uniqueRequestToken = Lens.lens (\CreateHIT' {uniqueRequestToken} -> uniqueRequestToken) (\s@CreateHIT' {} a -> s {uniqueRequestToken = a} :: CreateHIT)++-- | 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.+createHIT_lifetimeInSeconds :: Lens.Lens' CreateHIT Prelude.Integer+createHIT_lifetimeInSeconds = Lens.lens (\CreateHIT' {lifetimeInSeconds} -> lifetimeInSeconds) (\s@CreateHIT' {} a -> s {lifetimeInSeconds = a} :: CreateHIT)++-- | 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.+createHIT_assignmentDurationInSeconds :: Lens.Lens' CreateHIT Prelude.Integer+createHIT_assignmentDurationInSeconds = Lens.lens (\CreateHIT' {assignmentDurationInSeconds} -> assignmentDurationInSeconds) (\s@CreateHIT' {} a -> s {assignmentDurationInSeconds = a} :: CreateHIT)++-- | The amount of money the Requester will pay a Worker for successfully+-- completing the HIT.+createHIT_reward :: Lens.Lens' CreateHIT Prelude.Text+createHIT_reward = Lens.lens (\CreateHIT' {reward} -> reward) (\s@CreateHIT' {} a -> s {reward = a} :: CreateHIT)++-- | 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.+createHIT_title :: Lens.Lens' CreateHIT Prelude.Text+createHIT_title = Lens.lens (\CreateHIT' {title} -> title) (\s@CreateHIT' {} a -> s {title = a} :: CreateHIT)++-- | 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.+createHIT_description :: Lens.Lens' CreateHIT Prelude.Text+createHIT_description = Lens.lens (\CreateHIT' {description} -> description) (\s@CreateHIT' {} a -> s {description = a} :: CreateHIT)++instance Core.AWSRequest CreateHIT where+  type AWSResponse CreateHIT = CreateHITResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateHITResponse'+            Prelude.<$> (x Data..?> "HIT")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateHIT where+  hashWithSalt _salt CreateHIT' {..} =+    _salt+      `Prelude.hashWithSalt` assignmentReviewPolicy+      `Prelude.hashWithSalt` autoApprovalDelayInSeconds+      `Prelude.hashWithSalt` hITLayoutId+      `Prelude.hashWithSalt` hITLayoutParameters+      `Prelude.hashWithSalt` hITReviewPolicy+      `Prelude.hashWithSalt` keywords+      `Prelude.hashWithSalt` maxAssignments+      `Prelude.hashWithSalt` qualificationRequirements+      `Prelude.hashWithSalt` question+      `Prelude.hashWithSalt` requesterAnnotation+      `Prelude.hashWithSalt` uniqueRequestToken+      `Prelude.hashWithSalt` lifetimeInSeconds+      `Prelude.hashWithSalt` assignmentDurationInSeconds+      `Prelude.hashWithSalt` reward+      `Prelude.hashWithSalt` title+      `Prelude.hashWithSalt` description++instance Prelude.NFData CreateHIT where+  rnf CreateHIT' {..} =+    Prelude.rnf assignmentReviewPolicy+      `Prelude.seq` Prelude.rnf autoApprovalDelayInSeconds+      `Prelude.seq` Prelude.rnf hITLayoutId+      `Prelude.seq` Prelude.rnf hITLayoutParameters+      `Prelude.seq` Prelude.rnf hITReviewPolicy+      `Prelude.seq` Prelude.rnf keywords+      `Prelude.seq` Prelude.rnf maxAssignments+      `Prelude.seq` Prelude.rnf qualificationRequirements+      `Prelude.seq` Prelude.rnf question+      `Prelude.seq` Prelude.rnf requesterAnnotation+      `Prelude.seq` Prelude.rnf uniqueRequestToken+      `Prelude.seq` Prelude.rnf lifetimeInSeconds+      `Prelude.seq` Prelude.rnf assignmentDurationInSeconds+      `Prelude.seq` Prelude.rnf reward+      `Prelude.seq` Prelude.rnf title+      `Prelude.seq` Prelude.rnf description++instance Data.ToHeaders CreateHIT where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MTurkRequesterServiceV20170117.CreateHIT" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateHIT where+  toJSON CreateHIT' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AssignmentReviewPolicy" Data..=)+              Prelude.<$> assignmentReviewPolicy,+            ("AutoApprovalDelayInSeconds" Data..=)+              Prelude.<$> autoApprovalDelayInSeconds,+            ("HITLayoutId" Data..=) Prelude.<$> hITLayoutId,+            ("HITLayoutParameters" Data..=)+              Prelude.<$> hITLayoutParameters,+            ("HITReviewPolicy" Data..=)+              Prelude.<$> hITReviewPolicy,+            ("Keywords" Data..=) Prelude.<$> keywords,+            ("MaxAssignments" Data..=)+              Prelude.<$> maxAssignments,+            ("QualificationRequirements" Data..=)+              Prelude.<$> qualificationRequirements,+            ("Question" Data..=) Prelude.<$> question,+            ("RequesterAnnotation" Data..=)+              Prelude.<$> requesterAnnotation,+            ("UniqueRequestToken" Data..=)+              Prelude.<$> uniqueRequestToken,+            Prelude.Just+              ("LifetimeInSeconds" Data..= lifetimeInSeconds),+            Prelude.Just+              ( "AssignmentDurationInSeconds"+                  Data..= assignmentDurationInSeconds+              ),+            Prelude.Just ("Reward" Data..= reward),+            Prelude.Just ("Title" Data..= title),+            Prelude.Just ("Description" Data..= description)+          ]+      )++instance Data.ToPath CreateHIT where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateHIT where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateHITResponse' smart constructor.+data CreateHITResponse = CreateHITResponse'+  { -- | 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.+    hit :: Prelude.Maybe HIT,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHITResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hit', 'createHITResponse_hit' - 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.+--+-- 'httpStatus', 'createHITResponse_httpStatus' - The response's http status code.+newCreateHITResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateHITResponse+newCreateHITResponse pHttpStatus_ =+  CreateHITResponse'+    { hit = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | 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.+createHITResponse_hit :: Lens.Lens' CreateHITResponse (Prelude.Maybe HIT)+createHITResponse_hit = Lens.lens (\CreateHITResponse' {hit} -> hit) (\s@CreateHITResponse' {} a -> s {hit = a} :: CreateHITResponse)++-- | The response's http status code.+createHITResponse_httpStatus :: Lens.Lens' CreateHITResponse Prelude.Int+createHITResponse_httpStatus = Lens.lens (\CreateHITResponse' {httpStatus} -> httpStatus) (\s@CreateHITResponse' {} a -> s {httpStatus = a} :: CreateHITResponse)++instance Prelude.NFData CreateHITResponse where+  rnf CreateHITResponse' {..} =+    Prelude.rnf hit+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,331 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MechanicalTurk.CreateHITType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The @CreateHITType@ operation creates a new HIT type. This operation+-- allows you to define a standard set of HIT properties to use when+-- creating HITs. If you register a HIT type with values that match an+-- existing HIT type, the HIT type ID of the existing type will be+-- returned.+module Amazonka.MechanicalTurk.CreateHITType+  ( -- * Creating a Request+    CreateHITType (..),+    newCreateHITType,++    -- * Request Lenses+    createHITType_autoApprovalDelayInSeconds,+    createHITType_keywords,+    createHITType_qualificationRequirements,+    createHITType_assignmentDurationInSeconds,+    createHITType_reward,+    createHITType_title,+    createHITType_description,++    -- * Destructuring the Response+    CreateHITTypeResponse (..),+    newCreateHITTypeResponse,++    -- * Response Lenses+    createHITTypeResponse_hITTypeId,+    createHITTypeResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MechanicalTurk.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateHITType' smart constructor.+data CreateHITType = CreateHITType'+  { -- | 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.+    autoApprovalDelayInSeconds :: Prelude.Maybe Prelude.Integer,+    -- | One or more words or phrases that describe the HIT, separated by commas.+    -- These words are used in searches to find HITs.+    keywords :: Prelude.Maybe Prelude.Text,+    -- | 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.+    qualificationRequirements :: Prelude.Maybe [QualificationRequirement],+    -- | 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.+    assignmentDurationInSeconds :: Prelude.Integer,+    -- | The amount of money the Requester will pay a Worker for successfully+    -- completing the HIT.+    reward :: Prelude.Text,+    -- | 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.+    title :: Prelude.Text,+    -- | 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.+    description :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHITType' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'autoApprovalDelayInSeconds', 'createHITType_autoApprovalDelayInSeconds' - 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.+--+-- 'keywords', 'createHITType_keywords' - One or more words or phrases that describe the HIT, separated by commas.+-- These words are used in searches to find HITs.+--+-- 'qualificationRequirements', 'createHITType_qualificationRequirements' - 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.+--+-- 'assignmentDurationInSeconds', 'createHITType_assignmentDurationInSeconds' - 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.+--+-- 'reward', 'createHITType_reward' - The amount of money the Requester will pay a Worker for successfully+-- completing the HIT.+--+-- 'title', 'createHITType_title' - 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.+--+-- 'description', 'createHITType_description' - 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.+newCreateHITType ::+  -- | 'assignmentDurationInSeconds'+  Prelude.Integer ->+  -- | 'reward'+  Prelude.Text ->+  -- | 'title'+  Prelude.Text ->+  -- | 'description'+  Prelude.Text ->+  CreateHITType+newCreateHITType+  pAssignmentDurationInSeconds_+  pReward_+  pTitle_+  pDescription_ =+    CreateHITType'+      { autoApprovalDelayInSeconds =+          Prelude.Nothing,+        keywords = Prelude.Nothing,+        qualificationRequirements = Prelude.Nothing,+        assignmentDurationInSeconds =+          pAssignmentDurationInSeconds_,+        reward = pReward_,+        title = pTitle_,+        description = 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.+createHITType_autoApprovalDelayInSeconds :: Lens.Lens' CreateHITType (Prelude.Maybe Prelude.Integer)+createHITType_autoApprovalDelayInSeconds = Lens.lens (\CreateHITType' {autoApprovalDelayInSeconds} -> autoApprovalDelayInSeconds) (\s@CreateHITType' {} a -> s {autoApprovalDelayInSeconds = a} :: CreateHITType)++-- | One or more words or phrases that describe the HIT, separated by commas.+-- These words are used in searches to find HITs.+createHITType_keywords :: Lens.Lens' CreateHITType (Prelude.Maybe Prelude.Text)+createHITType_keywords = Lens.lens (\CreateHITType' {keywords} -> keywords) (\s@CreateHITType' {} a -> s {keywords = a} :: CreateHITType)++-- | 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.+createHITType_qualificationRequirements :: Lens.Lens' CreateHITType (Prelude.Maybe [QualificationRequirement])+createHITType_qualificationRequirements = Lens.lens (\CreateHITType' {qualificationRequirements} -> qualificationRequirements) (\s@CreateHITType' {} a -> s {qualificationRequirements = a} :: CreateHITType) Prelude.. Lens.mapping Lens.coerced++-- | 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.+createHITType_assignmentDurationInSeconds :: Lens.Lens' CreateHITType Prelude.Integer+createHITType_assignmentDurationInSeconds = Lens.lens (\CreateHITType' {assignmentDurationInSeconds} -> assignmentDurationInSeconds) (\s@CreateHITType' {} a -> s {assignmentDurationInSeconds = a} :: CreateHITType)++-- | The amount of money the Requester will pay a Worker for successfully+-- completing the HIT.+createHITType_reward :: Lens.Lens' CreateHITType Prelude.Text+createHITType_reward = Lens.lens (\CreateHITType' {reward} -> reward) (\s@CreateHITType' {} a -> s {reward = a} :: CreateHITType)++-- | 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.+createHITType_title :: Lens.Lens' CreateHITType Prelude.Text+createHITType_title = Lens.lens (\CreateHITType' {title} -> title) (\s@CreateHITType' {} a -> s {title = a} :: CreateHITType)++-- | 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.+createHITType_description :: Lens.Lens' CreateHITType Prelude.Text+createHITType_description = Lens.lens (\CreateHITType' {description} -> description) (\s@CreateHITType' {} a -> s {description = a} :: CreateHITType)++instance Core.AWSRequest CreateHITType where+  type+    AWSResponse CreateHITType =+      CreateHITTypeResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateHITTypeResponse'+            Prelude.<$> (x Data..?> "HITTypeId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateHITType where+  hashWithSalt _salt CreateHITType' {..} =+    _salt+      `Prelude.hashWithSalt` autoApprovalDelayInSeconds+      `Prelude.hashWithSalt` keywords+      `Prelude.hashWithSalt` qualificationRequirements+      `Prelude.hashWithSalt` assignmentDurationInSeconds+      `Prelude.hashWithSalt` reward+      `Prelude.hashWithSalt` title+      `Prelude.hashWithSalt` description++instance Prelude.NFData CreateHITType where+  rnf CreateHITType' {..} =+    Prelude.rnf autoApprovalDelayInSeconds+      `Prelude.seq` Prelude.rnf keywords+      `Prelude.seq` Prelude.rnf qualificationRequirements+      `Prelude.seq` Prelude.rnf assignmentDurationInSeconds+      `Prelude.seq` Prelude.rnf reward+      `Prelude.seq` Prelude.rnf title+      `Prelude.seq` Prelude.rnf description++instance Data.ToHeaders CreateHITType where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MTurkRequesterServiceV20170117.CreateHITType" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateHITType where+  toJSON CreateHITType' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AutoApprovalDelayInSeconds" Data..=)+              Prelude.<$> autoApprovalDelayInSeconds,+            ("Keywords" Data..=) Prelude.<$> keywords,+            ("QualificationRequirements" Data..=)+              Prelude.<$> qualificationRequirements,+            Prelude.Just+              ( "AssignmentDurationInSeconds"+                  Data..= assignmentDurationInSeconds+              ),+            Prelude.Just ("Reward" Data..= reward),+            Prelude.Just ("Title" Data..= title),+            Prelude.Just ("Description" Data..= description)+          ]+      )++instance Data.ToPath CreateHITType where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateHITType where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateHITTypeResponse' smart constructor.+data CreateHITTypeResponse = CreateHITTypeResponse'+  { -- | The ID of the newly registered HIT type.+    hITTypeId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHITTypeResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hITTypeId', 'createHITTypeResponse_hITTypeId' - The ID of the newly registered HIT type.+--+-- 'httpStatus', 'createHITTypeResponse_httpStatus' - The response's http status code.+newCreateHITTypeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateHITTypeResponse+newCreateHITTypeResponse pHttpStatus_ =+  CreateHITTypeResponse'+    { hITTypeId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ID of the newly registered HIT type.+createHITTypeResponse_hITTypeId :: Lens.Lens' CreateHITTypeResponse (Prelude.Maybe Prelude.Text)+createHITTypeResponse_hITTypeId = Lens.lens (\CreateHITTypeResponse' {hITTypeId} -> hITTypeId) (\s@CreateHITTypeResponse' {} a -> s {hITTypeId = a} :: CreateHITTypeResponse)++-- | The response's http status code.+createHITTypeResponse_httpStatus :: Lens.Lens' CreateHITTypeResponse Prelude.Int+createHITTypeResponse_httpStatus = Lens.lens (\CreateHITTypeResponse' {httpStatus} -> httpStatus) (\s@CreateHITTypeResponse' {} a -> s {httpStatus = a} :: CreateHITTypeResponse)++instance Prelude.NFData CreateHITTypeResponse where+  rnf CreateHITTypeResponse' {..} =+    Prelude.rnf hITTypeId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,449 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MechanicalTurk.CreateHITWithHITType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The @CreateHITWithHITType@ operation creates a new Human Intelligence+-- Task (HIT) using an existing HITTypeID generated by the @CreateHITType@+-- operation.+--+-- This is an alternative way to create HITs from the @CreateHIT@+-- operation. This is the recommended best practice for Requesters who are+-- creating large numbers of HITs.+--+-- CreateHITWithHITType also supports several ways to provide question+-- data: by providing a value for the @Question@ parameter that fully+-- specifies the contents of the HIT, or by providing a @HitLayoutId@ and+-- associated @HitLayoutParameters@.+--+-- If a HIT is created with 10 or more maximum assignments, there is an+-- additional fee. For more information, see+-- <https://requester.mturk.com/pricing Amazon Mechanical Turk Pricing>.+module Amazonka.MechanicalTurk.CreateHITWithHITType+  ( -- * Creating a Request+    CreateHITWithHITType (..),+    newCreateHITWithHITType,++    -- * Request Lenses+    createHITWithHITType_assignmentReviewPolicy,+    createHITWithHITType_hITLayoutId,+    createHITWithHITType_hITLayoutParameters,+    createHITWithHITType_hITReviewPolicy,+    createHITWithHITType_maxAssignments,+    createHITWithHITType_question,+    createHITWithHITType_requesterAnnotation,+    createHITWithHITType_uniqueRequestToken,+    createHITWithHITType_hITTypeId,+    createHITWithHITType_lifetimeInSeconds,++    -- * Destructuring the Response+    CreateHITWithHITTypeResponse (..),+    newCreateHITWithHITTypeResponse,++    -- * Response Lenses+    createHITWithHITTypeResponse_hit,+    createHITWithHITTypeResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MechanicalTurk.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateHITWithHITType' smart constructor.+data CreateHITWithHITType = CreateHITWithHITType'+  { -- | 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.+    assignmentReviewPolicy :: Prelude.Maybe ReviewPolicy,+    -- | 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.+    hITLayoutId :: Prelude.Maybe Prelude.Text,+    -- | If the HITLayoutId is provided, any placeholder values must be filled in+    -- with values using the HITLayoutParameter structure. For more+    -- information, see HITLayout.+    hITLayoutParameters :: Prelude.Maybe [HITLayoutParameter],+    -- | The HIT-level Review Policy applies to the HIT. You can specify for+    -- Mechanical Turk to take various actions based on the policy.+    hITReviewPolicy :: Prelude.Maybe ReviewPolicy,+    -- | The number of times the HIT can be accepted and completed before the HIT+    -- becomes unavailable.+    maxAssignments :: Prelude.Maybe Prelude.Int,+    -- | 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.+    question :: Prelude.Maybe Prelude.Text,+    -- | 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.+    requesterAnnotation :: Prelude.Maybe Prelude.Text,+    -- | 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.+    --+    -- Note: It is your responsibility to ensure uniqueness of the token. The+    -- unique token expires after 24 hours. Subsequent calls using the same+    -- UniqueRequestToken made after the 24 hour limit could create duplicate+    -- HITs.+    uniqueRequestToken :: Prelude.Maybe Prelude.Text,+    -- | The HIT type ID you want to create this HIT with.+    hITTypeId :: Prelude.Text,+    -- | 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.+    lifetimeInSeconds :: Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHITWithHITType' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'assignmentReviewPolicy', 'createHITWithHITType_assignmentReviewPolicy' - 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.+--+-- 'hITLayoutId', 'createHITWithHITType_hITLayoutId' - 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.+--+-- 'hITLayoutParameters', 'createHITWithHITType_hITLayoutParameters' - If the HITLayoutId is provided, any placeholder values must be filled in+-- with values using the HITLayoutParameter structure. For more+-- information, see HITLayout.+--+-- 'hITReviewPolicy', 'createHITWithHITType_hITReviewPolicy' - The HIT-level Review Policy applies to the HIT. You can specify for+-- Mechanical Turk to take various actions based on the policy.+--+-- 'maxAssignments', 'createHITWithHITType_maxAssignments' - The number of times the HIT can be accepted and completed before the HIT+-- becomes unavailable.+--+-- 'question', 'createHITWithHITType_question' - 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.+--+-- 'requesterAnnotation', 'createHITWithHITType_requesterAnnotation' - 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.+--+-- 'uniqueRequestToken', 'createHITWithHITType_uniqueRequestToken' - 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.+--+-- Note: It is your responsibility to ensure uniqueness of the token. The+-- unique token expires after 24 hours. Subsequent calls using the same+-- UniqueRequestToken made after the 24 hour limit could create duplicate+-- HITs.+--+-- 'hITTypeId', 'createHITWithHITType_hITTypeId' - The HIT type ID you want to create this HIT with.+--+-- 'lifetimeInSeconds', 'createHITWithHITType_lifetimeInSeconds' - 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.+newCreateHITWithHITType ::+  -- | 'hITTypeId'+  Prelude.Text ->+  -- | 'lifetimeInSeconds'+  Prelude.Integer ->+  CreateHITWithHITType+newCreateHITWithHITType+  pHITTypeId_+  pLifetimeInSeconds_ =+    CreateHITWithHITType'+      { assignmentReviewPolicy =+          Prelude.Nothing,+        hITLayoutId = Prelude.Nothing,+        hITLayoutParameters = Prelude.Nothing,+        hITReviewPolicy = Prelude.Nothing,+        maxAssignments = Prelude.Nothing,+        question = Prelude.Nothing,+        requesterAnnotation = Prelude.Nothing,+        uniqueRequestToken = Prelude.Nothing,+        hITTypeId = pHITTypeId_,+        lifetimeInSeconds = pLifetimeInSeconds_+      }++-- | 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.+createHITWithHITType_assignmentReviewPolicy :: Lens.Lens' CreateHITWithHITType (Prelude.Maybe ReviewPolicy)+createHITWithHITType_assignmentReviewPolicy = Lens.lens (\CreateHITWithHITType' {assignmentReviewPolicy} -> assignmentReviewPolicy) (\s@CreateHITWithHITType' {} a -> s {assignmentReviewPolicy = a} :: CreateHITWithHITType)++-- | 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.+createHITWithHITType_hITLayoutId :: Lens.Lens' CreateHITWithHITType (Prelude.Maybe Prelude.Text)+createHITWithHITType_hITLayoutId = Lens.lens (\CreateHITWithHITType' {hITLayoutId} -> hITLayoutId) (\s@CreateHITWithHITType' {} a -> s {hITLayoutId = a} :: CreateHITWithHITType)++-- | If the HITLayoutId is provided, any placeholder values must be filled in+-- with values using the HITLayoutParameter structure. For more+-- information, see HITLayout.+createHITWithHITType_hITLayoutParameters :: Lens.Lens' CreateHITWithHITType (Prelude.Maybe [HITLayoutParameter])+createHITWithHITType_hITLayoutParameters = Lens.lens (\CreateHITWithHITType' {hITLayoutParameters} -> hITLayoutParameters) (\s@CreateHITWithHITType' {} a -> s {hITLayoutParameters = a} :: CreateHITWithHITType) Prelude.. Lens.mapping Lens.coerced++-- | The HIT-level Review Policy applies to the HIT. You can specify for+-- Mechanical Turk to take various actions based on the policy.+createHITWithHITType_hITReviewPolicy :: Lens.Lens' CreateHITWithHITType (Prelude.Maybe ReviewPolicy)+createHITWithHITType_hITReviewPolicy = Lens.lens (\CreateHITWithHITType' {hITReviewPolicy} -> hITReviewPolicy) (\s@CreateHITWithHITType' {} a -> s {hITReviewPolicy = a} :: CreateHITWithHITType)++-- | The number of times the HIT can be accepted and completed before the HIT+-- becomes unavailable.+createHITWithHITType_maxAssignments :: Lens.Lens' CreateHITWithHITType (Prelude.Maybe Prelude.Int)+createHITWithHITType_maxAssignments = Lens.lens (\CreateHITWithHITType' {maxAssignments} -> maxAssignments) (\s@CreateHITWithHITType' {} a -> s {maxAssignments = a} :: CreateHITWithHITType)++-- | 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.+createHITWithHITType_question :: Lens.Lens' CreateHITWithHITType (Prelude.Maybe Prelude.Text)+createHITWithHITType_question = Lens.lens (\CreateHITWithHITType' {question} -> question) (\s@CreateHITWithHITType' {} a -> s {question = a} :: CreateHITWithHITType)++-- | 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.+createHITWithHITType_requesterAnnotation :: Lens.Lens' CreateHITWithHITType (Prelude.Maybe Prelude.Text)+createHITWithHITType_requesterAnnotation = Lens.lens (\CreateHITWithHITType' {requesterAnnotation} -> requesterAnnotation) (\s@CreateHITWithHITType' {} a -> s {requesterAnnotation = a} :: CreateHITWithHITType)++-- | 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.+--+-- Note: It is your responsibility to ensure uniqueness of the token. The+-- unique token expires after 24 hours. Subsequent calls using the same+-- UniqueRequestToken made after the 24 hour limit could create duplicate+-- HITs.+createHITWithHITType_uniqueRequestToken :: Lens.Lens' CreateHITWithHITType (Prelude.Maybe Prelude.Text)+createHITWithHITType_uniqueRequestToken = Lens.lens (\CreateHITWithHITType' {uniqueRequestToken} -> uniqueRequestToken) (\s@CreateHITWithHITType' {} a -> s {uniqueRequestToken = a} :: CreateHITWithHITType)++-- | The HIT type ID you want to create this HIT with.+createHITWithHITType_hITTypeId :: Lens.Lens' CreateHITWithHITType Prelude.Text+createHITWithHITType_hITTypeId = Lens.lens (\CreateHITWithHITType' {hITTypeId} -> hITTypeId) (\s@CreateHITWithHITType' {} a -> s {hITTypeId = a} :: CreateHITWithHITType)++-- | 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.+createHITWithHITType_lifetimeInSeconds :: Lens.Lens' CreateHITWithHITType Prelude.Integer+createHITWithHITType_lifetimeInSeconds = Lens.lens (\CreateHITWithHITType' {lifetimeInSeconds} -> lifetimeInSeconds) (\s@CreateHITWithHITType' {} a -> s {lifetimeInSeconds = a} :: CreateHITWithHITType)++instance Core.AWSRequest CreateHITWithHITType where+  type+    AWSResponse CreateHITWithHITType =+      CreateHITWithHITTypeResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateHITWithHITTypeResponse'+            Prelude.<$> (x Data..?> "HIT")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateHITWithHITType where+  hashWithSalt _salt CreateHITWithHITType' {..} =+    _salt+      `Prelude.hashWithSalt` assignmentReviewPolicy+      `Prelude.hashWithSalt` hITLayoutId+      `Prelude.hashWithSalt` hITLayoutParameters+      `Prelude.hashWithSalt` hITReviewPolicy+      `Prelude.hashWithSalt` maxAssignments+      `Prelude.hashWithSalt` question+      `Prelude.hashWithSalt` requesterAnnotation+      `Prelude.hashWithSalt` uniqueRequestToken+      `Prelude.hashWithSalt` hITTypeId+      `Prelude.hashWithSalt` lifetimeInSeconds++instance Prelude.NFData CreateHITWithHITType where+  rnf CreateHITWithHITType' {..} =+    Prelude.rnf assignmentReviewPolicy+      `Prelude.seq` Prelude.rnf hITLayoutId+      `Prelude.seq` Prelude.rnf hITLayoutParameters+      `Prelude.seq` Prelude.rnf hITReviewPolicy+      `Prelude.seq` Prelude.rnf maxAssignments+      `Prelude.seq` Prelude.rnf question+      `Prelude.seq` Prelude.rnf requesterAnnotation+      `Prelude.seq` Prelude.rnf uniqueRequestToken+      `Prelude.seq` Prelude.rnf hITTypeId+      `Prelude.seq` Prelude.rnf lifetimeInSeconds++instance Data.ToHeaders CreateHITWithHITType where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MTurkRequesterServiceV20170117.CreateHITWithHITType" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateHITWithHITType where+  toJSON CreateHITWithHITType' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AssignmentReviewPolicy" Data..=)+              Prelude.<$> assignmentReviewPolicy,+            ("HITLayoutId" Data..=) Prelude.<$> hITLayoutId,+            ("HITLayoutParameters" Data..=)+              Prelude.<$> hITLayoutParameters,+            ("HITReviewPolicy" Data..=)+              Prelude.<$> hITReviewPolicy,+            ("MaxAssignments" Data..=)+              Prelude.<$> maxAssignments,+            ("Question" Data..=) Prelude.<$> question,+            ("RequesterAnnotation" Data..=)+              Prelude.<$> requesterAnnotation,+            ("UniqueRequestToken" Data..=)+              Prelude.<$> uniqueRequestToken,+            Prelude.Just ("HITTypeId" Data..= hITTypeId),+            Prelude.Just+              ("LifetimeInSeconds" Data..= lifetimeInSeconds)+          ]+      )++instance Data.ToPath CreateHITWithHITType where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateHITWithHITType where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateHITWithHITTypeResponse' smart constructor.+data CreateHITWithHITTypeResponse = CreateHITWithHITTypeResponse'+  { -- | 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.+    hit :: Prelude.Maybe HIT,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHITWithHITTypeResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hit', 'createHITWithHITTypeResponse_hit' - 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.+--+-- 'httpStatus', 'createHITWithHITTypeResponse_httpStatus' - The response's http status code.+newCreateHITWithHITTypeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateHITWithHITTypeResponse+newCreateHITWithHITTypeResponse pHttpStatus_ =+  CreateHITWithHITTypeResponse'+    { hit =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | 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.+createHITWithHITTypeResponse_hit :: Lens.Lens' CreateHITWithHITTypeResponse (Prelude.Maybe HIT)+createHITWithHITTypeResponse_hit = Lens.lens (\CreateHITWithHITTypeResponse' {hit} -> hit) (\s@CreateHITWithHITTypeResponse' {} a -> s {hit = a} :: CreateHITWithHITTypeResponse)++-- | The response's http status code.+createHITWithHITTypeResponse_httpStatus :: Lens.Lens' CreateHITWithHITTypeResponse Prelude.Int+createHITWithHITTypeResponse_httpStatus = Lens.lens (\CreateHITWithHITTypeResponse' {httpStatus} -> httpStatus) (\s@CreateHITWithHITTypeResponse' {} a -> s {httpStatus = a} :: CreateHITWithHITTypeResponse)++instance Prelude.NFData CreateHITWithHITTypeResponse where+  rnf CreateHITWithHITTypeResponse' {..} =+    Prelude.rnf hit+      `Prelude.seq` Prelude.rnf httpStatus