{-# 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.Glue.StartMLLabelingSetGenerationTaskRun
(
StartMLLabelingSetGenerationTaskRun (..),
newStartMLLabelingSetGenerationTaskRun,
startMLLabelingSetGenerationTaskRun_transformId,
startMLLabelingSetGenerationTaskRun_outputS3Path,
StartMLLabelingSetGenerationTaskRunResponse (..),
newStartMLLabelingSetGenerationTaskRunResponse,
startMLLabelingSetGenerationTaskRunResponse_taskRunId,
startMLLabelingSetGenerationTaskRunResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Glue.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data StartMLLabelingSetGenerationTaskRun = StartMLLabelingSetGenerationTaskRun'
{
StartMLLabelingSetGenerationTaskRun -> Text
transformId :: Prelude.Text,
StartMLLabelingSetGenerationTaskRun -> Text
outputS3Path :: Prelude.Text
}
deriving (StartMLLabelingSetGenerationTaskRun
-> StartMLLabelingSetGenerationTaskRun -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartMLLabelingSetGenerationTaskRun
-> StartMLLabelingSetGenerationTaskRun -> Bool
$c/= :: StartMLLabelingSetGenerationTaskRun
-> StartMLLabelingSetGenerationTaskRun -> Bool
== :: StartMLLabelingSetGenerationTaskRun
-> StartMLLabelingSetGenerationTaskRun -> Bool
$c== :: StartMLLabelingSetGenerationTaskRun
-> StartMLLabelingSetGenerationTaskRun -> Bool
Prelude.Eq, ReadPrec [StartMLLabelingSetGenerationTaskRun]
ReadPrec StartMLLabelingSetGenerationTaskRun
Int -> ReadS StartMLLabelingSetGenerationTaskRun
ReadS [StartMLLabelingSetGenerationTaskRun]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartMLLabelingSetGenerationTaskRun]
$creadListPrec :: ReadPrec [StartMLLabelingSetGenerationTaskRun]
readPrec :: ReadPrec StartMLLabelingSetGenerationTaskRun
$creadPrec :: ReadPrec StartMLLabelingSetGenerationTaskRun
readList :: ReadS [StartMLLabelingSetGenerationTaskRun]
$creadList :: ReadS [StartMLLabelingSetGenerationTaskRun]
readsPrec :: Int -> ReadS StartMLLabelingSetGenerationTaskRun
$creadsPrec :: Int -> ReadS StartMLLabelingSetGenerationTaskRun
Prelude.Read, Int -> StartMLLabelingSetGenerationTaskRun -> ShowS
[StartMLLabelingSetGenerationTaskRun] -> ShowS
StartMLLabelingSetGenerationTaskRun -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartMLLabelingSetGenerationTaskRun] -> ShowS
$cshowList :: [StartMLLabelingSetGenerationTaskRun] -> ShowS
show :: StartMLLabelingSetGenerationTaskRun -> String
$cshow :: StartMLLabelingSetGenerationTaskRun -> String
showsPrec :: Int -> StartMLLabelingSetGenerationTaskRun -> ShowS
$cshowsPrec :: Int -> StartMLLabelingSetGenerationTaskRun -> ShowS
Prelude.Show, forall x.
Rep StartMLLabelingSetGenerationTaskRun x
-> StartMLLabelingSetGenerationTaskRun
forall x.
StartMLLabelingSetGenerationTaskRun
-> Rep StartMLLabelingSetGenerationTaskRun x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartMLLabelingSetGenerationTaskRun x
-> StartMLLabelingSetGenerationTaskRun
$cfrom :: forall x.
StartMLLabelingSetGenerationTaskRun
-> Rep StartMLLabelingSetGenerationTaskRun x
Prelude.Generic)
newStartMLLabelingSetGenerationTaskRun ::
Prelude.Text ->
Prelude.Text ->
StartMLLabelingSetGenerationTaskRun
newStartMLLabelingSetGenerationTaskRun :: Text -> Text -> StartMLLabelingSetGenerationTaskRun
newStartMLLabelingSetGenerationTaskRun
Text
pTransformId_
Text
pOutputS3Path_ =
StartMLLabelingSetGenerationTaskRun'
{ $sel:transformId:StartMLLabelingSetGenerationTaskRun' :: Text
transformId =
Text
pTransformId_,
$sel:outputS3Path:StartMLLabelingSetGenerationTaskRun' :: Text
outputS3Path = Text
pOutputS3Path_
}
startMLLabelingSetGenerationTaskRun_transformId :: Lens.Lens' StartMLLabelingSetGenerationTaskRun Prelude.Text
startMLLabelingSetGenerationTaskRun_transformId :: Lens' StartMLLabelingSetGenerationTaskRun Text
startMLLabelingSetGenerationTaskRun_transformId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartMLLabelingSetGenerationTaskRun' {Text
transformId :: Text
$sel:transformId:StartMLLabelingSetGenerationTaskRun' :: StartMLLabelingSetGenerationTaskRun -> Text
transformId} -> Text
transformId) (\s :: StartMLLabelingSetGenerationTaskRun
s@StartMLLabelingSetGenerationTaskRun' {} Text
a -> StartMLLabelingSetGenerationTaskRun
s {$sel:transformId:StartMLLabelingSetGenerationTaskRun' :: Text
transformId = Text
a} :: StartMLLabelingSetGenerationTaskRun)
startMLLabelingSetGenerationTaskRun_outputS3Path :: Lens.Lens' StartMLLabelingSetGenerationTaskRun Prelude.Text
startMLLabelingSetGenerationTaskRun_outputS3Path :: Lens' StartMLLabelingSetGenerationTaskRun Text
startMLLabelingSetGenerationTaskRun_outputS3Path = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartMLLabelingSetGenerationTaskRun' {Text
outputS3Path :: Text
$sel:outputS3Path:StartMLLabelingSetGenerationTaskRun' :: StartMLLabelingSetGenerationTaskRun -> Text
outputS3Path} -> Text
outputS3Path) (\s :: StartMLLabelingSetGenerationTaskRun
s@StartMLLabelingSetGenerationTaskRun' {} Text
a -> StartMLLabelingSetGenerationTaskRun
s {$sel:outputS3Path:StartMLLabelingSetGenerationTaskRun' :: Text
outputS3Path = Text
a} :: StartMLLabelingSetGenerationTaskRun)
instance
Core.AWSRequest
StartMLLabelingSetGenerationTaskRun
where
type
AWSResponse StartMLLabelingSetGenerationTaskRun =
StartMLLabelingSetGenerationTaskRunResponse
request :: (Service -> Service)
-> StartMLLabelingSetGenerationTaskRun
-> Request StartMLLabelingSetGenerationTaskRun
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 StartMLLabelingSetGenerationTaskRun
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse StartMLLabelingSetGenerationTaskRun)))
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 -> StartMLLabelingSetGenerationTaskRunResponse
StartMLLabelingSetGenerationTaskRunResponse'
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
"TaskRunId")
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
StartMLLabelingSetGenerationTaskRun
where
hashWithSalt :: Int -> StartMLLabelingSetGenerationTaskRun -> Int
hashWithSalt
Int
_salt
StartMLLabelingSetGenerationTaskRun' {Text
outputS3Path :: Text
transformId :: Text
$sel:outputS3Path:StartMLLabelingSetGenerationTaskRun' :: StartMLLabelingSetGenerationTaskRun -> Text
$sel:transformId:StartMLLabelingSetGenerationTaskRun' :: StartMLLabelingSetGenerationTaskRun -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
transformId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
outputS3Path
instance
Prelude.NFData
StartMLLabelingSetGenerationTaskRun
where
rnf :: StartMLLabelingSetGenerationTaskRun -> ()
rnf StartMLLabelingSetGenerationTaskRun' {Text
outputS3Path :: Text
transformId :: Text
$sel:outputS3Path:StartMLLabelingSetGenerationTaskRun' :: StartMLLabelingSetGenerationTaskRun -> Text
$sel:transformId:StartMLLabelingSetGenerationTaskRun' :: StartMLLabelingSetGenerationTaskRun -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
transformId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
outputS3Path
instance
Data.ToHeaders
StartMLLabelingSetGenerationTaskRun
where
toHeaders :: StartMLLabelingSetGenerationTaskRun -> 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
"AWSGlue.StartMLLabelingSetGenerationTaskRun" ::
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
StartMLLabelingSetGenerationTaskRun
where
toJSON :: StartMLLabelingSetGenerationTaskRun -> Value
toJSON StartMLLabelingSetGenerationTaskRun' {Text
outputS3Path :: Text
transformId :: Text
$sel:outputS3Path:StartMLLabelingSetGenerationTaskRun' :: StartMLLabelingSetGenerationTaskRun -> Text
$sel:transformId:StartMLLabelingSetGenerationTaskRun' :: StartMLLabelingSetGenerationTaskRun -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"TransformId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
transformId),
forall a. a -> Maybe a
Prelude.Just (Key
"OutputS3Path" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
outputS3Path)
]
)
instance
Data.ToPath
StartMLLabelingSetGenerationTaskRun
where
toPath :: StartMLLabelingSetGenerationTaskRun -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
StartMLLabelingSetGenerationTaskRun
where
toQuery :: StartMLLabelingSetGenerationTaskRun -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartMLLabelingSetGenerationTaskRunResponse = StartMLLabelingSetGenerationTaskRunResponse'
{
StartMLLabelingSetGenerationTaskRunResponse -> Maybe Text
taskRunId :: Prelude.Maybe Prelude.Text,
StartMLLabelingSetGenerationTaskRunResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartMLLabelingSetGenerationTaskRunResponse
-> StartMLLabelingSetGenerationTaskRunResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartMLLabelingSetGenerationTaskRunResponse
-> StartMLLabelingSetGenerationTaskRunResponse -> Bool
$c/= :: StartMLLabelingSetGenerationTaskRunResponse
-> StartMLLabelingSetGenerationTaskRunResponse -> Bool
== :: StartMLLabelingSetGenerationTaskRunResponse
-> StartMLLabelingSetGenerationTaskRunResponse -> Bool
$c== :: StartMLLabelingSetGenerationTaskRunResponse
-> StartMLLabelingSetGenerationTaskRunResponse -> Bool
Prelude.Eq, ReadPrec [StartMLLabelingSetGenerationTaskRunResponse]
ReadPrec StartMLLabelingSetGenerationTaskRunResponse
Int -> ReadS StartMLLabelingSetGenerationTaskRunResponse
ReadS [StartMLLabelingSetGenerationTaskRunResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartMLLabelingSetGenerationTaskRunResponse]
$creadListPrec :: ReadPrec [StartMLLabelingSetGenerationTaskRunResponse]
readPrec :: ReadPrec StartMLLabelingSetGenerationTaskRunResponse
$creadPrec :: ReadPrec StartMLLabelingSetGenerationTaskRunResponse
readList :: ReadS [StartMLLabelingSetGenerationTaskRunResponse]
$creadList :: ReadS [StartMLLabelingSetGenerationTaskRunResponse]
readsPrec :: Int -> ReadS StartMLLabelingSetGenerationTaskRunResponse
$creadsPrec :: Int -> ReadS StartMLLabelingSetGenerationTaskRunResponse
Prelude.Read, Int -> StartMLLabelingSetGenerationTaskRunResponse -> ShowS
[StartMLLabelingSetGenerationTaskRunResponse] -> ShowS
StartMLLabelingSetGenerationTaskRunResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartMLLabelingSetGenerationTaskRunResponse] -> ShowS
$cshowList :: [StartMLLabelingSetGenerationTaskRunResponse] -> ShowS
show :: StartMLLabelingSetGenerationTaskRunResponse -> String
$cshow :: StartMLLabelingSetGenerationTaskRunResponse -> String
showsPrec :: Int -> StartMLLabelingSetGenerationTaskRunResponse -> ShowS
$cshowsPrec :: Int -> StartMLLabelingSetGenerationTaskRunResponse -> ShowS
Prelude.Show, forall x.
Rep StartMLLabelingSetGenerationTaskRunResponse x
-> StartMLLabelingSetGenerationTaskRunResponse
forall x.
StartMLLabelingSetGenerationTaskRunResponse
-> Rep StartMLLabelingSetGenerationTaskRunResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartMLLabelingSetGenerationTaskRunResponse x
-> StartMLLabelingSetGenerationTaskRunResponse
$cfrom :: forall x.
StartMLLabelingSetGenerationTaskRunResponse
-> Rep StartMLLabelingSetGenerationTaskRunResponse x
Prelude.Generic)
newStartMLLabelingSetGenerationTaskRunResponse ::
Prelude.Int ->
StartMLLabelingSetGenerationTaskRunResponse
newStartMLLabelingSetGenerationTaskRunResponse :: Int -> StartMLLabelingSetGenerationTaskRunResponse
newStartMLLabelingSetGenerationTaskRunResponse
Int
pHttpStatus_ =
StartMLLabelingSetGenerationTaskRunResponse'
{ $sel:taskRunId:StartMLLabelingSetGenerationTaskRunResponse' :: Maybe Text
taskRunId =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartMLLabelingSetGenerationTaskRunResponse' :: Int
httpStatus = Int
pHttpStatus_
}
startMLLabelingSetGenerationTaskRunResponse_taskRunId :: Lens.Lens' StartMLLabelingSetGenerationTaskRunResponse (Prelude.Maybe Prelude.Text)
startMLLabelingSetGenerationTaskRunResponse_taskRunId :: Lens' StartMLLabelingSetGenerationTaskRunResponse (Maybe Text)
startMLLabelingSetGenerationTaskRunResponse_taskRunId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartMLLabelingSetGenerationTaskRunResponse' {Maybe Text
taskRunId :: Maybe Text
$sel:taskRunId:StartMLLabelingSetGenerationTaskRunResponse' :: StartMLLabelingSetGenerationTaskRunResponse -> Maybe Text
taskRunId} -> Maybe Text
taskRunId) (\s :: StartMLLabelingSetGenerationTaskRunResponse
s@StartMLLabelingSetGenerationTaskRunResponse' {} Maybe Text
a -> StartMLLabelingSetGenerationTaskRunResponse
s {$sel:taskRunId:StartMLLabelingSetGenerationTaskRunResponse' :: Maybe Text
taskRunId = Maybe Text
a} :: StartMLLabelingSetGenerationTaskRunResponse)
startMLLabelingSetGenerationTaskRunResponse_httpStatus :: Lens.Lens' StartMLLabelingSetGenerationTaskRunResponse Prelude.Int
startMLLabelingSetGenerationTaskRunResponse_httpStatus :: Lens' StartMLLabelingSetGenerationTaskRunResponse Int
startMLLabelingSetGenerationTaskRunResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartMLLabelingSetGenerationTaskRunResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartMLLabelingSetGenerationTaskRunResponse' :: StartMLLabelingSetGenerationTaskRunResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartMLLabelingSetGenerationTaskRunResponse
s@StartMLLabelingSetGenerationTaskRunResponse' {} Int
a -> StartMLLabelingSetGenerationTaskRunResponse
s {$sel:httpStatus:StartMLLabelingSetGenerationTaskRunResponse' :: Int
httpStatus = Int
a} :: StartMLLabelingSetGenerationTaskRunResponse)
instance
Prelude.NFData
StartMLLabelingSetGenerationTaskRunResponse
where
rnf :: StartMLLabelingSetGenerationTaskRunResponse -> ()
rnf StartMLLabelingSetGenerationTaskRunResponse' {Int
Maybe Text
httpStatus :: Int
taskRunId :: Maybe Text
$sel:httpStatus:StartMLLabelingSetGenerationTaskRunResponse' :: StartMLLabelingSetGenerationTaskRunResponse -> Int
$sel:taskRunId:StartMLLabelingSetGenerationTaskRunResponse' :: StartMLLabelingSetGenerationTaskRunResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
taskRunId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus