amazonka-xray 1.5.0 → 1.6.0

raw patch · 23 files changed

+793/−297 lines, 23 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-xray.cabal +7/−5
• fixture/GetEncryptionConfig.yaml +10/−0
• fixture/GetEncryptionConfigResponse.proto +0/−0
• fixture/PutEncryptionConfig.yaml +10/−0
• fixture/PutEncryptionConfigResponse.proto +0/−0
• gen/Network/AWS/XRay.hs +27/−6
• gen/Network/AWS/XRay/BatchGetTraces.hs +22/−12
• gen/Network/AWS/XRay/GetEncryptionConfig.hs +114/−0
• gen/Network/AWS/XRay/GetServiceGraph.hs +29/−19
• gen/Network/AWS/XRay/GetTraceGraph.hs +20/−10
• gen/Network/AWS/XRay/GetTraceSummaries.hs +35/−25
• gen/Network/AWS/XRay/PutEncryptionConfig.hs +137/−0
• gen/Network/AWS/XRay/PutTelemetryRecords.hs +11/−11
• gen/Network/AWS/XRay/PutTraceSegments.hs +8/−8
• gen/Network/AWS/XRay/Types.hs +32/−17
• gen/Network/AWS/XRay/Types/Product.hs +229/−175
• gen/Network/AWS/XRay/Types/Sum.hs +58/−1
• gen/Network/AWS/XRay/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/XRay.hs +39/−3
• test/Test/AWS/XRay.hs +1/−1
• test/Test/AWS/XRay/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-xray-version:               1.5.0+version:               1.6.0 synopsis:              Amazon X-Ray SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -46,9 +46,11 @@     exposed-modules:           Network.AWS.XRay         , Network.AWS.XRay.BatchGetTraces+        , Network.AWS.XRay.GetEncryptionConfig         , Network.AWS.XRay.GetServiceGraph         , Network.AWS.XRay.GetTraceGraph         , Network.AWS.XRay.GetTraceSummaries+        , Network.AWS.XRay.PutEncryptionConfig         , Network.AWS.XRay.PutTelemetryRecords         , Network.AWS.XRay.PutTraceSegments         , Network.AWS.XRay.Types@@ -59,7 +61,7 @@         , Network.AWS.XRay.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-xray-test@@ -79,8 +81,8 @@         , Test.AWS.XRay.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-xray         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.XRay--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -34,26 +34,38 @@     -- * Operations     -- $operations -    -- ** GetServiceGraph+    -- ** PutEncryptionConfig+    , module Network.AWS.XRay.PutEncryptionConfig++    -- ** GetServiceGraph (Paginated)     , module Network.AWS.XRay.GetServiceGraph -    -- ** GetTraceSummaries+    -- ** GetTraceSummaries (Paginated)     , module Network.AWS.XRay.GetTraceSummaries      -- ** PutTraceSegments     , module Network.AWS.XRay.PutTraceSegments -    -- ** BatchGetTraces+    -- ** BatchGetTraces (Paginated)     , module Network.AWS.XRay.BatchGetTraces +    -- ** GetEncryptionConfig+    , module Network.AWS.XRay.GetEncryptionConfig+     -- ** PutTelemetryRecords     , module Network.AWS.XRay.PutTelemetryRecords -    -- ** GetTraceGraph+    -- ** GetTraceGraph (Paginated)     , module Network.AWS.XRay.GetTraceGraph      -- * Types +    -- ** EncryptionStatus+    , EncryptionStatus (..)++    -- ** EncryptionType+    , EncryptionType (..)+     -- ** Alias     , Alias     , alias@@ -97,6 +109,13 @@     , esErrorStatistics     , esTotalCount +    -- ** EncryptionConfig+    , EncryptionConfig+    , encryptionConfig+    , ecStatus+    , ecKeyId+    , ecType+     -- ** ErrorStatistics     , ErrorStatistics     , errorStatistics@@ -172,8 +191,8 @@     , trSegmentsSentCount     , trSegmentsSpilloverCount     , trSegmentsRejectedCount-    , trTimestamp     , trBackendConnectionErrors+    , trTimestamp      -- ** Trace     , Trace@@ -218,9 +237,11 @@     ) where  import Network.AWS.XRay.BatchGetTraces+import Network.AWS.XRay.GetEncryptionConfig import Network.AWS.XRay.GetServiceGraph import Network.AWS.XRay.GetTraceGraph import Network.AWS.XRay.GetTraceSummaries+import Network.AWS.XRay.PutEncryptionConfig import Network.AWS.XRay.PutTelemetryRecords import Network.AWS.XRay.PutTraceSegments import Network.AWS.XRay.Types

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.XRay.BatchGetTraces--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Retrieves a list of traces specified by ID. Each trace is a collection of segment documents that originates from a single request. Use @GetTraceSummaries@ to get a list of trace IDs. -- --+--+-- This operation returns paginated results. module Network.AWS.XRay.BatchGetTraces     (     -- * Creating a Request@@ -41,6 +43,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -69,12 +72,19 @@  -- | Pagination token. Not used. bgtNextToken :: Lens' BatchGetTraces (Maybe Text)-bgtNextToken = lens _bgtNextToken (\ s a -> s{_bgtNextToken = a});+bgtNextToken = lens _bgtNextToken (\ s a -> s{_bgtNextToken = a})  -- | Specify the trace IDs of requests for which to retrieve segments. bgtTraceIds :: Lens' BatchGetTraces [Text]-bgtTraceIds = lens _bgtTraceIds (\ s a -> s{_bgtTraceIds = a}) . _Coerce;+bgtTraceIds = lens _bgtTraceIds (\ s a -> s{_bgtTraceIds = a}) . _Coerce +instance AWSPager BatchGetTraces where+        page rq rs+          | stop (rs ^. bgtrsNextToken) = Nothing+          | stop (rs ^. bgtrsTraces) = Nothing+          | otherwise =+            Just $ rq & bgtNextToken .~ rs ^. bgtrsNextToken+ instance AWSRequest BatchGetTraces where         type Rs BatchGetTraces = BatchGetTracesResponse         request = postJSON xRay@@ -131,27 +141,27 @@     -> BatchGetTracesResponse batchGetTracesResponse pResponseStatus_ =   BatchGetTracesResponse'-  { _bgtrsNextToken = Nothing-  , _bgtrsTraces = Nothing-  , _bgtrsUnprocessedTraceIds = Nothing-  , _bgtrsResponseStatus = pResponseStatus_-  }+    { _bgtrsNextToken = Nothing+    , _bgtrsTraces = Nothing+    , _bgtrsUnprocessedTraceIds = Nothing+    , _bgtrsResponseStatus = pResponseStatus_+    }   -- | Pagination token. Not used. bgtrsNextToken :: Lens' BatchGetTracesResponse (Maybe Text)-bgtrsNextToken = lens _bgtrsNextToken (\ s a -> s{_bgtrsNextToken = a});+bgtrsNextToken = lens _bgtrsNextToken (\ s a -> s{_bgtrsNextToken = a})  -- | Full traces for the specified requests. bgtrsTraces :: Lens' BatchGetTracesResponse [Trace]-bgtrsTraces = lens _bgtrsTraces (\ s a -> s{_bgtrsTraces = a}) . _Default . _Coerce;+bgtrsTraces = lens _bgtrsTraces (\ s a -> s{_bgtrsTraces = a}) . _Default . _Coerce  -- | Trace IDs of requests that haven't been processed. bgtrsUnprocessedTraceIds :: Lens' BatchGetTracesResponse [Text]-bgtrsUnprocessedTraceIds = lens _bgtrsUnprocessedTraceIds (\ s a -> s{_bgtrsUnprocessedTraceIds = a}) . _Default . _Coerce;+bgtrsUnprocessedTraceIds = lens _bgtrsUnprocessedTraceIds (\ s a -> s{_bgtrsUnprocessedTraceIds = a}) . _Default . _Coerce  -- | -- | The response status code. bgtrsResponseStatus :: Lens' BatchGetTracesResponse Int-bgtrsResponseStatus = lens _bgtrsResponseStatus (\ s a -> s{_bgtrsResponseStatus = a});+bgtrsResponseStatus = lens _bgtrsResponseStatus (\ s a -> s{_bgtrsResponseStatus = a})  instance NFData BatchGetTracesResponse where

@@ -0,0 +1,114 @@+{-# 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.GetEncryptionConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the current encryption configuration for X-Ray data.+--+--+module Network.AWS.XRay.GetEncryptionConfig+    (+    -- * Creating a Request+      getEncryptionConfig+    , GetEncryptionConfig++    -- * Destructuring the Response+    , getEncryptionConfigResponse+    , GetEncryptionConfigResponse+    -- * Response Lenses+    , gecrsEncryptionConfig+    , gecrsResponseStatus+    ) 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:/ 'getEncryptionConfig' smart constructor.+data GetEncryptionConfig =+  GetEncryptionConfig'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetEncryptionConfig' with the minimum fields required to make a request.+--+getEncryptionConfig+    :: GetEncryptionConfig+getEncryptionConfig = GetEncryptionConfig'+++instance AWSRequest GetEncryptionConfig where+        type Rs GetEncryptionConfig =+             GetEncryptionConfigResponse+        request = postJSON xRay+        response+          = receiveJSON+              (\ s h x ->+                 GetEncryptionConfigResponse' <$>+                   (x .?> "EncryptionConfig") <*> (pure (fromEnum s)))++instance Hashable GetEncryptionConfig where++instance NFData GetEncryptionConfig where++instance ToHeaders GetEncryptionConfig where+        toHeaders = const mempty++instance ToJSON GetEncryptionConfig where+        toJSON = const (Object mempty)++instance ToPath GetEncryptionConfig where+        toPath = const "/EncryptionConfig"++instance ToQuery GetEncryptionConfig where+        toQuery = const mempty++-- | /See:/ 'getEncryptionConfigResponse' smart constructor.+data GetEncryptionConfigResponse = GetEncryptionConfigResponse'+  { _gecrsEncryptionConfig :: !(Maybe EncryptionConfig)+  , _gecrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetEncryptionConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gecrsEncryptionConfig' - The encryption configuration document.+--+-- * 'gecrsResponseStatus' - -- | The response status code.+getEncryptionConfigResponse+    :: Int -- ^ 'gecrsResponseStatus'+    -> GetEncryptionConfigResponse+getEncryptionConfigResponse pResponseStatus_ =+  GetEncryptionConfigResponse'+    {_gecrsEncryptionConfig = Nothing, _gecrsResponseStatus = pResponseStatus_}+++-- | The encryption configuration document.+gecrsEncryptionConfig :: Lens' GetEncryptionConfigResponse (Maybe EncryptionConfig)+gecrsEncryptionConfig = lens _gecrsEncryptionConfig (\ s a -> s{_gecrsEncryptionConfig = a})++-- | -- | The response status code.+gecrsResponseStatus :: Lens' GetEncryptionConfigResponse Int+gecrsResponseStatus = lens _gecrsResponseStatus (\ s a -> s{_gecrsResponseStatus = a})++instance NFData GetEncryptionConfigResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.XRay.GetServiceGraph--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Retrieves a document that describes services that process incoming requests, and downstream services that they call as a result. Root services process incoming requests and make calls to downstream services. Root services are applications that use the AWS X-Ray SDK. Downstream services can be other applications, AWS resources, HTTP web APIs, or SQL databases. -- --+--+-- This operation returns paginated results. module Network.AWS.XRay.GetServiceGraph     (     -- * Creating a Request@@ -43,6 +45,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -72,24 +75,31 @@     -> GetServiceGraph getServiceGraph pStartTime_ pEndTime_ =   GetServiceGraph'-  { _gsgNextToken = Nothing-  , _gsgStartTime = _Time # pStartTime_-  , _gsgEndTime = _Time # pEndTime_-  }+    { _gsgNextToken = Nothing+    , _gsgStartTime = _Time # pStartTime_+    , _gsgEndTime = _Time # pEndTime_+    }   -- | Pagination token. Not used. gsgNextToken :: Lens' GetServiceGraph (Maybe Text)-gsgNextToken = lens _gsgNextToken (\ s a -> s{_gsgNextToken = a});+gsgNextToken = lens _gsgNextToken (\ s a -> s{_gsgNextToken = a})  -- | The start of the time frame for which to generate a graph. gsgStartTime :: Lens' GetServiceGraph UTCTime-gsgStartTime = lens _gsgStartTime (\ s a -> s{_gsgStartTime = a}) . _Time;+gsgStartTime = lens _gsgStartTime (\ s a -> s{_gsgStartTime = a}) . _Time  -- | The end of the time frame for which to generate a graph. gsgEndTime :: Lens' GetServiceGraph UTCTime-gsgEndTime = lens _gsgEndTime (\ s a -> s{_gsgEndTime = a}) . _Time;+gsgEndTime = lens _gsgEndTime (\ s a -> s{_gsgEndTime = a}) . _Time +instance AWSPager GetServiceGraph where+        page rq rs+          | stop (rs ^. gsgrsNextToken) = Nothing+          | stop (rs ^. gsgrsServices) = Nothing+          | otherwise =+            Just $ rq & gsgNextToken .~ rs ^. gsgrsNextToken+ instance AWSRequest GetServiceGraph where         type Rs GetServiceGraph = GetServiceGraphResponse         request = postJSON xRay@@ -151,32 +161,32 @@     -> GetServiceGraphResponse getServiceGraphResponse pResponseStatus_ =   GetServiceGraphResponse'-  { _gsgrsStartTime = Nothing-  , _gsgrsNextToken = Nothing-  , _gsgrsEndTime = Nothing-  , _gsgrsServices = Nothing-  , _gsgrsResponseStatus = pResponseStatus_-  }+    { _gsgrsStartTime = Nothing+    , _gsgrsNextToken = Nothing+    , _gsgrsEndTime = Nothing+    , _gsgrsServices = Nothing+    , _gsgrsResponseStatus = pResponseStatus_+    }   -- | The start of the time frame for which the graph was generated. gsgrsStartTime :: Lens' GetServiceGraphResponse (Maybe UTCTime)-gsgrsStartTime = lens _gsgrsStartTime (\ s a -> s{_gsgrsStartTime = a}) . mapping _Time;+gsgrsStartTime = lens _gsgrsStartTime (\ s a -> s{_gsgrsStartTime = a}) . mapping _Time  -- | Pagination token. Not used. gsgrsNextToken :: Lens' GetServiceGraphResponse (Maybe Text)-gsgrsNextToken = lens _gsgrsNextToken (\ s a -> s{_gsgrsNextToken = a});+gsgrsNextToken = lens _gsgrsNextToken (\ s a -> s{_gsgrsNextToken = a})  -- | The end of the time frame for which the graph was generated. gsgrsEndTime :: Lens' GetServiceGraphResponse (Maybe UTCTime)-gsgrsEndTime = lens _gsgrsEndTime (\ s a -> s{_gsgrsEndTime = a}) . mapping _Time;+gsgrsEndTime = lens _gsgrsEndTime (\ s a -> s{_gsgrsEndTime = a}) . mapping _Time  -- | The services that have processed a traced request during the specified time frame. gsgrsServices :: Lens' GetServiceGraphResponse [ServiceInfo]-gsgrsServices = lens _gsgrsServices (\ s a -> s{_gsgrsServices = a}) . _Default . _Coerce;+gsgrsServices = lens _gsgrsServices (\ s a -> s{_gsgrsServices = a}) . _Default . _Coerce  -- | -- | The response status code. gsgrsResponseStatus :: Lens' GetServiceGraphResponse Int-gsgrsResponseStatus = lens _gsgrsResponseStatus (\ s a -> s{_gsgrsResponseStatus = a});+gsgrsResponseStatus = lens _gsgrsResponseStatus (\ s a -> s{_gsgrsResponseStatus = a})  instance NFData GetServiceGraphResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.XRay.GetTraceGraph--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Retrieves a service graph for one or more specific trace IDs. -- --+--+-- This operation returns paginated results. module Network.AWS.XRay.GetTraceGraph     (     -- * Creating a Request@@ -40,6 +42,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -67,12 +70,19 @@  -- | Pagination token. Not used. gtgNextToken :: Lens' GetTraceGraph (Maybe Text)-gtgNextToken = lens _gtgNextToken (\ s a -> s{_gtgNextToken = a});+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;+gtgTraceIds = lens _gtgTraceIds (\ s a -> s{_gtgTraceIds = a}) . _Coerce +instance AWSPager GetTraceGraph where+        page rq rs+          | stop (rs ^. gtgrsNextToken) = Nothing+          | stop (rs ^. gtgrsServices) = Nothing+          | otherwise =+            Just $ rq & gtgNextToken .~ rs ^. gtgrsNextToken+ instance AWSRequest GetTraceGraph where         type Rs GetTraceGraph = GetTraceGraphResponse         request = postJSON xRay@@ -125,22 +135,22 @@     -> GetTraceGraphResponse getTraceGraphResponse pResponseStatus_ =   GetTraceGraphResponse'-  { _gtgrsNextToken = Nothing-  , _gtgrsServices = Nothing-  , _gtgrsResponseStatus = pResponseStatus_-  }+    { _gtgrsNextToken = Nothing+    , _gtgrsServices = Nothing+    , _gtgrsResponseStatus = pResponseStatus_+    }   -- | Pagination token. Not used. gtgrsNextToken :: Lens' GetTraceGraphResponse (Maybe Text)-gtgrsNextToken = lens _gtgrsNextToken (\ s a -> s{_gtgrsNextToken = a});+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;+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});+gtgrsResponseStatus = lens _gtgrsResponseStatus (\ s a -> s{_gtgrsResponseStatus = a})  instance NFData GetTraceGraphResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.XRay.GetTraceSummaries--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -31,6 +31,8 @@ -- -- For a full list of indexed fields and keywords that you can use in filter expressions, see <http://docs.aws.amazon.com/xray/latest/devguide/xray-console-filters.html Using Filter Expressions> in the /AWS X-Ray Developer Guide/ . --+--+-- This operation returns paginated results. module Network.AWS.XRay.GetTraceSummaries     (     -- * Creating a Request@@ -55,6 +57,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -90,34 +93,41 @@     -> GetTraceSummaries getTraceSummaries pStartTime_ pEndTime_ =   GetTraceSummaries'-  { _gtsFilterExpression = Nothing-  , _gtsNextToken = Nothing-  , _gtsSampling = Nothing-  , _gtsStartTime = _Time # pStartTime_-  , _gtsEndTime = _Time # pEndTime_-  }+    { _gtsFilterExpression = Nothing+    , _gtsNextToken = Nothing+    , _gtsSampling = Nothing+    , _gtsStartTime = _Time # pStartTime_+    , _gtsEndTime = _Time # pEndTime_+    }   -- | Specify a filter expression to retrieve trace summaries for services or requests that meet certain requirements. gtsFilterExpression :: Lens' GetTraceSummaries (Maybe Text)-gtsFilterExpression = lens _gtsFilterExpression (\ s a -> s{_gtsFilterExpression = a});+gtsFilterExpression = lens _gtsFilterExpression (\ s a -> s{_gtsFilterExpression = a})  -- | Specify the pagination token returned by a previous request to retrieve the next page of results. gtsNextToken :: Lens' GetTraceSummaries (Maybe Text)-gtsNextToken = lens _gtsNextToken (\ s a -> s{_gtsNextToken = a});+gtsNextToken = lens _gtsNextToken (\ s a -> s{_gtsNextToken = a})  -- | Set to @true@ to get summaries for only a subset of available traces. gtsSampling :: Lens' GetTraceSummaries (Maybe Bool)-gtsSampling = lens _gtsSampling (\ s a -> s{_gtsSampling = a});+gtsSampling = lens _gtsSampling (\ s a -> s{_gtsSampling = a})  -- | The start of the time frame for which to retrieve traces. gtsStartTime :: Lens' GetTraceSummaries UTCTime-gtsStartTime = lens _gtsStartTime (\ s a -> s{_gtsStartTime = a}) . _Time;+gtsStartTime = lens _gtsStartTime (\ s a -> s{_gtsStartTime = a}) . _Time  -- | The end of the time frame for which to retrieve traces. gtsEndTime :: Lens' GetTraceSummaries UTCTime-gtsEndTime = lens _gtsEndTime (\ s a -> s{_gtsEndTime = a}) . _Time;+gtsEndTime = lens _gtsEndTime (\ s a -> s{_gtsEndTime = a}) . _Time +instance AWSPager GetTraceSummaries where+        page rq rs+          | stop (rs ^. gtsrsNextToken) = Nothing+          | stop (rs ^. gtsrsTraceSummaries) = Nothing+          | otherwise =+            Just $ rq & gtsNextToken .~ rs ^. gtsrsNextToken+ instance AWSRequest GetTraceSummaries where         type Rs GetTraceSummaries = GetTraceSummariesResponse         request = postJSON xRay@@ -168,7 +178,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gtsrsTracesProcessedCount' - The number of traces that were processed to get this set of summaries.+-- * 'gtsrsTracesProcessedCount' - The total number of traces processed, including traces that did not match the specified filter expression. -- -- * 'gtsrsNextToken' - If the requested time frame contained more than one page of results, you can use this token to retrieve the next page. The first page contains the most most recent results, closest to the end of the time frame. --@@ -182,32 +192,32 @@     -> GetTraceSummariesResponse getTraceSummariesResponse pResponseStatus_ =   GetTraceSummariesResponse'-  { _gtsrsTracesProcessedCount = Nothing-  , _gtsrsNextToken = Nothing-  , _gtsrsApproximateTime = Nothing-  , _gtsrsTraceSummaries = Nothing-  , _gtsrsResponseStatus = pResponseStatus_-  }+    { _gtsrsTracesProcessedCount = Nothing+    , _gtsrsNextToken = Nothing+    , _gtsrsApproximateTime = Nothing+    , _gtsrsTraceSummaries = Nothing+    , _gtsrsResponseStatus = pResponseStatus_+    }  --- | The number of traces that were processed to get this set of summaries.+-- | The total number of traces processed, including traces that did not match the specified filter expression. gtsrsTracesProcessedCount :: Lens' GetTraceSummariesResponse (Maybe Integer)-gtsrsTracesProcessedCount = lens _gtsrsTracesProcessedCount (\ s a -> s{_gtsrsTracesProcessedCount = a});+gtsrsTracesProcessedCount = lens _gtsrsTracesProcessedCount (\ s a -> s{_gtsrsTracesProcessedCount = a})  -- | If the requested time frame contained more than one page of results, you can use this token to retrieve the next page. The first page contains the most most recent results, closest to the end of the time frame. gtsrsNextToken :: Lens' GetTraceSummariesResponse (Maybe Text)-gtsrsNextToken = lens _gtsrsNextToken (\ s a -> s{_gtsrsNextToken = a});+gtsrsNextToken = lens _gtsrsNextToken (\ s a -> s{_gtsrsNextToken = a})  -- | The start time of this page of results. gtsrsApproximateTime :: Lens' GetTraceSummariesResponse (Maybe UTCTime)-gtsrsApproximateTime = lens _gtsrsApproximateTime (\ s a -> s{_gtsrsApproximateTime = a}) . mapping _Time;+gtsrsApproximateTime = lens _gtsrsApproximateTime (\ s a -> s{_gtsrsApproximateTime = a}) . mapping _Time  -- | Trace IDs and metadata for traces that were found in the specified time frame. gtsrsTraceSummaries :: Lens' GetTraceSummariesResponse [TraceSummary]-gtsrsTraceSummaries = lens _gtsrsTraceSummaries (\ s a -> s{_gtsrsTraceSummaries = a}) . _Default . _Coerce;+gtsrsTraceSummaries = lens _gtsrsTraceSummaries (\ s a -> s{_gtsrsTraceSummaries = a}) . _Default . _Coerce  -- | -- | The response status code. gtsrsResponseStatus :: Lens' GetTraceSummariesResponse Int-gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a});+gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a})  instance NFData GetTraceSummariesResponse where

@@ -0,0 +1,137 @@+{-# 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.PutEncryptionConfig+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the encryption configuration for X-Ray data.+--+--+module Network.AWS.XRay.PutEncryptionConfig+    (+    -- * Creating a Request+      putEncryptionConfig+    , PutEncryptionConfig+    -- * Request Lenses+    , pecKeyId+    , pecType++    -- * Destructuring the Response+    , putEncryptionConfigResponse+    , PutEncryptionConfigResponse+    -- * Response Lenses+    , pecrsEncryptionConfig+    , pecrsResponseStatus+    ) 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:/ 'putEncryptionConfig' smart constructor.+data PutEncryptionConfig = PutEncryptionConfig'+  { _pecKeyId :: !(Maybe Text)+  , _pecType  :: !EncryptionType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutEncryptionConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pecKeyId' - An AWS KMS customer master key (CMK) in one of the following formats:     * __Alias__ - The name of the key. For example, @alias/MyKey@ .     * __Key ID__ - The KMS key ID of the key. For example, @ae4aa6d49-a4d8-9df9-a475-4ff6d7898456@ .     * __ARN__ - The full Amazon Resource Name of the key ID or alias. For example, @arn:aws:kms:us-east-2:123456789012:key/ae4aa6d49-a4d8-9df9-a475-4ff6d7898456@ . Use this format to specify a key in a different account. Omit this key if you set @Type@ to @NONE@ .+--+-- * 'pecType' - The type of encryption. Set to @KMS@ to use your own key for encryption. Set to @NONE@ for default encryption.+putEncryptionConfig+    :: EncryptionType -- ^ 'pecType'+    -> PutEncryptionConfig+putEncryptionConfig pType_ =+  PutEncryptionConfig' {_pecKeyId = Nothing, _pecType = pType_}+++-- | An AWS KMS customer master key (CMK) in one of the following formats:     * __Alias__ - The name of the key. For example, @alias/MyKey@ .     * __Key ID__ - The KMS key ID of the key. For example, @ae4aa6d49-a4d8-9df9-a475-4ff6d7898456@ .     * __ARN__ - The full Amazon Resource Name of the key ID or alias. For example, @arn:aws:kms:us-east-2:123456789012:key/ae4aa6d49-a4d8-9df9-a475-4ff6d7898456@ . Use this format to specify a key in a different account. Omit this key if you set @Type@ to @NONE@ .+pecKeyId :: Lens' PutEncryptionConfig (Maybe Text)+pecKeyId = lens _pecKeyId (\ s a -> s{_pecKeyId = a})++-- | The type of encryption. Set to @KMS@ to use your own key for encryption. Set to @NONE@ for default encryption.+pecType :: Lens' PutEncryptionConfig EncryptionType+pecType = lens _pecType (\ s a -> s{_pecType = a})++instance AWSRequest PutEncryptionConfig where+        type Rs PutEncryptionConfig =+             PutEncryptionConfigResponse+        request = postJSON xRay+        response+          = receiveJSON+              (\ s h x ->+                 PutEncryptionConfigResponse' <$>+                   (x .?> "EncryptionConfig") <*> (pure (fromEnum s)))++instance Hashable PutEncryptionConfig where++instance NFData PutEncryptionConfig where++instance ToHeaders PutEncryptionConfig where+        toHeaders = const mempty++instance ToJSON PutEncryptionConfig where+        toJSON PutEncryptionConfig'{..}+          = object+              (catMaybes+                 [("KeyId" .=) <$> _pecKeyId,+                  Just ("Type" .= _pecType)])++instance ToPath PutEncryptionConfig where+        toPath = const "/PutEncryptionConfig"++instance ToQuery PutEncryptionConfig where+        toQuery = const mempty++-- | /See:/ 'putEncryptionConfigResponse' smart constructor.+data PutEncryptionConfigResponse = PutEncryptionConfigResponse'+  { _pecrsEncryptionConfig :: !(Maybe EncryptionConfig)+  , _pecrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutEncryptionConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pecrsEncryptionConfig' - The new encryption configuration.+--+-- * 'pecrsResponseStatus' - -- | The response status code.+putEncryptionConfigResponse+    :: Int -- ^ 'pecrsResponseStatus'+    -> PutEncryptionConfigResponse+putEncryptionConfigResponse pResponseStatus_ =+  PutEncryptionConfigResponse'+    {_pecrsEncryptionConfig = Nothing, _pecrsResponseStatus = pResponseStatus_}+++-- | The new encryption configuration.+pecrsEncryptionConfig :: Lens' PutEncryptionConfigResponse (Maybe EncryptionConfig)+pecrsEncryptionConfig = lens _pecrsEncryptionConfig (\ s a -> s{_pecrsEncryptionConfig = a})++-- | -- | The response status code.+pecrsResponseStatus :: Lens' PutEncryptionConfigResponse Int+pecrsResponseStatus = lens _pecrsResponseStatus (\ s a -> s{_pecrsResponseStatus = a})++instance NFData PutEncryptionConfigResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.XRay.PutTelemetryRecords--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,28 +70,28 @@     :: PutTelemetryRecords putTelemetryRecords =   PutTelemetryRecords'-  { _ptrHostname = Nothing-  , _ptrEC2InstanceId = Nothing-  , _ptrResourceARN = Nothing-  , _ptrTelemetryRecords = mempty-  }+    { _ptrHostname = Nothing+    , _ptrEC2InstanceId = Nothing+    , _ptrResourceARN = Nothing+    , _ptrTelemetryRecords = mempty+    }   -- | ptrHostname :: Lens' PutTelemetryRecords (Maybe Text)-ptrHostname = lens _ptrHostname (\ s a -> s{_ptrHostname = a});+ptrHostname = lens _ptrHostname (\ s a -> s{_ptrHostname = a})  -- | ptrEC2InstanceId :: Lens' PutTelemetryRecords (Maybe Text)-ptrEC2InstanceId = lens _ptrEC2InstanceId (\ s a -> s{_ptrEC2InstanceId = a});+ptrEC2InstanceId = lens _ptrEC2InstanceId (\ s a -> s{_ptrEC2InstanceId = a})  -- | ptrResourceARN :: Lens' PutTelemetryRecords (Maybe Text)-ptrResourceARN = lens _ptrResourceARN (\ s a -> s{_ptrResourceARN = a});+ptrResourceARN = lens _ptrResourceARN (\ s a -> s{_ptrResourceARN = a})  -- | ptrTelemetryRecords :: Lens' PutTelemetryRecords [TelemetryRecord]-ptrTelemetryRecords = lens _ptrTelemetryRecords (\ s a -> s{_ptrTelemetryRecords = a}) . _Coerce;+ptrTelemetryRecords = lens _ptrTelemetryRecords (\ s a -> s{_ptrTelemetryRecords = a}) . _Coerce  instance AWSRequest PutTelemetryRecords where         type Rs PutTelemetryRecords =@@ -144,6 +144,6 @@  -- | -- | The response status code. ptrrsResponseStatus :: Lens' PutTelemetryRecordsResponse Int-ptrrsResponseStatus = lens _ptrrsResponseStatus (\ s a -> s{_ptrrsResponseStatus = a});+ptrrsResponseStatus = lens _ptrrsResponseStatus (\ s a -> s{_ptrrsResponseStatus = a})  instance NFData PutTelemetryRecordsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.XRay.PutTraceSegments--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Uploads segment documents to AWS X-Ray. The X-Ray SDK generates segment documents and sends them to the X-Ray daemon, which uploads them in batches. A segment document can be a completed segment, an in-progress segment, or an array of subsegments. -- ----- Segments must include the following fields. For the full segment document schema, see <http://docs.aws.amazon.com/xray/latest/devguide/xray-api-segmentdocuments.html AWS X-Ray Segment Documents> in the /AWS X-Ray Developer Guide/ .+-- Segments must include the following fields. For the full segment document schema, see <https://docs.aws.amazon.com/xray/latest/devguide/xray-api-segmentdocuments.html AWS X-Ray Segment Documents> in the /AWS X-Ray Developer Guide/ . -- -- __Required Segment Document Fields__ --@@ -92,7 +92,7 @@  -- | A string containing a JSON document defining one or more segments or subsegments. ptsTraceSegmentDocuments :: Lens' PutTraceSegments [Text]-ptsTraceSegmentDocuments = lens _ptsTraceSegmentDocuments (\ s a -> s{_ptsTraceSegmentDocuments = a}) . _Coerce;+ptsTraceSegmentDocuments = lens _ptsTraceSegmentDocuments (\ s a -> s{_ptsTraceSegmentDocuments = a}) . _Coerce  instance AWSRequest PutTraceSegments where         type Rs PutTraceSegments = PutTraceSegmentsResponse@@ -144,17 +144,17 @@     -> PutTraceSegmentsResponse putTraceSegmentsResponse pResponseStatus_ =   PutTraceSegmentsResponse'-  { _ptsrsUnprocessedTraceSegments = Nothing-  , _ptsrsResponseStatus = pResponseStatus_-  }+    { _ptsrsUnprocessedTraceSegments = Nothing+    , _ptsrsResponseStatus = pResponseStatus_+    }   -- | Segments that failed processing. ptsrsUnprocessedTraceSegments :: Lens' PutTraceSegmentsResponse [UnprocessedTraceSegment]-ptsrsUnprocessedTraceSegments = lens _ptsrsUnprocessedTraceSegments (\ s a -> s{_ptsrsUnprocessedTraceSegments = a}) . _Default . _Coerce;+ptsrsUnprocessedTraceSegments = lens _ptsrsUnprocessedTraceSegments (\ s a -> s{_ptsrsUnprocessedTraceSegments = a}) . _Default . _Coerce  -- | -- | The response status code. ptsrsResponseStatus :: Lens' PutTraceSegmentsResponse Int-ptsrsResponseStatus = lens _ptsrsResponseStatus (\ s a -> s{_ptsrsResponseStatus = a});+ptsrsResponseStatus = lens _ptsrsResponseStatus (\ s a -> s{_ptsrsResponseStatus = a})  instance NFData PutTraceSegmentsResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.XRay.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -19,6 +19,12 @@     , _InvalidRequestException     , _ThrottledException +    -- * EncryptionStatus+    , EncryptionStatus (..)++    -- * EncryptionType+    , EncryptionType (..)+     -- * Alias     , Alias     , alias@@ -62,6 +68,13 @@     , esErrorStatistics     , esTotalCount +    -- * EncryptionConfig+    , EncryptionConfig+    , encryptionConfig+    , ecStatus+    , ecKeyId+    , ecType+     -- * ErrorStatistics     , ErrorStatistics     , errorStatistics@@ -137,8 +150,8 @@     , trSegmentsSentCount     , trSegmentsSpilloverCount     , trSegmentsRejectedCount-    , trTimestamp     , trBackendConnectionErrors+    , trTimestamp      -- * Trace     , Trace@@ -192,24 +205,24 @@ xRay :: Service xRay =   Service-  { _svcAbbrev = "XRay"-  , _svcSigner = v4-  , _svcPrefix = "xray"-  , _svcVersion = "2016-04-12"-  , _svcEndpoint = defaultEndpoint xRay-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "XRay"-  , _svcRetry = retry-  }+    { _svcAbbrev = "XRay"+    , _svcSigner = v4+    , _svcPrefix = "xray"+    , _svcVersion = "2016-04-12"+    , _svcEndpoint = defaultEndpoint xRay+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "XRay"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -218,6 +231,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.XRay.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -49,15 +49,15 @@  -- | A list of names for the alias, including the canonical name. aNames :: Lens' Alias [Text]-aNames = lens _aNames (\ s a -> s{_aNames = a}) . _Default . _Coerce;+aNames = lens _aNames (\ s a -> s{_aNames = a}) . _Default . _Coerce  -- | The canonical name of the alias. aName :: Lens' Alias (Maybe Text)-aName = lens _aName (\ s a -> s{_aName = a});+aName = lens _aName (\ s a -> s{_aName = a})  -- | The type of the alias. aType :: Lens' Alias (Maybe Text)-aType = lens _aType (\ s a -> s{_aType = a});+aType = lens _aType (\ s a -> s{_aType = a})  instance FromJSON Alias where         parseJSON@@ -96,23 +96,23 @@     :: AnnotationValue annotationValue =   AnnotationValue'-  { _avNumberValue = Nothing-  , _avStringValue = Nothing-  , _avBooleanValue = Nothing-  }+    { _avNumberValue = Nothing+    , _avStringValue = Nothing+    , _avBooleanValue = Nothing+    }   -- | Value for a Number annotation. avNumberValue :: Lens' AnnotationValue (Maybe Double)-avNumberValue = lens _avNumberValue (\ s a -> s{_avNumberValue = a});+avNumberValue = lens _avNumberValue (\ s a -> s{_avNumberValue = a})  -- | Value for a String annotation. avStringValue :: Lens' AnnotationValue (Maybe Text)-avStringValue = lens _avStringValue (\ s a -> s{_avStringValue = a});+avStringValue = lens _avStringValue (\ s a -> s{_avStringValue = a})  -- | Value for a Boolean annotation. avBooleanValue :: Lens' AnnotationValue (Maybe Bool)-avBooleanValue = lens _avBooleanValue (\ s a -> s{_avBooleanValue = a});+avBooleanValue = lens _avBooleanValue (\ s a -> s{_avBooleanValue = a})  instance FromJSON AnnotationValue where         parseJSON@@ -160,38 +160,38 @@     :: BackendConnectionErrors backendConnectionErrors =   BackendConnectionErrors'-  { _bceOtherCount = Nothing-  , _bceTimeoutCount = Nothing-  , _bceHTTPCode5XXCount = Nothing-  , _bceConnectionRefusedCount = Nothing-  , _bceHTTPCode4XXCount = Nothing-  , _bceUnknownHostCount = Nothing-  }+    { _bceOtherCount = Nothing+    , _bceTimeoutCount = Nothing+    , _bceHTTPCode5XXCount = Nothing+    , _bceConnectionRefusedCount = Nothing+    , _bceHTTPCode4XXCount = Nothing+    , _bceUnknownHostCount = Nothing+    }   -- | bceOtherCount :: Lens' BackendConnectionErrors (Maybe Int)-bceOtherCount = lens _bceOtherCount (\ s a -> s{_bceOtherCount = a});+bceOtherCount = lens _bceOtherCount (\ s a -> s{_bceOtherCount = a})  -- | bceTimeoutCount :: Lens' BackendConnectionErrors (Maybe Int)-bceTimeoutCount = lens _bceTimeoutCount (\ s a -> s{_bceTimeoutCount = a});+bceTimeoutCount = lens _bceTimeoutCount (\ s a -> s{_bceTimeoutCount = a})  -- | bceHTTPCode5XXCount :: Lens' BackendConnectionErrors (Maybe Int)-bceHTTPCode5XXCount = lens _bceHTTPCode5XXCount (\ s a -> s{_bceHTTPCode5XXCount = a});+bceHTTPCode5XXCount = lens _bceHTTPCode5XXCount (\ s a -> s{_bceHTTPCode5XXCount = a})  -- | bceConnectionRefusedCount :: Lens' BackendConnectionErrors (Maybe Int)-bceConnectionRefusedCount = lens _bceConnectionRefusedCount (\ s a -> s{_bceConnectionRefusedCount = a});+bceConnectionRefusedCount = lens _bceConnectionRefusedCount (\ s a -> s{_bceConnectionRefusedCount = a})  -- | bceHTTPCode4XXCount :: Lens' BackendConnectionErrors (Maybe Int)-bceHTTPCode4XXCount = lens _bceHTTPCode4XXCount (\ s a -> s{_bceHTTPCode4XXCount = a});+bceHTTPCode4XXCount = lens _bceHTTPCode4XXCount (\ s a -> s{_bceHTTPCode4XXCount = a})  -- | bceUnknownHostCount :: Lens' BackendConnectionErrors (Maybe Int)-bceUnknownHostCount = lens _bceUnknownHostCount (\ s a -> s{_bceUnknownHostCount = a});+bceUnknownHostCount = lens _bceUnknownHostCount (\ s a -> s{_bceUnknownHostCount = a})  instance Hashable BackendConnectionErrors where @@ -243,38 +243,38 @@     :: Edge edge =   Edge'-  { _eStartTime = Nothing-  , _eAliases = Nothing-  , _eResponseTimeHistogram = Nothing-  , _eReferenceId = Nothing-  , _eEndTime = Nothing-  , _eSummaryStatistics = Nothing-  }+    { _eStartTime = Nothing+    , _eAliases = Nothing+    , _eResponseTimeHistogram = Nothing+    , _eReferenceId = Nothing+    , _eEndTime = Nothing+    , _eSummaryStatistics = Nothing+    }   -- | The start time of the first segment on the edge. eStartTime :: Lens' Edge (Maybe UTCTime)-eStartTime = lens _eStartTime (\ s a -> s{_eStartTime = a}) . mapping _Time;+eStartTime = lens _eStartTime (\ s a -> s{_eStartTime = a}) . mapping _Time  -- | Aliases for the edge. eAliases :: Lens' Edge [Alias]-eAliases = lens _eAliases (\ s a -> s{_eAliases = a}) . _Default . _Coerce;+eAliases = lens _eAliases (\ s a -> s{_eAliases = a}) . _Default . _Coerce  -- | A histogram that maps the spread of client response times on an edge. eResponseTimeHistogram :: Lens' Edge [HistogramEntry]-eResponseTimeHistogram = lens _eResponseTimeHistogram (\ s a -> s{_eResponseTimeHistogram = a}) . _Default . _Coerce;+eResponseTimeHistogram = lens _eResponseTimeHistogram (\ s a -> s{_eResponseTimeHistogram = a}) . _Default . _Coerce  -- | Identifier of the edge. Unique within a service map. eReferenceId :: Lens' Edge (Maybe Int)-eReferenceId = lens _eReferenceId (\ s a -> s{_eReferenceId = a});+eReferenceId = lens _eReferenceId (\ s a -> s{_eReferenceId = a})  -- | The end time of the last segment on the edge. eEndTime :: Lens' Edge (Maybe UTCTime)-eEndTime = lens _eEndTime (\ s a -> s{_eEndTime = a}) . mapping _Time;+eEndTime = lens _eEndTime (\ s a -> s{_eEndTime = a}) . mapping _Time  -- | Response statistics for segments on the edge. eSummaryStatistics :: Lens' Edge (Maybe EdgeStatistics)-eSummaryStatistics = lens _eSummaryStatistics (\ s a -> s{_eSummaryStatistics = a});+eSummaryStatistics = lens _eSummaryStatistics (\ s a -> s{_eSummaryStatistics = a})  instance FromJSON Edge where         parseJSON@@ -322,33 +322,33 @@     :: EdgeStatistics edgeStatistics =   EdgeStatistics'-  { _esFaultStatistics = Nothing-  , _esOKCount = Nothing-  , _esTotalResponseTime = Nothing-  , _esErrorStatistics = Nothing-  , _esTotalCount = Nothing-  }+    { _esFaultStatistics = Nothing+    , _esOKCount = Nothing+    , _esTotalResponseTime = Nothing+    , _esErrorStatistics = Nothing+    , _esTotalCount = Nothing+    }   -- | Information about requests that failed with a 5xx Server Error status code. esFaultStatistics :: Lens' EdgeStatistics (Maybe FaultStatistics)-esFaultStatistics = lens _esFaultStatistics (\ s a -> s{_esFaultStatistics = a});+esFaultStatistics = lens _esFaultStatistics (\ s a -> s{_esFaultStatistics = a})  -- | The number of requests that completed with a 2xx Success status code. esOKCount :: Lens' EdgeStatistics (Maybe Integer)-esOKCount = lens _esOKCount (\ s a -> s{_esOKCount = a});+esOKCount = lens _esOKCount (\ s a -> s{_esOKCount = a})  -- | The aggregate response time of completed requests. esTotalResponseTime :: Lens' EdgeStatistics (Maybe Double)-esTotalResponseTime = lens _esTotalResponseTime (\ s a -> s{_esTotalResponseTime = a});+esTotalResponseTime = lens _esTotalResponseTime (\ s a -> s{_esTotalResponseTime = a})  -- | Information about requests that failed with a 4xx Client Error status code. esErrorStatistics :: Lens' EdgeStatistics (Maybe ErrorStatistics)-esErrorStatistics = lens _esErrorStatistics (\ s a -> s{_esErrorStatistics = a});+esErrorStatistics = lens _esErrorStatistics (\ s a -> s{_esErrorStatistics = a})  -- | The total number of completed requests. esTotalCount :: Lens' EdgeStatistics (Maybe Integer)-esTotalCount = lens _esTotalCount (\ s a -> s{_esTotalCount = a});+esTotalCount = lens _esTotalCount (\ s a -> s{_esTotalCount = a})  instance FromJSON EdgeStatistics where         parseJSON@@ -364,6 +364,57 @@  instance NFData EdgeStatistics where +-- | A configuration document that specifies encryption configuration settings.+--+--+--+-- /See:/ 'encryptionConfig' smart constructor.+data EncryptionConfig = EncryptionConfig'+  { _ecStatus :: !(Maybe EncryptionStatus)+  , _ecKeyId  :: !(Maybe Text)+  , _ecType   :: !(Maybe EncryptionType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EncryptionConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ecStatus' - The encryption status. After modifying encryption configuration with 'PutEncryptionConfig' , the status can be @UPDATING@ for up to one hour before X-Ray starts encrypting data with the new key.+--+-- * 'ecKeyId' - The ID of the customer master key (CMK) used for encryption, if applicable.+--+-- * 'ecType' - The type of encryption. Set to @KMS@ for encryption with CMKs. Set to @NONE@ for default encryption.+encryptionConfig+    :: EncryptionConfig+encryptionConfig =+  EncryptionConfig' {_ecStatus = Nothing, _ecKeyId = Nothing, _ecType = Nothing}+++-- | The encryption status. After modifying encryption configuration with 'PutEncryptionConfig' , the status can be @UPDATING@ for up to one hour before X-Ray starts encrypting data with the new key.+ecStatus :: Lens' EncryptionConfig (Maybe EncryptionStatus)+ecStatus = lens _ecStatus (\ s a -> s{_ecStatus = a})++-- | The ID of the customer master key (CMK) used for encryption, if applicable.+ecKeyId :: Lens' EncryptionConfig (Maybe Text)+ecKeyId = lens _ecKeyId (\ s a -> s{_ecKeyId = a})++-- | The type of encryption. Set to @KMS@ for encryption with CMKs. Set to @NONE@ for default encryption.+ecType :: Lens' EncryptionConfig (Maybe EncryptionType)+ecType = lens _ecType (\ s a -> s{_ecType = a})++instance FromJSON EncryptionConfig where+        parseJSON+          = withObject "EncryptionConfig"+              (\ x ->+                 EncryptionConfig' <$>+                   (x .:? "Status") <*> (x .:? "KeyId") <*>+                     (x .:? "Type"))++instance Hashable EncryptionConfig where++instance NFData EncryptionConfig where+ -- | Information about requests that failed with a 4xx Client Error status code. -- --@@ -389,20 +440,20 @@     :: ErrorStatistics errorStatistics =   ErrorStatistics'-  {_eOtherCount = Nothing, _eThrottleCount = Nothing, _eTotalCount = Nothing}+    {_eOtherCount = Nothing, _eThrottleCount = Nothing, _eTotalCount = Nothing}   -- | The number of requests that failed with untracked 4xx Client Error status codes. eOtherCount :: Lens' ErrorStatistics (Maybe Integer)-eOtherCount = lens _eOtherCount (\ s a -> s{_eOtherCount = a});+eOtherCount = lens _eOtherCount (\ s a -> s{_eOtherCount = a})  -- | The number of requests that failed with a 419 throttling status code. eThrottleCount :: Lens' ErrorStatistics (Maybe Integer)-eThrottleCount = lens _eThrottleCount (\ s a -> s{_eThrottleCount = a});+eThrottleCount = lens _eThrottleCount (\ s a -> s{_eThrottleCount = a})  -- | The total number of requests that failed with a 4xx Client Error status code. eTotalCount :: Lens' ErrorStatistics (Maybe Integer)-eTotalCount = lens _eTotalCount (\ s a -> s{_eTotalCount = a});+eTotalCount = lens _eTotalCount (\ s a -> s{_eTotalCount = a})  instance FromJSON ErrorStatistics where         parseJSON@@ -442,11 +493,11 @@  -- | The number of requests that failed with untracked 5xx Server Error status codes. fsOtherCount :: Lens' FaultStatistics (Maybe Integer)-fsOtherCount = lens _fsOtherCount (\ s a -> s{_fsOtherCount = a});+fsOtherCount = lens _fsOtherCount (\ s a -> s{_fsOtherCount = a})  -- | The total number of requests that failed with a 5xx Server Error status code. fsTotalCount :: Lens' FaultStatistics (Maybe Integer)-fsTotalCount = lens _fsTotalCount (\ s a -> s{_fsTotalCount = a});+fsTotalCount = lens _fsTotalCount (\ s a -> s{_fsTotalCount = a})  instance FromJSON FaultStatistics where         parseJSON@@ -490,33 +541,33 @@     :: HTTP hTTP =   HTTP'-  { _httpHTTPMethod = Nothing-  , _httpHTTPStatus = Nothing-  , _httpClientIP = Nothing-  , _httpUserAgent = Nothing-  , _httpHTTPURL = Nothing-  }+    { _httpHTTPMethod = Nothing+    , _httpHTTPStatus = Nothing+    , _httpClientIP = Nothing+    , _httpUserAgent = Nothing+    , _httpHTTPURL = Nothing+    }   -- | The request method. httpHTTPMethod :: Lens' HTTP (Maybe Text)-httpHTTPMethod = lens _httpHTTPMethod (\ s a -> s{_httpHTTPMethod = a});+httpHTTPMethod = lens _httpHTTPMethod (\ s a -> s{_httpHTTPMethod = a})  -- | The response status. httpHTTPStatus :: Lens' HTTP (Maybe Int)-httpHTTPStatus = lens _httpHTTPStatus (\ s a -> s{_httpHTTPStatus = a});+httpHTTPStatus = lens _httpHTTPStatus (\ s a -> s{_httpHTTPStatus = a})  -- | The IP address of the requestor. httpClientIP :: Lens' HTTP (Maybe Text)-httpClientIP = lens _httpClientIP (\ s a -> s{_httpClientIP = a});+httpClientIP = lens _httpClientIP (\ s a -> s{_httpClientIP = a})  -- | The request's user agent string. httpUserAgent :: Lens' HTTP (Maybe Text)-httpUserAgent = lens _httpUserAgent (\ s a -> s{_httpUserAgent = a});+httpUserAgent = lens _httpUserAgent (\ s a -> s{_httpUserAgent = a})  -- | The request URL. httpHTTPURL :: Lens' HTTP (Maybe Text)-httpHTTPURL = lens _httpHTTPURL (\ s a -> s{_httpHTTPURL = a});+httpHTTPURL = lens _httpHTTPURL (\ s a -> s{_httpHTTPURL = a})  instance FromJSON HTTP where         parseJSON@@ -557,11 +608,11 @@  -- | The prevalence of the entry. heCount :: Lens' HistogramEntry (Maybe Int)-heCount = lens _heCount (\ s a -> s{_heCount = a});+heCount = lens _heCount (\ s a -> s{_heCount = a})  -- | The value of the entry. heValue :: Lens' HistogramEntry (Maybe Double)-heValue = lens _heValue (\ s a -> s{_heValue = a});+heValue = lens _heValue (\ s a -> s{_heValue = a})  instance FromJSON HistogramEntry where         parseJSON@@ -577,7 +628,9 @@ -- | A segment from a trace that has been ingested by the X-Ray service. The segment can be compiled from documents uploaded with 'PutTraceSegments' , or an @inferred@ segment for a downstream service, generated from a subsegment sent by the service that called it. -- --+-- For the full segment document schema, see <https://docs.aws.amazon.com/xray/latest/devguide/xray-api-segmentdocuments.html AWS X-Ray Segment Documents> in the /AWS X-Ray Developer Guide/ . --+-- -- /See:/ 'segment' smart constructor. data Segment = Segment'   { _sDocument :: !(Maybe Text)@@ -589,7 +642,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sDocument' - The segment document+-- * 'sDocument' - The segment document. -- -- * 'sId' - The segment's ID. segment@@ -597,13 +650,13 @@ segment = Segment' {_sDocument = Nothing, _sId = Nothing}  --- | The segment document+-- | The segment document. sDocument :: Lens' Segment (Maybe Text)-sDocument = lens _sDocument (\ s a -> s{_sDocument = a});+sDocument = lens _sDocument (\ s a -> s{_sDocument = a})  -- | The segment's ID. sId :: Lens' Segment (Maybe Text)-sId = lens _sId (\ s a -> s{_sId = a});+sId = lens _sId (\ s a -> s{_sId = a})  instance FromJSON Segment where         parseJSON@@ -643,28 +696,28 @@     :: ServiceId serviceId =   ServiceId'-  { _siAccountId = Nothing-  , _siNames = Nothing-  , _siName = Nothing-  , _siType = Nothing-  }+    { _siAccountId = Nothing+    , _siNames = Nothing+    , _siName = Nothing+    , _siType = Nothing+    }   -- | siAccountId :: Lens' ServiceId (Maybe Text)-siAccountId = lens _siAccountId (\ s a -> s{_siAccountId = a});+siAccountId = lens _siAccountId (\ s a -> s{_siAccountId = a})  -- | siNames :: Lens' ServiceId [Text]-siNames = lens _siNames (\ s a -> s{_siNames = a}) . _Default . _Coerce;+siNames = lens _siNames (\ s a -> s{_siNames = a}) . _Default . _Coerce  -- | siName :: Lens' ServiceId (Maybe Text)-siName = lens _siName (\ s a -> s{_siName = a});+siName = lens _siName (\ s a -> s{_siName = a})  -- | siType :: Lens' ServiceId (Maybe Text)-siType = lens _siType (\ s a -> s{_siType = a});+siType = lens _siType (\ s a -> s{_siType = a})  instance FromJSON ServiceId where         parseJSON@@ -734,73 +787,73 @@     :: ServiceInfo serviceInfo =   ServiceInfo'-  { _sState = Nothing-  , _sStartTime = Nothing-  , _sRoot = Nothing-  , _sResponseTimeHistogram = Nothing-  , _sDurationHistogram = Nothing-  , _sReferenceId = Nothing-  , _sAccountId = Nothing-  , _sNames = Nothing-  , _sName = Nothing-  , _sEndTime = Nothing-  , _sType = Nothing-  , _sEdges = Nothing-  , _sSummaryStatistics = Nothing-  }+    { _sState = Nothing+    , _sStartTime = Nothing+    , _sRoot = Nothing+    , _sResponseTimeHistogram = Nothing+    , _sDurationHistogram = Nothing+    , _sReferenceId = Nothing+    , _sAccountId = Nothing+    , _sNames = Nothing+    , _sName = Nothing+    , _sEndTime = Nothing+    , _sType = Nothing+    , _sEdges = Nothing+    , _sSummaryStatistics = Nothing+    }   -- | The service's state. sState :: Lens' ServiceInfo (Maybe Text)-sState = lens _sState (\ s a -> s{_sState = a});+sState = lens _sState (\ s a -> s{_sState = a})  -- | The start time of the first segment that the service generated. sStartTime :: Lens' ServiceInfo (Maybe UTCTime)-sStartTime = lens _sStartTime (\ s a -> s{_sStartTime = a}) . mapping _Time;+sStartTime = lens _sStartTime (\ s a -> s{_sStartTime = a}) . mapping _Time  -- | Indicates that the service was the first service to process a request. sRoot :: Lens' ServiceInfo (Maybe Bool)-sRoot = lens _sRoot (\ s a -> s{_sRoot = a});+sRoot = lens _sRoot (\ s a -> s{_sRoot = a})  -- | A histogram that maps the spread of service response times. sResponseTimeHistogram :: Lens' ServiceInfo [HistogramEntry]-sResponseTimeHistogram = lens _sResponseTimeHistogram (\ s a -> s{_sResponseTimeHistogram = a}) . _Default . _Coerce;+sResponseTimeHistogram = lens _sResponseTimeHistogram (\ s a -> s{_sResponseTimeHistogram = a}) . _Default . _Coerce  -- | A histogram that maps the spread of service durations. sDurationHistogram :: Lens' ServiceInfo [HistogramEntry]-sDurationHistogram = lens _sDurationHistogram (\ s a -> s{_sDurationHistogram = a}) . _Default . _Coerce;+sDurationHistogram = lens _sDurationHistogram (\ s a -> s{_sDurationHistogram = a}) . _Default . _Coerce  -- | Identifier for the service. Unique within the service map. sReferenceId :: Lens' ServiceInfo (Maybe Int)-sReferenceId = lens _sReferenceId (\ s a -> s{_sReferenceId = a});+sReferenceId = lens _sReferenceId (\ s a -> s{_sReferenceId = a})  -- | Identifier of the AWS account in which the service runs. sAccountId :: Lens' ServiceInfo (Maybe Text)-sAccountId = lens _sAccountId (\ s a -> s{_sAccountId = a});+sAccountId = lens _sAccountId (\ s a -> s{_sAccountId = a})  -- | A list of names for the service, including the canonical name. sNames :: Lens' ServiceInfo [Text]-sNames = lens _sNames (\ s a -> s{_sNames = a}) . _Default . _Coerce;+sNames = lens _sNames (\ s a -> s{_sNames = a}) . _Default . _Coerce  -- | The canonical name of the service. sName :: Lens' ServiceInfo (Maybe Text)-sName = lens _sName (\ s a -> s{_sName = a});+sName = lens _sName (\ s a -> s{_sName = a})  -- | The end time of the last segment that the service generated. sEndTime :: Lens' ServiceInfo (Maybe UTCTime)-sEndTime = lens _sEndTime (\ s a -> s{_sEndTime = a}) . mapping _Time;+sEndTime = lens _sEndTime (\ s a -> s{_sEndTime = a}) . mapping _Time  -- | The type of service.     * AWS Resource - The type of an AWS resource. For example, @AWS::EC2::Instance@ for a application running on Amazon EC2 or @AWS::DynamoDB::Table@ for an Amazon DynamoDB table that the application used.     * AWS Service - The type of an AWS service. For example, @AWS::DynamoDB@ for downstream calls to Amazon DynamoDB that didn't target a specific table.     * @client@ - Represents the clients that sent requests to a root service.     * @remote@ - A downstream service of indeterminate type. sType :: Lens' ServiceInfo (Maybe Text)-sType = lens _sType (\ s a -> s{_sType = a});+sType = lens _sType (\ s a -> s{_sType = a})  -- | Connections to downstream services. sEdges :: Lens' ServiceInfo [Edge]-sEdges = lens _sEdges (\ s a -> s{_sEdges = a}) . _Default . _Coerce;+sEdges = lens _sEdges (\ s a -> s{_sEdges = a}) . _Default . _Coerce  -- | Aggregated statistics for the service. sSummaryStatistics :: Lens' ServiceInfo (Maybe ServiceStatistics)-sSummaryStatistics = lens _sSummaryStatistics (\ s a -> s{_sSummaryStatistics = a});+sSummaryStatistics = lens _sSummaryStatistics (\ s a -> s{_sSummaryStatistics = a})  instance FromJSON ServiceInfo where         parseJSON@@ -855,33 +908,33 @@     :: ServiceStatistics serviceStatistics =   ServiceStatistics'-  { _ssFaultStatistics = Nothing-  , _ssOKCount = Nothing-  , _ssTotalResponseTime = Nothing-  , _ssErrorStatistics = Nothing-  , _ssTotalCount = Nothing-  }+    { _ssFaultStatistics = Nothing+    , _ssOKCount = Nothing+    , _ssTotalResponseTime = Nothing+    , _ssErrorStatistics = Nothing+    , _ssTotalCount = Nothing+    }   -- | Information about requests that failed with a 5xx Server Error status code. ssFaultStatistics :: Lens' ServiceStatistics (Maybe FaultStatistics)-ssFaultStatistics = lens _ssFaultStatistics (\ s a -> s{_ssFaultStatistics = a});+ssFaultStatistics = lens _ssFaultStatistics (\ s a -> s{_ssFaultStatistics = a})  -- | The number of requests that completed with a 2xx Success status code. ssOKCount :: Lens' ServiceStatistics (Maybe Integer)-ssOKCount = lens _ssOKCount (\ s a -> s{_ssOKCount = a});+ssOKCount = lens _ssOKCount (\ s a -> s{_ssOKCount = a})  -- | The aggregate response time of completed requests. ssTotalResponseTime :: Lens' ServiceStatistics (Maybe Double)-ssTotalResponseTime = lens _ssTotalResponseTime (\ s a -> s{_ssTotalResponseTime = a});+ssTotalResponseTime = lens _ssTotalResponseTime (\ s a -> s{_ssTotalResponseTime = a})  -- | Information about requests that failed with a 4xx Client Error status code. ssErrorStatistics :: Lens' ServiceStatistics (Maybe ErrorStatistics)-ssErrorStatistics = lens _ssErrorStatistics (\ s a -> s{_ssErrorStatistics = a});+ssErrorStatistics = lens _ssErrorStatistics (\ s a -> s{_ssErrorStatistics = a})  -- | The total number of completed requests. ssTotalCount :: Lens' ServiceStatistics (Maybe Integer)-ssTotalCount = lens _ssTotalCount (\ s a -> s{_ssTotalCount = a});+ssTotalCount = lens _ssTotalCount (\ s a -> s{_ssTotalCount = a})  instance FromJSON ServiceStatistics where         parseJSON@@ -907,8 +960,8 @@   , _trSegmentsSentCount       :: !(Maybe Int)   , _trSegmentsSpilloverCount  :: !(Maybe Int)   , _trSegmentsRejectedCount   :: !(Maybe Int)-  , _trTimestamp               :: !(Maybe POSIX)   , _trBackendConnectionErrors :: !(Maybe BackendConnectionErrors)+  , _trTimestamp               :: !POSIX   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -924,45 +977,46 @@ -- -- * 'trSegmentsRejectedCount' - ----- * 'trTimestamp' ---- -- * 'trBackendConnectionErrors' -+--+-- * 'trTimestamp' - telemetryRecord-    :: TelemetryRecord-telemetryRecord =+    :: UTCTime -- ^ 'trTimestamp'+    -> TelemetryRecord+telemetryRecord pTimestamp_ =   TelemetryRecord'-  { _trSegmentsReceivedCount = Nothing-  , _trSegmentsSentCount = Nothing-  , _trSegmentsSpilloverCount = Nothing-  , _trSegmentsRejectedCount = Nothing-  , _trTimestamp = Nothing-  , _trBackendConnectionErrors = Nothing-  }+    { _trSegmentsReceivedCount = Nothing+    , _trSegmentsSentCount = Nothing+    , _trSegmentsSpilloverCount = Nothing+    , _trSegmentsRejectedCount = Nothing+    , _trBackendConnectionErrors = Nothing+    , _trTimestamp = _Time # pTimestamp_+    }   -- | trSegmentsReceivedCount :: Lens' TelemetryRecord (Maybe Int)-trSegmentsReceivedCount = lens _trSegmentsReceivedCount (\ s a -> s{_trSegmentsReceivedCount = a});+trSegmentsReceivedCount = lens _trSegmentsReceivedCount (\ s a -> s{_trSegmentsReceivedCount = a})  -- | trSegmentsSentCount :: Lens' TelemetryRecord (Maybe Int)-trSegmentsSentCount = lens _trSegmentsSentCount (\ s a -> s{_trSegmentsSentCount = a});+trSegmentsSentCount = lens _trSegmentsSentCount (\ s a -> s{_trSegmentsSentCount = a})  -- | trSegmentsSpilloverCount :: Lens' TelemetryRecord (Maybe Int)-trSegmentsSpilloverCount = lens _trSegmentsSpilloverCount (\ s a -> s{_trSegmentsSpilloverCount = a});+trSegmentsSpilloverCount = lens _trSegmentsSpilloverCount (\ s a -> s{_trSegmentsSpilloverCount = a})  -- | trSegmentsRejectedCount :: Lens' TelemetryRecord (Maybe Int)-trSegmentsRejectedCount = lens _trSegmentsRejectedCount (\ s a -> s{_trSegmentsRejectedCount = a});+trSegmentsRejectedCount = lens _trSegmentsRejectedCount (\ s a -> s{_trSegmentsRejectedCount = a})  -- |-trTimestamp :: Lens' TelemetryRecord (Maybe UTCTime)-trTimestamp = lens _trTimestamp (\ s a -> s{_trTimestamp = a}) . mapping _Time;+trBackendConnectionErrors :: Lens' TelemetryRecord (Maybe BackendConnectionErrors)+trBackendConnectionErrors = lens _trBackendConnectionErrors (\ s a -> s{_trBackendConnectionErrors = a})  -- |-trBackendConnectionErrors :: Lens' TelemetryRecord (Maybe BackendConnectionErrors)-trBackendConnectionErrors = lens _trBackendConnectionErrors (\ s a -> s{_trBackendConnectionErrors = a});+trTimestamp :: Lens' TelemetryRecord UTCTime+trTimestamp = lens _trTimestamp (\ s a -> s{_trTimestamp = a}) . _Time  instance Hashable TelemetryRecord where @@ -979,9 +1033,9 @@                     _trSegmentsSpilloverCount,                   ("SegmentsRejectedCount" .=) <$>                     _trSegmentsRejectedCount,-                  ("Timestamp" .=) <$> _trTimestamp,                   ("BackendConnectionErrors" .=) <$>-                    _trBackendConnectionErrors])+                    _trBackendConnectionErrors,+                  Just ("Timestamp" .= _trTimestamp)])  -- | A collection of segment documents with matching trace IDs. --@@ -1011,15 +1065,15 @@  -- | The unique identifier for the request that generated the trace's segments and subsegments. tId :: Lens' Trace (Maybe Text)-tId = lens _tId (\ s a -> s{_tId = a});+tId = lens _tId (\ s a -> s{_tId = a})  -- | Segment documents for the segments and subsegments that comprise the trace. tSegments :: Lens' Trace [Segment]-tSegments = lens _tSegments (\ s a -> s{_tSegments = a}) . _Default . _Coerce;+tSegments = lens _tSegments (\ s a -> s{_tSegments = a}) . _Default . _Coerce  -- | The length of time in seconds between the start time of the root segment and the end time of the last segment that completed. tDuration :: Lens' Trace (Maybe Double)-tDuration = lens _tDuration (\ s a -> s{_tDuration = a});+tDuration = lens _tDuration (\ s a -> s{_tDuration = a})  instance FromJSON Trace where         parseJSON@@ -1082,63 +1136,63 @@     :: TraceSummary traceSummary =   TraceSummary'-  { _tsAnnotations = Nothing-  , _tsHasThrottle = Nothing-  , _tsUsers = Nothing-  , _tsHasFault = Nothing-  , _tsServiceIds = Nothing-  , _tsIsPartial = Nothing-  , _tsHasError = Nothing-  , _tsId = Nothing-  , _tsHTTP = Nothing-  , _tsDuration = Nothing-  , _tsResponseTime = Nothing-  }+    { _tsAnnotations = Nothing+    , _tsHasThrottle = Nothing+    , _tsUsers = Nothing+    , _tsHasFault = Nothing+    , _tsServiceIds = Nothing+    , _tsIsPartial = Nothing+    , _tsHasError = Nothing+    , _tsId = Nothing+    , _tsHTTP = Nothing+    , _tsDuration = Nothing+    , _tsResponseTime = Nothing+    }   -- | Annotations from the trace's segment documents. tsAnnotations :: Lens' TraceSummary (HashMap Text [ValueWithServiceIds])-tsAnnotations = lens _tsAnnotations (\ s a -> s{_tsAnnotations = a}) . _Default . _Map;+tsAnnotations = lens _tsAnnotations (\ s a -> s{_tsAnnotations = a}) . _Default . _Map  -- | One or more of the segment documents has a 429 throttling error. tsHasThrottle :: Lens' TraceSummary (Maybe Bool)-tsHasThrottle = lens _tsHasThrottle (\ s a -> s{_tsHasThrottle = a});+tsHasThrottle = lens _tsHasThrottle (\ s a -> s{_tsHasThrottle = a})  -- | Users from the trace's segment documents. tsUsers :: Lens' TraceSummary [TraceUser]-tsUsers = lens _tsUsers (\ s a -> s{_tsUsers = a}) . _Default . _Coerce;+tsUsers = lens _tsUsers (\ s a -> s{_tsUsers = a}) . _Default . _Coerce  -- | One or more of the segment documents has a 500 series error. tsHasFault :: Lens' TraceSummary (Maybe Bool)-tsHasFault = lens _tsHasFault (\ s a -> s{_tsHasFault = a});+tsHasFault = lens _tsHasFault (\ s a -> s{_tsHasFault = a})  -- | Service IDs from the trace's segment documents. tsServiceIds :: Lens' TraceSummary [ServiceId]-tsServiceIds = lens _tsServiceIds (\ s a -> s{_tsServiceIds = a}) . _Default . _Coerce;+tsServiceIds = lens _tsServiceIds (\ s a -> s{_tsServiceIds = a}) . _Default . _Coerce  -- | One or more of the segment documents is in progress. tsIsPartial :: Lens' TraceSummary (Maybe Bool)-tsIsPartial = lens _tsIsPartial (\ s a -> s{_tsIsPartial = a});+tsIsPartial = lens _tsIsPartial (\ s a -> s{_tsIsPartial = a})  -- | One or more of the segment documents has a 400 series error. tsHasError :: Lens' TraceSummary (Maybe Bool)-tsHasError = lens _tsHasError (\ s a -> s{_tsHasError = a});+tsHasError = lens _tsHasError (\ s a -> s{_tsHasError = a})  -- | The unique identifier for the request that generated the trace's segments and subsegments. tsId :: Lens' TraceSummary (Maybe Text)-tsId = lens _tsId (\ s a -> s{_tsId = a});+tsId = lens _tsId (\ s a -> s{_tsId = a})  -- | Information about the HTTP request served by the trace. tsHTTP :: Lens' TraceSummary (Maybe HTTP)-tsHTTP = lens _tsHTTP (\ s a -> s{_tsHTTP = a});+tsHTTP = lens _tsHTTP (\ s a -> s{_tsHTTP = a})  -- | The length of time in seconds between the start time of the root segment and the end time of the last segment that completed. tsDuration :: Lens' TraceSummary (Maybe Double)-tsDuration = lens _tsDuration (\ s a -> s{_tsDuration = a});+tsDuration = lens _tsDuration (\ s a -> s{_tsDuration = a})  -- | The length of time in seconds between the start and end times of the root segment. If the service performs work asynchronously, the response time measures the time before the response is sent to the user, while the duration measures the amount of time before the last traced activity completes. tsResponseTime :: Lens' TraceSummary (Maybe Double)-tsResponseTime = lens _tsResponseTime (\ s a -> s{_tsResponseTime = a});+tsResponseTime = lens _tsResponseTime (\ s a -> s{_tsResponseTime = a})  instance FromJSON TraceSummary where         parseJSON@@ -1186,11 +1240,11 @@  -- | Services that the user's request hit. tuServiceIds :: Lens' TraceUser [ServiceId]-tuServiceIds = lens _tuServiceIds (\ s a -> s{_tuServiceIds = a}) . _Default . _Coerce;+tuServiceIds = lens _tuServiceIds (\ s a -> s{_tuServiceIds = a}) . _Default . _Coerce  -- | The user's name. tuUserName :: Lens' TraceUser (Maybe Text)-tuUserName = lens _tuUserName (\ s a -> s{_tuUserName = a});+tuUserName = lens _tuUserName (\ s a -> s{_tuUserName = a})  instance FromJSON TraceUser where         parseJSON@@ -1229,20 +1283,20 @@     :: UnprocessedTraceSegment unprocessedTraceSegment =   UnprocessedTraceSegment'-  {_utsErrorCode = Nothing, _utsId = Nothing, _utsMessage = Nothing}+    {_utsErrorCode = Nothing, _utsId = Nothing, _utsMessage = Nothing}   -- | The error that caused processing to fail. utsErrorCode :: Lens' UnprocessedTraceSegment (Maybe Text)-utsErrorCode = lens _utsErrorCode (\ s a -> s{_utsErrorCode = a});+utsErrorCode = lens _utsErrorCode (\ s a -> s{_utsErrorCode = a})  -- | The segment's ID. utsId :: Lens' UnprocessedTraceSegment (Maybe Text)-utsId = lens _utsId (\ s a -> s{_utsId = a});+utsId = lens _utsId (\ s a -> s{_utsId = a})  -- | The error message. utsMessage :: Lens' UnprocessedTraceSegment (Maybe Text)-utsMessage = lens _utsMessage (\ s a -> s{_utsMessage = a});+utsMessage = lens _utsMessage (\ s a -> s{_utsMessage = a})  instance FromJSON UnprocessedTraceSegment where         parseJSON@@ -1278,16 +1332,16 @@     :: ValueWithServiceIds valueWithServiceIds =   ValueWithServiceIds'-  {_vwsiServiceIds = Nothing, _vwsiAnnotationValue = Nothing}+    {_vwsiServiceIds = Nothing, _vwsiAnnotationValue = Nothing}   -- | Services to which the annotation applies. vwsiServiceIds :: Lens' ValueWithServiceIds [ServiceId]-vwsiServiceIds = lens _vwsiServiceIds (\ s a -> s{_vwsiServiceIds = a}) . _Default . _Coerce;+vwsiServiceIds = lens _vwsiServiceIds (\ s a -> s{_vwsiServiceIds = a}) . _Default . _Coerce  -- | Values of the annotation. vwsiAnnotationValue :: Lens' ValueWithServiceIds (Maybe AnnotationValue)-vwsiAnnotationValue = lens _vwsiAnnotationValue (\ s a -> s{_vwsiAnnotationValue = a});+vwsiAnnotationValue = lens _vwsiAnnotationValue (\ s a -> s{_vwsiAnnotationValue = a})  instance FromJSON ValueWithServiceIds where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.XRay.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -18,3 +18,60 @@ module Network.AWS.XRay.Types.Sum where  import Network.AWS.Prelude++data EncryptionStatus+  = Active+  | Updating+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText EncryptionStatus where+    parser = takeLowerText >>= \case+        "active" -> pure Active+        "updating" -> pure Updating+        e -> fromTextError $ "Failure parsing EncryptionStatus from value: '" <> e+           <> "'. Accepted values: active, updating"++instance ToText EncryptionStatus where+    toText = \case+        Active -> "ACTIVE"+        Updating -> "UPDATING"++instance Hashable     EncryptionStatus+instance NFData       EncryptionStatus+instance ToByteString EncryptionStatus+instance ToQuery      EncryptionStatus+instance ToHeader     EncryptionStatus++instance FromJSON EncryptionStatus where+    parseJSON = parseJSONText "EncryptionStatus"++data EncryptionType+  = KMS+  | None+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText EncryptionType where+    parser = takeLowerText >>= \case+        "kms" -> pure KMS+        "none" -> pure None+        e -> fromTextError $ "Failure parsing EncryptionType from value: '" <> e+           <> "'. Accepted values: kms, none"++instance ToText EncryptionType where+    toText = \case+        KMS -> "KMS"+        None -> "NONE"++instance Hashable     EncryptionType+instance NFData       EncryptionType+instance ToByteString EncryptionType+instance ToQuery      EncryptionType+instance ToHeader     EncryptionType++instance ToJSON EncryptionType where+    toJSON = toJSONText++instance FromJSON EncryptionType where+    parseJSON = parseJSONText "EncryptionType"

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.XRay.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.XRay--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -28,7 +28,10 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ requestGetServiceGraph $+--         [ requestPutEncryptionConfig $+--             putEncryptionConfig+--+--         , requestGetServiceGraph $ --             getServiceGraph -- --         , requestGetTraceSummaries $@@ -40,6 +43,9 @@ --         , requestBatchGetTraces $ --             batchGetTraces --+--         , requestGetEncryptionConfig $+--             getEncryptionConfig+-- --         , requestPutTelemetryRecords $ --             putTelemetryRecords --@@ -49,7 +55,10 @@ --           ]  --     , testGroup "response"---         [ responseGetServiceGraph $+--         [ responsePutEncryptionConfig $+--             putEncryptionConfigResponse+--+--         , responseGetServiceGraph $ --             getServiceGraphResponse -- --         , responseGetTraceSummaries $@@ -61,6 +70,9 @@ --         , responseBatchGetTraces $ --             batchGetTracesResponse --+--         , responseGetEncryptionConfig $+--             getEncryptionConfigResponse+-- --         , responsePutTelemetryRecords $ --             putTelemetryRecordsResponse --@@ -72,6 +84,11 @@  -- Requests +requestPutEncryptionConfig :: PutEncryptionConfig -> TestTree+requestPutEncryptionConfig = req+    "PutEncryptionConfig"+    "fixture/PutEncryptionConfig.yaml"+ requestGetServiceGraph :: GetServiceGraph -> TestTree requestGetServiceGraph = req     "GetServiceGraph"@@ -92,6 +109,11 @@     "BatchGetTraces"     "fixture/BatchGetTraces.yaml" +requestGetEncryptionConfig :: GetEncryptionConfig -> TestTree+requestGetEncryptionConfig = req+    "GetEncryptionConfig"+    "fixture/GetEncryptionConfig.yaml"+ requestPutTelemetryRecords :: PutTelemetryRecords -> TestTree requestPutTelemetryRecords = req     "PutTelemetryRecords"@@ -104,6 +126,13 @@  -- Responses +responsePutEncryptionConfig :: PutEncryptionConfigResponse -> TestTree+responsePutEncryptionConfig = res+    "PutEncryptionConfigResponse"+    "fixture/PutEncryptionConfigResponse.proto"+    xRay+    (Proxy :: Proxy PutEncryptionConfig)+ responseGetServiceGraph :: GetServiceGraphResponse -> TestTree responseGetServiceGraph = res     "GetServiceGraphResponse"@@ -131,6 +160,13 @@     "fixture/BatchGetTracesResponse.proto"     xRay     (Proxy :: Proxy BatchGetTraces)++responseGetEncryptionConfig :: GetEncryptionConfigResponse -> TestTree+responseGetEncryptionConfig = res+    "GetEncryptionConfigResponse"+    "fixture/GetEncryptionConfigResponse.proto"+    xRay+    (Proxy :: Proxy GetEncryptionConfig)  responsePutTelemetryRecords :: PutTelemetryRecordsResponse -> TestTree responsePutTelemetryRecords = res

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.XRay--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.XRay.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated