{-# 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.DataExchange.GetJob
(
GetJob (..),
newGetJob,
getJob_jobId,
GetJobResponse (..),
newGetJobResponse,
getJobResponse_arn,
getJobResponse_createdAt,
getJobResponse_details,
getJobResponse_errors,
getJobResponse_id,
getJobResponse_state,
getJobResponse_type,
getJobResponse_updatedAt,
getJobResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DataExchange.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetJob = GetJob'
{
GetJob -> Text
jobId :: Prelude.Text
}
deriving (GetJob -> GetJob -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetJob -> GetJob -> Bool
$c/= :: GetJob -> GetJob -> Bool
== :: GetJob -> GetJob -> Bool
$c== :: GetJob -> GetJob -> Bool
Prelude.Eq, ReadPrec [GetJob]
ReadPrec GetJob
Int -> ReadS GetJob
ReadS [GetJob]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetJob]
$creadListPrec :: ReadPrec [GetJob]
readPrec :: ReadPrec GetJob
$creadPrec :: ReadPrec GetJob
readList :: ReadS [GetJob]
$creadList :: ReadS [GetJob]
readsPrec :: Int -> ReadS GetJob
$creadsPrec :: Int -> ReadS GetJob
Prelude.Read, Int -> GetJob -> ShowS
[GetJob] -> ShowS
GetJob -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetJob] -> ShowS
$cshowList :: [GetJob] -> ShowS
show :: GetJob -> String
$cshow :: GetJob -> String
showsPrec :: Int -> GetJob -> ShowS
$cshowsPrec :: Int -> GetJob -> ShowS
Prelude.Show, forall x. Rep GetJob x -> GetJob
forall x. GetJob -> Rep GetJob x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetJob x -> GetJob
$cfrom :: forall x. GetJob -> Rep GetJob x
Prelude.Generic)
newGetJob ::
Prelude.Text ->
GetJob
newGetJob :: Text -> GetJob
newGetJob Text
pJobId_ = GetJob' {$sel:jobId:GetJob' :: Text
jobId = Text
pJobId_}
getJob_jobId :: Lens.Lens' GetJob Prelude.Text
getJob_jobId :: Lens' GetJob Text
getJob_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJob' {Text
jobId :: Text
$sel:jobId:GetJob' :: GetJob -> Text
jobId} -> Text
jobId) (\s :: GetJob
s@GetJob' {} Text
a -> GetJob
s {$sel:jobId:GetJob' :: Text
jobId = Text
a} :: GetJob)
instance Core.AWSRequest GetJob where
type AWSResponse GetJob = GetJobResponse
request :: (Service -> Service) -> GetJob -> Request GetJob
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetJob
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetJob)))
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
-> Maybe ISO8601
-> Maybe ResponseDetails
-> Maybe [JobError]
-> Maybe Text
-> Maybe State
-> Maybe Type
-> Maybe ISO8601
-> Int
-> GetJobResponse
GetJobResponse'
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
"Arn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"CreatedAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Details")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Errors" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Id")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"State")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Type")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"UpdatedAt")
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 GetJob where
hashWithSalt :: Int -> GetJob -> Int
hashWithSalt Int
_salt GetJob' {Text
jobId :: Text
$sel:jobId:GetJob' :: GetJob -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
jobId
instance Prelude.NFData GetJob where
rnf :: GetJob -> ()
rnf GetJob' {Text
jobId :: Text
$sel:jobId:GetJob' :: GetJob -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
jobId
instance Data.ToHeaders GetJob where
toHeaders :: GetJob -> 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.ToPath GetJob where
toPath :: GetJob -> ByteString
toPath GetJob' {Text
jobId :: Text
$sel:jobId:GetJob' :: GetJob -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/v1/jobs/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
jobId]
instance Data.ToQuery GetJob where
toQuery :: GetJob -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetJobResponse = GetJobResponse'
{
GetJobResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
GetJobResponse -> Maybe ISO8601
createdAt :: Prelude.Maybe Data.ISO8601,
GetJobResponse -> Maybe ResponseDetails
details :: Prelude.Maybe ResponseDetails,
GetJobResponse -> Maybe [JobError]
errors :: Prelude.Maybe [JobError],
GetJobResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
GetJobResponse -> Maybe State
state :: Prelude.Maybe State,
GetJobResponse -> Maybe Type
type' :: Prelude.Maybe Type,
GetJobResponse -> Maybe ISO8601
updatedAt :: Prelude.Maybe Data.ISO8601,
GetJobResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetJobResponse -> GetJobResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetJobResponse -> GetJobResponse -> Bool
$c/= :: GetJobResponse -> GetJobResponse -> Bool
== :: GetJobResponse -> GetJobResponse -> Bool
$c== :: GetJobResponse -> GetJobResponse -> Bool
Prelude.Eq, ReadPrec [GetJobResponse]
ReadPrec GetJobResponse
Int -> ReadS GetJobResponse
ReadS [GetJobResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetJobResponse]
$creadListPrec :: ReadPrec [GetJobResponse]
readPrec :: ReadPrec GetJobResponse
$creadPrec :: ReadPrec GetJobResponse
readList :: ReadS [GetJobResponse]
$creadList :: ReadS [GetJobResponse]
readsPrec :: Int -> ReadS GetJobResponse
$creadsPrec :: Int -> ReadS GetJobResponse
Prelude.Read, Int -> GetJobResponse -> ShowS
[GetJobResponse] -> ShowS
GetJobResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetJobResponse] -> ShowS
$cshowList :: [GetJobResponse] -> ShowS
show :: GetJobResponse -> String
$cshow :: GetJobResponse -> String
showsPrec :: Int -> GetJobResponse -> ShowS
$cshowsPrec :: Int -> GetJobResponse -> ShowS
Prelude.Show, forall x. Rep GetJobResponse x -> GetJobResponse
forall x. GetJobResponse -> Rep GetJobResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetJobResponse x -> GetJobResponse
$cfrom :: forall x. GetJobResponse -> Rep GetJobResponse x
Prelude.Generic)
newGetJobResponse ::
Prelude.Int ->
GetJobResponse
newGetJobResponse :: Int -> GetJobResponse
newGetJobResponse Int
pHttpStatus_ =
GetJobResponse'
{ $sel:arn:GetJobResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:createdAt:GetJobResponse' :: Maybe ISO8601
createdAt = forall a. Maybe a
Prelude.Nothing,
$sel:details:GetJobResponse' :: Maybe ResponseDetails
details = forall a. Maybe a
Prelude.Nothing,
$sel:errors:GetJobResponse' :: Maybe [JobError]
errors = forall a. Maybe a
Prelude.Nothing,
$sel:id:GetJobResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:state:GetJobResponse' :: Maybe State
state = forall a. Maybe a
Prelude.Nothing,
$sel:type':GetJobResponse' :: Maybe Type
type' = forall a. Maybe a
Prelude.Nothing,
$sel:updatedAt:GetJobResponse' :: Maybe ISO8601
updatedAt = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetJobResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getJobResponse_arn :: Lens.Lens' GetJobResponse (Prelude.Maybe Prelude.Text)
getJobResponse_arn :: Lens' GetJobResponse (Maybe Text)
getJobResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:GetJobResponse' :: GetJobResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: GetJobResponse
s@GetJobResponse' {} Maybe Text
a -> GetJobResponse
s {$sel:arn:GetJobResponse' :: Maybe Text
arn = Maybe Text
a} :: GetJobResponse)
getJobResponse_createdAt :: Lens.Lens' GetJobResponse (Prelude.Maybe Prelude.UTCTime)
getJobResponse_createdAt :: Lens' GetJobResponse (Maybe UTCTime)
getJobResponse_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Maybe ISO8601
createdAt :: Maybe ISO8601
$sel:createdAt:GetJobResponse' :: GetJobResponse -> Maybe ISO8601
createdAt} -> Maybe ISO8601
createdAt) (\s :: GetJobResponse
s@GetJobResponse' {} Maybe ISO8601
a -> GetJobResponse
s {$sel:createdAt:GetJobResponse' :: Maybe ISO8601
createdAt = Maybe ISO8601
a} :: GetJobResponse) 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
getJobResponse_details :: Lens.Lens' GetJobResponse (Prelude.Maybe ResponseDetails)
getJobResponse_details :: Lens' GetJobResponse (Maybe ResponseDetails)
getJobResponse_details = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Maybe ResponseDetails
details :: Maybe ResponseDetails
$sel:details:GetJobResponse' :: GetJobResponse -> Maybe ResponseDetails
details} -> Maybe ResponseDetails
details) (\s :: GetJobResponse
s@GetJobResponse' {} Maybe ResponseDetails
a -> GetJobResponse
s {$sel:details:GetJobResponse' :: Maybe ResponseDetails
details = Maybe ResponseDetails
a} :: GetJobResponse)
getJobResponse_errors :: Lens.Lens' GetJobResponse (Prelude.Maybe [JobError])
getJobResponse_errors :: Lens' GetJobResponse (Maybe [JobError])
getJobResponse_errors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Maybe [JobError]
errors :: Maybe [JobError]
$sel:errors:GetJobResponse' :: GetJobResponse -> Maybe [JobError]
errors} -> Maybe [JobError]
errors) (\s :: GetJobResponse
s@GetJobResponse' {} Maybe [JobError]
a -> GetJobResponse
s {$sel:errors:GetJobResponse' :: Maybe [JobError]
errors = Maybe [JobError]
a} :: GetJobResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getJobResponse_id :: Lens.Lens' GetJobResponse (Prelude.Maybe Prelude.Text)
getJobResponse_id :: Lens' GetJobResponse (Maybe Text)
getJobResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Maybe Text
id :: Maybe Text
$sel:id:GetJobResponse' :: GetJobResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: GetJobResponse
s@GetJobResponse' {} Maybe Text
a -> GetJobResponse
s {$sel:id:GetJobResponse' :: Maybe Text
id = Maybe Text
a} :: GetJobResponse)
getJobResponse_state :: Lens.Lens' GetJobResponse (Prelude.Maybe State)
getJobResponse_state :: Lens' GetJobResponse (Maybe State)
getJobResponse_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Maybe State
state :: Maybe State
$sel:state:GetJobResponse' :: GetJobResponse -> Maybe State
state} -> Maybe State
state) (\s :: GetJobResponse
s@GetJobResponse' {} Maybe State
a -> GetJobResponse
s {$sel:state:GetJobResponse' :: Maybe State
state = Maybe State
a} :: GetJobResponse)
getJobResponse_type :: Lens.Lens' GetJobResponse (Prelude.Maybe Type)
getJobResponse_type :: Lens' GetJobResponse (Maybe Type)
getJobResponse_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Maybe Type
type' :: Maybe Type
$sel:type':GetJobResponse' :: GetJobResponse -> Maybe Type
type'} -> Maybe Type
type') (\s :: GetJobResponse
s@GetJobResponse' {} Maybe Type
a -> GetJobResponse
s {$sel:type':GetJobResponse' :: Maybe Type
type' = Maybe Type
a} :: GetJobResponse)
getJobResponse_updatedAt :: Lens.Lens' GetJobResponse (Prelude.Maybe Prelude.UTCTime)
getJobResponse_updatedAt :: Lens' GetJobResponse (Maybe UTCTime)
getJobResponse_updatedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Maybe ISO8601
updatedAt :: Maybe ISO8601
$sel:updatedAt:GetJobResponse' :: GetJobResponse -> Maybe ISO8601
updatedAt} -> Maybe ISO8601
updatedAt) (\s :: GetJobResponse
s@GetJobResponse' {} Maybe ISO8601
a -> GetJobResponse
s {$sel:updatedAt:GetJobResponse' :: Maybe ISO8601
updatedAt = Maybe ISO8601
a} :: GetJobResponse) 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
getJobResponse_httpStatus :: Lens.Lens' GetJobResponse Prelude.Int
getJobResponse_httpStatus :: Lens' GetJobResponse Int
getJobResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJobResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetJobResponse' :: GetJobResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetJobResponse
s@GetJobResponse' {} Int
a -> GetJobResponse
s {$sel:httpStatus:GetJobResponse' :: Int
httpStatus = Int
a} :: GetJobResponse)
instance Prelude.NFData GetJobResponse where
rnf :: GetJobResponse -> ()
rnf GetJobResponse' {Int
Maybe [JobError]
Maybe Text
Maybe ISO8601
Maybe State
Maybe ResponseDetails
Maybe Type
httpStatus :: Int
updatedAt :: Maybe ISO8601
type' :: Maybe Type
state :: Maybe State
id :: Maybe Text
errors :: Maybe [JobError]
details :: Maybe ResponseDetails
createdAt :: Maybe ISO8601
arn :: Maybe Text
$sel:httpStatus:GetJobResponse' :: GetJobResponse -> Int
$sel:updatedAt:GetJobResponse' :: GetJobResponse -> Maybe ISO8601
$sel:type':GetJobResponse' :: GetJobResponse -> Maybe Type
$sel:state:GetJobResponse' :: GetJobResponse -> Maybe State
$sel:id:GetJobResponse' :: GetJobResponse -> Maybe Text
$sel:errors:GetJobResponse' :: GetJobResponse -> Maybe [JobError]
$sel:details:GetJobResponse' :: GetJobResponse -> Maybe ResponseDetails
$sel:createdAt:GetJobResponse' :: GetJobResponse -> Maybe ISO8601
$sel:arn:GetJobResponse' :: GetJobResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ResponseDetails
details
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [JobError]
errors
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe State
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Type
type'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
updatedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus