{-# 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.DataPipeline.SetTaskStatus
(
SetTaskStatus (..),
newSetTaskStatus,
setTaskStatus_errorId,
setTaskStatus_errorMessage,
setTaskStatus_errorStackTrace,
setTaskStatus_taskId,
setTaskStatus_taskStatus,
SetTaskStatusResponse (..),
newSetTaskStatusResponse,
setTaskStatusResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DataPipeline.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data SetTaskStatus = SetTaskStatus'
{
SetTaskStatus -> Maybe Text
errorId :: Prelude.Maybe Prelude.Text,
SetTaskStatus -> Maybe Text
errorMessage :: Prelude.Maybe Prelude.Text,
SetTaskStatus -> Maybe Text
errorStackTrace :: Prelude.Maybe Prelude.Text,
SetTaskStatus -> Text
taskId :: Prelude.Text,
SetTaskStatus -> TaskStatus
taskStatus :: TaskStatus
}
deriving (SetTaskStatus -> SetTaskStatus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetTaskStatus -> SetTaskStatus -> Bool
$c/= :: SetTaskStatus -> SetTaskStatus -> Bool
== :: SetTaskStatus -> SetTaskStatus -> Bool
$c== :: SetTaskStatus -> SetTaskStatus -> Bool
Prelude.Eq, ReadPrec [SetTaskStatus]
ReadPrec SetTaskStatus
Int -> ReadS SetTaskStatus
ReadS [SetTaskStatus]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetTaskStatus]
$creadListPrec :: ReadPrec [SetTaskStatus]
readPrec :: ReadPrec SetTaskStatus
$creadPrec :: ReadPrec SetTaskStatus
readList :: ReadS [SetTaskStatus]
$creadList :: ReadS [SetTaskStatus]
readsPrec :: Int -> ReadS SetTaskStatus
$creadsPrec :: Int -> ReadS SetTaskStatus
Prelude.Read, Int -> SetTaskStatus -> ShowS
[SetTaskStatus] -> ShowS
SetTaskStatus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetTaskStatus] -> ShowS
$cshowList :: [SetTaskStatus] -> ShowS
show :: SetTaskStatus -> String
$cshow :: SetTaskStatus -> String
showsPrec :: Int -> SetTaskStatus -> ShowS
$cshowsPrec :: Int -> SetTaskStatus -> ShowS
Prelude.Show, forall x. Rep SetTaskStatus x -> SetTaskStatus
forall x. SetTaskStatus -> Rep SetTaskStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SetTaskStatus x -> SetTaskStatus
$cfrom :: forall x. SetTaskStatus -> Rep SetTaskStatus x
Prelude.Generic)
newSetTaskStatus ::
Prelude.Text ->
TaskStatus ->
SetTaskStatus
newSetTaskStatus :: Text -> TaskStatus -> SetTaskStatus
newSetTaskStatus Text
pTaskId_ TaskStatus
pTaskStatus_ =
SetTaskStatus'
{ $sel:errorId:SetTaskStatus' :: Maybe Text
errorId = forall a. Maybe a
Prelude.Nothing,
$sel:errorMessage:SetTaskStatus' :: Maybe Text
errorMessage = forall a. Maybe a
Prelude.Nothing,
$sel:errorStackTrace:SetTaskStatus' :: Maybe Text
errorStackTrace = forall a. Maybe a
Prelude.Nothing,
$sel:taskId:SetTaskStatus' :: Text
taskId = Text
pTaskId_,
$sel:taskStatus:SetTaskStatus' :: TaskStatus
taskStatus = TaskStatus
pTaskStatus_
}
setTaskStatus_errorId :: Lens.Lens' SetTaskStatus (Prelude.Maybe Prelude.Text)
setTaskStatus_errorId :: Lens' SetTaskStatus (Maybe Text)
setTaskStatus_errorId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTaskStatus' {Maybe Text
errorId :: Maybe Text
$sel:errorId:SetTaskStatus' :: SetTaskStatus -> Maybe Text
errorId} -> Maybe Text
errorId) (\s :: SetTaskStatus
s@SetTaskStatus' {} Maybe Text
a -> SetTaskStatus
s {$sel:errorId:SetTaskStatus' :: Maybe Text
errorId = Maybe Text
a} :: SetTaskStatus)
setTaskStatus_errorMessage :: Lens.Lens' SetTaskStatus (Prelude.Maybe Prelude.Text)
setTaskStatus_errorMessage :: Lens' SetTaskStatus (Maybe Text)
setTaskStatus_errorMessage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTaskStatus' {Maybe Text
errorMessage :: Maybe Text
$sel:errorMessage:SetTaskStatus' :: SetTaskStatus -> Maybe Text
errorMessage} -> Maybe Text
errorMessage) (\s :: SetTaskStatus
s@SetTaskStatus' {} Maybe Text
a -> SetTaskStatus
s {$sel:errorMessage:SetTaskStatus' :: Maybe Text
errorMessage = Maybe Text
a} :: SetTaskStatus)
setTaskStatus_errorStackTrace :: Lens.Lens' SetTaskStatus (Prelude.Maybe Prelude.Text)
setTaskStatus_errorStackTrace :: Lens' SetTaskStatus (Maybe Text)
setTaskStatus_errorStackTrace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTaskStatus' {Maybe Text
errorStackTrace :: Maybe Text
$sel:errorStackTrace:SetTaskStatus' :: SetTaskStatus -> Maybe Text
errorStackTrace} -> Maybe Text
errorStackTrace) (\s :: SetTaskStatus
s@SetTaskStatus' {} Maybe Text
a -> SetTaskStatus
s {$sel:errorStackTrace:SetTaskStatus' :: Maybe Text
errorStackTrace = Maybe Text
a} :: SetTaskStatus)
setTaskStatus_taskId :: Lens.Lens' SetTaskStatus Prelude.Text
setTaskStatus_taskId :: Lens' SetTaskStatus Text
setTaskStatus_taskId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTaskStatus' {Text
taskId :: Text
$sel:taskId:SetTaskStatus' :: SetTaskStatus -> Text
taskId} -> Text
taskId) (\s :: SetTaskStatus
s@SetTaskStatus' {} Text
a -> SetTaskStatus
s {$sel:taskId:SetTaskStatus' :: Text
taskId = Text
a} :: SetTaskStatus)
setTaskStatus_taskStatus :: Lens.Lens' SetTaskStatus TaskStatus
setTaskStatus_taskStatus :: Lens' SetTaskStatus TaskStatus
setTaskStatus_taskStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTaskStatus' {TaskStatus
taskStatus :: TaskStatus
$sel:taskStatus:SetTaskStatus' :: SetTaskStatus -> TaskStatus
taskStatus} -> TaskStatus
taskStatus) (\s :: SetTaskStatus
s@SetTaskStatus' {} TaskStatus
a -> SetTaskStatus
s {$sel:taskStatus:SetTaskStatus' :: TaskStatus
taskStatus = TaskStatus
a} :: SetTaskStatus)
instance Core.AWSRequest SetTaskStatus where
type
AWSResponse SetTaskStatus =
SetTaskStatusResponse
request :: (Service -> Service) -> SetTaskStatus -> Request SetTaskStatus
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 SetTaskStatus
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse SetTaskStatus)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> SetTaskStatusResponse
SetTaskStatusResponse'
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))
)
instance Prelude.Hashable SetTaskStatus where
hashWithSalt :: Int -> SetTaskStatus -> Int
hashWithSalt Int
_salt SetTaskStatus' {Maybe Text
Text
TaskStatus
taskStatus :: TaskStatus
taskId :: Text
errorStackTrace :: Maybe Text
errorMessage :: Maybe Text
errorId :: Maybe Text
$sel:taskStatus:SetTaskStatus' :: SetTaskStatus -> TaskStatus
$sel:taskId:SetTaskStatus' :: SetTaskStatus -> Text
$sel:errorStackTrace:SetTaskStatus' :: SetTaskStatus -> Maybe Text
$sel:errorMessage:SetTaskStatus' :: SetTaskStatus -> Maybe Text
$sel:errorId:SetTaskStatus' :: SetTaskStatus -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
errorId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
errorMessage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
errorStackTrace
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
taskId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TaskStatus
taskStatus
instance Prelude.NFData SetTaskStatus where
rnf :: SetTaskStatus -> ()
rnf SetTaskStatus' {Maybe Text
Text
TaskStatus
taskStatus :: TaskStatus
taskId :: Text
errorStackTrace :: Maybe Text
errorMessage :: Maybe Text
errorId :: Maybe Text
$sel:taskStatus:SetTaskStatus' :: SetTaskStatus -> TaskStatus
$sel:taskId:SetTaskStatus' :: SetTaskStatus -> Text
$sel:errorStackTrace:SetTaskStatus' :: SetTaskStatus -> Maybe Text
$sel:errorMessage:SetTaskStatus' :: SetTaskStatus -> Maybe Text
$sel:errorId:SetTaskStatus' :: SetTaskStatus -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
errorId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
errorMessage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
errorStackTrace
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
taskId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TaskStatus
taskStatus
instance Data.ToHeaders SetTaskStatus where
toHeaders :: SetTaskStatus -> 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
"DataPipeline.SetTaskStatus" :: 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 SetTaskStatus where
toJSON :: SetTaskStatus -> Value
toJSON SetTaskStatus' {Maybe Text
Text
TaskStatus
taskStatus :: TaskStatus
taskId :: Text
errorStackTrace :: Maybe Text
errorMessage :: Maybe Text
errorId :: Maybe Text
$sel:taskStatus:SetTaskStatus' :: SetTaskStatus -> TaskStatus
$sel:taskId:SetTaskStatus' :: SetTaskStatus -> Text
$sel:errorStackTrace:SetTaskStatus' :: SetTaskStatus -> Maybe Text
$sel:errorMessage:SetTaskStatus' :: SetTaskStatus -> Maybe Text
$sel:errorId:SetTaskStatus' :: SetTaskStatus -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"errorId" 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
errorId,
(Key
"errorMessage" 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
errorMessage,
(Key
"errorStackTrace" 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
errorStackTrace,
forall a. a -> Maybe a
Prelude.Just (Key
"taskId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
taskId),
forall a. a -> Maybe a
Prelude.Just (Key
"taskStatus" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= TaskStatus
taskStatus)
]
)
instance Data.ToPath SetTaskStatus where
toPath :: SetTaskStatus -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SetTaskStatus where
toQuery :: SetTaskStatus -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SetTaskStatusResponse = SetTaskStatusResponse'
{
SetTaskStatusResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SetTaskStatusResponse -> SetTaskStatusResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetTaskStatusResponse -> SetTaskStatusResponse -> Bool
$c/= :: SetTaskStatusResponse -> SetTaskStatusResponse -> Bool
== :: SetTaskStatusResponse -> SetTaskStatusResponse -> Bool
$c== :: SetTaskStatusResponse -> SetTaskStatusResponse -> Bool
Prelude.Eq, ReadPrec [SetTaskStatusResponse]
ReadPrec SetTaskStatusResponse
Int -> ReadS SetTaskStatusResponse
ReadS [SetTaskStatusResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetTaskStatusResponse]
$creadListPrec :: ReadPrec [SetTaskStatusResponse]
readPrec :: ReadPrec SetTaskStatusResponse
$creadPrec :: ReadPrec SetTaskStatusResponse
readList :: ReadS [SetTaskStatusResponse]
$creadList :: ReadS [SetTaskStatusResponse]
readsPrec :: Int -> ReadS SetTaskStatusResponse
$creadsPrec :: Int -> ReadS SetTaskStatusResponse
Prelude.Read, Int -> SetTaskStatusResponse -> ShowS
[SetTaskStatusResponse] -> ShowS
SetTaskStatusResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetTaskStatusResponse] -> ShowS
$cshowList :: [SetTaskStatusResponse] -> ShowS
show :: SetTaskStatusResponse -> String
$cshow :: SetTaskStatusResponse -> String
showsPrec :: Int -> SetTaskStatusResponse -> ShowS
$cshowsPrec :: Int -> SetTaskStatusResponse -> ShowS
Prelude.Show, forall x. Rep SetTaskStatusResponse x -> SetTaskStatusResponse
forall x. SetTaskStatusResponse -> Rep SetTaskStatusResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SetTaskStatusResponse x -> SetTaskStatusResponse
$cfrom :: forall x. SetTaskStatusResponse -> Rep SetTaskStatusResponse x
Prelude.Generic)
newSetTaskStatusResponse ::
Prelude.Int ->
SetTaskStatusResponse
newSetTaskStatusResponse :: Int -> SetTaskStatusResponse
newSetTaskStatusResponse Int
pHttpStatus_ =
SetTaskStatusResponse' {$sel:httpStatus:SetTaskStatusResponse' :: Int
httpStatus = Int
pHttpStatus_}
setTaskStatusResponse_httpStatus :: Lens.Lens' SetTaskStatusResponse Prelude.Int
setTaskStatusResponse_httpStatus :: Lens' SetTaskStatusResponse Int
setTaskStatusResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTaskStatusResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetTaskStatusResponse' :: SetTaskStatusResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SetTaskStatusResponse
s@SetTaskStatusResponse' {} Int
a -> SetTaskStatusResponse
s {$sel:httpStatus:SetTaskStatusResponse' :: Int
httpStatus = Int
a} :: SetTaskStatusResponse)
instance Prelude.NFData SetTaskStatusResponse where
rnf :: SetTaskStatusResponse -> ()
rnf SetTaskStatusResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetTaskStatusResponse' :: SetTaskStatusResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus