{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.XRay.GetTraceGraph
-- Copyright   : (c) 2013-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Retrieves a service graph for one or more specific trace IDs.
--
--
module Network.AWS.XRay.GetTraceGraph
    (
    -- * Creating a Request
      getTraceGraph
    , GetTraceGraph
    -- * Request Lenses
    , gtgNextToken
    , gtgTraceIds

    -- * Destructuring the Response
    , getTraceGraphResponse
    , GetTraceGraphResponse
    -- * Response Lenses
    , gtgrsNextToken
    , gtgrsServices
    , gtgrsResponseStatus
    ) 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

-- | /See:/ 'getTraceGraph' smart constructor.
data GetTraceGraph = GetTraceGraph'
    { _gtgNextToken :: !(Maybe Text)
    , _gtgTraceIds  :: ![Text]
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'GetTraceGraph' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'gtgNextToken' - Pagination token. Not used.
--
-- * 'gtgTraceIds' - Trace IDs of requests for which to generate a service graph.
getTraceGraph
    :: GetTraceGraph
getTraceGraph =
    GetTraceGraph'
    { _gtgNextToken = Nothing
    , _gtgTraceIds = mempty
    }

-- | Pagination token. Not used.
gtgNextToken :: Lens' GetTraceGraph (Maybe Text)
gtgNextToken = lens _gtgNextToken (\ s a -> s{_gtgNextToken = a});

-- | Trace IDs of requests for which to generate a service graph.
gtgTraceIds :: Lens' GetTraceGraph [Text]
gtgTraceIds = lens _gtgTraceIds (\ s a -> s{_gtgTraceIds = a}) . _Coerce;

instance AWSRequest GetTraceGraph where
        type Rs GetTraceGraph = GetTraceGraphResponse
        request = postJSON xRay
        response
          = receiveJSON
              (\ s h x ->
                 GetTraceGraphResponse' <$>
                   (x .?> "NextToken") <*> (x .?> "Services" .!@ mempty)
                     <*> (pure (fromEnum s)))

instance Hashable GetTraceGraph

instance NFData GetTraceGraph

instance ToHeaders GetTraceGraph where
        toHeaders = const mempty

instance ToJSON GetTraceGraph where
        toJSON GetTraceGraph'{..}
          = object
              (catMaybes
                 [("NextToken" .=) <$> _gtgNextToken,
                  Just ("TraceIds" .= _gtgTraceIds)])

instance ToPath GetTraceGraph where
        toPath = const "/TraceGraph"

instance ToQuery GetTraceGraph where
        toQuery = const mempty

-- | /See:/ 'getTraceGraphResponse' smart constructor.
data GetTraceGraphResponse = GetTraceGraphResponse'
    { _gtgrsNextToken      :: !(Maybe Text)
    , _gtgrsServices       :: !(Maybe [ServiceInfo])
    , _gtgrsResponseStatus :: !Int
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'GetTraceGraphResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'gtgrsNextToken' - Pagination token. Not used.
--
-- * 'gtgrsServices' - The services that have processed one of the specified requests.
--
-- * 'gtgrsResponseStatus' - -- | The response status code.
getTraceGraphResponse
    :: Int -- ^ 'gtgrsResponseStatus'
    -> GetTraceGraphResponse
getTraceGraphResponse pResponseStatus_ =
    GetTraceGraphResponse'
    { _gtgrsNextToken = Nothing
    , _gtgrsServices = Nothing
    , _gtgrsResponseStatus = pResponseStatus_
    }

-- | Pagination token. Not used.
gtgrsNextToken :: Lens' GetTraceGraphResponse (Maybe Text)
gtgrsNextToken = lens _gtgrsNextToken (\ s a -> s{_gtgrsNextToken = a});

-- | The services that have processed one of the specified requests.
gtgrsServices :: Lens' GetTraceGraphResponse [ServiceInfo]
gtgrsServices = lens _gtgrsServices (\ s a -> s{_gtgrsServices = a}) . _Default . _Coerce;

-- | -- | The response status code.
gtgrsResponseStatus :: Lens' GetTraceGraphResponse Int
gtgrsResponseStatus = lens _gtgrsResponseStatus (\ s a -> s{_gtgrsResponseStatus = a});

instance NFData GetTraceGraphResponse