module Network.AWS.Glue.GetTableVersions
(
getTableVersions
, GetTableVersions
, gtvCatalogId
, gtvNextToken
, gtvMaxResults
, gtvDatabaseName
, gtvTableName
, getTableVersionsResponse
, GetTableVersionsResponse
, gtvrsTableVersions
, gtvrsNextToken
, gtvrsResponseStatus
) where
import Network.AWS.Glue.Types
import Network.AWS.Glue.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetTableVersions = GetTableVersions'
{ _gtvCatalogId :: !(Maybe Text)
, _gtvNextToken :: !(Maybe Text)
, _gtvMaxResults :: !(Maybe Nat)
, _gtvDatabaseName :: !Text
, _gtvTableName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTableVersions
:: Text
-> Text
-> GetTableVersions
getTableVersions pDatabaseName_ pTableName_ =
GetTableVersions'
{ _gtvCatalogId = Nothing
, _gtvNextToken = Nothing
, _gtvMaxResults = Nothing
, _gtvDatabaseName = pDatabaseName_
, _gtvTableName = pTableName_
}
gtvCatalogId :: Lens' GetTableVersions (Maybe Text)
gtvCatalogId = lens _gtvCatalogId (\ s a -> s{_gtvCatalogId = a});
gtvNextToken :: Lens' GetTableVersions (Maybe Text)
gtvNextToken = lens _gtvNextToken (\ s a -> s{_gtvNextToken = a});
gtvMaxResults :: Lens' GetTableVersions (Maybe Natural)
gtvMaxResults = lens _gtvMaxResults (\ s a -> s{_gtvMaxResults = a}) . mapping _Nat;
gtvDatabaseName :: Lens' GetTableVersions Text
gtvDatabaseName = lens _gtvDatabaseName (\ s a -> s{_gtvDatabaseName = a});
gtvTableName :: Lens' GetTableVersions Text
gtvTableName = lens _gtvTableName (\ s a -> s{_gtvTableName = a});
instance AWSRequest GetTableVersions where
type Rs GetTableVersions = GetTableVersionsResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
GetTableVersionsResponse' <$>
(x .?> "TableVersions" .!@ mempty) <*>
(x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable GetTableVersions where
instance NFData GetTableVersions where
instance ToHeaders GetTableVersions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.GetTableVersions" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetTableVersions where
toJSON GetTableVersions'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _gtvCatalogId,
("NextToken" .=) <$> _gtvNextToken,
("MaxResults" .=) <$> _gtvMaxResults,
Just ("DatabaseName" .= _gtvDatabaseName),
Just ("TableName" .= _gtvTableName)])
instance ToPath GetTableVersions where
toPath = const "/"
instance ToQuery GetTableVersions where
toQuery = const mempty
data GetTableVersionsResponse = GetTableVersionsResponse'
{ _gtvrsTableVersions :: !(Maybe [TableVersion])
, _gtvrsNextToken :: !(Maybe Text)
, _gtvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTableVersionsResponse
:: Int
-> GetTableVersionsResponse
getTableVersionsResponse pResponseStatus_ =
GetTableVersionsResponse'
{ _gtvrsTableVersions = Nothing
, _gtvrsNextToken = Nothing
, _gtvrsResponseStatus = pResponseStatus_
}
gtvrsTableVersions :: Lens' GetTableVersionsResponse [TableVersion]
gtvrsTableVersions = lens _gtvrsTableVersions (\ s a -> s{_gtvrsTableVersions = a}) . _Default . _Coerce;
gtvrsNextToken :: Lens' GetTableVersionsResponse (Maybe Text)
gtvrsNextToken = lens _gtvrsNextToken (\ s a -> s{_gtvrsNextToken = a});
gtvrsResponseStatus :: Lens' GetTableVersionsResponse Int
gtvrsResponseStatus = lens _gtvrsResponseStatus (\ s a -> s{_gtvrsResponseStatus = a});
instance NFData GetTableVersionsResponse where