{-# 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.CreateTable
(
createTable
, CreateTable
, ctCatalogId
, ctDatabaseName
, ctTableInput
, createTableResponse
, CreateTableResponse
, cttrsResponseStatus
) 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 CreateTable = CreateTable'
{ _ctCatalogId :: !(Maybe Text)
, _ctDatabaseName :: !Text
, _ctTableInput :: !TableInput
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createTable
:: Text
-> TableInput
-> CreateTable
createTable pDatabaseName_ pTableInput_ =
CreateTable'
{ _ctCatalogId = Nothing
, _ctDatabaseName = pDatabaseName_
, _ctTableInput = pTableInput_
}
ctCatalogId :: Lens' CreateTable (Maybe Text)
ctCatalogId = lens _ctCatalogId (\ s a -> s{_ctCatalogId = a})
ctDatabaseName :: Lens' CreateTable Text
ctDatabaseName = lens _ctDatabaseName (\ s a -> s{_ctDatabaseName = a})
ctTableInput :: Lens' CreateTable TableInput
ctTableInput = lens _ctTableInput (\ s a -> s{_ctTableInput = a})
instance AWSRequest CreateTable where
type Rs CreateTable = CreateTableResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
CreateTableResponse' <$> (pure (fromEnum s)))
instance Hashable CreateTable where
instance NFData CreateTable where
instance ToHeaders CreateTable where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.CreateTable" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateTable where
toJSON CreateTable'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _ctCatalogId,
Just ("DatabaseName" .= _ctDatabaseName),
Just ("TableInput" .= _ctTableInput)])
instance ToPath CreateTable where
toPath = const "/"
instance ToQuery CreateTable where
toQuery = const mempty
newtype CreateTableResponse = CreateTableResponse'
{ _cttrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createTableResponse
:: Int
-> CreateTableResponse
createTableResponse pResponseStatus_ =
CreateTableResponse' {_cttrsResponseStatus = pResponseStatus_}
cttrsResponseStatus :: Lens' CreateTableResponse Int
cttrsResponseStatus = lens _cttrsResponseStatus (\ s a -> s{_cttrsResponseStatus = a})
instance NFData CreateTableResponse where