module Network.AWS.MachineLearning.DescribeEvaluations
(
describeEvaluations
, DescribeEvaluations
, deEQ
, deGE
, dePrefix
, deGT
, deNE
, deNextToken
, deSortOrder
, deLimit
, deLT
, deFilterVariable
, deLE
, describeEvaluationsResponse
, DescribeEvaluationsResponse
, desrsResults
, desrsNextToken
, desrsResponseStatus
) 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 DescribeEvaluations = DescribeEvaluations'
{ _deEQ :: !(Maybe Text)
, _deGE :: !(Maybe Text)
, _dePrefix :: !(Maybe Text)
, _deGT :: !(Maybe Text)
, _deNE :: !(Maybe Text)
, _deNextToken :: !(Maybe Text)
, _deSortOrder :: !(Maybe SortOrder)
, _deLimit :: !(Maybe Nat)
, _deLT :: !(Maybe Text)
, _deFilterVariable :: !(Maybe EvaluationFilterVariable)
, _deLE :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEvaluations
:: DescribeEvaluations
describeEvaluations =
DescribeEvaluations'
{ _deEQ = Nothing
, _deGE = Nothing
, _dePrefix = Nothing
, _deGT = Nothing
, _deNE = Nothing
, _deNextToken = Nothing
, _deSortOrder = Nothing
, _deLimit = Nothing
, _deLT = Nothing
, _deFilterVariable = Nothing
, _deLE = Nothing
}
deEQ :: Lens' DescribeEvaluations (Maybe Text)
deEQ = lens _deEQ (\ s a -> s{_deEQ = a});
deGE :: Lens' DescribeEvaluations (Maybe Text)
deGE = lens _deGE (\ s a -> s{_deGE = a});
dePrefix :: Lens' DescribeEvaluations (Maybe Text)
dePrefix = lens _dePrefix (\ s a -> s{_dePrefix = a});
deGT :: Lens' DescribeEvaluations (Maybe Text)
deGT = lens _deGT (\ s a -> s{_deGT = a});
deNE :: Lens' DescribeEvaluations (Maybe Text)
deNE = lens _deNE (\ s a -> s{_deNE = a});
deNextToken :: Lens' DescribeEvaluations (Maybe Text)
deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a});
deSortOrder :: Lens' DescribeEvaluations (Maybe SortOrder)
deSortOrder = lens _deSortOrder (\ s a -> s{_deSortOrder = a});
deLimit :: Lens' DescribeEvaluations (Maybe Natural)
deLimit = lens _deLimit (\ s a -> s{_deLimit = a}) . mapping _Nat;
deLT :: Lens' DescribeEvaluations (Maybe Text)
deLT = lens _deLT (\ s a -> s{_deLT = a});
deFilterVariable :: Lens' DescribeEvaluations (Maybe EvaluationFilterVariable)
deFilterVariable = lens _deFilterVariable (\ s a -> s{_deFilterVariable = a});
deLE :: Lens' DescribeEvaluations (Maybe Text)
deLE = lens _deLE (\ s a -> s{_deLE = a});
instance AWSPager DescribeEvaluations where
page rq rs
| stop (rs ^. desrsNextToken) = Nothing
| stop (rs ^. desrsResults) = Nothing
| otherwise =
Just $ rq & deNextToken .~ rs ^. desrsNextToken
instance AWSRequest DescribeEvaluations where
type Rs DescribeEvaluations =
DescribeEvaluationsResponse
request = postJSON machineLearning
response
= receiveJSON
(\ s h x ->
DescribeEvaluationsResponse' <$>
(x .?> "Results" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeEvaluations
instance ToHeaders DescribeEvaluations where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonML_20141212.DescribeEvaluations" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEvaluations where
toJSON DescribeEvaluations'{..}
= object
(catMaybes
[("EQ" .=) <$> _deEQ, ("GE" .=) <$> _deGE,
("Prefix" .=) <$> _dePrefix, ("GT" .=) <$> _deGT,
("NE" .=) <$> _deNE,
("NextToken" .=) <$> _deNextToken,
("SortOrder" .=) <$> _deSortOrder,
("Limit" .=) <$> _deLimit, ("LT" .=) <$> _deLT,
("FilterVariable" .=) <$> _deFilterVariable,
("LE" .=) <$> _deLE])
instance ToPath DescribeEvaluations where
toPath = const "/"
instance ToQuery DescribeEvaluations where
toQuery = const mempty
data DescribeEvaluationsResponse = DescribeEvaluationsResponse'
{ _desrsResults :: !(Maybe [Evaluation])
, _desrsNextToken :: !(Maybe Text)
, _desrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEvaluationsResponse
:: Int
-> DescribeEvaluationsResponse
describeEvaluationsResponse pResponseStatus_ =
DescribeEvaluationsResponse'
{ _desrsResults = Nothing
, _desrsNextToken = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsResults :: Lens' DescribeEvaluationsResponse [Evaluation]
desrsResults = lens _desrsResults (\ s a -> s{_desrsResults = a}) . _Default . _Coerce;
desrsNextToken :: Lens' DescribeEvaluationsResponse (Maybe Text)
desrsNextToken = lens _desrsNextToken (\ s a -> s{_desrsNextToken = a});
desrsResponseStatus :: Lens' DescribeEvaluationsResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});