{-# 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.
    CreateAdditionalAssignmentsForHIT -> Maybe Text
uniqueRequestToken :: Prelude.Maybe Prelude.Text,
    -- | The ID of the HIT to extend.
    CreateAdditionalAssignmentsForHIT -> Text
hITId :: Prelude.Text,
    -- | The number of additional assignments to request for this HIT.
    CreateAdditionalAssignmentsForHIT -> Int
numberOfAdditionalAssignments :: Prelude.Int
  }
  deriving (CreateAdditionalAssignmentsForHIT
-> CreateAdditionalAssignmentsForHIT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAdditionalAssignmentsForHIT
-> CreateAdditionalAssignmentsForHIT -> Bool
$c/= :: CreateAdditionalAssignmentsForHIT
-> CreateAdditionalAssignmentsForHIT -> Bool
== :: CreateAdditionalAssignmentsForHIT
-> CreateAdditionalAssignmentsForHIT -> Bool
$c== :: CreateAdditionalAssignmentsForHIT
-> CreateAdditionalAssignmentsForHIT -> Bool
Prelude.Eq, ReadPrec [CreateAdditionalAssignmentsForHIT]
ReadPrec CreateAdditionalAssignmentsForHIT
Int -> ReadS CreateAdditionalAssignmentsForHIT
ReadS [CreateAdditionalAssignmentsForHIT]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAdditionalAssignmentsForHIT]
$creadListPrec :: ReadPrec [CreateAdditionalAssignmentsForHIT]
readPrec :: ReadPrec CreateAdditionalAssignmentsForHIT
$creadPrec :: ReadPrec CreateAdditionalAssignmentsForHIT
readList :: ReadS [CreateAdditionalAssignmentsForHIT]
$creadList :: ReadS [CreateAdditionalAssignmentsForHIT]
readsPrec :: Int -> ReadS CreateAdditionalAssignmentsForHIT
$creadsPrec :: Int -> ReadS CreateAdditionalAssignmentsForHIT
Prelude.Read, Int -> CreateAdditionalAssignmentsForHIT -> ShowS
[CreateAdditionalAssignmentsForHIT] -> ShowS
CreateAdditionalAssignmentsForHIT -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAdditionalAssignmentsForHIT] -> ShowS
$cshowList :: [CreateAdditionalAssignmentsForHIT] -> ShowS
show :: CreateAdditionalAssignmentsForHIT -> String
$cshow :: CreateAdditionalAssignmentsForHIT -> String
showsPrec :: Int -> CreateAdditionalAssignmentsForHIT -> ShowS
$cshowsPrec :: Int -> CreateAdditionalAssignmentsForHIT -> ShowS
Prelude.Show, forall x.
Rep CreateAdditionalAssignmentsForHIT x
-> CreateAdditionalAssignmentsForHIT
forall x.
CreateAdditionalAssignmentsForHIT
-> Rep CreateAdditionalAssignmentsForHIT x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateAdditionalAssignmentsForHIT x
-> CreateAdditionalAssignmentsForHIT
$cfrom :: forall x.
CreateAdditionalAssignmentsForHIT
-> Rep CreateAdditionalAssignmentsForHIT x
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 :: Text -> Int -> CreateAdditionalAssignmentsForHIT
newCreateAdditionalAssignmentsForHIT
  Text
pHITId_
  Int
pNumberOfAdditionalAssignments_ =
    CreateAdditionalAssignmentsForHIT'
      { $sel:uniqueRequestToken:CreateAdditionalAssignmentsForHIT' :: Maybe Text
uniqueRequestToken =
          forall a. Maybe a
Prelude.Nothing,
        $sel:hITId:CreateAdditionalAssignmentsForHIT' :: Text
hITId = Text
pHITId_,
        $sel:numberOfAdditionalAssignments:CreateAdditionalAssignmentsForHIT' :: Int
numberOfAdditionalAssignments =
          Int
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' CreateAdditionalAssignmentsForHIT (Maybe Text)
createAdditionalAssignmentsForHIT_uniqueRequestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAdditionalAssignmentsForHIT' {Maybe Text
uniqueRequestToken :: Maybe Text
$sel:uniqueRequestToken:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Maybe Text
uniqueRequestToken} -> Maybe Text
uniqueRequestToken) (\s :: CreateAdditionalAssignmentsForHIT
s@CreateAdditionalAssignmentsForHIT' {} Maybe Text
a -> CreateAdditionalAssignmentsForHIT
s {$sel:uniqueRequestToken:CreateAdditionalAssignmentsForHIT' :: Maybe Text
uniqueRequestToken = Maybe Text
a} :: CreateAdditionalAssignmentsForHIT)

