Elide spurious detail in patch actions and events
This commit is contained in:
parent
5bff630547
commit
4f21e9ab46
|
@ -156,7 +156,7 @@
|
||||||
(when show-actions?
|
(when show-actions?
|
||||||
(output "~a performs a patch:\n~a\n"
|
(output "~a performs a patch:\n~a\n"
|
||||||
(format-pids process-names source)
|
(format-pids process-names source)
|
||||||
(patch->pretty-string p)))]
|
(patch->pretty-string (label-patch p #t))))]
|
||||||
[('action (message body))
|
[('action (message body))
|
||||||
(when show-actions?
|
(when show-actions?
|
||||||
(output "~a broadcasts a message:\n~a\n"
|
(output "~a broadcasts a message:\n~a\n"
|
||||||
|
@ -172,7 +172,7 @@
|
||||||
(with-color YELLOW
|
(with-color YELLOW
|
||||||
(output "~a receives an event:\n~a\n"
|
(output "~a receives an event:\n~a\n"
|
||||||
(format-pids process-names sink)
|
(format-pids process-names sink)
|
||||||
(patch->pretty-string p))))]
|
(patch->pretty-string (label-patch p #t)))))]
|
||||||
[('event (message body))
|
[('event (message body))
|
||||||
(when show-events?
|
(when show-events?
|
||||||
(with-color YELLOW
|
(with-color YELLOW
|
||||||
|
|
Loading…
Reference in New Issue