{-# 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.LakeFormation.ListTableStorageOptimizers
(
ListTableStorageOptimizers (..),
newListTableStorageOptimizers,
listTableStorageOptimizers_catalogId,
listTableStorageOptimizers_maxResults,
listTableStorageOptimizers_nextToken,
listTableStorageOptimizers_storageOptimizerType,
listTableStorageOptimizers_databaseName,
listTableStorageOptimizers_tableName,
ListTableStorageOptimizersResponse (..),
newListTableStorageOptimizersResponse,
listTableStorageOptimizersResponse_nextToken,
listTableStorageOptimizersResponse_storageOptimizerList,
listTableStorageOptimizersResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LakeFormation.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListTableStorageOptimizers = ListTableStorageOptimizers'
{
ListTableStorageOptimizers -> Maybe Text
catalogId :: Prelude.Maybe Prelude.Text,
ListTableStorageOptimizers -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListTableStorageOptimizers -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTableStorageOptimizers -> Maybe OptimizerType
storageOptimizerType :: Prelude.Maybe OptimizerType,
ListTableStorageOptimizers -> Text
databaseName :: Prelude.Text,
ListTableStorageOptimizers -> Text
tableName :: Prelude.Text
}
deriving (ListTableStorageOptimizers -> ListTableStorageOptimizers -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTableStorageOptimizers -> ListTableStorageOptimizers -> Bool
$c/= :: ListTableStorageOptimizers -> ListTableStorageOptimizers -> Bool
== :: ListTableStorageOptimizers -> ListTableStorageOptimizers -> Bool
$c== :: ListTableStorageOptimizers -> ListTableStorageOptimizers -> Bool
Prelude.Eq, ReadPrec [ListTableStorageOptimizers]
ReadPrec ListTableStorageOptimizers
Int -> ReadS ListTableStorageOptimizers
ReadS [ListTableStorageOptimizers]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTableStorageOptimizers]
$creadListPrec :: ReadPrec [ListTableStorageOptimizers]
readPrec :: ReadPrec ListTableStorageOptimizers
$creadPrec :: ReadPrec ListTableStorageOptimizers
readList :: ReadS [ListTableStorageOptimizers]
$creadList :: ReadS [ListTableStorageOptimizers]
readsPrec :: Int -> ReadS ListTableStorageOptimizers
$creadsPrec :: Int -> ReadS ListTableStorageOptimizers
Prelude.Read, Int -> ListTableStorageOptimizers -> ShowS
[ListTableStorageOptimizers] -> ShowS
ListTableStorageOptimizers -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTableStorageOptimizers] -> ShowS
$cshowList :: [ListTableStorageOptimizers] -> ShowS
show :: ListTableStorageOptimizers -> String
$cshow :: ListTableStorageOptimizers -> String
showsPrec :: Int -> ListTableStorageOptimizers -> ShowS
$cshowsPrec :: Int -> ListTableStorageOptimizers -> ShowS
Prelude.Show, forall x.
Rep ListTableStorageOptimizers x -> ListTableStorageOptimizers
forall x.
ListTableStorageOptimizers -> Rep ListTableStorageOptimizers x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTableStorageOptimizers x -> ListTableStorageOptimizers
$cfrom :: forall x.
ListTableStorageOptimizers -> Rep ListTableStorageOptimizers x
Prelude.Generic)
newListTableStorageOptimizers ::
Prelude.Text ->
Prelude.Text ->
ListTableStorageOptimizers
newListTableStorageOptimizers :: Text -> Text -> ListTableStorageOptimizers
newListTableStorageOptimizers
Text
pDatabaseName_
Text
pTableName_ =
ListTableStorageOptimizers'
{ $sel:catalogId:ListTableStorageOptimizers' :: Maybe Text
catalogId =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListTableStorageOptimizers' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListTableStorageOptimizers' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:storageOptimizerType:ListTableStorageOptimizers' :: Maybe OptimizerType
storageOptimizerType = forall a. Maybe a
Prelude.Nothing,
$sel:databaseName:ListTableStorageOptimizers' :: Text
databaseName = Text
pDatabaseName_,
$sel:tableName:ListTableStorageOptimizers' :: Text
tableName = Text
pTableName_
}
listTableStorageOptimizers_catalogId :: Lens.Lens' ListTableStorageOptimizers (Prelude.Maybe Prelude.Text)
listTableStorageOptimizers_catalogId :: Lens' ListTableStorageOptimizers (Maybe Text)
listTableStorageOptimizers_catalogId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizers' {Maybe Text
catalogId :: Maybe Text
$sel:catalogId:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Text
catalogId} -> Maybe Text
catalogId) (\s :: ListTableStorageOptimizers
s@ListTableStorageOptimizers' {} Maybe Text
a -> ListTableStorageOptimizers
s {$sel:catalogId:ListTableStorageOptimizers' :: Maybe Text
catalogId = Maybe Text
a} :: ListTableStorageOptimizers)
listTableStorageOptimizers_maxResults :: Lens.Lens' ListTableStorageOptimizers (Prelude.Maybe Prelude.Natural)
listTableStorageOptimizers_maxResults :: Lens' ListTableStorageOptimizers (Maybe Natural)
listTableStorageOptimizers_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizers' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListTableStorageOptimizers
s@ListTableStorageOptimizers' {} Maybe Natural
a -> ListTableStorageOptimizers
s {$sel:maxResults:ListTableStorageOptimizers' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListTableStorageOptimizers)
listTableStorageOptimizers_nextToken :: Lens.Lens' ListTableStorageOptimizers (Prelude.Maybe Prelude.Text)
listTableStorageOptimizers_nextToken :: Lens' ListTableStorageOptimizers (Maybe Text)
listTableStorageOptimizers_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizers' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTableStorageOptimizers
s@ListTableStorageOptimizers' {} Maybe Text
a -> ListTableStorageOptimizers
s {$sel:nextToken:ListTableStorageOptimizers' :: Maybe Text
nextToken = Maybe Text
a} :: ListTableStorageOptimizers)
listTableStorageOptimizers_storageOptimizerType :: Lens.Lens' ListTableStorageOptimizers (Prelude.Maybe OptimizerType)
listTableStorageOptimizers_storageOptimizerType :: Lens' ListTableStorageOptimizers (Maybe OptimizerType)
listTableStorageOptimizers_storageOptimizerType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizers' {Maybe OptimizerType
storageOptimizerType :: Maybe OptimizerType
$sel:storageOptimizerType:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe OptimizerType
storageOptimizerType} -> Maybe OptimizerType
storageOptimizerType) (\s :: ListTableStorageOptimizers
s@ListTableStorageOptimizers' {} Maybe OptimizerType
a -> ListTableStorageOptimizers
s {$sel:storageOptimizerType:ListTableStorageOptimizers' :: Maybe OptimizerType
storageOptimizerType = Maybe OptimizerType
a} :: ListTableStorageOptimizers)
listTableStorageOptimizers_databaseName :: Lens.Lens' ListTableStorageOptimizers Prelude.Text
listTableStorageOptimizers_databaseName :: Lens' ListTableStorageOptimizers Text
listTableStorageOptimizers_databaseName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizers' {Text
databaseName :: Text
$sel:databaseName:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Text
databaseName} -> Text
databaseName) (\s :: ListTableStorageOptimizers
s@ListTableStorageOptimizers' {} Text
a -> ListTableStorageOptimizers
s {$sel:databaseName:ListTableStorageOptimizers' :: Text
databaseName = Text
a} :: ListTableStorageOptimizers)
listTableStorageOptimizers_tableName :: Lens.Lens' ListTableStorageOptimizers Prelude.Text
listTableStorageOptimizers_tableName :: Lens' ListTableStorageOptimizers Text
listTableStorageOptimizers_tableName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizers' {Text
tableName :: Text
$sel:tableName:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Text
tableName} -> Text
tableName) (\s :: ListTableStorageOptimizers
s@ListTableStorageOptimizers' {} Text
a -> ListTableStorageOptimizers
s {$sel:tableName:ListTableStorageOptimizers' :: Text
tableName = Text
a} :: ListTableStorageOptimizers)
instance Core.AWSRequest ListTableStorageOptimizers where
type
AWSResponse ListTableStorageOptimizers =
ListTableStorageOptimizersResponse
request :: (Service -> Service)
-> ListTableStorageOptimizers -> Request ListTableStorageOptimizers
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 ListTableStorageOptimizers
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListTableStorageOptimizers)))
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 [StorageOptimizer]
-> Int
-> ListTableStorageOptimizersResponse
ListTableStorageOptimizersResponse'
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
"NextToken")
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
"StorageOptimizerList"
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 ListTableStorageOptimizers where
hashWithSalt :: Int -> ListTableStorageOptimizers -> Int
hashWithSalt Int
_salt ListTableStorageOptimizers' {Maybe Natural
Maybe Text
Maybe OptimizerType
Text
tableName :: Text
databaseName :: Text
storageOptimizerType :: Maybe OptimizerType
nextToken :: Maybe Text
maxResults :: Maybe Natural
catalogId :: Maybe Text
$sel:tableName:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Text
$sel:databaseName:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Text
$sel:storageOptimizerType:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe OptimizerType
$sel:nextToken:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Text
$sel:maxResults:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Natural
$sel:catalogId:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> 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` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe OptimizerType
storageOptimizerType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
databaseName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
tableName
instance Prelude.NFData ListTableStorageOptimizers where
rnf :: ListTableStorageOptimizers -> ()
rnf ListTableStorageOptimizers' {Maybe Natural
Maybe Text
Maybe OptimizerType
Text
tableName :: Text
databaseName :: Text
storageOptimizerType :: Maybe OptimizerType
nextToken :: Maybe Text
maxResults :: Maybe Natural
catalogId :: Maybe Text
$sel:tableName:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Text
$sel:databaseName:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Text
$sel:storageOptimizerType:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe OptimizerType
$sel:nextToken:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Text
$sel:maxResults:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Natural
$sel:catalogId:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> 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 Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OptimizerType
storageOptimizerType
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
instance Data.ToHeaders ListTableStorageOptimizers where
toHeaders :: ListTableStorageOptimizers -> 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.ToJSON ListTableStorageOptimizers where
toJSON :: ListTableStorageOptimizers -> Value
toJSON ListTableStorageOptimizers' {Maybe Natural
Maybe Text
Maybe OptimizerType
Text
tableName :: Text
databaseName :: Text
storageOptimizerType :: Maybe OptimizerType
nextToken :: Maybe Text
maxResults :: Maybe Natural
catalogId :: Maybe Text
$sel:tableName:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Text
$sel:databaseName:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Text
$sel:storageOptimizerType:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe OptimizerType
$sel:nextToken:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Text
$sel:maxResults:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> Maybe Natural
$sel:catalogId:ListTableStorageOptimizers' :: ListTableStorageOptimizers -> 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,
(Key
"MaxResults" 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 Natural
maxResults,
(Key
"NextToken" 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
nextToken,
(Key
"StorageOptimizerType" 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 OptimizerType
storageOptimizerType,
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)
]
)
instance Data.ToPath ListTableStorageOptimizers where
toPath :: ListTableStorageOptimizers -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/ListTableStorageOptimizers"
instance Data.ToQuery ListTableStorageOptimizers where
toQuery :: ListTableStorageOptimizers -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListTableStorageOptimizersResponse = ListTableStorageOptimizersResponse'
{
ListTableStorageOptimizersResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTableStorageOptimizersResponse -> Maybe [StorageOptimizer]
storageOptimizerList :: Prelude.Maybe [StorageOptimizer],
ListTableStorageOptimizersResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListTableStorageOptimizersResponse
-> ListTableStorageOptimizersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTableStorageOptimizersResponse
-> ListTableStorageOptimizersResponse -> Bool
$c/= :: ListTableStorageOptimizersResponse
-> ListTableStorageOptimizersResponse -> Bool
== :: ListTableStorageOptimizersResponse
-> ListTableStorageOptimizersResponse -> Bool
$c== :: ListTableStorageOptimizersResponse
-> ListTableStorageOptimizersResponse -> Bool
Prelude.Eq, ReadPrec [ListTableStorageOptimizersResponse]
ReadPrec ListTableStorageOptimizersResponse
Int -> ReadS ListTableStorageOptimizersResponse
ReadS [ListTableStorageOptimizersResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTableStorageOptimizersResponse]
$creadListPrec :: ReadPrec [ListTableStorageOptimizersResponse]
readPrec :: ReadPrec ListTableStorageOptimizersResponse
$creadPrec :: ReadPrec ListTableStorageOptimizersResponse
readList :: ReadS [ListTableStorageOptimizersResponse]
$creadList :: ReadS [ListTableStorageOptimizersResponse]
readsPrec :: Int -> ReadS ListTableStorageOptimizersResponse
$creadsPrec :: Int -> ReadS ListTableStorageOptimizersResponse
Prelude.Read, Int -> ListTableStorageOptimizersResponse -> ShowS
[ListTableStorageOptimizersResponse] -> ShowS
ListTableStorageOptimizersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTableStorageOptimizersResponse] -> ShowS
$cshowList :: [ListTableStorageOptimizersResponse] -> ShowS
show :: ListTableStorageOptimizersResponse -> String
$cshow :: ListTableStorageOptimizersResponse -> String
showsPrec :: Int -> ListTableStorageOptimizersResponse -> ShowS
$cshowsPrec :: Int -> ListTableStorageOptimizersResponse -> ShowS
Prelude.Show, forall x.
Rep ListTableStorageOptimizersResponse x
-> ListTableStorageOptimizersResponse
forall x.
ListTableStorageOptimizersResponse
-> Rep ListTableStorageOptimizersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTableStorageOptimizersResponse x
-> ListTableStorageOptimizersResponse
$cfrom :: forall x.
ListTableStorageOptimizersResponse
-> Rep ListTableStorageOptimizersResponse x
Prelude.Generic)
newListTableStorageOptimizersResponse ::
Prelude.Int ->
ListTableStorageOptimizersResponse
newListTableStorageOptimizersResponse :: Int -> ListTableStorageOptimizersResponse
newListTableStorageOptimizersResponse Int
pHttpStatus_ =
ListTableStorageOptimizersResponse'
{ $sel:nextToken:ListTableStorageOptimizersResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:storageOptimizerList:ListTableStorageOptimizersResponse' :: Maybe [StorageOptimizer]
storageOptimizerList = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListTableStorageOptimizersResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listTableStorageOptimizersResponse_nextToken :: Lens.Lens' ListTableStorageOptimizersResponse (Prelude.Maybe Prelude.Text)
listTableStorageOptimizersResponse_nextToken :: Lens' ListTableStorageOptimizersResponse (Maybe Text)
listTableStorageOptimizersResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizersResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTableStorageOptimizersResponse' :: ListTableStorageOptimizersResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTableStorageOptimizersResponse
s@ListTableStorageOptimizersResponse' {} Maybe Text
a -> ListTableStorageOptimizersResponse
s {$sel:nextToken:ListTableStorageOptimizersResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListTableStorageOptimizersResponse)
listTableStorageOptimizersResponse_storageOptimizerList :: Lens.Lens' ListTableStorageOptimizersResponse (Prelude.Maybe [StorageOptimizer])
listTableStorageOptimizersResponse_storageOptimizerList :: Lens' ListTableStorageOptimizersResponse (Maybe [StorageOptimizer])
listTableStorageOptimizersResponse_storageOptimizerList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizersResponse' {Maybe [StorageOptimizer]
storageOptimizerList :: Maybe [StorageOptimizer]
$sel:storageOptimizerList:ListTableStorageOptimizersResponse' :: ListTableStorageOptimizersResponse -> Maybe [StorageOptimizer]
storageOptimizerList} -> Maybe [StorageOptimizer]
storageOptimizerList) (\s :: ListTableStorageOptimizersResponse
s@ListTableStorageOptimizersResponse' {} Maybe [StorageOptimizer]
a -> ListTableStorageOptimizersResponse
s {$sel:storageOptimizerList:ListTableStorageOptimizersResponse' :: Maybe [StorageOptimizer]
storageOptimizerList = Maybe [StorageOptimizer]
a} :: ListTableStorageOptimizersResponse) 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
listTableStorageOptimizersResponse_httpStatus :: Lens.Lens' ListTableStorageOptimizersResponse Prelude.Int
listTableStorageOptimizersResponse_httpStatus :: Lens' ListTableStorageOptimizersResponse Int
listTableStorageOptimizersResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTableStorageOptimizersResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListTableStorageOptimizersResponse' :: ListTableStorageOptimizersResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListTableStorageOptimizersResponse
s@ListTableStorageOptimizersResponse' {} Int
a -> ListTableStorageOptimizersResponse
s {$sel:httpStatus:ListTableStorageOptimizersResponse' :: Int
httpStatus = Int
a} :: ListTableStorageOptimizersResponse)
instance
Prelude.NFData
ListTableStorageOptimizersResponse
where
rnf :: ListTableStorageOptimizersResponse -> ()
rnf ListTableStorageOptimizersResponse' {Int
Maybe [StorageOptimizer]
Maybe Text
httpStatus :: Int
storageOptimizerList :: Maybe [StorageOptimizer]
nextToken :: Maybe Text
$sel:httpStatus:ListTableStorageOptimizersResponse' :: ListTableStorageOptimizersResponse -> Int
$sel:storageOptimizerList:ListTableStorageOptimizersResponse' :: ListTableStorageOptimizersResponse -> Maybe [StorageOptimizer]
$sel:nextToken:ListTableStorageOptimizersResponse' :: ListTableStorageOptimizersResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [StorageOptimizer]
storageOptimizerList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus