{-# 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.UpdatePipelineExecution
(
UpdatePipelineExecution (..),
newUpdatePipelineExecution,
updatePipelineExecution_parallelismConfiguration,
updatePipelineExecution_pipelineExecutionDescription,
updatePipelineExecution_pipelineExecutionDisplayName,
updatePipelineExecution_pipelineExecutionArn,
UpdatePipelineExecutionResponse (..),
newUpdatePipelineExecutionResponse,
updatePipelineExecutionResponse_pipelineExecutionArn,
updatePipelineExecutionResponse_httpStatus,
)
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.SageMaker.Types
data UpdatePipelineExecution = UpdatePipelineExecution'
{
UpdatePipelineExecution -> Maybe ParallelismConfiguration
parallelismConfiguration :: Prelude.Maybe ParallelismConfiguration,
UpdatePipelineExecution -> Maybe Text
pipelineExecutionDescription :: Prelude.Maybe Prelude.Text,
UpdatePipelineExecution -> Maybe Text
pipelineExecutionDisplayName :: Prelude.Maybe Prelude.Text,
UpdatePipelineExecution -> Text
pipelineExecutionArn :: Prelude.Text
}
deriving (UpdatePipelineExecution -> UpdatePipelineExecution -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdatePipelineExecution -> UpdatePipelineExecution -> Bool
$c/= :: UpdatePipelineExecution -> UpdatePipelineExecution -> Bool
== :: UpdatePipelineExecution -> UpdatePipelineExecution -> Bool
$c== :: UpdatePipelineExecution -> UpdatePipelineExecution -> Bool
Prelude.Eq, ReadPrec [UpdatePipelineExecution]
ReadPrec UpdatePipelineExecution
Int -> ReadS UpdatePipelineExecution
ReadS [UpdatePipelineExecution]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdatePipelineExecution]
$creadListPrec :: ReadPrec [UpdatePipelineExecution]
readPrec :: ReadPrec UpdatePipelineExecution
$creadPrec :: ReadPrec UpdatePipelineExecution
readList :: ReadS [UpdatePipelineExecution]
$creadList :: ReadS [UpdatePipelineExecution]
readsPrec :: Int -> ReadS UpdatePipelineExecution
$creadsPrec :: Int -> ReadS UpdatePipelineExecution
Prelude.Read, Int -> UpdatePipelineExecution -> ShowS
[UpdatePipelineExecution] -> ShowS
UpdatePipelineExecution -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdatePipelineExecution] -> ShowS
$cshowList :: [UpdatePipelineExecution] -> ShowS
show :: UpdatePipelineExecution -> String
$cshow :: UpdatePipelineExecution -> String
showsPrec :: Int -> UpdatePipelineExecution -> ShowS
$cshowsPrec :: Int -> UpdatePipelineExecution -> ShowS
Prelude.Show, forall x. Rep UpdatePipelineExecution x -> UpdatePipelineExecution
forall x. UpdatePipelineExecution -> Rep UpdatePipelineExecution x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdatePipelineExecution x -> UpdatePipelineExecution
$cfrom :: forall x. UpdatePipelineExecution -> Rep UpdatePipelineExecution x
Prelude.Generic)
newUpdatePipelineExecution ::
Prelude.Text ->
UpdatePipelineExecution
newUpdatePipelineExecution :: Text -> UpdatePipelineExecution
newUpdatePipelineExecution Text
pPipelineExecutionArn_ =
UpdatePipelineExecution'
{ $sel:parallelismConfiguration:UpdatePipelineExecution' :: Maybe ParallelismConfiguration
parallelismConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:pipelineExecutionDescription:UpdatePipelineExecution' :: Maybe Text
pipelineExecutionDescription = forall a. Maybe a
Prelude.Nothing,
$sel:pipelineExecutionDisplayName:UpdatePipelineExecution' :: Maybe Text
pipelineExecutionDisplayName = forall a. Maybe a
Prelude.Nothing,
$sel:pipelineExecutionArn:UpdatePipelineExecution' :: Text
pipelineExecutionArn = Text
pPipelineExecutionArn_
}
updatePipelineExecution_parallelismConfiguration :: Lens.Lens' UpdatePipelineExecution (Prelude.Maybe ParallelismConfiguration)
updatePipelineExecution_parallelismConfiguration :: Lens' UpdatePipelineExecution (Maybe ParallelismConfiguration)
updatePipelineExecution_parallelismConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePipelineExecution' {Maybe ParallelismConfiguration
parallelismConfiguration :: Maybe ParallelismConfiguration
$sel:parallelismConfiguration:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe ParallelismConfiguration
parallelismConfiguration} -> Maybe ParallelismConfiguration
parallelismConfiguration) (\s :: UpdatePipelineExecution
s@UpdatePipelineExecution' {} Maybe ParallelismConfiguration
a -> UpdatePipelineExecution
s {$sel:parallelismConfiguration:UpdatePipelineExecution' :: Maybe ParallelismConfiguration
parallelismConfiguration = Maybe ParallelismConfiguration
a} :: UpdatePipelineExecution)
updatePipelineExecution_pipelineExecutionDescription :: Lens.Lens' UpdatePipelineExecution (Prelude.Maybe Prelude.Text)
updatePipelineExecution_pipelineExecutionDescription :: Lens' UpdatePipelineExecution (Maybe Text)
updatePipelineExecution_pipelineExecutionDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePipelineExecution' {Maybe Text
pipelineExecutionDescription :: Maybe Text
$sel:pipelineExecutionDescription:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe Text
pipelineExecutionDescription} -> Maybe Text
pipelineExecutionDescription) (\s :: UpdatePipelineExecution
s@UpdatePipelineExecution' {} Maybe Text
a -> UpdatePipelineExecution
s {$sel:pipelineExecutionDescription:UpdatePipelineExecution' :: Maybe Text
pipelineExecutionDescription = Maybe Text
a} :: UpdatePipelineExecution)
updatePipelineExecution_pipelineExecutionDisplayName :: Lens.Lens' UpdatePipelineExecution (Prelude.Maybe Prelude.Text)
updatePipelineExecution_pipelineExecutionDisplayName :: Lens' UpdatePipelineExecution (Maybe Text)
updatePipelineExecution_pipelineExecutionDisplayName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePipelineExecution' {Maybe Text
pipelineExecutionDisplayName :: Maybe Text
$sel:pipelineExecutionDisplayName:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe Text
pipelineExecutionDisplayName} -> Maybe Text
pipelineExecutionDisplayName) (\s :: UpdatePipelineExecution
s@UpdatePipelineExecution' {} Maybe Text
a -> UpdatePipelineExecution
s {$sel:pipelineExecutionDisplayName:UpdatePipelineExecution' :: Maybe Text
pipelineExecutionDisplayName = Maybe Text
a} :: UpdatePipelineExecution)
updatePipelineExecution_pipelineExecutionArn :: Lens.Lens' UpdatePipelineExecution Prelude.Text
updatePipelineExecution_pipelineExecutionArn :: Lens' UpdatePipelineExecution Text
updatePipelineExecution_pipelineExecutionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePipelineExecution' {Text
pipelineExecutionArn :: Text
$sel:pipelineExecutionArn:UpdatePipelineExecution' :: UpdatePipelineExecution -> Text
pipelineExecutionArn} -> Text
pipelineExecutionArn) (\s :: UpdatePipelineExecution
s@UpdatePipelineExecution' {} Text
a -> UpdatePipelineExecution
s {$sel:pipelineExecutionArn:UpdatePipelineExecution' :: Text
pipelineExecutionArn = Text
a} :: UpdatePipelineExecution)
instance Core.AWSRequest UpdatePipelineExecution where
type
AWSResponse UpdatePipelineExecution =
UpdatePipelineExecutionResponse
request :: (Service -> Service)
-> UpdatePipelineExecution -> Request UpdatePipelineExecution
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdatePipelineExecution
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdatePipelineExecution)))
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 ->
Maybe Text -> Int -> UpdatePipelineExecutionResponse
UpdatePipelineExecutionResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PipelineExecutionArn")
forall (f :: * -> *) a b. Applicative f => 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))
)
instance Prelude.Hashable UpdatePipelineExecution where
hashWithSalt :: Int -> UpdatePipelineExecution -> Int
hashWithSalt Int
_salt UpdatePipelineExecution' {Maybe Text
Maybe ParallelismConfiguration
Text
pipelineExecutionArn :: Text
pipelineExecutionDisplayName :: Maybe Text
pipelineExecutionDescription :: Maybe Text
parallelismConfiguration :: Maybe ParallelismConfiguration
$sel:pipelineExecutionArn:UpdatePipelineExecution' :: UpdatePipelineExecution -> Text
$sel:pipelineExecutionDisplayName:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe Text
$sel:pipelineExecutionDescription:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe Text
$sel:parallelismConfiguration:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe ParallelismConfiguration
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ParallelismConfiguration
parallelismConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
pipelineExecutionDescription
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
pipelineExecutionDisplayName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
pipelineExecutionArn
instance Prelude.NFData UpdatePipelineExecution where
rnf :: UpdatePipelineExecution -> ()
rnf UpdatePipelineExecution' {Maybe Text
Maybe ParallelismConfiguration
Text
pipelineExecutionArn :: Text
pipelineExecutionDisplayName :: Maybe Text
pipelineExecutionDescription :: Maybe Text
parallelismConfiguration :: Maybe ParallelismConfiguration
$sel:pipelineExecutionArn:UpdatePipelineExecution' :: UpdatePipelineExecution -> Text
$sel:pipelineExecutionDisplayName:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe Text
$sel:pipelineExecutionDescription:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe Text
$sel:parallelismConfiguration:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe ParallelismConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ParallelismConfiguration
parallelismConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
pipelineExecutionDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
pipelineExecutionDisplayName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
pipelineExecutionArn
instance Data.ToHeaders UpdatePipelineExecution where
toHeaders :: UpdatePipelineExecution -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"SageMaker.UpdatePipelineExecution" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdatePipelineExecution where
toJSON :: UpdatePipelineExecution -> Value
toJSON UpdatePipelineExecution' {Maybe Text
Maybe ParallelismConfiguration
Text
pipelineExecutionArn :: Text
pipelineExecutionDisplayName :: Maybe Text
pipelineExecutionDescription :: Maybe Text
parallelismConfiguration :: Maybe ParallelismConfiguration
$sel:pipelineExecutionArn:UpdatePipelineExecution' :: UpdatePipelineExecution -> Text
$sel:pipelineExecutionDisplayName:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe Text
$sel:pipelineExecutionDescription:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe Text
$sel:parallelismConfiguration:UpdatePipelineExecution' :: UpdatePipelineExecution -> Maybe ParallelismConfiguration
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ParallelismConfiguration" 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 ParallelismConfiguration
parallelismConfiguration,
(Key
"PipelineExecutionDescription" 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
pipelineExecutionDescription,
(Key
"PipelineExecutionDisplayName" 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
pipelineExecutionDisplayName,
forall a. a -> Maybe a
Prelude.Just
( Key
"PipelineExecutionArn"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
pipelineExecutionArn
)
]
)
instance Data.ToPath UpdatePipelineExecution where
toPath :: UpdatePipelineExecution -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdatePipelineExecution where
toQuery :: UpdatePipelineExecution -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdatePipelineExecutionResponse = UpdatePipelineExecutionResponse'
{
UpdatePipelineExecutionResponse -> Maybe Text
pipelineExecutionArn :: Prelude.Maybe Prelude.Text,
UpdatePipelineExecutionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdatePipelineExecutionResponse
-> UpdatePipelineExecutionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdatePipelineExecutionResponse
-> UpdatePipelineExecutionResponse -> Bool
$c/= :: UpdatePipelineExecutionResponse
-> UpdatePipelineExecutionResponse -> Bool
== :: UpdatePipelineExecutionResponse
-> UpdatePipelineExecutionResponse -> Bool
$c== :: UpdatePipelineExecutionResponse
-> UpdatePipelineExecutionResponse -> Bool
Prelude.Eq, ReadPrec [UpdatePipelineExecutionResponse]
ReadPrec UpdatePipelineExecutionResponse
Int -> ReadS UpdatePipelineExecutionResponse
ReadS [UpdatePipelineExecutionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdatePipelineExecutionResponse]
$creadListPrec :: ReadPrec [UpdatePipelineExecutionResponse]
readPrec :: ReadPrec UpdatePipelineExecutionResponse
$creadPrec :: ReadPrec UpdatePipelineExecutionResponse
readList :: ReadS [UpdatePipelineExecutionResponse]
$creadList :: ReadS [UpdatePipelineExecutionResponse]
readsPrec :: Int -> ReadS UpdatePipelineExecutionResponse
$creadsPrec :: Int -> ReadS UpdatePipelineExecutionResponse
Prelude.Read, Int -> UpdatePipelineExecutionResponse -> ShowS
[UpdatePipelineExecutionResponse] -> ShowS
UpdatePipelineExecutionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdatePipelineExecutionResponse] -> ShowS
$cshowList :: [UpdatePipelineExecutionResponse] -> ShowS
show :: UpdatePipelineExecutionResponse -> String
$cshow :: UpdatePipelineExecutionResponse -> String
showsPrec :: Int -> UpdatePipelineExecutionResponse -> ShowS
$cshowsPrec :: Int -> UpdatePipelineExecutionResponse -> ShowS
Prelude.Show, forall x.
Rep UpdatePipelineExecutionResponse x
-> UpdatePipelineExecutionResponse
forall x.
UpdatePipelineExecutionResponse
-> Rep UpdatePipelineExecutionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdatePipelineExecutionResponse x
-> UpdatePipelineExecutionResponse
$cfrom :: forall x.
UpdatePipelineExecutionResponse
-> Rep UpdatePipelineExecutionResponse x
Prelude.Generic)
newUpdatePipelineExecutionResponse ::
Prelude.Int ->
UpdatePipelineExecutionResponse
newUpdatePipelineExecutionResponse :: Int -> UpdatePipelineExecutionResponse
newUpdatePipelineExecutionResponse Int
pHttpStatus_ =
UpdatePipelineExecutionResponse'
{ $sel:pipelineExecutionArn:UpdatePipelineExecutionResponse' :: Maybe Text
pipelineExecutionArn =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdatePipelineExecutionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updatePipelineExecutionResponse_pipelineExecutionArn :: Lens.Lens' UpdatePipelineExecutionResponse (Prelude.Maybe Prelude.Text)
updatePipelineExecutionResponse_pipelineExecutionArn :: Lens' UpdatePipelineExecutionResponse (Maybe Text)
updatePipelineExecutionResponse_pipelineExecutionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePipelineExecutionResponse' {Maybe Text
pipelineExecutionArn :: Maybe Text
$sel:pipelineExecutionArn:UpdatePipelineExecutionResponse' :: UpdatePipelineExecutionResponse -> Maybe Text
pipelineExecutionArn} -> Maybe Text
pipelineExecutionArn) (\s :: UpdatePipelineExecutionResponse
s@UpdatePipelineExecutionResponse' {} Maybe Text
a -> UpdatePipelineExecutionResponse
s {$sel:pipelineExecutionArn:UpdatePipelineExecutionResponse' :: Maybe Text
pipelineExecutionArn = Maybe Text
a} :: UpdatePipelineExecutionResponse)
updatePipelineExecutionResponse_httpStatus :: Lens.Lens' UpdatePipelineExecutionResponse Prelude.Int
updatePipelineExecutionResponse_httpStatus :: Lens' UpdatePipelineExecutionResponse Int
updatePipelineExecutionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePipelineExecutionResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdatePipelineExecutionResponse' :: UpdatePipelineExecutionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdatePipelineExecutionResponse
s@UpdatePipelineExecutionResponse' {} Int
a -> UpdatePipelineExecutionResponse
s {$sel:httpStatus:UpdatePipelineExecutionResponse' :: Int
httpStatus = Int
a} :: UpdatePipelineExecutionResponse)
instance
Prelude.NFData
UpdatePipelineExecutionResponse
where
rnf :: UpdatePipelineExecutionResponse -> ()
rnf UpdatePipelineExecutionResponse' {Int
Maybe Text
httpStatus :: Int
pipelineExecutionArn :: Maybe Text
$sel:httpStatus:UpdatePipelineExecutionResponse' :: UpdatePipelineExecutionResponse -> Int
$sel:pipelineExecutionArn:UpdatePipelineExecutionResponse' :: UpdatePipelineExecutionResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
pipelineExecutionArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus