mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 04:51:35 +03:00
29 lines
675 B
Haskell
29 lines
675 B
Haskell
|
module Hasura.Tracing.Reporter
|
||
|
|
( Reporter (..),
|
||
|
|
noReporter,
|
||
|
|
)
|
||
|
|
where
|
||
|
|
|
||
|
|
import Control.Monad.Trans.Control
|
||
|
|
import Hasura.Prelude
|
||
|
|
import Hasura.Tracing.Context
|
||
|
|
|
||
|
|
newtype Reporter = Reporter
|
||
|
|
{ runReporter ::
|
||
|
|
forall m a.
|
||
|
|
(MonadIO m, MonadBaseControl IO m) =>
|
||
|
|
-- \| Current trace context, providing the trace id and span info.
|
||
|
|
TraceContext ->
|
||
|
|
-- \| Human readable name of this span.
|
||
|
|
Text ->
|
||
|
|
-- \| IO action that retrieves the metadata associated with the
|
||
|
|
-- current span.
|
||
|
|
IO TraceMetadata ->
|
||
|
|
-- \| The monadic action to report
|
||
|
|
m a ->
|
||
|
|
m a
|
||
|
|
}
|
||
|
|
|
||
|
|
noReporter :: Reporter
|
||
|
|
noReporter = Reporter \_ _ _ -> id
|