Refactor (simplify)

hyperthunk · hyperthunk · commit 83a2e8cccf7b · 2014-01-03T11:49:13.000Z
diff --git a/src/Control/Distributed/Process/Management/Agent.hs b/src/Control/Distributed/Process/Management/Agent.hs
@@ -94,7 +94,7 @@ mxAgentController forkProcess mv = do
           -- (e.g., passing unevaluated thunks that will crash when
           -- they're eventually forced) are thus silently ignored.
           --
-          matchAny (\msg -> liftIO $ broadcast bus tracer msg)
+          matchAny (liftIO . broadcast bus tracer)
         ] `catches` [Handler (\ThreadKilled -> die "Killed"),
                      Handler (\(_ :: SomeException) -> return ())]
 
