{-# 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.CreateInferenceExperiment
(
CreateInferenceExperiment (..),
newCreateInferenceExperiment,
createInferenceExperiment_dataStorageConfig,
createInferenceExperiment_description,
createInferenceExperiment_kmsKey,
createInferenceExperiment_schedule,
createInferenceExperiment_tags,
createInferenceExperiment_name,
createInferenceExperiment_type,
createInferenceExperiment_roleArn,
createInferenceExperiment_endpointName,
createInferenceExperiment_modelVariants,
createInferenceExperiment_shadowModeConfig,
CreateInferenceExperimentResponse (..),
newCreateInferenceExperimentResponse,
createInferenceExperimentResponse_httpStatus,
createInferenceExperimentResponse_inferenceExperimentArn,
)
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 CreateInferenceExperiment = CreateInferenceExperiment'
{
CreateInferenceExperiment
-> Maybe InferenceExperimentDataStorageConfig
dataStorageConfig :: Prelude.Maybe InferenceExperimentDataStorageConfig,
CreateInferenceExperiment -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateInferenceExperiment -> Maybe Text
kmsKey :: Prelude.Maybe Prelude.Text,
CreateInferenceExperiment -> Maybe InferenceExperimentSchedule
schedule :: Prelude.Maybe InferenceExperimentSchedule,
CreateInferenceExperiment -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateInferenceExperiment -> Text
name :: Prelude.Text,
CreateInferenceExperiment -> InferenceExperimentType
type' :: InferenceExperimentType,
CreateInferenceExperiment -> Text
roleArn :: Prelude.Text,
CreateInferenceExperiment -> Text
endpointName :: Prelude.Text,
CreateInferenceExperiment -> NonEmpty ModelVariantConfig
modelVariants :: Prelude.NonEmpty ModelVariantConfig,
CreateInferenceExperiment -> ShadowModeConfig
shadowModeConfig :: ShadowModeConfig
}
deriving (CreateInferenceExperiment -> CreateInferenceExperiment -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateInferenceExperiment -> CreateInferenceExperiment -> Bool
$c/= :: CreateInferenceExperiment -> CreateInferenceExperiment -> Bool
== :: CreateInferenceExperiment -> CreateInferenceExperiment -> Bool
$c== :: CreateInferenceExperiment -> CreateInferenceExperiment -> Bool
Prelude.Eq, ReadPrec [CreateInferenceExperiment]
ReadPrec CreateInferenceExperiment
Int -> ReadS CreateInferenceExperiment
ReadS [CreateInferenceExperiment]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateInferenceExperiment]
$creadListPrec :: ReadPrec [CreateInferenceExperiment]
readPrec :: ReadPrec CreateInferenceExperiment
$creadPrec :: ReadPrec CreateInferenceExperiment
readList :: ReadS [CreateInferenceExperiment]
$creadList :: ReadS [CreateInferenceExperiment]
readsPrec :: Int -> ReadS CreateInferenceExperiment
$creadsPrec :: Int -> ReadS CreateInferenceExperiment
Prelude.Read, Int -> CreateInferenceExperiment -> ShowS
[CreateInferenceExperiment] -> ShowS
CreateInferenceExperiment -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateInferenceExperiment] -> ShowS
$cshowList :: [CreateInferenceExperiment] -> ShowS
show :: CreateInferenceExperiment -> String
$cshow :: CreateInferenceExperiment -> String
showsPrec :: Int -> CreateInferenceExperiment -> ShowS
$cshowsPrec :: Int -> CreateInferenceExperiment -> ShowS
Prelude.Show, forall x.
Rep CreateInferenceExperiment x -> CreateInferenceExperiment
forall x.
CreateInferenceExperiment -> Rep CreateInferenceExperiment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateInferenceExperiment x -> CreateInferenceExperiment
$cfrom :: forall x.
CreateInferenceExperiment -> Rep CreateInferenceExperiment x
Prelude.Generic)
newCreateInferenceExperiment ::
Prelude.Text ->
InferenceExperimentType ->
Prelude.Text ->
Prelude.Text ->
Prelude.NonEmpty ModelVariantConfig ->
ShadowModeConfig ->
CreateInferenceExperiment
newCreateInferenceExperiment :: Text
-> InferenceExperimentType
-> Text
-> Text
-> NonEmpty ModelVariantConfig
-> ShadowModeConfig
-> CreateInferenceExperiment
newCreateInferenceExperiment
Text
pName_
InferenceExperimentType
pType_
Text
pRoleArn_
Text
pEndpointName_
NonEmpty ModelVariantConfig
pModelVariants_
ShadowModeConfig
pShadowModeConfig_ =
CreateInferenceExperiment'
{ $sel:dataStorageConfig:CreateInferenceExperiment' :: Maybe InferenceExperimentDataStorageConfig
dataStorageConfig =
forall a. Maybe a
Prelude.Nothing,
$sel:description:CreateInferenceExperiment' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKey:CreateInferenceExperiment' :: Maybe Text
kmsKey = forall a. Maybe a
Prelude.Nothing,
$sel:schedule:CreateInferenceExperiment' :: Maybe InferenceExperimentSchedule
schedule = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateInferenceExperiment' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateInferenceExperiment' :: Text
name = Text
pName_,
$sel:type':CreateInferenceExperiment' :: InferenceExperimentType
type' = InferenceExperimentType
pType_,
$sel:roleArn:CreateInferenceExperiment' :: Text
roleArn = Text
pRoleArn_,
$sel:endpointName:CreateInferenceExperiment' :: Text
endpointName = Text
pEndpointName_,
$sel:modelVariants:CreateInferenceExperiment' :: NonEmpty ModelVariantConfig
modelVariants =
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty ModelVariantConfig
pModelVariants_,
$sel:shadowModeConfig:CreateInferenceExperiment' :: ShadowModeConfig
shadowModeConfig = ShadowModeConfig
pShadowModeConfig_
}
createInferenceExperiment_dataStorageConfig :: Lens.Lens' CreateInferenceExperiment (Prelude.Maybe InferenceExperimentDataStorageConfig)
createInferenceExperiment_dataStorageConfig :: Lens'
CreateInferenceExperiment
(Maybe InferenceExperimentDataStorageConfig)
createInferenceExperiment_dataStorageConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {Maybe InferenceExperimentDataStorageConfig
dataStorageConfig :: Maybe InferenceExperimentDataStorageConfig
$sel:dataStorageConfig:CreateInferenceExperiment' :: CreateInferenceExperiment
-> Maybe InferenceExperimentDataStorageConfig
dataStorageConfig} -> Maybe InferenceExperimentDataStorageConfig
dataStorageConfig) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} Maybe InferenceExperimentDataStorageConfig
a -> CreateInferenceExperiment
s {$sel:dataStorageConfig:CreateInferenceExperiment' :: Maybe InferenceExperimentDataStorageConfig
dataStorageConfig = Maybe InferenceExperimentDataStorageConfig
a} :: CreateInferenceExperiment)
createInferenceExperiment_description :: Lens.Lens' CreateInferenceExperiment (Prelude.Maybe Prelude.Text)
createInferenceExperiment_description :: Lens' CreateInferenceExperiment (Maybe Text)
createInferenceExperiment_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {Maybe Text
description :: Maybe Text
$sel:description:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} Maybe Text
a -> CreateInferenceExperiment
s {$sel:description:CreateInferenceExperiment' :: Maybe Text
description = Maybe Text
a} :: CreateInferenceExperiment)
createInferenceExperiment_kmsKey :: Lens.Lens' CreateInferenceExperiment (Prelude.Maybe Prelude.Text)
createInferenceExperiment_kmsKey :: Lens' CreateInferenceExperiment (Maybe Text)
createInferenceExperiment_kmsKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {Maybe Text
kmsKey :: Maybe Text
$sel:kmsKey:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe Text
kmsKey} -> Maybe Text
kmsKey) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} Maybe Text
a -> CreateInferenceExperiment
s {$sel:kmsKey:CreateInferenceExperiment' :: Maybe Text
kmsKey = Maybe Text
a} :: CreateInferenceExperiment)
createInferenceExperiment_schedule :: Lens.Lens' CreateInferenceExperiment (Prelude.Maybe InferenceExperimentSchedule)
createInferenceExperiment_schedule :: Lens' CreateInferenceExperiment (Maybe InferenceExperimentSchedule)
createInferenceExperiment_schedule = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {Maybe InferenceExperimentSchedule
schedule :: Maybe InferenceExperimentSchedule
$sel:schedule:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe InferenceExperimentSchedule
schedule} -> Maybe InferenceExperimentSchedule
schedule) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} Maybe InferenceExperimentSchedule
a -> CreateInferenceExperiment
s {$sel:schedule:CreateInferenceExperiment' :: Maybe InferenceExperimentSchedule
schedule = Maybe InferenceExperimentSchedule
a} :: CreateInferenceExperiment)
createInferenceExperiment_tags :: Lens.Lens' CreateInferenceExperiment (Prelude.Maybe [Tag])
createInferenceExperiment_tags :: Lens' CreateInferenceExperiment (Maybe [Tag])
createInferenceExperiment_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} Maybe [Tag]
a -> CreateInferenceExperiment
s {$sel:tags:CreateInferenceExperiment' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateInferenceExperiment) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createInferenceExperiment_name :: Lens.Lens' CreateInferenceExperiment Prelude.Text
createInferenceExperiment_name :: Lens' CreateInferenceExperiment Text
createInferenceExperiment_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {Text
name :: Text
$sel:name:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
name} -> Text
name) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} Text
a -> CreateInferenceExperiment
s {$sel:name:CreateInferenceExperiment' :: Text
name = Text
a} :: CreateInferenceExperiment)
createInferenceExperiment_type :: Lens.Lens' CreateInferenceExperiment InferenceExperimentType
createInferenceExperiment_type :: Lens' CreateInferenceExperiment InferenceExperimentType
createInferenceExperiment_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {InferenceExperimentType
type' :: InferenceExperimentType
$sel:type':CreateInferenceExperiment' :: CreateInferenceExperiment -> InferenceExperimentType
type'} -> InferenceExperimentType
type') (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} InferenceExperimentType
a -> CreateInferenceExperiment
s {$sel:type':CreateInferenceExperiment' :: InferenceExperimentType
type' = InferenceExperimentType
a} :: CreateInferenceExperiment)
createInferenceExperiment_roleArn :: Lens.Lens' CreateInferenceExperiment Prelude.Text
createInferenceExperiment_roleArn :: Lens' CreateInferenceExperiment Text
createInferenceExperiment_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {Text
roleArn :: Text
$sel:roleArn:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
roleArn} -> Text
roleArn) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} Text
a -> CreateInferenceExperiment
s {$sel:roleArn:CreateInferenceExperiment' :: Text
roleArn = Text
a} :: CreateInferenceExperiment)
createInferenceExperiment_endpointName :: Lens.Lens' CreateInferenceExperiment Prelude.Text
createInferenceExperiment_endpointName :: Lens' CreateInferenceExperiment Text
createInferenceExperiment_endpointName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {Text
endpointName :: Text
$sel:endpointName:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
endpointName} -> Text
endpointName) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} Text
a -> CreateInferenceExperiment
s {$sel:endpointName:CreateInferenceExperiment' :: Text
endpointName = Text
a} :: CreateInferenceExperiment)
createInferenceExperiment_modelVariants :: Lens.Lens' CreateInferenceExperiment (Prelude.NonEmpty ModelVariantConfig)
createInferenceExperiment_modelVariants :: Lens' CreateInferenceExperiment (NonEmpty ModelVariantConfig)
createInferenceExperiment_modelVariants = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {NonEmpty ModelVariantConfig
modelVariants :: NonEmpty ModelVariantConfig
$sel:modelVariants:CreateInferenceExperiment' :: CreateInferenceExperiment -> NonEmpty ModelVariantConfig
modelVariants} -> NonEmpty ModelVariantConfig
modelVariants) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} NonEmpty ModelVariantConfig
a -> CreateInferenceExperiment
s {$sel:modelVariants:CreateInferenceExperiment' :: NonEmpty ModelVariantConfig
modelVariants = NonEmpty ModelVariantConfig
a} :: CreateInferenceExperiment) 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
createInferenceExperiment_shadowModeConfig :: Lens.Lens' CreateInferenceExperiment ShadowModeConfig
createInferenceExperiment_shadowModeConfig :: Lens' CreateInferenceExperiment ShadowModeConfig
createInferenceExperiment_shadowModeConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperiment' {ShadowModeConfig
shadowModeConfig :: ShadowModeConfig
$sel:shadowModeConfig:CreateInferenceExperiment' :: CreateInferenceExperiment -> ShadowModeConfig
shadowModeConfig} -> ShadowModeConfig
shadowModeConfig) (\s :: CreateInferenceExperiment
s@CreateInferenceExperiment' {} ShadowModeConfig
a -> CreateInferenceExperiment
s {$sel:shadowModeConfig:CreateInferenceExperiment' :: ShadowModeConfig
shadowModeConfig = ShadowModeConfig
a} :: CreateInferenceExperiment)
instance Core.AWSRequest CreateInferenceExperiment where
type
AWSResponse CreateInferenceExperiment =
CreateInferenceExperimentResponse
request :: (Service -> Service)
-> CreateInferenceExperiment -> Request CreateInferenceExperiment
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 CreateInferenceExperiment
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateInferenceExperiment)))
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 -> CreateInferenceExperimentResponse
CreateInferenceExperimentResponse'
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
"InferenceExperimentArn")
)
instance Prelude.Hashable CreateInferenceExperiment where
hashWithSalt :: Int -> CreateInferenceExperiment -> Int
hashWithSalt Int
_salt CreateInferenceExperiment' {Maybe [Tag]
Maybe Text
Maybe InferenceExperimentDataStorageConfig
Maybe InferenceExperimentSchedule
NonEmpty ModelVariantConfig
Text
InferenceExperimentType
ShadowModeConfig
shadowModeConfig :: ShadowModeConfig
modelVariants :: NonEmpty ModelVariantConfig
endpointName :: Text
roleArn :: Text
type' :: InferenceExperimentType
name :: Text
tags :: Maybe [Tag]
schedule :: Maybe InferenceExperimentSchedule
kmsKey :: Maybe Text
description :: Maybe Text
dataStorageConfig :: Maybe InferenceExperimentDataStorageConfig
$sel:shadowModeConfig:CreateInferenceExperiment' :: CreateInferenceExperiment -> ShadowModeConfig
$sel:modelVariants:CreateInferenceExperiment' :: CreateInferenceExperiment -> NonEmpty ModelVariantConfig
$sel:endpointName:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:roleArn:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:type':CreateInferenceExperiment' :: CreateInferenceExperiment -> InferenceExperimentType
$sel:name:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:tags:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe [Tag]
$sel:schedule:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe InferenceExperimentSchedule
$sel:kmsKey:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe Text
$sel:description:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe Text
$sel:dataStorageConfig:CreateInferenceExperiment' :: CreateInferenceExperiment
-> Maybe InferenceExperimentDataStorageConfig
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InferenceExperimentDataStorageConfig
dataStorageConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKey
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InferenceExperimentSchedule
schedule
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InferenceExperimentType
type'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
endpointName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty ModelVariantConfig
modelVariants
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ShadowModeConfig
shadowModeConfig
instance Prelude.NFData CreateInferenceExperiment where
rnf :: CreateInferenceExperiment -> ()
rnf CreateInferenceExperiment' {Maybe [Tag]
Maybe Text
Maybe InferenceExperimentDataStorageConfig
Maybe InferenceExperimentSchedule
NonEmpty ModelVariantConfig
Text
InferenceExperimentType
ShadowModeConfig
shadowModeConfig :: ShadowModeConfig
modelVariants :: NonEmpty ModelVariantConfig
endpointName :: Text
roleArn :: Text
type' :: InferenceExperimentType
name :: Text
tags :: Maybe [Tag]
schedule :: Maybe InferenceExperimentSchedule
kmsKey :: Maybe Text
description :: Maybe Text
dataStorageConfig :: Maybe InferenceExperimentDataStorageConfig
$sel:shadowModeConfig:CreateInferenceExperiment' :: CreateInferenceExperiment -> ShadowModeConfig
$sel:modelVariants:CreateInferenceExperiment' :: CreateInferenceExperiment -> NonEmpty ModelVariantConfig
$sel:endpointName:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:roleArn:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:type':CreateInferenceExperiment' :: CreateInferenceExperiment -> InferenceExperimentType
$sel:name:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:tags:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe [Tag]
$sel:schedule:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe InferenceExperimentSchedule
$sel:kmsKey:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe Text
$sel:description:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe Text
$sel:dataStorageConfig:CreateInferenceExperiment' :: CreateInferenceExperiment
-> Maybe InferenceExperimentDataStorageConfig
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe InferenceExperimentDataStorageConfig
dataStorageConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKey
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InferenceExperimentSchedule
schedule
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf InferenceExperimentType
type'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
roleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
endpointName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty ModelVariantConfig
modelVariants
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ShadowModeConfig
shadowModeConfig
instance Data.ToHeaders CreateInferenceExperiment where
toHeaders :: CreateInferenceExperiment -> 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.CreateInferenceExperiment" ::
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 CreateInferenceExperiment where
toJSON :: CreateInferenceExperiment -> Value
toJSON CreateInferenceExperiment' {Maybe [Tag]
Maybe Text
Maybe InferenceExperimentDataStorageConfig
Maybe InferenceExperimentSchedule
NonEmpty ModelVariantConfig
Text
InferenceExperimentType
ShadowModeConfig
shadowModeConfig :: ShadowModeConfig
modelVariants :: NonEmpty ModelVariantConfig
endpointName :: Text
roleArn :: Text
type' :: InferenceExperimentType
name :: Text
tags :: Maybe [Tag]
schedule :: Maybe InferenceExperimentSchedule
kmsKey :: Maybe Text
description :: Maybe Text
dataStorageConfig :: Maybe InferenceExperimentDataStorageConfig
$sel:shadowModeConfig:CreateInferenceExperiment' :: CreateInferenceExperiment -> ShadowModeConfig
$sel:modelVariants:CreateInferenceExperiment' :: CreateInferenceExperiment -> NonEmpty ModelVariantConfig
$sel:endpointName:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:roleArn:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:type':CreateInferenceExperiment' :: CreateInferenceExperiment -> InferenceExperimentType
$sel:name:CreateInferenceExperiment' :: CreateInferenceExperiment -> Text
$sel:tags:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe [Tag]
$sel:schedule:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe InferenceExperimentSchedule
$sel:kmsKey:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe Text
$sel:description:CreateInferenceExperiment' :: CreateInferenceExperiment -> Maybe Text
$sel:dataStorageConfig:CreateInferenceExperiment' :: CreateInferenceExperiment
-> Maybe InferenceExperimentDataStorageConfig
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DataStorageConfig" 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 InferenceExperimentDataStorageConfig
dataStorageConfig,
(Key
"Description" 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
description,
(Key
"KmsKey" 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
kmsKey,
(Key
"Schedule" 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 InferenceExperimentSchedule
schedule,
(Key
"Tags" 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 [Tag]
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just (Key
"Type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= InferenceExperimentType
type'),
forall a. a -> Maybe a
Prelude.Just (Key
"RoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
roleArn),
forall a. a -> Maybe a
Prelude.Just (Key
"EndpointName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
endpointName),
forall a. a -> Maybe a
Prelude.Just (Key
"ModelVariants" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty ModelVariantConfig
modelVariants),
forall a. a -> Maybe a
Prelude.Just
(Key
"ShadowModeConfig" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ShadowModeConfig
shadowModeConfig)
]
)
instance Data.ToPath CreateInferenceExperiment where
toPath :: CreateInferenceExperiment -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateInferenceExperiment where
toQuery :: CreateInferenceExperiment -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateInferenceExperimentResponse = CreateInferenceExperimentResponse'
{
CreateInferenceExperimentResponse -> Int
httpStatus :: Prelude.Int,
CreateInferenceExperimentResponse -> Text
inferenceExperimentArn :: Prelude.Text
}
deriving (CreateInferenceExperimentResponse
-> CreateInferenceExperimentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateInferenceExperimentResponse
-> CreateInferenceExperimentResponse -> Bool
$c/= :: CreateInferenceExperimentResponse
-> CreateInferenceExperimentResponse -> Bool
== :: CreateInferenceExperimentResponse
-> CreateInferenceExperimentResponse -> Bool
$c== :: CreateInferenceExperimentResponse
-> CreateInferenceExperimentResponse -> Bool
Prelude.Eq, ReadPrec [CreateInferenceExperimentResponse]
ReadPrec CreateInferenceExperimentResponse
Int -> ReadS CreateInferenceExperimentResponse
ReadS [CreateInferenceExperimentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateInferenceExperimentResponse]
$creadListPrec :: ReadPrec [CreateInferenceExperimentResponse]
readPrec :: ReadPrec CreateInferenceExperimentResponse
$creadPrec :: ReadPrec CreateInferenceExperimentResponse
readList :: ReadS [CreateInferenceExperimentResponse]
$creadList :: ReadS [CreateInferenceExperimentResponse]
readsPrec :: Int -> ReadS CreateInferenceExperimentResponse
$creadsPrec :: Int -> ReadS CreateInferenceExperimentResponse
Prelude.Read, Int -> CreateInferenceExperimentResponse -> ShowS
[CreateInferenceExperimentResponse] -> ShowS
CreateInferenceExperimentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateInferenceExperimentResponse] -> ShowS
$cshowList :: [CreateInferenceExperimentResponse] -> ShowS
show :: CreateInferenceExperimentResponse -> String
$cshow :: CreateInferenceExperimentResponse -> String
showsPrec :: Int -> CreateInferenceExperimentResponse -> ShowS
$cshowsPrec :: Int -> CreateInferenceExperimentResponse -> ShowS
Prelude.Show, forall x.
Rep CreateInferenceExperimentResponse x
-> CreateInferenceExperimentResponse
forall x.
CreateInferenceExperimentResponse
-> Rep CreateInferenceExperimentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateInferenceExperimentResponse x
-> CreateInferenceExperimentResponse
$cfrom :: forall x.
CreateInferenceExperimentResponse
-> Rep CreateInferenceExperimentResponse x
Prelude.Generic)
newCreateInferenceExperimentResponse ::
Prelude.Int ->
Prelude.Text ->
CreateInferenceExperimentResponse
newCreateInferenceExperimentResponse :: Int -> Text -> CreateInferenceExperimentResponse
newCreateInferenceExperimentResponse
Int
pHttpStatus_
Text
pInferenceExperimentArn_ =
CreateInferenceExperimentResponse'
{ $sel:httpStatus:CreateInferenceExperimentResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:inferenceExperimentArn:CreateInferenceExperimentResponse' :: Text
inferenceExperimentArn =
Text
pInferenceExperimentArn_
}
createInferenceExperimentResponse_httpStatus :: Lens.Lens' CreateInferenceExperimentResponse Prelude.Int
createInferenceExperimentResponse_httpStatus :: Lens' CreateInferenceExperimentResponse Int
createInferenceExperimentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperimentResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateInferenceExperimentResponse' :: CreateInferenceExperimentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateInferenceExperimentResponse
s@CreateInferenceExperimentResponse' {} Int
a -> CreateInferenceExperimentResponse
s {$sel:httpStatus:CreateInferenceExperimentResponse' :: Int
httpStatus = Int
a} :: CreateInferenceExperimentResponse)
createInferenceExperimentResponse_inferenceExperimentArn :: Lens.Lens' CreateInferenceExperimentResponse Prelude.Text
createInferenceExperimentResponse_inferenceExperimentArn :: Lens' CreateInferenceExperimentResponse Text
createInferenceExperimentResponse_inferenceExperimentArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInferenceExperimentResponse' {Text
inferenceExperimentArn :: Text
$sel:inferenceExperimentArn:CreateInferenceExperimentResponse' :: CreateInferenceExperimentResponse -> Text
inferenceExperimentArn} -> Text
inferenceExperimentArn) (\s :: CreateInferenceExperimentResponse
s@CreateInferenceExperimentResponse' {} Text
a -> CreateInferenceExperimentResponse
s {$sel:inferenceExperimentArn:CreateInferenceExperimentResponse' :: Text
inferenceExperimentArn = Text
a} :: CreateInferenceExperimentResponse)
instance
Prelude.NFData
CreateInferenceExperimentResponse
where
rnf :: CreateInferenceExperimentResponse -> ()
rnf CreateInferenceExperimentResponse' {Int
Text
inferenceExperimentArn :: Text
httpStatus :: Int
$sel:inferenceExperimentArn:CreateInferenceExperimentResponse' :: CreateInferenceExperimentResponse -> Text
$sel:httpStatus:CreateInferenceExperimentResponse' :: CreateInferenceExperimentResponse -> 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
inferenceExperimentArn