git.iko.soy/distributed-process
on master help sign in
Relocate trace infrastructure beneath C.D.Process.Management
fb085c6Tim Watson
distributed-process.cabal+4−4
compare with master
unifiedsplit
@@ -80,10 +80,10 @@ Library
80 Control.Distributed.Process.Internal.StrictMVar,
80 Control.Distributed.Process.Internal.StrictMVar,
81 Control.Distributed.Process.Internal.WeakTQueue,
81 Control.Distributed.Process.Internal.WeakTQueue,
82 Control.Distributed.Process.Internal.StrictContainerAccessors,
82 Control.Distributed.Process.Internal.StrictContainerAccessors,
83− Control.Distributed.Process.Internal.Trace.Types,
83+ Control.Distributed.Process.Management.Trace.Types,
84− Control.Distributed.Process.Internal.Trace.Primitives,
84+ Control.Distributed.Process.Management.Trace.Primitives,
85− Control.Distributed.Process.Internal.Trace.Tracer,
85+ Control.Distributed.Process.Management.Trace.Tracer,
86− Control.Distributed.Process.Internal.Trace.Remote
86+ Control.Distributed.Process.Management.Trace.Remote
87 Extensions: RankNTypes,
87 Extensions: RankNTypes,
88 ScopedTypeVariables,
88 ScopedTypeVariables,
89 FlexibleInstances,
89 FlexibleInstances,
src/Control/Distributed/Process/Debug.hs+4−4
@@ -145,19 +145,19 @@ import Control.Distributed.Process.Internal.Types
145 , LocalProcess(..)
145 , LocalProcess(..)
146 , ProcessMonitorNotification(..)
146 , ProcessMonitorNotification(..)
147 )
147 )
148−import Control.Distributed.Process.Internal.Trace.Types
148+import Control.Distributed.Process.Management.Trace.Types
149 ( TraceArg(..)
149 ( TraceArg(..)
150 , MxEvent(..)
150 , MxEvent(..)
151 , TraceFlags(..)
151 , TraceFlags(..)
152 , TraceSubject(..)
152 , TraceSubject(..)
153 , defaultTraceFlags
153 , defaultTraceFlags
154 )
154 )
155−import Control.Distributed.Process.Internal.Trace.Tracer
155+import Control.Distributed.Process.Management.Trace.Tracer
156 ( systemLoggerTracer
156 ( systemLoggerTracer
157 , logfileTracer
157 , logfileTracer
158 , eventLogTracer
158 , eventLogTracer
159 )
159 )
160−import Control.Distributed.Process.Internal.Trace.Primitives
160+import Control.Distributed.Process.Management.Trace.Primitives
161 ( withRegisteredTracer
161 ( withRegisteredTracer
162 , enableTrace
162 , enableTrace
163 , enableTraceAsync
163 , enableTraceAsync
@@ -172,7 +172,7 @@ import Control.Distributed.Process.Internal.Trace.Primitives
172 , traceLogFmt
172 , traceLogFmt
173 , traceMessage
173 , traceMessage
174 )
174 )
175−import qualified Control.Distributed.Process.Internal.Trace.Remote as Remote
175+import qualified Control.Distributed.Process.Management.Trace.Remote as Remote
176import Control.Distributed.Process.Node
176import Control.Distributed.Process.Node
177
177
178import Control.Exception (SomeException)
178import Control.Exception (SomeException)
src/Control/Distributed/Process/Internal/Primitives.hs+1−1
@@ -191,7 +191,7 @@ import Control.Distributed.Process.Internal.Messaging
191 , disconnect
191 , disconnect
192 , sendCtrlMsg
192 , sendCtrlMsg
193 )
193 )
194−import Control.Distributed.Process.Internal.Trace.Types
194+import Control.Distributed.Process.Management.Trace.Types
195 ( traceEvent
195 ( traceEvent
196 , MxEvent(..)
196 , MxEvent(..)
197 )
197 )
src/Control/Distributed/Process/Management/Agent.hs+1−1
@@ -23,7 +23,7 @@ import Control.Distributed.Process.Internal.CQueue
23 ( enqueueSTM
23 ( enqueueSTM
24 , CQueue
24 , CQueue
25 )
25 )
26−import Control.Distributed.Process.Internal.Trace.Tracer
26+import Control.Distributed.Process.Management.Trace.Tracer
27 ( traceController
27 ( traceController
28 )
28 )
29import Control.Distributed.Process.Internal.Types
29import Control.Distributed.Process.Internal.Types
src/Control/Distributed/Process/Internal/Trace/Primitives.hs → src/Control/Distributed/Process/Management/Trace/Primitives.hsrenamed+3−3
@@ -5,7 +5,7 @@
5-- our RemoteTable) and the Debug module, which requires @forkProcess@.
5-- our RemoteTable) and the Debug module, which requires @forkProcess@.
6-- This module is also used by the management agent, which relies on the
6-- This module is also used by the management agent, which relies on the
7-- tracing infrastructure's messaging fabric.
7-- tracing infrastructure's messaging fabric.
8−module Control.Distributed.Process.Internal.Trace.Primitives
8+module Control.Distributed.Process.Management.Trace.Primitives
9 ( Tracer
9 ( Tracer
10 , MxEvent(..)
10 , MxEvent(..)
11 -- * Sending Trace Data
11 -- * Sending Trace Data
@@ -34,7 +34,7 @@ import Control.Distributed.Process.Internal.Primitives
34 , newChan
34 , newChan
35 , receiveChan
35 , receiveChan
36 )
36 )
37−import Control.Distributed.Process.Internal.Trace.Types
37+import Control.Distributed.Process.Management.Trace.Types
38 ( TraceArg(..)
38 ( TraceArg(..)
39 , MxEvent(..)
39 , MxEvent(..)
40 , TraceFlags(..)
40 , TraceFlags(..)
@@ -42,7 +42,7 @@ import Control.Distributed.Process.Internal.Trace.Types
42 , TraceSubject(..)
42 , TraceSubject(..)
43 , defaultTraceFlags
43 , defaultTraceFlags
44 )
44 )
45−import qualified Control.Distributed.Process.Internal.Trace.Types as Tracer
45+import qualified Control.Distributed.Process.Management.Trace.Types as Tracer
46 ( traceLog
46 ( traceLog
47 , traceLogFmt
47 , traceLogFmt
48 , traceMessage
48 , traceMessage
src/Control/Distributed/Process/Internal/Trace/Remote.hs → src/Control/Distributed/Process/Management/Trace/Remote.hsrenamed+3−3
@@ -1,4 +1,4 @@
1−module Control.Distributed.Process.Internal.Trace.Remote
1+module Control.Distributed.Process.Management.Trace.Remote
2 ( -- * Configuring A Tracer
2 ( -- * Configuring A Tracer
3 setTraceFlagsRemote
3 setTraceFlagsRemote
4 , startTraceRelay
4 , startTraceRelay
@@ -14,11 +14,11 @@ import Control.Distributed.Process.Internal.Primitives
14 , relay
14 , relay
15 , nsendRemote
15 , nsendRemote
16 )
16 )
17−import Control.Distributed.Process.Internal.Trace.Types
17+import Control.Distributed.Process.Management.Trace.Types
18 ( TraceFlags(..)
18 ( TraceFlags(..)
19 , TraceOk(..)
19 , TraceOk(..)
20 )
20 )
21−import Control.Distributed.Process.Internal.Trace.Primitives
21+import Control.Distributed.Process.Management.Trace.Primitives
22 ( withRegisteredTracer
22 ( withRegisteredTracer
23 , enableTrace
23 , enableTrace
24 )
24 )
src/Control/Distributed/Process/Internal/Trace/Tracer.hs → src/Control/Distributed/Process/Management/Trace/Tracer.hsrenamed+3−3
@@ -1,5 +1,5 @@
1-- | Tracing/Debugging support - Trace Implementation
1-- | Tracing/Debugging support - Trace Implementation
2−module Control.Distributed.Process.Internal.Trace.Tracer
2+module Control.Distributed.Process.Management.Trace.Tracer
3 ( -- * API for the Management Agent
3 ( -- * API for the Management Agent
4 traceController
4 traceController
5 -- * Built in tracers
5 -- * Built in tracers
@@ -31,7 +31,7 @@ import Control.Distributed.Process.Internal.Primitives
31 , handleMessage
31 , handleMessage
32 , matchUnknown
32 , matchUnknown
33 )
33 )
34−import Control.Distributed.Process.Internal.Trace.Types
34+import Control.Distributed.Process.Management.Trace.Types
35 ( MxEvent(..)
35 ( MxEvent(..)
36 , SetTrace(..)
36 , SetTrace(..)
37 , Addressable(..)
37 , Addressable(..)
@@ -40,7 +40,7 @@ import Control.Distributed.Process.Internal.Trace.Types
40 , TraceOk(..)
40 , TraceOk(..)
41 , defaultTraceFlags
41 , defaultTraceFlags
42 )
42 )
43−import Control.Distributed.Process.Internal.Trace.Primitives
43+import Control.Distributed.Process.Management.Trace.Primitives
44 ( traceOn )
44 ( traceOn )
45import Control.Distributed.Process.Internal.Types
45import Control.Distributed.Process.Internal.Types
46 ( LocalNode(..)
46 ( LocalNode(..)
src/Control/Distributed/Process/Internal/Trace/Types.hs → src/Control/Distributed/Process/Management/Trace/Types.hsrenamed+1−1
@@ -1,5 +1,5 @@
1-- | Tracing/Debugging support - Types
1-- | Tracing/Debugging support - Types
2−module Control.Distributed.Process.Internal.Trace.Types
2+module Control.Distributed.Process.Management.Trace.Types
3 ( MxEventBus(..)
3 ( MxEventBus(..)
4 , MxEvent(..)
4 , MxEvent(..)
5 , SetTrace(..)
5 , SetTrace(..)
src/Control/Distributed/Process/Node.hs+3−3
@@ -149,17 +149,17 @@ import Control.Distributed.Process.Internal.Types
149 , firstNonReservedProcessId
149 , firstNonReservedProcessId
150 , ImplicitReconnect(WithImplicitReconnect)
150 , ImplicitReconnect(WithImplicitReconnect)
151 )
151 )
152−import qualified Control.Distributed.Process.Internal.Trace.Remote as Trace
152+import qualified Control.Distributed.Process.Management.Trace.Remote as Trace
153 ( remoteTable
153 ( remoteTable
154 )
154 )
155−import Control.Distributed.Process.Internal.Trace.Types
155+import Control.Distributed.Process.Management.Trace.Types
156 ( TraceArg(..)
156 ( TraceArg(..)
157 , MxEvent(..)
157 , MxEvent(..)
158 , traceEvent
158 , traceEvent
159 , traceLogFmt
159 , traceLogFmt
160 , enableTrace
160 , enableTrace
161 )
161 )
162−import Control.Distributed.Process.Internal.Trace.Tracer
162+import Control.Distributed.Process.Management.Trace.Tracer
163 ( defaultTracer
163 ( defaultTracer
164 )
164 )
165import Control.Distributed.Process.Serializable (Serializable)
165import Control.Distributed.Process.Serializable (Serializable)