{-# 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.SageMaker.DescribeHumanTaskUi
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns information about the requested human task user interface
-- (worker task template).
module Amazonka.SageMaker.DescribeHumanTaskUi
  ( -- * Creating a Request
    DescribeHumanTaskUi (..),
    newDescribeHumanTaskUi,

    -- * Request Lenses
    describeHumanTaskUi_humanTaskUiName,

    -- * Destructuring the Response
    DescribeHumanTaskUiResponse (..),
    newDescribeHumanTaskUiResponse,

    -- * Response Lenses
    describeHumanTaskUiResponse_humanTaskUiStatus,
    describeHumanTaskUiResponse_httpStatus,
    describeHumanTaskUiResponse_humanTaskUiArn,
    describeHumanTaskUiResponse_humanTaskUiName,
    describeHumanTaskUiResponse_creationTime,
    describeHumanTaskUiResponse_uiTemplate,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SageMaker.Types

-- | /See:/ 'newDescribeHumanTaskUi' smart constructor.
data DescribeHumanTaskUi = DescribeHumanTaskUi'
  { -- | The name of the human task user interface (worker task template) you
    -- want information about.
    DescribeHumanTaskUi -> Text
humanTaskUiName :: Prelude.Text
  }
  deriving (DescribeHumanTaskUi -> DescribeHumanTaskUi -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeHumanTaskUi -> DescribeHumanTaskUi -> Bool
$c/= :: DescribeHumanTaskUi -> DescribeHumanTaskUi -> Bool
== :: DescribeHumanTaskUi -> DescribeHumanTaskUi -> Bool
$c== :: DescribeHumanTaskUi -> DescribeHumanTaskUi -> Bool
Prelude.Eq, ReadPrec [DescribeHumanTaskUi]
ReadPrec DescribeHumanTaskUi
Int -> ReadS DescribeHumanTaskUi
ReadS [DescribeHumanTaskUi]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeHumanTaskUi]
$creadListPrec :: ReadPrec [DescribeHumanTaskUi]
readPrec :: ReadPrec DescribeHumanTaskUi
$creadPrec :: ReadPrec DescribeHumanTaskUi
readList :: ReadS [DescribeHumanTaskUi]
$creadList :: ReadS [DescribeHumanTaskUi]
readsPrec :: Int -> ReadS DescribeHumanTaskUi
$creadsPrec :: Int -> ReadS DescribeHumanTaskUi
Prelude.Read, Int -> DescribeHumanTaskUi -> ShowS
[DescribeHumanTaskUi] -> ShowS
DescribeHumanTaskUi -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeHumanTaskUi] -> ShowS
$cshowList :: [DescribeHumanTaskUi] -> ShowS
show :: DescribeHumanTaskUi -> String
$cshow :: DescribeHumanTaskUi -> String
showsPrec :: Int -> DescribeHumanTaskUi -> ShowS
$cshowsPrec :: Int -> DescribeHumanTaskUi -> ShowS
Prelude.Show, forall x. Rep DescribeHumanTaskUi x -> DescribeHumanTaskUi
forall x. DescribeHumanTaskUi -> Rep DescribeHumanTaskUi x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeHumanTaskUi x -> DescribeHumanTaskUi
$cfrom :: forall x. DescribeHumanTaskUi -> Rep DescribeHumanTaskUi x
Prelude.Generic)

-- |
-- Create a value of 'DescribeHumanTaskUi' 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:
--
-- 'humanTaskUiName', 'describeHumanTaskUi_humanTaskUiName' - The name of the human task user interface (worker task template) you
-- want information about.
newDescribeHumanTaskUi ::
  -- | 'humanTaskUiName'
  Prelude.Text ->
  DescribeHumanTaskUi
newDescribeHumanTaskUi :: Text -> DescribeHumanTaskUi
newDescribeHumanTaskUi Text
pHumanTaskUiName_ =
  DescribeHumanTaskUi'
    { $sel:humanTaskUiName:DescribeHumanTaskUi' :: Text
humanTaskUiName =
        Text
pHumanTaskUiName_
    }

-- | The name of the human task user interface (worker task template) you
-- want information about.
describeHumanTaskUi_humanTaskUiName :: Lens.Lens' DescribeHumanTaskUi Prelude.Text
describeHumanTaskUi_humanTaskUiName :: Lens' DescribeHumanTaskUi Text
describeHumanTaskUi_humanTaskUiName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHumanTaskUi' {Text
humanTaskUiName :: Text
$sel:humanTaskUiName:DescribeHumanTaskUi' :: DescribeHumanTaskUi -> Text
humanTaskUiName} -> Text
humanTaskUiName) (\s :: DescribeHumanTaskUi
s@DescribeHumanTaskUi' {} Text
a -> DescribeHumanTaskUi
s {$sel:humanTaskUiName:DescribeHumanTaskUi' :: Text
humanTaskUiName = Text
a} :: DescribeHumanTaskUi)

