git.iko.soy/distributed-process
on master help sign in
Explicitly enable the initial tracer process
aa41971Tim Watson
src/Control/Distributed/Process/Node.hs+2
compare with master
unifiedsplit
@@ -157,6 +157,7 @@ import Control.Distributed.Process.Internal.Trace.Types
157 , TraceEvent(..)
157 , TraceEvent(..)
158 , traceEvent
158 , traceEvent
159 , traceLogFmt
159 , traceLogFmt
160+ , enableTrace
160 )
161 )
161import Control.Distributed.Process.Internal.Trace.Tracer
162import Control.Distributed.Process.Internal.Trace.Tracer
162 ( traceController
163 ( traceController
@@ -263,6 +264,7 @@ startDefaultTracer node =
263 go node' = do
264 go node' = do
264 registerTraceController node'
265 registerTraceController node'
265 pid <- forkProcess node' defaultTracer
266 pid <- forkProcess node' defaultTracer
267+ enableTrace (localTracer node') pid
266 return (Just pid)
268 return (Just pid)
267
269
268 registerTraceController :: LocalNode -> IO ()
270 registerTraceController :: LocalNode -> IO ()