-- | The ID of the HIT to extend.
createAdditionalAssignmentsForHIT_hITId :: Lens.Lens' CreateAdditionalAssignmentsForHIT Prelude.Text
createAdditionalAssignmentsForHIT_hITId :: Lens' CreateAdditionalAssignmentsForHIT Text
createAdditionalAssignmentsForHIT_hITId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAdditionalAssignmentsForHIT' {Text
hITId :: Text
$sel:hITId:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Text
hITId} -> Text
hITId) (\s :: CreateAdditionalAssignmentsForHIT
s@CreateAdditionalAssignmentsForHIT' {} Text
a -> CreateAdditionalAssignmentsForHIT
s {$sel:hITId:CreateAdditionalAssignmentsForHIT' :: Text
hITId = Text
a} :: CreateAdditionalAssignmentsForHIT)

-- | The number of additional assignments to request for this HIT.
createAdditionalAssignmentsForHIT_numberOfAdditionalAssignments :: Lens.Lens' CreateAdditionalAssignmentsForHIT Prelude.Int
createAdditionalAssignmentsForHIT_numberOfAdditionalAssignments :: Lens' CreateAdditionalAssignmentsForHIT Int
createAdditionalAssignmentsForHIT_numberOfAdditionalAssignments = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAdditionalAssignmentsForHIT' {Int
numberOfAdditionalAssignments :: Int
$sel:numberOfAdditionalAssignments:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Int
numberOfAdditionalAssignments} -> Int
numberOfAdditionalAssignments) (\s :: CreateAdditionalAssignmentsForHIT
s@CreateAdditionalAssignmentsForHIT' {} Int
a -> CreateAdditionalAssignmentsForHIT
s {$sel:numberOfAdditionalAssignments:CreateAdditionalAssignmentsForHIT' :: Int
numberOfAdditionalAssignments = Int
a} :: CreateAdditionalAssignmentsForHIT)

instance
  Core.AWSRequest
    CreateAdditionalAssignmentsForHIT
  where
  type
    AWSResponse CreateAdditionalAssignmentsForHIT =
      CreateAdditionalAssignmentsForHITResponse
  request :: (Service -> Service)
-> CreateAdditionalAssignmentsForHIT
-> Request CreateAdditionalAssignmentsForHIT
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 CreateAdditionalAssignmentsForHIT
-> ClientResponse ClientBody
-> m (Either
        Error
        (ClientResponse (AWSResponse CreateAdditionalAssignmentsForHIT)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
      ( \Int
s ResponseHeaders
h ()
x ->
          Int -> CreateAdditionalAssignmentsForHITResponse
CreateAdditionalAssignmentsForHITResponse'
            forall (f :: * -> *) a b. Functor 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
    CreateAdditionalAssignmentsForHIT
  where
  hashWithSalt :: Int -> CreateAdditionalAssignmentsForHIT -> Int
hashWithSalt
    Int
_salt
    CreateAdditionalAssignmentsForHIT' {Int
Maybe Text
Text
numberOfAdditionalAssignments :: Int
hITId :: Text
uniqueRequestToken :: Maybe Text
$sel:numberOfAdditionalAssignments:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Int
$sel:hITId:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Text
$sel:uniqueRequestToken:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Maybe Text
..} =
      Int
_salt
        forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
uniqueRequestToken
        forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
hITId
        forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Int
numberOfAdditionalAssignments

instance
  Prelude.NFData
    CreateAdditionalAssignmentsForHIT
  where
  rnf :: CreateAdditionalAssignmentsForHIT -> ()
rnf CreateAdditionalAssignmentsForHIT' {Int
Maybe Text
Text
numberOfAdditionalAssignments :: Int
hITId :: Text
uniqueRequestToken :: Maybe Text
$sel:numberOfAdditionalAssignments:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Int
$sel:hITId:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Text
$sel:uniqueRequestToken:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Maybe Text
..} =
    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 Text
hITId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
numberOfAdditionalAssignments

instance
  Data.ToHeaders
    CreateAdditionalAssignmentsForHIT
  where
  toHeaders :: CreateAdditionalAssignmentsForHIT -> 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.CreateAdditionalAssignmentsForHIT" ::
                          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
    CreateAdditionalAssignmentsForHIT
  where
  toJSON :: CreateAdditionalAssignmentsForHIT -> Value
toJSON CreateAdditionalAssignmentsForHIT' {Int
Maybe Text
Text
numberOfAdditionalAssignments :: Int
hITId :: Text
uniqueRequestToken :: Maybe Text
$sel:numberOfAdditionalAssignments:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Int
$sel:hITId:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Text
$sel:uniqueRequestToken:CreateAdditionalAssignmentsForHIT' :: CreateAdditionalAssignmentsForHIT -> Maybe Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (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
"HITId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
hITId),
            forall a. a -> Maybe a
Prelude.Just
              ( Key
"NumberOfAdditionalAssignments"
                  forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Int
numberOfAdditionalAssignments
              )
          ]
      )

