git.iko.soy/distributed-process
on master help sign in
Explicitly enable the initial tracer process
commitaa41971d485d83e9f5a9c7b86a78bdc5f0954248 authorTim Watson <tim@rabbitmq.com> dateWed 24 Apr 2013, 12:01 (13 years ago) parentc625bd2
1 file changed+2
compare with master
unifiedsplit
src/Control/Distributed/Process/Node.hs+2
src/Control/Distributed/Process/Node.hs+2
@@ -157,6 +157,7 @@ import Control.Distributed.Process.Internal.Trace.Types
157157 , TraceEvent(..)
158158 , traceEvent
159159 , traceLogFmt
160+ , enableTrace
160161 )
161162import Control.Distributed.Process.Internal.Trace.Tracer
162163 ( traceController
@@ -263,6 +264,7 @@ startDefaultTracer node =
263264 go node' = do
264265 registerTraceController node'
265266 pid <- forkProcess node' defaultTracer
267+ enableTrace (localTracer node') pid
266268 return (Just pid)
267269
268270 registerTraceController :: LocalNode -> IO ()