{-# 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.BatchDeleteTableVersion
(
BatchDeleteTableVersion (..),
newBatchDeleteTableVersion,
batchDeleteTableVersion_catalogId,
batchDeleteTableVersion_databaseName,
batchDeleteTableVersion_tableName,
batchDeleteTableVersion_versionIds,
BatchDeleteTableVersionResponse (..),
newBatchDeleteTableVersionResponse,
batchDeleteTableVersionResponse_errors,
batchDeleteTableVersionResponse_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 BatchDeleteTableVersion = BatchDeleteTableVersion'
{
BatchDeleteTableVersion -> Maybe Text
catalogId :: Prelude.Maybe Prelude.Text,
BatchDeleteTableVersion -> Text
databaseName :: Prelude.Text,
BatchDeleteTableVersion -> Text
tableName :: Prelude.Text,
BatchDeleteTableVersion -> [Text]
versionIds :: [Prelude.Text]
}
deriving (BatchDeleteTableVersion -> BatchDeleteTableVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchDeleteTableVersion -> BatchDeleteTableVersion -> Bool
$c/= :: BatchDeleteTableVersion -> BatchDeleteTableVersion -> Bool
== :: BatchDeleteTableVersion -> BatchDeleteTableVersion -> Bool
$c== :: BatchDeleteTableVersion -> BatchDeleteTableVersion -> Bool
Prelude.Eq, ReadPrec [BatchDeleteTableVersion]
ReadPrec BatchDeleteTableVersion
Int -> ReadS BatchDeleteTableVersion
ReadS [BatchDeleteTableVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchDeleteTableVersion]
$creadListPrec :: ReadPrec [BatchDeleteTableVersion]
readPrec :: ReadPrec BatchDeleteTableVersion
$creadPrec :: ReadPrec BatchDeleteTableVersion
readList :: ReadS [BatchDeleteTableVersion]
$creadList :: ReadS [BatchDeleteTableVersion]
readsPrec :: Int -> ReadS BatchDeleteTableVersion
$creadsPrec :: Int -> ReadS BatchDeleteTableVersion
Prelude.Read, Int -> BatchDeleteTableVersion -> ShowS
[BatchDeleteTableVersion] -> ShowS
BatchDeleteTableVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchDeleteTableVersion] -> ShowS
$cshowList :: [BatchDeleteTableVersion] -> ShowS
show :: BatchDeleteTableVersion -> String
$cshow :: BatchDeleteTableVersion -> String
showsPrec :: Int -> BatchDeleteTableVersion -> ShowS
$cshowsPrec :: Int -> BatchDeleteTableVersion -> ShowS
Prelude.Show, forall x. Rep BatchDeleteTableVersion x -> BatchDeleteTableVersion
forall x. BatchDeleteTableVersion -> Rep BatchDeleteTableVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep BatchDeleteTableVersion x -> BatchDeleteTableVersion
$cfrom :: forall x. BatchDeleteTableVersion -> Rep BatchDeleteTableVersion x
Prelude.Generic)
newBatchDeleteTableVersion ::
Prelude.Text ->
Prelude.Text ->
BatchDeleteTableVersion
newBatchDeleteTableVersion :: Text -> Text -> BatchDeleteTableVersion
newBatchDeleteTableVersion Text
pDatabaseName_ Text
pTableName_ =
BatchDeleteTableVersion'
{ $sel:catalogId:BatchDeleteTableVersion' :: Maybe Text
catalogId =
forall a. Maybe a
Prelude.Nothing,
$sel:databaseName:BatchDeleteTableVersion' :: Text
databaseName = Text
pDatabaseName_,
$sel:tableName:BatchDeleteTableVersion' :: Text
tableName = Text
pTableName_,
$sel:versionIds:BatchDeleteTableVersion' :: [Text]
versionIds = forall a. Monoid a => a
Prelude.mempty
}
batchDeleteTableVersion_catalogId :: Lens.Lens' BatchDeleteTableVersion (Prelude.Maybe Prelude.Text)
batchDeleteTableVersion_catalogId :: Lens' BatchDeleteTableVersion (Maybe Text)
batchDeleteTableVersion_catalogId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchDeleteTableVersion' {Maybe Text
catalogId :: Maybe Text
$sel:catalogId:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Maybe Text
catalogId} -> Maybe Text
catalogId) (\s :: BatchDeleteTableVersion
s@BatchDeleteTableVersion' {} Maybe Text
a -> BatchDeleteTableVersion
s {$sel:catalogId:BatchDeleteTableVersion' :: Maybe Text
catalogId = Maybe Text
a} :: BatchDeleteTableVersion)
batchDeleteTableVersion_databaseName :: Lens.Lens' BatchDeleteTableVersion Prelude.Text
batchDeleteTableVersion_databaseName :: Lens' BatchDeleteTableVersion Text
batchDeleteTableVersion_databaseName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchDeleteTableVersion' {Text
databaseName :: Text
$sel:databaseName:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Text
databaseName} -> Text
databaseName) (\s :: BatchDeleteTableVersion
s@BatchDeleteTableVersion' {} Text
a -> BatchDeleteTableVersion
s {$sel:databaseName:BatchDeleteTableVersion' :: Text
databaseName = Text
a} :: BatchDeleteTableVersion)
batchDeleteTableVersion_tableName :: Lens.Lens' BatchDeleteTableVersion Prelude.Text
batchDeleteTableVersion_tableName :: Lens' BatchDeleteTableVersion Text
batchDeleteTableVersion_tableName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchDeleteTableVersion' {Text
tableName :: Text
$sel:tableName:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Text
tableName} -> Text
tableName) (\s :: BatchDeleteTableVersion
s@BatchDeleteTableVersion' {} Text
a -> BatchDeleteTableVersion
s {$sel:tableName:BatchDeleteTableVersion' :: Text
tableName = Text
a} :: BatchDeleteTableVersion)
batchDeleteTableVersion_versionIds :: Lens.Lens' BatchDeleteTableVersion [Prelude.Text]
batchDeleteTableVersion_versionIds :: Lens' BatchDeleteTableVersion [Text]
batchDeleteTableVersion_versionIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchDeleteTableVersion' {[Text]
versionIds :: [Text]
$sel:versionIds:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> [Text]
versionIds} -> [Text]
versionIds) (\s :: BatchDeleteTableVersion
s@BatchDeleteTableVersion' {} [Text]
a -> BatchDeleteTableVersion
s {$sel:versionIds:BatchDeleteTableVersion' :: [Text]
versionIds = [Text]
a} :: BatchDeleteTableVersion) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest BatchDeleteTableVersion where
type
AWSResponse BatchDeleteTableVersion =
BatchDeleteTableVersionResponse
request :: (Service -> Service)
-> BatchDeleteTableVersion -> Request BatchDeleteTableVersion
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 BatchDeleteTableVersion
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse BatchDeleteTableVersion)))
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 [TableVersionError] -> Int -> BatchDeleteTableVersionResponse
BatchDeleteTableVersionResponse'
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
"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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable BatchDeleteTableVersion where
hashWithSalt :: Int -> BatchDeleteTableVersion -> Int
hashWithSalt Int
_salt BatchDeleteTableVersion' {[Text]
Maybe Text
Text
versionIds :: [Text]
tableName :: Text
databaseName :: Text
catalogId :: Maybe Text
$sel:versionIds:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> [Text]
$sel:tableName:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Text
$sel:databaseName:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Text
$sel:catalogId:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
catalogId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
databaseName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
tableName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
versionIds
instance Prelude.NFData BatchDeleteTableVersion where
rnf :: BatchDeleteTableVersion -> ()
rnf BatchDeleteTableVersion' {[Text]
Maybe Text
Text
versionIds :: [Text]
tableName :: Text
databaseName :: Text
catalogId :: Maybe Text
$sel:versionIds:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> [Text]
$sel:tableName:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Text
$sel:databaseName:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Text
$sel:catalogId:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
catalogId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
databaseName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
tableName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
versionIds
instance Data.ToHeaders BatchDeleteTableVersion where
toHeaders :: BatchDeleteTableVersion -> 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.BatchDeleteTableVersion" ::
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 BatchDeleteTableVersion where
toJSON :: BatchDeleteTableVersion -> Value
toJSON BatchDeleteTableVersion' {[Text]
Maybe Text
Text
versionIds :: [Text]
tableName :: Text
databaseName :: Text
catalogId :: Maybe Text
$sel:versionIds:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> [Text]
$sel:tableName:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Text
$sel:databaseName:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Text
$sel:catalogId:BatchDeleteTableVersion' :: BatchDeleteTableVersion -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CatalogId" 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
catalogId,
forall a. a -> Maybe a
Prelude.Just (Key
"DatabaseName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
databaseName),
forall a. a -> Maybe a
Prelude.Just (Key
"TableName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
tableName),
forall a. a -> Maybe a
Prelude.Just (Key
"VersionIds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Text]
versionIds)
]
)
instance Data.ToPath BatchDeleteTableVersion where
toPath :: BatchDeleteTableVersion -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery BatchDeleteTableVersion where
toQuery :: BatchDeleteTableVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data BatchDeleteTableVersionResponse = BatchDeleteTableVersionResponse'
{
BatchDeleteTableVersionResponse -> Maybe [TableVersionError]
errors :: Prelude.Maybe [TableVersionError],
BatchDeleteTableVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (BatchDeleteTableVersionResponse
-> BatchDeleteTableVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchDeleteTableVersionResponse
-> BatchDeleteTableVersionResponse -> Bool
$c/= :: BatchDeleteTableVersionResponse
-> BatchDeleteTableVersionResponse -> Bool
== :: BatchDeleteTableVersionResponse
-> BatchDeleteTableVersionResponse -> Bool
$c== :: BatchDeleteTableVersionResponse
-> BatchDeleteTableVersionResponse -> Bool
Prelude.Eq, ReadPrec [BatchDeleteTableVersionResponse]
ReadPrec BatchDeleteTableVersionResponse
Int -> ReadS BatchDeleteTableVersionResponse
ReadS [BatchDeleteTableVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchDeleteTableVersionResponse]
$creadListPrec :: ReadPrec [BatchDeleteTableVersionResponse]
readPrec :: ReadPrec BatchDeleteTableVersionResponse
$creadPrec :: ReadPrec BatchDeleteTableVersionResponse
readList :: ReadS [BatchDeleteTableVersionResponse]
$creadList :: ReadS [BatchDeleteTableVersionResponse]
readsPrec :: Int -> ReadS BatchDeleteTableVersionResponse
$creadsPrec :: Int -> ReadS BatchDeleteTableVersionResponse
Prelude.Read, Int -> BatchDeleteTableVersionResponse -> ShowS
[BatchDeleteTableVersionResponse] -> ShowS
BatchDeleteTableVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchDeleteTableVersionResponse] -> ShowS
$cshowList :: [BatchDeleteTableVersionResponse] -> ShowS
show :: BatchDeleteTableVersionResponse -> String
$cshow :: BatchDeleteTableVersionResponse -> String
showsPrec :: Int -> BatchDeleteTableVersionResponse -> ShowS
$cshowsPrec :: Int -> BatchDeleteTableVersionResponse -> ShowS
Prelude.Show, forall x.
Rep BatchDeleteTableVersionResponse x
-> BatchDeleteTableVersionResponse
forall x.
BatchDeleteTableVersionResponse
-> Rep BatchDeleteTableVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep BatchDeleteTableVersionResponse x
-> BatchDeleteTableVersionResponse
$cfrom :: forall x.
BatchDeleteTableVersionResponse
-> Rep BatchDeleteTableVersionResponse x
Prelude.Generic)
newBatchDeleteTableVersionResponse ::
Prelude.Int ->
BatchDeleteTableVersionResponse
newBatchDeleteTableVersionResponse :: Int -> BatchDeleteTableVersionResponse
newBatchDeleteTableVersionResponse Int
pHttpStatus_ =
BatchDeleteTableVersionResponse'
{ $sel:errors:BatchDeleteTableVersionResponse' :: Maybe [TableVersionError]
errors =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:BatchDeleteTableVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
batchDeleteTableVersionResponse_errors :: Lens.Lens' BatchDeleteTableVersionResponse (Prelude.Maybe [TableVersionError])
batchDeleteTableVersionResponse_errors :: Lens' BatchDeleteTableVersionResponse (Maybe [TableVersionError])
batchDeleteTableVersionResponse_errors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchDeleteTableVersionResponse' {Maybe [TableVersionError]
errors :: Maybe [TableVersionError]
$sel:errors:BatchDeleteTableVersionResponse' :: BatchDeleteTableVersionResponse -> Maybe [TableVersionError]
errors} -> Maybe [TableVersionError]
errors) (\s :: BatchDeleteTableVersionResponse
s@BatchDeleteTableVersionResponse' {} Maybe [TableVersionError]
a -> BatchDeleteTableVersionResponse
s {$sel:errors:BatchDeleteTableVersionResponse' :: Maybe [TableVersionError]
errors = Maybe [TableVersionError]
a} :: BatchDeleteTableVersionResponse) 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
batchDeleteTableVersionResponse_httpStatus :: Lens.Lens' BatchDeleteTableVersionResponse Prelude.Int
batchDeleteTableVersionResponse_httpStatus :: Lens' BatchDeleteTableVersionResponse Int
batchDeleteTableVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchDeleteTableVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:BatchDeleteTableVersionResponse' :: BatchDeleteTableVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: BatchDeleteTableVersionResponse
s@BatchDeleteTableVersionResponse' {} Int
a -> BatchDeleteTableVersionResponse
s {$sel:httpStatus:BatchDeleteTableVersionResponse' :: Int
httpStatus = Int
a} :: BatchDeleteTableVersionResponse)
instance
Prelude.NFData
BatchDeleteTableVersionResponse
where
rnf :: BatchDeleteTableVersionResponse -> ()
rnf BatchDeleteTableVersionResponse' {Int
Maybe [TableVersionError]
httpStatus :: Int
errors :: Maybe [TableVersionError]
$sel:httpStatus:BatchDeleteTableVersionResponse' :: BatchDeleteTableVersionResponse -> Int
$sel:errors:BatchDeleteTableVersionResponse' :: BatchDeleteTableVersionResponse -> Maybe [TableVersionError]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [TableVersionError]
errors
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus