{-# 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.ModelPackageStatusDetails 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.ModelPackageStatusItem
data ModelPackageStatusDetails = ModelPackageStatusDetails'
{
ModelPackageStatusDetails -> Maybe [ModelPackageStatusItem]
imageScanStatuses :: Prelude.Maybe [ModelPackageStatusItem],
ModelPackageStatusDetails -> [ModelPackageStatusItem]
validationStatuses :: [ModelPackageStatusItem]
}
deriving (ModelPackageStatusDetails -> ModelPackageStatusDetails -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModelPackageStatusDetails -> ModelPackageStatusDetails -> Bool
$c/= :: ModelPackageStatusDetails -> ModelPackageStatusDetails -> Bool
== :: ModelPackageStatusDetails -> ModelPackageStatusDetails -> Bool
$c== :: ModelPackageStatusDetails -> ModelPackageStatusDetails -> Bool
Prelude.Eq, ReadPrec [ModelPackageStatusDetails]
ReadPrec ModelPackageStatusDetails
Int -> ReadS ModelPackageStatusDetails
ReadS [ModelPackageStatusDetails]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModelPackageStatusDetails]
$creadListPrec :: ReadPrec [ModelPackageStatusDetails]
readPrec :: ReadPrec ModelPackageStatusDetails
$creadPrec :: ReadPrec ModelPackageStatusDetails
readList :: ReadS [ModelPackageStatusDetails]
$creadList :: ReadS [ModelPackageStatusDetails]
readsPrec :: Int -> ReadS ModelPackageStatusDetails
$creadsPrec :: Int -> ReadS ModelPackageStatusDetails
Prelude.Read, Int -> ModelPackageStatusDetails -> ShowS
[ModelPackageStatusDetails] -> ShowS
ModelPackageStatusDetails -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModelPackageStatusDetails] -> ShowS
$cshowList :: [ModelPackageStatusDetails] -> ShowS
show :: ModelPackageStatusDetails -> String
$cshow :: ModelPackageStatusDetails -> String
showsPrec :: Int -> ModelPackageStatusDetails -> ShowS
$cshowsPrec :: Int -> ModelPackageStatusDetails -> ShowS
Prelude.Show, forall x.
Rep ModelPackageStatusDetails x -> ModelPackageStatusDetails
forall x.
ModelPackageStatusDetails -> Rep ModelPackageStatusDetails x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ModelPackageStatusDetails x -> ModelPackageStatusDetails
$cfrom :: forall x.
ModelPackageStatusDetails -> Rep ModelPackageStatusDetails x
Prelude.Generic)
newModelPackageStatusDetails ::
ModelPackageStatusDetails
newModelPackageStatusDetails :: ModelPackageStatusDetails
newModelPackageStatusDetails =
ModelPackageStatusDetails'
{ $sel:imageScanStatuses:ModelPackageStatusDetails' :: Maybe [ModelPackageStatusItem]
imageScanStatuses =
forall a. Maybe a
Prelude.Nothing,
$sel:validationStatuses:ModelPackageStatusDetails' :: [ModelPackageStatusItem]
validationStatuses = forall a. Monoid a => a
Prelude.mempty
}
modelPackageStatusDetails_imageScanStatuses :: Lens.Lens' ModelPackageStatusDetails (Prelude.Maybe [ModelPackageStatusItem])
modelPackageStatusDetails_imageScanStatuses :: Lens' ModelPackageStatusDetails (Maybe [ModelPackageStatusItem])
modelPackageStatusDetails_imageScanStatuses = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModelPackageStatusDetails' {Maybe [ModelPackageStatusItem]
imageScanStatuses :: Maybe [ModelPackageStatusItem]
$sel:imageScanStatuses:ModelPackageStatusDetails' :: ModelPackageStatusDetails -> Maybe [ModelPackageStatusItem]
imageScanStatuses} -> Maybe [ModelPackageStatusItem]
imageScanStatuses) (\s :: ModelPackageStatusDetails
s@ModelPackageStatusDetails' {} Maybe [ModelPackageStatusItem]
a -> ModelPackageStatusDetails
s {$sel:imageScanStatuses:ModelPackageStatusDetails' :: Maybe [ModelPackageStatusItem]
imageScanStatuses = Maybe [ModelPackageStatusItem]
a} :: ModelPackageStatusDetails) 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
modelPackageStatusDetails_validationStatuses :: Lens.Lens' ModelPackageStatusDetails [ModelPackageStatusItem]
modelPackageStatusDetails_validationStatuses :: Lens' ModelPackageStatusDetails [ModelPackageStatusItem]
modelPackageStatusDetails_validationStatuses = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModelPackageStatusDetails' {[ModelPackageStatusItem]
validationStatuses :: [ModelPackageStatusItem]
$sel:validationStatuses:ModelPackageStatusDetails' :: ModelPackageStatusDetails -> [ModelPackageStatusItem]
validationStatuses} -> [ModelPackageStatusItem]
validationStatuses) (\s :: ModelPackageStatusDetails
s@ModelPackageStatusDetails' {} [ModelPackageStatusItem]
a -> ModelPackageStatusDetails
s {$sel:validationStatuses:ModelPackageStatusDetails' :: [ModelPackageStatusItem]
validationStatuses = [ModelPackageStatusItem]
a} :: ModelPackageStatusDetails) 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
instance Data.FromJSON ModelPackageStatusDetails where
parseJSON :: Value -> Parser ModelPackageStatusDetails
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"ModelPackageStatusDetails"
( \Object
x ->
Maybe [ModelPackageStatusItem]
-> [ModelPackageStatusItem] -> ModelPackageStatusDetails
ModelPackageStatusDetails'
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
"ImageScanStatuses"
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
"ValidationStatuses"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable ModelPackageStatusDetails where
hashWithSalt :: Int -> ModelPackageStatusDetails -> Int
hashWithSalt Int
_salt ModelPackageStatusDetails' {[ModelPackageStatusItem]
Maybe [ModelPackageStatusItem]
validationStatuses :: [ModelPackageStatusItem]
imageScanStatuses :: Maybe [ModelPackageStatusItem]
$sel:validationStatuses:ModelPackageStatusDetails' :: ModelPackageStatusDetails -> [ModelPackageStatusItem]
$sel:imageScanStatuses:ModelPackageStatusDetails' :: ModelPackageStatusDetails -> Maybe [ModelPackageStatusItem]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ModelPackageStatusItem]
imageScanStatuses
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [ModelPackageStatusItem]
validationStatuses
instance Prelude.NFData ModelPackageStatusDetails where
rnf :: ModelPackageStatusDetails -> ()
rnf ModelPackageStatusDetails' {[ModelPackageStatusItem]
Maybe [ModelPackageStatusItem]
validationStatuses :: [ModelPackageStatusItem]
imageScanStatuses :: Maybe [ModelPackageStatusItem]
$sel:validationStatuses:ModelPackageStatusDetails' :: ModelPackageStatusDetails -> [ModelPackageStatusItem]
$sel:imageScanStatuses:ModelPackageStatusDetails' :: ModelPackageStatusDetails -> Maybe [ModelPackageStatusItem]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ModelPackageStatusItem]
imageScanStatuses
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ModelPackageStatusItem]
validationStatuses