{-# 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 #-}
module Amazonka.MechanicalTurk.CreateHIT
(
CreateHIT (..),
newCreateHIT,
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,
CreateHITResponse (..),
newCreateHITResponse,
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
data CreateHIT = CreateHIT'
{
CreateHIT -> Maybe ReviewPolicy
assignmentReviewPolicy :: Prelude.Maybe ReviewPolicy,
CreateHIT -> Maybe Integer
autoApprovalDelayInSeconds :: Prelude.Maybe Prelude.Integer,
CreateHIT -> Maybe Text
hITLayoutId :: Prelude.Maybe Prelude.Text,
CreateHIT -> Maybe [HITLayoutParameter]
hITLayoutParameters :: Prelude.Maybe [HITLayoutParameter],
CreateHIT -> Maybe ReviewPolicy
hITReviewPolicy :: Prelude.Maybe ReviewPolicy,
CreateHIT -> Maybe Text
keywords :: Prelude.Maybe Prelude.Text,
CreateHIT -> Maybe Int
maxAssignments :: Prelude.Maybe Prelude.Int,
CreateHIT -> Maybe [QualificationRequirement]
qualificationRequirements :: Prelude.Maybe [QualificationRequirement],
CreateHIT -> Maybe Text
question :: Prelude.Maybe Prelude.Text,
CreateHIT -> Maybe Text
requesterAnnotation :: Prelude.Maybe Prelude.Text,
CreateHIT -> Maybe Text
uniqueRequestToken :: Prelude.Maybe Prelude.Text,
CreateHIT -> Integer
lifetimeInSeconds :: Prelude.Integer,
CreateHIT -> Integer
assignmentDurationInSeconds :: Prelude.Integer,
CreateHIT -> Text
reward :: Prelude.Text,
CreateHIT -> Text
title :: Prelude.Text,
CreateHIT -> Text
description :: Prelude.Text
}
deriving (CreateHIT -> CreateHIT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateHIT -> CreateHIT -> Bool
$c/= :: CreateHIT -> CreateHIT -> Bool
== :: CreateHIT -> CreateHIT -> Bool
$c== :: CreateHIT -> CreateHIT -> Bool
Prelude.Eq, ReadPrec [CreateHIT]
ReadPrec CreateHIT
Int -> ReadS CreateHIT
ReadS [CreateHIT]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateHIT]
$creadListPrec :: ReadPrec [CreateHIT]
readPrec :: ReadPrec CreateHIT
$creadPrec :: ReadPrec CreateHIT
readList :: ReadS [CreateHIT]
$creadList :: ReadS [CreateHIT]
readsPrec :: Int -> ReadS CreateHIT
$creadsPrec :: Int -> ReadS CreateHIT
Prelude.Read, Int -> CreateHIT -> ShowS
[CreateHIT] -> ShowS
CreateHIT -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateHIT] -> ShowS
$cshowList :: [CreateHIT] -> ShowS
show :: CreateHIT -> String
$cshow :: CreateHIT -> String
showsPrec :: Int -> CreateHIT -> ShowS
$cshowsPrec :: Int -> CreateHIT -> ShowS
Prelude.Show, forall x. Rep CreateHIT x -> CreateHIT
forall x. CreateHIT -> Rep CreateHIT x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateHIT x -> CreateHIT
$cfrom :: forall x. CreateHIT -> Rep CreateHIT x
Prelude.Generic)
newCreateHIT ::
Prelude.Integer ->
Prelude.Integer ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateHIT
newCreateHIT :: Integer -> Integer -> Text -> Text -> Text -> CreateHIT
newCreateHIT
Integer
pLifetimeInSeconds_
Integer
pAssignmentDurationInSeconds_
Text
pReward_
Text
pTitle_
Text
pDescription_ =
CreateHIT'
{ $sel:assignmentReviewPolicy:CreateHIT' :: Maybe ReviewPolicy
assignmentReviewPolicy =
forall a. Maybe a
Prelude.Nothing,
$sel:autoApprovalDelayInSeconds:CreateHIT' :: Maybe Integer
autoApprovalDelayInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:hITLayoutId:CreateHIT' :: Maybe Text
hITLayoutId = forall a. Maybe a
Prelude.Nothing,
$sel:hITLayoutParameters:CreateHIT' :: Maybe [HITLayoutParameter]
hITLayoutParameters = forall a. Maybe a
Prelude.Nothing,
$sel:hITReviewPolicy:CreateHIT' :: Maybe ReviewPolicy
hITReviewPolicy = forall a. Maybe a
Prelude.Nothing,
$sel:keywords:CreateHIT' :: Maybe Text
keywords = forall a. Maybe a
Prelude.Nothing,
$sel:maxAssignments:CreateHIT' :: Maybe Int
maxAssignments = forall a. Maybe a
Prelude.Nothing,
$sel:qualificationRequirements:CreateHIT' :: Maybe [QualificationRequirement]
qualificationRequirements = forall a. Maybe a
Prelude.Nothing,
$sel:question:CreateHIT' :: Maybe Text
question = forall a. Maybe a
Prelude.Nothing,
$sel:requesterAnnotation:CreateHIT' :: Maybe Text
requesterAnnotation = forall a. Maybe a
Prelude.Nothing,
$sel:uniqueRequestToken:CreateHIT' :: Maybe Text
uniqueRequestToken = forall a. Maybe a
Prelude.Nothing,
$sel:lifetimeInSeconds:CreateHIT' :: Integer
lifetimeInSeconds = Integer
pLifetimeInSeconds_,
$sel:assignmentDurationInSeconds:CreateHIT' :: Integer
assignmentDurationInSeconds =
Integer
pAssignmentDurationInSeconds_,
$sel:reward:CreateHIT' :: Text
reward = Text
pReward_,
$sel:title:CreateHIT' :: Text
title = Text
pTitle_,
$sel:description:CreateHIT' :: Text
description = Text
pDescription_
}
createHIT_assignmentReviewPolicy :: Lens.Lens' CreateHIT (Prelude.Maybe ReviewPolicy)
createHIT_assignmentReviewPolicy :: Lens' CreateHIT (Maybe ReviewPolicy)
createHIT_assignmentReviewPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe ReviewPolicy
assignmentReviewPolicy :: Maybe ReviewPolicy
$sel:assignmentReviewPolicy:CreateHIT' :: CreateHIT -> Maybe ReviewPolicy
assignmentReviewPolicy} -> Maybe ReviewPolicy
assignmentReviewPolicy) (\s :: CreateHIT
s@CreateHIT' {} Maybe ReviewPolicy
a -> CreateHIT
s {$sel:assignmentReviewPolicy:CreateHIT' :: Maybe ReviewPolicy
assignmentReviewPolicy = Maybe ReviewPolicy
a} :: CreateHIT)
createHIT_autoApprovalDelayInSeconds :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Integer)
createHIT_autoApprovalDelayInSeconds :: Lens' CreateHIT (Maybe Integer)
createHIT_autoApprovalDelayInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe Integer
autoApprovalDelayInSeconds :: Maybe Integer
$sel:autoApprovalDelayInSeconds:CreateHIT' :: CreateHIT -> Maybe Integer
autoApprovalDelayInSeconds} -> Maybe Integer
autoApprovalDelayInSeconds) (\s :: CreateHIT
s@CreateHIT' {} Maybe Integer
a -> CreateHIT
s {$sel:autoApprovalDelayInSeconds:CreateHIT' :: Maybe Integer
autoApprovalDelayInSeconds = Maybe Integer
a} :: CreateHIT)
createHIT_hITLayoutId :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)
createHIT_hITLayoutId :: Lens' CreateHIT (Maybe Text)
createHIT_hITLayoutId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe Text
hITLayoutId :: Maybe Text
$sel:hITLayoutId:CreateHIT' :: CreateHIT -> Maybe Text
hITLayoutId} -> Maybe Text
hITLayoutId) (\s :: CreateHIT
s@CreateHIT' {} Maybe Text
a -> CreateHIT
s {$sel:hITLayoutId:CreateHIT' :: Maybe Text
hITLayoutId = Maybe Text
a} :: CreateHIT)
createHIT_hITLayoutParameters :: Lens.Lens' CreateHIT (Prelude.Maybe [HITLayoutParameter])
createHIT_hITLayoutParameters :: Lens' CreateHIT (Maybe [HITLayoutParameter])
createHIT_hITLayoutParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe [HITLayoutParameter]
hITLayoutParameters :: Maybe [HITLayoutParameter]
$sel:hITLayoutParameters:CreateHIT' :: CreateHIT -> Maybe [HITLayoutParameter]
hITLayoutParameters} -> Maybe [HITLayoutParameter]
hITLayoutParameters) (\s :: CreateHIT
s@CreateHIT' {} Maybe [HITLayoutParameter]
a -> CreateHIT
s {$sel:hITLayoutParameters:CreateHIT' :: Maybe [HITLayoutParameter]
hITLayoutParameters = Maybe [HITLayoutParameter]
a} :: CreateHIT) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createHIT_hITReviewPolicy :: Lens.Lens' CreateHIT (Prelude.Maybe ReviewPolicy)
createHIT_hITReviewPolicy :: Lens' CreateHIT (Maybe ReviewPolicy)
createHIT_hITReviewPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe ReviewPolicy
hITReviewPolicy :: Maybe ReviewPolicy
$sel:hITReviewPolicy:CreateHIT' :: CreateHIT -> Maybe ReviewPolicy
hITReviewPolicy} -> Maybe ReviewPolicy
hITReviewPolicy) (\s :: CreateHIT
s@CreateHIT' {} Maybe ReviewPolicy
a -> CreateHIT
s {$sel:hITReviewPolicy:CreateHIT' :: Maybe ReviewPolicy
hITReviewPolicy = Maybe ReviewPolicy
a} :: CreateHIT)
createHIT_keywords :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)
createHIT_keywords :: Lens' CreateHIT (Maybe Text)
createHIT_keywords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe Text
keywords :: Maybe Text
$sel:keywords:CreateHIT' :: CreateHIT -> Maybe Text
keywords} -> Maybe Text
keywords) (\s :: CreateHIT
s@CreateHIT' {} Maybe Text
a -> CreateHIT
s {$sel:keywords:CreateHIT' :: Maybe Text
keywords = Maybe Text
a} :: CreateHIT)
createHIT_maxAssignments :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Int)
createHIT_maxAssignments :: Lens' CreateHIT (Maybe Int)
createHIT_maxAssignments = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe Int
maxAssignments :: Maybe Int
$sel:maxAssignments:CreateHIT' :: CreateHIT -> Maybe Int
maxAssignments} -> Maybe Int
maxAssignments) (\s :: CreateHIT
s@CreateHIT' {} Maybe Int
a -> CreateHIT
s {$sel:maxAssignments:CreateHIT' :: Maybe Int
maxAssignments = Maybe Int
a} :: CreateHIT)
createHIT_qualificationRequirements :: Lens.Lens' CreateHIT (Prelude.Maybe [QualificationRequirement])
createHIT_qualificationRequirements :: Lens' CreateHIT (Maybe [QualificationRequirement])
createHIT_qualificationRequirements = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe [QualificationRequirement]
qualificationRequirements :: Maybe [QualificationRequirement]
$sel:qualificationRequirements:CreateHIT' :: CreateHIT -> Maybe [QualificationRequirement]
qualificationRequirements} -> Maybe [QualificationRequirement]
qualificationRequirements) (\s :: CreateHIT
s@CreateHIT' {} Maybe [QualificationRequirement]
a -> CreateHIT
s {$sel:qualificationRequirements:CreateHIT' :: Maybe [QualificationRequirement]
qualificationRequirements = Maybe [QualificationRequirement]
a} :: CreateHIT) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createHIT_question :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)
createHIT_question :: Lens' CreateHIT (Maybe Text)
createHIT_question = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe Text
question :: Maybe Text
$sel:question:CreateHIT' :: CreateHIT -> Maybe Text
question} -> Maybe Text
question) (\s :: CreateHIT
s@CreateHIT' {} Maybe Text
a -> CreateHIT
s {$sel:question:CreateHIT' :: Maybe Text
question = Maybe Text
a} :: CreateHIT)
createHIT_requesterAnnotation :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)
createHIT_requesterAnnotation :: Lens' CreateHIT (Maybe Text)
createHIT_requesterAnnotation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe Text
requesterAnnotation :: Maybe Text
$sel:requesterAnnotation:CreateHIT' :: CreateHIT -> Maybe Text
requesterAnnotation} -> Maybe Text
requesterAnnotation) (\s :: CreateHIT
s@CreateHIT' {} Maybe Text
a -> CreateHIT
s {$sel:requesterAnnotation:CreateHIT' :: Maybe Text
requesterAnnotation = Maybe Text
a} :: CreateHIT)
createHIT_uniqueRequestToken :: Lens.Lens' CreateHIT (Prelude.Maybe Prelude.Text)
createHIT_uniqueRequestToken :: Lens' CreateHIT (Maybe Text)
createHIT_uniqueRequestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Maybe Text
uniqueRequestToken :: Maybe Text
$sel:uniqueRequestToken:CreateHIT' :: CreateHIT -> Maybe Text
uniqueRequestToken} -> Maybe Text
uniqueRequestToken) (\s :: CreateHIT
s@CreateHIT' {} Maybe Text
a -> CreateHIT
s {$sel:uniqueRequestToken:CreateHIT' :: Maybe Text
uniqueRequestToken = Maybe Text
a} :: CreateHIT)
createHIT_lifetimeInSeconds :: Lens.Lens' CreateHIT Prelude.Integer
createHIT_lifetimeInSeconds :: Lens' CreateHIT Integer
createHIT_lifetimeInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Integer
lifetimeInSeconds :: Integer
$sel:lifetimeInSeconds:CreateHIT' :: CreateHIT -> Integer
lifetimeInSeconds} -> Integer
lifetimeInSeconds) (\s :: CreateHIT
s@CreateHIT' {} Integer
a -> CreateHIT
s {$sel:lifetimeInSeconds:CreateHIT' :: Integer
lifetimeInSeconds = Integer
a} :: CreateHIT)
createHIT_assignmentDurationInSeconds :: Lens.Lens' CreateHIT Prelude.Integer
createHIT_assignmentDurationInSeconds :: Lens' CreateHIT Integer
createHIT_assignmentDurationInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Integer
assignmentDurationInSeconds :: Integer
$sel:assignmentDurationInSeconds:CreateHIT' :: CreateHIT -> Integer
assignmentDurationInSeconds} -> Integer
assignmentDurationInSeconds) (\s :: CreateHIT
s@CreateHIT' {} Integer
a -> CreateHIT
s {$sel:assignmentDurationInSeconds:CreateHIT' :: Integer
assignmentDurationInSeconds = Integer
a} :: CreateHIT)
createHIT_reward :: Lens.Lens' CreateHIT Prelude.Text
createHIT_reward :: Lens' CreateHIT Text
createHIT_reward = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Text
reward :: Text
$sel:reward:CreateHIT' :: CreateHIT -> Text
reward} -> Text
reward) (\s :: CreateHIT
s@CreateHIT' {} Text
a -> CreateHIT
s {$sel:reward:CreateHIT' :: Text
reward = Text
a} :: CreateHIT)
createHIT_title :: Lens.Lens' CreateHIT Prelude.Text
createHIT_title :: Lens' CreateHIT Text
createHIT_title = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Text
title :: Text
$sel:title:CreateHIT' :: CreateHIT -> Text
title} -> Text
title) (\s :: CreateHIT
s@CreateHIT' {} Text
a -> CreateHIT
s {$sel:title:CreateHIT' :: Text
title = Text
a} :: CreateHIT)
createHIT_description :: Lens.Lens' CreateHIT Prelude.Text
createHIT_description :: Lens' CreateHIT Text
createHIT_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHIT' {Text
description :: Text
$sel:description:CreateHIT' :: CreateHIT -> Text
description} -> Text
description) (\s :: CreateHIT
s@CreateHIT' {} Text
a -> CreateHIT
s {$sel:description:CreateHIT' :: Text
description = Text
a} :: CreateHIT)
instance Core.AWSRequest CreateHIT where
type AWSResponse CreateHIT = CreateHITResponse
request :: (Service -> Service) -> CreateHIT -> Request CreateHIT
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateHIT
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateHIT)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe HIT -> Int -> CreateHITResponse
CreateHITResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"HIT")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable CreateHIT where
hashWithSalt :: Int -> CreateHIT -> Int
hashWithSalt Int
_salt CreateHIT' {Integer
Maybe Int
Maybe Integer
Maybe [HITLayoutParameter]
Maybe [QualificationRequirement]
Maybe Text
Maybe ReviewPolicy
Text
description :: Text
title :: Text
reward :: Text
assignmentDurationInSeconds :: Integer
lifetimeInSeconds :: Integer
uniqueRequestToken :: Maybe Text
requesterAnnotation :: Maybe Text
question :: Maybe Text
qualificationRequirements :: Maybe [QualificationRequirement]
maxAssignments :: Maybe Int
keywords :: Maybe Text
hITReviewPolicy :: Maybe ReviewPolicy
hITLayoutParameters :: Maybe [HITLayoutParameter]
hITLayoutId :: Maybe Text
autoApprovalDelayInSeconds :: Maybe Integer
assignmentReviewPolicy :: Maybe ReviewPolicy
$sel:description:CreateHIT' :: CreateHIT -> Text
$sel:title:CreateHIT' :: CreateHIT -> Text
$sel:reward:CreateHIT' :: CreateHIT -> Text
$sel:assignmentDurationInSeconds:CreateHIT' :: CreateHIT -> Integer
$sel:lifetimeInSeconds:CreateHIT' :: CreateHIT -> Integer
$sel:uniqueRequestToken:CreateHIT' :: CreateHIT -> Maybe Text
$sel:requesterAnnotation:CreateHIT' :: CreateHIT -> Maybe Text
$sel:question:CreateHIT' :: CreateHIT -> Maybe Text
$sel:qualificationRequirements:CreateHIT' :: CreateHIT -> Maybe [QualificationRequirement]
$sel:maxAssignments:CreateHIT' :: CreateHIT -> Maybe Int
$sel:keywords:CreateHIT' :: CreateHIT -> Maybe Text
$sel:hITReviewPolicy:CreateHIT' :: CreateHIT -> Maybe ReviewPolicy
$sel:hITLayoutParameters:CreateHIT' :: CreateHIT -> Maybe [HITLayoutParameter]
$sel:hITLayoutId:CreateHIT' :: CreateHIT -> Maybe Text
$sel:autoApprovalDelayInSeconds:CreateHIT' :: CreateHIT -> Maybe Integer
$sel:assignmentReviewPolicy:CreateHIT' :: CreateHIT -> Maybe ReviewPolicy
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ReviewPolicy
assignmentReviewPolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
autoApprovalDelayInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
hITLayoutId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [HITLayoutParameter]
hITLayoutParameters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ReviewPolicy
hITReviewPolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
keywords
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxAssignments
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [QualificationRequirement]
qualificationRequirements
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
question
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
requesterAnnotation
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
uniqueRequestToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Integer
lifetimeInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Integer
assignmentDurationInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
reward
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
title
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
description
instance Prelude.NFData CreateHIT where
rnf :: CreateHIT -> ()
rnf CreateHIT' {Integer
Maybe Int
Maybe Integer
Maybe [HITLayoutParameter]
Maybe [QualificationRequirement]
Maybe Text
Maybe ReviewPolicy
Text
description :: Text
title :: Text
reward :: Text
assignmentDurationInSeconds :: Integer
lifetimeInSeconds :: Integer
uniqueRequestToken :: Maybe Text
requesterAnnotation :: Maybe Text
question :: Maybe Text
qualificationRequirements :: Maybe [QualificationRequirement]
maxAssignments :: Maybe Int
keywords :: Maybe Text
hITReviewPolicy :: Maybe ReviewPolicy
hITLayoutParameters :: Maybe [HITLayoutParameter]
hITLayoutId :: Maybe Text
autoApprovalDelayInSeconds :: Maybe Integer
assignmentReviewPolicy :: Maybe ReviewPolicy
$sel:description:CreateHIT' :: CreateHIT -> Text
$sel:title:CreateHIT' :: CreateHIT -> Text
$sel:reward:CreateHIT' :: CreateHIT -> Text
$sel:assignmentDurationInSeconds:CreateHIT' :: CreateHIT -> Integer
$sel:lifetimeInSeconds:CreateHIT' :: CreateHIT -> Integer
$sel:uniqueRequestToken:CreateHIT' :: CreateHIT -> Maybe Text
$sel:requesterAnnotation:CreateHIT' :: CreateHIT -> Maybe Text
$sel:question:CreateHIT' :: CreateHIT -> Maybe Text
$sel:qualificationRequirements:CreateHIT' :: CreateHIT -> Maybe [QualificationRequirement]
$sel:maxAssignments:CreateHIT' :: CreateHIT -> Maybe Int
$sel:keywords:CreateHIT' :: CreateHIT -> Maybe Text
$sel:hITReviewPolicy:CreateHIT' :: CreateHIT -> Maybe ReviewPolicy
$sel:hITLayoutParameters:CreateHIT' :: CreateHIT -> Maybe [HITLayoutParameter]
$sel:hITLayoutId:CreateHIT' :: CreateHIT -> Maybe Text
$sel:autoApprovalDelayInSeconds:CreateHIT' :: CreateHIT -> Maybe Integer
$sel:assignmentReviewPolicy:CreateHIT' :: CreateHIT -> Maybe ReviewPolicy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ReviewPolicy
assignmentReviewPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
autoApprovalDelayInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
hITLayoutId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [HITLayoutParameter]
hITLayoutParameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ReviewPolicy
hITReviewPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
keywords
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxAssignments
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [QualificationRequirement]
qualificationRequirements
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
question
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requesterAnnotation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
uniqueRequestToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Integer
lifetimeInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Integer
assignmentDurationInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
reward
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
title
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
description
instance Data.ToHeaders CreateHIT where
toHeaders :: CreateHIT -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"MTurkRequesterServiceV20170117.CreateHIT" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateHIT where
toJSON :: CreateHIT -> Value
toJSON CreateHIT' {Integer
Maybe Int
Maybe Integer
Maybe [HITLayoutParameter]
Maybe [QualificationRequirement]
Maybe Text
Maybe ReviewPolicy
Text
description :: Text
title :: Text
reward :: Text
assignmentDurationInSeconds :: Integer
lifetimeInSeconds :: Integer
uniqueRequestToken :: Maybe Text
requesterAnnotation :: Maybe Text
question :: Maybe Text
qualificationRequirements :: Maybe [QualificationRequirement]
maxAssignments :: Maybe Int
keywords :: Maybe Text
hITReviewPolicy :: Maybe ReviewPolicy
hITLayoutParameters :: Maybe [HITLayoutParameter]
hITLayoutId :: Maybe Text
autoApprovalDelayInSeconds :: Maybe Integer
assignmentReviewPolicy :: Maybe ReviewPolicy
$sel:description:CreateHIT' :: CreateHIT -> Text
$sel:title:CreateHIT' :: CreateHIT -> Text
$sel:reward:CreateHIT' :: CreateHIT -> Text
$sel:assignmentDurationInSeconds:CreateHIT' :: CreateHIT -> Integer
$sel:lifetimeInSeconds:CreateHIT' :: CreateHIT -> Integer
$sel:uniqueRequestToken:CreateHIT' :: CreateHIT -> Maybe Text
$sel:requesterAnnotation:CreateHIT' :: CreateHIT -> Maybe Text
$sel:question:CreateHIT' :: CreateHIT -> Maybe Text
$sel:qualificationRequirements:CreateHIT' :: CreateHIT -> Maybe [QualificationRequirement]
$sel:maxAssignments:CreateHIT' :: CreateHIT -> Maybe Int
$sel:keywords:CreateHIT' :: CreateHIT -> Maybe Text
$sel:hITReviewPolicy:CreateHIT' :: CreateHIT -> Maybe ReviewPolicy
$sel:hITLayoutParameters:CreateHIT' :: CreateHIT -> Maybe [HITLayoutParameter]
$sel:hITLayoutId:CreateHIT' :: CreateHIT -> Maybe Text
$sel:autoApprovalDelayInSeconds:CreateHIT' :: CreateHIT -> Maybe Integer
$sel:assignmentReviewPolicy:CreateHIT' :: CreateHIT -> Maybe ReviewPolicy
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AssignmentReviewPolicy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ReviewPolicy
assignmentReviewPolicy,
(Key
"AutoApprovalDelayInSeconds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Integer
autoApprovalDelayInSeconds,
(Key
"HITLayoutId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
hITLayoutId,
(Key
"HITLayoutParameters" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [HITLayoutParameter]
hITLayoutParameters,
(Key
"HITReviewPolicy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ReviewPolicy
hITReviewPolicy,
(Key
"Keywords" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
keywords,
(Key
"MaxAssignments" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
maxAssignments,
(Key
"QualificationRequirements" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [QualificationRequirement]
qualificationRequirements,
(Key
"Question" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
question,
(Key
"RequesterAnnotation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
requesterAnnotation,
(Key
"UniqueRequestToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
uniqueRequestToken,
forall a. a -> Maybe a
Prelude.Just
(Key
"LifetimeInSeconds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Integer
lifetimeInSeconds),
forall a. a -> Maybe a
Prelude.Just
( Key
"AssignmentDurationInSeconds"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Integer
assignmentDurationInSeconds
),
forall a. a -> Maybe a
Prelude.Just (Key
"Reward" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
reward),
forall a. a -> Maybe a
Prelude.Just (Key
"Title" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
title),
forall a. a -> Maybe a
Prelude.Just (Key
"Description" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
description)
]
)
instance Data.ToPath CreateHIT where
toPath :: CreateHIT -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateHIT where
toQuery :: CreateHIT -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateHITResponse = CreateHITResponse'
{
CreateHITResponse -> Maybe HIT
hit :: Prelude.Maybe HIT,
CreateHITResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateHITResponse -> CreateHITResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateHITResponse -> CreateHITResponse -> Bool
$c/= :: CreateHITResponse -> CreateHITResponse -> Bool
== :: CreateHITResponse -> CreateHITResponse -> Bool
$c== :: CreateHITResponse -> CreateHITResponse -> Bool
Prelude.Eq, ReadPrec [CreateHITResponse]
ReadPrec CreateHITResponse
Int -> ReadS CreateHITResponse
ReadS [CreateHITResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateHITResponse]
$creadListPrec :: ReadPrec [CreateHITResponse]
readPrec :: ReadPrec CreateHITResponse
$creadPrec :: ReadPrec CreateHITResponse
readList :: ReadS [CreateHITResponse]
$creadList :: ReadS [CreateHITResponse]
readsPrec :: Int -> ReadS CreateHITResponse
$creadsPrec :: Int -> ReadS CreateHITResponse
Prelude.Read, Int -> CreateHITResponse -> ShowS
[CreateHITResponse] -> ShowS
CreateHITResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateHITResponse] -> ShowS
$cshowList :: [CreateHITResponse] -> ShowS
show :: CreateHITResponse -> String
$cshow :: CreateHITResponse -> String
showsPrec :: Int -> CreateHITResponse -> ShowS
$cshowsPrec :: Int -> CreateHITResponse -> ShowS
Prelude.Show, forall x. Rep CreateHITResponse x -> CreateHITResponse
forall x. CreateHITResponse -> Rep CreateHITResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateHITResponse x -> CreateHITResponse
$cfrom :: forall x. CreateHITResponse -> Rep CreateHITResponse x
Prelude.Generic)
newCreateHITResponse ::
Prelude.Int ->
CreateHITResponse
newCreateHITResponse :: Int -> CreateHITResponse
newCreateHITResponse Int
pHttpStatus_ =
CreateHITResponse'
{ $sel:hit:CreateHITResponse' :: Maybe HIT
hit = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateHITResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createHITResponse_hit :: Lens.Lens' CreateHITResponse (Prelude.Maybe HIT)
createHITResponse_hit :: Lens' CreateHITResponse (Maybe HIT)
createHITResponse_hit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHITResponse' {Maybe HIT
hit :: Maybe HIT
$sel:hit:CreateHITResponse' :: CreateHITResponse -> Maybe HIT
hit} -> Maybe HIT
hit) (\s :: CreateHITResponse
s@CreateHITResponse' {} Maybe HIT
a -> CreateHITResponse
s {$sel:hit:CreateHITResponse' :: Maybe HIT
hit = Maybe HIT
a} :: CreateHITResponse)
createHITResponse_httpStatus :: Lens.Lens' CreateHITResponse Prelude.Int
createHITResponse_httpStatus :: Lens' CreateHITResponse Int
createHITResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHITResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateHITResponse' :: CreateHITResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateHITResponse
s@CreateHITResponse' {} Int
a -> CreateHITResponse
s {$sel:httpStatus:CreateHITResponse' :: Int
httpStatus = Int
a} :: CreateHITResponse)
instance Prelude.NFData CreateHITResponse where
rnf :: CreateHITResponse -> ()
rnf CreateHITResponse' {Int
Maybe HIT
httpStatus :: Int
hit :: Maybe HIT
$sel:httpStatus:CreateHITResponse' :: CreateHITResponse -> Int
$sel:hit:CreateHITResponse' :: CreateHITResponse -> Maybe HIT
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe HIT
hit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus