{-# 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.GetClassifiers
(
getClassifiers
, GetClassifiers
, gcNextToken
, gcMaxResults
, getClassifiersResponse
, GetClassifiersResponse
, gcsrsNextToken
, gcsrsClassifiers
, gcsrsResponseStatus
) 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 GetClassifiers = GetClassifiers'
{ _gcNextToken :: !(Maybe Text)
, _gcMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getClassifiers
:: GetClassifiers
getClassifiers =
GetClassifiers' {_gcNextToken = Nothing, _gcMaxResults = Nothing}
gcNextToken :: Lens' GetClassifiers (Maybe Text)
gcNextToken = lens _gcNextToken (\ s a -> s{_gcNextToken = a})
gcMaxResults :: Lens' GetClassifiers (Maybe Natural)
gcMaxResults = lens _gcMaxResults (\ s a -> s{_gcMaxResults = a}) . mapping _Nat
instance AWSPager GetClassifiers where
page rq rs
| stop (rs ^. gcsrsNextToken) = Nothing
| stop (rs ^. gcsrsClassifiers) = Nothing
| otherwise =
Just $ rq & gcNextToken .~ rs ^. gcsrsNextToken
instance AWSRequest GetClassifiers where
type Rs GetClassifiers = GetClassifiersResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
GetClassifiersResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Classifiers" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetClassifiers where
instance NFData GetClassifiers where
instance ToHeaders GetClassifiers where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.GetClassifiers" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetClassifiers where
toJSON GetClassifiers'{..}
= object
(catMaybes
[("NextToken" .=) <$> _gcNextToken,
("MaxResults" .=) <$> _gcMaxResults])
instance ToPath GetClassifiers where
toPath = const "/"
instance ToQuery GetClassifiers where
toQuery = const mempty
data GetClassifiersResponse = GetClassifiersResponse'
{ _gcsrsNextToken :: !(Maybe Text)
, _gcsrsClassifiers :: !(Maybe [Classifier])
, _gcsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getClassifiersResponse
:: Int
-> GetClassifiersResponse
getClassifiersResponse pResponseStatus_ =
GetClassifiersResponse'
{ _gcsrsNextToken = Nothing
, _gcsrsClassifiers = Nothing
, _gcsrsResponseStatus = pResponseStatus_
}
gcsrsNextToken :: Lens' GetClassifiersResponse (Maybe Text)
gcsrsNextToken = lens _gcsrsNextToken (\ s a -> s{_gcsrsNextToken = a})
gcsrsClassifiers :: Lens' GetClassifiersResponse [Classifier]
gcsrsClassifiers = lens _gcsrsClassifiers (\ s a -> s{_gcsrsClassifiers = a}) . _Default . _Coerce
gcsrsResponseStatus :: Lens' GetClassifiersResponse Int
gcsrsResponseStatus = lens _gcsrsResponseStatus (\ s a -> s{_gcsrsResponseStatus = a})
instance NFData GetClassifiersResponse where