module Network.AWS.MachineLearning.DescribeMLModels
(
describeMLModels
, DescribeMLModels
, dmlmEQ
, dmlmGE
, dmlmPrefix
, dmlmGT
, dmlmNE
, dmlmNextToken
, dmlmSortOrder
, dmlmLimit
, dmlmLT
, dmlmFilterVariable
, dmlmLE
, describeMLModelsResponse
, DescribeMLModelsResponse
, dmlmsrsResults
, dmlmsrsNextToken
, dmlmsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MachineLearning.Types
import Network.AWS.MachineLearning.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeMLModels = DescribeMLModels'
{ _dmlmEQ :: !(Maybe Text)
, _dmlmGE :: !(Maybe Text)
, _dmlmPrefix :: !(Maybe Text)
, _dmlmGT :: !(Maybe Text)
, _dmlmNE :: !(Maybe Text)
, _dmlmNextToken :: !(Maybe Text)
, _dmlmSortOrder :: !(Maybe SortOrder)
, _dmlmLimit :: !(Maybe Nat)
, _dmlmLT :: !(Maybe Text)
, _dmlmFilterVariable :: !(Maybe MLModelFilterVariable)
, _dmlmLE :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeMLModels
:: DescribeMLModels
describeMLModels =
DescribeMLModels'
{ _dmlmEQ = Nothing
, _dmlmGE = Nothing
, _dmlmPrefix = Nothing
, _dmlmGT = Nothing
, _dmlmNE = Nothing
, _dmlmNextToken = Nothing
, _dmlmSortOrder = Nothing
, _dmlmLimit = Nothing
, _dmlmLT = Nothing
, _dmlmFilterVariable = Nothing
, _dmlmLE = Nothing
}
dmlmEQ :: Lens' DescribeMLModels (Maybe Text)
dmlmEQ = lens _dmlmEQ (\ s a -> s{_dmlmEQ = a});
dmlmGE :: Lens' DescribeMLModels (Maybe Text)
dmlmGE = lens _dmlmGE (\ s a -> s{_dmlmGE = a});
dmlmPrefix :: Lens' DescribeMLModels (Maybe Text)
dmlmPrefix = lens _dmlmPrefix (\ s a -> s{_dmlmPrefix = a});
dmlmGT :: Lens' DescribeMLModels (Maybe Text)
dmlmGT = lens _dmlmGT (\ s a -> s{_dmlmGT = a});
dmlmNE :: Lens' DescribeMLModels (Maybe Text)
dmlmNE = lens _dmlmNE (\ s a -> s{_dmlmNE = a});
dmlmNextToken :: Lens' DescribeMLModels (Maybe Text)
dmlmNextToken = lens _dmlmNextToken (\ s a -> s{_dmlmNextToken = a});
dmlmSortOrder :: Lens' DescribeMLModels (Maybe SortOrder)
dmlmSortOrder = lens _dmlmSortOrder (\ s a -> s{_dmlmSortOrder = a});
dmlmLimit :: Lens' DescribeMLModels (Maybe Natural)
dmlmLimit = lens _dmlmLimit (\ s a -> s{_dmlmLimit = a}) . mapping _Nat;
dmlmLT :: Lens' DescribeMLModels (Maybe Text)
dmlmLT = lens _dmlmLT (\ s a -> s{_dmlmLT = a});
dmlmFilterVariable :: Lens' DescribeMLModels (Maybe MLModelFilterVariable)
dmlmFilterVariable = lens _dmlmFilterVariable (\ s a -> s{_dmlmFilterVariable = a});
dmlmLE :: Lens' DescribeMLModels (Maybe Text)
dmlmLE = lens _dmlmLE (\ s a -> s{_dmlmLE = a});
instance AWSPager DescribeMLModels where
page rq rs
| stop (rs ^. dmlmsrsNextToken) = Nothing
| stop (rs ^. dmlmsrsResults) = Nothing
| otherwise =
Just $ rq & dmlmNextToken .~ rs ^. dmlmsrsNextToken
instance AWSRequest DescribeMLModels where
type Rs DescribeMLModels = DescribeMLModelsResponse
request = postJSON machineLearning
response
= receiveJSON
(\ s h x ->
DescribeMLModelsResponse' <$>
(x .?> "Results" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeMLModels
instance NFData DescribeMLModels
instance ToHeaders DescribeMLModels where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonML_20141212.DescribeMLModels" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeMLModels where
toJSON DescribeMLModels'{..}
= object
(catMaybes
[("EQ" .=) <$> _dmlmEQ, ("GE" .=) <$> _dmlmGE,
("Prefix" .=) <$> _dmlmPrefix, ("GT" .=) <$> _dmlmGT,
("NE" .=) <$> _dmlmNE,
("NextToken" .=) <$> _dmlmNextToken,
("SortOrder" .=) <$> _dmlmSortOrder,
("Limit" .=) <$> _dmlmLimit, ("LT" .=) <$> _dmlmLT,
("FilterVariable" .=) <$> _dmlmFilterVariable,
("LE" .=) <$> _dmlmLE])
instance ToPath DescribeMLModels where
toPath = const "/"
instance ToQuery DescribeMLModels where
toQuery = const mempty
data DescribeMLModelsResponse = DescribeMLModelsResponse'
{ _dmlmsrsResults :: !(Maybe [MLModel])
, _dmlmsrsNextToken :: !(Maybe Text)
, _dmlmsrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeMLModelsResponse
:: Int
-> DescribeMLModelsResponse
describeMLModelsResponse pResponseStatus_ =
DescribeMLModelsResponse'
{ _dmlmsrsResults = Nothing
, _dmlmsrsNextToken = Nothing
, _dmlmsrsResponseStatus = pResponseStatus_
}
dmlmsrsResults :: Lens' DescribeMLModelsResponse [MLModel]
dmlmsrsResults = lens _dmlmsrsResults (\ s a -> s{_dmlmsrsResults = a}) . _Default . _Coerce;
dmlmsrsNextToken :: Lens' DescribeMLModelsResponse (Maybe Text)
dmlmsrsNextToken = lens _dmlmsrsNextToken (\ s a -> s{_dmlmsrsNextToken = a});
dmlmsrsResponseStatus :: Lens' DescribeMLModelsResponse Int
dmlmsrsResponseStatus = lens _dmlmsrsResponseStatus (\ s a -> s{_dmlmsrsResponseStatus = a});
instance NFData DescribeMLModelsResponse