{-# 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.SageMaker.DescribeHumanTaskUi
(
DescribeHumanTaskUi (..),
newDescribeHumanTaskUi,
describeHumanTaskUi_humanTaskUiName,
DescribeHumanTaskUiResponse (..),
newDescribeHumanTaskUiResponse,
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
data DescribeHumanTaskUi = DescribeHumanTaskUi'
{
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)
newDescribeHumanTaskUi ::
Prelude.Text ->
DescribeHumanTaskUi
newDescribeHumanTaskUi :: Text -> DescribeHumanTaskUi
newDescribeHumanTaskUi Text
pHumanTaskUiName_ =
DescribeHumanTaskUi'
{ $sel:humanTaskUiName:DescribeHumanTaskUi' :: Text
humanTaskUiName =
Text
pHumanTaskUiName_
}
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
data DescribeHumanTaskUiResponse = DescribeHumanTaskUiResponse'
{
DescribeHumanTaskUiResponse -> Maybe HumanTaskUiStatus
humanTaskUiStatus :: Prelude.Maybe HumanTaskUiStatus,
DescribeHumanTaskUiResponse -> Int
httpStatus :: Prelude.Int,
DescribeHumanTaskUiResponse -> Text
humanTaskUiArn :: Prelude.Text,
DescribeHumanTaskUiResponse -> Text
humanTaskUiName :: Prelude.Text,
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)
newDescribeHumanTaskUiResponse ::
Prelude.Int ->
Prelude.Text ->
Prelude.Text ->
Prelude.UTCTime ->
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_
}
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)
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)
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)
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)
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
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