{-# 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.GetDatabases
(
getDatabases
, GetDatabases
, gdCatalogId
, gdNextToken
, gdMaxResults
, getDatabasesResponse
, GetDatabasesResponse
, gdsrsNextToken
, gdsrsResponseStatus
, gdsrsDatabaseList
) 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 GetDatabases = GetDatabases'
{ _gdCatalogId :: !(Maybe Text)
, _gdNextToken :: !(Maybe Text)
, _gdMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDatabases
:: GetDatabases
getDatabases =
GetDatabases'
{_gdCatalogId = Nothing, _gdNextToken = Nothing, _gdMaxResults = Nothing}
gdCatalogId :: Lens' GetDatabases (Maybe Text)
gdCatalogId = lens _gdCatalogId (\ s a -> s{_gdCatalogId = a})
gdNextToken :: Lens' GetDatabases (Maybe Text)
gdNextToken = lens _gdNextToken (\ s a -> s{_gdNextToken = a})
gdMaxResults :: Lens' GetDatabases (Maybe Natural)
gdMaxResults = lens _gdMaxResults (\ s a -> s{_gdMaxResults = a}) . mapping _Nat
instance AWSPager GetDatabases where
page rq rs
| stop (rs ^. gdsrsNextToken) = Nothing
| stop (rs ^. gdsrsDatabaseList) = Nothing
| otherwise =
Just $ rq & gdNextToken .~ rs ^. gdsrsNextToken
instance AWSRequest GetDatabases where
type Rs GetDatabases = GetDatabasesResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
GetDatabasesResponse' <$>
(x .?> "NextToken") <*> (pure (fromEnum s)) <*>
(x .?> "DatabaseList" .!@ mempty))
instance Hashable GetDatabases where
instance NFData GetDatabases where
instance ToHeaders GetDatabases where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.GetDatabases" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetDatabases where
toJSON GetDatabases'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _gdCatalogId,
("NextToken" .=) <$> _gdNextToken,
("MaxResults" .=) <$> _gdMaxResults])
instance ToPath GetDatabases where
toPath = const "/"
instance ToQuery GetDatabases where
toQuery = const mempty
data GetDatabasesResponse = GetDatabasesResponse'
{ _gdsrsNextToken :: !(Maybe Text)
, _gdsrsResponseStatus :: !Int
, _gdsrsDatabaseList :: ![Database]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDatabasesResponse
:: Int
-> GetDatabasesResponse
getDatabasesResponse pResponseStatus_ =
GetDatabasesResponse'
{ _gdsrsNextToken = Nothing
, _gdsrsResponseStatus = pResponseStatus_
, _gdsrsDatabaseList = mempty
}
gdsrsNextToken :: Lens' GetDatabasesResponse (Maybe Text)
gdsrsNextToken = lens _gdsrsNextToken (\ s a -> s{_gdsrsNextToken = a})
gdsrsResponseStatus :: Lens' GetDatabasesResponse Int
gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a})
gdsrsDatabaseList :: Lens' GetDatabasesResponse [Database]
gdsrsDatabaseList = lens _gdsrsDatabaseList (\ s a -> s{_gdsrsDatabaseList = a}) . _Coerce
instance NFData GetDatabasesResponse where