{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.Glue.GetTableVersions
(
getTableVersions
, GetTableVersions
, gtvsCatalogId
, gtvsNextToken
, gtvsMaxResults
, gtvsDatabaseName
, gtvsTableName
, getTableVersionsResponse
, GetTableVersionsResponse
, gtvsrsTableVersions
, gtvsrsNextToken
, gtvsrsResponseStatus
) where
import Network.AWS.Glue.Types
import Network.AWS.Glue.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetTableVersions = GetTableVersions'
{ _gtvsCatalogId :: !(Maybe Text)
, _gtvsNextToken :: !(Maybe Text)
, _gtvsMaxResults :: !(Maybe Nat)
, _gtvsDatabaseName :: !Text
, _gtvsTableName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTableVersions
:: Text
-> Text
-> GetTableVersions
getTableVersions pDatabaseName_ pTableName_ =
GetTableVersions'
{ _gtvsCatalogId = Nothing
, _gtvsNextToken = Nothing
, _gtvsMaxResults = Nothing
, _gtvsDatabaseName = pDatabaseName_
, _gtvsTableName = pTableName_
}
gtvsCatalogId :: Lens' GetTableVersions (Maybe Text)
gtvsCatalogId = lens _gtvsCatalogId (\ s a -> s{_gtvsCatalogId = a})
gtvsNextToken :: Lens' GetTableVersions (Maybe Text)
gtvsNextToken = lens _gtvsNextToken (\ s a -> s{_gtvsNextToken = a})
gtvsMaxResults :: Lens' GetTableVersions (Maybe Natural)
gtvsMaxResults = lens _gtvsMaxResults (\ s a -> s{_gtvsMaxResults = a}) . mapping _Nat
gtvsDatabaseName :: Lens' GetTableVersions Text
gtvsDatabaseName = lens _gtvsDatabaseName (\ s a -> s{_gtvsDatabaseName = a})
gtvsTableName :: Lens' GetTableVersions Text
gtvsTableName = lens _gtvsTableName (\ s a -> s{_gtvsTableName = a})
instance AWSPager GetTableVersions where
page rq rs
| stop (rs ^. gtvsrsNextToken) = Nothing
| stop (rs ^. gtvsrsTableVersions) = Nothing
| otherwise =
Just $ rq & gtvsNextToken .~ rs ^. gtvsrsNextToken
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" .=) <$> _gtvsCatalogId,
("NextToken" .=) <$> _gtvsNextToken,
("MaxResults" .=) <$> _gtvsMaxResults,
Just ("DatabaseName" .= _gtvsDatabaseName),
Just ("TableName" .= _gtvsTableName)])
instance ToPath GetTableVersions where
toPath = const "/"
instance ToQuery GetTableVersions where
toQuery = const mempty
data GetTableVersionsResponse = GetTableVersionsResponse'
{ _gtvsrsTableVersions :: !(Maybe [TableVersion])
, _gtvsrsNextToken :: !(Maybe Text)
, _gtvsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTableVersionsResponse
:: Int
-> GetTableVersionsResponse
getTableVersionsResponse pResponseStatus_ =
GetTableVersionsResponse'
{ _gtvsrsTableVersions = Nothing
, _gtvsrsNextToken = Nothing
, _gtvsrsResponseStatus = pResponseStatus_
}
gtvsrsTableVersions :: Lens' GetTableVersionsResponse [TableVersion]
gtvsrsTableVersions = lens _gtvsrsTableVersions (\ s a -> s{_gtvsrsTableVersions = a}) . _Default . _Coerce
gtvsrsNextToken :: Lens' GetTableVersionsResponse (Maybe Text)
gtvsrsNextToken = lens _gtvsrsNextToken (\ s a -> s{_gtvsrsNextToken = a})
gtvsrsResponseStatus :: Lens' GetTableVersionsResponse Int
gtvsrsResponseStatus = lens _gtvsrsResponseStatus (\ s a -> s{_gtvsrsResponseStatus = a})
instance NFData GetTableVersionsResponse where