instance Core.AWSRequest DescribeHumanTaskUi where
  type
    AWSResponse DescribeHumanTaskUi =
      DescribeHumanTaskUiResponse
  request :: (Service -> Service)
-> DescribeHumanTaskUi -> Request DescribeHumanTaskUi
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 DescribeHumanTaskUi
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DescribeHumanTaskUi)))
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 HumanTaskUiStatus
-> Int
-> Text
-> Text
-> POSIX
-> UiTemplateInfo
-> DescribeHumanTaskUiResponse
DescribeHumanTaskUiResponse'
            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
"HumanTaskUiStatus")
            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))
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"HumanTaskUiArn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"HumanTaskUiName")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"CreationTime")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"UiTemplate")
      )

instance Prelude.Hashable DescribeHumanTaskUi where
  hashWithSalt :: Int -> DescribeHumanTaskUi -> Int
hashWithSalt Int
_salt DescribeHumanTaskUi' {Text
humanTaskUiName :: Text
$sel:humanTaskUiName:DescribeHumanTaskUi' :: DescribeHumanTaskUi -> Text
..} =
    Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
humanTaskUiName

instance Prelude.NFData DescribeHumanTaskUi where
  rnf :: DescribeHumanTaskUi -> ()
rnf DescribeHumanTaskUi' {Text
humanTaskUiName :: Text
$sel:humanTaskUiName:DescribeHumanTaskUi' :: DescribeHumanTaskUi -> Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Text
humanTaskUiName

instance Data.ToHeaders DescribeHumanTaskUi where
  toHeaders :: DescribeHumanTaskUi -> 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
"SageMaker.DescribeHumanTaskUi" ::
                          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 DescribeHumanTaskUi where
  toJSON :: DescribeHumanTaskUi -> Value
toJSON DescribeHumanTaskUi' {Text
humanTaskUiName :: Text
$sel:humanTaskUiName:DescribeHumanTaskUi' :: DescribeHumanTaskUi -> Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ forall a. a -> Maybe a
Prelude.Just
              (Key
"HumanTaskUiName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
humanTaskUiName)
          ]
      )

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

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

-- | /See:/ 'newDescribeHumanTaskUiResponse' smart constructor.
data DescribeHumanTaskUiResponse = DescribeHumanTaskUiResponse'
  { -- | The status of the human task user interface (worker task template).
    -- Valid values are listed below.
    DescribeHumanTaskUiResponse -> Maybe HumanTaskUiStatus
humanTaskUiStatus :: Prelude.Maybe HumanTaskUiStatus,
    -- | The response's http status code.
    DescribeHumanTaskUiResponse -> Int
httpStatus :: Prelude.Int,
    -- | The Amazon Resource Name (ARN) of the human task user interface (worker
    -- task template).
    DescribeHumanTaskUiResponse -> Text
humanTaskUiArn :: Prelude.Text,
    -- | The name of the human task user interface (worker task template).
    DescribeHumanTaskUiResponse -> Text
humanTaskUiName :: Prelude.Text,
    -- | The timestamp when the human task user interface was created.
    DescribeHumanTaskUiResponse -> POSIX
creationTime :: Data.POSIX,
    DescribeHumanTaskUiResponse -> UiTemplateInfo
uiTemplate :: UiTemplateInfo
  }
  deriving (DescribeHumanTaskUiResponse -> DescribeHumanTaskUiResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeHumanTaskUiResponse -> DescribeHumanTaskUiResponse -> Bool
$c/= :: DescribeHumanTaskUiResponse -> DescribeHumanTaskUiResponse -> Bool
== :: DescribeHumanTaskUiResponse -> DescribeHumanTaskUiResponse -> Bool
$c== :: DescribeHumanTaskUiResponse -> DescribeHumanTaskUiResponse -> Bool
Prelude.Eq, ReadPrec [DescribeHumanTaskUiResponse]
ReadPrec DescribeHumanTaskUiResponse
Int -> ReadS DescribeHumanTaskUiResponse
ReadS [DescribeHumanTaskUiResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeHumanTaskUiResponse]
$creadListPrec :: ReadPrec [DescribeHumanTaskUiResponse]
readPrec :: ReadPrec DescribeHumanTaskUiResponse
$creadPrec :: ReadPrec DescribeHumanTaskUiResponse
readList :: ReadS [DescribeHumanTaskUiResponse]
$creadList :: ReadS [DescribeHumanTaskUiResponse]
readsPrec :: Int -> ReadS DescribeHumanTaskUiResponse
$creadsPrec :: Int -> ReadS DescribeHumanTaskUiResponse
Prelude.Read, Int -> DescribeHumanTaskUiResponse -> ShowS
[DescribeHumanTaskUiResponse] -> ShowS
DescribeHumanTaskUiResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeHumanTaskUiResponse] -> ShowS
$cshowList :: [DescribeHumanTaskUiResponse] -> ShowS
show :: DescribeHumanTaskUiResponse -> String
$cshow :: DescribeHumanTaskUiResponse -> String
showsPrec :: Int -> DescribeHumanTaskUiResponse -> ShowS
$cshowsPrec :: Int -> DescribeHumanTaskUiResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeHumanTaskUiResponse x -> DescribeHumanTaskUiResponse
forall x.
DescribeHumanTaskUiResponse -> Rep DescribeHumanTaskUiResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeHumanTaskUiResponse x -> DescribeHumanTaskUiResponse
$cfrom :: forall x.
DescribeHumanTaskUiResponse -> Rep DescribeHumanTaskUiResponse x
Prelude.Generic)

