{-# 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.CreateModelQualityJobDefinition
(
CreateModelQualityJobDefinition (..),
newCreateModelQualityJobDefinition,
createModelQualityJobDefinition_modelQualityBaselineConfig,
createModelQualityJobDefinition_stoppingCondition,
createModelQualityJobDefinition_networkConfig,
createModelQualityJobDefinition_tags,
createModelQualityJobDefinition_jobDefinitionName,
createModelQualityJobDefinition_modelQualityAppSpecification,
createModelQualityJobDefinition_modelQualityJobInput,
createModelQualityJobDefinition_modelQualityJobOutputConfig,
createModelQualityJobDefinition_jobResources,
createModelQualityJobDefinition_roleArn,
CreateModelQualityJobDefinitionResponse (..),
newCreateModelQualityJobDefinitionResponse,
createModelQualityJobDefinitionResponse_httpStatus,
createModelQualityJobDefinitionResponse_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 CreateModelQualityJobDefinition = CreateModelQualityJobDefinition'
{
CreateModelQualityJobDefinition -> Maybe ModelQualityBaselineConfig
modelQualityBaselineConfig :: Prelude.Maybe ModelQualityBaselineConfig,
CreateModelQualityJobDefinition
-> Maybe MonitoringStoppingCondition
stoppingCondition :: Prelude.Maybe MonitoringStoppingCondition,
CreateModelQualityJobDefinition -> Maybe MonitoringNetworkConfig
networkConfig :: Prelude.Maybe MonitoringNetworkConfig,
CreateModelQualityJobDefinition -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateModelQualityJobDefinition -> Text
jobDefinitionName :: Prelude.Text,
CreateModelQualityJobDefinition -> ModelQualityAppSpecification
modelQualityAppSpecification :: ModelQualityAppSpecification,
CreateModelQualityJobDefinition -> ModelQualityJobInput
modelQualityJobInput :: ModelQualityJobInput,
CreateModelQualityJobDefinition -> MonitoringOutputConfig
modelQualityJobOutputConfig :: MonitoringOutputConfig,
CreateModelQualityJobDefinition -> MonitoringResources
jobResources :: MonitoringResources,
CreateModelQualityJobDefinition -> Text
roleArn :: Prelude.Text
}
deriving (CreateModelQualityJobDefinition
-> CreateModelQualityJobDefinition -> Bool
(CreateModelQualityJobDefinition
-> CreateModelQualityJobDefinition -> Bool)
-> (CreateModelQualityJobDefinition
-> CreateModelQualityJobDefinition -> Bool)
-> Eq CreateModelQualityJobDefinition
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateModelQualityJobDefinition
-> CreateModelQualityJobDefinition -> Bool
$c/= :: CreateModelQualityJobDefinition
-> CreateModelQualityJobDefinition -> Bool
== :: CreateModelQualityJobDefinition
-> CreateModelQualityJobDefinition -> Bool
$c== :: CreateModelQualityJobDefinition
-> CreateModelQualityJobDefinition -> Bool
Prelude.Eq, ReadPrec [CreateModelQualityJobDefinition]
ReadPrec CreateModelQualityJobDefinition
Int -> ReadS CreateModelQualityJobDefinition
ReadS [CreateModelQualityJobDefinition]
(Int -> ReadS CreateModelQualityJobDefinition)
-> ReadS [CreateModelQualityJobDefinition]
-> ReadPrec CreateModelQualityJobDefinition
-> ReadPrec [CreateModelQualityJobDefinition]
-> Read CreateModelQualityJobDefinition
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateModelQualityJobDefinition]
$creadListPrec :: ReadPrec [CreateModelQualityJobDefinition]
readPrec :: ReadPrec CreateModelQualityJobDefinition
$creadPrec :: ReadPrec CreateModelQualityJobDefinition
readList :: ReadS [CreateModelQualityJobDefinition]
$creadList :: ReadS [CreateModelQualityJobDefinition]
readsPrec :: Int -> ReadS CreateModelQualityJobDefinition
$creadsPrec :: Int -> ReadS CreateModelQualityJobDefinition
Prelude.Read, Int -> CreateModelQualityJobDefinition -> ShowS
[CreateModelQualityJobDefinition] -> ShowS
CreateModelQualityJobDefinition -> String
(Int -> CreateModelQualityJobDefinition -> ShowS)
-> (CreateModelQualityJobDefinition -> String)
-> ([CreateModelQualityJobDefinition] -> ShowS)
-> Show CreateModelQualityJobDefinition
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateModelQualityJobDefinition] -> ShowS
$cshowList :: [CreateModelQualityJobDefinition] -> ShowS
show :: CreateModelQualityJobDefinition -> String
$cshow :: CreateModelQualityJobDefinition -> String
showsPrec :: Int -> CreateModelQualityJobDefinition -> ShowS
$cshowsPrec :: Int -> CreateModelQualityJobDefinition -> ShowS
Prelude.Show, (forall x.
CreateModelQualityJobDefinition
-> Rep CreateModelQualityJobDefinition x)
-> (forall x.
Rep CreateModelQualityJobDefinition x
-> CreateModelQualityJobDefinition)
-> Generic CreateModelQualityJobDefinition
forall x.
Rep CreateModelQualityJobDefinition x
-> CreateModelQualityJobDefinition
forall x.
CreateModelQualityJobDefinition
-> Rep CreateModelQualityJobDefinition x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateModelQualityJobDefinition x
-> CreateModelQualityJobDefinition
$cfrom :: forall x.
CreateModelQualityJobDefinition
-> Rep CreateModelQualityJobDefinition x
Prelude.Generic)
newCreateModelQualityJobDefinition ::
Prelude.Text ->
ModelQualityAppSpecification ->
ModelQualityJobInput ->
MonitoringOutputConfig ->
MonitoringResources ->
Prelude.Text ->
CreateModelQualityJobDefinition
newCreateModelQualityJobDefinition :: Text
-> ModelQualityAppSpecification
-> ModelQualityJobInput
-> MonitoringOutputConfig
-> MonitoringResources
-> Text
-> CreateModelQualityJobDefinition
newCreateModelQualityJobDefinition
Text
pJobDefinitionName_
ModelQualityAppSpecification
pModelQualityAppSpecification_
ModelQualityJobInput
pModelQualityJobInput_
MonitoringOutputConfig
pModelQualityJobOutputConfig_
MonitoringResources
pJobResources_
Text
pRoleArn_ =
CreateModelQualityJobDefinition' :: Maybe ModelQualityBaselineConfig
-> Maybe MonitoringStoppingCondition
-> Maybe MonitoringNetworkConfig
-> Maybe [Tag]
-> Text
-> ModelQualityAppSpecification
-> ModelQualityJobInput
-> MonitoringOutputConfig
-> MonitoringResources
-> Text
-> CreateModelQualityJobDefinition
CreateModelQualityJobDefinition'
{ $sel:modelQualityBaselineConfig:CreateModelQualityJobDefinition' :: Maybe ModelQualityBaselineConfig
modelQualityBaselineConfig =
Maybe ModelQualityBaselineConfig
forall a. Maybe a
Prelude.Nothing,
$sel:stoppingCondition:CreateModelQualityJobDefinition' :: Maybe MonitoringStoppingCondition
stoppingCondition = Maybe MonitoringStoppingCondition
forall a. Maybe a
Prelude.Nothing,
$sel:networkConfig:CreateModelQualityJobDefinition' :: Maybe MonitoringNetworkConfig
networkConfig = Maybe MonitoringNetworkConfig
forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateModelQualityJobDefinition' :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
$sel:jobDefinitionName:CreateModelQualityJobDefinition' :: Text
jobDefinitionName = Text
pJobDefinitionName_,
$sel:modelQualityAppSpecification:CreateModelQualityJobDefinition' :: ModelQualityAppSpecification
modelQualityAppSpecification =
ModelQualityAppSpecification
pModelQualityAppSpecification_,
$sel:modelQualityJobInput:CreateModelQualityJobDefinition' :: ModelQualityJobInput
modelQualityJobInput =
ModelQualityJobInput
pModelQualityJobInput_,
$sel:modelQualityJobOutputConfig:CreateModelQualityJobDefinition' :: MonitoringOutputConfig
modelQualityJobOutputConfig =
MonitoringOutputConfig
pModelQualityJobOutputConfig_,
$sel:jobResources:CreateModelQualityJobDefinition' :: MonitoringResources
jobResources = MonitoringResources
pJobResources_,
$sel:roleArn:CreateModelQualityJobDefinition' :: Text
roleArn = Text
pRoleArn_
}
createModelQualityJobDefinition_modelQualityBaselineConfig :: Lens.Lens' CreateModelQualityJobDefinition (Prelude.Maybe ModelQualityBaselineConfig)
createModelQualityJobDefinition_modelQualityBaselineConfig :: (Maybe ModelQualityBaselineConfig
-> f (Maybe ModelQualityBaselineConfig))
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_modelQualityBaselineConfig = (CreateModelQualityJobDefinition
-> Maybe ModelQualityBaselineConfig)
-> (CreateModelQualityJobDefinition
-> Maybe ModelQualityBaselineConfig
-> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
(Maybe ModelQualityBaselineConfig)
(Maybe ModelQualityBaselineConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {Maybe ModelQualityBaselineConfig
modelQualityBaselineConfig :: Maybe ModelQualityBaselineConfig
$sel:modelQualityBaselineConfig:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Maybe ModelQualityBaselineConfig
modelQualityBaselineConfig} -> Maybe ModelQualityBaselineConfig
modelQualityBaselineConfig) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} Maybe ModelQualityBaselineConfig
a -> CreateModelQualityJobDefinition
s {$sel:modelQualityBaselineConfig:CreateModelQualityJobDefinition' :: Maybe ModelQualityBaselineConfig
modelQualityBaselineConfig = Maybe ModelQualityBaselineConfig
a} :: CreateModelQualityJobDefinition)
createModelQualityJobDefinition_stoppingCondition :: Lens.Lens' CreateModelQualityJobDefinition (Prelude.Maybe MonitoringStoppingCondition)
createModelQualityJobDefinition_stoppingCondition :: (Maybe MonitoringStoppingCondition
-> f (Maybe MonitoringStoppingCondition))
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_stoppingCondition = (CreateModelQualityJobDefinition
-> Maybe MonitoringStoppingCondition)
-> (CreateModelQualityJobDefinition
-> Maybe MonitoringStoppingCondition
-> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
(Maybe MonitoringStoppingCondition)
(Maybe MonitoringStoppingCondition)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {Maybe MonitoringStoppingCondition
stoppingCondition :: Maybe MonitoringStoppingCondition
$sel:stoppingCondition:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition
-> Maybe MonitoringStoppingCondition
stoppingCondition} -> Maybe MonitoringStoppingCondition
stoppingCondition) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} Maybe MonitoringStoppingCondition
a -> CreateModelQualityJobDefinition
s {$sel:stoppingCondition:CreateModelQualityJobDefinition' :: Maybe MonitoringStoppingCondition
stoppingCondition = Maybe MonitoringStoppingCondition
a} :: CreateModelQualityJobDefinition)
createModelQualityJobDefinition_networkConfig :: Lens.Lens' CreateModelQualityJobDefinition (Prelude.Maybe MonitoringNetworkConfig)
createModelQualityJobDefinition_networkConfig :: (Maybe MonitoringNetworkConfig
-> f (Maybe MonitoringNetworkConfig))
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_networkConfig = (CreateModelQualityJobDefinition -> Maybe MonitoringNetworkConfig)
-> (CreateModelQualityJobDefinition
-> Maybe MonitoringNetworkConfig
-> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
(Maybe MonitoringNetworkConfig)
(Maybe MonitoringNetworkConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {Maybe MonitoringNetworkConfig
networkConfig :: Maybe MonitoringNetworkConfig
$sel:networkConfig:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Maybe MonitoringNetworkConfig
networkConfig} -> Maybe MonitoringNetworkConfig
networkConfig) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} Maybe MonitoringNetworkConfig
a -> CreateModelQualityJobDefinition
s {$sel:networkConfig:CreateModelQualityJobDefinition' :: Maybe MonitoringNetworkConfig
networkConfig = Maybe MonitoringNetworkConfig
a} :: CreateModelQualityJobDefinition)
createModelQualityJobDefinition_tags :: Lens.Lens' CreateModelQualityJobDefinition (Prelude.Maybe [Tag])
createModelQualityJobDefinition_tags :: (Maybe [Tag] -> f (Maybe [Tag]))
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_tags = (CreateModelQualityJobDefinition -> Maybe [Tag])
-> (CreateModelQualityJobDefinition
-> Maybe [Tag] -> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
(Maybe [Tag])
(Maybe [Tag])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} Maybe [Tag]
a -> CreateModelQualityJobDefinition
s {$sel:tags:CreateModelQualityJobDefinition' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateModelQualityJobDefinition) ((Maybe [Tag] -> f (Maybe [Tag]))
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition)
-> ((Maybe [Tag] -> f (Maybe [Tag]))
-> Maybe [Tag] -> f (Maybe [Tag]))
-> (Maybe [Tag] -> f (Maybe [Tag]))
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
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
createModelQualityJobDefinition_jobDefinitionName :: Lens.Lens' CreateModelQualityJobDefinition Prelude.Text
createModelQualityJobDefinition_jobDefinitionName :: (Text -> f Text)
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_jobDefinitionName = (CreateModelQualityJobDefinition -> Text)
-> (CreateModelQualityJobDefinition
-> Text -> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {Text
jobDefinitionName :: Text
$sel:jobDefinitionName:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Text
jobDefinitionName} -> Text
jobDefinitionName) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} Text
a -> CreateModelQualityJobDefinition
s {$sel:jobDefinitionName:CreateModelQualityJobDefinition' :: Text
jobDefinitionName = Text
a} :: CreateModelQualityJobDefinition)
createModelQualityJobDefinition_modelQualityAppSpecification :: Lens.Lens' CreateModelQualityJobDefinition ModelQualityAppSpecification
createModelQualityJobDefinition_modelQualityAppSpecification :: (ModelQualityAppSpecification -> f ModelQualityAppSpecification)
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_modelQualityAppSpecification = (CreateModelQualityJobDefinition -> ModelQualityAppSpecification)
-> (CreateModelQualityJobDefinition
-> ModelQualityAppSpecification -> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
ModelQualityAppSpecification
ModelQualityAppSpecification
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {ModelQualityAppSpecification
modelQualityAppSpecification :: ModelQualityAppSpecification
$sel:modelQualityAppSpecification:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> ModelQualityAppSpecification
modelQualityAppSpecification} -> ModelQualityAppSpecification
modelQualityAppSpecification) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} ModelQualityAppSpecification
a -> CreateModelQualityJobDefinition
s {$sel:modelQualityAppSpecification:CreateModelQualityJobDefinition' :: ModelQualityAppSpecification
modelQualityAppSpecification = ModelQualityAppSpecification
a} :: CreateModelQualityJobDefinition)
createModelQualityJobDefinition_modelQualityJobInput :: Lens.Lens' CreateModelQualityJobDefinition ModelQualityJobInput
createModelQualityJobDefinition_modelQualityJobInput :: (ModelQualityJobInput -> f ModelQualityJobInput)
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_modelQualityJobInput = (CreateModelQualityJobDefinition -> ModelQualityJobInput)
-> (CreateModelQualityJobDefinition
-> ModelQualityJobInput -> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
ModelQualityJobInput
ModelQualityJobInput
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {ModelQualityJobInput
modelQualityJobInput :: ModelQualityJobInput
$sel:modelQualityJobInput:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> ModelQualityJobInput
modelQualityJobInput} -> ModelQualityJobInput
modelQualityJobInput) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} ModelQualityJobInput
a -> CreateModelQualityJobDefinition
s {$sel:modelQualityJobInput:CreateModelQualityJobDefinition' :: ModelQualityJobInput
modelQualityJobInput = ModelQualityJobInput
a} :: CreateModelQualityJobDefinition)
createModelQualityJobDefinition_modelQualityJobOutputConfig :: Lens.Lens' CreateModelQualityJobDefinition MonitoringOutputConfig
createModelQualityJobDefinition_modelQualityJobOutputConfig :: (MonitoringOutputConfig -> f MonitoringOutputConfig)
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_modelQualityJobOutputConfig = (CreateModelQualityJobDefinition -> MonitoringOutputConfig)
-> (CreateModelQualityJobDefinition
-> MonitoringOutputConfig -> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
MonitoringOutputConfig
MonitoringOutputConfig
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {MonitoringOutputConfig
modelQualityJobOutputConfig :: MonitoringOutputConfig
$sel:modelQualityJobOutputConfig:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> MonitoringOutputConfig
modelQualityJobOutputConfig} -> MonitoringOutputConfig
modelQualityJobOutputConfig) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} MonitoringOutputConfig
a -> CreateModelQualityJobDefinition
s {$sel:modelQualityJobOutputConfig:CreateModelQualityJobDefinition' :: MonitoringOutputConfig
modelQualityJobOutputConfig = MonitoringOutputConfig
a} :: CreateModelQualityJobDefinition)
createModelQualityJobDefinition_jobResources :: Lens.Lens' CreateModelQualityJobDefinition MonitoringResources
createModelQualityJobDefinition_jobResources :: (MonitoringResources -> f MonitoringResources)
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_jobResources = (CreateModelQualityJobDefinition -> MonitoringResources)
-> (CreateModelQualityJobDefinition
-> MonitoringResources -> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
MonitoringResources
MonitoringResources
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {MonitoringResources
jobResources :: MonitoringResources
$sel:jobResources:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> MonitoringResources
jobResources} -> MonitoringResources
jobResources) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} MonitoringResources
a -> CreateModelQualityJobDefinition
s {$sel:jobResources:CreateModelQualityJobDefinition' :: MonitoringResources
jobResources = MonitoringResources
a} :: CreateModelQualityJobDefinition)
createModelQualityJobDefinition_roleArn :: Lens.Lens' CreateModelQualityJobDefinition Prelude.Text
createModelQualityJobDefinition_roleArn :: (Text -> f Text)
-> CreateModelQualityJobDefinition
-> f CreateModelQualityJobDefinition
createModelQualityJobDefinition_roleArn = (CreateModelQualityJobDefinition -> Text)
-> (CreateModelQualityJobDefinition
-> Text -> CreateModelQualityJobDefinition)
-> Lens
CreateModelQualityJobDefinition
CreateModelQualityJobDefinition
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinition' {Text
roleArn :: Text
$sel:roleArn:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Text
roleArn} -> Text
roleArn) (\s :: CreateModelQualityJobDefinition
s@CreateModelQualityJobDefinition' {} Text
a -> CreateModelQualityJobDefinition
s {$sel:roleArn:CreateModelQualityJobDefinition' :: Text
roleArn = Text
a} :: CreateModelQualityJobDefinition)
instance
Core.AWSRequest
CreateModelQualityJobDefinition
where
type
AWSResponse CreateModelQualityJobDefinition =
CreateModelQualityJobDefinitionResponse
request :: CreateModelQualityJobDefinition
-> Request CreateModelQualityJobDefinition
request = Service
-> CreateModelQualityJobDefinition
-> Request CreateModelQualityJobDefinition
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy CreateModelQualityJobDefinition
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateModelQualityJobDefinition)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse CreateModelQualityJobDefinition))
-> Logger
-> Service
-> Proxy CreateModelQualityJobDefinition
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateModelQualityJobDefinition)))
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 -> CreateModelQualityJobDefinitionResponse
CreateModelQualityJobDefinitionResponse'
(Int -> Text -> CreateModelQualityJobDefinitionResponse)
-> Either String Int
-> Either String (Text -> CreateModelQualityJobDefinitionResponse)
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 -> CreateModelQualityJobDefinitionResponse)
-> Either String Text
-> Either String CreateModelQualityJobDefinitionResponse
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
CreateModelQualityJobDefinition
instance
Prelude.NFData
CreateModelQualityJobDefinition
instance
Core.ToHeaders
CreateModelQualityJobDefinition
where
toHeaders :: CreateModelQualityJobDefinition -> ResponseHeaders
toHeaders =
ResponseHeaders
-> CreateModelQualityJobDefinition -> 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.CreateModelQualityJobDefinition" ::
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 CreateModelQualityJobDefinition where
toJSON :: CreateModelQualityJobDefinition -> Value
toJSON CreateModelQualityJobDefinition' {Maybe [Tag]
Maybe ModelQualityBaselineConfig
Maybe MonitoringStoppingCondition
Maybe MonitoringNetworkConfig
Text
ModelQualityAppSpecification
MonitoringResources
ModelQualityJobInput
MonitoringOutputConfig
roleArn :: Text
jobResources :: MonitoringResources
modelQualityJobOutputConfig :: MonitoringOutputConfig
modelQualityJobInput :: ModelQualityJobInput
modelQualityAppSpecification :: ModelQualityAppSpecification
jobDefinitionName :: Text
tags :: Maybe [Tag]
networkConfig :: Maybe MonitoringNetworkConfig
stoppingCondition :: Maybe MonitoringStoppingCondition
modelQualityBaselineConfig :: Maybe ModelQualityBaselineConfig
$sel:roleArn:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Text
$sel:jobResources:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> MonitoringResources
$sel:modelQualityJobOutputConfig:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> MonitoringOutputConfig
$sel:modelQualityJobInput:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> ModelQualityJobInput
$sel:modelQualityAppSpecification:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> ModelQualityAppSpecification
$sel:jobDefinitionName:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Text
$sel:tags:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Maybe [Tag]
$sel:networkConfig:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Maybe MonitoringNetworkConfig
$sel:stoppingCondition:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition
-> Maybe MonitoringStoppingCondition
$sel:modelQualityBaselineConfig:CreateModelQualityJobDefinition' :: CreateModelQualityJobDefinition -> Maybe ModelQualityBaselineConfig
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Text
"ModelQualityBaselineConfig" Text -> ModelQualityBaselineConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(ModelQualityBaselineConfig -> Pair)
-> Maybe ModelQualityBaselineConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModelQualityBaselineConfig
modelQualityBaselineConfig,
(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
"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
"ModelQualityAppSpecification"
Text -> ModelQualityAppSpecification -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= ModelQualityAppSpecification
modelQualityAppSpecification
),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"ModelQualityJobInput"
Text -> ModelQualityJobInput -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= ModelQualityJobInput
modelQualityJobInput
),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"ModelQualityJobOutputConfig"
Text -> MonitoringOutputConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= MonitoringOutputConfig
modelQualityJobOutputConfig
),
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 CreateModelQualityJobDefinition where
toPath :: CreateModelQualityJobDefinition -> ByteString
toPath = ByteString -> CreateModelQualityJobDefinition -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Core.ToQuery CreateModelQualityJobDefinition where
toQuery :: CreateModelQualityJobDefinition -> QueryString
toQuery = QueryString -> CreateModelQualityJobDefinition -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data CreateModelQualityJobDefinitionResponse = CreateModelQualityJobDefinitionResponse'
{
CreateModelQualityJobDefinitionResponse -> Int
httpStatus :: Prelude.Int,
CreateModelQualityJobDefinitionResponse -> Text
jobDefinitionArn :: Prelude.Text
}
deriving (CreateModelQualityJobDefinitionResponse
-> CreateModelQualityJobDefinitionResponse -> Bool
(CreateModelQualityJobDefinitionResponse
-> CreateModelQualityJobDefinitionResponse -> Bool)
-> (CreateModelQualityJobDefinitionResponse
-> CreateModelQualityJobDefinitionResponse -> Bool)
-> Eq CreateModelQualityJobDefinitionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateModelQualityJobDefinitionResponse
-> CreateModelQualityJobDefinitionResponse -> Bool
$c/= :: CreateModelQualityJobDefinitionResponse
-> CreateModelQualityJobDefinitionResponse -> Bool
== :: CreateModelQualityJobDefinitionResponse
-> CreateModelQualityJobDefinitionResponse -> Bool
$c== :: CreateModelQualityJobDefinitionResponse
-> CreateModelQualityJobDefinitionResponse -> Bool
Prelude.Eq, ReadPrec [CreateModelQualityJobDefinitionResponse]
ReadPrec CreateModelQualityJobDefinitionResponse
Int -> ReadS CreateModelQualityJobDefinitionResponse
ReadS [CreateModelQualityJobDefinitionResponse]
(Int -> ReadS CreateModelQualityJobDefinitionResponse)
-> ReadS [CreateModelQualityJobDefinitionResponse]
-> ReadPrec CreateModelQualityJobDefinitionResponse
-> ReadPrec [CreateModelQualityJobDefinitionResponse]
-> Read CreateModelQualityJobDefinitionResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateModelQualityJobDefinitionResponse]
$creadListPrec :: ReadPrec [CreateModelQualityJobDefinitionResponse]
readPrec :: ReadPrec CreateModelQualityJobDefinitionResponse
$creadPrec :: ReadPrec CreateModelQualityJobDefinitionResponse
readList :: ReadS [CreateModelQualityJobDefinitionResponse]
$creadList :: ReadS [CreateModelQualityJobDefinitionResponse]
readsPrec :: Int -> ReadS CreateModelQualityJobDefinitionResponse
$creadsPrec :: Int -> ReadS CreateModelQualityJobDefinitionResponse
Prelude.Read, Int -> CreateModelQualityJobDefinitionResponse -> ShowS
[CreateModelQualityJobDefinitionResponse] -> ShowS
CreateModelQualityJobDefinitionResponse -> String
(Int -> CreateModelQualityJobDefinitionResponse -> ShowS)
-> (CreateModelQualityJobDefinitionResponse -> String)
-> ([CreateModelQualityJobDefinitionResponse] -> ShowS)
-> Show CreateModelQualityJobDefinitionResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateModelQualityJobDefinitionResponse] -> ShowS
$cshowList :: [CreateModelQualityJobDefinitionResponse] -> ShowS
show :: CreateModelQualityJobDefinitionResponse -> String
$cshow :: CreateModelQualityJobDefinitionResponse -> String
showsPrec :: Int -> CreateModelQualityJobDefinitionResponse -> ShowS
$cshowsPrec :: Int -> CreateModelQualityJobDefinitionResponse -> ShowS
Prelude.Show, (forall x.
CreateModelQualityJobDefinitionResponse
-> Rep CreateModelQualityJobDefinitionResponse x)
-> (forall x.
Rep CreateModelQualityJobDefinitionResponse x
-> CreateModelQualityJobDefinitionResponse)
-> Generic CreateModelQualityJobDefinitionResponse
forall x.
Rep CreateModelQualityJobDefinitionResponse x
-> CreateModelQualityJobDefinitionResponse
forall x.
CreateModelQualityJobDefinitionResponse
-> Rep CreateModelQualityJobDefinitionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateModelQualityJobDefinitionResponse x
-> CreateModelQualityJobDefinitionResponse
$cfrom :: forall x.
CreateModelQualityJobDefinitionResponse
-> Rep CreateModelQualityJobDefinitionResponse x
Prelude.Generic)
newCreateModelQualityJobDefinitionResponse ::
Prelude.Int ->
Prelude.Text ->
CreateModelQualityJobDefinitionResponse
newCreateModelQualityJobDefinitionResponse :: Int -> Text -> CreateModelQualityJobDefinitionResponse
newCreateModelQualityJobDefinitionResponse
Int
pHttpStatus_
Text
pJobDefinitionArn_ =
CreateModelQualityJobDefinitionResponse' :: Int -> Text -> CreateModelQualityJobDefinitionResponse
CreateModelQualityJobDefinitionResponse'
{ $sel:httpStatus:CreateModelQualityJobDefinitionResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:jobDefinitionArn:CreateModelQualityJobDefinitionResponse' :: Text
jobDefinitionArn =
Text
pJobDefinitionArn_
}
createModelQualityJobDefinitionResponse_httpStatus :: Lens.Lens' CreateModelQualityJobDefinitionResponse Prelude.Int
createModelQualityJobDefinitionResponse_httpStatus :: (Int -> f Int)
-> CreateModelQualityJobDefinitionResponse
-> f CreateModelQualityJobDefinitionResponse
createModelQualityJobDefinitionResponse_httpStatus = (CreateModelQualityJobDefinitionResponse -> Int)
-> (CreateModelQualityJobDefinitionResponse
-> Int -> CreateModelQualityJobDefinitionResponse)
-> Lens
CreateModelQualityJobDefinitionResponse
CreateModelQualityJobDefinitionResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinitionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateModelQualityJobDefinitionResponse' :: CreateModelQualityJobDefinitionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateModelQualityJobDefinitionResponse
s@CreateModelQualityJobDefinitionResponse' {} Int
a -> CreateModelQualityJobDefinitionResponse
s {$sel:httpStatus:CreateModelQualityJobDefinitionResponse' :: Int
httpStatus = Int
a} :: CreateModelQualityJobDefinitionResponse)
createModelQualityJobDefinitionResponse_jobDefinitionArn :: Lens.Lens' CreateModelQualityJobDefinitionResponse Prelude.Text
createModelQualityJobDefinitionResponse_jobDefinitionArn :: (Text -> f Text)
-> CreateModelQualityJobDefinitionResponse
-> f CreateModelQualityJobDefinitionResponse
createModelQualityJobDefinitionResponse_jobDefinitionArn = (CreateModelQualityJobDefinitionResponse -> Text)
-> (CreateModelQualityJobDefinitionResponse
-> Text -> CreateModelQualityJobDefinitionResponse)
-> Lens
CreateModelQualityJobDefinitionResponse
CreateModelQualityJobDefinitionResponse
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateModelQualityJobDefinitionResponse' {Text
jobDefinitionArn :: Text
$sel:jobDefinitionArn:CreateModelQualityJobDefinitionResponse' :: CreateModelQualityJobDefinitionResponse -> Text
jobDefinitionArn} -> Text
jobDefinitionArn) (\s :: CreateModelQualityJobDefinitionResponse
s@CreateModelQualityJobDefinitionResponse' {} Text
a -> CreateModelQualityJobDefinitionResponse
s {$sel:jobDefinitionArn:CreateModelQualityJobDefinitionResponse' :: Text
jobDefinitionArn = Text
a} :: CreateModelQualityJobDefinitionResponse)
instance
Prelude.NFData
CreateModelQualityJobDefinitionResponse