module Network.AWS.Config.PutEvaluations
(
putEvaluations
, PutEvaluations
, peEvaluations
, peResultToken
, putEvaluationsResponse
, PutEvaluationsResponse
, persFailedEvaluations
, persResponseStatus
) where
import Network.AWS.Config.Types
import Network.AWS.Config.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data PutEvaluations = PutEvaluations'
{ _peEvaluations :: !(Maybe [Evaluation])
, _peResultToken :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putEvaluations
:: Text
-> PutEvaluations
putEvaluations pResultToken_ =
PutEvaluations'
{ _peEvaluations = Nothing
, _peResultToken = pResultToken_
}
peEvaluations :: Lens' PutEvaluations [Evaluation]
peEvaluations = lens _peEvaluations (\ s a -> s{_peEvaluations = a}) . _Default . _Coerce;
peResultToken :: Lens' PutEvaluations Text
peResultToken = lens _peResultToken (\ s a -> s{_peResultToken = a});
instance AWSRequest PutEvaluations where
type Rs PutEvaluations = PutEvaluationsResponse
request = postJSON config
response
= receiveJSON
(\ s h x ->
PutEvaluationsResponse' <$>
(x .?> "FailedEvaluations" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders PutEvaluations where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StarlingDoveService.PutEvaluations" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PutEvaluations where
toJSON PutEvaluations'{..}
= object
(catMaybes
[("Evaluations" .=) <$> _peEvaluations,
Just ("ResultToken" .= _peResultToken)])
instance ToPath PutEvaluations where
toPath = const "/"
instance ToQuery PutEvaluations where
toQuery = const mempty
data PutEvaluationsResponse = PutEvaluationsResponse'
{ _persFailedEvaluations :: !(Maybe [Evaluation])
, _persResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putEvaluationsResponse
:: Int
-> PutEvaluationsResponse
putEvaluationsResponse pResponseStatus_ =
PutEvaluationsResponse'
{ _persFailedEvaluations = Nothing
, _persResponseStatus = pResponseStatus_
}
persFailedEvaluations :: Lens' PutEvaluationsResponse [Evaluation]
persFailedEvaluations = lens _persFailedEvaluations (\ s a -> s{_persFailedEvaluations = a}) . _Default . _Coerce;
persResponseStatus :: Lens' PutEvaluationsResponse Int
persResponseStatus = lens _persResponseStatus (\ s a -> s{_persResponseStatus = a});