{-# 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.XRay.BatchGetTraces
(
batchGetTraces
, BatchGetTraces
, bgtNextToken
, bgtTraceIds
, batchGetTracesResponse
, BatchGetTracesResponse
, bgtrsNextToken
, bgtrsTraces
, bgtrsUnprocessedTraceIds
, bgtrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.XRay.Types
import Network.AWS.XRay.Types.Product
data BatchGetTraces = BatchGetTraces'
{ _bgtNextToken :: !(Maybe Text)
, _bgtTraceIds :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
batchGetTraces
:: BatchGetTraces
batchGetTraces =
BatchGetTraces'
{ _bgtNextToken = Nothing
, _bgtTraceIds = mempty
}
bgtNextToken :: Lens' BatchGetTraces (Maybe Text)
bgtNextToken = lens _bgtNextToken (\ s a -> s{_bgtNextToken = a});
bgtTraceIds :: Lens' BatchGetTraces [Text]
bgtTraceIds = lens _bgtTraceIds (\ s a -> s{_bgtTraceIds = a}) . _Coerce;
instance AWSRequest BatchGetTraces where
type Rs BatchGetTraces = BatchGetTracesResponse
request = postJSON xRay
response
= receiveJSON
(\ s h x ->
BatchGetTracesResponse' <$>
(x .?> "NextToken") <*> (x .?> "Traces" .!@ mempty)
<*> (x .?> "UnprocessedTraceIds" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable BatchGetTraces
instance NFData BatchGetTraces
instance ToHeaders BatchGetTraces where
toHeaders = const mempty
instance ToJSON BatchGetTraces where
toJSON BatchGetTraces'{..}
= object
(catMaybes
[("NextToken" .=) <$> _bgtNextToken,
Just ("TraceIds" .= _bgtTraceIds)])
instance ToPath BatchGetTraces where
toPath = const "/Traces"
instance ToQuery BatchGetTraces where
toQuery = const mempty
data BatchGetTracesResponse = BatchGetTracesResponse'
{ _bgtrsNextToken :: !(Maybe Text)
, _bgtrsTraces :: !(Maybe [Trace])
, _bgtrsUnprocessedTraceIds :: !(Maybe [Text])
, _bgtrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
batchGetTracesResponse
:: Int
-> BatchGetTracesResponse
batchGetTracesResponse pResponseStatus_ =
BatchGetTracesResponse'
{ _bgtrsNextToken = Nothing
, _bgtrsTraces = Nothing
, _bgtrsUnprocessedTraceIds = Nothing
, _bgtrsResponseStatus = pResponseStatus_
}
bgtrsNextToken :: Lens' BatchGetTracesResponse (Maybe Text)
bgtrsNextToken = lens _bgtrsNextToken (\ s a -> s{_bgtrsNextToken = a});
bgtrsTraces :: Lens' BatchGetTracesResponse [Trace]
bgtrsTraces = lens _bgtrsTraces (\ s a -> s{_bgtrsTraces = a}) . _Default . _Coerce;
bgtrsUnprocessedTraceIds :: Lens' BatchGetTracesResponse [Text]
bgtrsUnprocessedTraceIds = lens _bgtrsUnprocessedTraceIds (\ s a -> s{_bgtrsUnprocessedTraceIds = a}) . _Default . _Coerce;
bgtrsResponseStatus :: Lens' BatchGetTracesResponse Int
bgtrsResponseStatus = lens _bgtrsResponseStatus (\ s a -> s{_bgtrsResponseStatus = a});
instance NFData BatchGetTracesResponse