{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Network.AWS.XRayClient.Segment
(
XRaySegment(..)
, xraySegment
, xraySubsegment
, xrayIndependentSubsegment
, xraySegmentName
, xraySegmentId
, xraySegmentTraceId
, xraySegmentStartTime
, xraySegmentEndTime
, xraySegmentInProgress
, xraySegmentParentId
, xraySegmentType
, xraySegmentOrigin
, xraySegmentUser
, xraySegmentNamespace
, xraySegmentService
, xraySegmentError
, xraySegmentThrottle
, xraySegmentFault
, xraySegmentCause
, xraySegmentHttp
, xraySegmentAnnotations
, xraySegmentMetadata
, xraySegmentSubsegments
, xraySegmentAws
, xraySegmentSql
, XRaySegmentService(..)
, xraySegmentServiceVersion
, XRaySegmentHttp(..)
, xraySegmentHttpDef
, xraySegmentHttpRequest
, xraySegmentHttpResponse
, XRaySegmentHttpRequest(..)
, xraySegmentHttpRequestDef
, xraySegmentHttpRequestMethod
, xraySegmentHttpRequestUrl
, xraySegmentHttpRequestUserAgent
, xraySegmentHttpRequestClientIp
, xraySegmentHttpRequestXForwardedFor
, xraySegmentHttpRequestTraced
, XRaySegmentHttpResponse(..)
, xraySegmentHttpResponseDef
, xraySegmentHttpResponseStatus
, xraySegmentHttpResponseContentLength
, XRaySegmentAws(..)
, xraySegmentAwsDef
, xraySegmentAwsAccountId
, xraySegmentAwsEcs
, xraySegmentAwsEc2
, xraySegmentAwsElasticBeanstalk
, xraySegmentAwsOperation
, xraySegmentAwsRegion
, xraySegmentAwsRequestId
, xraySegmentAwsQueueUrl
, xraySegmentAwsTableName
, XRaySegmentAwsEcs(..)
, xraySegmentAwsEcsDef
, xraySegmentAwsEcsContainer
, XRaySegmentAwsEc2(..)
, xraySegmentAwsEc2Def
, xraySegmentAwsEc2InstanceId
, xraySegmentAwsEc2AvailabilityZone
, XRaySegmentAwsElasticBeanstalk(..)
, xraySegmentAwsElasticBeanstalkDef
, xraySegmentAwsElasticBeanstalkEnvironmentName
, xraySegmentAwsElasticBeanstalkVersionLabel
, xraySegmentAwsElasticBeanstalkDeploymentId
, XRaySegmentSql(..)
, xraySegmentSqlDef
, xraySegmentSqlConnectionString
, xraySegmentSqlUrl
, xraySegmentSqlSanitizedQuery
, xraySegmentSqlDatabaseType
, xraySegmentSqlDatabaseVersion
, xraySegmentSqlDriverVersion
, xraySegmentSqlUser
, xraySegmentSqlPreparation
) where
import Prelude
import Control.Lens.TH
import Data.Aeson
import Data.Aeson.TH
import Data.Maybe (isNothing)
import Data.Text (Text)
import Data.Time.Clock.POSIX
import Network.AWS.XRayClient.JSONHelpers
import Network.AWS.XRayClient.TraceId
data XRaySegment
= XRaySegment
{ XRaySegment -> Text
_xraySegmentName :: !Text
, XRaySegment -> XRaySegmentId
_xraySegmentId :: !XRaySegmentId
, XRaySegment -> Maybe XRayTraceId
_xraySegmentTraceId :: !(Maybe XRayTraceId)
, XRaySegment -> POSIXTime
_xraySegmentStartTime :: !POSIXTime
, XRaySegment -> Maybe POSIXTime
_xraySegmentEndTime :: !(Maybe POSIXTime)
, XRaySegment -> Maybe Bool
_xraySegmentInProgress :: !(Maybe Bool)
, XRaySegment -> Maybe XRaySegmentId
_xraySegmentParentId :: !(Maybe XRaySegmentId)
, XRaySegment -> Maybe Text
_xraySegmentType :: !(Maybe Text)
, XRaySegment -> Maybe Text
_xraySegmentOrigin :: !(Maybe Text)
, XRaySegment -> Maybe Text
_xraySegmentUser :: !(Maybe Text)
, XRaySegment -> Maybe Text
_xraySegmentNamespace :: !(Maybe Text)
, XRaySegment -> Maybe XRaySegmentService
_xraySegmentService :: !(Maybe XRaySegmentService)
, XRaySegment -> Maybe Bool
_xraySegmentError :: !(Maybe Bool)
, XRaySegment -> Maybe Bool
_xraySegmentThrottle :: !(Maybe Bool)
, XRaySegment -> Maybe Bool
_xraySegmentFault :: !(Maybe Bool)
, XRaySegment -> Maybe Value
_xraySegmentCause :: !(Maybe Value)
, XRaySegment -> Maybe XRaySegmentHttp
_xraySegmentHttp :: !(Maybe XRaySegmentHttp)
, XRaySegment -> Maybe Object
_xraySegmentAnnotations :: !(Maybe Object)
, XRaySegment -> Maybe Object
_xraySegmentMetadata :: !(Maybe Object)
, XRaySegment -> Maybe [XRaySegment]
_xraySegmentSubsegments :: !(Maybe [XRaySegment])
, XRaySegment -> Maybe XRaySegmentAws
_xraySegmentAws :: !(Maybe XRaySegmentAws)
, XRaySegment -> Maybe XRaySegmentSql
_xraySegmentSql :: !(Maybe XRaySegmentSql)
} deriving (Int -> XRaySegment -> ShowS
[XRaySegment] -> ShowS
XRaySegment -> String
(Int -> XRaySegment -> ShowS)
-> (XRaySegment -> String)
-> ([XRaySegment] -> ShowS)
-> Show XRaySegment
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegment] -> ShowS
$cshowList :: [XRaySegment] -> ShowS
show :: XRaySegment -> String
$cshow :: XRaySegment -> String
showsPrec :: Int -> XRaySegment -> ShowS
$cshowsPrec :: Int -> XRaySegment -> ShowS
Show, XRaySegment -> XRaySegment -> Bool
(XRaySegment -> XRaySegment -> Bool)
-> (XRaySegment -> XRaySegment -> Bool) -> Eq XRaySegment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegment -> XRaySegment -> Bool
$c/= :: XRaySegment -> XRaySegment -> Bool
== :: XRaySegment -> XRaySegment -> Bool
$c== :: XRaySegment -> XRaySegment -> Bool
Eq)
xraySegment
:: Text
-> XRaySegmentId
-> XRayTraceId
-> POSIXTime
-> Maybe POSIXTime
-> XRaySegment
xraySegment :: Text
-> XRaySegmentId
-> XRayTraceId
-> POSIXTime
-> Maybe POSIXTime
-> XRaySegment
xraySegment Text
name XRaySegmentId
segmentId XRayTraceId
traceId POSIXTime
startTime Maybe POSIXTime
mEndTime =
(Text
-> XRaySegmentId -> POSIXTime -> Maybe POSIXTime -> XRaySegment
xraySubsegment Text
name XRaySegmentId
segmentId POSIXTime
startTime Maybe POSIXTime
mEndTime)
{ _xraySegmentTraceId :: Maybe XRayTraceId
_xraySegmentTraceId = XRayTraceId -> Maybe XRayTraceId
forall a. a -> Maybe a
Just XRayTraceId
traceId
}
xraySubsegment
:: Text
-> XRaySegmentId
-> POSIXTime
-> Maybe POSIXTime
-> XRaySegment
xraySubsegment :: Text
-> XRaySegmentId -> POSIXTime -> Maybe POSIXTime -> XRaySegment
xraySubsegment Text
name XRaySegmentId
segmentId POSIXTime
startTime Maybe POSIXTime
mEndTime = XRaySegment :: Text
-> XRaySegmentId
-> Maybe XRayTraceId
-> POSIXTime
-> Maybe POSIXTime
-> Maybe Bool
-> Maybe XRaySegmentId
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe XRaySegmentService
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Value
-> Maybe XRaySegmentHttp
-> Maybe Object
-> Maybe Object
-> Maybe [XRaySegment]
-> Maybe XRaySegmentAws
-> Maybe XRaySegmentSql
-> XRaySegment
XRaySegment
{ _xraySegmentName :: Text
_xraySegmentName = Text
name
, _xraySegmentId :: XRaySegmentId
_xraySegmentId = XRaySegmentId
segmentId
, _xraySegmentTraceId :: Maybe XRayTraceId
_xraySegmentTraceId = Maybe XRayTraceId
forall a. Maybe a
Nothing
, _xraySegmentStartTime :: POSIXTime
_xraySegmentStartTime = POSIXTime
startTime
, _xraySegmentEndTime :: Maybe POSIXTime
_xraySegmentEndTime = Maybe POSIXTime
mEndTime
, _xraySegmentInProgress :: Maybe Bool
_xraySegmentInProgress = if Maybe POSIXTime -> Bool
forall a. Maybe a -> Bool
isNothing Maybe POSIXTime
mEndTime then Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
True else Maybe Bool
forall a. Maybe a
Nothing
, _xraySegmentParentId :: Maybe XRaySegmentId
_xraySegmentParentId = Maybe XRaySegmentId
forall a. Maybe a
Nothing
, _xraySegmentType :: Maybe Text
_xraySegmentType = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentOrigin :: Maybe Text
_xraySegmentOrigin = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentUser :: Maybe Text
_xraySegmentUser = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentNamespace :: Maybe Text
_xraySegmentNamespace = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentService :: Maybe XRaySegmentService
_xraySegmentService = Maybe XRaySegmentService
forall a. Maybe a
Nothing
, _xraySegmentError :: Maybe Bool
_xraySegmentError = Maybe Bool
forall a. Maybe a
Nothing
, _xraySegmentThrottle :: Maybe Bool
_xraySegmentThrottle = Maybe Bool
forall a. Maybe a
Nothing
, _xraySegmentFault :: Maybe Bool
_xraySegmentFault = Maybe Bool
forall a. Maybe a
Nothing
, _xraySegmentCause :: Maybe Value
_xraySegmentCause = Maybe Value
forall a. Maybe a
Nothing
, _xraySegmentHttp :: Maybe XRaySegmentHttp
_xraySegmentHttp = Maybe XRaySegmentHttp
forall a. Maybe a
Nothing
, _xraySegmentAnnotations :: Maybe Object
_xraySegmentAnnotations = Maybe Object
forall a. Maybe a
Nothing
, _xraySegmentMetadata :: Maybe Object
_xraySegmentMetadata = Maybe Object
forall a. Maybe a
Nothing
, _xraySegmentSubsegments :: Maybe [XRaySegment]
_xraySegmentSubsegments = Maybe [XRaySegment]
forall a. Maybe a
Nothing
, _xraySegmentAws :: Maybe XRaySegmentAws
_xraySegmentAws = Maybe XRaySegmentAws
forall a. Maybe a
Nothing
, _xraySegmentSql :: Maybe XRaySegmentSql
_xraySegmentSql = Maybe XRaySegmentSql
forall a. Maybe a
Nothing
}
xrayIndependentSubsegment
:: Text
-> XRaySegmentId
-> XRayTraceId
-> POSIXTime
-> Maybe POSIXTime
-> XRaySegmentId
-> XRaySegment
xrayIndependentSubsegment :: Text
-> XRaySegmentId
-> XRayTraceId
-> POSIXTime
-> Maybe POSIXTime
-> XRaySegmentId
-> XRaySegment
xrayIndependentSubsegment Text
name XRaySegmentId
segmentId XRayTraceId
traceId POSIXTime
startTime Maybe POSIXTime
mEndTime XRaySegmentId
parentId =
(Text
-> XRaySegmentId
-> XRayTraceId
-> POSIXTime
-> Maybe POSIXTime
-> XRaySegment
xraySegment Text
name XRaySegmentId
segmentId XRayTraceId
traceId POSIXTime
startTime Maybe POSIXTime
mEndTime)
{ _xraySegmentType :: Maybe Text
_xraySegmentType = Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"subsegment"
, _xraySegmentParentId :: Maybe XRaySegmentId
_xraySegmentParentId = XRaySegmentId -> Maybe XRaySegmentId
forall a. a -> Maybe a
Just XRaySegmentId
parentId
}
newtype XRaySegmentService
= XRaySegmentService
{ XRaySegmentService -> Text
_xraySegmentServiceVersion :: Text
} deriving (Int -> XRaySegmentService -> ShowS
[XRaySegmentService] -> ShowS
XRaySegmentService -> String
(Int -> XRaySegmentService -> ShowS)
-> (XRaySegmentService -> String)
-> ([XRaySegmentService] -> ShowS)
-> Show XRaySegmentService
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentService] -> ShowS
$cshowList :: [XRaySegmentService] -> ShowS
show :: XRaySegmentService -> String
$cshow :: XRaySegmentService -> String
showsPrec :: Int -> XRaySegmentService -> ShowS
$cshowsPrec :: Int -> XRaySegmentService -> ShowS
Show, XRaySegmentService -> XRaySegmentService -> Bool
(XRaySegmentService -> XRaySegmentService -> Bool)
-> (XRaySegmentService -> XRaySegmentService -> Bool)
-> Eq XRaySegmentService
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentService -> XRaySegmentService -> Bool
$c/= :: XRaySegmentService -> XRaySegmentService -> Bool
== :: XRaySegmentService -> XRaySegmentService -> Bool
$c== :: XRaySegmentService -> XRaySegmentService -> Bool
Eq)
data XRaySegmentHttp
= XRaySegmentHttp
{ XRaySegmentHttp -> Maybe XRaySegmentHttpRequest
_xraySegmentHttpRequest :: !(Maybe XRaySegmentHttpRequest)
, XRaySegmentHttp -> Maybe XRaySegmentHttpResponse
_xraySegmentHttpResponse :: !(Maybe XRaySegmentHttpResponse)
} deriving (Int -> XRaySegmentHttp -> ShowS
[XRaySegmentHttp] -> ShowS
XRaySegmentHttp -> String
(Int -> XRaySegmentHttp -> ShowS)
-> (XRaySegmentHttp -> String)
-> ([XRaySegmentHttp] -> ShowS)
-> Show XRaySegmentHttp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentHttp] -> ShowS
$cshowList :: [XRaySegmentHttp] -> ShowS
show :: XRaySegmentHttp -> String
$cshow :: XRaySegmentHttp -> String
showsPrec :: Int -> XRaySegmentHttp -> ShowS
$cshowsPrec :: Int -> XRaySegmentHttp -> ShowS
Show, XRaySegmentHttp -> XRaySegmentHttp -> Bool
(XRaySegmentHttp -> XRaySegmentHttp -> Bool)
-> (XRaySegmentHttp -> XRaySegmentHttp -> Bool)
-> Eq XRaySegmentHttp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentHttp -> XRaySegmentHttp -> Bool
$c/= :: XRaySegmentHttp -> XRaySegmentHttp -> Bool
== :: XRaySegmentHttp -> XRaySegmentHttp -> Bool
$c== :: XRaySegmentHttp -> XRaySegmentHttp -> Bool
Eq)
xraySegmentHttpDef :: XRaySegmentHttp
xraySegmentHttpDef :: XRaySegmentHttp
xraySegmentHttpDef = XRaySegmentHttp :: Maybe XRaySegmentHttpRequest
-> Maybe XRaySegmentHttpResponse -> XRaySegmentHttp
XRaySegmentHttp
{ _xraySegmentHttpRequest :: Maybe XRaySegmentHttpRequest
_xraySegmentHttpRequest = Maybe XRaySegmentHttpRequest
forall a. Maybe a
Nothing
, _xraySegmentHttpResponse :: Maybe XRaySegmentHttpResponse
_xraySegmentHttpResponse = Maybe XRaySegmentHttpResponse
forall a. Maybe a
Nothing
}
data XRaySegmentHttpRequest
= XRaySegmentHttpRequest
{ XRaySegmentHttpRequest -> Maybe Text
_xraySegmentHttpRequestMethod :: !(Maybe Text)
, XRaySegmentHttpRequest -> Maybe Text
_xraySegmentHttpRequestUrl :: !(Maybe Text)
, XRaySegmentHttpRequest -> Maybe Text
_xraySegmentHttpRequestUserAgent :: !(Maybe Text)
, XRaySegmentHttpRequest -> Maybe Text
_xraySegmentHttpRequestClientIp :: !(Maybe Text)
, XRaySegmentHttpRequest -> Maybe Bool
_xraySegmentHttpRequestXForwardedFor :: !(Maybe Bool)
, XRaySegmentHttpRequest -> Maybe Bool
_xraySegmentHttpRequestTraced :: !(Maybe Bool)
} deriving (Int -> XRaySegmentHttpRequest -> ShowS
[XRaySegmentHttpRequest] -> ShowS
XRaySegmentHttpRequest -> String
(Int -> XRaySegmentHttpRequest -> ShowS)
-> (XRaySegmentHttpRequest -> String)
-> ([XRaySegmentHttpRequest] -> ShowS)
-> Show XRaySegmentHttpRequest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentHttpRequest] -> ShowS
$cshowList :: [XRaySegmentHttpRequest] -> ShowS
show :: XRaySegmentHttpRequest -> String
$cshow :: XRaySegmentHttpRequest -> String
showsPrec :: Int -> XRaySegmentHttpRequest -> ShowS
$cshowsPrec :: Int -> XRaySegmentHttpRequest -> ShowS
Show, XRaySegmentHttpRequest -> XRaySegmentHttpRequest -> Bool
(XRaySegmentHttpRequest -> XRaySegmentHttpRequest -> Bool)
-> (XRaySegmentHttpRequest -> XRaySegmentHttpRequest -> Bool)
-> Eq XRaySegmentHttpRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentHttpRequest -> XRaySegmentHttpRequest -> Bool
$c/= :: XRaySegmentHttpRequest -> XRaySegmentHttpRequest -> Bool
== :: XRaySegmentHttpRequest -> XRaySegmentHttpRequest -> Bool
$c== :: XRaySegmentHttpRequest -> XRaySegmentHttpRequest -> Bool
Eq)
xraySegmentHttpRequestDef :: XRaySegmentHttpRequest
xraySegmentHttpRequestDef :: XRaySegmentHttpRequest
xraySegmentHttpRequestDef = XRaySegmentHttpRequest :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> XRaySegmentHttpRequest
XRaySegmentHttpRequest
{ _xraySegmentHttpRequestMethod :: Maybe Text
_xraySegmentHttpRequestMethod = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentHttpRequestUrl :: Maybe Text
_xraySegmentHttpRequestUrl = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentHttpRequestUserAgent :: Maybe Text
_xraySegmentHttpRequestUserAgent = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentHttpRequestClientIp :: Maybe Text
_xraySegmentHttpRequestClientIp = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentHttpRequestXForwardedFor :: Maybe Bool
_xraySegmentHttpRequestXForwardedFor = Maybe Bool
forall a. Maybe a
Nothing
, _xraySegmentHttpRequestTraced :: Maybe Bool
_xraySegmentHttpRequestTraced = Maybe Bool
forall a. Maybe a
Nothing
}
data XRaySegmentHttpResponse
= XRaySegmentHttpResponse
{ XRaySegmentHttpResponse -> Maybe Int
_xraySegmentHttpResponseStatus :: !(Maybe Int)
, XRaySegmentHttpResponse -> Maybe Int
_xraySegmentHttpResponseContentLength :: !(Maybe Int)
} deriving (Int -> XRaySegmentHttpResponse -> ShowS
[XRaySegmentHttpResponse] -> ShowS
XRaySegmentHttpResponse -> String
(Int -> XRaySegmentHttpResponse -> ShowS)
-> (XRaySegmentHttpResponse -> String)
-> ([XRaySegmentHttpResponse] -> ShowS)
-> Show XRaySegmentHttpResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentHttpResponse] -> ShowS
$cshowList :: [XRaySegmentHttpResponse] -> ShowS
show :: XRaySegmentHttpResponse -> String
$cshow :: XRaySegmentHttpResponse -> String
showsPrec :: Int -> XRaySegmentHttpResponse -> ShowS
$cshowsPrec :: Int -> XRaySegmentHttpResponse -> ShowS
Show, XRaySegmentHttpResponse -> XRaySegmentHttpResponse -> Bool
(XRaySegmentHttpResponse -> XRaySegmentHttpResponse -> Bool)
-> (XRaySegmentHttpResponse -> XRaySegmentHttpResponse -> Bool)
-> Eq XRaySegmentHttpResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentHttpResponse -> XRaySegmentHttpResponse -> Bool
$c/= :: XRaySegmentHttpResponse -> XRaySegmentHttpResponse -> Bool
== :: XRaySegmentHttpResponse -> XRaySegmentHttpResponse -> Bool
$c== :: XRaySegmentHttpResponse -> XRaySegmentHttpResponse -> Bool
Eq)
xraySegmentHttpResponseDef :: XRaySegmentHttpResponse
xraySegmentHttpResponseDef :: XRaySegmentHttpResponse
xraySegmentHttpResponseDef = XRaySegmentHttpResponse :: Maybe Int -> Maybe Int -> XRaySegmentHttpResponse
XRaySegmentHttpResponse
{ _xraySegmentHttpResponseStatus :: Maybe Int
_xraySegmentHttpResponseStatus = Maybe Int
forall a. Maybe a
Nothing
, _xraySegmentHttpResponseContentLength :: Maybe Int
_xraySegmentHttpResponseContentLength = Maybe Int
forall a. Maybe a
Nothing
}
data XRaySegmentAws
= XRaySegmentAws
{ XRaySegmentAws -> Maybe Text
_xraySegmentAwsAccountId :: !(Maybe Text)
, XRaySegmentAws -> Maybe XRaySegmentAwsEcs
_xraySegmentAwsEcs :: !(Maybe XRaySegmentAwsEcs)
, XRaySegmentAws -> Maybe XRaySegmentAwsEc2
_xraySegmentAwsEc2 :: !(Maybe XRaySegmentAwsEc2)
, XRaySegmentAws -> Maybe XRaySegmentAwsElasticBeanstalk
_xraySegmentAwsElasticBeanstalk :: !(Maybe XRaySegmentAwsElasticBeanstalk)
, XRaySegmentAws -> Maybe Text
_xraySegmentAwsOperation :: !(Maybe Text)
, XRaySegmentAws -> Maybe Text
_xraySegmentAwsRegion :: !(Maybe Text)
, XRaySegmentAws -> Maybe Text
_xraySegmentAwsRequestId :: !(Maybe Text)
, XRaySegmentAws -> Maybe Text
_xraySegmentAwsQueueUrl :: !(Maybe Text)
, XRaySegmentAws -> Maybe Text
_xraySegmentAwsTableName :: !(Maybe Text)
} deriving (Int -> XRaySegmentAws -> ShowS
[XRaySegmentAws] -> ShowS
XRaySegmentAws -> String
(Int -> XRaySegmentAws -> ShowS)
-> (XRaySegmentAws -> String)
-> ([XRaySegmentAws] -> ShowS)
-> Show XRaySegmentAws
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentAws] -> ShowS
$cshowList :: [XRaySegmentAws] -> ShowS
show :: XRaySegmentAws -> String
$cshow :: XRaySegmentAws -> String
showsPrec :: Int -> XRaySegmentAws -> ShowS
$cshowsPrec :: Int -> XRaySegmentAws -> ShowS
Show, XRaySegmentAws -> XRaySegmentAws -> Bool
(XRaySegmentAws -> XRaySegmentAws -> Bool)
-> (XRaySegmentAws -> XRaySegmentAws -> Bool) -> Eq XRaySegmentAws
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentAws -> XRaySegmentAws -> Bool
$c/= :: XRaySegmentAws -> XRaySegmentAws -> Bool
== :: XRaySegmentAws -> XRaySegmentAws -> Bool
$c== :: XRaySegmentAws -> XRaySegmentAws -> Bool
Eq)
xraySegmentAwsDef :: XRaySegmentAws
xraySegmentAwsDef :: XRaySegmentAws
xraySegmentAwsDef = XRaySegmentAws :: Maybe Text
-> Maybe XRaySegmentAwsEcs
-> Maybe XRaySegmentAwsEc2
-> Maybe XRaySegmentAwsElasticBeanstalk
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> XRaySegmentAws
XRaySegmentAws
{ _xraySegmentAwsAccountId :: Maybe Text
_xraySegmentAwsAccountId = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentAwsEcs :: Maybe XRaySegmentAwsEcs
_xraySegmentAwsEcs = Maybe XRaySegmentAwsEcs
forall a. Maybe a
Nothing
, _xraySegmentAwsEc2 :: Maybe XRaySegmentAwsEc2
_xraySegmentAwsEc2 = Maybe XRaySegmentAwsEc2
forall a. Maybe a
Nothing
, _xraySegmentAwsElasticBeanstalk :: Maybe XRaySegmentAwsElasticBeanstalk
_xraySegmentAwsElasticBeanstalk = Maybe XRaySegmentAwsElasticBeanstalk
forall a. Maybe a
Nothing
, _xraySegmentAwsOperation :: Maybe Text
_xraySegmentAwsOperation = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentAwsRegion :: Maybe Text
_xraySegmentAwsRegion = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentAwsRequestId :: Maybe Text
_xraySegmentAwsRequestId = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentAwsQueueUrl :: Maybe Text
_xraySegmentAwsQueueUrl = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentAwsTableName :: Maybe Text
_xraySegmentAwsTableName = Maybe Text
forall a. Maybe a
Nothing
}
newtype XRaySegmentAwsEcs
= XRaySegmentAwsEcs
{ XRaySegmentAwsEcs -> Maybe Text
_xraySegmentAwsEcsContainer :: Maybe Text
} deriving (Int -> XRaySegmentAwsEcs -> ShowS
[XRaySegmentAwsEcs] -> ShowS
XRaySegmentAwsEcs -> String
(Int -> XRaySegmentAwsEcs -> ShowS)
-> (XRaySegmentAwsEcs -> String)
-> ([XRaySegmentAwsEcs] -> ShowS)
-> Show XRaySegmentAwsEcs
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentAwsEcs] -> ShowS
$cshowList :: [XRaySegmentAwsEcs] -> ShowS
show :: XRaySegmentAwsEcs -> String
$cshow :: XRaySegmentAwsEcs -> String
showsPrec :: Int -> XRaySegmentAwsEcs -> ShowS
$cshowsPrec :: Int -> XRaySegmentAwsEcs -> ShowS
Show, XRaySegmentAwsEcs -> XRaySegmentAwsEcs -> Bool
(XRaySegmentAwsEcs -> XRaySegmentAwsEcs -> Bool)
-> (XRaySegmentAwsEcs -> XRaySegmentAwsEcs -> Bool)
-> Eq XRaySegmentAwsEcs
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentAwsEcs -> XRaySegmentAwsEcs -> Bool
$c/= :: XRaySegmentAwsEcs -> XRaySegmentAwsEcs -> Bool
== :: XRaySegmentAwsEcs -> XRaySegmentAwsEcs -> Bool
$c== :: XRaySegmentAwsEcs -> XRaySegmentAwsEcs -> Bool
Eq)
xraySegmentAwsEcsDef :: XRaySegmentAwsEcs
xraySegmentAwsEcsDef :: XRaySegmentAwsEcs
xraySegmentAwsEcsDef =
XRaySegmentAwsEcs :: Maybe Text -> XRaySegmentAwsEcs
XRaySegmentAwsEcs {_xraySegmentAwsEcsContainer :: Maybe Text
_xraySegmentAwsEcsContainer = Maybe Text
forall a. Maybe a
Nothing}
data XRaySegmentAwsEc2
= XRaySegmentAwsEc2
{ XRaySegmentAwsEc2 -> Maybe Text
_xraySegmentAwsEc2InstanceId :: !(Maybe Text)
, XRaySegmentAwsEc2 -> Maybe Text
_xraySegmentAwsEc2AvailabilityZone :: !(Maybe Text)
} deriving (Int -> XRaySegmentAwsEc2 -> ShowS
[XRaySegmentAwsEc2] -> ShowS
XRaySegmentAwsEc2 -> String
(Int -> XRaySegmentAwsEc2 -> ShowS)
-> (XRaySegmentAwsEc2 -> String)
-> ([XRaySegmentAwsEc2] -> ShowS)
-> Show XRaySegmentAwsEc2
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentAwsEc2] -> ShowS
$cshowList :: [XRaySegmentAwsEc2] -> ShowS
show :: XRaySegmentAwsEc2 -> String
$cshow :: XRaySegmentAwsEc2 -> String
showsPrec :: Int -> XRaySegmentAwsEc2 -> ShowS
$cshowsPrec :: Int -> XRaySegmentAwsEc2 -> ShowS
Show, XRaySegmentAwsEc2 -> XRaySegmentAwsEc2 -> Bool
(XRaySegmentAwsEc2 -> XRaySegmentAwsEc2 -> Bool)
-> (XRaySegmentAwsEc2 -> XRaySegmentAwsEc2 -> Bool)
-> Eq XRaySegmentAwsEc2
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentAwsEc2 -> XRaySegmentAwsEc2 -> Bool
$c/= :: XRaySegmentAwsEc2 -> XRaySegmentAwsEc2 -> Bool
== :: XRaySegmentAwsEc2 -> XRaySegmentAwsEc2 -> Bool
$c== :: XRaySegmentAwsEc2 -> XRaySegmentAwsEc2 -> Bool
Eq)
xraySegmentAwsEc2Def :: XRaySegmentAwsEc2
xraySegmentAwsEc2Def :: XRaySegmentAwsEc2
xraySegmentAwsEc2Def = XRaySegmentAwsEc2 :: Maybe Text -> Maybe Text -> XRaySegmentAwsEc2
XRaySegmentAwsEc2
{ _xraySegmentAwsEc2InstanceId :: Maybe Text
_xraySegmentAwsEc2InstanceId = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentAwsEc2AvailabilityZone :: Maybe Text
_xraySegmentAwsEc2AvailabilityZone = Maybe Text
forall a. Maybe a
Nothing
}
data XRaySegmentAwsElasticBeanstalk
= XRaySegmentAwsElasticBeanstalk
{ XRaySegmentAwsElasticBeanstalk -> Maybe Text
_xraySegmentAwsElasticBeanstalkEnvironmentName :: !(Maybe Text)
, XRaySegmentAwsElasticBeanstalk -> Maybe Text
_xraySegmentAwsElasticBeanstalkVersionLabel :: !(Maybe Text)
, XRaySegmentAwsElasticBeanstalk -> Maybe Int
_xraySegmentAwsElasticBeanstalkDeploymentId :: !(Maybe Int)
} deriving (Int -> XRaySegmentAwsElasticBeanstalk -> ShowS
[XRaySegmentAwsElasticBeanstalk] -> ShowS
XRaySegmentAwsElasticBeanstalk -> String
(Int -> XRaySegmentAwsElasticBeanstalk -> ShowS)
-> (XRaySegmentAwsElasticBeanstalk -> String)
-> ([XRaySegmentAwsElasticBeanstalk] -> ShowS)
-> Show XRaySegmentAwsElasticBeanstalk
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentAwsElasticBeanstalk] -> ShowS
$cshowList :: [XRaySegmentAwsElasticBeanstalk] -> ShowS
show :: XRaySegmentAwsElasticBeanstalk -> String
$cshow :: XRaySegmentAwsElasticBeanstalk -> String
showsPrec :: Int -> XRaySegmentAwsElasticBeanstalk -> ShowS
$cshowsPrec :: Int -> XRaySegmentAwsElasticBeanstalk -> ShowS
Show, XRaySegmentAwsElasticBeanstalk
-> XRaySegmentAwsElasticBeanstalk -> Bool
(XRaySegmentAwsElasticBeanstalk
-> XRaySegmentAwsElasticBeanstalk -> Bool)
-> (XRaySegmentAwsElasticBeanstalk
-> XRaySegmentAwsElasticBeanstalk -> Bool)
-> Eq XRaySegmentAwsElasticBeanstalk
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentAwsElasticBeanstalk
-> XRaySegmentAwsElasticBeanstalk -> Bool
$c/= :: XRaySegmentAwsElasticBeanstalk
-> XRaySegmentAwsElasticBeanstalk -> Bool
== :: XRaySegmentAwsElasticBeanstalk
-> XRaySegmentAwsElasticBeanstalk -> Bool
$c== :: XRaySegmentAwsElasticBeanstalk
-> XRaySegmentAwsElasticBeanstalk -> Bool
Eq)
xraySegmentAwsElasticBeanstalkDef :: XRaySegmentAwsElasticBeanstalk
xraySegmentAwsElasticBeanstalkDef :: XRaySegmentAwsElasticBeanstalk
xraySegmentAwsElasticBeanstalkDef = XRaySegmentAwsElasticBeanstalk :: Maybe Text
-> Maybe Text -> Maybe Int -> XRaySegmentAwsElasticBeanstalk
XRaySegmentAwsElasticBeanstalk
{ _xraySegmentAwsElasticBeanstalkEnvironmentName :: Maybe Text
_xraySegmentAwsElasticBeanstalkEnvironmentName = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentAwsElasticBeanstalkVersionLabel :: Maybe Text
_xraySegmentAwsElasticBeanstalkVersionLabel = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentAwsElasticBeanstalkDeploymentId :: Maybe Int
_xraySegmentAwsElasticBeanstalkDeploymentId = Maybe Int
forall a. Maybe a
Nothing
}
data XRaySegmentSql
= XRaySegmentSql
{ XRaySegmentSql -> Maybe Text
_xraySegmentSqlConnectionString :: !(Maybe Text)
, XRaySegmentSql -> Maybe Text
_xraySegmentSqlUrl :: !(Maybe Text)
, XRaySegmentSql -> Maybe Text
_xraySegmentSqlSanitizedQuery :: !(Maybe Text)
, XRaySegmentSql -> Maybe Text
_xraySegmentSqlDatabaseType :: !(Maybe Text)
, XRaySegmentSql -> Maybe Text
_xraySegmentSqlDatabaseVersion :: !(Maybe Text)
, XRaySegmentSql -> Maybe Text
_xraySegmentSqlDriverVersion :: !(Maybe Text)
, XRaySegmentSql -> Maybe Text
_xraySegmentSqlUser :: !(Maybe Text)
, XRaySegmentSql -> Maybe Text
_xraySegmentSqlPreparation :: !(Maybe Text)
} deriving (Int -> XRaySegmentSql -> ShowS
[XRaySegmentSql] -> ShowS
XRaySegmentSql -> String
(Int -> XRaySegmentSql -> ShowS)
-> (XRaySegmentSql -> String)
-> ([XRaySegmentSql] -> ShowS)
-> Show XRaySegmentSql
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [XRaySegmentSql] -> ShowS
$cshowList :: [XRaySegmentSql] -> ShowS
show :: XRaySegmentSql -> String
$cshow :: XRaySegmentSql -> String
showsPrec :: Int -> XRaySegmentSql -> ShowS
$cshowsPrec :: Int -> XRaySegmentSql -> ShowS
Show, XRaySegmentSql -> XRaySegmentSql -> Bool
(XRaySegmentSql -> XRaySegmentSql -> Bool)
-> (XRaySegmentSql -> XRaySegmentSql -> Bool) -> Eq XRaySegmentSql
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XRaySegmentSql -> XRaySegmentSql -> Bool
$c/= :: XRaySegmentSql -> XRaySegmentSql -> Bool
== :: XRaySegmentSql -> XRaySegmentSql -> Bool
$c== :: XRaySegmentSql -> XRaySegmentSql -> Bool
Eq)
xraySegmentSqlDef :: XRaySegmentSql
xraySegmentSqlDef :: XRaySegmentSql
xraySegmentSqlDef = XRaySegmentSql :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> XRaySegmentSql
XRaySegmentSql
{ _xraySegmentSqlConnectionString :: Maybe Text
_xraySegmentSqlConnectionString = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentSqlUrl :: Maybe Text
_xraySegmentSqlUrl = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentSqlSanitizedQuery :: Maybe Text
_xraySegmentSqlSanitizedQuery = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentSqlDatabaseType :: Maybe Text
_xraySegmentSqlDatabaseType = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentSqlDatabaseVersion :: Maybe Text
_xraySegmentSqlDatabaseVersion = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentSqlDriverVersion :: Maybe Text
_xraySegmentSqlDriverVersion = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentSqlUser :: Maybe Text
_xraySegmentSqlUser = Maybe Text
forall a. Maybe a
Nothing
, _xraySegmentSqlPreparation :: Maybe Text
_xraySegmentSqlPreparation = Maybe Text
forall a. Maybe a
Nothing
}
makeLenses ''XRaySegment
makeLenses ''XRaySegmentHttp
makeLenses ''XRaySegmentHttpRequest
makeLenses ''XRaySegmentHttpResponse
makeLenses ''XRaySegmentAws
makeLenses ''XRaySegmentAwsEcs
makeLenses ''XRaySegmentAwsEc2
makeLenses ''XRaySegmentAwsElasticBeanstalk
makeLenses ''XRaySegmentSql
makeLenses ''XRaySegmentService
deriveJSON (xrayAesonOptions "_xraySegment") ''XRaySegment
deriveJSON (xrayAesonOptions "_xraySegmentHttp") ''XRaySegmentHttp
deriveJSON (xrayAesonOptions "_xraySegmentHttpRequest") ''XRaySegmentHttpRequest
deriveJSON (xrayAesonOptions "_xraySegmentHttpResponse") ''XRaySegmentHttpResponse
deriveJSON (xrayAesonOptions "_xraySegmentAws") ''XRaySegmentAws
deriveJSON (xrayAesonOptions "_xraySegmentAwsEcs") ''XRaySegmentAwsEcs
deriveJSON (xrayAesonOptions "_xraySegmentAwsEc2") ''XRaySegmentAwsEc2
deriveJSON (xrayAesonOptions "_xraySegmentAwsElasticBeanstalk") ''XRaySegmentAwsElasticBeanstalk
deriveJSON (xrayAesonOptions "_xraySegmentSql") ''XRaySegmentSql
deriveJSON (xrayAesonOptions "_xraySegmentService") ''XRaySegmentService