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