{-# 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.RenderUiTemplate
(
RenderUiTemplate (..),
newRenderUiTemplate,
renderUiTemplate_humanTaskUiArn,
renderUiTemplate_uiTemplate,
renderUiTemplate_task,
renderUiTemplate_roleArn,
RenderUiTemplateResponse (..),
newRenderUiTemplateResponse,
renderUiTemplateResponse_httpStatus,
renderUiTemplateResponse_renderedContent,
renderUiTemplateResponse_errors,
)
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 RenderUiTemplate = RenderUiTemplate'
{
RenderUiTemplate -> Maybe Text
humanTaskUiArn :: Prelude.Maybe Prelude.Text,
RenderUiTemplate -> Maybe UiTemplate
uiTemplate :: Prelude.Maybe UiTemplate,
RenderUiTemplate -> RenderableTask
task :: RenderableTask,
RenderUiTemplate -> Text
roleArn :: Prelude.Text
}
deriving (RenderUiTemplate -> RenderUiTemplate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RenderUiTemplate -> RenderUiTemplate -> Bool
$c/= :: RenderUiTemplate -> RenderUiTemplate -> Bool
== :: RenderUiTemplate -> RenderUiTemplate -> Bool
$c== :: RenderUiTemplate -> RenderUiTemplate -> Bool
Prelude.Eq, ReadPrec [RenderUiTemplate]
ReadPrec RenderUiTemplate
Int -> ReadS RenderUiTemplate
ReadS [RenderUiTemplate]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RenderUiTemplate]
$creadListPrec :: ReadPrec [RenderUiTemplate]
readPrec :: ReadPrec RenderUiTemplate
$creadPrec :: ReadPrec RenderUiTemplate
readList :: ReadS [RenderUiTemplate]
$creadList :: ReadS [RenderUiTemplate]
readsPrec :: Int -> ReadS RenderUiTemplate
$creadsPrec :: Int -> ReadS RenderUiTemplate
Prelude.Read, Int -> RenderUiTemplate -> ShowS
[RenderUiTemplate] -> ShowS
RenderUiTemplate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RenderUiTemplate] -> ShowS
$cshowList :: [RenderUiTemplate] -> ShowS
show :: RenderUiTemplate -> String
$cshow :: RenderUiTemplate -> String
showsPrec :: Int -> RenderUiTemplate -> ShowS
$cshowsPrec :: Int -> RenderUiTemplate -> ShowS
Prelude.Show, forall x. Rep RenderUiTemplate x -> RenderUiTemplate
forall x. RenderUiTemplate -> Rep RenderUiTemplate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RenderUiTemplate x -> RenderUiTemplate
$cfrom :: forall x. RenderUiTemplate -> Rep RenderUiTemplate x
Prelude.Generic)
newRenderUiTemplate ::
RenderableTask ->
Prelude.Text ->
RenderUiTemplate
newRenderUiTemplate :: RenderableTask -> Text -> RenderUiTemplate
newRenderUiTemplate RenderableTask
pTask_ Text
pRoleArn_ =
RenderUiTemplate'
{ $sel:humanTaskUiArn:RenderUiTemplate' :: Maybe Text
humanTaskUiArn = forall a. Maybe a
Prelude.Nothing,
$sel:uiTemplate:RenderUiTemplate' :: Maybe UiTemplate
uiTemplate = forall a. Maybe a
Prelude.Nothing,
$sel:task:RenderUiTemplate' :: RenderableTask
task = RenderableTask
pTask_,
$sel:roleArn:RenderUiTemplate' :: Text
roleArn = Text
pRoleArn_
}
renderUiTemplate_humanTaskUiArn :: Lens.Lens' RenderUiTemplate (Prelude.Maybe Prelude.Text)
renderUiTemplate_humanTaskUiArn :: Lens' RenderUiTemplate (Maybe Text)
renderUiTemplate_humanTaskUiArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RenderUiTemplate' {Maybe Text
humanTaskUiArn :: Maybe Text
$sel:humanTaskUiArn:RenderUiTemplate' :: RenderUiTemplate -> Maybe Text
humanTaskUiArn} -> Maybe Text
humanTaskUiArn) (\s :: RenderUiTemplate
s@RenderUiTemplate' {} Maybe Text
a -> RenderUiTemplate
s {$sel:humanTaskUiArn:RenderUiTemplate' :: Maybe Text
humanTaskUiArn = Maybe Text
a} :: RenderUiTemplate)
renderUiTemplate_uiTemplate :: Lens.Lens' RenderUiTemplate (Prelude.Maybe UiTemplate)
renderUiTemplate_uiTemplate :: Lens' RenderUiTemplate (Maybe UiTemplate)
renderUiTemplate_uiTemplate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RenderUiTemplate' {Maybe UiTemplate
uiTemplate :: Maybe UiTemplate
$sel:uiTemplate:RenderUiTemplate' :: RenderUiTemplate -> Maybe UiTemplate
uiTemplate} -> Maybe UiTemplate
uiTemplate) (\s :: RenderUiTemplate
s@RenderUiTemplate' {} Maybe UiTemplate
a -> RenderUiTemplate
s {$sel:uiTemplate:RenderUiTemplate' :: Maybe UiTemplate
uiTemplate = Maybe UiTemplate
a} :: RenderUiTemplate)
renderUiTemplate_task :: Lens.Lens' RenderUiTemplate RenderableTask
renderUiTemplate_task :: Lens' RenderUiTemplate RenderableTask
renderUiTemplate_task = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RenderUiTemplate' {RenderableTask
task :: RenderableTask
$sel:task:RenderUiTemplate' :: RenderUiTemplate -> RenderableTask
task} -> RenderableTask
task) (\s :: RenderUiTemplate
s@RenderUiTemplate' {} RenderableTask
a -> RenderUiTemplate
s {$sel:task:RenderUiTemplate' :: RenderableTask
task = RenderableTask
a} :: RenderUiTemplate)
renderUiTemplate_roleArn :: Lens.Lens' RenderUiTemplate Prelude.Text
renderUiTemplate_roleArn :: Lens' RenderUiTemplate Text
renderUiTemplate_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RenderUiTemplate' {Text
roleArn :: Text
$sel:roleArn:RenderUiTemplate' :: RenderUiTemplate -> Text
roleArn} -> Text
roleArn) (\s :: RenderUiTemplate
s@RenderUiTemplate' {} Text
a -> RenderUiTemplate
s {$sel:roleArn:RenderUiTemplate' :: Text
roleArn = Text
a} :: RenderUiTemplate)
instance Core.AWSRequest RenderUiTemplate where
type
AWSResponse RenderUiTemplate =
RenderUiTemplateResponse
request :: (Service -> Service)
-> RenderUiTemplate -> Request RenderUiTemplate
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 RenderUiTemplate
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse RenderUiTemplate)))
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 ->
Int -> Text -> [RenderingError] -> RenderUiTemplateResponse
RenderUiTemplateResponse'
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))
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
"RenderedContent")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Errors" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
)
instance Prelude.Hashable RenderUiTemplate where
hashWithSalt :: Int -> RenderUiTemplate -> Int
hashWithSalt Int
_salt RenderUiTemplate' {Maybe Text
Maybe UiTemplate
Text
RenderableTask
roleArn :: Text
task :: RenderableTask
uiTemplate :: Maybe UiTemplate
humanTaskUiArn :: Maybe Text
$sel:roleArn:RenderUiTemplate' :: RenderUiTemplate -> Text
$sel:task:RenderUiTemplate' :: RenderUiTemplate -> RenderableTask
$sel:uiTemplate:RenderUiTemplate' :: RenderUiTemplate -> Maybe UiTemplate
$sel:humanTaskUiArn:RenderUiTemplate' :: RenderUiTemplate -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
humanTaskUiArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UiTemplate
uiTemplate
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` RenderableTask
task
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleArn
instance Prelude.NFData RenderUiTemplate where
rnf :: RenderUiTemplate -> ()
rnf RenderUiTemplate' {Maybe Text
Maybe UiTemplate
Text
RenderableTask
roleArn :: Text
task :: RenderableTask
uiTemplate :: Maybe UiTemplate
humanTaskUiArn :: Maybe Text
$sel:roleArn:RenderUiTemplate' :: RenderUiTemplate -> Text
$sel:task:RenderUiTemplate' :: RenderUiTemplate -> RenderableTask
$sel:uiTemplate:RenderUiTemplate' :: RenderUiTemplate -> Maybe UiTemplate
$sel:humanTaskUiArn:RenderUiTemplate' :: RenderUiTemplate -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
humanTaskUiArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UiTemplate
uiTemplate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf RenderableTask
task
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
roleArn
instance Data.ToHeaders RenderUiTemplate where
toHeaders :: RenderUiTemplate -> 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.RenderUiTemplate" :: 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 RenderUiTemplate where
toJSON :: RenderUiTemplate -> Value
toJSON RenderUiTemplate' {Maybe Text
Maybe UiTemplate
Text
RenderableTask
roleArn :: Text
task :: RenderableTask
uiTemplate :: Maybe UiTemplate
humanTaskUiArn :: Maybe Text
$sel:roleArn:RenderUiTemplate' :: RenderUiTemplate -> Text
$sel:task:RenderUiTemplate' :: RenderUiTemplate -> RenderableTask
$sel:uiTemplate:RenderUiTemplate' :: RenderUiTemplate -> Maybe UiTemplate
$sel:humanTaskUiArn:RenderUiTemplate' :: RenderUiTemplate -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"HumanTaskUiArn" 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
humanTaskUiArn,
(Key
"UiTemplate" 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 UiTemplate
uiTemplate,
forall a. a -> Maybe a
Prelude.Just (Key
"Task" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= RenderableTask
task),
forall a. a -> Maybe a
Prelude.Just (Key
"RoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
roleArn)
]
)
instance Data.ToPath RenderUiTemplate where
toPath :: RenderUiTemplate -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RenderUiTemplate where
toQuery :: RenderUiTemplate -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RenderUiTemplateResponse = RenderUiTemplateResponse'
{
RenderUiTemplateResponse -> Int
httpStatus :: Prelude.Int,
RenderUiTemplateResponse -> Text
renderedContent :: Prelude.Text,
RenderUiTemplateResponse -> [RenderingError]
errors :: [RenderingError]
}
deriving (RenderUiTemplateResponse -> RenderUiTemplateResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RenderUiTemplateResponse -> RenderUiTemplateResponse -> Bool
$c/= :: RenderUiTemplateResponse -> RenderUiTemplateResponse -> Bool
== :: RenderUiTemplateResponse -> RenderUiTemplateResponse -> Bool
$c== :: RenderUiTemplateResponse -> RenderUiTemplateResponse -> Bool
Prelude.Eq, ReadPrec [RenderUiTemplateResponse]
ReadPrec RenderUiTemplateResponse
Int -> ReadS RenderUiTemplateResponse
ReadS [RenderUiTemplateResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RenderUiTemplateResponse]
$creadListPrec :: ReadPrec [RenderUiTemplateResponse]
readPrec :: ReadPrec RenderUiTemplateResponse
$creadPrec :: ReadPrec RenderUiTemplateResponse
readList :: ReadS [RenderUiTemplateResponse]
$creadList :: ReadS [RenderUiTemplateResponse]
readsPrec :: Int -> ReadS RenderUiTemplateResponse
$creadsPrec :: Int -> ReadS RenderUiTemplateResponse
Prelude.Read, Int -> RenderUiTemplateResponse -> ShowS
[RenderUiTemplateResponse] -> ShowS
RenderUiTemplateResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RenderUiTemplateResponse] -> ShowS
$cshowList :: [RenderUiTemplateResponse] -> ShowS
show :: RenderUiTemplateResponse -> String
$cshow :: RenderUiTemplateResponse -> String
showsPrec :: Int -> RenderUiTemplateResponse -> ShowS
$cshowsPrec :: Int -> RenderUiTemplateResponse -> ShowS
Prelude.Show, forall x.
Rep RenderUiTemplateResponse x -> RenderUiTemplateResponse
forall x.
RenderUiTemplateResponse -> Rep RenderUiTemplateResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RenderUiTemplateResponse x -> RenderUiTemplateResponse
$cfrom :: forall x.
RenderUiTemplateResponse -> Rep RenderUiTemplateResponse x
Prelude.Generic)
newRenderUiTemplateResponse ::
Prelude.Int ->
Prelude.Text ->
RenderUiTemplateResponse
newRenderUiTemplateResponse :: Int -> Text -> RenderUiTemplateResponse
newRenderUiTemplateResponse
Int
pHttpStatus_
Text
pRenderedContent_ =
RenderUiTemplateResponse'
{ $sel:httpStatus:RenderUiTemplateResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:renderedContent:RenderUiTemplateResponse' :: Text
renderedContent = Text
pRenderedContent_,
$sel:errors:RenderUiTemplateResponse' :: [RenderingError]
errors = forall a. Monoid a => a
Prelude.mempty
}
renderUiTemplateResponse_httpStatus :: Lens.Lens' RenderUiTemplateResponse Prelude.Int
renderUiTemplateResponse_httpStatus :: Lens' RenderUiTemplateResponse Int
renderUiTemplateResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RenderUiTemplateResponse' {Int
httpStatus :: Int
$sel:httpStatus:RenderUiTemplateResponse' :: RenderUiTemplateResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RenderUiTemplateResponse
s@RenderUiTemplateResponse' {} Int
a -> RenderUiTemplateResponse
s {$sel:httpStatus:RenderUiTemplateResponse' :: Int
httpStatus = Int
a} :: RenderUiTemplateResponse)
renderUiTemplateResponse_renderedContent :: Lens.Lens' RenderUiTemplateResponse Prelude.Text
renderUiTemplateResponse_renderedContent :: Lens' RenderUiTemplateResponse Text
renderUiTemplateResponse_renderedContent = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RenderUiTemplateResponse' {Text
renderedContent :: Text
$sel:renderedContent:RenderUiTemplateResponse' :: RenderUiTemplateResponse -> Text
renderedContent} -> Text
renderedContent) (\s :: RenderUiTemplateResponse
s@RenderUiTemplateResponse' {} Text
a -> RenderUiTemplateResponse
s {$sel:renderedContent:RenderUiTemplateResponse' :: Text
renderedContent = Text
a} :: RenderUiTemplateResponse)
renderUiTemplateResponse_errors :: Lens.Lens' RenderUiTemplateResponse [RenderingError]
renderUiTemplateResponse_errors :: Lens' RenderUiTemplateResponse [RenderingError]
renderUiTemplateResponse_errors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RenderUiTemplateResponse' {[RenderingError]
errors :: [RenderingError]
$sel:errors:RenderUiTemplateResponse' :: RenderUiTemplateResponse -> [RenderingError]
errors} -> [RenderingError]
errors) (\s :: RenderUiTemplateResponse
s@RenderUiTemplateResponse' {} [RenderingError]
a -> RenderUiTemplateResponse
s {$sel:errors:RenderUiTemplateResponse' :: [RenderingError]
errors = [RenderingError]
a} :: RenderUiTemplateResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Prelude.NFData RenderUiTemplateResponse where
rnf :: RenderUiTemplateResponse -> ()
rnf RenderUiTemplateResponse' {Int
[RenderingError]
Text
errors :: [RenderingError]
renderedContent :: Text
httpStatus :: Int
$sel:errors:RenderUiTemplateResponse' :: RenderUiTemplateResponse -> [RenderingError]
$sel:renderedContent:RenderUiTemplateResponse' :: RenderUiTemplateResponse -> Text
$sel:httpStatus:RenderUiTemplateResponse' :: RenderUiTemplateResponse -> Int
..} =
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
renderedContent
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [RenderingError]
errors