{-# 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.MonitoringScheduleSummary where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import Amazonka.SageMaker.Types.MonitoringType
import Amazonka.SageMaker.Types.ScheduleStatus
data MonitoringScheduleSummary = MonitoringScheduleSummary'
{
MonitoringScheduleSummary -> Maybe MonitoringType
monitoringType :: Prelude.Maybe MonitoringType,
MonitoringScheduleSummary -> Maybe Text
endpointName :: Prelude.Maybe Prelude.Text,
MonitoringScheduleSummary -> Maybe Text
monitoringJobDefinitionName :: Prelude.Maybe Prelude.Text,
MonitoringScheduleSummary -> Text
monitoringScheduleName :: Prelude.Text,
MonitoringScheduleSummary -> Text
monitoringScheduleArn :: Prelude.Text,
MonitoringScheduleSummary -> POSIX
creationTime :: Core.POSIX,
MonitoringScheduleSummary -> POSIX
lastModifiedTime :: Core.POSIX,
MonitoringScheduleSummary -> ScheduleStatus
monitoringScheduleStatus :: ScheduleStatus
}
deriving (MonitoringScheduleSummary -> MonitoringScheduleSummary -> Bool
(MonitoringScheduleSummary -> MonitoringScheduleSummary -> Bool)
-> (MonitoringScheduleSummary -> MonitoringScheduleSummary -> Bool)
-> Eq MonitoringScheduleSummary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MonitoringScheduleSummary -> MonitoringScheduleSummary -> Bool
$c/= :: MonitoringScheduleSummary -> MonitoringScheduleSummary -> Bool
== :: MonitoringScheduleSummary -> MonitoringScheduleSummary -> Bool
$c== :: MonitoringScheduleSummary -> MonitoringScheduleSummary -> Bool
Prelude.Eq, ReadPrec [MonitoringScheduleSummary]
ReadPrec MonitoringScheduleSummary
Int -> ReadS MonitoringScheduleSummary
ReadS [MonitoringScheduleSummary]
(Int -> ReadS MonitoringScheduleSummary)
-> ReadS [MonitoringScheduleSummary]
-> ReadPrec MonitoringScheduleSummary
-> ReadPrec [MonitoringScheduleSummary]
-> Read MonitoringScheduleSummary
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MonitoringScheduleSummary]
$creadListPrec :: ReadPrec [MonitoringScheduleSummary]
readPrec :: ReadPrec MonitoringScheduleSummary
$creadPrec :: ReadPrec MonitoringScheduleSummary
readList :: ReadS [MonitoringScheduleSummary]
$creadList :: ReadS [MonitoringScheduleSummary]
readsPrec :: Int -> ReadS MonitoringScheduleSummary
$creadsPrec :: Int -> ReadS MonitoringScheduleSummary
Prelude.Read, Int -> MonitoringScheduleSummary -> ShowS
[MonitoringScheduleSummary] -> ShowS
MonitoringScheduleSummary -> String
(Int -> MonitoringScheduleSummary -> ShowS)
-> (MonitoringScheduleSummary -> String)
-> ([MonitoringScheduleSummary] -> ShowS)
-> Show MonitoringScheduleSummary
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MonitoringScheduleSummary] -> ShowS
$cshowList :: [MonitoringScheduleSummary] -> ShowS
show :: MonitoringScheduleSummary -> String
$cshow :: MonitoringScheduleSummary -> String
showsPrec :: Int -> MonitoringScheduleSummary -> ShowS
$cshowsPrec :: Int -> MonitoringScheduleSummary -> ShowS
Prelude.Show, (forall x.
MonitoringScheduleSummary -> Rep MonitoringScheduleSummary x)
-> (forall x.
Rep MonitoringScheduleSummary x -> MonitoringScheduleSummary)
-> Generic MonitoringScheduleSummary
forall x.
Rep MonitoringScheduleSummary x -> MonitoringScheduleSummary
forall x.
MonitoringScheduleSummary -> Rep MonitoringScheduleSummary x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep MonitoringScheduleSummary x -> MonitoringScheduleSummary
$cfrom :: forall x.
MonitoringScheduleSummary -> Rep MonitoringScheduleSummary x
Prelude.Generic)
newMonitoringScheduleSummary ::
Prelude.Text ->
Prelude.Text ->
Prelude.UTCTime ->
Prelude.UTCTime ->
ScheduleStatus ->
MonitoringScheduleSummary
newMonitoringScheduleSummary :: Text
-> Text
-> UTCTime
-> UTCTime
-> ScheduleStatus
-> MonitoringScheduleSummary
newMonitoringScheduleSummary
Text
pMonitoringScheduleName_
Text
pMonitoringScheduleArn_
UTCTime
pCreationTime_
UTCTime
pLastModifiedTime_
ScheduleStatus
pMonitoringScheduleStatus_ =
MonitoringScheduleSummary' :: Maybe MonitoringType
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary
MonitoringScheduleSummary'
{ $sel:monitoringType:MonitoringScheduleSummary' :: Maybe MonitoringType
monitoringType =
Maybe MonitoringType
forall a. Maybe a
Prelude.Nothing,
$sel:endpointName:MonitoringScheduleSummary' :: Maybe Text
endpointName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:monitoringJobDefinitionName:MonitoringScheduleSummary' :: Maybe Text
monitoringJobDefinitionName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:monitoringScheduleName:MonitoringScheduleSummary' :: Text
monitoringScheduleName =
Text
pMonitoringScheduleName_,
$sel:monitoringScheduleArn:MonitoringScheduleSummary' :: Text
monitoringScheduleArn = Text
pMonitoringScheduleArn_,
$sel:creationTime:MonitoringScheduleSummary' :: POSIX
creationTime = Tagged UTCTime (Identity UTCTime) -> Tagged POSIX (Identity POSIX)
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time (Tagged UTCTime (Identity UTCTime)
-> Tagged POSIX (Identity POSIX))
-> UTCTime -> POSIX
forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreationTime_,
$sel:lastModifiedTime:MonitoringScheduleSummary' :: POSIX
lastModifiedTime =
Tagged UTCTime (Identity UTCTime) -> Tagged POSIX (Identity POSIX)
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time (Tagged UTCTime (Identity UTCTime)
-> Tagged POSIX (Identity POSIX))
-> UTCTime -> POSIX
forall t b. AReview t b -> b -> t
Lens.# UTCTime
pLastModifiedTime_,
$sel:monitoringScheduleStatus:MonitoringScheduleSummary' :: ScheduleStatus
monitoringScheduleStatus =
ScheduleStatus
pMonitoringScheduleStatus_
}
monitoringScheduleSummary_monitoringType :: Lens.Lens' MonitoringScheduleSummary (Prelude.Maybe MonitoringType)
monitoringScheduleSummary_monitoringType :: (Maybe MonitoringType -> f (Maybe MonitoringType))
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary
monitoringScheduleSummary_monitoringType = (MonitoringScheduleSummary -> Maybe MonitoringType)
-> (MonitoringScheduleSummary
-> Maybe MonitoringType -> MonitoringScheduleSummary)
-> Lens
MonitoringScheduleSummary
MonitoringScheduleSummary
(Maybe MonitoringType)
(Maybe MonitoringType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MonitoringScheduleSummary' {Maybe MonitoringType
monitoringType :: Maybe MonitoringType
$sel:monitoringType:MonitoringScheduleSummary' :: MonitoringScheduleSummary -> Maybe MonitoringType
monitoringType} -> Maybe MonitoringType
monitoringType) (\s :: MonitoringScheduleSummary
s@MonitoringScheduleSummary' {} Maybe MonitoringType
a -> MonitoringScheduleSummary
s {$sel:monitoringType:MonitoringScheduleSummary' :: Maybe MonitoringType
monitoringType = Maybe MonitoringType
a} :: MonitoringScheduleSummary)
monitoringScheduleSummary_endpointName :: Lens.Lens' MonitoringScheduleSummary (Prelude.Maybe Prelude.Text)
monitoringScheduleSummary_endpointName :: (Maybe Text -> f (Maybe Text))
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary
monitoringScheduleSummary_endpointName = (MonitoringScheduleSummary -> Maybe Text)
-> (MonitoringScheduleSummary
-> Maybe Text -> MonitoringScheduleSummary)
-> Lens
MonitoringScheduleSummary
MonitoringScheduleSummary
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MonitoringScheduleSummary' {Maybe Text
endpointName :: Maybe Text
$sel:endpointName:MonitoringScheduleSummary' :: MonitoringScheduleSummary -> Maybe Text
endpointName} -> Maybe Text
endpointName) (\s :: MonitoringScheduleSummary
s@MonitoringScheduleSummary' {} Maybe Text
a -> MonitoringScheduleSummary
s {$sel:endpointName:MonitoringScheduleSummary' :: Maybe Text
endpointName = Maybe Text
a} :: MonitoringScheduleSummary)
monitoringScheduleSummary_monitoringJobDefinitionName :: Lens.Lens' MonitoringScheduleSummary (Prelude.Maybe Prelude.Text)
monitoringScheduleSummary_monitoringJobDefinitionName :: (Maybe Text -> f (Maybe Text))
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary
monitoringScheduleSummary_monitoringJobDefinitionName = (MonitoringScheduleSummary -> Maybe Text)
-> (MonitoringScheduleSummary
-> Maybe Text -> MonitoringScheduleSummary)
-> Lens
MonitoringScheduleSummary
MonitoringScheduleSummary
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MonitoringScheduleSummary' {Maybe Text
monitoringJobDefinitionName :: Maybe Text
$sel:monitoringJobDefinitionName:MonitoringScheduleSummary' :: MonitoringScheduleSummary -> Maybe Text
monitoringJobDefinitionName} -> Maybe Text
monitoringJobDefinitionName) (\s :: MonitoringScheduleSummary
s@MonitoringScheduleSummary' {} Maybe Text
a -> MonitoringScheduleSummary
s {$sel:monitoringJobDefinitionName:MonitoringScheduleSummary' :: Maybe Text
monitoringJobDefinitionName = Maybe Text
a} :: MonitoringScheduleSummary)
monitoringScheduleSummary_monitoringScheduleName :: Lens.Lens' MonitoringScheduleSummary Prelude.Text
monitoringScheduleSummary_monitoringScheduleName :: (Text -> f Text)
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary
monitoringScheduleSummary_monitoringScheduleName = (MonitoringScheduleSummary -> Text)
-> (MonitoringScheduleSummary -> Text -> MonitoringScheduleSummary)
-> Lens
MonitoringScheduleSummary MonitoringScheduleSummary Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MonitoringScheduleSummary' {Text
monitoringScheduleName :: Text
$sel:monitoringScheduleName:MonitoringScheduleSummary' :: MonitoringScheduleSummary -> Text
monitoringScheduleName} -> Text
monitoringScheduleName) (\s :: MonitoringScheduleSummary
s@MonitoringScheduleSummary' {} Text
a -> MonitoringScheduleSummary
s {$sel:monitoringScheduleName:MonitoringScheduleSummary' :: Text
monitoringScheduleName = Text
a} :: MonitoringScheduleSummary)
monitoringScheduleSummary_monitoringScheduleArn :: Lens.Lens' MonitoringScheduleSummary Prelude.Text
monitoringScheduleSummary_monitoringScheduleArn :: (Text -> f Text)
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary
monitoringScheduleSummary_monitoringScheduleArn = (MonitoringScheduleSummary -> Text)
-> (MonitoringScheduleSummary -> Text -> MonitoringScheduleSummary)
-> Lens
MonitoringScheduleSummary MonitoringScheduleSummary Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MonitoringScheduleSummary' {Text
monitoringScheduleArn :: Text
$sel:monitoringScheduleArn:MonitoringScheduleSummary' :: MonitoringScheduleSummary -> Text
monitoringScheduleArn} -> Text
monitoringScheduleArn) (\s :: MonitoringScheduleSummary
s@MonitoringScheduleSummary' {} Text
a -> MonitoringScheduleSummary
s {$sel:monitoringScheduleArn:MonitoringScheduleSummary' :: Text
monitoringScheduleArn = Text
a} :: MonitoringScheduleSummary)
monitoringScheduleSummary_creationTime :: Lens.Lens' MonitoringScheduleSummary Prelude.UTCTime
monitoringScheduleSummary_creationTime :: (UTCTime -> f UTCTime)
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary
monitoringScheduleSummary_creationTime = (MonitoringScheduleSummary -> POSIX)
-> (MonitoringScheduleSummary
-> POSIX -> MonitoringScheduleSummary)
-> Lens
MonitoringScheduleSummary MonitoringScheduleSummary POSIX POSIX
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MonitoringScheduleSummary' {POSIX
creationTime :: POSIX
$sel:creationTime:MonitoringScheduleSummary' :: MonitoringScheduleSummary -> POSIX
creationTime} -> POSIX
creationTime) (\s :: MonitoringScheduleSummary
s@MonitoringScheduleSummary' {} POSIX
a -> MonitoringScheduleSummary
s {$sel:creationTime:MonitoringScheduleSummary' :: POSIX
creationTime = POSIX
a} :: MonitoringScheduleSummary) ((POSIX -> f POSIX)
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary)
-> ((UTCTime -> f UTCTime) -> POSIX -> f POSIX)
-> (UTCTime -> f UTCTime)
-> MonitoringScheduleSummary
-> f MonitoringScheduleSummary
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (UTCTime -> f UTCTime) -> POSIX -> f POSIX
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time
monitoringScheduleSummary_lastModifiedTime :: Lens.Lens' MonitoringScheduleSummary Prelude.UTCTime
monitoringScheduleSummary_lastModifiedTime :: (UTCTime -> f UTCTime)
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary
monitoringScheduleSummary_lastModifiedTime = (MonitoringScheduleSummary -> POSIX)
-> (MonitoringScheduleSummary
-> POSIX -> MonitoringScheduleSummary)
-> Lens
MonitoringScheduleSummary MonitoringScheduleSummary POSIX POSIX
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MonitoringScheduleSummary' {POSIX
lastModifiedTime :: POSIX
$sel:lastModifiedTime:MonitoringScheduleSummary' :: MonitoringScheduleSummary -> POSIX
lastModifiedTime} -> POSIX
lastModifiedTime) (\s :: MonitoringScheduleSummary
s@MonitoringScheduleSummary' {} POSIX
a -> MonitoringScheduleSummary
s {$sel:lastModifiedTime:MonitoringScheduleSummary' :: POSIX
lastModifiedTime = POSIX
a} :: MonitoringScheduleSummary) ((POSIX -> f POSIX)
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary)
-> ((UTCTime -> f UTCTime) -> POSIX -> f POSIX)
-> (UTCTime -> f UTCTime)
-> MonitoringScheduleSummary
-> f MonitoringScheduleSummary
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (UTCTime -> f UTCTime) -> POSIX -> f POSIX
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time
monitoringScheduleSummary_monitoringScheduleStatus :: Lens.Lens' MonitoringScheduleSummary ScheduleStatus
monitoringScheduleSummary_monitoringScheduleStatus :: (ScheduleStatus -> f ScheduleStatus)
-> MonitoringScheduleSummary -> f MonitoringScheduleSummary
monitoringScheduleSummary_monitoringScheduleStatus = (MonitoringScheduleSummary -> ScheduleStatus)
-> (MonitoringScheduleSummary
-> ScheduleStatus -> MonitoringScheduleSummary)
-> Lens
MonitoringScheduleSummary
MonitoringScheduleSummary
ScheduleStatus
ScheduleStatus
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MonitoringScheduleSummary' {ScheduleStatus
monitoringScheduleStatus :: ScheduleStatus
$sel:monitoringScheduleStatus:MonitoringScheduleSummary' :: MonitoringScheduleSummary -> ScheduleStatus
monitoringScheduleStatus} -> ScheduleStatus
monitoringScheduleStatus) (\s :: MonitoringScheduleSummary
s@MonitoringScheduleSummary' {} ScheduleStatus
a -> MonitoringScheduleSummary
s {$sel:monitoringScheduleStatus:MonitoringScheduleSummary' :: ScheduleStatus
monitoringScheduleStatus = ScheduleStatus
a} :: MonitoringScheduleSummary)
instance Core.FromJSON MonitoringScheduleSummary where
parseJSON :: Value -> Parser MonitoringScheduleSummary
parseJSON =
String
-> (Object -> Parser MonitoringScheduleSummary)
-> Value
-> Parser MonitoringScheduleSummary
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
String
"MonitoringScheduleSummary"
( \Object
x ->
Maybe MonitoringType
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary
MonitoringScheduleSummary'
(Maybe MonitoringType
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary)
-> Parser (Maybe MonitoringType)
-> Parser
(Maybe Text
-> Maybe Text
-> Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe MonitoringType)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"MonitoringType")
Parser
(Maybe Text
-> Maybe Text
-> Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"EndpointName")
Parser
(Maybe Text
-> Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary)
-> Parser (Maybe Text)
-> Parser
(Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"MonitoringJobDefinitionName")
Parser
(Text
-> Text
-> POSIX
-> POSIX
-> ScheduleStatus
-> MonitoringScheduleSummary)
-> Parser Text
-> Parser
(Text
-> POSIX -> POSIX -> ScheduleStatus -> MonitoringScheduleSummary)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Core..: Text
"MonitoringScheduleName")
Parser
(Text
-> POSIX -> POSIX -> ScheduleStatus -> MonitoringScheduleSummary)
-> Parser Text
-> Parser
(POSIX -> POSIX -> ScheduleStatus -> MonitoringScheduleSummary)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Core..: Text
"MonitoringScheduleArn")
Parser
(POSIX -> POSIX -> ScheduleStatus -> MonitoringScheduleSummary)
-> Parser POSIX
-> Parser (POSIX -> ScheduleStatus -> MonitoringScheduleSummary)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser POSIX
forall a. FromJSON a => Object -> Text -> Parser a
Core..: Text
"CreationTime")
Parser (POSIX -> ScheduleStatus -> MonitoringScheduleSummary)
-> Parser POSIX
-> Parser (ScheduleStatus -> MonitoringScheduleSummary)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser POSIX
forall a. FromJSON a => Object -> Text -> Parser a
Core..: Text
"LastModifiedTime")
Parser (ScheduleStatus -> MonitoringScheduleSummary)
-> Parser ScheduleStatus -> Parser MonitoringScheduleSummary
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser ScheduleStatus
forall a. FromJSON a => Object -> Text -> Parser a
Core..: Text
"MonitoringScheduleStatus")
)
instance Prelude.Hashable MonitoringScheduleSummary
instance Prelude.NFData MonitoringScheduleSummary