{-# 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.CreateTrial
(
CreateTrial (..),
newCreateTrial,
createTrial_displayName,
createTrial_metadataProperties,
createTrial_tags,
createTrial_trialName,
createTrial_experimentName,
CreateTrialResponse (..),
newCreateTrialResponse,
createTrialResponse_trialArn,
createTrialResponse_httpStatus,
)
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 CreateTrial = CreateTrial'
{
CreateTrial -> Maybe Text
displayName :: Prelude.Maybe Prelude.Text,
CreateTrial -> Maybe MetadataProperties
metadataProperties :: Prelude.Maybe MetadataProperties,
CreateTrial -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateTrial -> Text
trialName :: Prelude.Text,
CreateTrial -> Text
experimentName :: Prelude.Text
}
deriving (CreateTrial -> CreateTrial -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTrial -> CreateTrial -> Bool
$c/= :: CreateTrial -> CreateTrial -> Bool
== :: CreateTrial -> CreateTrial -> Bool
$c== :: CreateTrial -> CreateTrial -> Bool
Prelude.Eq, ReadPrec [CreateTrial]
ReadPrec CreateTrial
Int -> ReadS CreateTrial
ReadS [CreateTrial]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTrial]
$creadListPrec :: ReadPrec [CreateTrial]
readPrec :: ReadPrec CreateTrial
$creadPrec :: ReadPrec CreateTrial
readList :: ReadS [CreateTrial]
$creadList :: ReadS [CreateTrial]
readsPrec :: Int -> ReadS CreateTrial
$creadsPrec :: Int -> ReadS CreateTrial
Prelude.Read, Int -> CreateTrial -> ShowS
[CreateTrial] -> ShowS
CreateTrial -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTrial] -> ShowS
$cshowList :: [CreateTrial] -> ShowS
show :: CreateTrial -> String
$cshow :: CreateTrial -> String
showsPrec :: Int -> CreateTrial -> ShowS
$cshowsPrec :: Int -> CreateTrial -> ShowS
Prelude.Show, forall x. Rep CreateTrial x -> CreateTrial
forall x. CreateTrial -> Rep CreateTrial x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateTrial x -> CreateTrial
$cfrom :: forall x. CreateTrial -> Rep CreateTrial x
Prelude.Generic)
newCreateTrial ::
Prelude.Text ->
Prelude.Text ->
CreateTrial
newCreateTrial :: Text -> Text -> CreateTrial
newCreateTrial Text
pTrialName_ Text
pExperimentName_ =
CreateTrial'
{ $sel:displayName:CreateTrial' :: Maybe Text
displayName = forall a. Maybe a
Prelude.Nothing,
$sel:metadataProperties:CreateTrial' :: Maybe MetadataProperties
metadataProperties = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateTrial' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:trialName:CreateTrial' :: Text
trialName = Text
pTrialName_,
$sel:experimentName:CreateTrial' :: Text
experimentName = Text
pExperimentName_
}
createTrial_displayName :: Lens.Lens' CreateTrial (Prelude.Maybe Prelude.Text)
createTrial_displayName :: Lens' CreateTrial (Maybe Text)
createTrial_displayName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrial' {Maybe Text
displayName :: Maybe Text
$sel:displayName:CreateTrial' :: CreateTrial -> Maybe Text
displayName} -> Maybe Text
displayName) (\s :: CreateTrial
s@CreateTrial' {} Maybe Text
a -> CreateTrial
s {$sel:displayName:CreateTrial' :: Maybe Text
displayName = Maybe Text
a} :: CreateTrial)
createTrial_metadataProperties :: Lens.Lens' CreateTrial (Prelude.Maybe MetadataProperties)
createTrial_metadataProperties :: Lens' CreateTrial (Maybe MetadataProperties)
createTrial_metadataProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrial' {Maybe MetadataProperties
metadataProperties :: Maybe MetadataProperties
$sel:metadataProperties:CreateTrial' :: CreateTrial -> Maybe MetadataProperties
metadataProperties} -> Maybe MetadataProperties
metadataProperties) (\s :: CreateTrial
s@CreateTrial' {} Maybe MetadataProperties
a -> CreateTrial
s {$sel:metadataProperties:CreateTrial' :: Maybe MetadataProperties
metadataProperties = Maybe MetadataProperties
a} :: CreateTrial)
createTrial_tags :: Lens.Lens' CreateTrial (Prelude.Maybe [Tag])
createTrial_tags :: Lens' CreateTrial (Maybe [Tag])
createTrial_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrial' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateTrial' :: CreateTrial -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateTrial
s@CreateTrial' {} Maybe [Tag]
a -> CreateTrial
s {$sel:tags:CreateTrial' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateTrial) 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
createTrial_trialName :: Lens.Lens' CreateTrial Prelude.Text
createTrial_trialName :: Lens' CreateTrial Text
createTrial_trialName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrial' {Text
trialName :: Text
$sel:trialName:CreateTrial' :: CreateTrial -> Text
trialName} -> Text
trialName) (\s :: CreateTrial
s@CreateTrial' {} Text
a -> CreateTrial
s {$sel:trialName:CreateTrial' :: Text
trialName = Text
a} :: CreateTrial)
createTrial_experimentName :: Lens.Lens' CreateTrial Prelude.Text
createTrial_experimentName :: Lens' CreateTrial Text
createTrial_experimentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrial' {Text
experimentName :: Text
$sel:experimentName:CreateTrial' :: CreateTrial -> Text
experimentName} -> Text
experimentName) (\s :: CreateTrial
s@CreateTrial' {} Text
a -> CreateTrial
s {$sel:experimentName:CreateTrial' :: Text
experimentName = Text
a} :: CreateTrial)
instance Core.AWSRequest CreateTrial where
type AWSResponse CreateTrial = CreateTrialResponse
request :: (Service -> Service) -> CreateTrial -> Request CreateTrial
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 CreateTrial
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateTrial)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text -> Int -> CreateTrialResponse
CreateTrialResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"TrialArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable CreateTrial where
hashWithSalt :: Int -> CreateTrial -> Int
hashWithSalt Int
_salt CreateTrial' {Maybe [Tag]
Maybe Text
Maybe MetadataProperties
Text
experimentName :: Text
trialName :: Text
tags :: Maybe [Tag]
metadataProperties :: Maybe MetadataProperties
displayName :: Maybe Text
$sel:experimentName:CreateTrial' :: CreateTrial -> Text
$sel:trialName:CreateTrial' :: CreateTrial -> Text
$sel:tags:CreateTrial' :: CreateTrial -> Maybe [Tag]
$sel:metadataProperties:CreateTrial' :: CreateTrial -> Maybe MetadataProperties
$sel:displayName:CreateTrial' :: CreateTrial -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
displayName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MetadataProperties
metadataProperties
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
trialName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
experimentName
instance Prelude.NFData CreateTrial where
rnf :: CreateTrial -> ()
rnf CreateTrial' {Maybe [Tag]
Maybe Text
Maybe MetadataProperties
Text
experimentName :: Text
trialName :: Text
tags :: Maybe [Tag]
metadataProperties :: Maybe MetadataProperties
displayName :: Maybe Text
$sel:experimentName:CreateTrial' :: CreateTrial -> Text
$sel:trialName:CreateTrial' :: CreateTrial -> Text
$sel:tags:CreateTrial' :: CreateTrial -> Maybe [Tag]
$sel:metadataProperties:CreateTrial' :: CreateTrial -> Maybe MetadataProperties
$sel:displayName:CreateTrial' :: CreateTrial -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
displayName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MetadataProperties
metadataProperties
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
trialName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
experimentName
instance Data.ToHeaders CreateTrial where
toHeaders :: CreateTrial -> 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.CreateTrial" :: 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 CreateTrial where
toJSON :: CreateTrial -> Value
toJSON CreateTrial' {Maybe [Tag]
Maybe Text
Maybe MetadataProperties
Text
experimentName :: Text
trialName :: Text
tags :: Maybe [Tag]
metadataProperties :: Maybe MetadataProperties
displayName :: Maybe Text
$sel:experimentName:CreateTrial' :: CreateTrial -> Text
$sel:trialName:CreateTrial' :: CreateTrial -> Text
$sel:tags:CreateTrial' :: CreateTrial -> Maybe [Tag]
$sel:metadataProperties:CreateTrial' :: CreateTrial -> Maybe MetadataProperties
$sel:displayName:CreateTrial' :: CreateTrial -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DisplayName" 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
displayName,
(Key
"MetadataProperties" 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 MetadataProperties
metadataProperties,
(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
"TrialName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
trialName),
forall a. a -> Maybe a
Prelude.Just
(Key
"ExperimentName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
experimentName)
]
)
instance Data.ToPath CreateTrial where
toPath :: CreateTrial -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateTrial where
toQuery :: CreateTrial -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateTrialResponse = CreateTrialResponse'
{
CreateTrialResponse -> Maybe Text
trialArn :: Prelude.Maybe Prelude.Text,
CreateTrialResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateTrialResponse -> CreateTrialResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTrialResponse -> CreateTrialResponse -> Bool
$c/= :: CreateTrialResponse -> CreateTrialResponse -> Bool
== :: CreateTrialResponse -> CreateTrialResponse -> Bool
$c== :: CreateTrialResponse -> CreateTrialResponse -> Bool
Prelude.Eq, ReadPrec [CreateTrialResponse]
ReadPrec CreateTrialResponse
Int -> ReadS CreateTrialResponse
ReadS [CreateTrialResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTrialResponse]
$creadListPrec :: ReadPrec [CreateTrialResponse]
readPrec :: ReadPrec CreateTrialResponse
$creadPrec :: ReadPrec CreateTrialResponse
readList :: ReadS [CreateTrialResponse]
$creadList :: ReadS [CreateTrialResponse]
readsPrec :: Int -> ReadS CreateTrialResponse
$creadsPrec :: Int -> ReadS CreateTrialResponse
Prelude.Read, Int -> CreateTrialResponse -> ShowS
[CreateTrialResponse] -> ShowS
CreateTrialResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTrialResponse] -> ShowS
$cshowList :: [CreateTrialResponse] -> ShowS
show :: CreateTrialResponse -> String
$cshow :: CreateTrialResponse -> String
showsPrec :: Int -> CreateTrialResponse -> ShowS
$cshowsPrec :: Int -> CreateTrialResponse -> ShowS
Prelude.Show, forall x. Rep CreateTrialResponse x -> CreateTrialResponse
forall x. CreateTrialResponse -> Rep CreateTrialResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateTrialResponse x -> CreateTrialResponse
$cfrom :: forall x. CreateTrialResponse -> Rep CreateTrialResponse x
Prelude.Generic)
newCreateTrialResponse ::
Prelude.Int ->
CreateTrialResponse
newCreateTrialResponse :: Int -> CreateTrialResponse
newCreateTrialResponse Int
pHttpStatus_ =
CreateTrialResponse'
{ $sel:trialArn:CreateTrialResponse' :: Maybe Text
trialArn = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateTrialResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createTrialResponse_trialArn :: Lens.Lens' CreateTrialResponse (Prelude.Maybe Prelude.Text)
createTrialResponse_trialArn :: Lens' CreateTrialResponse (Maybe Text)
createTrialResponse_trialArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrialResponse' {Maybe Text
trialArn :: Maybe Text
$sel:trialArn:CreateTrialResponse' :: CreateTrialResponse -> Maybe Text
trialArn} -> Maybe Text
trialArn) (\s :: CreateTrialResponse
s@CreateTrialResponse' {} Maybe Text
a -> CreateTrialResponse
s {$sel:trialArn:CreateTrialResponse' :: Maybe Text
trialArn = Maybe Text
a} :: CreateTrialResponse)
createTrialResponse_httpStatus :: Lens.Lens' CreateTrialResponse Prelude.Int
createTrialResponse_httpStatus :: Lens' CreateTrialResponse Int
createTrialResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrialResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateTrialResponse' :: CreateTrialResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateTrialResponse
s@CreateTrialResponse' {} Int
a -> CreateTrialResponse
s {$sel:httpStatus:CreateTrialResponse' :: Int
httpStatus = Int
a} :: CreateTrialResponse)
instance Prelude.NFData CreateTrialResponse where
rnf :: CreateTrialResponse -> ()
rnf CreateTrialResponse' {Int
Maybe Text
httpStatus :: Int
trialArn :: Maybe Text
$sel:httpStatus:CreateTrialResponse' :: CreateTrialResponse -> Int
$sel:trialArn:CreateTrialResponse' :: CreateTrialResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
trialArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus