@@ -94,7 +94,7 @@ mxAgentController forkProcess mv = do
9494 -- (e.g., passing unevaluated thunks that will crash when
9595 -- they're eventually forced) are thus silently ignored.
9696 --
97− matchAny (\msg -> liftIO $ broadcast bus tracer msg)
97+ matchAny (liftIO . broadcast bus tracer)
9898 ] `catches` [Handler (\ThreadKilled -> die "Killed"),
9999 Handler (\(_ :: SomeException) -> return ())]
100100