{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SageMaker.Types.ModelDashboardModel 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 Amazonka.SageMaker.Types.Model
import Amazonka.SageMaker.Types.ModelDashboardEndpoint
import Amazonka.SageMaker.Types.ModelDashboardModelCard
import Amazonka.SageMaker.Types.ModelDashboardMonitoringSchedule
import Amazonka.SageMaker.Types.TransformJob
data ModelDashboardModel = ModelDashboardModel'
{
ModelDashboardModel -> Maybe [ModelDashboardEndpoint]
endpoints :: Prelude.Maybe [ModelDashboardEndpoint],
ModelDashboardModel -> Maybe TransformJob
lastBatchTransformJob :: Prelude.Maybe TransformJob,
ModelDashboardModel -> Maybe Model
model :: Prelude.Maybe Model,
ModelDashboardModel -> Maybe ModelDashboardModelCard
modelCard :: Prelude.Maybe ModelDashboardModelCard,
ModelDashboardModel -> Maybe [ModelDashboardMonitoringSchedule]
monitoringSchedules :: Prelude.Maybe [ModelDashboardMonitoringSchedule]
}
deriving (ModelDashboardModel -> ModelDashboardModel -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModelDashboardModel -> ModelDashboardModel -> Bool
$c/= :: ModelDashboardModel -> ModelDashboardModel -> Bool
== :: ModelDashboardModel -> ModelDashboardModel -> Bool
$c== :: ModelDashboardModel -> ModelDashboardModel -> Bool
Prelude.Eq, ReadPrec [ModelDashboardModel]
ReadPrec ModelDashboardModel
Int -> ReadS ModelDashboardModel
ReadS [ModelDashboardModel]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModelDashboardModel]
$creadListPrec :: ReadPrec [ModelDashboardModel]
readPrec :: ReadPrec ModelDashboardModel
$creadPrec :: ReadPrec ModelDashboardModel
readList :: ReadS [ModelDashboardModel]
$creadList :: ReadS [ModelDashboardModel]
readsPrec :: Int -> ReadS ModelDashboardModel
$creadsPrec :: Int -> ReadS ModelDashboardModel
Prelude.Read, Int -> ModelDashboardModel -> ShowS
[ModelDashboardModel] -> ShowS
ModelDashboardModel -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModelDashboardModel] -> ShowS
$cshowList :: [ModelDashboardModel] -> ShowS
show :: ModelDashboardModel -> String
$cshow :: ModelDashboardModel -> String
showsPrec :: Int -> ModelDashboardModel -> ShowS
$cshowsPrec :: Int -> ModelDashboardModel -> ShowS
Prelude.Show, forall x. Rep ModelDashboardModel x -> ModelDashboardModel
forall x. ModelDashboardModel -> Rep ModelDashboardModel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ModelDashboardModel x -> ModelDashboardModel
$cfrom :: forall x. ModelDashboardModel -> Rep ModelDashboardModel x
Prelude.Generic)
newModelDashboardModel ::
ModelDashboardModel
newModelDashboardModel :: ModelDashboardModel
newModelDashboardModel =
ModelDashboardModel'
{ $sel:endpoints:ModelDashboardModel' :: Maybe [ModelDashboardEndpoint]
endpoints = forall a. Maybe a
Prelude.Nothing,
$sel:lastBatchTransformJob:ModelDashboardModel' :: Maybe TransformJob
lastBatchTransformJob = forall a. Maybe a
Prelude.Nothing,
$sel:model:ModelDashboardModel' :: Maybe Model
model = forall a. Maybe a
Prelude.Nothing,
$sel:modelCard:ModelDashboardModel' :: Maybe ModelDashboardModelCard
modelCard = forall a. Maybe a
Prelude.Nothing,
$sel:monitoringSchedules:ModelDashboardModel' :: Maybe [ModelDashboardMonitoringSchedule]
monitoringSchedules = forall a. Maybe a
Prelude.Nothing
}
modelDashboardModel_endpoints :: Lens.Lens' ModelDashboardModel (Prelude.Maybe [ModelDashboardEndpoint])
modelDashboardModel_endpoints :: Lens' ModelDashboardModel (Maybe [ModelDashboardEndpoint])
modelDashboardModel_endpoints = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModelDashboardModel' {Maybe [ModelDashboardEndpoint]
endpoints :: Maybe [ModelDashboardEndpoint]
$sel:endpoints:ModelDashboardModel' :: ModelDashboardModel -> Maybe [ModelDashboardEndpoint]
endpoints} -> Maybe [ModelDashboardEndpoint]
endpoints) (\s :: ModelDashboardModel
s@ModelDashboardModel' {} Maybe [ModelDashboardEndpoint]
a -> ModelDashboardModel
s {$sel:endpoints:ModelDashboardModel' :: Maybe [ModelDashboardEndpoint]
endpoints = Maybe [ModelDashboardEndpoint]
a} :: ModelDashboardModel) 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
modelDashboardModel_lastBatchTransformJob :: Lens.Lens' ModelDashboardModel (Prelude.Maybe TransformJob)
modelDashboardModel_lastBatchTransformJob :: Lens' ModelDashboardModel (Maybe TransformJob)
modelDashboardModel_lastBatchTransformJob = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModelDashboardModel' {Maybe TransformJob
lastBatchTransformJob :: Maybe TransformJob
$sel:lastBatchTransformJob:ModelDashboardModel' :: ModelDashboardModel -> Maybe TransformJob
lastBatchTransformJob} -> Maybe TransformJob
lastBatchTransformJob) (\s :: ModelDashboardModel
s@ModelDashboardModel' {} Maybe TransformJob
a -> ModelDashboardModel
s {$sel:lastBatchTransformJob:ModelDashboardModel' :: Maybe TransformJob
lastBatchTransformJob = Maybe TransformJob
a} :: ModelDashboardModel)
modelDashboardModel_model :: Lens.Lens' ModelDashboardModel (Prelude.Maybe Model)
modelDashboardModel_model :: Lens' ModelDashboardModel (Maybe Model)
modelDashboardModel_model = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModelDashboardModel' {Maybe Model
model :: Maybe Model
$sel:model:ModelDashboardModel' :: ModelDashboardModel -> Maybe Model
model} -> Maybe Model
model) (\s :: ModelDashboardModel
s@ModelDashboardModel' {} Maybe Model
a -> ModelDashboardModel
s {$sel:model:ModelDashboardModel' :: Maybe Model
model = Maybe Model
a} :: ModelDashboardModel)
modelDashboardModel_modelCard :: Lens.Lens' ModelDashboardModel (Prelude.Maybe ModelDashboardModelCard)
modelDashboardModel_modelCard :: Lens' ModelDashboardModel (Maybe ModelDashboardModelCard)
modelDashboardModel_modelCard = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModelDashboardModel' {Maybe ModelDashboardModelCard
modelCard :: Maybe ModelDashboardModelCard
$sel:modelCard:ModelDashboardModel' :: ModelDashboardModel -> Maybe ModelDashboardModelCard
modelCard} -> Maybe ModelDashboardModelCard
modelCard) (\s :: ModelDashboardModel
s@ModelDashboardModel' {} Maybe ModelDashboardModelCard
a -> ModelDashboardModel
s {$sel:modelCard:ModelDashboardModel' :: Maybe ModelDashboardModelCard
modelCard = Maybe ModelDashboardModelCard
a} :: ModelDashboardModel)
modelDashboardModel_monitoringSchedules :: Lens.Lens' ModelDashboardModel (Prelude.Maybe [ModelDashboardMonitoringSchedule])
modelDashboardModel_monitoringSchedules :: Lens'
ModelDashboardModel (Maybe [ModelDashboardMonitoringSchedule])
modelDashboardModel_monitoringSchedules = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModelDashboardModel' {Maybe [ModelDashboardMonitoringSchedule]
monitoringSchedules :: Maybe [ModelDashboardMonitoringSchedule]
$sel:monitoringSchedules:ModelDashboardModel' :: ModelDashboardModel -> Maybe [ModelDashboardMonitoringSchedule]
monitoringSchedules} -> Maybe [ModelDashboardMonitoringSchedule]
monitoringSchedules) (\s :: ModelDashboardModel
s@ModelDashboardModel' {} Maybe [ModelDashboardMonitoringSchedule]
a -> ModelDashboardModel
s {$sel:monitoringSchedules:ModelDashboardModel' :: Maybe [ModelDashboardMonitoringSchedule]
monitoringSchedules = Maybe [ModelDashboardMonitoringSchedule]
a} :: ModelDashboardModel) 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
instance Data.FromJSON ModelDashboardModel where
parseJSON :: Value -> Parser ModelDashboardModel
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"ModelDashboardModel"
( \Object
x ->
Maybe [ModelDashboardEndpoint]
-> Maybe TransformJob
-> Maybe Model
-> Maybe ModelDashboardModelCard
-> Maybe [ModelDashboardMonitoringSchedule]
-> ModelDashboardModel
ModelDashboardModel'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Endpoints" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"LastBatchTransformJob")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Model")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ModelCard")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"MonitoringSchedules"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable ModelDashboardModel where
hashWithSalt :: Int -> ModelDashboardModel -> Int
hashWithSalt Int
_salt ModelDashboardModel' {Maybe [ModelDashboardEndpoint]
Maybe [ModelDashboardMonitoringSchedule]
Maybe TransformJob
Maybe ModelDashboardModelCard
Maybe Model
monitoringSchedules :: Maybe [ModelDashboardMonitoringSchedule]
modelCard :: Maybe ModelDashboardModelCard
model :: Maybe Model
lastBatchTransformJob :: Maybe TransformJob
endpoints :: Maybe [ModelDashboardEndpoint]
$sel:monitoringSchedules:ModelDashboardModel' :: ModelDashboardModel -> Maybe [ModelDashboardMonitoringSchedule]
$sel:modelCard:ModelDashboardModel' :: ModelDashboardModel -> Maybe ModelDashboardModelCard
$sel:model:ModelDashboardModel' :: ModelDashboardModel -> Maybe Model
$sel:lastBatchTransformJob:ModelDashboardModel' :: ModelDashboardModel -> Maybe TransformJob
$sel:endpoints:ModelDashboardModel' :: ModelDashboardModel -> Maybe [ModelDashboardEndpoint]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ModelDashboardEndpoint]
endpoints
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TransformJob
lastBatchTransformJob
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Model
model
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ModelDashboardModelCard
modelCard
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ModelDashboardMonitoringSchedule]
monitoringSchedules
instance Prelude.NFData ModelDashboardModel where
rnf :: ModelDashboardModel -> ()
rnf ModelDashboardModel' {Maybe [ModelDashboardEndpoint]
Maybe [ModelDashboardMonitoringSchedule]
Maybe TransformJob
Maybe ModelDashboardModelCard
Maybe Model
monitoringSchedules :: Maybe [ModelDashboardMonitoringSchedule]
modelCard :: Maybe ModelDashboardModelCard
model :: Maybe Model
lastBatchTransformJob :: Maybe TransformJob
endpoints :: Maybe [ModelDashboardEndpoint]
$sel:monitoringSchedules:ModelDashboardModel' :: ModelDashboardModel -> Maybe [ModelDashboardMonitoringSchedule]
$sel:modelCard:ModelDashboardModel' :: ModelDashboardModel -> Maybe ModelDashboardModelCard
$sel:model:ModelDashboardModel' :: ModelDashboardModel -> Maybe Model
$sel:lastBatchTransformJob:ModelDashboardModel' :: ModelDashboardModel -> Maybe TransformJob
$sel:endpoints:ModelDashboardModel' :: ModelDashboardModel -> Maybe [ModelDashboardEndpoint]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ModelDashboardEndpoint]
endpoints
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TransformJob
lastBatchTransformJob
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Model
model
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ModelDashboardModelCard
modelCard
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ModelDashboardMonitoringSchedule]
monitoringSchedules