-- |
-- Create a value of 'DescribeHumanTaskUiResponse' 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:
--
-- 'humanTaskUiStatus', 'describeHumanTaskUiResponse_humanTaskUiStatus' - The status of the human task user interface (worker task template).
-- Valid values are listed below.
--
-- 'httpStatus', 'describeHumanTaskUiResponse_httpStatus' - The response's http status code.
--
-- 'humanTaskUiArn', 'describeHumanTaskUiResponse_humanTaskUiArn' - The Amazon Resource Name (ARN) of the human task user interface (worker
-- task template).
--
-- 'humanTaskUiName', 'describeHumanTaskUiResponse_humanTaskUiName' - The name of the human task user interface (worker task template).
--
-- 'creationTime', 'describeHumanTaskUiResponse_creationTime' - The timestamp when the human task user interface was created.
--
-- 'uiTemplate', 'describeHumanTaskUiResponse_uiTemplate' - Undocumented member.
newDescribeHumanTaskUiResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'humanTaskUiArn'
  Prelude.Text ->
  -- | 'humanTaskUiName'
  Prelude.Text ->
  -- | 'creationTime'
  Prelude.UTCTime ->
  -- | 'uiTemplate'
  UiTemplateInfo ->
  DescribeHumanTaskUiResponse
newDescribeHumanTaskUiResponse :: Int
-> Text
-> Text
-> UTCTime
-> UiTemplateInfo
-> DescribeHumanTaskUiResponse
newDescribeHumanTaskUiResponse
  Int
pHttpStatus_
  Text
pHumanTaskUiArn_
  Text
pHumanTaskUiName_
  UTCTime
pCreationTime_
  UiTemplateInfo
pUiTemplate_ =
    DescribeHumanTaskUiResponse'
      { $sel:humanTaskUiStatus:DescribeHumanTaskUiResponse' :: Maybe HumanTaskUiStatus
humanTaskUiStatus =
          forall a. Maybe a
Prelude.Nothing,
        $sel:httpStatus:DescribeHumanTaskUiResponse' :: Int
httpStatus = Int
pHttpStatus_,
        $sel:humanTaskUiArn:DescribeHumanTaskUiResponse' :: Text
humanTaskUiArn = Text
pHumanTaskUiArn_,
        $sel:humanTaskUiName:DescribeHumanTaskUiResponse' :: Text
humanTaskUiName = Text
pHumanTaskUiName_,
        $sel:creationTime:DescribeHumanTaskUiResponse' :: POSIX
creationTime =
          forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreationTime_,
        $sel:uiTemplate:DescribeHumanTaskUiResponse' :: UiTemplateInfo
uiTemplate = UiTemplateInfo
pUiTemplate_
      }

-- | The status of the human task user interface (worker task template).
-- Valid values are listed below.
describeHumanTaskUiResponse_humanTaskUiStatus :: Lens.Lens' DescribeHumanTaskUiResponse (Prelude.Maybe HumanTaskUiStatus)
describeHumanTaskUiResponse_humanTaskUiStatus :: Lens' DescribeHumanTaskUiResponse (Maybe HumanTaskUiStatus)
describeHumanTaskUiResponse_humanTaskUiStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHumanTaskUiResponse' {Maybe HumanTaskUiStatus
humanTaskUiStatus :: Maybe HumanTaskUiStatus
$sel:humanTaskUiStatus:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> Maybe HumanTaskUiStatus
humanTaskUiStatus} -> Maybe HumanTaskUiStatus
humanTaskUiStatus) (\s :: DescribeHumanTaskUiResponse
s@DescribeHumanTaskUiResponse' {} Maybe HumanTaskUiStatus
a -> DescribeHumanTaskUiResponse
s {$sel:humanTaskUiStatus:DescribeHumanTaskUiResponse' :: Maybe HumanTaskUiStatus
humanTaskUiStatus = Maybe HumanTaskUiStatus
a} :: DescribeHumanTaskUiResponse)

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

-- | The Amazon Resource Name (ARN) of the human task user interface (worker
-- task template).
describeHumanTaskUiResponse_humanTaskUiArn :: Lens.Lens' DescribeHumanTaskUiResponse Prelude.Text
describeHumanTaskUiResponse_humanTaskUiArn :: Lens' DescribeHumanTaskUiResponse Text
describeHumanTaskUiResponse_humanTaskUiArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHumanTaskUiResponse' {Text
humanTaskUiArn :: Text
$sel:humanTaskUiArn:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> Text
humanTaskUiArn} -> Text
humanTaskUiArn) (\s :: DescribeHumanTaskUiResponse
s@DescribeHumanTaskUiResponse' {} Text
a -> DescribeHumanTaskUiResponse
s {$sel:humanTaskUiArn:DescribeHumanTaskUiResponse' :: Text
humanTaskUiArn = Text
a} :: DescribeHumanTaskUiResponse)

-- | The name of the human task user interface (worker task template).
describeHumanTaskUiResponse_humanTaskUiName :: Lens.Lens' DescribeHumanTaskUiResponse Prelude.Text
describeHumanTaskUiResponse_humanTaskUiName :: Lens' DescribeHumanTaskUiResponse Text
describeHumanTaskUiResponse_humanTaskUiName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHumanTaskUiResponse' {Text
humanTaskUiName :: Text
$sel:humanTaskUiName:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> Text
humanTaskUiName} -> Text
humanTaskUiName) (\s :: DescribeHumanTaskUiResponse
s@DescribeHumanTaskUiResponse' {} Text
a -> DescribeHumanTaskUiResponse
s {$sel:humanTaskUiName:DescribeHumanTaskUiResponse' :: Text
humanTaskUiName = Text
a} :: DescribeHumanTaskUiResponse)

-- | The timestamp when the human task user interface was created.
describeHumanTaskUiResponse_creationTime :: Lens.Lens' DescribeHumanTaskUiResponse Prelude.UTCTime
describeHumanTaskUiResponse_creationTime :: Lens' DescribeHumanTaskUiResponse UTCTime
describeHumanTaskUiResponse_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHumanTaskUiResponse' {POSIX
creationTime :: POSIX
$sel:creationTime:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> POSIX
creationTime} -> POSIX
creationTime) (\s :: DescribeHumanTaskUiResponse
s@DescribeHumanTaskUiResponse' {} POSIX
a -> DescribeHumanTaskUiResponse
s {$sel:creationTime:DescribeHumanTaskUiResponse' :: POSIX
creationTime = POSIX
a} :: DescribeHumanTaskUiResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | Undocumented member.
describeHumanTaskUiResponse_uiTemplate :: Lens.Lens' DescribeHumanTaskUiResponse UiTemplateInfo
describeHumanTaskUiResponse_uiTemplate :: Lens' DescribeHumanTaskUiResponse UiTemplateInfo
describeHumanTaskUiResponse_uiTemplate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHumanTaskUiResponse' {UiTemplateInfo
uiTemplate :: UiTemplateInfo
$sel:uiTemplate:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> UiTemplateInfo
uiTemplate} -> UiTemplateInfo
uiTemplate) (\s :: DescribeHumanTaskUiResponse
s@DescribeHumanTaskUiResponse' {} UiTemplateInfo
a -> DescribeHumanTaskUiResponse
s {$sel:uiTemplate:DescribeHumanTaskUiResponse' :: UiTemplateInfo
uiTemplate = UiTemplateInfo
a} :: DescribeHumanTaskUiResponse)

instance Prelude.NFData DescribeHumanTaskUiResponse where
  rnf :: DescribeHumanTaskUiResponse -> ()
rnf DescribeHumanTaskUiResponse' {Int
Maybe HumanTaskUiStatus
Text
POSIX
UiTemplateInfo
uiTemplate :: UiTemplateInfo
creationTime :: POSIX
humanTaskUiName :: Text
humanTaskUiArn :: Text
httpStatus :: Int
humanTaskUiStatus :: Maybe HumanTaskUiStatus
$sel:uiTemplate:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> UiTemplateInfo
$sel:creationTime:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> POSIX
$sel:humanTaskUiName:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> Text
$sel:humanTaskUiArn:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> Text
$sel:httpStatus:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> Int
$sel:humanTaskUiStatus:DescribeHumanTaskUiResponse' :: DescribeHumanTaskUiResponse -> Maybe HumanTaskUiStatus
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe HumanTaskUiStatus
humanTaskUiStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
humanTaskUiArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
humanTaskUiName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
creationTime
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf UiTemplateInfo
uiTemplate