{-# 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.GetTableVersion
(
getTableVersion
, GetTableVersion
, gtvVersionId
, gtvCatalogId
, gtvDatabaseName
, gtvTableName
, getTableVersionResponse
, GetTableVersionResponse
, gtvrsTableVersion
, 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 GetTableVersion = GetTableVersion'
{ _gtvVersionId :: !(Maybe Text)
, _gtvCatalogId :: !(Maybe Text)
, _gtvDatabaseName :: !Text
, _gtvTableName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTableVersion
:: Text
-> Text
-> GetTableVersion
getTableVersion pDatabaseName_ pTableName_ =
GetTableVersion'
{ _gtvVersionId = Nothing
, _gtvCatalogId = Nothing
, _gtvDatabaseName = pDatabaseName_
, _gtvTableName = pTableName_
}
gtvVersionId :: Lens' GetTableVersion (Maybe Text)
gtvVersionId = lens _gtvVersionId (\ s a -> s{_gtvVersionId = a})
gtvCatalogId :: Lens' GetTableVersion (Maybe Text)
gtvCatalogId = lens _gtvCatalogId (\ s a -> s{_gtvCatalogId = a})
gtvDatabaseName :: Lens' GetTableVersion Text
gtvDatabaseName = lens _gtvDatabaseName (\ s a -> s{_gtvDatabaseName = a})
gtvTableName :: Lens' GetTableVersion Text
gtvTableName = lens _gtvTableName (\ s a -> s{_gtvTableName = a})
instance AWSRequest GetTableVersion where
type Rs GetTableVersion = GetTableVersionResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
GetTableVersionResponse' <$>
(x .?> "TableVersion") <*> (pure (fromEnum s)))
instance Hashable GetTableVersion where
instance NFData GetTableVersion where
instance ToHeaders GetTableVersion where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.GetTableVersion" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetTableVersion where
toJSON GetTableVersion'{..}
= object
(catMaybes
[("VersionId" .=) <$> _gtvVersionId,
("CatalogId" .=) <$> _gtvCatalogId,
Just ("DatabaseName" .= _gtvDatabaseName),
Just ("TableName" .= _gtvTableName)])
instance ToPath GetTableVersion where
toPath = const "/"
instance ToQuery GetTableVersion where
toQuery = const mempty
data GetTableVersionResponse = GetTableVersionResponse'
{ _gtvrsTableVersion :: !(Maybe TableVersion)
, _gtvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTableVersionResponse
:: Int
-> GetTableVersionResponse
getTableVersionResponse pResponseStatus_ =
GetTableVersionResponse'
{_gtvrsTableVersion = Nothing, _gtvrsResponseStatus = pResponseStatus_}
gtvrsTableVersion :: Lens' GetTableVersionResponse (Maybe TableVersion)
gtvrsTableVersion = lens _gtvrsTableVersion (\ s a -> s{_gtvrsTableVersion = a})
gtvrsResponseStatus :: Lens' GetTableVersionResponse Int
gtvrsResponseStatus = lens _gtvrsResponseStatus (\ s a -> s{_gtvrsResponseStatus = a})
instance NFData GetTableVersionResponse where