{-# 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.MachineLearning.CreateMLModel
(
CreateMLModel (..),
newCreateMLModel,
createMLModel_mLModelName,
createMLModel_parameters,
createMLModel_recipe,
createMLModel_recipeUri,
createMLModel_mLModelId,
createMLModel_mLModelType,
createMLModel_trainingDataSourceId,
CreateMLModelResponse (..),
newCreateMLModelResponse,
createMLModelResponse_mLModelId,
createMLModelResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MachineLearning.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateMLModel = CreateMLModel'
{
CreateMLModel -> Maybe Text
mLModelName :: Prelude.Maybe Prelude.Text,
CreateMLModel -> Maybe (HashMap Text Text)
parameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateMLModel -> Maybe Text
recipe :: Prelude.Maybe Prelude.Text,
CreateMLModel -> Maybe Text
recipeUri :: Prelude.Maybe Prelude.Text,
CreateMLModel -> Text
mLModelId :: Prelude.Text,
CreateMLModel -> MLModelType
mLModelType :: MLModelType,
CreateMLModel -> Text
trainingDataSourceId :: Prelude.Text
}
deriving (CreateMLModel -> CreateMLModel -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateMLModel -> CreateMLModel -> Bool
$c/= :: CreateMLModel -> CreateMLModel -> Bool
== :: CreateMLModel -> CreateMLModel -> Bool
$c== :: CreateMLModel -> CreateMLModel -> Bool
Prelude.Eq, ReadPrec [CreateMLModel]
ReadPrec CreateMLModel
Int -> ReadS CreateMLModel
ReadS [CreateMLModel]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateMLModel]
$creadListPrec :: ReadPrec [CreateMLModel]
readPrec :: ReadPrec CreateMLModel
$creadPrec :: ReadPrec CreateMLModel
readList :: ReadS [CreateMLModel]
$creadList :: ReadS [CreateMLModel]
readsPrec :: Int -> ReadS CreateMLModel
$creadsPrec :: Int -> ReadS CreateMLModel
Prelude.Read, Int -> CreateMLModel -> ShowS
[CreateMLModel] -> ShowS
CreateMLModel -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateMLModel] -> ShowS
$cshowList :: [CreateMLModel] -> ShowS
show :: CreateMLModel -> String
$cshow :: CreateMLModel -> String
showsPrec :: Int -> CreateMLModel -> ShowS
$cshowsPrec :: Int -> CreateMLModel -> ShowS
Prelude.Show, forall x. Rep CreateMLModel x -> CreateMLModel
forall x. CreateMLModel -> Rep CreateMLModel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateMLModel x -> CreateMLModel
$cfrom :: forall x. CreateMLModel -> Rep CreateMLModel x
Prelude.Generic)
newCreateMLModel ::
Prelude.Text ->
MLModelType ->
Prelude.Text ->
CreateMLModel
newCreateMLModel :: Text -> MLModelType -> Text -> CreateMLModel
newCreateMLModel
Text
pMLModelId_
MLModelType
pMLModelType_
Text
pTrainingDataSourceId_ =
CreateMLModel'
{ $sel:mLModelName:CreateMLModel' :: Maybe Text
mLModelName = forall a. Maybe a
Prelude.Nothing,
$sel:parameters:CreateMLModel' :: Maybe (HashMap Text Text)
parameters = forall a. Maybe a
Prelude.Nothing,
$sel:recipe:CreateMLModel' :: Maybe Text
recipe = forall a. Maybe a
Prelude.Nothing,
$sel:recipeUri:CreateMLModel' :: Maybe Text
recipeUri = forall a. Maybe a
Prelude.Nothing,
$sel:mLModelId:CreateMLModel' :: Text
mLModelId = Text
pMLModelId_,
$sel:mLModelType:CreateMLModel' :: MLModelType
mLModelType = MLModelType
pMLModelType_,
$sel:trainingDataSourceId:CreateMLModel' :: Text
trainingDataSourceId = Text
pTrainingDataSourceId_
}
createMLModel_mLModelName :: Lens.Lens' CreateMLModel (Prelude.Maybe Prelude.Text)
createMLModel_mLModelName :: Lens' CreateMLModel (Maybe Text)
createMLModel_mLModelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModel' {Maybe Text
mLModelName :: Maybe Text
$sel:mLModelName:CreateMLModel' :: CreateMLModel -> Maybe Text
mLModelName} -> Maybe Text
mLModelName) (\s :: CreateMLModel
s@CreateMLModel' {} Maybe Text
a -> CreateMLModel
s {$sel:mLModelName:CreateMLModel' :: Maybe Text
mLModelName = Maybe Text
a} :: CreateMLModel)
createMLModel_parameters :: Lens.Lens' CreateMLModel (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createMLModel_parameters :: Lens' CreateMLModel (Maybe (HashMap Text Text))
createMLModel_parameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModel' {Maybe (HashMap Text Text)
parameters :: Maybe (HashMap Text Text)
$sel:parameters:CreateMLModel' :: CreateMLModel -> Maybe (HashMap Text Text)
parameters} -> Maybe (HashMap Text Text)
parameters) (\s :: CreateMLModel
s@CreateMLModel' {} Maybe (HashMap Text Text)
a -> CreateMLModel
s {$sel:parameters:CreateMLModel' :: Maybe (HashMap Text Text)
parameters = Maybe (HashMap Text Text)
a} :: CreateMLModel) 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
createMLModel_recipe :: Lens.Lens' CreateMLModel (Prelude.Maybe Prelude.Text)
createMLModel_recipe :: Lens' CreateMLModel (Maybe Text)
createMLModel_recipe = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModel' {Maybe Text
recipe :: Maybe Text
$sel:recipe:CreateMLModel' :: CreateMLModel -> Maybe Text
recipe} -> Maybe Text
recipe) (\s :: CreateMLModel
s@CreateMLModel' {} Maybe Text
a -> CreateMLModel
s {$sel:recipe:CreateMLModel' :: Maybe Text
recipe = Maybe Text
a} :: CreateMLModel)
createMLModel_recipeUri :: Lens.Lens' CreateMLModel (Prelude.Maybe Prelude.Text)
createMLModel_recipeUri :: Lens' CreateMLModel (Maybe Text)
createMLModel_recipeUri = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModel' {Maybe Text
recipeUri :: Maybe Text
$sel:recipeUri:CreateMLModel' :: CreateMLModel -> Maybe Text
recipeUri} -> Maybe Text
recipeUri) (\s :: CreateMLModel
s@CreateMLModel' {} Maybe Text
a -> CreateMLModel
s {$sel:recipeUri:CreateMLModel' :: Maybe Text
recipeUri = Maybe Text
a} :: CreateMLModel)
createMLModel_mLModelId :: Lens.Lens' CreateMLModel Prelude.Text
createMLModel_mLModelId :: Lens' CreateMLModel Text
createMLModel_mLModelId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModel' {Text
mLModelId :: Text
$sel:mLModelId:CreateMLModel' :: CreateMLModel -> Text
mLModelId} -> Text
mLModelId) (\s :: CreateMLModel
s@CreateMLModel' {} Text
a -> CreateMLModel
s {$sel:mLModelId:CreateMLModel' :: Text
mLModelId = Text
a} :: CreateMLModel)
createMLModel_mLModelType :: Lens.Lens' CreateMLModel MLModelType
createMLModel_mLModelType :: Lens' CreateMLModel MLModelType
createMLModel_mLModelType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModel' {MLModelType
mLModelType :: MLModelType
$sel:mLModelType:CreateMLModel' :: CreateMLModel -> MLModelType
mLModelType} -> MLModelType
mLModelType) (\s :: CreateMLModel
s@CreateMLModel' {} MLModelType
a -> CreateMLModel
s {$sel:mLModelType:CreateMLModel' :: MLModelType
mLModelType = MLModelType
a} :: CreateMLModel)
createMLModel_trainingDataSourceId :: Lens.Lens' CreateMLModel Prelude.Text
createMLModel_trainingDataSourceId :: Lens' CreateMLModel Text
createMLModel_trainingDataSourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModel' {Text
trainingDataSourceId :: Text
$sel:trainingDataSourceId:CreateMLModel' :: CreateMLModel -> Text
trainingDataSourceId} -> Text
trainingDataSourceId) (\s :: CreateMLModel
s@CreateMLModel' {} Text
a -> CreateMLModel
s {$sel:trainingDataSourceId:CreateMLModel' :: Text
trainingDataSourceId = Text
a} :: CreateMLModel)
instance Core.AWSRequest CreateMLModel where
type
AWSResponse CreateMLModel =
CreateMLModelResponse
request :: (Service -> Service) -> CreateMLModel -> Request CreateMLModel
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 CreateMLModel
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateMLModel)))
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 -> CreateMLModelResponse
CreateMLModelResponse'
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
"MLModelId")
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 CreateMLModel where
hashWithSalt :: Int -> CreateMLModel -> Int
hashWithSalt Int
_salt CreateMLModel' {Maybe Text
Maybe (HashMap Text Text)
Text
MLModelType
trainingDataSourceId :: Text
mLModelType :: MLModelType
mLModelId :: Text
recipeUri :: Maybe Text
recipe :: Maybe Text
parameters :: Maybe (HashMap Text Text)
mLModelName :: Maybe Text
$sel:trainingDataSourceId:CreateMLModel' :: CreateMLModel -> Text
$sel:mLModelType:CreateMLModel' :: CreateMLModel -> MLModelType
$sel:mLModelId:CreateMLModel' :: CreateMLModel -> Text
$sel:recipeUri:CreateMLModel' :: CreateMLModel -> Maybe Text
$sel:recipe:CreateMLModel' :: CreateMLModel -> Maybe Text
$sel:parameters:CreateMLModel' :: CreateMLModel -> Maybe (HashMap Text Text)
$sel:mLModelName:CreateMLModel' :: CreateMLModel -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
mLModelName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
parameters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
recipe
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
recipeUri
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
mLModelId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` MLModelType
mLModelType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
trainingDataSourceId
instance Prelude.NFData CreateMLModel where
rnf :: CreateMLModel -> ()
rnf CreateMLModel' {Maybe Text
Maybe (HashMap Text Text)
Text
MLModelType
trainingDataSourceId :: Text
mLModelType :: MLModelType
mLModelId :: Text
recipeUri :: Maybe Text
recipe :: Maybe Text
parameters :: Maybe (HashMap Text Text)
mLModelName :: Maybe Text
$sel:trainingDataSourceId:CreateMLModel' :: CreateMLModel -> Text
$sel:mLModelType:CreateMLModel' :: CreateMLModel -> MLModelType
$sel:mLModelId:CreateMLModel' :: CreateMLModel -> Text
$sel:recipeUri:CreateMLModel' :: CreateMLModel -> Maybe Text
$sel:recipe:CreateMLModel' :: CreateMLModel -> Maybe Text
$sel:parameters:CreateMLModel' :: CreateMLModel -> Maybe (HashMap Text Text)
$sel:mLModelName:CreateMLModel' :: CreateMLModel -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mLModelName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
parameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
recipe
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
recipeUri
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
mLModelId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf MLModelType
mLModelType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
trainingDataSourceId
instance Data.ToHeaders CreateMLModel where
toHeaders :: CreateMLModel -> 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
"AmazonML_20141212.CreateMLModel" ::
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 CreateMLModel where
toJSON :: CreateMLModel -> Value
toJSON CreateMLModel' {Maybe Text
Maybe (HashMap Text Text)
Text
MLModelType
trainingDataSourceId :: Text
mLModelType :: MLModelType
mLModelId :: Text
recipeUri :: Maybe Text
recipe :: Maybe Text
parameters :: Maybe (HashMap Text Text)
mLModelName :: Maybe Text
$sel:trainingDataSourceId:CreateMLModel' :: CreateMLModel -> Text
$sel:mLModelType:CreateMLModel' :: CreateMLModel -> MLModelType
$sel:mLModelId:CreateMLModel' :: CreateMLModel -> Text
$sel:recipeUri:CreateMLModel' :: CreateMLModel -> Maybe Text
$sel:recipe:CreateMLModel' :: CreateMLModel -> Maybe Text
$sel:parameters:CreateMLModel' :: CreateMLModel -> Maybe (HashMap Text Text)
$sel:mLModelName:CreateMLModel' :: CreateMLModel -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"MLModelName" 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
mLModelName,
(Key
"Parameters" 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 (HashMap Text Text)
parameters,
(Key
"Recipe" 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
recipe,
(Key
"RecipeUri" 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
recipeUri,
forall a. a -> Maybe a
Prelude.Just (Key
"MLModelId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
mLModelId),
forall a. a -> Maybe a
Prelude.Just (Key
"MLModelType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= MLModelType
mLModelType),
forall a. a -> Maybe a
Prelude.Just
( Key
"TrainingDataSourceId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
trainingDataSourceId
)
]
)
instance Data.ToPath CreateMLModel where
toPath :: CreateMLModel -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateMLModel where
toQuery :: CreateMLModel -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateMLModelResponse = CreateMLModelResponse'
{
CreateMLModelResponse -> Maybe Text
mLModelId :: Prelude.Maybe Prelude.Text,
CreateMLModelResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateMLModelResponse -> CreateMLModelResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateMLModelResponse -> CreateMLModelResponse -> Bool
$c/= :: CreateMLModelResponse -> CreateMLModelResponse -> Bool
== :: CreateMLModelResponse -> CreateMLModelResponse -> Bool
$c== :: CreateMLModelResponse -> CreateMLModelResponse -> Bool
Prelude.Eq, ReadPrec [CreateMLModelResponse]
ReadPrec CreateMLModelResponse
Int -> ReadS CreateMLModelResponse
ReadS [CreateMLModelResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateMLModelResponse]
$creadListPrec :: ReadPrec [CreateMLModelResponse]
readPrec :: ReadPrec CreateMLModelResponse
$creadPrec :: ReadPrec CreateMLModelResponse
readList :: ReadS [CreateMLModelResponse]
$creadList :: ReadS [CreateMLModelResponse]
readsPrec :: Int -> ReadS CreateMLModelResponse
$creadsPrec :: Int -> ReadS CreateMLModelResponse
Prelude.Read, Int -> CreateMLModelResponse -> ShowS
[CreateMLModelResponse] -> ShowS
CreateMLModelResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateMLModelResponse] -> ShowS
$cshowList :: [CreateMLModelResponse] -> ShowS
show :: CreateMLModelResponse -> String
$cshow :: CreateMLModelResponse -> String
showsPrec :: Int -> CreateMLModelResponse -> ShowS
$cshowsPrec :: Int -> CreateMLModelResponse -> ShowS
Prelude.Show, forall x. Rep CreateMLModelResponse x -> CreateMLModelResponse
forall x. CreateMLModelResponse -> Rep CreateMLModelResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateMLModelResponse x -> CreateMLModelResponse
$cfrom :: forall x. CreateMLModelResponse -> Rep CreateMLModelResponse x
Prelude.Generic)
newCreateMLModelResponse ::
Prelude.Int ->
CreateMLModelResponse
newCreateMLModelResponse :: Int -> CreateMLModelResponse
newCreateMLModelResponse Int
pHttpStatus_ =
CreateMLModelResponse'
{ $sel:mLModelId:CreateMLModelResponse' :: Maybe Text
mLModelId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateMLModelResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createMLModelResponse_mLModelId :: Lens.Lens' CreateMLModelResponse (Prelude.Maybe Prelude.Text)
createMLModelResponse_mLModelId :: Lens' CreateMLModelResponse (Maybe Text)
createMLModelResponse_mLModelId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModelResponse' {Maybe Text
mLModelId :: Maybe Text
$sel:mLModelId:CreateMLModelResponse' :: CreateMLModelResponse -> Maybe Text
mLModelId} -> Maybe Text
mLModelId) (\s :: CreateMLModelResponse
s@CreateMLModelResponse' {} Maybe Text
a -> CreateMLModelResponse
s {$sel:mLModelId:CreateMLModelResponse' :: Maybe Text
mLModelId = Maybe Text
a} :: CreateMLModelResponse)
createMLModelResponse_httpStatus :: Lens.Lens' CreateMLModelResponse Prelude.Int
createMLModelResponse_httpStatus :: Lens' CreateMLModelResponse Int
createMLModelResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMLModelResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateMLModelResponse' :: CreateMLModelResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateMLModelResponse
s@CreateMLModelResponse' {} Int
a -> CreateMLModelResponse
s {$sel:httpStatus:CreateMLModelResponse' :: Int
httpStatus = Int
a} :: CreateMLModelResponse)
instance Prelude.NFData CreateMLModelResponse where
rnf :: CreateMLModelResponse -> ()
rnf CreateMLModelResponse' {Int
Maybe Text
httpStatus :: Int
mLModelId :: Maybe Text
$sel:httpStatus:CreateMLModelResponse' :: CreateMLModelResponse -> Int
$sel:mLModelId:CreateMLModelResponse' :: CreateMLModelResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mLModelId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus