{-# 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.Scheduler.UpdateSchedule
(
UpdateSchedule (..),
newUpdateSchedule,
updateSchedule_clientToken,
updateSchedule_description,
updateSchedule_endDate,
updateSchedule_groupName,
updateSchedule_kmsKeyArn,
updateSchedule_scheduleExpressionTimezone,
updateSchedule_startDate,
updateSchedule_state,
updateSchedule_flexibleTimeWindow,
updateSchedule_name,
updateSchedule_scheduleExpression,
updateSchedule_target,
UpdateScheduleResponse (..),
newUpdateScheduleResponse,
updateScheduleResponse_httpStatus,
updateScheduleResponse_scheduleArn,
)
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Scheduler.Types
data UpdateSchedule = UpdateSchedule'
{
UpdateSchedule -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
UpdateSchedule -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
UpdateSchedule -> Maybe POSIX
endDate :: Prelude.Maybe Data.POSIX,
UpdateSchedule -> Maybe Text
groupName :: Prelude.Maybe Prelude.Text,
UpdateSchedule -> Maybe Text
kmsKeyArn :: Prelude.Maybe Prelude.Text,
UpdateSchedule -> Maybe Text
scheduleExpressionTimezone :: Prelude.Maybe Prelude.Text,
UpdateSchedule -> Maybe POSIX
startDate :: Prelude.Maybe Data.POSIX,
UpdateSchedule -> Maybe ScheduleState
state :: Prelude.Maybe ScheduleState,
UpdateSchedule -> FlexibleTimeWindow
flexibleTimeWindow :: FlexibleTimeWindow,
UpdateSchedule -> Text
name :: Prelude.Text,
UpdateSchedule -> Text
scheduleExpression :: Prelude.Text,
UpdateSchedule -> Target
target :: Target
}
deriving (UpdateSchedule -> UpdateSchedule -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateSchedule -> UpdateSchedule -> Bool
$c/= :: UpdateSchedule -> UpdateSchedule -> Bool
== :: UpdateSchedule -> UpdateSchedule -> Bool
$c== :: UpdateSchedule -> UpdateSchedule -> Bool
Prelude.Eq, ReadPrec [UpdateSchedule]
ReadPrec UpdateSchedule
Int -> ReadS UpdateSchedule
ReadS [UpdateSchedule]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateSchedule]
$creadListPrec :: ReadPrec [UpdateSchedule]
readPrec :: ReadPrec UpdateSchedule
$creadPrec :: ReadPrec UpdateSchedule
readList :: ReadS [UpdateSchedule]
$creadList :: ReadS [UpdateSchedule]
readsPrec :: Int -> ReadS UpdateSchedule
$creadsPrec :: Int -> ReadS UpdateSchedule
Prelude.Read, Int -> UpdateSchedule -> ShowS
[UpdateSchedule] -> ShowS
UpdateSchedule -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateSchedule] -> ShowS
$cshowList :: [UpdateSchedule] -> ShowS
show :: UpdateSchedule -> String
$cshow :: UpdateSchedule -> String
showsPrec :: Int -> UpdateSchedule -> ShowS
$cshowsPrec :: Int -> UpdateSchedule -> ShowS
Prelude.Show, forall x. Rep UpdateSchedule x -> UpdateSchedule
forall x. UpdateSchedule -> Rep UpdateSchedule x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateSchedule x -> UpdateSchedule
$cfrom :: forall x. UpdateSchedule -> Rep UpdateSchedule x
Prelude.Generic)
newUpdateSchedule ::
FlexibleTimeWindow ->
Prelude.Text ->
Prelude.Text ->
Target ->
UpdateSchedule
newUpdateSchedule :: FlexibleTimeWindow -> Text -> Text -> Target -> UpdateSchedule
newUpdateSchedule
FlexibleTimeWindow
pFlexibleTimeWindow_
Text
pName_
Text
pScheduleExpression_
Target
pTarget_ =
UpdateSchedule'
{ $sel:clientToken:UpdateSchedule' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
$sel:description:UpdateSchedule' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:endDate:UpdateSchedule' :: Maybe POSIX
endDate = forall a. Maybe a
Prelude.Nothing,
$sel:groupName:UpdateSchedule' :: Maybe Text
groupName = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyArn:UpdateSchedule' :: Maybe Text
kmsKeyArn = forall a. Maybe a
Prelude.Nothing,
$sel:scheduleExpressionTimezone:UpdateSchedule' :: Maybe Text
scheduleExpressionTimezone = forall a. Maybe a
Prelude.Nothing,
$sel:startDate:UpdateSchedule' :: Maybe POSIX
startDate = forall a. Maybe a
Prelude.Nothing,
$sel:state:UpdateSchedule' :: Maybe ScheduleState
state = forall a. Maybe a
Prelude.Nothing,
$sel:flexibleTimeWindow:UpdateSchedule' :: FlexibleTimeWindow
flexibleTimeWindow = FlexibleTimeWindow
pFlexibleTimeWindow_,
$sel:name:UpdateSchedule' :: Text
name = Text
pName_,
$sel:scheduleExpression:UpdateSchedule' :: Text
scheduleExpression = Text
pScheduleExpression_,
$sel:target:UpdateSchedule' :: Target
target = Target
pTarget_
}
updateSchedule_clientToken :: Lens.Lens' UpdateSchedule (Prelude.Maybe Prelude.Text)
updateSchedule_clientToken :: Lens' UpdateSchedule (Maybe Text)
updateSchedule_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:UpdateSchedule' :: UpdateSchedule -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: UpdateSchedule
s@UpdateSchedule' {} Maybe Text
a -> UpdateSchedule
s {$sel:clientToken:UpdateSchedule' :: Maybe Text
clientToken = Maybe Text
a} :: UpdateSchedule)
updateSchedule_description :: Lens.Lens' UpdateSchedule (Prelude.Maybe Prelude.Text)
updateSchedule_description :: Lens' UpdateSchedule (Maybe Text)
updateSchedule_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Maybe Text
description :: Maybe Text
$sel:description:UpdateSchedule' :: UpdateSchedule -> Maybe Text
description} -> Maybe Text
description) (\s :: UpdateSchedule
s@UpdateSchedule' {} Maybe Text
a -> UpdateSchedule
s {$sel:description:UpdateSchedule' :: Maybe Text
description = Maybe Text
a} :: UpdateSchedule)
updateSchedule_endDate :: Lens.Lens' UpdateSchedule (Prelude.Maybe Prelude.UTCTime)
updateSchedule_endDate :: Lens' UpdateSchedule (Maybe UTCTime)
updateSchedule_endDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Maybe POSIX
endDate :: Maybe POSIX
$sel:endDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
endDate} -> Maybe POSIX
endDate) (\s :: UpdateSchedule
s@UpdateSchedule' {} Maybe POSIX
a -> UpdateSchedule
s {$sel:endDate:UpdateSchedule' :: Maybe POSIX
endDate = Maybe POSIX
a} :: UpdateSchedule) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateSchedule_groupName :: Lens.Lens' UpdateSchedule (Prelude.Maybe Prelude.Text)
updateSchedule_groupName :: Lens' UpdateSchedule (Maybe Text)
updateSchedule_groupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Maybe Text
groupName :: Maybe Text
$sel:groupName:UpdateSchedule' :: UpdateSchedule -> Maybe Text
groupName} -> Maybe Text
groupName) (\s :: UpdateSchedule
s@UpdateSchedule' {} Maybe Text
a -> UpdateSchedule
s {$sel:groupName:UpdateSchedule' :: Maybe Text
groupName = Maybe Text
a} :: UpdateSchedule)
updateSchedule_kmsKeyArn :: Lens.Lens' UpdateSchedule (Prelude.Maybe Prelude.Text)
updateSchedule_kmsKeyArn :: Lens' UpdateSchedule (Maybe Text)
updateSchedule_kmsKeyArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Maybe Text
kmsKeyArn :: Maybe Text
$sel:kmsKeyArn:UpdateSchedule' :: UpdateSchedule -> Maybe Text
kmsKeyArn} -> Maybe Text
kmsKeyArn) (\s :: UpdateSchedule
s@UpdateSchedule' {} Maybe Text
a -> UpdateSchedule
s {$sel:kmsKeyArn:UpdateSchedule' :: Maybe Text
kmsKeyArn = Maybe Text
a} :: UpdateSchedule)
updateSchedule_scheduleExpressionTimezone :: Lens.Lens' UpdateSchedule (Prelude.Maybe Prelude.Text)
updateSchedule_scheduleExpressionTimezone :: Lens' UpdateSchedule (Maybe Text)
updateSchedule_scheduleExpressionTimezone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Maybe Text
scheduleExpressionTimezone :: Maybe Text
$sel:scheduleExpressionTimezone:UpdateSchedule' :: UpdateSchedule -> Maybe Text
scheduleExpressionTimezone} -> Maybe Text
scheduleExpressionTimezone) (\s :: UpdateSchedule
s@UpdateSchedule' {} Maybe Text
a -> UpdateSchedule
s {$sel:scheduleExpressionTimezone:UpdateSchedule' :: Maybe Text
scheduleExpressionTimezone = Maybe Text
a} :: UpdateSchedule)
updateSchedule_startDate :: Lens.Lens' UpdateSchedule (Prelude.Maybe Prelude.UTCTime)
updateSchedule_startDate :: Lens' UpdateSchedule (Maybe UTCTime)
updateSchedule_startDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Maybe POSIX
startDate :: Maybe POSIX
$sel:startDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
startDate} -> Maybe POSIX
startDate) (\s :: UpdateSchedule
s@UpdateSchedule' {} Maybe POSIX
a -> UpdateSchedule
s {$sel:startDate:UpdateSchedule' :: Maybe POSIX
startDate = Maybe POSIX
a} :: UpdateSchedule) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateSchedule_state :: Lens.Lens' UpdateSchedule (Prelude.Maybe ScheduleState)
updateSchedule_state :: Lens' UpdateSchedule (Maybe ScheduleState)
updateSchedule_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Maybe ScheduleState
state :: Maybe ScheduleState
$sel:state:UpdateSchedule' :: UpdateSchedule -> Maybe ScheduleState
state} -> Maybe ScheduleState
state) (\s :: UpdateSchedule
s@UpdateSchedule' {} Maybe ScheduleState
a -> UpdateSchedule
s {$sel:state:UpdateSchedule' :: Maybe ScheduleState
state = Maybe ScheduleState
a} :: UpdateSchedule)
updateSchedule_flexibleTimeWindow :: Lens.Lens' UpdateSchedule FlexibleTimeWindow
updateSchedule_flexibleTimeWindow :: Lens' UpdateSchedule FlexibleTimeWindow
updateSchedule_flexibleTimeWindow = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {FlexibleTimeWindow
flexibleTimeWindow :: FlexibleTimeWindow
$sel:flexibleTimeWindow:UpdateSchedule' :: UpdateSchedule -> FlexibleTimeWindow
flexibleTimeWindow} -> FlexibleTimeWindow
flexibleTimeWindow) (\s :: UpdateSchedule
s@UpdateSchedule' {} FlexibleTimeWindow
a -> UpdateSchedule
s {$sel:flexibleTimeWindow:UpdateSchedule' :: FlexibleTimeWindow
flexibleTimeWindow = FlexibleTimeWindow
a} :: UpdateSchedule)
updateSchedule_name :: Lens.Lens' UpdateSchedule Prelude.Text
updateSchedule_name :: Lens' UpdateSchedule Text
updateSchedule_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Text
name :: Text
$sel:name:UpdateSchedule' :: UpdateSchedule -> Text
name} -> Text
name) (\s :: UpdateSchedule
s@UpdateSchedule' {} Text
a -> UpdateSchedule
s {$sel:name:UpdateSchedule' :: Text
name = Text
a} :: UpdateSchedule)
updateSchedule_scheduleExpression :: Lens.Lens' UpdateSchedule Prelude.Text
updateSchedule_scheduleExpression :: Lens' UpdateSchedule Text
updateSchedule_scheduleExpression = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Text
scheduleExpression :: Text
$sel:scheduleExpression:UpdateSchedule' :: UpdateSchedule -> Text
scheduleExpression} -> Text
scheduleExpression) (\s :: UpdateSchedule
s@UpdateSchedule' {} Text
a -> UpdateSchedule
s {$sel:scheduleExpression:UpdateSchedule' :: Text
scheduleExpression = Text
a} :: UpdateSchedule)
updateSchedule_target :: Lens.Lens' UpdateSchedule Target
updateSchedule_target :: Lens' UpdateSchedule Target
updateSchedule_target = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSchedule' {Target
target :: Target
$sel:target:UpdateSchedule' :: UpdateSchedule -> Target
target} -> Target
target) (\s :: UpdateSchedule
s@UpdateSchedule' {} Target
a -> UpdateSchedule
s {$sel:target:UpdateSchedule' :: Target
target = Target
a} :: UpdateSchedule)
instance Core.AWSRequest UpdateSchedule where
type
AWSResponse UpdateSchedule =
UpdateScheduleResponse
request :: (Service -> Service) -> UpdateSchedule -> Request UpdateSchedule
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateSchedule
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateSchedule)))
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 ->
Int -> Text -> UpdateScheduleResponse
UpdateScheduleResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ScheduleArn")
)
instance Prelude.Hashable UpdateSchedule where
hashWithSalt :: Int -> UpdateSchedule -> Int
hashWithSalt Int
_salt UpdateSchedule' {Maybe Text
Maybe POSIX
Maybe ScheduleState
Text
FlexibleTimeWindow
Target
target :: Target
scheduleExpression :: Text
name :: Text
flexibleTimeWindow :: FlexibleTimeWindow
state :: Maybe ScheduleState
startDate :: Maybe POSIX
scheduleExpressionTimezone :: Maybe Text
kmsKeyArn :: Maybe Text
groupName :: Maybe Text
endDate :: Maybe POSIX
description :: Maybe Text
clientToken :: Maybe Text
$sel:target:UpdateSchedule' :: UpdateSchedule -> Target
$sel:scheduleExpression:UpdateSchedule' :: UpdateSchedule -> Text
$sel:name:UpdateSchedule' :: UpdateSchedule -> Text
$sel:flexibleTimeWindow:UpdateSchedule' :: UpdateSchedule -> FlexibleTimeWindow
$sel:state:UpdateSchedule' :: UpdateSchedule -> Maybe ScheduleState
$sel:startDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
$sel:scheduleExpressionTimezone:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:kmsKeyArn:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:groupName:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:endDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
$sel:description:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:clientToken:UpdateSchedule' :: UpdateSchedule -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
endDate
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
groupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
scheduleExpressionTimezone
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
startDate
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ScheduleState
state
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` FlexibleTimeWindow
flexibleTimeWindow
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
scheduleExpression
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Target
target
instance Prelude.NFData UpdateSchedule where
rnf :: UpdateSchedule -> ()
rnf UpdateSchedule' {Maybe Text
Maybe POSIX
Maybe ScheduleState
Text
FlexibleTimeWindow
Target
target :: Target
scheduleExpression :: Text
name :: Text
flexibleTimeWindow :: FlexibleTimeWindow
state :: Maybe ScheduleState
startDate :: Maybe POSIX
scheduleExpressionTimezone :: Maybe Text
kmsKeyArn :: Maybe Text
groupName :: Maybe Text
endDate :: Maybe POSIX
description :: Maybe Text
clientToken :: Maybe Text
$sel:target:UpdateSchedule' :: UpdateSchedule -> Target
$sel:scheduleExpression:UpdateSchedule' :: UpdateSchedule -> Text
$sel:name:UpdateSchedule' :: UpdateSchedule -> Text
$sel:flexibleTimeWindow:UpdateSchedule' :: UpdateSchedule -> FlexibleTimeWindow
$sel:state:UpdateSchedule' :: UpdateSchedule -> Maybe ScheduleState
$sel:startDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
$sel:scheduleExpressionTimezone:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:kmsKeyArn:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:groupName:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:endDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
$sel:description:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:clientToken:UpdateSchedule' :: UpdateSchedule -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
endDate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
groupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
scheduleExpressionTimezone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
startDate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ScheduleState
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf FlexibleTimeWindow
flexibleTimeWindow
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
scheduleExpression
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Target
target
instance Data.ToHeaders UpdateSchedule where
toHeaders :: UpdateSchedule -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateSchedule where
toJSON :: UpdateSchedule -> Value
toJSON UpdateSchedule' {Maybe Text
Maybe POSIX
Maybe ScheduleState
Text
FlexibleTimeWindow
Target
target :: Target
scheduleExpression :: Text
name :: Text
flexibleTimeWindow :: FlexibleTimeWindow
state :: Maybe ScheduleState
startDate :: Maybe POSIX
scheduleExpressionTimezone :: Maybe Text
kmsKeyArn :: Maybe Text
groupName :: Maybe Text
endDate :: Maybe POSIX
description :: Maybe Text
clientToken :: Maybe Text
$sel:target:UpdateSchedule' :: UpdateSchedule -> Target
$sel:scheduleExpression:UpdateSchedule' :: UpdateSchedule -> Text
$sel:name:UpdateSchedule' :: UpdateSchedule -> Text
$sel:flexibleTimeWindow:UpdateSchedule' :: UpdateSchedule -> FlexibleTimeWindow
$sel:state:UpdateSchedule' :: UpdateSchedule -> Maybe ScheduleState
$sel:startDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
$sel:scheduleExpressionTimezone:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:kmsKeyArn:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:groupName:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:endDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
$sel:description:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:clientToken:UpdateSchedule' :: UpdateSchedule -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ClientToken" 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
clientToken,
(Key
"Description" 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
description,
(Key
"EndDate" 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 POSIX
endDate,
(Key
"GroupName" 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
groupName,
(Key
"KmsKeyArn" 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
kmsKeyArn,
(Key
"ScheduleExpressionTimezone" 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
scheduleExpressionTimezone,
(Key
"StartDate" 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 POSIX
startDate,
(Key
"State" 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 ScheduleState
state,
forall a. a -> Maybe a
Prelude.Just
(Key
"FlexibleTimeWindow" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= FlexibleTimeWindow
flexibleTimeWindow),
forall a. a -> Maybe a
Prelude.Just
(Key
"ScheduleExpression" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
scheduleExpression),
forall a. a -> Maybe a
Prelude.Just (Key
"Target" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Target
target)
]
)
instance Data.ToPath UpdateSchedule where
toPath :: UpdateSchedule -> ByteString
toPath UpdateSchedule' {Maybe Text
Maybe POSIX
Maybe ScheduleState
Text
FlexibleTimeWindow
Target
target :: Target
scheduleExpression :: Text
name :: Text
flexibleTimeWindow :: FlexibleTimeWindow
state :: Maybe ScheduleState
startDate :: Maybe POSIX
scheduleExpressionTimezone :: Maybe Text
kmsKeyArn :: Maybe Text
groupName :: Maybe Text
endDate :: Maybe POSIX
description :: Maybe Text
clientToken :: Maybe Text
$sel:target:UpdateSchedule' :: UpdateSchedule -> Target
$sel:scheduleExpression:UpdateSchedule' :: UpdateSchedule -> Text
$sel:name:UpdateSchedule' :: UpdateSchedule -> Text
$sel:flexibleTimeWindow:UpdateSchedule' :: UpdateSchedule -> FlexibleTimeWindow
$sel:state:UpdateSchedule' :: UpdateSchedule -> Maybe ScheduleState
$sel:startDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
$sel:scheduleExpressionTimezone:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:kmsKeyArn:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:groupName:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:endDate:UpdateSchedule' :: UpdateSchedule -> Maybe POSIX
$sel:description:UpdateSchedule' :: UpdateSchedule -> Maybe Text
$sel:clientToken:UpdateSchedule' :: UpdateSchedule -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/schedules/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
name]
instance Data.ToQuery UpdateSchedule where
toQuery :: UpdateSchedule -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateScheduleResponse = UpdateScheduleResponse'
{
UpdateScheduleResponse -> Int
httpStatus :: Prelude.Int,
UpdateScheduleResponse -> Text
scheduleArn :: Prelude.Text
}
deriving (UpdateScheduleResponse -> UpdateScheduleResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateScheduleResponse -> UpdateScheduleResponse -> Bool
$c/= :: UpdateScheduleResponse -> UpdateScheduleResponse -> Bool
== :: UpdateScheduleResponse -> UpdateScheduleResponse -> Bool
$c== :: UpdateScheduleResponse -> UpdateScheduleResponse -> Bool
Prelude.Eq, ReadPrec [UpdateScheduleResponse]
ReadPrec UpdateScheduleResponse
Int -> ReadS UpdateScheduleResponse
ReadS [UpdateScheduleResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateScheduleResponse]
$creadListPrec :: ReadPrec [UpdateScheduleResponse]
readPrec :: ReadPrec UpdateScheduleResponse
$creadPrec :: ReadPrec UpdateScheduleResponse
readList :: ReadS [UpdateScheduleResponse]
$creadList :: ReadS [UpdateScheduleResponse]
readsPrec :: Int -> ReadS UpdateScheduleResponse
$creadsPrec :: Int -> ReadS UpdateScheduleResponse
Prelude.Read, Int -> UpdateScheduleResponse -> ShowS
[UpdateScheduleResponse] -> ShowS
UpdateScheduleResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateScheduleResponse] -> ShowS
$cshowList :: [UpdateScheduleResponse] -> ShowS
show :: UpdateScheduleResponse -> String
$cshow :: UpdateScheduleResponse -> String
showsPrec :: Int -> UpdateScheduleResponse -> ShowS
$cshowsPrec :: Int -> UpdateScheduleResponse -> ShowS
Prelude.Show, forall x. Rep UpdateScheduleResponse x -> UpdateScheduleResponse
forall x. UpdateScheduleResponse -> Rep UpdateScheduleResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateScheduleResponse x -> UpdateScheduleResponse
$cfrom :: forall x. UpdateScheduleResponse -> Rep UpdateScheduleResponse x
Prelude.Generic)
newUpdateScheduleResponse ::
Prelude.Int ->
Prelude.Text ->
UpdateScheduleResponse
newUpdateScheduleResponse :: Int -> Text -> UpdateScheduleResponse
newUpdateScheduleResponse Int
pHttpStatus_ Text
pScheduleArn_ =
UpdateScheduleResponse'
{ $sel:httpStatus:UpdateScheduleResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:scheduleArn:UpdateScheduleResponse' :: Text
scheduleArn = Text
pScheduleArn_
}
updateScheduleResponse_httpStatus :: Lens.Lens' UpdateScheduleResponse Prelude.Int
updateScheduleResponse_httpStatus :: Lens' UpdateScheduleResponse Int
updateScheduleResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateScheduleResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateScheduleResponse' :: UpdateScheduleResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateScheduleResponse
s@UpdateScheduleResponse' {} Int
a -> UpdateScheduleResponse
s {$sel:httpStatus:UpdateScheduleResponse' :: Int
httpStatus = Int
a} :: UpdateScheduleResponse)
updateScheduleResponse_scheduleArn :: Lens.Lens' UpdateScheduleResponse Prelude.Text
updateScheduleResponse_scheduleArn :: Lens' UpdateScheduleResponse Text
updateScheduleResponse_scheduleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateScheduleResponse' {Text
scheduleArn :: Text
$sel:scheduleArn:UpdateScheduleResponse' :: UpdateScheduleResponse -> Text
scheduleArn} -> Text
scheduleArn) (\s :: UpdateScheduleResponse
s@UpdateScheduleResponse' {} Text
a -> UpdateScheduleResponse
s {$sel:scheduleArn:UpdateScheduleResponse' :: Text
scheduleArn = Text
a} :: UpdateScheduleResponse)
instance Prelude.NFData UpdateScheduleResponse where
rnf :: UpdateScheduleResponse -> ()
rnf UpdateScheduleResponse' {Int
Text
scheduleArn :: Text
httpStatus :: Int
$sel:scheduleArn:UpdateScheduleResponse' :: UpdateScheduleResponse -> Text
$sel:httpStatus:UpdateScheduleResponse' :: UpdateScheduleResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
scheduleArn