{-# 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.CreateModelExplainabilityJobDefinition
(
CreateModelExplainabilityJobDefinition (..),
newCreateModelExplainabilityJobDefinition,
createModelExplainabilityJobDefinition_stoppingCondition,
createModelExplainabilityJobDefinition_networkConfig,
createModelExplainabilityJobDefinition_modelExplainabilityBaselineConfig,
createModelExplainabilityJobDefinition_tags,
createModelExplainabilityJobDefinition_jobDefinitionName,
createModelExplainabilityJobDefinition_modelExplainabilityAppSpecification,
createModelExplainabilityJobDefinition_modelExplainabilityJobInput,
createModelExplainabilityJobDefinition_modelExplainabilityJobOutputConfig,
createModelExplainabilityJobDefinition_jobResources,
createModelExplainabilityJobDefinition_roleArn,
CreateModelExplainabilityJobDefinitionResponse (..),
newCreateModelExplainabilityJobDefinitionResponse,
createModelExplainabilityJobDefinitionResponse_httpStatus,
createModelExplainabilityJobDefinitionResponse_jobDefinitionArn,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SageMaker.Types
data CreateModelExplainabilityJobDefinition = CreateModelExplainabilityJobDefinition'
{ CreateModelExplainabilityJobDefinition
-> Maybe MonitoringStoppingCondition
stoppingCondition :: Prelude.Maybe MonitoringStoppingCondition,
CreateModelExplainabilityJobDefinition
-> Maybe MonitoringNetworkConfig
networkConfig :: Prelude.Maybe MonitoringNetworkConfig,
CreateModelExplainabilityJobDefinition
-> Maybe ModelExplainabilityBaselineConfig
modelExplainabilityBaselineConfig :: Prelude.Maybe ModelExplainabilityBaselineConfig,
CreateModelExplainabilityJobDefinition -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateModelExplainabilityJobDefinition -> Text
jobDefinitionName :: Prelude.Text,
CreateModelExplainabilityJobDefinition
-> ModelExplainabilityAppSpecification
modelExplainabilityAppSpecification :: ModelExplainabilityAppSpecification,
CreateModelExplainabilityJobDefinition
-> ModelExplainabilityJobInput
modelExplainabilityJobInput :: ModelExplainabilityJobInput,
CreateModelExplainabilityJobDefinition -> MonitoringOutputConfig
modelExplainabilityJobOutputConfig :: MonitoringOutputConfig,
CreateModelExplainabilityJobDefinition -> MonitoringResources
jobResources :: MonitoringResources,
CreateModelExplainabilityJobDefinition -> Text
roleArn :: Prelude.Text
}
deriving (CreateModelExplainabilityJobDefinition
-> CreateModelExplainabilityJobDefinition -> Bool
(CreateModelExplainabilityJobDefinition
-> CreateModelExplainabilityJobDefinition -> Bool)
-> (CreateModelExplainabilityJobDefinition
-> CreateModelExplainabilityJobDefinition -> Bool)
-> Eq CreateModelExplainabilityJobDefinition
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateModelExplainabilityJobDefinition
-> CreateModelExplainabilityJobDefinition -> Bool
$c/= :: CreateModelExplainabilityJobDefinition
-> CreateModelExplainabilityJobDefinition -> Bool
== :: CreateModelExplainabilityJobDefinition
-> CreateModelExplainabilityJobDefinition -> Bool
$c== :: CreateModelExplainabilityJobDefinition
-> CreateModelExplainabilityJobDefinition -> Bool
Prelude.Eq, ReadPrec [CreateModelExplainabilityJobDefinition]
ReadPrec CreateModelExplainabilityJobDefinition
Int -> ReadS CreateModelExplainabilityJobDefinition
ReadS [CreateModelExplainabilityJobDefinition]
(Int -> ReadS CreateModelExplainabilityJobDefinition)
-> ReadS [CreateModelExplainabilityJobDefinition]
-> ReadPrec CreateModelExplainabilityJobDefinition
-> ReadPrec [CreateModelExplainabilityJobDefinition]
-> Read CreateModelExplainabilityJobDefinition
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateModelExplainabilityJobDefinition]
$creadListPrec :: ReadPrec [CreateModelExplainabilityJobDefinition]
readPrec :: ReadPrec CreateModelExplainabilityJobDefinition
$creadPrec :: ReadPrec CreateModelExplainabilityJobDefinition
readList :: ReadS [CreateModelExplainabilityJobDefinition]
$creadList :: ReadS [CreateModelExplainabilityJobDefinition]
readsPrec :: Int -> ReadS CreateModelExplainabilityJobDefinition
$creadsPrec :: Int -> ReadS CreateModelExplainabilityJobDefinition
Prelude.Read, Int -> CreateModelExplainabilityJobDefinition -> ShowS
[CreateModelExplainabilityJobDefinition] -> ShowS
CreateModelExplainabilityJobDefinition -> String
(Int -> CreateModelExplainabilityJobDefinition -> ShowS)
-> (CreateModelExplainabilityJobDefinition -> String)
-> ([CreateModelExplainabilityJobDefinition] -> ShowS)
-> Show CreateModelExplainabilityJobDefinition
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateModelExplainabilityJobDefinition] -> ShowS
$cshowList :: [CreateModelExplainabilityJobDefinition] -> ShowS
show :: CreateModelExplainabilityJobDefinition -> String
$cshow :: CreateModelExplainabilityJobDefinition -> String
showsPrec :: Int -> CreateModelExplainabilityJobDefinition -> ShowS
$cshowsPrec :: Int -> CreateModelExplainabilityJobDefinition -> ShowS
Prelude.Show, (forall x.
CreateModelExplainabilityJobDefinition
-> Rep CreateModelExplainabilityJobDefinition x)
-> (forall x.
Rep CreateModelExplainabilityJobDefinition x
-> CreateModelExplainabilityJobDefinition)
-> Generic CreateModelExplainabilityJobDefinition
forall x.
Rep CreateModelExplainabilityJobDefinition x
-> CreateModelExplainabilityJobDefinition
forall x.
CreateModelExplainabilityJobDefinition
-> Rep CreateModelExplainabilityJobDefinition x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateModelExplainabilityJobDefinition x
-> CreateModelExplainabilityJobDefinition
$cfrom :: forall x.
CreateModelExplainabilityJobDefinition
-> Rep CreateModelExplainabilityJobDefinition x
Prelude.Generic)
newCreateModelExplainabilityJobDefinition ::
Prelude.Text ->
ModelExplainabilityAppSpecification ->
ModelExplainabilityJobInput ->
MonitoringOutputConfig ->
MonitoringResources ->
Prelude.Text ->
CreateModelExplainabilityJobDefinition
newCreateModelExplainabilityJobDefinition :: Text
-> ModelExplainabilityAppSpecification
-> ModelExplainabilityJobInput
-> MonitoringOutputConfig
-> MonitoringResources
-> Text
-> CreateModelExplainabilityJobDefinition
newCreateModelExplainabilityJobDefinition
Text
pJobDefinitionName_
ModelExplainabilityAppSpecification
pModelExplainabilityAppSpecification_
ModelExplainabilityJobInput
pModelExplainabilityJobInput_
MonitoringOutputConfig
pModelExplainabilityJobOutputConfig_
MonitoringResources
pJobResources_
Text
pRoleArn_ =
CreateModelExplainabilityJobDefinition' :: Maybe MonitoringStoppingCondition
-> Maybe MonitoringNetworkConfig
-> Maybe ModelExplainabilityBaselineConfig
-> Maybe [Tag]
-> Text
-> ModelExplainabilityAppSpecification
-> ModelExplainabilityJobInput
-> MonitoringOutputConfig
-> MonitoringResources
-> Text
-> CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition'
{ $sel:stoppingCondition:CreateModelExplainabilityJobDefinition' :: Maybe MonitoringStoppingCondition
stoppingCondition =
Maybe MonitoringStoppingCondition
forall a. Maybe a
Prelude.Nothing,
$sel:networkConfig:CreateModelExplainabilityJobDefinition' :: Maybe MonitoringNetworkConfig
networkConfig = Maybe MonitoringNetworkConfig
forall a. Maybe a
Prelude.Nothing,
$sel:modelExplainabilityBaselineConfig:CreateModelExplainabilityJobDefinition' :: Maybe ModelExplainabilityBaselineConfig
modelExplainabilityBaselineConfig =
Maybe ModelExplainabilityBaselineConfig
forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateModelExplainabilityJobDefinition' :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
$sel:jobDefinitionName:CreateModelExplainabilityJobDefinition' :: Text
jobDefinitionName =
Text
pJobDefinitionName_,
$sel:modelExplainabilityAppSpecification:CreateModelExplainabilityJobDefinition' :: ModelExplainabilityAppSpecification
modelExplainabilityAppSpecification =
ModelExplainabilityAppSpecification
pModelExplainabilityAppSpecification_,
$sel:modelExplainabilityJobInput:CreateModelExplainabilityJobDefinition' :: ModelExplainabilityJobInput
modelExplainabilityJobInput =
ModelExplainabilityJobInput
pModelExplainabilityJobInput_,
$sel:modelExplainabilityJobOutputConfig:CreateModelExplainabilityJobDefinition' :: MonitoringOutputConfig
modelExplainabilityJobOutputConfig =
MonitoringOutputConfig
pModelExplainabilityJobOutputConfig_,
$sel:jobResources:CreateModelExplainabilityJobDefinition' :: MonitoringResources
jobResources = MonitoringResources
pJobResources_,
$sel:roleArn:CreateModelExplainabilityJobDefinition' :: Text
roleArn = Text
pRoleArn_
}
createModelExplainabilityJobDefinition_stoppingCondition :: Lens.Lens' CreateModelExplainabilityJobDefinition (Prelude.Maybe MonitoringStoppingCondition)
createModelExplainabilityJobDefinition_stoppingCondition :: (Maybe MonitoringStoppingCondition
-> f (Maybe MonitoringStoppingCondition))
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_stoppingCondition = (CreateModelExplainabilityJobDefinition
-> Maybe MonitoringStoppingCondition)
-> (CreateModelExplainabilityJobDefinition
-> Maybe MonitoringStoppingCondition
-> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
(Maybe MonitoringStoppingCondition)
(Maybe MonitoringStoppingCondition)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {Maybe MonitoringStoppingCondition
stoppingCondition :: Maybe MonitoringStoppingCondition
$sel:stoppingCondition:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> Maybe MonitoringStoppingCondition
stoppingCondition} -> Maybe MonitoringStoppingCondition
stoppingCondition) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} Maybe MonitoringStoppingCondition
a -> CreateModelExplainabilityJobDefinition
s {$sel:stoppingCondition:CreateModelExplainabilityJobDefinition' :: Maybe MonitoringStoppingCondition
stoppingCondition = Maybe MonitoringStoppingCondition
a} :: CreateModelExplainabilityJobDefinition)
createModelExplainabilityJobDefinition_networkConfig :: Lens.Lens' CreateModelExplainabilityJobDefinition (Prelude.Maybe MonitoringNetworkConfig)
createModelExplainabilityJobDefinition_networkConfig :: (Maybe MonitoringNetworkConfig
-> f (Maybe MonitoringNetworkConfig))
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_networkConfig = (CreateModelExplainabilityJobDefinition
-> Maybe MonitoringNetworkConfig)
-> (CreateModelExplainabilityJobDefinition
-> Maybe MonitoringNetworkConfig
-> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
(Maybe MonitoringNetworkConfig)
(Maybe MonitoringNetworkConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {Maybe MonitoringNetworkConfig
networkConfig :: Maybe MonitoringNetworkConfig
$sel:networkConfig:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> Maybe MonitoringNetworkConfig
networkConfig} -> Maybe MonitoringNetworkConfig
networkConfig) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} Maybe MonitoringNetworkConfig
a -> CreateModelExplainabilityJobDefinition
s {$sel:networkConfig:CreateModelExplainabilityJobDefinition' :: Maybe MonitoringNetworkConfig
networkConfig = Maybe MonitoringNetworkConfig
a} :: CreateModelExplainabilityJobDefinition)
createModelExplainabilityJobDefinition_modelExplainabilityBaselineConfig :: Lens.Lens' CreateModelExplainabilityJobDefinition (Prelude.Maybe ModelExplainabilityBaselineConfig)
createModelExplainabilityJobDefinition_modelExplainabilityBaselineConfig :: (Maybe ModelExplainabilityBaselineConfig
-> f (Maybe ModelExplainabilityBaselineConfig))
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_modelExplainabilityBaselineConfig = (CreateModelExplainabilityJobDefinition
-> Maybe ModelExplainabilityBaselineConfig)
-> (CreateModelExplainabilityJobDefinition
-> Maybe ModelExplainabilityBaselineConfig
-> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
(Maybe ModelExplainabilityBaselineConfig)
(Maybe ModelExplainabilityBaselineConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {Maybe ModelExplainabilityBaselineConfig
modelExplainabilityBaselineConfig :: Maybe ModelExplainabilityBaselineConfig
$sel:modelExplainabilityBaselineConfig:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> Maybe ModelExplainabilityBaselineConfig
modelExplainabilityBaselineConfig} -> Maybe ModelExplainabilityBaselineConfig
modelExplainabilityBaselineConfig) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} Maybe ModelExplainabilityBaselineConfig
a -> CreateModelExplainabilityJobDefinition
s {$sel:modelExplainabilityBaselineConfig:CreateModelExplainabilityJobDefinition' :: Maybe ModelExplainabilityBaselineConfig
modelExplainabilityBaselineConfig = Maybe ModelExplainabilityBaselineConfig
a} :: CreateModelExplainabilityJobDefinition)
createModelExplainabilityJobDefinition_tags :: Lens.Lens' CreateModelExplainabilityJobDefinition (Prelude.Maybe [Tag])
createModelExplainabilityJobDefinition_tags :: (Maybe [Tag] -> f (Maybe [Tag]))
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_tags = (CreateModelExplainabilityJobDefinition -> Maybe [Tag])
-> (CreateModelExplainabilityJobDefinition
-> Maybe [Tag] -> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
(Maybe [Tag])
(Maybe [Tag])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} Maybe [Tag]
a -> CreateModelExplainabilityJobDefinition
s {$sel:tags:CreateModelExplainabilityJobDefinition' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateModelExplainabilityJobDefinition) ((Maybe [Tag] -> f (Maybe [Tag]))
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition)
-> ((Maybe [Tag] -> f (Maybe [Tag]))
-> Maybe [Tag] -> f (Maybe [Tag]))
-> (Maybe [Tag] -> f (Maybe [Tag]))
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Tag] [Tag] [Tag] [Tag]
-> Iso (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag])
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 AnIso [Tag] [Tag] [Tag] [Tag]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createModelExplainabilityJobDefinition_jobDefinitionName :: Lens.Lens' CreateModelExplainabilityJobDefinition Prelude.Text
createModelExplainabilityJobDefinition_jobDefinitionName :: (Text -> f Text)
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_jobDefinitionName = (CreateModelExplainabilityJobDefinition -> Text)
-> (CreateModelExplainabilityJobDefinition
-> Text -> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {Text
jobDefinitionName :: Text
$sel:jobDefinitionName:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> Text
jobDefinitionName} -> Text
jobDefinitionName) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} Text
a -> CreateModelExplainabilityJobDefinition
s {$sel:jobDefinitionName:CreateModelExplainabilityJobDefinition' :: Text
jobDefinitionName = Text
a} :: CreateModelExplainabilityJobDefinition)
createModelExplainabilityJobDefinition_modelExplainabilityAppSpecification :: Lens.Lens' CreateModelExplainabilityJobDefinition ModelExplainabilityAppSpecification
createModelExplainabilityJobDefinition_modelExplainabilityAppSpecification :: (ModelExplainabilityAppSpecification
-> f ModelExplainabilityAppSpecification)
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_modelExplainabilityAppSpecification = (CreateModelExplainabilityJobDefinition
-> ModelExplainabilityAppSpecification)
-> (CreateModelExplainabilityJobDefinition
-> ModelExplainabilityAppSpecification
-> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
ModelExplainabilityAppSpecification
ModelExplainabilityAppSpecification
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {ModelExplainabilityAppSpecification
modelExplainabilityAppSpecification :: ModelExplainabilityAppSpecification
$sel:modelExplainabilityAppSpecification:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> ModelExplainabilityAppSpecification
modelExplainabilityAppSpecification} -> ModelExplainabilityAppSpecification
modelExplainabilityAppSpecification) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} ModelExplainabilityAppSpecification
a -> CreateModelExplainabilityJobDefinition
s {$sel:modelExplainabilityAppSpecification:CreateModelExplainabilityJobDefinition' :: ModelExplainabilityAppSpecification
modelExplainabilityAppSpecification = ModelExplainabilityAppSpecification
a} :: CreateModelExplainabilityJobDefinition)
createModelExplainabilityJobDefinition_modelExplainabilityJobInput :: Lens.Lens' CreateModelExplainabilityJobDefinition ModelExplainabilityJobInput
createModelExplainabilityJobDefinition_modelExplainabilityJobInput :: (ModelExplainabilityJobInput -> f ModelExplainabilityJobInput)
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_modelExplainabilityJobInput = (CreateModelExplainabilityJobDefinition
-> ModelExplainabilityJobInput)
-> (CreateModelExplainabilityJobDefinition
-> ModelExplainabilityJobInput
-> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
ModelExplainabilityJobInput
ModelExplainabilityJobInput
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {ModelExplainabilityJobInput
modelExplainabilityJobInput :: ModelExplainabilityJobInput
$sel:modelExplainabilityJobInput:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> ModelExplainabilityJobInput
modelExplainabilityJobInput} -> ModelExplainabilityJobInput
modelExplainabilityJobInput) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} ModelExplainabilityJobInput
a -> CreateModelExplainabilityJobDefinition
s {$sel:modelExplainabilityJobInput:CreateModelExplainabilityJobDefinition' :: ModelExplainabilityJobInput
modelExplainabilityJobInput = ModelExplainabilityJobInput
a} :: CreateModelExplainabilityJobDefinition)
createModelExplainabilityJobDefinition_modelExplainabilityJobOutputConfig :: Lens.Lens' CreateModelExplainabilityJobDefinition MonitoringOutputConfig
createModelExplainabilityJobDefinition_modelExplainabilityJobOutputConfig :: (MonitoringOutputConfig -> f MonitoringOutputConfig)
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_modelExplainabilityJobOutputConfig = (CreateModelExplainabilityJobDefinition -> MonitoringOutputConfig)
-> (CreateModelExplainabilityJobDefinition
-> MonitoringOutputConfig
-> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
MonitoringOutputConfig
MonitoringOutputConfig
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {MonitoringOutputConfig
modelExplainabilityJobOutputConfig :: MonitoringOutputConfig
$sel:modelExplainabilityJobOutputConfig:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> MonitoringOutputConfig
modelExplainabilityJobOutputConfig} -> MonitoringOutputConfig
modelExplainabilityJobOutputConfig) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} MonitoringOutputConfig
a -> CreateModelExplainabilityJobDefinition
s {$sel:modelExplainabilityJobOutputConfig:CreateModelExplainabilityJobDefinition' :: MonitoringOutputConfig
modelExplainabilityJobOutputConfig = MonitoringOutputConfig
a} :: CreateModelExplainabilityJobDefinition)
createModelExplainabilityJobDefinition_jobResources :: Lens.Lens' CreateModelExplainabilityJobDefinition MonitoringResources
createModelExplainabilityJobDefinition_jobResources :: (MonitoringResources -> f MonitoringResources)
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_jobResources = (CreateModelExplainabilityJobDefinition -> MonitoringResources)
-> (CreateModelExplainabilityJobDefinition
-> MonitoringResources -> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
MonitoringResources
MonitoringResources
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {MonitoringResources
jobResources :: MonitoringResources
$sel:jobResources:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> MonitoringResources
jobResources} -> MonitoringResources
jobResources) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} MonitoringResources
a -> CreateModelExplainabilityJobDefinition
s {$sel:jobResources:CreateModelExplainabilityJobDefinition' :: MonitoringResources
jobResources = MonitoringResources
a} :: CreateModelExplainabilityJobDefinition)
createModelExplainabilityJobDefinition_roleArn :: Lens.Lens' CreateModelExplainabilityJobDefinition Prelude.Text
createModelExplainabilityJobDefinition_roleArn :: (Text -> f Text)
-> CreateModelExplainabilityJobDefinition
-> f CreateModelExplainabilityJobDefinition
createModelExplainabilityJobDefinition_roleArn = (CreateModelExplainabilityJobDefinition -> Text)
-> (CreateModelExplainabilityJobDefinition
-> Text -> CreateModelExplainabilityJobDefinition)
-> Lens
CreateModelExplainabilityJobDefinition
CreateModelExplainabilityJobDefinition
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinition' {Text
roleArn :: Text
$sel:roleArn:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> Text
roleArn} -> Text
roleArn) (\s :: CreateModelExplainabilityJobDefinition
s@CreateModelExplainabilityJobDefinition' {} Text
a -> CreateModelExplainabilityJobDefinition
s {$sel:roleArn:CreateModelExplainabilityJobDefinition' :: Text
roleArn = Text
a} :: CreateModelExplainabilityJobDefinition)
instance
Core.AWSRequest
CreateModelExplainabilityJobDefinition
where
type
AWSResponse
CreateModelExplainabilityJobDefinition =
CreateModelExplainabilityJobDefinitionResponse
request :: CreateModelExplainabilityJobDefinition
-> Request CreateModelExplainabilityJobDefinition
request = Service
-> CreateModelExplainabilityJobDefinition
-> Request CreateModelExplainabilityJobDefinition
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy CreateModelExplainabilityJobDefinition
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse CreateModelExplainabilityJobDefinition)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either
String (AWSResponse CreateModelExplainabilityJobDefinition))
-> Logger
-> Service
-> Proxy CreateModelExplainabilityJobDefinition
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse CreateModelExplainabilityJobDefinition)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int -> Text -> CreateModelExplainabilityJobDefinitionResponse
CreateModelExplainabilityJobDefinitionResponse'
(Int -> Text -> CreateModelExplainabilityJobDefinitionResponse)
-> Either String Int
-> Either
String (Text -> CreateModelExplainabilityJobDefinitionResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
Either
String (Text -> CreateModelExplainabilityJobDefinitionResponse)
-> Either String Text
-> Either String CreateModelExplainabilityJobDefinitionResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String Text
forall a. FromJSON a => Object -> Text -> Either String a
Core..:> Text
"JobDefinitionArn")
)
instance
Prelude.Hashable
CreateModelExplainabilityJobDefinition
instance
Prelude.NFData
CreateModelExplainabilityJobDefinition
instance
Core.ToHeaders
CreateModelExplainabilityJobDefinition
where
toHeaders :: CreateModelExplainabilityJobDefinition -> ResponseHeaders
toHeaders =
ResponseHeaders
-> CreateModelExplainabilityJobDefinition -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"SageMaker.CreateModelExplainabilityJobDefinition" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Core.ToJSON
CreateModelExplainabilityJobDefinition
where
toJSON :: CreateModelExplainabilityJobDefinition -> Value
toJSON CreateModelExplainabilityJobDefinition' {Maybe [Tag]
Maybe ModelExplainabilityBaselineConfig
Maybe MonitoringStoppingCondition
Maybe MonitoringNetworkConfig
Text
ModelExplainabilityAppSpecification
MonitoringResources
ModelExplainabilityJobInput
MonitoringOutputConfig
roleArn :: Text
jobResources :: MonitoringResources
modelExplainabilityJobOutputConfig :: MonitoringOutputConfig
modelExplainabilityJobInput :: ModelExplainabilityJobInput
modelExplainabilityAppSpecification :: ModelExplainabilityAppSpecification
jobDefinitionName :: Text
tags :: Maybe [Tag]
modelExplainabilityBaselineConfig :: Maybe ModelExplainabilityBaselineConfig
networkConfig :: Maybe MonitoringNetworkConfig
stoppingCondition :: Maybe MonitoringStoppingCondition
$sel:roleArn:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> Text
$sel:jobResources:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> MonitoringResources
$sel:modelExplainabilityJobOutputConfig:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> MonitoringOutputConfig
$sel:modelExplainabilityJobInput:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> ModelExplainabilityJobInput
$sel:modelExplainabilityAppSpecification:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> ModelExplainabilityAppSpecification
$sel:jobDefinitionName:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> Text
$sel:tags:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition -> Maybe [Tag]
$sel:modelExplainabilityBaselineConfig:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> Maybe ModelExplainabilityBaselineConfig
$sel:networkConfig:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> Maybe MonitoringNetworkConfig
$sel:stoppingCondition:CreateModelExplainabilityJobDefinition' :: CreateModelExplainabilityJobDefinition
-> Maybe MonitoringStoppingCondition
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Text
"StoppingCondition" Text -> MonitoringStoppingCondition -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(MonitoringStoppingCondition -> Pair)
-> Maybe MonitoringStoppingCondition -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MonitoringStoppingCondition
stoppingCondition,
(Text
"NetworkConfig" Text -> MonitoringNetworkConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (MonitoringNetworkConfig -> Pair)
-> Maybe MonitoringNetworkConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MonitoringNetworkConfig
networkConfig,
(Text
"ModelExplainabilityBaselineConfig" Text -> ModelExplainabilityBaselineConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(ModelExplainabilityBaselineConfig -> Pair)
-> Maybe ModelExplainabilityBaselineConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModelExplainabilityBaselineConfig
modelExplainabilityBaselineConfig,
(Text
"Tags" Text -> [Tag] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) ([Tag] -> Pair) -> Maybe [Tag] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
(Text
"JobDefinitionName" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
jobDefinitionName),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"ModelExplainabilityAppSpecification"
Text -> ModelExplainabilityAppSpecification -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= ModelExplainabilityAppSpecification
modelExplainabilityAppSpecification
),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"ModelExplainabilityJobInput"
Text -> ModelExplainabilityJobInput -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= ModelExplainabilityJobInput
modelExplainabilityJobInput
),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"ModelExplainabilityJobOutputConfig"
Text -> MonitoringOutputConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= MonitoringOutputConfig
modelExplainabilityJobOutputConfig
),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"JobResources" Text -> MonitoringResources -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= MonitoringResources
jobResources),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"RoleArn" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
roleArn)
]
)
instance
Core.ToPath
CreateModelExplainabilityJobDefinition
where
toPath :: CreateModelExplainabilityJobDefinition -> ByteString
toPath = ByteString -> CreateModelExplainabilityJobDefinition -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Core.ToQuery
CreateModelExplainabilityJobDefinition
where
toQuery :: CreateModelExplainabilityJobDefinition -> QueryString
toQuery = QueryString
-> CreateModelExplainabilityJobDefinition -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data CreateModelExplainabilityJobDefinitionResponse = CreateModelExplainabilityJobDefinitionResponse'
{
CreateModelExplainabilityJobDefinitionResponse -> Int
httpStatus :: Prelude.Int,
CreateModelExplainabilityJobDefinitionResponse -> Text
jobDefinitionArn :: Prelude.Text
}
deriving (CreateModelExplainabilityJobDefinitionResponse
-> CreateModelExplainabilityJobDefinitionResponse -> Bool
(CreateModelExplainabilityJobDefinitionResponse
-> CreateModelExplainabilityJobDefinitionResponse -> Bool)
-> (CreateModelExplainabilityJobDefinitionResponse
-> CreateModelExplainabilityJobDefinitionResponse -> Bool)
-> Eq CreateModelExplainabilityJobDefinitionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateModelExplainabilityJobDefinitionResponse
-> CreateModelExplainabilityJobDefinitionResponse -> Bool
$c/= :: CreateModelExplainabilityJobDefinitionResponse
-> CreateModelExplainabilityJobDefinitionResponse -> Bool
== :: CreateModelExplainabilityJobDefinitionResponse
-> CreateModelExplainabilityJobDefinitionResponse -> Bool
$c== :: CreateModelExplainabilityJobDefinitionResponse
-> CreateModelExplainabilityJobDefinitionResponse -> Bool
Prelude.Eq, ReadPrec [CreateModelExplainabilityJobDefinitionResponse]
ReadPrec CreateModelExplainabilityJobDefinitionResponse
Int -> ReadS CreateModelExplainabilityJobDefinitionResponse
ReadS [CreateModelExplainabilityJobDefinitionResponse]
(Int -> ReadS CreateModelExplainabilityJobDefinitionResponse)
-> ReadS [CreateModelExplainabilityJobDefinitionResponse]
-> ReadPrec CreateModelExplainabilityJobDefinitionResponse
-> ReadPrec [CreateModelExplainabilityJobDefinitionResponse]
-> Read CreateModelExplainabilityJobDefinitionResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateModelExplainabilityJobDefinitionResponse]
$creadListPrec :: ReadPrec [CreateModelExplainabilityJobDefinitionResponse]
readPrec :: ReadPrec CreateModelExplainabilityJobDefinitionResponse
$creadPrec :: ReadPrec CreateModelExplainabilityJobDefinitionResponse
readList :: ReadS [CreateModelExplainabilityJobDefinitionResponse]
$creadList :: ReadS [CreateModelExplainabilityJobDefinitionResponse]
readsPrec :: Int -> ReadS CreateModelExplainabilityJobDefinitionResponse
$creadsPrec :: Int -> ReadS CreateModelExplainabilityJobDefinitionResponse
Prelude.Read, Int -> CreateModelExplainabilityJobDefinitionResponse -> ShowS
[CreateModelExplainabilityJobDefinitionResponse] -> ShowS
CreateModelExplainabilityJobDefinitionResponse -> String
(Int -> CreateModelExplainabilityJobDefinitionResponse -> ShowS)
-> (CreateModelExplainabilityJobDefinitionResponse -> String)
-> ([CreateModelExplainabilityJobDefinitionResponse] -> ShowS)
-> Show CreateModelExplainabilityJobDefinitionResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateModelExplainabilityJobDefinitionResponse] -> ShowS
$cshowList :: [CreateModelExplainabilityJobDefinitionResponse] -> ShowS
show :: CreateModelExplainabilityJobDefinitionResponse -> String
$cshow :: CreateModelExplainabilityJobDefinitionResponse -> String
showsPrec :: Int -> CreateModelExplainabilityJobDefinitionResponse -> ShowS
$cshowsPrec :: Int -> CreateModelExplainabilityJobDefinitionResponse -> ShowS
Prelude.Show, (forall x.
CreateModelExplainabilityJobDefinitionResponse
-> Rep CreateModelExplainabilityJobDefinitionResponse x)
-> (forall x.
Rep CreateModelExplainabilityJobDefinitionResponse x
-> CreateModelExplainabilityJobDefinitionResponse)
-> Generic CreateModelExplainabilityJobDefinitionResponse
forall x.
Rep CreateModelExplainabilityJobDefinitionResponse x
-> CreateModelExplainabilityJobDefinitionResponse
forall x.
CreateModelExplainabilityJobDefinitionResponse
-> Rep CreateModelExplainabilityJobDefinitionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateModelExplainabilityJobDefinitionResponse x
-> CreateModelExplainabilityJobDefinitionResponse
$cfrom :: forall x.
CreateModelExplainabilityJobDefinitionResponse
-> Rep CreateModelExplainabilityJobDefinitionResponse x
Prelude.Generic)
newCreateModelExplainabilityJobDefinitionResponse ::
Prelude.Int ->
Prelude.Text ->
CreateModelExplainabilityJobDefinitionResponse
newCreateModelExplainabilityJobDefinitionResponse :: Int -> Text -> CreateModelExplainabilityJobDefinitionResponse
newCreateModelExplainabilityJobDefinitionResponse
Int
pHttpStatus_
Text
pJobDefinitionArn_ =
CreateModelExplainabilityJobDefinitionResponse' :: Int -> Text -> CreateModelExplainabilityJobDefinitionResponse
CreateModelExplainabilityJobDefinitionResponse'
{ $sel:httpStatus:CreateModelExplainabilityJobDefinitionResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:jobDefinitionArn:CreateModelExplainabilityJobDefinitionResponse' :: Text
jobDefinitionArn =
Text
pJobDefinitionArn_
}
createModelExplainabilityJobDefinitionResponse_httpStatus :: Lens.Lens' CreateModelExplainabilityJobDefinitionResponse Prelude.Int
createModelExplainabilityJobDefinitionResponse_httpStatus :: (Int -> f Int)
-> CreateModelExplainabilityJobDefinitionResponse
-> f CreateModelExplainabilityJobDefinitionResponse
createModelExplainabilityJobDefinitionResponse_httpStatus = (CreateModelExplainabilityJobDefinitionResponse -> Int)
-> (CreateModelExplainabilityJobDefinitionResponse
-> Int -> CreateModelExplainabilityJobDefinitionResponse)
-> Lens
CreateModelExplainabilityJobDefinitionResponse
CreateModelExplainabilityJobDefinitionResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinitionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateModelExplainabilityJobDefinitionResponse' :: CreateModelExplainabilityJobDefinitionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateModelExplainabilityJobDefinitionResponse
s@CreateModelExplainabilityJobDefinitionResponse' {} Int
a -> CreateModelExplainabilityJobDefinitionResponse
s {$sel:httpStatus:CreateModelExplainabilityJobDefinitionResponse' :: Int
httpStatus = Int
a} :: CreateModelExplainabilityJobDefinitionResponse)
createModelExplainabilityJobDefinitionResponse_jobDefinitionArn :: Lens.Lens' CreateModelExplainabilityJobDefinitionResponse Prelude.Text
createModelExplainabilityJobDefinitionResponse_jobDefinitionArn :: (Text -> f Text)
-> CreateModelExplainabilityJobDefinitionResponse
-> f CreateModelExplainabilityJobDefinitionResponse
createModelExplainabilityJobDefinitionResponse_jobDefinitionArn = (CreateModelExplainabilityJobDefinitionResponse -> Text)
-> (CreateModelExplainabilityJobDefinitionResponse
-> Text -> CreateModelExplainabilityJobDefinitionResponse)
-> Lens
CreateModelExplainabilityJobDefinitionResponse
CreateModelExplainabilityJobDefinitionResponse
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelExplainabilityJobDefinitionResponse' {Text
jobDefinitionArn :: Text
$sel:jobDefinitionArn:CreateModelExplainabilityJobDefinitionResponse' :: CreateModelExplainabilityJobDefinitionResponse -> Text
jobDefinitionArn} -> Text
jobDefinitionArn) (\s :: CreateModelExplainabilityJobDefinitionResponse
s@CreateModelExplainabilityJobDefinitionResponse' {} Text
a -> CreateModelExplainabilityJobDefinitionResponse
s {$sel:jobDefinitionArn:CreateModelExplainabilityJobDefinitionResponse' :: Text
jobDefinitionArn = Text
a} :: CreateModelExplainabilityJobDefinitionResponse)
instance
Prelude.NFData
CreateModelExplainabilityJobDefinitionResponse