{-# 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.UpdateMonitoringSchedule
(
UpdateMonitoringSchedule (..),
newUpdateMonitoringSchedule,
updateMonitoringSchedule_monitoringScheduleName,
updateMonitoringSchedule_monitoringScheduleConfig,
UpdateMonitoringScheduleResponse (..),
newUpdateMonitoringScheduleResponse,
updateMonitoringScheduleResponse_httpStatus,
updateMonitoringScheduleResponse_monitoringScheduleArn,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SageMaker.Types
data UpdateMonitoringSchedule = UpdateMonitoringSchedule'
{
UpdateMonitoringSchedule -> Text
monitoringScheduleName :: Prelude.Text,
UpdateMonitoringSchedule -> MonitoringScheduleConfig
monitoringScheduleConfig :: MonitoringScheduleConfig
}
deriving (UpdateMonitoringSchedule -> UpdateMonitoringSchedule -> Bool
(UpdateMonitoringSchedule -> UpdateMonitoringSchedule -> Bool)
-> (UpdateMonitoringSchedule -> UpdateMonitoringSchedule -> Bool)
-> Eq UpdateMonitoringSchedule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateMonitoringSchedule -> UpdateMonitoringSchedule -> Bool
$c/= :: UpdateMonitoringSchedule -> UpdateMonitoringSchedule -> Bool
== :: UpdateMonitoringSchedule -> UpdateMonitoringSchedule -> Bool
$c== :: UpdateMonitoringSchedule -> UpdateMonitoringSchedule -> Bool
Prelude.Eq, ReadPrec [UpdateMonitoringSchedule]
ReadPrec UpdateMonitoringSchedule
Int -> ReadS UpdateMonitoringSchedule
ReadS [UpdateMonitoringSchedule]
(Int -> ReadS UpdateMonitoringSchedule)
-> ReadS [UpdateMonitoringSchedule]
-> ReadPrec UpdateMonitoringSchedule
-> ReadPrec [UpdateMonitoringSchedule]
-> Read UpdateMonitoringSchedule
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateMonitoringSchedule]
$creadListPrec :: ReadPrec [UpdateMonitoringSchedule]
readPrec :: ReadPrec UpdateMonitoringSchedule
$creadPrec :: ReadPrec UpdateMonitoringSchedule
readList :: ReadS [UpdateMonitoringSchedule]
$creadList :: ReadS [UpdateMonitoringSchedule]
readsPrec :: Int -> ReadS UpdateMonitoringSchedule
$creadsPrec :: Int -> ReadS UpdateMonitoringSchedule
Prelude.Read, Int -> UpdateMonitoringSchedule -> ShowS
[UpdateMonitoringSchedule] -> ShowS
UpdateMonitoringSchedule -> String
(Int -> UpdateMonitoringSchedule -> ShowS)
-> (UpdateMonitoringSchedule -> String)
-> ([UpdateMonitoringSchedule] -> ShowS)
-> Show UpdateMonitoringSchedule
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateMonitoringSchedule] -> ShowS
$cshowList :: [UpdateMonitoringSchedule] -> ShowS
show :: UpdateMonitoringSchedule -> String
$cshow :: UpdateMonitoringSchedule -> String
showsPrec :: Int -> UpdateMonitoringSchedule -> ShowS
$cshowsPrec :: Int -> UpdateMonitoringSchedule -> ShowS
Prelude.Show, (forall x.
UpdateMonitoringSchedule -> Rep UpdateMonitoringSchedule x)
-> (forall x.
Rep UpdateMonitoringSchedule x -> UpdateMonitoringSchedule)
-> Generic UpdateMonitoringSchedule
forall x.
Rep UpdateMonitoringSchedule x -> UpdateMonitoringSchedule
forall x.
UpdateMonitoringSchedule -> Rep UpdateMonitoringSchedule x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateMonitoringSchedule x -> UpdateMonitoringSchedule
$cfrom :: forall x.
UpdateMonitoringSchedule -> Rep UpdateMonitoringSchedule x
Prelude.Generic)
newUpdateMonitoringSchedule ::
Prelude.Text ->
MonitoringScheduleConfig ->
UpdateMonitoringSchedule
newUpdateMonitoringSchedule :: Text -> MonitoringScheduleConfig -> UpdateMonitoringSchedule
newUpdateMonitoringSchedule
Text
pMonitoringScheduleName_
MonitoringScheduleConfig
pMonitoringScheduleConfig_ =
UpdateMonitoringSchedule' :: Text -> MonitoringScheduleConfig -> UpdateMonitoringSchedule
UpdateMonitoringSchedule'
{ $sel:monitoringScheduleName:UpdateMonitoringSchedule' :: Text
monitoringScheduleName =
Text
pMonitoringScheduleName_,
$sel:monitoringScheduleConfig:UpdateMonitoringSchedule' :: MonitoringScheduleConfig
monitoringScheduleConfig =
MonitoringScheduleConfig
pMonitoringScheduleConfig_
}
updateMonitoringSchedule_monitoringScheduleName :: Lens.Lens' UpdateMonitoringSchedule Prelude.Text
updateMonitoringSchedule_monitoringScheduleName :: (Text -> f Text)
-> UpdateMonitoringSchedule -> f UpdateMonitoringSchedule
updateMonitoringSchedule_monitoringScheduleName = (UpdateMonitoringSchedule -> Text)
-> (UpdateMonitoringSchedule -> Text -> UpdateMonitoringSchedule)
-> Lens UpdateMonitoringSchedule UpdateMonitoringSchedule Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateMonitoringSchedule' {Text
monitoringScheduleName :: Text
$sel:monitoringScheduleName:UpdateMonitoringSchedule' :: UpdateMonitoringSchedule -> Text
monitoringScheduleName} -> Text
monitoringScheduleName) (\s :: UpdateMonitoringSchedule
s@UpdateMonitoringSchedule' {} Text
a -> UpdateMonitoringSchedule
s {$sel:monitoringScheduleName:UpdateMonitoringSchedule' :: Text
monitoringScheduleName = Text
a} :: UpdateMonitoringSchedule)
updateMonitoringSchedule_monitoringScheduleConfig :: Lens.Lens' UpdateMonitoringSchedule MonitoringScheduleConfig
updateMonitoringSchedule_monitoringScheduleConfig :: (MonitoringScheduleConfig -> f MonitoringScheduleConfig)
-> UpdateMonitoringSchedule -> f UpdateMonitoringSchedule
updateMonitoringSchedule_monitoringScheduleConfig = (UpdateMonitoringSchedule -> MonitoringScheduleConfig)
-> (UpdateMonitoringSchedule
-> MonitoringScheduleConfig -> UpdateMonitoringSchedule)
-> Lens
UpdateMonitoringSchedule
UpdateMonitoringSchedule
MonitoringScheduleConfig
MonitoringScheduleConfig
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateMonitoringSchedule' {MonitoringScheduleConfig
monitoringScheduleConfig :: MonitoringScheduleConfig
$sel:monitoringScheduleConfig:UpdateMonitoringSchedule' :: UpdateMonitoringSchedule -> MonitoringScheduleConfig
monitoringScheduleConfig} -> MonitoringScheduleConfig
monitoringScheduleConfig) (\s :: UpdateMonitoringSchedule
s@UpdateMonitoringSchedule' {} MonitoringScheduleConfig
a -> UpdateMonitoringSchedule
s {$sel:monitoringScheduleConfig:UpdateMonitoringSchedule' :: MonitoringScheduleConfig
monitoringScheduleConfig = MonitoringScheduleConfig
a} :: UpdateMonitoringSchedule)
instance Core.AWSRequest UpdateMonitoringSchedule where
type
AWSResponse UpdateMonitoringSchedule =
UpdateMonitoringScheduleResponse
request :: UpdateMonitoringSchedule -> Request UpdateMonitoringSchedule
request = Service
-> UpdateMonitoringSchedule -> Request UpdateMonitoringSchedule
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy UpdateMonitoringSchedule
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateMonitoringSchedule)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse UpdateMonitoringSchedule))
-> Logger
-> Service
-> Proxy UpdateMonitoringSchedule
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateMonitoringSchedule)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int -> Text -> UpdateMonitoringScheduleResponse
UpdateMonitoringScheduleResponse'
(Int -> Text -> UpdateMonitoringScheduleResponse)
-> Either String Int
-> Either String (Text -> UpdateMonitoringScheduleResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
Either String (Text -> UpdateMonitoringScheduleResponse)
-> Either String Text
-> Either String UpdateMonitoringScheduleResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String Text
forall a. FromJSON a => Object -> Text -> Either String a
Core..:> Text
"MonitoringScheduleArn")
)
instance Prelude.Hashable UpdateMonitoringSchedule
instance Prelude.NFData UpdateMonitoringSchedule
instance Core.ToHeaders UpdateMonitoringSchedule where
toHeaders :: UpdateMonitoringSchedule -> ResponseHeaders
toHeaders =
ResponseHeaders -> UpdateMonitoringSchedule -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"SageMaker.UpdateMonitoringSchedule" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Core.ToJSON UpdateMonitoringSchedule where
toJSON :: UpdateMonitoringSchedule -> Value
toJSON UpdateMonitoringSchedule' {Text
MonitoringScheduleConfig
monitoringScheduleConfig :: MonitoringScheduleConfig
monitoringScheduleName :: Text
$sel:monitoringScheduleConfig:UpdateMonitoringSchedule' :: UpdateMonitoringSchedule -> MonitoringScheduleConfig
$sel:monitoringScheduleName:UpdateMonitoringSchedule' :: UpdateMonitoringSchedule -> Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"MonitoringScheduleName"
Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
monitoringScheduleName
),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"MonitoringScheduleConfig"
Text -> MonitoringScheduleConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= MonitoringScheduleConfig
monitoringScheduleConfig
)
]
)
instance Core.ToPath UpdateMonitoringSchedule where
toPath :: UpdateMonitoringSchedule -> ByteString
toPath = ByteString -> UpdateMonitoringSchedule -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Core.ToQuery UpdateMonitoringSchedule where
toQuery :: UpdateMonitoringSchedule -> QueryString
toQuery = QueryString -> UpdateMonitoringSchedule -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data UpdateMonitoringScheduleResponse = UpdateMonitoringScheduleResponse'
{
UpdateMonitoringScheduleResponse -> Int
httpStatus :: Prelude.Int,
UpdateMonitoringScheduleResponse -> Text
monitoringScheduleArn :: Prelude.Text
}
deriving (UpdateMonitoringScheduleResponse
-> UpdateMonitoringScheduleResponse -> Bool
(UpdateMonitoringScheduleResponse
-> UpdateMonitoringScheduleResponse -> Bool)
-> (UpdateMonitoringScheduleResponse
-> UpdateMonitoringScheduleResponse -> Bool)
-> Eq UpdateMonitoringScheduleResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateMonitoringScheduleResponse
-> UpdateMonitoringScheduleResponse -> Bool
$c/= :: UpdateMonitoringScheduleResponse
-> UpdateMonitoringScheduleResponse -> Bool
== :: UpdateMonitoringScheduleResponse
-> UpdateMonitoringScheduleResponse -> Bool
$c== :: UpdateMonitoringScheduleResponse
-> UpdateMonitoringScheduleResponse -> Bool
Prelude.Eq, ReadPrec [UpdateMonitoringScheduleResponse]
ReadPrec UpdateMonitoringScheduleResponse
Int -> ReadS UpdateMonitoringScheduleResponse
ReadS [UpdateMonitoringScheduleResponse]
(Int -> ReadS UpdateMonitoringScheduleResponse)
-> ReadS [UpdateMonitoringScheduleResponse]
-> ReadPrec UpdateMonitoringScheduleResponse
-> ReadPrec [UpdateMonitoringScheduleResponse]
-> Read UpdateMonitoringScheduleResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateMonitoringScheduleResponse]
$creadListPrec :: ReadPrec [UpdateMonitoringScheduleResponse]
readPrec :: ReadPrec UpdateMonitoringScheduleResponse
$creadPrec :: ReadPrec UpdateMonitoringScheduleResponse
readList :: ReadS [UpdateMonitoringScheduleResponse]
$creadList :: ReadS [UpdateMonitoringScheduleResponse]
readsPrec :: Int -> ReadS UpdateMonitoringScheduleResponse
$creadsPrec :: Int -> ReadS UpdateMonitoringScheduleResponse
Prelude.Read, Int -> UpdateMonitoringScheduleResponse -> ShowS
[UpdateMonitoringScheduleResponse] -> ShowS
UpdateMonitoringScheduleResponse -> String
(Int -> UpdateMonitoringScheduleResponse -> ShowS)
-> (UpdateMonitoringScheduleResponse -> String)
-> ([UpdateMonitoringScheduleResponse] -> ShowS)
-> Show UpdateMonitoringScheduleResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateMonitoringScheduleResponse] -> ShowS
$cshowList :: [UpdateMonitoringScheduleResponse] -> ShowS
show :: UpdateMonitoringScheduleResponse -> String
$cshow :: UpdateMonitoringScheduleResponse -> String
showsPrec :: Int -> UpdateMonitoringScheduleResponse -> ShowS
$cshowsPrec :: Int -> UpdateMonitoringScheduleResponse -> ShowS
Prelude.Show, (forall x.
UpdateMonitoringScheduleResponse
-> Rep UpdateMonitoringScheduleResponse x)
-> (forall x.
Rep UpdateMonitoringScheduleResponse x
-> UpdateMonitoringScheduleResponse)
-> Generic UpdateMonitoringScheduleResponse
forall x.
Rep UpdateMonitoringScheduleResponse x
-> UpdateMonitoringScheduleResponse
forall x.
UpdateMonitoringScheduleResponse
-> Rep UpdateMonitoringScheduleResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateMonitoringScheduleResponse x
-> UpdateMonitoringScheduleResponse
$cfrom :: forall x.
UpdateMonitoringScheduleResponse
-> Rep UpdateMonitoringScheduleResponse x
Prelude.Generic)
newUpdateMonitoringScheduleResponse ::
Prelude.Int ->
Prelude.Text ->
UpdateMonitoringScheduleResponse
newUpdateMonitoringScheduleResponse :: Int -> Text -> UpdateMonitoringScheduleResponse
newUpdateMonitoringScheduleResponse
Int
pHttpStatus_
Text
pMonitoringScheduleArn_ =
UpdateMonitoringScheduleResponse' :: Int -> Text -> UpdateMonitoringScheduleResponse
UpdateMonitoringScheduleResponse'
{ $sel:httpStatus:UpdateMonitoringScheduleResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:monitoringScheduleArn:UpdateMonitoringScheduleResponse' :: Text
monitoringScheduleArn =
Text
pMonitoringScheduleArn_
}
updateMonitoringScheduleResponse_httpStatus :: Lens.Lens' UpdateMonitoringScheduleResponse Prelude.Int
updateMonitoringScheduleResponse_httpStatus :: (Int -> f Int)
-> UpdateMonitoringScheduleResponse
-> f UpdateMonitoringScheduleResponse
updateMonitoringScheduleResponse_httpStatus = (UpdateMonitoringScheduleResponse -> Int)
-> (UpdateMonitoringScheduleResponse
-> Int -> UpdateMonitoringScheduleResponse)
-> Lens
UpdateMonitoringScheduleResponse
UpdateMonitoringScheduleResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateMonitoringScheduleResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateMonitoringScheduleResponse' :: UpdateMonitoringScheduleResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateMonitoringScheduleResponse
s@UpdateMonitoringScheduleResponse' {} Int
a -> UpdateMonitoringScheduleResponse
s {$sel:httpStatus:UpdateMonitoringScheduleResponse' :: Int
httpStatus = Int
a} :: UpdateMonitoringScheduleResponse)
updateMonitoringScheduleResponse_monitoringScheduleArn :: Lens.Lens' UpdateMonitoringScheduleResponse Prelude.Text
updateMonitoringScheduleResponse_monitoringScheduleArn :: (Text -> f Text)
-> UpdateMonitoringScheduleResponse
-> f UpdateMonitoringScheduleResponse
updateMonitoringScheduleResponse_monitoringScheduleArn = (UpdateMonitoringScheduleResponse -> Text)
-> (UpdateMonitoringScheduleResponse
-> Text -> UpdateMonitoringScheduleResponse)
-> Lens
UpdateMonitoringScheduleResponse
UpdateMonitoringScheduleResponse
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateMonitoringScheduleResponse' {Text
monitoringScheduleArn :: Text
$sel:monitoringScheduleArn:UpdateMonitoringScheduleResponse' :: UpdateMonitoringScheduleResponse -> Text
monitoringScheduleArn} -> Text
monitoringScheduleArn) (\s :: UpdateMonitoringScheduleResponse
s@UpdateMonitoringScheduleResponse' {} Text
a -> UpdateMonitoringScheduleResponse
s {$sel:monitoringScheduleArn:UpdateMonitoringScheduleResponse' :: Text
monitoringScheduleArn = Text
a} :: UpdateMonitoringScheduleResponse)
instance
Prelude.NFData
UpdateMonitoringScheduleResponse