@@ -158,12 +158,3 @@ getTraceFlags t s = publishEvent t (unsafeCreateUnencodedMessage s)
158158
159159getCurrentTraceClient :: MxEventBus -> SendPort (Maybe ProcessId) -> IO ()
160160getCurrentTraceClient 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