{-# 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.GetMLTransform
(
GetMLTransform (..),
newGetMLTransform,
getMLTransform_transformId,
GetMLTransformResponse (..),
newGetMLTransformResponse,
getMLTransformResponse_createdOn,
getMLTransformResponse_description,
getMLTransformResponse_evaluationMetrics,
getMLTransformResponse_glueVersion,
getMLTransformResponse_inputRecordTables,
getMLTransformResponse_labelCount,
getMLTransformResponse_lastModifiedOn,
getMLTransformResponse_maxCapacity,
getMLTransformResponse_maxRetries,
getMLTransformResponse_name,
getMLTransformResponse_numberOfWorkers,
getMLTransformResponse_parameters,
getMLTransformResponse_role,
getMLTransformResponse_schema,
getMLTransformResponse_status,
getMLTransformResponse_timeout,
getMLTransformResponse_transformEncryption,
getMLTransformResponse_transformId,
getMLTransformResponse_workerType,
getMLTransformResponse_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 GetMLTransform = GetMLTransform'
{
GetMLTransform -> Text
transformId :: Prelude.Text
}
deriving (GetMLTransform -> GetMLTransform -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetMLTransform -> GetMLTransform -> Bool
$c/= :: GetMLTransform -> GetMLTransform -> Bool
== :: GetMLTransform -> GetMLTransform -> Bool
$c== :: GetMLTransform -> GetMLTransform -> Bool
Prelude.Eq, ReadPrec [GetMLTransform]
ReadPrec GetMLTransform
Int -> ReadS GetMLTransform
ReadS [GetMLTransform]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetMLTransform]
$creadListPrec :: ReadPrec [GetMLTransform]
readPrec :: ReadPrec GetMLTransform
$creadPrec :: ReadPrec GetMLTransform
readList :: ReadS [GetMLTransform]
$creadList :: ReadS [GetMLTransform]
readsPrec :: Int -> ReadS GetMLTransform
$creadsPrec :: Int -> ReadS GetMLTransform
Prelude.Read, Int -> GetMLTransform -> ShowS
[GetMLTransform] -> ShowS
GetMLTransform -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetMLTransform] -> ShowS
$cshowList :: [GetMLTransform] -> ShowS
show :: GetMLTransform -> String
$cshow :: GetMLTransform -> String
showsPrec :: Int -> GetMLTransform -> ShowS
$cshowsPrec :: Int -> GetMLTransform -> ShowS
Prelude.Show, forall x. Rep GetMLTransform x -> GetMLTransform
forall x. GetMLTransform -> Rep GetMLTransform x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetMLTransform x -> GetMLTransform
$cfrom :: forall x. GetMLTransform -> Rep GetMLTransform x
Prelude.Generic)
newGetMLTransform ::
Prelude.Text ->
GetMLTransform
newGetMLTransform :: Text -> GetMLTransform
newGetMLTransform Text
pTransformId_ =
GetMLTransform' {$sel:transformId:GetMLTransform' :: Text
transformId = Text
pTransformId_}
getMLTransform_transformId :: Lens.Lens' GetMLTransform Prelude.Text
getMLTransform_transformId :: Lens' GetMLTransform Text
getMLTransform_transformId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransform' {Text
transformId :: Text
$sel:transformId:GetMLTransform' :: GetMLTransform -> Text
transformId} -> Text
transformId) (\s :: GetMLTransform
s@GetMLTransform' {} Text
a -> GetMLTransform
s {$sel:transformId:GetMLTransform' :: Text
transformId = Text
a} :: GetMLTransform)
instance Core.AWSRequest GetMLTransform where
type
AWSResponse GetMLTransform =
GetMLTransformResponse
request :: (Service -> Service) -> GetMLTransform -> Request GetMLTransform
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 GetMLTransform
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetMLTransform)))
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 POSIX
-> Maybe Text
-> Maybe EvaluationMetrics
-> Maybe Text
-> Maybe [GlueTable]
-> Maybe Int
-> Maybe POSIX
-> Maybe Double
-> Maybe Int
-> Maybe Text
-> Maybe Int
-> Maybe TransformParameters
-> Maybe Text
-> Maybe [SchemaColumn]
-> Maybe TransformStatusType
-> Maybe Natural
-> Maybe TransformEncryption
-> Maybe Text
-> Maybe WorkerType
-> Int
-> GetMLTransformResponse
GetMLTransformResponse'
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
"CreatedOn")
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
"Description")
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
"EvaluationMetrics")
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
"GlueVersion")
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
"InputRecordTables"
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
"LabelCount")
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
"LastModifiedOn")
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
"MaxCapacity")
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
"MaxRetries")
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
"Name")
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
"NumberOfWorkers")
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
"Parameters")
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
"Role")
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
"Schema" 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
"Status")
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
"Timeout")
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
"TransformEncryption")
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
"TransformId")
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
"WorkerType")
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 GetMLTransform where
hashWithSalt :: Int -> GetMLTransform -> Int
hashWithSalt Int
_salt GetMLTransform' {Text
transformId :: Text
$sel:transformId:GetMLTransform' :: GetMLTransform -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
transformId
instance Prelude.NFData GetMLTransform where
rnf :: GetMLTransform -> ()
rnf GetMLTransform' {Text
transformId :: Text
$sel:transformId:GetMLTransform' :: GetMLTransform -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
transformId
instance Data.ToHeaders GetMLTransform where
toHeaders :: GetMLTransform -> 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.GetMLTransform" :: 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 GetMLTransform where
toJSON :: GetMLTransform -> Value
toJSON GetMLTransform' {Text
transformId :: Text
$sel:transformId:GetMLTransform' :: GetMLTransform -> 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)]
)
instance Data.ToPath GetMLTransform where
toPath :: GetMLTransform -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetMLTransform where
toQuery :: GetMLTransform -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetMLTransformResponse = GetMLTransformResponse'
{
GetMLTransformResponse -> Maybe POSIX
createdOn :: Prelude.Maybe Data.POSIX,
GetMLTransformResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
GetMLTransformResponse -> Maybe EvaluationMetrics
evaluationMetrics :: Prelude.Maybe EvaluationMetrics,
GetMLTransformResponse -> Maybe Text
glueVersion :: Prelude.Maybe Prelude.Text,
GetMLTransformResponse -> Maybe [GlueTable]
inputRecordTables :: Prelude.Maybe [GlueTable],
GetMLTransformResponse -> Maybe Int
labelCount :: Prelude.Maybe Prelude.Int,
GetMLTransformResponse -> Maybe POSIX
lastModifiedOn :: Prelude.Maybe Data.POSIX,
GetMLTransformResponse -> Maybe Double
maxCapacity :: Prelude.Maybe Prelude.Double,
GetMLTransformResponse -> Maybe Int
maxRetries :: Prelude.Maybe Prelude.Int,
GetMLTransformResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
GetMLTransformResponse -> Maybe Int
numberOfWorkers :: Prelude.Maybe Prelude.Int,
GetMLTransformResponse -> Maybe TransformParameters
parameters :: Prelude.Maybe TransformParameters,
GetMLTransformResponse -> Maybe Text
role' :: Prelude.Maybe Prelude.Text,
GetMLTransformResponse -> Maybe [SchemaColumn]
schema :: Prelude.Maybe [SchemaColumn],
GetMLTransformResponse -> Maybe TransformStatusType
status :: Prelude.Maybe TransformStatusType,
GetMLTransformResponse -> Maybe Natural
timeout :: Prelude.Maybe Prelude.Natural,
GetMLTransformResponse -> Maybe TransformEncryption
transformEncryption :: Prelude.Maybe TransformEncryption,
GetMLTransformResponse -> Maybe Text
transformId :: Prelude.Maybe Prelude.Text,
GetMLTransformResponse -> Maybe WorkerType
workerType :: Prelude.Maybe WorkerType,
GetMLTransformResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetMLTransformResponse -> GetMLTransformResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetMLTransformResponse -> GetMLTransformResponse -> Bool
$c/= :: GetMLTransformResponse -> GetMLTransformResponse -> Bool
== :: GetMLTransformResponse -> GetMLTransformResponse -> Bool
$c== :: GetMLTransformResponse -> GetMLTransformResponse -> Bool
Prelude.Eq, ReadPrec [GetMLTransformResponse]
ReadPrec GetMLTransformResponse
Int -> ReadS GetMLTransformResponse
ReadS [GetMLTransformResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetMLTransformResponse]
$creadListPrec :: ReadPrec [GetMLTransformResponse]
readPrec :: ReadPrec GetMLTransformResponse
$creadPrec :: ReadPrec GetMLTransformResponse
readList :: ReadS [GetMLTransformResponse]
$creadList :: ReadS [GetMLTransformResponse]
readsPrec :: Int -> ReadS GetMLTransformResponse
$creadsPrec :: Int -> ReadS GetMLTransformResponse
Prelude.Read, Int -> GetMLTransformResponse -> ShowS
[GetMLTransformResponse] -> ShowS
GetMLTransformResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetMLTransformResponse] -> ShowS
$cshowList :: [GetMLTransformResponse] -> ShowS
show :: GetMLTransformResponse -> String
$cshow :: GetMLTransformResponse -> String
showsPrec :: Int -> GetMLTransformResponse -> ShowS
$cshowsPrec :: Int -> GetMLTransformResponse -> ShowS
Prelude.Show, forall x. Rep GetMLTransformResponse x -> GetMLTransformResponse
forall x. GetMLTransformResponse -> Rep GetMLTransformResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetMLTransformResponse x -> GetMLTransformResponse
$cfrom :: forall x. GetMLTransformResponse -> Rep GetMLTransformResponse x
Prelude.Generic)
newGetMLTransformResponse ::
Prelude.Int ->
GetMLTransformResponse
newGetMLTransformResponse :: Int -> GetMLTransformResponse
newGetMLTransformResponse Int
pHttpStatus_ =
GetMLTransformResponse'
{ $sel:createdOn:GetMLTransformResponse' :: Maybe POSIX
createdOn =
forall a. Maybe a
Prelude.Nothing,
$sel:description:GetMLTransformResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:evaluationMetrics:GetMLTransformResponse' :: Maybe EvaluationMetrics
evaluationMetrics = forall a. Maybe a
Prelude.Nothing,
$sel:glueVersion:GetMLTransformResponse' :: Maybe Text
glueVersion = forall a. Maybe a
Prelude.Nothing,
$sel:inputRecordTables:GetMLTransformResponse' :: Maybe [GlueTable]
inputRecordTables = forall a. Maybe a
Prelude.Nothing,
$sel:labelCount:GetMLTransformResponse' :: Maybe Int
labelCount = forall a. Maybe a
Prelude.Nothing,
$sel:lastModifiedOn:GetMLTransformResponse' :: Maybe POSIX
lastModifiedOn = forall a. Maybe a
Prelude.Nothing,
$sel:maxCapacity:GetMLTransformResponse' :: Maybe Double
maxCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:maxRetries:GetMLTransformResponse' :: Maybe Int
maxRetries = forall a. Maybe a
Prelude.Nothing,
$sel:name:GetMLTransformResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:numberOfWorkers:GetMLTransformResponse' :: Maybe Int
numberOfWorkers = forall a. Maybe a
Prelude.Nothing,
$sel:parameters:GetMLTransformResponse' :: Maybe TransformParameters
parameters = forall a. Maybe a
Prelude.Nothing,
$sel:role':GetMLTransformResponse' :: Maybe Text
role' = forall a. Maybe a
Prelude.Nothing,
$sel:schema:GetMLTransformResponse' :: Maybe [SchemaColumn]
schema = forall a. Maybe a
Prelude.Nothing,
$sel:status:GetMLTransformResponse' :: Maybe TransformStatusType
status = forall a. Maybe a
Prelude.Nothing,
$sel:timeout:GetMLTransformResponse' :: Maybe Natural
timeout = forall a. Maybe a
Prelude.Nothing,
$sel:transformEncryption:GetMLTransformResponse' :: Maybe TransformEncryption
transformEncryption = forall a. Maybe a
Prelude.Nothing,
$sel:transformId:GetMLTransformResponse' :: Maybe Text
transformId = forall a. Maybe a
Prelude.Nothing,
$sel:workerType:GetMLTransformResponse' :: Maybe WorkerType
workerType = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetMLTransformResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getMLTransformResponse_createdOn :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.UTCTime)
getMLTransformResponse_createdOn :: Lens' GetMLTransformResponse (Maybe UTCTime)
getMLTransformResponse_createdOn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe POSIX
createdOn :: Maybe POSIX
$sel:createdOn:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe POSIX
createdOn} -> Maybe POSIX
createdOn) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe POSIX
a -> GetMLTransformResponse
s {$sel:createdOn:GetMLTransformResponse' :: Maybe POSIX
createdOn = Maybe POSIX
a} :: GetMLTransformResponse) 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
getMLTransformResponse_description :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Text)
getMLTransformResponse_description :: Lens' GetMLTransformResponse (Maybe Text)
getMLTransformResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Text
description :: Maybe Text
$sel:description:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Text
a -> GetMLTransformResponse
s {$sel:description:GetMLTransformResponse' :: Maybe Text
description = Maybe Text
a} :: GetMLTransformResponse)
getMLTransformResponse_evaluationMetrics :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe EvaluationMetrics)
getMLTransformResponse_evaluationMetrics :: Lens' GetMLTransformResponse (Maybe EvaluationMetrics)
getMLTransformResponse_evaluationMetrics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe EvaluationMetrics
evaluationMetrics :: Maybe EvaluationMetrics
$sel:evaluationMetrics:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe EvaluationMetrics
evaluationMetrics} -> Maybe EvaluationMetrics
evaluationMetrics) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe EvaluationMetrics
a -> GetMLTransformResponse
s {$sel:evaluationMetrics:GetMLTransformResponse' :: Maybe EvaluationMetrics
evaluationMetrics = Maybe EvaluationMetrics
a} :: GetMLTransformResponse)
getMLTransformResponse_glueVersion :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Text)
getMLTransformResponse_glueVersion :: Lens' GetMLTransformResponse (Maybe Text)
getMLTransformResponse_glueVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Text
glueVersion :: Maybe Text
$sel:glueVersion:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
glueVersion} -> Maybe Text
glueVersion) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Text
a -> GetMLTransformResponse
s {$sel:glueVersion:GetMLTransformResponse' :: Maybe Text
glueVersion = Maybe Text
a} :: GetMLTransformResponse)
getMLTransformResponse_inputRecordTables :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe [GlueTable])
getMLTransformResponse_inputRecordTables :: Lens' GetMLTransformResponse (Maybe [GlueTable])
getMLTransformResponse_inputRecordTables = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe [GlueTable]
inputRecordTables :: Maybe [GlueTable]
$sel:inputRecordTables:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe [GlueTable]
inputRecordTables} -> Maybe [GlueTable]
inputRecordTables) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe [GlueTable]
a -> GetMLTransformResponse
s {$sel:inputRecordTables:GetMLTransformResponse' :: Maybe [GlueTable]
inputRecordTables = Maybe [GlueTable]
a} :: GetMLTransformResponse) 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
getMLTransformResponse_labelCount :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Int)
getMLTransformResponse_labelCount :: Lens' GetMLTransformResponse (Maybe Int)
getMLTransformResponse_labelCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Int
labelCount :: Maybe Int
$sel:labelCount:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Int
labelCount} -> Maybe Int
labelCount) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Int
a -> GetMLTransformResponse
s {$sel:labelCount:GetMLTransformResponse' :: Maybe Int
labelCount = Maybe Int
a} :: GetMLTransformResponse)
getMLTransformResponse_lastModifiedOn :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.UTCTime)
getMLTransformResponse_lastModifiedOn :: Lens' GetMLTransformResponse (Maybe UTCTime)
getMLTransformResponse_lastModifiedOn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe POSIX
lastModifiedOn :: Maybe POSIX
$sel:lastModifiedOn:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe POSIX
lastModifiedOn} -> Maybe POSIX
lastModifiedOn) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe POSIX
a -> GetMLTransformResponse
s {$sel:lastModifiedOn:GetMLTransformResponse' :: Maybe POSIX
lastModifiedOn = Maybe POSIX
a} :: GetMLTransformResponse) 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
getMLTransformResponse_maxCapacity :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Double)
getMLTransformResponse_maxCapacity :: Lens' GetMLTransformResponse (Maybe Double)
getMLTransformResponse_maxCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Double
maxCapacity :: Maybe Double
$sel:maxCapacity:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Double
maxCapacity} -> Maybe Double
maxCapacity) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Double
a -> GetMLTransformResponse
s {$sel:maxCapacity:GetMLTransformResponse' :: Maybe Double
maxCapacity = Maybe Double
a} :: GetMLTransformResponse)
getMLTransformResponse_maxRetries :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Int)
getMLTransformResponse_maxRetries :: Lens' GetMLTransformResponse (Maybe Int)
getMLTransformResponse_maxRetries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Int
maxRetries :: Maybe Int
$sel:maxRetries:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Int
maxRetries} -> Maybe Int
maxRetries) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Int
a -> GetMLTransformResponse
s {$sel:maxRetries:GetMLTransformResponse' :: Maybe Int
maxRetries = Maybe Int
a} :: GetMLTransformResponse)
getMLTransformResponse_name :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Text)
getMLTransformResponse_name :: Lens' GetMLTransformResponse (Maybe Text)
getMLTransformResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Text
name :: Maybe Text
$sel:name:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Text
a -> GetMLTransformResponse
s {$sel:name:GetMLTransformResponse' :: Maybe Text
name = Maybe Text
a} :: GetMLTransformResponse)
getMLTransformResponse_numberOfWorkers :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Int)
getMLTransformResponse_numberOfWorkers :: Lens' GetMLTransformResponse (Maybe Int)
getMLTransformResponse_numberOfWorkers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Int
numberOfWorkers :: Maybe Int
$sel:numberOfWorkers:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Int
numberOfWorkers} -> Maybe Int
numberOfWorkers) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Int
a -> GetMLTransformResponse
s {$sel:numberOfWorkers:GetMLTransformResponse' :: Maybe Int
numberOfWorkers = Maybe Int
a} :: GetMLTransformResponse)
getMLTransformResponse_parameters :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe TransformParameters)
getMLTransformResponse_parameters :: Lens' GetMLTransformResponse (Maybe TransformParameters)
getMLTransformResponse_parameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe TransformParameters
parameters :: Maybe TransformParameters
$sel:parameters:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe TransformParameters
parameters} -> Maybe TransformParameters
parameters) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe TransformParameters
a -> GetMLTransformResponse
s {$sel:parameters:GetMLTransformResponse' :: Maybe TransformParameters
parameters = Maybe TransformParameters
a} :: GetMLTransformResponse)
getMLTransformResponse_role :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Text)
getMLTransformResponse_role :: Lens' GetMLTransformResponse (Maybe Text)
getMLTransformResponse_role = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Text
role' :: Maybe Text
$sel:role':GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
role'} -> Maybe Text
role') (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Text
a -> GetMLTransformResponse
s {$sel:role':GetMLTransformResponse' :: Maybe Text
role' = Maybe Text
a} :: GetMLTransformResponse)
getMLTransformResponse_schema :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe [SchemaColumn])
getMLTransformResponse_schema :: Lens' GetMLTransformResponse (Maybe [SchemaColumn])
getMLTransformResponse_schema = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe [SchemaColumn]
schema :: Maybe [SchemaColumn]
$sel:schema:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe [SchemaColumn]
schema} -> Maybe [SchemaColumn]
schema) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe [SchemaColumn]
a -> GetMLTransformResponse
s {$sel:schema:GetMLTransformResponse' :: Maybe [SchemaColumn]
schema = Maybe [SchemaColumn]
a} :: GetMLTransformResponse) 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
getMLTransformResponse_status :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe TransformStatusType)
getMLTransformResponse_status :: Lens' GetMLTransformResponse (Maybe TransformStatusType)
getMLTransformResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe TransformStatusType
status :: Maybe TransformStatusType
$sel:status:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe TransformStatusType
status} -> Maybe TransformStatusType
status) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe TransformStatusType
a -> GetMLTransformResponse
s {$sel:status:GetMLTransformResponse' :: Maybe TransformStatusType
status = Maybe TransformStatusType
a} :: GetMLTransformResponse)
getMLTransformResponse_timeout :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Natural)
getMLTransformResponse_timeout :: Lens' GetMLTransformResponse (Maybe Natural)
getMLTransformResponse_timeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Natural
timeout :: Maybe Natural
$sel:timeout:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Natural
timeout} -> Maybe Natural
timeout) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Natural
a -> GetMLTransformResponse
s {$sel:timeout:GetMLTransformResponse' :: Maybe Natural
timeout = Maybe Natural
a} :: GetMLTransformResponse)
getMLTransformResponse_transformEncryption :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe TransformEncryption)
getMLTransformResponse_transformEncryption :: Lens' GetMLTransformResponse (Maybe TransformEncryption)
getMLTransformResponse_transformEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe TransformEncryption
transformEncryption :: Maybe TransformEncryption
$sel:transformEncryption:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe TransformEncryption
transformEncryption} -> Maybe TransformEncryption
transformEncryption) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe TransformEncryption
a -> GetMLTransformResponse
s {$sel:transformEncryption:GetMLTransformResponse' :: Maybe TransformEncryption
transformEncryption = Maybe TransformEncryption
a} :: GetMLTransformResponse)
getMLTransformResponse_transformId :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe Prelude.Text)
getMLTransformResponse_transformId :: Lens' GetMLTransformResponse (Maybe Text)
getMLTransformResponse_transformId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe Text
transformId :: Maybe Text
$sel:transformId:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
transformId} -> Maybe Text
transformId) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe Text
a -> GetMLTransformResponse
s {$sel:transformId:GetMLTransformResponse' :: Maybe Text
transformId = Maybe Text
a} :: GetMLTransformResponse)
getMLTransformResponse_workerType :: Lens.Lens' GetMLTransformResponse (Prelude.Maybe WorkerType)
getMLTransformResponse_workerType :: Lens' GetMLTransformResponse (Maybe WorkerType)
getMLTransformResponse_workerType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Maybe WorkerType
workerType :: Maybe WorkerType
$sel:workerType:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe WorkerType
workerType} -> Maybe WorkerType
workerType) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Maybe WorkerType
a -> GetMLTransformResponse
s {$sel:workerType:GetMLTransformResponse' :: Maybe WorkerType
workerType = Maybe WorkerType
a} :: GetMLTransformResponse)
getMLTransformResponse_httpStatus :: Lens.Lens' GetMLTransformResponse Prelude.Int
getMLTransformResponse_httpStatus :: Lens' GetMLTransformResponse Int
getMLTransformResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetMLTransformResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetMLTransformResponse' :: GetMLTransformResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetMLTransformResponse
s@GetMLTransformResponse' {} Int
a -> GetMLTransformResponse
s {$sel:httpStatus:GetMLTransformResponse' :: Int
httpStatus = Int
a} :: GetMLTransformResponse)
instance Prelude.NFData GetMLTransformResponse where
rnf :: GetMLTransformResponse -> ()
rnf GetMLTransformResponse' {Int
Maybe Double
Maybe Int
Maybe Natural
Maybe [GlueTable]
Maybe [SchemaColumn]
Maybe Text
Maybe POSIX
Maybe TransformEncryption
Maybe TransformStatusType
Maybe TransformParameters
Maybe EvaluationMetrics
Maybe WorkerType
httpStatus :: Int
workerType :: Maybe WorkerType
transformId :: Maybe Text
transformEncryption :: Maybe TransformEncryption
timeout :: Maybe Natural
status :: Maybe TransformStatusType
schema :: Maybe [SchemaColumn]
role' :: Maybe Text
parameters :: Maybe TransformParameters
numberOfWorkers :: Maybe Int
name :: Maybe Text
maxRetries :: Maybe Int
maxCapacity :: Maybe Double
lastModifiedOn :: Maybe POSIX
labelCount :: Maybe Int
inputRecordTables :: Maybe [GlueTable]
glueVersion :: Maybe Text
evaluationMetrics :: Maybe EvaluationMetrics
description :: Maybe Text
createdOn :: Maybe POSIX
$sel:httpStatus:GetMLTransformResponse' :: GetMLTransformResponse -> Int
$sel:workerType:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe WorkerType
$sel:transformId:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
$sel:transformEncryption:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe TransformEncryption
$sel:timeout:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Natural
$sel:status:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe TransformStatusType
$sel:schema:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe [SchemaColumn]
$sel:role':GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
$sel:parameters:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe TransformParameters
$sel:numberOfWorkers:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Int
$sel:name:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
$sel:maxRetries:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Int
$sel:maxCapacity:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Double
$sel:lastModifiedOn:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe POSIX
$sel:labelCount:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Int
$sel:inputRecordTables:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe [GlueTable]
$sel:glueVersion:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
$sel:evaluationMetrics:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe EvaluationMetrics
$sel:description:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe Text
$sel:createdOn:GetMLTransformResponse' :: GetMLTransformResponse -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdOn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EvaluationMetrics
evaluationMetrics
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
glueVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [GlueTable]
inputRecordTables
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
labelCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
lastModifiedOn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
maxCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxRetries
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
numberOfWorkers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TransformParameters
parameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
role'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [SchemaColumn]
schema
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TransformStatusType
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
timeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TransformEncryption
transformEncryption
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
transformId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe WorkerType
workerType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus