@@ -31,7 +31,6 @@ import qualified Data.Map as Map
3131 , delete
3232 , toList
3333 , fromList
34− , filter
3534 , insert
3635 , lookup
3736 , partition
@@ -193,7 +192,6 @@ import Control.Distributed.Process.Management
193192 , liftMX
194193 , mxUpdateLocal
195194 , mxGetLocal
196− , mxSetLocal
197195 , mxReady
198196 , MxEvent(..)
199197 , MxAgentId(..)
@@ -325,9 +323,6 @@ startDefaultTracer node' = do
325323
326324-- TODO: we need a better mechanism for defining and registering services
327325
328−registryMonitorAgentId :: MxAgentId
329−registryMonitorAgentId = MxAgentId "service.registry.monitoring"
330−
331326{- note [registry monitoring agent]
332327 This agent listens for 'MxRegistered' and 'MxUnRegistered' events and tracks
333328 all labels for remote 'ProcessId's that are stored in the registry.
@@ -362,6 +357,9 @@ registryMonitorAgent = do
362357 -- The framework simply discards any input you don't have a handler for.
363358 -- See Management.hs `runAgent` for details.
364359 ]
360+ where
361+ registryMonitorAgentId :: MxAgentId
362+ registryMonitorAgentId = MxAgentId "service.registry.monitoring"
365363
366364-- | Start and register the service processes on a node
367365startServiceProcesses :: LocalNode -> IO ()