instance
  Data.ToPath
    CreateAdditionalAssignmentsForHIT
  where
  toPath :: CreateAdditionalAssignmentsForHIT -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance
  Data.ToQuery
    CreateAdditionalAssignmentsForHIT
  where
  toQuery :: CreateAdditionalAssignmentsForHIT -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newCreateAdditionalAssignmentsForHITResponse' smart constructor.
data CreateAdditionalAssignmentsForHITResponse = CreateAdditionalAssignmentsForHITResponse'
  { -- | The response's http status code.
    CreateAdditionalAssignmentsForHITResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateAdditionalAssignmentsForHITResponse
-> CreateAdditionalAssignmentsForHITResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAdditionalAssignmentsForHITResponse
-> CreateAdditionalAssignmentsForHITResponse -> Bool
$c/= :: CreateAdditionalAssignmentsForHITResponse
-> CreateAdditionalAssignmentsForHITResponse -> Bool
== :: CreateAdditionalAssignmentsForHITResponse
-> CreateAdditionalAssignmentsForHITResponse -> Bool
$c== :: CreateAdditionalAssignmentsForHITResponse
-> CreateAdditionalAssignmentsForHITResponse -> Bool
Prelude.Eq, ReadPrec [CreateAdditionalAssignmentsForHITResponse]
ReadPrec CreateAdditionalAssignmentsForHITResponse
Int -> ReadS CreateAdditionalAssignmentsForHITResponse
ReadS [CreateAdditionalAssignmentsForHITResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAdditionalAssignmentsForHITResponse]
$creadListPrec :: ReadPrec [CreateAdditionalAssignmentsForHITResponse]
readPrec :: ReadPrec CreateAdditionalAssignmentsForHITResponse
$creadPrec :: ReadPrec CreateAdditionalAssignmentsForHITResponse
readList :: ReadS [CreateAdditionalAssignmentsForHITResponse]
$creadList :: ReadS [CreateAdditionalAssignmentsForHITResponse]
readsPrec :: Int -> ReadS CreateAdditionalAssignmentsForHITResponse
$creadsPrec :: Int -> ReadS CreateAdditionalAssignmentsForHITResponse
Prelude.Read, Int -> CreateAdditionalAssignmentsForHITResponse -> ShowS
[CreateAdditionalAssignmentsForHITResponse] -> ShowS
CreateAdditionalAssignmentsForHITResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAdditionalAssignmentsForHITResponse] -> ShowS
$cshowList :: [CreateAdditionalAssignmentsForHITResponse] -> ShowS
show :: CreateAdditionalAssignmentsForHITResponse -> String
$cshow :: CreateAdditionalAssignmentsForHITResponse -> String
showsPrec :: Int -> CreateAdditionalAssignmentsForHITResponse -> ShowS
$cshowsPrec :: Int -> CreateAdditionalAssignmentsForHITResponse -> ShowS
Prelude.Show, forall x.
Rep CreateAdditionalAssignmentsForHITResponse x
-> CreateAdditionalAssignmentsForHITResponse
forall x.
CreateAdditionalAssignmentsForHITResponse
-> Rep CreateAdditionalAssignmentsForHITResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateAdditionalAssignmentsForHITResponse x
-> CreateAdditionalAssignmentsForHITResponse
$cfrom :: forall x.
CreateAdditionalAssignmentsForHITResponse
-> Rep CreateAdditionalAssignmentsForHITResponse x
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 :: Int -> CreateAdditionalAssignmentsForHITResponse
newCreateAdditionalAssignmentsForHITResponse
  Int
pHttpStatus_ =
    CreateAdditionalAssignmentsForHITResponse'
      { $sel:httpStatus:CreateAdditionalAssignmentsForHITResponse' :: Int
httpStatus =
          Int
pHttpStatus_
      }

-- | The response's http status code.
createAdditionalAssignmentsForHITResponse_httpStatus :: Lens.Lens' CreateAdditionalAssignmentsForHITResponse Prelude.Int
createAdditionalAssignmentsForHITResponse_httpStatus :: Lens' CreateAdditionalAssignmentsForHITResponse Int
createAdditionalAssignmentsForHITResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAdditionalAssignmentsForHITResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateAdditionalAssignmentsForHITResponse' :: CreateAdditionalAssignmentsForHITResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateAdditionalAssignmentsForHITResponse
s@CreateAdditionalAssignmentsForHITResponse' {} Int
a -> CreateAdditionalAssignmentsForHITResponse
s {$sel:httpStatus:CreateAdditionalAssignmentsForHITResponse' :: Int
httpStatus = Int
a} :: CreateAdditionalAssignmentsForHITResponse)

instance
  Prelude.NFData
    CreateAdditionalAssignmentsForHITResponse
  where
  rnf :: CreateAdditionalAssignmentsForHITResponse -> ()
rnf CreateAdditionalAssignmentsForHITResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateAdditionalAssignmentsForHITResponse' :: CreateAdditionalAssignmentsForHITResponse -> Int
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus