git.iko.soy/distributed-process
on master help sign in
Drop unused class.
4c8a81dAlexander Vershilov
src/Control/Distributed/Process/Management/Internal/Trace/Types.hs−9
compare with master
unifiedsplit
@@ -158,12 +158,3 @@ getTraceFlags t s = publishEvent t (unsafeCreateUnencodedMessage s)
158
158
159getCurrentTraceClient :: MxEventBus -> SendPort (Maybe ProcessId) -> IO ()
159getCurrentTraceClient :: MxEventBus -> SendPort (Maybe ProcessId) -> IO ()
160getCurrentTraceClient t s = publishEvent t (unsafeCreateUnencodedMessage s)
160getCurrentTraceClient t s = publishEvent t (unsafeCreateUnencodedMessage s)
161−
162−class Traceable a where
163− uod :: [a] -> TraceSubject
164−
165−instance Traceable ProcessId where
166− uod = TraceProcs . Set.fromList
167−
168−instance Traceable String where
169− uod = TraceNames . Set.fromList