{-# 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.SendPipelineExecutionStepFailure
(
SendPipelineExecutionStepFailure (..),
newSendPipelineExecutionStepFailure,
sendPipelineExecutionStepFailure_clientRequestToken,
sendPipelineExecutionStepFailure_failureReason,
sendPipelineExecutionStepFailure_callbackToken,
SendPipelineExecutionStepFailureResponse (..),
newSendPipelineExecutionStepFailureResponse,
sendPipelineExecutionStepFailureResponse_pipelineExecutionArn,
sendPipelineExecutionStepFailureResponse_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 SendPipelineExecutionStepFailure = SendPipelineExecutionStepFailure'
{
SendPipelineExecutionStepFailure -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
SendPipelineExecutionStepFailure -> Maybe Text
failureReason :: Prelude.Maybe Prelude.Text,
SendPipelineExecutionStepFailure -> Text
callbackToken :: Prelude.Text
}
deriving (SendPipelineExecutionStepFailure
-> SendPipelineExecutionStepFailure -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SendPipelineExecutionStepFailure
-> SendPipelineExecutionStepFailure -> Bool
$c/= :: SendPipelineExecutionStepFailure
-> SendPipelineExecutionStepFailure -> Bool
== :: SendPipelineExecutionStepFailure
-> SendPipelineExecutionStepFailure -> Bool
$c== :: SendPipelineExecutionStepFailure
-> SendPipelineExecutionStepFailure -> Bool
Prelude.Eq, ReadPrec [SendPipelineExecutionStepFailure]
ReadPrec SendPipelineExecutionStepFailure
Int -> ReadS SendPipelineExecutionStepFailure
ReadS [SendPipelineExecutionStepFailure]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SendPipelineExecutionStepFailure]
$creadListPrec :: ReadPrec [SendPipelineExecutionStepFailure]
readPrec :: ReadPrec SendPipelineExecutionStepFailure
$creadPrec :: ReadPrec SendPipelineExecutionStepFailure
readList :: ReadS [SendPipelineExecutionStepFailure]
$creadList :: ReadS [SendPipelineExecutionStepFailure]
readsPrec :: Int -> ReadS SendPipelineExecutionStepFailure
$creadsPrec :: Int -> ReadS SendPipelineExecutionStepFailure
Prelude.Read, Int -> SendPipelineExecutionStepFailure -> ShowS
[SendPipelineExecutionStepFailure] -> ShowS
SendPipelineExecutionStepFailure -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SendPipelineExecutionStepFailure] -> ShowS
$cshowList :: [SendPipelineExecutionStepFailure] -> ShowS
show :: SendPipelineExecutionStepFailure -> String
$cshow :: SendPipelineExecutionStepFailure -> String
showsPrec :: Int -> SendPipelineExecutionStepFailure -> ShowS
$cshowsPrec :: Int -> SendPipelineExecutionStepFailure -> ShowS
Prelude.Show, forall x.
Rep SendPipelineExecutionStepFailure x
-> SendPipelineExecutionStepFailure
forall x.
SendPipelineExecutionStepFailure
-> Rep SendPipelineExecutionStepFailure x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SendPipelineExecutionStepFailure x
-> SendPipelineExecutionStepFailure
$cfrom :: forall x.
SendPipelineExecutionStepFailure
-> Rep SendPipelineExecutionStepFailure x
Prelude.Generic)
newSendPipelineExecutionStepFailure ::
Prelude.Text ->
SendPipelineExecutionStepFailure
newSendPipelineExecutionStepFailure :: Text -> SendPipelineExecutionStepFailure
newSendPipelineExecutionStepFailure Text
pCallbackToken_ =
SendPipelineExecutionStepFailure'
{ $sel:clientRequestToken:SendPipelineExecutionStepFailure' :: Maybe Text
clientRequestToken =
forall a. Maybe a
Prelude.Nothing,
$sel:failureReason:SendPipelineExecutionStepFailure' :: Maybe Text
failureReason = forall a. Maybe a
Prelude.Nothing,
$sel:callbackToken:SendPipelineExecutionStepFailure' :: Text
callbackToken = Text
pCallbackToken_
}
sendPipelineExecutionStepFailure_clientRequestToken :: Lens.Lens' SendPipelineExecutionStepFailure (Prelude.Maybe Prelude.Text)
sendPipelineExecutionStepFailure_clientRequestToken :: Lens' SendPipelineExecutionStepFailure (Maybe Text)
sendPipelineExecutionStepFailure_clientRequestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendPipelineExecutionStepFailure' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: SendPipelineExecutionStepFailure
s@SendPipelineExecutionStepFailure' {} Maybe Text
a -> SendPipelineExecutionStepFailure
s {$sel:clientRequestToken:SendPipelineExecutionStepFailure' :: Maybe Text
clientRequestToken = Maybe Text
a} :: SendPipelineExecutionStepFailure)
sendPipelineExecutionStepFailure_failureReason :: Lens.Lens' SendPipelineExecutionStepFailure (Prelude.Maybe Prelude.Text)
sendPipelineExecutionStepFailure_failureReason :: Lens' SendPipelineExecutionStepFailure (Maybe Text)
sendPipelineExecutionStepFailure_failureReason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendPipelineExecutionStepFailure' {Maybe Text
failureReason :: Maybe Text
$sel:failureReason:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Maybe Text
failureReason} -> Maybe Text
failureReason) (\s :: SendPipelineExecutionStepFailure
s@SendPipelineExecutionStepFailure' {} Maybe Text
a -> SendPipelineExecutionStepFailure
s {$sel:failureReason:SendPipelineExecutionStepFailure' :: Maybe Text
failureReason = Maybe Text
a} :: SendPipelineExecutionStepFailure)
sendPipelineExecutionStepFailure_callbackToken :: Lens.Lens' SendPipelineExecutionStepFailure Prelude.Text
sendPipelineExecutionStepFailure_callbackToken :: Lens' SendPipelineExecutionStepFailure Text
sendPipelineExecutionStepFailure_callbackToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendPipelineExecutionStepFailure' {Text
callbackToken :: Text
$sel:callbackToken:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Text
callbackToken} -> Text
callbackToken) (\s :: SendPipelineExecutionStepFailure
s@SendPipelineExecutionStepFailure' {} Text
a -> SendPipelineExecutionStepFailure
s {$sel:callbackToken:SendPipelineExecutionStepFailure' :: Text
callbackToken = Text
a} :: SendPipelineExecutionStepFailure)
instance
Core.AWSRequest
SendPipelineExecutionStepFailure
where
type
AWSResponse SendPipelineExecutionStepFailure =
SendPipelineExecutionStepFailureResponse
request :: (Service -> Service)
-> SendPipelineExecutionStepFailure
-> Request SendPipelineExecutionStepFailure
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 SendPipelineExecutionStepFailure
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse SendPipelineExecutionStepFailure)))
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 -> SendPipelineExecutionStepFailureResponse
SendPipelineExecutionStepFailureResponse'
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
SendPipelineExecutionStepFailure
where
hashWithSalt :: Int -> SendPipelineExecutionStepFailure -> Int
hashWithSalt
Int
_salt
SendPipelineExecutionStepFailure' {Maybe Text
Text
callbackToken :: Text
failureReason :: Maybe Text
clientRequestToken :: Maybe Text
$sel:callbackToken:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Text
$sel:failureReason:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Maybe Text
$sel:clientRequestToken:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientRequestToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
failureReason
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
callbackToken
instance
Prelude.NFData
SendPipelineExecutionStepFailure
where
rnf :: SendPipelineExecutionStepFailure -> ()
rnf SendPipelineExecutionStepFailure' {Maybe Text
Text
callbackToken :: Text
failureReason :: Maybe Text
clientRequestToken :: Maybe Text
$sel:callbackToken:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Text
$sel:failureReason:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Maybe Text
$sel:clientRequestToken:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientRequestToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
failureReason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
callbackToken
instance
Data.ToHeaders
SendPipelineExecutionStepFailure
where
toHeaders :: SendPipelineExecutionStepFailure -> 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.SendPipelineExecutionStepFailure" ::
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 SendPipelineExecutionStepFailure where
toJSON :: SendPipelineExecutionStepFailure -> Value
toJSON SendPipelineExecutionStepFailure' {Maybe Text
Text
callbackToken :: Text
failureReason :: Maybe Text
clientRequestToken :: Maybe Text
$sel:callbackToken:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Text
$sel:failureReason:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Maybe Text
$sel:clientRequestToken:SendPipelineExecutionStepFailure' :: SendPipelineExecutionStepFailure -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ClientRequestToken" 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
clientRequestToken,
(Key
"FailureReason" 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
failureReason,
forall a. a -> Maybe a
Prelude.Just
(Key
"CallbackToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
callbackToken)
]
)
instance Data.ToPath SendPipelineExecutionStepFailure where
toPath :: SendPipelineExecutionStepFailure -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
SendPipelineExecutionStepFailure
where
toQuery :: SendPipelineExecutionStepFailure -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SendPipelineExecutionStepFailureResponse = SendPipelineExecutionStepFailureResponse'
{
SendPipelineExecutionStepFailureResponse -> Maybe Text
pipelineExecutionArn :: Prelude.Maybe Prelude.Text,
SendPipelineExecutionStepFailureResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SendPipelineExecutionStepFailureResponse
-> SendPipelineExecutionStepFailureResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SendPipelineExecutionStepFailureResponse
-> SendPipelineExecutionStepFailureResponse -> Bool
$c/= :: SendPipelineExecutionStepFailureResponse
-> SendPipelineExecutionStepFailureResponse -> Bool
== :: SendPipelineExecutionStepFailureResponse
-> SendPipelineExecutionStepFailureResponse -> Bool
$c== :: SendPipelineExecutionStepFailureResponse
-> SendPipelineExecutionStepFailureResponse -> Bool
Prelude.Eq, ReadPrec [SendPipelineExecutionStepFailureResponse]
ReadPrec SendPipelineExecutionStepFailureResponse
Int -> ReadS SendPipelineExecutionStepFailureResponse
ReadS [SendPipelineExecutionStepFailureResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SendPipelineExecutionStepFailureResponse]
$creadListPrec :: ReadPrec [SendPipelineExecutionStepFailureResponse]
readPrec :: ReadPrec SendPipelineExecutionStepFailureResponse
$creadPrec :: ReadPrec SendPipelineExecutionStepFailureResponse
readList :: ReadS [SendPipelineExecutionStepFailureResponse]
$creadList :: ReadS [SendPipelineExecutionStepFailureResponse]
readsPrec :: Int -> ReadS SendPipelineExecutionStepFailureResponse
$creadsPrec :: Int -> ReadS SendPipelineExecutionStepFailureResponse
Prelude.Read, Int -> SendPipelineExecutionStepFailureResponse -> ShowS
[SendPipelineExecutionStepFailureResponse] -> ShowS
SendPipelineExecutionStepFailureResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SendPipelineExecutionStepFailureResponse] -> ShowS
$cshowList :: [SendPipelineExecutionStepFailureResponse] -> ShowS
show :: SendPipelineExecutionStepFailureResponse -> String
$cshow :: SendPipelineExecutionStepFailureResponse -> String
showsPrec :: Int -> SendPipelineExecutionStepFailureResponse -> ShowS
$cshowsPrec :: Int -> SendPipelineExecutionStepFailureResponse -> ShowS
Prelude.Show, forall x.
Rep SendPipelineExecutionStepFailureResponse x
-> SendPipelineExecutionStepFailureResponse
forall x.
SendPipelineExecutionStepFailureResponse
-> Rep SendPipelineExecutionStepFailureResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SendPipelineExecutionStepFailureResponse x
-> SendPipelineExecutionStepFailureResponse
$cfrom :: forall x.
SendPipelineExecutionStepFailureResponse
-> Rep SendPipelineExecutionStepFailureResponse x
Prelude.Generic)
newSendPipelineExecutionStepFailureResponse ::
Prelude.Int ->
SendPipelineExecutionStepFailureResponse
newSendPipelineExecutionStepFailureResponse :: Int -> SendPipelineExecutionStepFailureResponse
newSendPipelineExecutionStepFailureResponse
Int
pHttpStatus_ =
SendPipelineExecutionStepFailureResponse'
{ $sel:pipelineExecutionArn:SendPipelineExecutionStepFailureResponse' :: Maybe Text
pipelineExecutionArn =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SendPipelineExecutionStepFailureResponse' :: Int
httpStatus = Int
pHttpStatus_
}
sendPipelineExecutionStepFailureResponse_pipelineExecutionArn :: Lens.Lens' SendPipelineExecutionStepFailureResponse (Prelude.Maybe Prelude.Text)
sendPipelineExecutionStepFailureResponse_pipelineExecutionArn :: Lens' SendPipelineExecutionStepFailureResponse (Maybe Text)
sendPipelineExecutionStepFailureResponse_pipelineExecutionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendPipelineExecutionStepFailureResponse' {Maybe Text
pipelineExecutionArn :: Maybe Text
$sel:pipelineExecutionArn:SendPipelineExecutionStepFailureResponse' :: SendPipelineExecutionStepFailureResponse -> Maybe Text
pipelineExecutionArn} -> Maybe Text
pipelineExecutionArn) (\s :: SendPipelineExecutionStepFailureResponse
s@SendPipelineExecutionStepFailureResponse' {} Maybe Text
a -> SendPipelineExecutionStepFailureResponse
s {$sel:pipelineExecutionArn:SendPipelineExecutionStepFailureResponse' :: Maybe Text
pipelineExecutionArn = Maybe Text
a} :: SendPipelineExecutionStepFailureResponse)
sendPipelineExecutionStepFailureResponse_httpStatus :: Lens.Lens' SendPipelineExecutionStepFailureResponse Prelude.Int
sendPipelineExecutionStepFailureResponse_httpStatus :: Lens' SendPipelineExecutionStepFailureResponse Int
sendPipelineExecutionStepFailureResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendPipelineExecutionStepFailureResponse' {Int
httpStatus :: Int
$sel:httpStatus:SendPipelineExecutionStepFailureResponse' :: SendPipelineExecutionStepFailureResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SendPipelineExecutionStepFailureResponse
s@SendPipelineExecutionStepFailureResponse' {} Int
a -> SendPipelineExecutionStepFailureResponse
s {$sel:httpStatus:SendPipelineExecutionStepFailureResponse' :: Int
httpStatus = Int
a} :: SendPipelineExecutionStepFailureResponse)
instance
Prelude.NFData
SendPipelineExecutionStepFailureResponse
where
rnf :: SendPipelineExecutionStepFailureResponse -> ()
rnf SendPipelineExecutionStepFailureResponse' {Int
Maybe Text
httpStatus :: Int
pipelineExecutionArn :: Maybe Text
$sel:httpStatus:SendPipelineExecutionStepFailureResponse' :: SendPipelineExecutionStepFailureResponse -> Int
$sel:pipelineExecutionArn:SendPipelineExecutionStepFailureResponse' :: SendPipelineExecutionStepFailureResponse -> 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