module Network.AWS.Glue.CreateDatabase
(
createDatabase
, CreateDatabase
, cdCatalogId
, cdDatabaseInput
, createDatabaseResponse
, CreateDatabaseResponse
, cdrsResponseStatus
) 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 CreateDatabase = CreateDatabase'
{ _cdCatalogId :: !(Maybe Text)
, _cdDatabaseInput :: !DatabaseInput
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDatabase
:: DatabaseInput
-> CreateDatabase
createDatabase pDatabaseInput_ =
CreateDatabase' {_cdCatalogId = Nothing, _cdDatabaseInput = pDatabaseInput_}
cdCatalogId :: Lens' CreateDatabase (Maybe Text)
cdCatalogId = lens _cdCatalogId (\ s a -> s{_cdCatalogId = a});
cdDatabaseInput :: Lens' CreateDatabase DatabaseInput
cdDatabaseInput = lens _cdDatabaseInput (\ s a -> s{_cdDatabaseInput = a});
instance AWSRequest CreateDatabase where
type Rs CreateDatabase = CreateDatabaseResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
CreateDatabaseResponse' <$> (pure (fromEnum s)))
instance Hashable CreateDatabase where
instance NFData CreateDatabase where
instance ToHeaders CreateDatabase where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.CreateDatabase" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateDatabase where
toJSON CreateDatabase'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _cdCatalogId,
Just ("DatabaseInput" .= _cdDatabaseInput)])
instance ToPath CreateDatabase where
toPath = const "/"
instance ToQuery CreateDatabase where
toQuery = const mempty
newtype CreateDatabaseResponse = CreateDatabaseResponse'
{ _cdrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDatabaseResponse
:: Int
-> CreateDatabaseResponse
createDatabaseResponse pResponseStatus_ =
CreateDatabaseResponse' {_cdrsResponseStatus = pResponseStatus_}
cdrsResponseStatus :: Lens' CreateDatabaseResponse Int
cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});
instance NFData CreateDatabaseResponse where