From 5dc96910fae40efd3209587908596d5aded99397 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 8 Nov 2013 06:58:39 -0700 Subject: [PATCH] distro-build: recognize timeout and exceptions as failure original commit: 1e2c6e243afc42a75290b78d7d39dae6b2e78726 --- pkgs/distro-build/drive-clients.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/distro-build/drive-clients.rkt b/pkgs/distro-build/drive-clients.rkt index 0cc2c05..b08051e 100644 --- a/pkgs/distro-build/drive-clients.rkt +++ b/pkgs/distro-build/drive-clients.rkt @@ -434,7 +434,8 @@ (unless timeout? (set! stop? #t))) (log-error "~a failed..." (client-name c)) - (log-error (exn-message exn)))]) + (log-error (exn-message exn)) + #f)]) (thunk))) (custodian-shutdown-all cust))))