fb085c6 · distributed-process

git.iko.soy/distributed-process

Relocate trace infrastructure beneath C.D.Process.Management

commitfb085c61d9af4faa9f15bf2d74b535cb45b30c73 authorTim Watson <watson.timothy@gmail.com> dateSun 1 Sep 2013, 19:50 (13 years ago) parentf2f5fa5

9 files changed+23−23

compare with master

unifiedsplit

distributed-process.cabal+4−4

@@ -80,10 +80,10 @@ Library

8080 Control.Distributed.Process.Internal.StrictMVar,

8181 Control.Distributed.Process.Internal.WeakTQueue,

8282 Control.Distributed.Process.Internal.StrictContainerAccessors,

83− Control.Distributed.Process.Internal.Trace.Types,

84− Control.Distributed.Process.Internal.Trace.Primitives,

85− Control.Distributed.Process.Internal.Trace.Tracer,

86− Control.Distributed.Process.Internal.Trace.Remote

83+ Control.Distributed.Process.Management.Trace.Types,

84+ Control.Distributed.Process.Management.Trace.Primitives,

85+ Control.Distributed.Process.Management.Trace.Tracer,

86+ Control.Distributed.Process.Management.Trace.Remote

8787 Extensions: RankNTypes,

8888 ScopedTypeVariables,

8989 FlexibleInstances,

src/Control/Distributed/Process/Debug.hs+4−4

@@ -145,19 +145,19 @@ import Control.Distributed.Process.Internal.Types

145145 , LocalProcess(..)

146146 , ProcessMonitorNotification(..)

147147 )

148−import Control.Distributed.Process.Internal.Trace.Types

148+import Control.Distributed.Process.Management.Trace.Types

149149 ( TraceArg(..)

150150 , MxEvent(..)

151151 , TraceFlags(..)

152152 , TraceSubject(..)

153153 , defaultTraceFlags

154154 )

155−import Control.Distributed.Process.Internal.Trace.Tracer

155+import Control.Distributed.Process.Management.Trace.Tracer

156156 ( systemLoggerTracer

157157 , logfileTracer

158158 , eventLogTracer

159159 )

160−import Control.Distributed.Process.Internal.Trace.Primitives

160+import Control.Distributed.Process.Management.Trace.Primitives

161161 ( withRegisteredTracer

162162 , enableTrace

163163 , enableTraceAsync

@@ -172,7 +172,7 @@ import Control.Distributed.Process.Internal.Trace.Primitives

172172 , traceLogFmt

173173 , traceMessage

174174 )

175−import qualified Control.Distributed.Process.Internal.Trace.Remote as Remote

175+import qualified Control.Distributed.Process.Management.Trace.Remote as Remote

176176import Control.Distributed.Process.Node

177177

178178import Control.Exception (SomeException)

src/Control/Distributed/Process/Internal/Primitives.hs+1−1

@@ -191,7 +191,7 @@ import Control.Distributed.Process.Internal.Messaging

191191 , disconnect

192192 , sendCtrlMsg

193193 )

194−import Control.Distributed.Process.Internal.Trace.Types

194+import Control.Distributed.Process.Management.Trace.Types

195195 ( traceEvent

196196 , MxEvent(..)

197197 )

src/Control/Distributed/Process/Management/Agent.hs+1−1

@@ -23,7 +23,7 @@ import Control.Distributed.Process.Internal.CQueue

2323 ( enqueueSTM

2424 , CQueue

2525 )

26−import Control.Distributed.Process.Internal.Trace.Tracer

26+import Control.Distributed.Process.Management.Trace.Tracer

2727 ( traceController

2828 )

2929import 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 @@

55-- our RemoteTable) and the Debug module, which requires @forkProcess@.

66-- This module is also used by the management agent, which relies on the

77-- tracing infrastructure's messaging fabric.

8−module Control.Distributed.Process.Internal.Trace.Primitives

8+module Control.Distributed.Process.Management.Trace.Primitives

99 ( Tracer

1010 , MxEvent(..)

1111 -- * Sending Trace Data

@@ -34,7 +34,7 @@ import Control.Distributed.Process.Internal.Primitives

3434 , newChan

3535 , receiveChan

3636 )

37−import Control.Distributed.Process.Internal.Trace.Types

37+import Control.Distributed.Process.Management.Trace.Types

3838 ( TraceArg(..)

3939 , MxEvent(..)

4040 , TraceFlags(..)

@@ -42,7 +42,7 @@ import Control.Distributed.Process.Internal.Trace.Types

4242 , TraceSubject(..)

4343 , defaultTraceFlags

4444 )

45−import qualified Control.Distributed.Process.Internal.Trace.Types as Tracer

45+import qualified Control.Distributed.Process.Management.Trace.Types as Tracer

4646 ( traceLog

4747 , traceLogFmt

4848 , 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

22 ( -- * Configuring A Tracer

33 setTraceFlagsRemote

44 , startTraceRelay

@@ -14,11 +14,11 @@ import Control.Distributed.Process.Internal.Primitives

1414 , relay

1515 , nsendRemote

1616 )

17−import Control.Distributed.Process.Internal.Trace.Types

17+import Control.Distributed.Process.Management.Trace.Types

1818 ( TraceFlags(..)

1919 , TraceOk(..)

2020 )

21−import Control.Distributed.Process.Internal.Trace.Primitives

21+import Control.Distributed.Process.Management.Trace.Primitives

2222 ( withRegisteredTracer

2323 , enableTrace

2424 )

src/Control/Distributed/Process/Internal/Trace/Tracer.hs → src/Control/Distributed/Process/Management/Trace/Tracer.hsrenamed+3−3

@@ -1,5 +1,5 @@

11-- | Tracing/Debugging support - Trace Implementation

2−module Control.Distributed.Process.Internal.Trace.Tracer

2+module Control.Distributed.Process.Management.Trace.Tracer

33 ( -- * API for the Management Agent

44 traceController

55 -- * Built in tracers

@@ -31,7 +31,7 @@ import Control.Distributed.Process.Internal.Primitives

3131 , handleMessage

3232 , matchUnknown

3333 )

34−import Control.Distributed.Process.Internal.Trace.Types

34+import Control.Distributed.Process.Management.Trace.Types

3535 ( MxEvent(..)

3636 , SetTrace(..)

3737 , Addressable(..)

@@ -40,7 +40,7 @@ import Control.Distributed.Process.Internal.Trace.Types

4040 , TraceOk(..)

4141 , defaultTraceFlags

4242 )

43−import Control.Distributed.Process.Internal.Trace.Primitives

43+import Control.Distributed.Process.Management.Trace.Primitives

4444 ( traceOn )

4545import Control.Distributed.Process.Internal.Types

4646 ( LocalNode(..)

src/Control/Distributed/Process/Internal/Trace/Types.hs → src/Control/Distributed/Process/Management/Trace/Types.hsrenamed+1−1

@@ -1,5 +1,5 @@

11-- | Tracing/Debugging support - Types

2−module Control.Distributed.Process.Internal.Trace.Types

2+module Control.Distributed.Process.Management.Trace.Types

33 ( MxEventBus(..)

44 , MxEvent(..)

55 , SetTrace(..)

src/Control/Distributed/Process/Node.hs+3−3

@@ -149,17 +149,17 @@ import Control.Distributed.Process.Internal.Types

149149 , firstNonReservedProcessId

150150 , ImplicitReconnect(WithImplicitReconnect)

151151 )

152−import qualified Control.Distributed.Process.Internal.Trace.Remote as Trace

152+import qualified Control.Distributed.Process.Management.Trace.Remote as Trace

153153 ( remoteTable

154154 )

155−import Control.Distributed.Process.Internal.Trace.Types

155+import Control.Distributed.Process.Management.Trace.Types

156156 ( TraceArg(..)

157157 , MxEvent(..)

158158 , traceEvent

159159 , traceLogFmt

160160 , enableTrace

161161 )

162−import Control.Distributed.Process.Internal.Trace.Tracer

162+import Control.Distributed.Process.Management.Trace.Tracer

163163 ( defaultTracer

164164 )

165165import Control.Distributed.Process.Serializable (Serializable)