Safe Haskell	Safe-Inferred
Language	GHC2021

Freckle.App.OpenTelemetry.Context

Synopsis

class HasHeaders a where
- headersL :: Lens' a [Header]
newtype CustomTraceContext = CustomTraceContext {
- traceHeaders :: [(Text, Text)]
}
extractContext :: (MonadIO m, MonadTracer m, HasHeaders a) => a -> m ()
injectContext :: (MonadIO m, MonadTracer m, HasHeaders a) => a -> m a
processWithContext :: (MonadUnliftIO m, MonadMask m, MonadTracer m, HasHeaders a, HasCallStack) => Text -> SpanArguments -> a -> (a -> m b) -> m b

Documentation

class HasHeaders a where Source #

Methods

headersL :: Lens' a [Header] Source #

Instances

Instances details

HasHeaders CustomTraceContext Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods headersL :: Lens' CustomTraceContext [Header] Source #
HasHeaders Request Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods headersL :: Lens' Request [Header] Source #
HasHeaders (Job a) Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods headersL :: Lens' (Job a) [Header] Source #
HasHeaders [Header] Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods headersL :: Lens' [Header] [Header] Source #

newtype CustomTraceContext Source #

A type that can be stored as the custom field of a Faktory Job

Constructors

CustomTraceContext
Fields traceHeaders :: [(Text, Text)]

Instances

Instances details

FromJSON CustomTraceContext Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods parseJSON :: Value -> Parser CustomTraceContext # parseJSONList :: Value -> Parser [CustomTraceContext] #
ToJSON CustomTraceContext Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods toJSON :: CustomTraceContext -> Value # toEncoding :: CustomTraceContext -> Encoding # toJSONList :: [CustomTraceContext] -> Value # toEncodingList :: [CustomTraceContext] -> Encoding #
Monoid CustomTraceContext Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods mempty :: CustomTraceContext # mappend :: CustomTraceContext -> CustomTraceContext -> CustomTraceContext # mconcat :: [CustomTraceContext] -> CustomTraceContext #
Semigroup CustomTraceContext Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods (<>) :: CustomTraceContext -> CustomTraceContext -> CustomTraceContext # sconcat :: NonEmpty CustomTraceContext -> CustomTraceContext # stimes :: Integral b => b -> CustomTraceContext -> CustomTraceContext #
Generic CustomTraceContext Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Associated Types type Rep CustomTraceContext :: Type -> Type # Methods from :: CustomTraceContext -> Rep CustomTraceContext x # to :: Rep CustomTraceContext x -> CustomTraceContext #
HasHeaders CustomTraceContext Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context Methods headersL :: Lens' CustomTraceContext [Header] Source #
type Rep CustomTraceContext Source #
Instance details Defined in Freckle.App.OpenTelemetry.Context type Rep CustomTraceContext = D1 ('MetaData "CustomTraceContext" "Freckle.App.OpenTelemetry.Context" "freckle-app-1.18.2.0-GvZKi9I9gjJ1LERVA3pDgP" 'True) (C1 ('MetaCons "CustomTraceContext" 'PrefixI 'True) (S1 ('MetaSel ('Just "traceHeaders") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [(Text, Text)])))

extractContext :: (MonadIO m, MonadTracer m, HasHeaders a) => a -> m () Source #

Update our trace context from that extracted from the given item's headers

injectContext :: (MonadIO m, MonadTracer m, HasHeaders a) => a -> m a Source #

Inject our trace context into the given item's headers

processWithContext Source #

Arguments

:: (MonadUnliftIO m, MonadMask m, MonadTracer m, HasHeaders a, HasCallStack)
=> Text	Span name
-> SpanArguments
-> a
-> (a -> m b)
-> m b

Process an item (a request, a Job, etc) in a top-level span and context